examples/client

   1 #!/usr/bin/newlisp
   2
   3 ;;  client for  client/server demo
   4 ;;
   5 ;;  USAGE: client hostName
   6 ;;
   7 ;; 'hostName' contains a string with the name or IP number
   8 ;; of the computer running the server application
   9 ;;
  10 ;; The client prompts for input and sends it to the
  11 ;; server which sends it back converted to uppercase
  12 ;;
  13 ;; The server has to be started first in a different
  14 ;; terminal window or on a different computer.
  15 ;;
  16 ;; v 1.3
  17 ;;
  18
  19 (define (net-client-receive socket , buf)
  20   (net-receive socket 'buf 256)
  21   (print "\n" buf "\ninput:")
  22   (if (= buf "bye bye!") (exit))
  23   (net-send socket (read-line)))
  24
  25 (define (client host-computer)
  26   (set 'socket (net-connect host-computer 1111))
  27   (if (not socket)
  28     (print "could not connect, is the server started?\n")
  29     (while true (net-client-receive socket))))
  30
  31 (if (not (main-args 2))
  32   (begin
  33     (print "USAGE: client hostName\n")
  34     (exit)))
  35
  36 (client (main-args 2))
  37 (exit)