Hello, Some C header files have this odd '#ident' directive. For example, /usr/include/vte/vte.h : * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifndef vte_vte_h_included #define vte_vte_h_included #ident "$Id: vte.h,v 1.78 2004/05/01 07:12:51 nalin Exp $" #include <sys/types.h> #include <stdio.h> #include <stdlib.h> So, here's a patch to ignore these things. It's basically a copy'n'paste of the code of the pragma :: CLexer Duncan Index: CLexer.hs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/tools/c2hs/c/CLexer.hs,v retrieving revision 1.3 diff -U3 -r1.3 CLexer.hs --- CLexer.hs 19 Jan 2005 18:34:46 -0000 1.3 +++ CLexer.hs 9 May 2005 11:33:54 -0000 @@ -504,6 +504,7 @@ >||< whitespace >||< linedir >||< pragma + >||< rcsident -- whitespace (follows K&R A2.1) -- @@ -555,6 +556,17 @@ where ppwhite = (char ' ' >|< char '\t')`star` epsilon +-- #itent directive, eg used by rcs/cvs +-- +-- * we simply ignore any #itent (but take care to update the position +-- information) +-- +rcsident :: CLexer +rcsident = char '#' +> ppwhite +> string "ident" +> anyButNL`star` char '\n' + `lexmeta` \_ pos ns -> (Nothing, retPos pos, ns, Nothing) + where + ppwhite = (char ' ' >|< char '\t')`star` epsilon + -- identifiers and keywords (follows K&R A2.3 and A2.4) -- identOrKW :: CLexer