From 2460e49f8f4ac809bb8600a7f792e4b0d03a8f29 Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <icculus@icculus.org>
Date: Sat, 28 Feb 2009 14:52:05 -0500
Subject: [PATCH] Hacks to lemon parser generator to fit my needs.

Don't make an external header (or require makeheaders), let me specify the
 path to lempar.c template, etc.
---
 CMakeLists.txt |  2 +-
 misc/lemon.c   | 53 ++++++++++++++++++++++++++++++++++++++++++++++++--
 2 files changed, 52 insertions(+), 3 deletions(-)

diff --git a/CMakeLists.txt b/CMakeLists.txt
index f3adec0c..498b755a 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -59,7 +59,7 @@ ADD_CUSTOM_COMMAND(
     DEPENDS lemon
     WORKING_DIRECTORY "${CMAKE_CURRENT_SOURCE_DIR}/misc"
     COMMAND "${LEMON}"
-    ARGS -l -q "${CMAKE_CURRENT_SOURCE_DIR}/mojoshader_parser_hlsl.lemon"
+    ARGS -l -q "-T${CMAKE_CURRENT_SOURCE_DIR}/misc/lempar.c" "${CMAKE_CURRENT_SOURCE_DIR}/mojoshader_parser_hlsl.lemon"
 )
 
 ADD_LIBRARY(mojoshader STATIC
diff --git a/misc/lemon.c b/misc/lemon.c
index 9d9bcdcf..bc7c39e2 100644
--- a/misc/lemon.c
+++ b/misc/lemon.c
@@ -1,3 +1,9 @@
+/*
+ * My changes over the original lemon.c from SQLite are encased in
+ *  #if __MOJOSHADER__ blocks.  --ryan.
+ */
+#define __MOJOSHADER__ 1
+
 /*
 ** This file contains all sources (including headers) to the LEMON
 ** LALR(1) parser generator.  The sources have been combined into a
@@ -1389,6 +1395,17 @@ static void handle_D_option(char *z){
   *z = 0;
 }
 
+#if __MOJOSHADER__
+static char *user_templatename = NULL;
+static void handle_T_option(char *z){
+  user_templatename = malloc( lemonStrlen(z)+1 );
+  if( user_templatename==0 ){
+    fprintf(stderr,"out of memory\n");
+    exit(1);
+  }
+  strcpy(user_templatename, z);
+}
+#endif
 
 /* The main program.  Parse the command line and do it... */
 int main(argc,argv)
@@ -1407,6 +1424,9 @@ char **argv;
     {OPT_FLAG, "b", (char*)&basisflag, "Print only the basis in report."},
     {OPT_FLAG, "c", (char*)&compress, "Don't compress the action table."},
     {OPT_FSTR, "D", (char*)handle_D_option, "Define an %ifdef macro."},
+#if __MOJOSHADER__
+    {OPT_FSTR, "T", (char*)handle_T_option, "Specify a template file."},
+#endif
     {OPT_FLAG, "g", (char*)&rpflag, "Print grammar without actions."},
     {OPT_FLAG, "m", (char*)&mhflag, "Output a makeheaders compatible file."},
     {OPT_FLAG, "l", (char*)&nolinenosflag, "Do not print #line statements."},
@@ -1422,7 +1442,10 @@ char **argv;
   OptInit(argv,options,stderr);
   if( version ){
      printf("Lemon version 1.0\n");
-     exit(0); 
+#if __MOJOSHADER__
+     printf(" (...with MojoShader hacks.)\n");
+#endif
+     exit(0);
   }
   if( OptNArgs()!=1 ){
     fprintf(stderr,"Exactly one filename argument is required.\n");
@@ -3070,9 +3093,27 @@ struct lemon *lemp;
   static char templatename[] = "lempar.c";
   char buf[1000];
   FILE *in;
-  char *tpltname;
+  char *tpltname = 0;
   char *cp;
 
+  #if __MOJOSHADER__
+  if (user_templatename != 0) {
+    if( access(user_templatename,004)==-1 ){
+      fprintf(stderr,"Can't find the parser driver template file \"%s\".\n",
+        user_templatename);
+      lemp->errorcnt++;
+      return 0;
+    }
+    in = fopen(user_templatename,"rb");
+    if( in==0 ){
+      fprintf(stderr,"Can't open the template file \"%s\".\n",user_templatename);
+      lemp->errorcnt++;
+      return 0;
+    }
+    return in;
+  }
+  #endif
+
   cp = strrchr(lemp->filename,'.');
   if( cp ){
     sprintf(buf,"%.*s.lt",(int)(cp-lemp->filename),lemp->filename);
@@ -3585,16 +3626,24 @@ int mhflag;     /* Output in makeheaders format if true */
   tplt_xfer(lemp->name,in,out,&lineno);
 
   /* Generate #defines for all tokens */
+#if __MOJOSHADER__
+  if( 1 ){
+#else
   if( mhflag ){
+#endif
     char *prefix;
+#if !__MOJOSHADER__
     fprintf(out,"#if INTERFACE\n"); lineno++;
+#endif
     if( lemp->tokenprefix ) prefix = lemp->tokenprefix;
     else                    prefix = "";
     for(i=1; i<lemp->nterminal; i++){
       fprintf(out,"#define %s%-30s %2d\n",prefix,lemp->symbols[i]->name,i);
       lineno++;
     }
+#if !__MOJOSHADER__
     fprintf(out,"#endif\n"); lineno++;
+#endif
   }
   tplt_xfer(lemp->name,in,out,&lineno);