[Larceny-users] Larceny - 2008

[Ray Racine]

Merry Christmas!! 
Thanks for latest release.  Nice gift.

Not sure of Larceny's forward looking plans.  Just an FYI, I continue,
at my snail's pace, to mess around with the old tasking/threading and
socket stuff.  Its currently all over the map and Linux/ERR5RS specific.

But its starting to come together, with much left to do.  Just
mentioning it in case someone is hell bent on starting a rewrite of
sockets/tasking tomorrow.

Example:
http://squire.svn.sourceforge.net/viewvc/squire/trunk/src/scheme/io/net/sockets.sls?view=markup


Some stuff is even giving the appearance of working ...

> 
[ray at corwin scheme]$ rlwrap larceny -path $PWD -err5rs <  webserver.sls 
Larceny v0.96 "Fluoridation" (Dec 22 2007 10:19:07,
precise:Linux:unified)
larceny.heap, built on Sat Dec 22 10:21:19 PST 2007
ERR5RS mode (no libraries have been imported)

> Autoloading (w3c web httpserver web-server)
Autoloading (rnrs lists)
Autoloading (rnrs io ports)
Autoloading (rnrs control)
Autoloading (rnrs unicode)
Autoloading (rnrs bytevectors)
Autoloading (env parameters)
Autoloading (io print)
Autoloading (io epoll)
Autoloading (ffi foreign-ctools)
Autoloading (rnrs syntax-case)
Autoloading (rnrs files)
Autoloading (sys system)
Autoloading (ffi ffi-std)
Autoloading (r5rs)
Autoloading (rnrs r5rs)
Autoloading (rnrs eval)
Autoloading (rnrs mutable-strings)
Autoloading (rnrs mutable-pairs)
Autoloading (rnrs load)
Autoloading (rnrs arithmetic fixnums)
Autoloading (err5rs records syntactic)
Autoloading (larceny records printer)
Autoloading (sys system unix)
Autoloading (err5rs records procedural)
Autoloading (larceny deprecated)
Autoloading (types strings)
Autoloading (types shivers-syntax)
Autoloading (types chars)
Autoloading (rnrs records procedural)
Autoloading (sys thread)
Autoloading (env prelude)
Autoloading (adt queue)
Autoloading (sys threads-with-io)
Autoloading (io net sockets)
Autoloading (w3c web httpserver utils)

> #<thread "primordial-thread-0"> :: RUNNABLE
#<thread "primordial-thread-0"> :: RUNNING
#<thread "listener-1"> :: RUNNABLE
#<thread "primordial-thread-0"> :: BLOCKED
#<thread "listener-1"> :: RUNNING
#<thread "listener-1"> :: BLOCKED
Idle Handler Input: 1 Output: 0
Polling for I/O #<thread "listener-1">
Blocked input: ((4 . #<thread "listener-1">))
5 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 0
6 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 0
Ready In: ()  Out: () System Block: #t 
7 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 -1
Polling for I/O #<thread "listener-1">
Blocked input: ((4 . #<thread "listener-1">))
5 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 0
6 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 0
Ready In: (<ioevent flgs:1 fd:4>)  Out: () System Block: #f 
Clearing EPoll desc IN 6 OUT 5 
Clearing 6 (<ioevent flgs:1 fd:4>) IN
#<thread "listener-1"> :: RUNNABLE
Clearing 5 () OUT
#<thread "listener-1"> :: RUNNING
Accept: #<record socket> #vu8(127 0 0 1)
#<thread "http-2"> :: RUNNABLE
#<thread "listener-1"> :: BLOCKED
#<thread "http-2"> :: RUNNING
Got in port #<INPUT PORT input descriptor port 5>
#<thread "http-2"> :: BLOCKED
Idle Handler Input: 2 Output: 0
Polling for I/O #<thread "http-2">
Blocked input: ((5 . #<thread "http-2">) (4 . #<thread "listener-1">))
6 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 0
7 #vu8(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 16 0
Ready In: (<ioevent flgs:1 fd:5>)  Out: () System Block: #t 
Clearing EPoll desc IN 7 OUT 6 
Clearing 7 (<ioevent flgs:1 fd:5>) IN
#<thread "http-2"> :: RUNNABLE
Clearing 6 () OUT
#<thread "http-2"> :: RUNNING
Socket read! at 0 for 1024
Fast Read 398 bytes.
Socket read! at 0 for 1024
Fast Read -1 bytes.
#vu8(127 0 0 1): {398} "GET / HTTP/1.1\r\nHost: 127.0.0.1:8080\r
\nUser-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.1.9)
Gecko/20071025 Firefox/2.0.0.9\r\nAccept:
text/xml,application/xml,application/xhtml
+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\r
\nAccept-Language: en-us,en;q=0.5\r\nAccept-Encoding: gzip,deflate\r
\nAccept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\r\nKeep-Alive: 300\r
\nConnection: keep-alive\r\n\r\n"