next up previous contents
Nächste Seite: Reguläre Ausdrücke Aufwärts: Erweiterungen in der zweiten Vorherige Seite: Mini-Server   Inhalt

Mini-Client

Der Client liest eine Zeile von der Standard-Eingabe, schickt sie an den Server und gibt die Antwort aus.



(define port 9000)

(define (main)
  (let ((sd '?)
        (line "")
        (ret ""))
    (set! sd (tcp-connect "127.0.0.1" port ))
    (if (not (null? sd))
        (begin
          (while (string=? line "")
             (set! line (read-line)))
          (display "-->")
          (set! line (read-line ))
          (display "line before while: ")
          (display line)
          (newline)
          (while (not (eof-object? line))
            (set! ret (tcp-writen sd line (string-length line)))
            (set! line (tcp-readline sd))
            (display "response: ")
            (display line)
            (newline)
            (display "-->")
            (set! line (read-line )))
          (tcp-close sd)
          (display "client: connection closed!")
          (newline))
        (begin
          (display "connect request rejected!")
          (newline)))))



Georg P. Loczewski 2003-07-18

Impressum und Datenschutz
access counter