[gambit-list] direction of a tcp object port?

Bob McIsaac bobmc at fcibroadband.com
Tue Jan 29 00:05:43 EST 2008


Hi:

How does one alter the directionality of a tcp object port? It defaults
to input-port which results in an exception for a write form.
-Bob

(define *server-port* 5603)

(define (start-tcp)
  (define sp (open-tcp-server
          (list port-number: *server-port*
            ;;direction: input-output
            )))
 
  ;;(port-settings-set! (list direction: 'input-output))
 
  (if (port? sp)
      (display "is-a-port\n")
      (display "not-a-port\n"))
 
  (if (input-port? sp)
      (display "is-a-input-port\n"))
 
  (if (output-port? sp)
      (display "is-a-output-port\n"))
  sp)






More information about the Gambit-list mailing list