Lex/Flex cdrdao TOC scanner

parse/toc.L

@@ -0,0 +1,76 @@
+/* $Id: toc.L,v 1.1 2005/10/27 11:20:21 rocky Exp $ -*- C -*- */
+/* cdrdao TOC scanner */
+
+%{
+#undef yywrap
+#ifdef STANDALONE
+#include <stdio.h>
+#endif
+
+#include "toc.tab.h"
+
+  static int debug_lex=0;
+%}
+%union {
+  unsigned long int val;   /* For returning numbers.  */
+  char const *      str;   /* For returning stringss.  */
+}
+
+
+integer          [[:digit:]]+
+
+/* The below isn't octal. I'm just going by the name and pattern 
+   in the cdrdao pacct grammar.  */
+stringoctal      [[:digit:]]{3}
+
+spaces           [[:blank:]\n\r]+ 
+
+# Need to expand this to include "octal" \000 and embedded quotes.
+string           \".+\" 
+%%
+{integer} {
+  /*"*/
+  return Integer;
+}
+
+{stringoctal} {
+  /*"*/
+  return StringOctal;
+}
+
+{spaces}  {
+  return Spaces;
+}
+
+%%
+
+#if STANDALONE
+int
+main( int argc, const char **argv )
+{
+  int token;
+  
+  ++argv, --argc;  /* skip over program name */
+  debug_lex = 1;
+  if ( argc > 0 )
+    yyin = fopen( argv[0], "r" );
+  else
+    yyin = stdin;
+  
+  while ((token=yylex()) != EOF) {
+    switch (token) {
+    case StringOctal:
+      printf("StringOctal\n");
+      break;
+    case Spaces:
+      printf("Spaces\n");
+      break;
+    case Integer: 
+      printf("Integer\n");
+      break;
+    default: ;
+    }
+  }
+  return 0;
+}
+#endif