*/
#include <stdio.h>
+#include <stdlib.h>
#include <ctype.h>
#define NULLSTR ((char *)0)
*
* Main program. Processes command line arguments, looking for leading:
* -q quiet mode - do not complain about bad literate script files
- * -n noisy mpde - complain about bad literate script files.
+ * -n noisy mode - complain about bad literate script files.
* -r remove cpp droppings in output.
* Expects two additional arguments, a file name for the input and a file
* name for the output file. These two names must normally be distinct.
/* Prefix the output with line pragmas */
if (prefix_str) {
- fprintf(ostream, "# 1 \"%s\"\n{-# LINE 1 \"%s\" #-}\n", prefix_str, prefix_str);
+ /* Both GHC and CPP understand the #line pragma.
+ * We used to throw in both a #line and a {-# LINE #-} pragma
+ * here, but CPP doesn't understand {-# LINE #-} so it thought
+ * the line numbers were off by one. We could put the {-# LINE
+ * #-} before the #line, but there's no point since GHC
+ * understands #line anyhow. --SDM 8/2003
+ */
+ fprintf(ostream, "#line 1 \"%s\"\n", prefix_str, prefix_str);
}
unlit(file, istream, ostream);