@@ -68,7 +68,7 @@ init(Parent) ->
68
68
% % tell parent we have allocated resources and are up and running
69
69
proc_lib :init_ack (Parent , {ok , self ()}),
70
70
71
- logger :debug (" listening for OSC cues on socket: ~p~n " ,
71
+ logger :debug (" listening for OSC cues on socket: ~p " ,
72
72
[try erlang :port_info (InSocket ) catch _ :_ -> undefined end ]),
73
73
State = #{parent => Parent ,
74
74
enabled => Enabled ,
@@ -94,7 +94,7 @@ loop(State) ->
94
94
forward_internal_cue (CueHost , CuePort , InSocket , Path , Args ),
95
95
? MODULE :loop (State );
96
96
#{midi_enabled := false } ->
97
- logger :debug (" MIDI cue forwarding disabled - ignored: ~p~n " , [{Path , Args }]),
97
+ logger :debug (" MIDI cue forwarding disabled - ignored: ~p " , [{Path , Args }]),
98
98
? MODULE :loop (State )
99
99
end ;
100
100
@@ -107,7 +107,7 @@ loop(State) ->
107
107
forward_internal_cue (CueHost , CuePort , InSocket , " /link/num-peers" , [NumPeers ]),
108
108
? MODULE :loop (State );
109
109
_ ->
110
- logger :debug (" Link cue forwarding disabled - ignored num_peers change ~n " , []),
110
+ logger :debug (" Link cue forwarding disabled - ignored num_peers change " , []),
111
111
? MODULE :loop (State )
112
112
end ;
113
113
@@ -122,7 +122,7 @@ loop(State) ->
122
122
send_api_tempo_update (CueHost , CuePort , InSocket , Tempo ),
123
123
? MODULE :loop (State );
124
124
_ ->
125
- logger :debug (" Link cue forwarding disabled - ignored tempo change ~n " , []),
125
+ logger :debug (" Link cue forwarding disabled - ignored tempo change " , []),
126
126
? MODULE :loop (State )
127
127
end ;
128
128
@@ -135,7 +135,7 @@ loop(State) ->
135
135
forward_internal_cue (CueHost , CuePort , InSocket , " /link/start" , []),
136
136
? MODULE :loop (State );
137
137
_ ->
138
- logger :debug (" Link cue forwarding disabled - ignored start message ~n " , []),
138
+ logger :debug (" Link cue forwarding disabled - ignored start message " , []),
139
139
? MODULE :loop (State )
140
140
end ;
141
141
@@ -149,7 +149,7 @@ loop(State) ->
149
149
forward_internal_cue (CueHost , CuePort , InSocket , " /link/stop" , []),
150
150
? MODULE :loop (State );
151
151
_ ->
152
- logger :debug (" Link cue forwarding disabled - ignored stop message ~n " , []),
152
+ logger :debug (" Link cue forwarding disabled - ignored stop message " , []),
153
153
? MODULE :loop (State )
154
154
end ;
155
155
@@ -166,25 +166,25 @@ loop(State) ->
166
166
? MODULE :loop (State );
167
167
168
168
{udp , InSocket , Ip , Port , Bin } ->
169
- logger :debug (" cue server got UDP on ~p :~p~n " , [Ip , Port ]),
169
+ logger :debug (" cue server got UDP on ~p :~p " , [Ip , Port ]),
170
170
try osc :decode (Bin ) of
171
171
% % TODO: handle {bundle, Time, X}?
172
172
{cmd , Cmd } ->
173
173
case State of
174
174
#{enabled := true ,
175
175
cue_host := CueHost ,
176
176
cue_port := CuePort } ->
177
- loggfer :debug (" got incoming OSC: ~p~n " , [Cmd ]),
177
+ loggfer :debug (" got incoming OSC: ~p " , [Cmd ]),
178
178
forward_cue (CueHost , CuePort ,
179
179
InSocket , Ip , Port , Cmd ),
180
180
? MODULE :loop (State );
181
181
#{enabled := false } ->
182
- logger :debug (" OSC forwarding disabled - ignored: ~p~n " , [Cmd ]),
182
+ logger :debug (" OSC forwarding disabled - ignored: ~p " , [Cmd ]),
183
183
? MODULE :loop (State )
184
184
end
185
185
catch
186
186
Class :Term :Trace ->
187
- logger :error (" Error decoding OSC: ~p~n~p :~p~n~p~n " ,
187
+ logger :error (" Error decoding OSC: ~p~n~p :~p~n~p " ,
188
188
[Bin , Class , Term , Trace ]),
189
189
? MODULE :loop (State )
190
190
end ;
@@ -196,7 +196,7 @@ loop(State) ->
196
196
#{internal := false ,
197
197
in_socket := InSocket ,
198
198
in_port := InPort } ->
199
- logger :info (" Switching cue listener to loopback network~n " ),
199
+ logger :info (" Switching cue listener to loopback network" ),
200
200
gen_udp :close (InSocket ),
201
201
{ok , NewInSocket } = gen_udp :open (InPort ,
202
202
[binary , {ip , loopback }]),
@@ -209,7 +209,7 @@ loop(State) ->
209
209
#{internal := true ,
210
210
in_socket := InSocket ,
211
211
in_port := InPort } ->
212
- logger :info (" Switching cue listener to open network~n " ),
212
+ logger :info (" Switching cue listener to open network" ),
213
213
gen_udp :close (InSocket ),
214
214
{ok , NewInSocket } = gen_udp :open (InPort , [binary ]),
215
215
? MODULE :loop (State #{internal := false ,
@@ -219,19 +219,19 @@ loop(State) ->
219
219
end ;
220
220
221
221
{enabled , true } ->
222
- logger :info (" Enabling cue forwarding ~n " ),
222
+ logger :info (" Enabling cue forwarding " ),
223
223
? MODULE :loop (State #{enabled := true });
224
224
225
225
{enabled , false } ->
226
- logger :info (" Disabling cue forwarding ~n " ),
226
+ logger :info (" Disabling cue forwarding " ),
227
227
? MODULE :loop (State #{enabled := false });
228
228
229
229
{midi_enabled , true } ->
230
- logger :info (" Enabling midi cue forwarding ~n " ),
230
+ logger :info (" Enabling midi cue forwarding " ),
231
231
? MODULE :loop (State #{midi_enabled := true });
232
232
233
233
{midi_enabled , false } ->
234
- logger :info (" Disabling midi cue forwarding ~n " ),
234
+ logger :info (" Disabling midi cue forwarding " ),
235
235
? MODULE :loop (State #{midi_enabled := false });
236
236
237
237
{send_osc , Host , Port , OSC } ->
@@ -240,7 +240,7 @@ loop(State) ->
240
240
241
241
{udp_error , _Port , econnreset } ->
242
242
% % Should not happen, but can happen anyway on Windows
243
- logger :debug (" got UDP ECONNRESET - ignored~n " , []),
243
+ logger :debug (" got UDP ECONNRESET - ignored" , []),
244
244
? MODULE :loop (State );
245
245
246
246
{system , From , Request } ->
@@ -264,7 +264,7 @@ loop(State) ->
264
264
send_udp (Socket , Host , Port , Bin ),
265
265
? MODULE :loop (State );
266
266
Any ->
267
- logger :error (" Cue Server got unexpected message: ~p~n " , [Any ]),
267
+ logger :error (" Cue Server got unexpected message: ~p " , [Any ]),
268
268
? MODULE :loop (State )
269
269
270
270
end .
@@ -279,54 +279,54 @@ send_udp(Socket, Host, Port, Bin)
279
279
{ok ,_ } ->
280
280
case Mod :getserv (Port ) of
281
281
{ok ,_ } ->
282
- logger :debug (" Sending UDP to - ~p ~p ~n " , [Host , Port ]),
282
+ logger :debug (" Sending UDP to - ~p ~p " , [Host , Port ]),
283
283
gen_udp :send (Socket , Host , Port , Bin );
284
- {error ,einval } -> logger :debug (" Unable to send UDP - bad hostname (getserv einval): ~p~n " , [Host ]);
285
- Error -> logger :error (" Unable to send UDP - bad hostname (getserv ~p ): ~p~n " , [Error , Host ])
284
+ {error ,einval } -> logger :debug (" Unable to send UDP - bad hostname (getserv einval): ~p " , [Host ]);
285
+ Error -> logger :error (" Unable to send UDP - bad hostname (getserv ~p ): ~p " , [Error , Host ])
286
286
end ;
287
- {error ,einval } -> logger :error (" Unable to send UDP - bad hostname (getaddr einval): ~p~n " , [Host ]);
288
- Error -> logger :error (" Unable to send UDP - bad hostname (getaddr: ~p ): ~p~n " , [Error , Host ])
287
+ {error ,einval } -> logger :error (" Unable to send UDP - bad hostname (getaddr einval): ~p " , [Host ]);
288
+ Error -> logger :error (" Unable to send UDP - bad hostname (getaddr: ~p ): ~p " , [Error , Host ])
289
289
end ;
290
- Error -> logger :error (" Unable to send UDP - bad socket (~p ): ~p~n " , [Error , Host ])
290
+ Error -> logger :error (" Unable to send UDP - bad socket (~p ): ~p " , [Error , Host ])
291
291
end .
292
292
293
293
update_midi_in_ports (CueHost , CuePort , InSocket , Args ) ->
294
294
Bin = osc :encode ([" /midi-ins" , " erlang" | Args ]),
295
295
send_udp (InSocket , CueHost , CuePort , Bin ),
296
- logger :debug (" forwarded new MIDI ins to ~p :~p~n " , [CueHost , CuePort ]),
296
+ logger :debug (" forwarded new MIDI ins to ~p :~p " , [CueHost , CuePort ]),
297
297
ok .
298
298
299
299
update_midi_out_ports (CueHost , CuePort , InSocket , Args ) ->
300
300
Bin = osc :encode ([" /midi-outs" , " erlang" | Args ]),
301
301
send_udp (InSocket , CueHost , CuePort , Bin ),
302
- logger :debug (" forwarded new MIDI outs to ~p :~p~n " , [CueHost , CuePort ]),
302
+ logger :debug (" forwarded new MIDI outs to ~p :~p " , [CueHost , CuePort ]),
303
303
ok .
304
304
305
305
send_api_reply (State , UUID , Args ) ->
306
306
CueHost = maps :get (cue_host , State ),
307
307
CuePort = maps :get (cue_port , State ),
308
308
InSocket = maps :get (in_socket , State ),
309
309
Bin = osc :encode ([" /tau-api-reply" , " erlang" , UUID | Args ]),
310
- % % logger:debug("send api reply ~p:~p~n ", ToEncode),
310
+ % % logger:debug("send api reply ~p:~p", ToEncode),
311
311
send_udp (InSocket , CueHost , CuePort , Bin ),
312
312
ok .
313
313
314
314
send_api_tempo_update (CueHost , CuePort , InSocket , Tempo ) ->
315
315
Bin = osc :encode ([" /link-tempo-change" , " erlang" , Tempo ]),
316
316
send_udp (InSocket , CueHost , CuePort , Bin ),
317
- logger :debug (" sending link tempo update [~p ] to ~p :~p~n " , [Tempo , CueHost , CuePort ]),
317
+ logger :debug (" sending link tempo update [~p ] to ~p :~p " , [Tempo , CueHost , CuePort ]),
318
318
ok .
319
319
320
320
forward_internal_cue (CueHost , CuePort , InSocket , Path , Args ) ->
321
321
Bin = osc :encode ([" /internal-cue" , " erlang" , Path | Args ]),
322
322
send_udp (InSocket , CueHost , CuePort , Bin ),
323
- logger :debug (" forwarded internal OSC cue to ~p :~p~n " , [CueHost , CuePort ]),
323
+ logger :debug (" forwarded internal OSC cue to ~p :~p " , [CueHost , CuePort ]),
324
324
ok .
325
325
326
326
forward_cue (CueHost , CuePort , InSocket , Ip , Port , Cmd ) ->
327
327
Bin = osc :encode ([" /external-osc-cue" , inet :ntoa (Ip ), Port ] ++ Cmd ),
328
328
send_udp (InSocket , CueHost , CuePort , Bin ),
329
- logger :debug (" forwarded OSC cue to ~p :~p~n " , [CueHost , CuePort ]),
329
+ logger :debug (" forwarded OSC cue to ~p :~p " , [CueHost , CuePort ]),
330
330
ok .
331
331
332
332
0 commit comments