blob: a39aec680a9ec59f4c7cce15dd4afbacaba68b10 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
Guile-OSC: Open Sound Control for Guile Scheme
==============================================
Guile-OSC is a Guile wrapper for [liblo](https://github.com/radarsat1/liblo),
enabling Open Sound Control clients and servers to be implemented from Scheme.
Getting started
---------------
You will need the development files for Guile and liblo installed, as well as
[Meson](https://mesonbuild.com/). Then:
```
$ git clone https://github.com/taw10/guile-osc.git guile-osc
$ cd guile-osc
$ meson setup build
$ ninja -C build
$ sudo ninja -C build install
```
Then, to receive OSC messages from within a Guile program:
```
(use-modules (open-sound-control server-thread))
(define osc-server (make-osc-server-thread "osc.udp://:7770"))
(add-osc-method osc-server
"/my/osc/method" ;; Method name
"fi" ;; Argument types (see liblo manual)
(lambda (float-arg int-arg)
(do-something ...)))
(add-osc-method osc-server
"/my/other/method" ;; Method name
"" ;; No arguments
(lambda ()
(do-stuff ...)))
```
To define a wildcard method, which matches everything, use `add-osc-wildcard`
instead of `add-osc-method`, leave the method name out but keep everything
else.
If the separate server thread doesn't work in your application, there's also a
blocking server option:
```
(use-modules (open-sound-control server))
(define s (make-osc-server "osc.udp://:7770"))
(add-osc-method s ....)
(osc-recv s) ;; Blocks for 1 second, or until a message is received
```
You can even have multiple blocking servers at once: `(osc-recv server1 server2)`.
To send messages (with parameters):
```
(use-modules (open-sound-control client))
(define osc-send-addr (make-osc-address "osc.udp://localhost:7771"))
(osc-send osc-send-addr "/their/osc/method" 1 2 4)
(osc-send osc-send-addr "/their/other/method" "string-arg")
(osc-send osc-send-addr "/yet/another/method" 0.3 "hello")
```
To send messages "from" a particular server, e.g. to communicate
bidirectionally via a TCP connection, use `osc-send-from`. For example:
```
(define srv (make-osc-server "osc.tcp://:8000"))
(define dst (make-osc-address "osc.tcp://192.168.178.35:8000"))
(osc-send-from dst srv "/method/name" 1 2 3)
```
Licence
-------
LGPL 2.1, the same as liblo itself.
|