Re: [Chicken-users] Chicken-setup 2.3 fails on Cygwin

[Patrick Brannan]

Whoops, I left some debugging refuse in what I sent in. Try this instead:

(define create-directory
  (if (and windows (not (eq? (build-platform) 'cygwin)))
      (lambda (dir)
        (when (run-verbose) (printf "  creating directory `~a' ~%~!" dir ))
        (foreign-lambda void "create_directory" c-string))
      (lambda (dir)
        (when (run-verbose) (printf "  creating directory `~a'~%~!" dir))
        (system* "mkdir -p ~a" dir) ) ) )

On 3/22/06, Patrick Brannan <address@hidden> wrote:
> This works for chicken-setup.scm create-directiory on cygwin:
>
> (define create-directory
>   (if (and windows (not (eq? (build-platform) 'cygwin)))
>       (lambda (dir)
>         (when (run-verbose) (printf "  creating directory `~a'`~a' ~%~!" dir 
> ))
>         (foreign-lambda void "create_directory" c-string))
>       (lambda (dir)
>         (when (run-verbose) (printf "  creating directory `~a'~%~!" dir))
>         (system* "mkdir -p ~a" dir) ) ) )
>
> Maybe, if others think it is ok, it should be added to chicken-setup.scm.
>
> Pat
>
> On 3/22/06, Patrick Brannan <address@hidden> wrote:
> > I can get this to duplicate as well. I wondered for a while why this
> > doesn't happen with the MINGW build and took a look at the
> > create-directory lambda in chicken-setup. I noticed that in the
> > verbose output we were not getting an echo of the create-directory
> > function. So I changed the function to this:
> >
> > (define create-directory
> >   (if windows
> >       (lambda (dir)
> >         (when (run-verbose) (printf "  win: creating directory `~a'~%~!" 
> > dir))
> >         (foreign-lambda void "create_directory" c-string))
> >       (lambda (dir)
> >         (when (run-verbose) (printf "  creating directory `~a'~%~!" dir))
> >         (system* "mkdir -p ~a" dir) ) ) )
> >
> > Sure enough it spits out "win: creating directory `numbers.egg.dir'"
> >
> > I would guess that it should use mkdir on cygwin. The question is how
> > to figure out if we are on cygwin.
> >
> > Pat
> >
> > On 3/21/06, John Cowan <address@hidden> wrote:
> > > Matthew Welland scripsit:
> > > > No idea if this is related but I had a similar problem where if the 
> > > > current
> > > > directory had a space in the path chicken-setup would fail. Running
> > > > chicken-setup in a location where the path was free of spaces worked 
> > > > fine.
> > >
> > > That's one of the classic problems with porting Unix programs to
> > > Cygwin.  Of course, it's a problem in principle on Unix too, but
> > > it doesn't come up as often.  Usually a discreet use of double-quotes
> > > around the $PATH variable solves the problem.
> > >
> > > --
> > > XQuery Blueberry DOM                            John Cowan
> > > Entity parser dot-com                           address@hidden
> > >     Abstract schemata                           http://www.ap.org
> > >     XPointer errata                             http://www.ccil.org/~cowan
> > > Infoset Unicode BOM                                 --Richard Tobin
> > >
> > >
> > > _______________________________________________
> > > Chicken-users mailing list
> > > address@hidden
> > > http://lists.nongnu.org/mailman/listinfo/chicken-users
> > >
> >
>