qa-local-domain

   1 #!/usr/bin/newlisp
   2
   3 ; test local domain UNIX sockets
   4
   5 (define (listener path)
   6         (set 'lsock (net-listen path))
   7         (set 'csock (net-accept lsock))
   8         (net-receive csock 'buff 1024)
   9         (net-send csock (upper-case buff))
  10         (net-close csock)
  11         (exit)
  12 )
  13
  14 (set 'pid (fork (listener "/tmp/mysock")))
  15 (println "pid:" pid)
  16
  17 (while (not (set 'conn (net-connect "/tmp/mysock")))
  18         (sleep 100))
  19
  20 (if (not conn)
  21         (begin
  22                 (println "Could not connect")
  23                 (exit)))
  24 (println "net-peer: " (net-peer conn))
  25 (println "net-local: " (net-local conn))
  26 (net-send conn "hello world")
  27
  28 (while (not (net-select conn "read" 1000))
  29         (println "waiting with net-select ..."))
  30
  31 (println "net-peek: " (net-peek conn))
  32
  33 (net-receive conn 'buff 1024)
  34 (if (= "HELLO WORLD" buff)
  35         (println buff ": Ok")
  36         (prrintn buff ": Error"))
  37
  38 (wait-pid pid)
  39
  40 (exit)
  41