Re: [Axiom-developer] RE: [Gcl-devel] Re: axiom porting

[Camm Maguire]

Greetings, and thanks as always Mike for your heroic efforts!

"Mike Thomas" <address@hidden> writes:

> Hi Camm/Bill.
> 
> A bunch of Windows probe-file, directory and server output below.  Basically
> the server program is failing because accept won't deal with the "socket"
> it's being passed and on first glance I suspect that this is because it is
> not the right Winsock type.  I'll look further later but I'm suspicious that
> there may be a lot of work ahead here for me.
> 

Your the expert here, but I'm confused as to how you found success
earlier on if this is the case.


> Cheers
> 
> Mike Thomas
> 
> | As for bombing when the file is not there, this would appear to be an
> | error in probe-file on Windows.  The 'server' example is supposed to
> | return a blank page and continue in this case.  Please let me know if
> | there is a bug here.  (si::use-fast-links nil) and :bt if thrown into
> | the debugger.  (I do get an error on Linux when the file exists but
> | cannot be opened due to permissions, for example.)
> 
> >(probe-file "/msys/1.0")
> 
> #p"c:/msys/1.0"
> 
> >(probe-file "/msys/1.0/")
> 
> #p"c:/msys/1.0/"
> 
> >(probe-file "c:/msys/1.0/")
> 
> #p"c:/msys/1.0/"
> 
> >(probe-file "c:/msys/1.0")
> 
> #p"c:/msys/1.0"
> 

With the commits to 2.6.7pre I made yesterday, all these probe-files
to directories should return nil.  Please let me know asap if this is
not the case (still), and preferably why if you can discern the reason
easily.


> >(directory "c:/msys/1.0")
> 
> (#p"c:/msys/1.0")
> 
> >(directory "c:/msys/1.0/")
> 
> (#p"c:/msys/1.0/bin" #p"c:/msys/1.0/doc" #p"c:/msys/1.0/etc"
>  #p"c:/msys/1.0/home" #p"c:/msys/1.0/include" #p"c:/msys/1.0/lib"
>  #p"c:/msys/1.0/local" #p"c:/msys/1.0/m.ico" #p"c:/msys/1.0/mingw"
>  #p"c:/msys/1.0/msys.bat" #p"c:/msys/1.0/msys.bat~"
>  #p"c:/msys/1.0/msys.ico" #p"c:/msys/1.0/share" #p"c:/msys/1.0/ssl"
>  #p"c:/msys/1.0/uninstall")
> 
> >(open "/etc" :if-does-not-exist nil)
> 
> NIL
> 
> >(open "c:/msys/1.0" :if-does-not-exist nil)
> 
> NIL
> 
> >(open "c:/msys/1.0/" :if-does-not-exist nil)
> 
> NIL
> 
> >(open "c:/msys/1.0/msys.bat" :if-does-not-exist nil)
> 
> #<input stream "c:/msys/1.0/msys.bat">
> 

All of this is right.

> 
> >(bar 8085 #'foo)
> 
> Error in LET [or a callee]: Error "No such file or directory" on accepting
> conne
> ction to #<two-way stream 104c969c>
> 

At least on Linux, accept might fail with a EAGAIN or similar if no
connections are pending.  It is critical to this example that the call
to #'listen in #'bar correctly return t iff a connection has been
made.  You can test this with telnet from a separate shell window.
I.e.

(setq s (si::socket 8085 :server #'foo))
(listen s) -> nil (no telnet localhost 8085)
(listen s) -> t (after telnet localhost 8085)

Also, if you get a chance, perhaps you could share your opinion on
whether I may have broken what was working, or whether you feel the
initial reports of success were invalid, unstable, or premature.

Take care,


> 
> Broken at INVOKE-DEBUGGER.  Type :H for Help.
>  1 (Abort) Return to top level.
> dbl:>>:bt
> 
> #0   INVOKE-DEBUGGER
> {datum=#<conditions::internal-simple-stream-error.0>,argume
> nts=nil,loc2=#<condit...} [ihs=15]
> #1   ERROR
> {datum=conditions::internal-simple-stream-error,arguments=(:function-
> name let :f...} [ihs=14]
> #2   CLCS-UNIVERSAL-ERROR-HANDLER
> {error-name=:error,correctable=nil,function-na
> me=let,continue-format-string=("")...} [ihs=13]
> #3   ACCEPT {loc0=#<two-way stream 104c969c>} [ihs=12]
> #4   BAR {lambda-block=foo,} [ihs=7]
> #5   EVAL {loc0=nil,loc1=nil,loc2=nil,loc3=(lambda-block bar (p fn)
> ...),loc4=80
> 87,loc5=(l...} [ihs=6]
> #6   TOP-LEVEL
> {loc0=nil,loc1=0,loc2=0,loc3=nil,loc4=nil,loc5=nil,loc6=nil,loc7=
> "c:/cvs/stable/...} [ihs=5]
> #7   FUNCALL {loc0=#<compiled-function system:top-level>} [ihs=4]
> NIL
> dbl:>>:h
> 
> 
> 
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah