[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] [BUG] [1.74] foreign-parse and comments
From: |
felix winkelmann |
Subject: |
Re: [Chicken-users] [BUG] [1.74] foreign-parse and comments |
Date: |
Tue, 4 Jan 2005 18:35:57 +0100 |
On 04 Jan 2005 16:02:32 +0100, Nicolas Pelletier
<address@hidden> wrote:
> Hello,
>
> I stumbled today on the following problem:
>
> toto.h:
> /* **/
>
Gee, what a stupid bug. Sorry for that. Here is a patch for easyffi.l:
*** 57,71 ****
'pp-end)
(yycontinue) ) )
(loop) ) ) )
! "/*" (let loop ()
! (let ([c (yygetc)])
! (cond [(eq? 'eof c) (parsing-error
"unexpected end of comment")]
! [(char=? #\newline c) (loop)]
! [(char=? c #\*)
! (if (eq? #\/ (yygetc))
(yycontinue)
! (loop) ) ]
! [else (loop)] ) ) )
"enum" 'enum
"typedef" 'typedef
"extern" 'extern
--- 57,71 ----
'pp-end)
(yycontinue) ) )
(loop) ) ) )
! "/*" (let loop ([c (yygetc)])
! (cond [(eq? 'eof c) (parsing-error
"unexpected end of comment")]
! [(char=? #\newline c) (loop
(yygetc))]
! [(char=? c #\*)
! (let ([c2 (yygetc)])
! (if (eq? #\/ c2)
(yycontinue)
! (loop c2) ) ) ]
! [else (loop (yygetc))] ) )
"enum" 'enum
"typedef" 'typedef
"extern" 'extern
Diff finished at Tue Jan 4 18:33:41
cheers,
felix