provide msg>osc "osc.pfo" pfo # below you fin the old interface.. feel free to use the new parser # words 'osc>list' and 'list>osc' in conjunction with a transport # stream : msg>osc 1 pack list>osc ; : osc-sender swap 2 pack "w" open-client-udp constant does> >r msg>osc r> print-atom ; "( host port -- )\tCreate a osc sender word. Parses word." doc # the sender word can be used with a single list argument like # (/some/osc/selector 123) # i.e: # > load-osc # > "localhost" 1234 osc-sender TX # then for debugging: # netcat -l -p 1234 -u # FIXME: osc receiver is broken: find a way to do a poll # : osc-receiver make-osc-rx constant does> osc:recv ; # "( port -- )\tCreate a osc receivers word. Parses word." doc # FIXME: max size? 1500 constant osc-datagram-size variable collector : osc-collector-body () collector ! osc-datagram-size swap read-pending-messages { osc>list { collector queue } for-each } for-each collector @> ; # non-blocking osc message collector. : osc-collector ` 0.0.0.0 2 pack "w" open-server-udp constant does> osc-collector-body ;