=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/plugin/sm1Socket.sm1,v retrieving revision 1.1.1.1 retrieving revision 1.3 diff -u -p -r1.1.1.1 -r1.3 --- OpenXM/src/kan96xx/plugin/sm1Socket.sm1 1999/10/08 02:12:05 1.1.1.1 +++ OpenXM/src/kan96xx/plugin/sm1Socket.sm1 2004/09/24 13:15:27 1.3 @@ -1,9 +1,23 @@ +% $OpenXM: OpenXM/src/kan96xx/plugin/sm1Socket.sm1,v 1.2 2000/01/16 07:55:48 takayama Exp $ [(plugin-sm1.socket) -[[$[(sm1.socket) key [args] ] extension result-object$] - [( key : open, connect, accept, select, mselect, read, write, readByte, writeByte, close.) +[ $[(sm1.socket) key [args] ] extension result-object$ + ( key : open, connect, accept, select, mselect, read, write, readByte, writeByte, close.) (Note that read and write are used for only string data.) - ] - [(See also Kan/debug/server.sm1)] + (See also Kan/debug/server.sm1) + ( ) + $ (open) [portNumber hostname] ---> [fd0 portNumber] $ + $ (accept) [fd0] ---> fd $ + $ (connect) [portNumber hostname] -> [fd portNumber] $ + $ (select) [fd time] ---> 1 (ready) or 0 $ + $ if (time < 0) then it waits until data comes. $ + $ (mselect) [[fd0 fd1 ... ] time] -> [s0 s1 s2 ... ] $ + $ (read) [fd] ---> string-obj $ + $ (write) [fd string-obj] ---> n-of-bytes-written $ + $ (readByte) [fd] ---> data(byte) $ + $ (writeByte) [fd data(byte)] ---> n-of-bytes-written $ + $ (writeByte) [fd array_of_data]---> n-of-bytes-written $ + $ (close) [fd] ---> status $ +% $ (readHTTP) [fd] ---> string-obj $ % buggy ]] putUsages