Re: [Chicken-users] [BUG] [1.74] foreign-parse and comments

[felix winkelmann]

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