[Larceny-users] Fwd: [gambit-list] Web Framework

[Felix]

David-

Larceny v0.94 supports Snow.

If there is some package that is misbehaving and you believe that it  
is Larceny's responsibility to fix it, please let us know (perhaps  
via filing a Ticket on our Trac system.)

Since v0.94 there have been some changes on our development tree that  
break Snow.  Those changes will be part of the v0.95 release of  
Larceny, so it is likely that Larceny v0.95 will not be compatible  
with the current release of Snow.  But there is a simple patch to  
Snow that I have submitted to Marc Feeley, so the problem should be  
resolved soon.

-Felix

p.s. For completeness, here is the aforementioned patch to Snow.

Index: pack/binio/v1.0.2/snow/binio.scm
===================================================================
--- pack/binio/v1.0.2/snow/binio.scm	(revision 5019)
+++ pack/binio/v1.0.2/snow/binio.scm	(working copy)
@@ -63,6 +63,14 @@
    (define binio-read-byte read-binary-uint8)
    (define binio-write-byte write-binary-uint8))

+ (larceny
+
+  (define* (binio-read-byte (port (current-input-port)))
+    (get-u8 port))
+
+  (define* (binio-write-byte n (port (current-output-port)))
+    (put-u8 port n)))
+
   (mzscheme

    (define binio-read-byte read-byte)
@@ -150,6 +158,14 @@
      (fluid-let ((port-char-encoding #f))
        (open-output-file filename))))

+ (larceny
+
+  (define (binio-open-input-file filename)
+    (open-file-input-port filename))
+
+  (define (binio-open-output-file filename)
+    (open-file-output-port filename)))
+
   (sisc

    (define (binio-open-input-file filename)
@@ -168,12 +184,22 @@

  ;;;------------------------------------------------------------------- 
---------

-(define (binio-input-port? port)
-  (input-port? port))
+(cond-expand
+ (larceny

-(define (binio-output-port? port)
-  (output-port? port))
+  (define (binio-input-port? port)
+    (and (binary-port? port) (input-port? port)))

+  (define (binio-output-port? port)
+    (and (binary-port? port) (output-port? port))))
+
+ (else
+
+  (define (binio-input-port? port)
+    (input-port? port))
+
+  (define (binio-output-port? port)
+    (output-port? port))))
+
  (define (binio-close-input-port port)
    (close-input-port port))


On Nov 3, 2007, at 12:31 PM, David Rush wrote:

> Just in case anyone is working on this...
>
> ---------- Forwarded message ----------
> From: David Rush <kumoyuki at gmail.com >
> Date: Nov 3, 2007 4:30 PM
> Subject: Re: [gambit-list] Web Framework
> To: Marc Feeley <feeley at iro.umontreal.ca>
>
> On 11/3/07, Marc Feeley <feeley at iro.umontreal.ca> wrote:
> On 3-Nov-07, at 11:48 AM, David Rush wrote:
>
> > Probably. I want to finish the CGI interface module first so that I
>
> What is your "CGI interface module"?  For your information there is a
> CGI interface package for Snow, and a MIME package.
>
> Ummm...Larceny doesn't support snow? Dealing with that is on my to- 
> do list, but I already have a long-standing system for dealing with  
> portability issues between the major implementations.
>
> david
>
> -- 
> Once you label me, you negate me
>     - Soren Kierkegaard
>
>
> -- 
> Once you label me, you negate me
>     - Soren Kierkegaard
> _______________________________________________
> Larceny-users mailing list
> Larceny-users at lists.ccs.neu.edu
> https://lists.ccs.neu.edu/bin/listinfo/larceny-users

-------------- next part --------------
HTML attachment scrubbed and removed