Re: [Chicken-users] Win32 Threading Issue

[Graham Fawcett]

On Thu, Mar 27, 2008 at 6:12 PM, Raymond Medeiros
[EMAIL PROTECTED] wrote:

  can someone give me a reasonable explanation as to why this would not
  work on Win32 but works properly on Linux?
  what am i missing here?

Just curious, in what way doesn't it work?
Graham


  (use tcp-server)

  (thread-start!
(make-thread
  (lambda ()
((make-tcp-server
   (tcp-listen 9000)
   (lambda ()
 (write-line (conc response:  (read)
 #t))
  ))
  (thread-yield!)

  (define send-data
(lambda (ip port msg)
  (define-values (i o) (tcp-connect (-string ip) port))
  (write msg o)
  (let ((result (read-line i)))
(close-input-port i)
(close-output-port o) result)))


  (letrec ((loop
 (lambda ()
   (pp (send-data 127.0.0.1 9000 hi))
   (loop
(loop))



  ___
  Chicken-users mailing list
  Chicken-users@nongnu.org
  http://lists.nongnu.org/mailman/listinfo/chicken-users



___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users

Re: [Chicken-users] Win32 Threading Issue

[Hans Bulfone]

hi,

On Thu, Mar 27, 2008 at 06:12:15PM -0400, Raymond Medeiros wrote:

 (define send-data
   (lambda (ip port msg)
 (define-values (i o) (tcp-connect (-string ip) port))
 (write msg o)
 (let ((result (read-line i)))
   (close-input-port i)
   (close-output-port o) result)))

if i had to guess i'd try to move the (close-output-port o) before the
read-line.

but i don't have windows.

hthbye,
hans.


___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users

[Chicken-users] Win32 Threading Issue

[Raymond Medeiros]

can someone give me a reasonable explanation as to why this would not  
work on Win32 but works properly on Linux?

what am i missing here?

(use tcp-server)

(thread-start!
  (make-thread
(lambda ()
  ((make-tcp-server
 (tcp-listen 9000)
 (lambda ()
   (write-line (conc response:  (read)
   #t))
))
(thread-yield!)

(define send-data
  (lambda (ip port msg)
(define-values (i o) (tcp-connect (-string ip) port))
(write msg o)
(let ((result (read-line i)))
  (close-input-port i)
  (close-output-port o) result)))


(letrec ((loop
   (lambda ()
 (pp (send-data 127.0.0.1 9000 hi))
 (loop
  (loop))



___
Chicken-users mailing list
Chicken-users@nongnu.org
http://lists.nongnu.org/mailman/listinfo/chicken-users