From f19fefe41d69a7900dd32ebfead01f64ad6cdfbd Mon Sep 17 00:00:00 2001
From: tth <tth@fubar.tetalab.org>
Date: Mon, 4 Oct 2021 23:28:19 +0200
Subject: [PATCH] more work on osc

---
 chap/OSC.tex      | 25 +++++++++++++++++++++++--
 code/listen-osc.c |  3 ++-
 2 files changed, 25 insertions(+), 3 deletions(-)

diff --git a/chap/OSC.tex b/chap/OSC.tex
index f2ba722..d83409a 100644
--- a/chap/OSC.tex
+++ b/chap/OSC.tex
@@ -50,17 +50,38 @@ tth@debian:~$
 
 \section{Exemple de code}
 
-Ecouter :
+\textbf{Ecouter :}
+
+Attention, là, nous arrivons sur un domaine plus
+hardu\footnote{Un beau néoligisme, n'est-il pas ?}.
+En effet, la mécanique interne de \texttt{liblo}
+utilise un thread d'écoute qui appelle des 
+\textsl{callbacks} préalablement "accrochés",
+\textsl{hooked} en vrai langue.
 
 \lstinputlisting[language=c]{code/listen-osc.c}
 
-Envoyer :
+\textbf{Envoyer :}
+
+Cette partie là est beaucoup plus simple.
 
 \lstinputlisting[language=c]{code/send-osc.c}
 
+J'avoue ne pas encore savoir ce que veut bien dire la
+valeur de retour.
+
 %	------------------------------------------------
 \section{En Perl}    \index{Perl}
 
+\begin{verbatim}
+use Net::OpenSoundControl::Client;
+
+$client =  Net::OpenSoundControl::Client->new(
+                    Host => $target, Port => $port)
+or die "Could not start client: $@\n";
+
+$client->send(['/proc/kcore', 'i', 61, 's', "bla"]);
+\end{verbatim}
 
 %	------------------------------------------------
 
diff --git a/code/listen-osc.c b/code/listen-osc.c
index 8815522..f142ded 100644
--- a/code/listen-osc.c
+++ b/code/listen-osc.c
@@ -5,10 +5,11 @@
 
 #define LOCAL_PORT	"9000"
 
-
 int main(int argc, char *argv[])
 {
+lo_server_thread st;
 
+st = lo_server_thread_new(LOCAL_PORT, NULL);
 
 return 0;
 }