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
#include
#include
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
