Changes http://wiki.axiom-developer.org/SocketsInSpad/diff
--
--removed:
-
-
-\begin{lisp}
-;; file: http.lisp
-
-(defvar |NewLine| '#\NewLine)
-
-;; some regexp stuff
-
-(defun |StringMatch| (s1 s2)
- (si::string-match s1 s2)
- )
-
-
-
-(defun |ListMatches| (&rest args)
- (si::list-matches args)
- )
-
-[65 more lines...]
<a href="uploads/http.lisp">http.lisp</a>
??changed:
-\begin{spad}
-
-)abbrev package SISOCK SiSocket
-SiSocket: with
- socketServer: (Integer, SExpression->Void) -> Void
- fileserver: SExpression -> Void
- testserver: SExpression -> Void
-
- == add
- -- exported --
- socketServer(port:Integer,serverfunc:SExpression->Void):Void ==
- WRITE_-LINE("socketServer")$Lisp
- WRITE_-LINE("")$Lisp
- s := SiSock(port,serverfunc)$Lisp
- while (1 > 0) repeat
- if not null?(SiListen(s)$Lisp)$SExpression then
- w := SiAccept(s)$Lisp
- serverfunc(w)
- SLEEP(3)$Lisp
-[55 more lines...]
+
--
forwarded from http://wiki.axiom-developer.org/[EMAIL PROTECTED]
