newlispfanclub.alh.net

Code: Select all

;; socket.lsp

(context 'socket)

;; return the number of bytes which are ready to read
;; throw error if connection is closed
(define (net-peek-ex s)
  (unless (net-peek s)
	  (throw-error "connection is closed")))

;; read specified size of data from connection in specified milliseconds
;; s means socket
;; timeout means waiting for milliseconds
;; return the receivied data
;; return () if timeout
(define (read-data s timeout number)
  (let ((t (time-of-day)) (r 0))
    (catch
     (while true
	    (begin 
	      (sleep 1)
	      (set 'r (net-peek-ex s))
	      (if (> r 0) (throw r))
	      (if (> (- (time-of-day) t) timeout) (throw -1))
	      )) 'q)
    (if (!= -1 q)
	(begin (net-receive s buffer (min q number)) buffer)
	'()
	)))


(define (test)
  ;;(set 's (net-connect "localhost" 7777))
  (set 's (net-connect "www.baidu.com" 80))
  (let (x (read-data s 50 10 buff))
    (if x (println x) (println "nil:" x))
  ))

Code: Select all

(= -1 q)
to
(> (int q) -1)

Code: Select all

(throw-error "connection is closed")

Code: Select all

    (if (!= -1 q)