Added RCS identification.

lang/basic/src.old/basic.lex

@@ -1,3 +1,7 @@
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* This file contains the new lexical analizer */
 typedef struct {
 	char *name; 

lang/basic/src.old/basic.yacc

@@ -458,4 +458,7 @@ exprlist: expression	{ typetable[0]= $1; $$=1;}
 	| exprlist ',' expression { typetable[$1]=$3;$$=$1+1;}
 
 %%
+#ifndef NORCSID
+static char rcs_id[]	= "$Header$" ;
+#endif
 #include "lex.c"

lang/basic/src.old/bem.c

@@ -1,5 +1,12 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[]	= "$Header$" ;
+static char rcs_bem[]	= RCS_BEM ;
+static char rcs_symb[]	= RCS_SYMB ;
+static char rcs_graph[]	= RCS_GRAPH ;
+#endif
+
 /* Author: M.L. Kersten
 **
 ** This is the main routine for the BASIC-EM frontend.

lang/basic/src.old/bem.h

@@ -9,6 +9,10 @@
 #include "graph.h"
 #include "y.tab.h"
 
+#ifndef NORCSID
+# define RCS_BEM	"$Header$"
+#endif
+
 #define POINTERSIZE	4
 #define MAXINT		32768
 #define MININT		-32767

lang/basic/src.old/compile.c

@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* compile the next program in the list */
 
 FILE *yyin;

lang/basic/src.old/eval.c

@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* Here you find all routines to evaluate expressions and
    generate code for assignment statements
 */

lang/basic/src.old/func.c

@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* expression types for predefined functions are assembled */
 int	typetable[10];
 int	exprlimit;

lang/basic/src.old/gencode.c

@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* Here we find all routines dealing with pure EM code generation */
 
 static int	emlabel=1;

lang/basic/src.old/graph.c

@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 List *forwardlabel=0;
 
 /* Line management is handled here */

lang/basic/src.old/graph.h

@@ -1,4 +1,9 @@
 #
+
+#ifndef NORCSID
+# define RCS_GRAPH	"$Header$"
+#endif
+
 /* 
 ** The control graph is represented by a multi-list structure.
 ** The em code is stored on the em intermediate file already

lang/basic/src.old/initialize.c

@@ -1,5 +1,10 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
+
 /* generate temporary files etc */
 
 FILE	*emfile;

lang/basic/src.old/parsepar.c

@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 int	listing;		/* -l listing required */
 int	debug;			/* -d compiler debugging */
 int	wflag=1;		/* -w no warnings */

lang/basic/src.old/split.c

@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* Split the intermediate code into procedures.
    This is necessary to make the EM code fit on
    smaller machines. (for the Peephole optimizer!)

lang/basic/src.old/symbols.c

@@ -1,4 +1,9 @@
 #include "bem.h"
+
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* Symboltable management module */
 
 int	deftype[128];		/* default type declarer */

lang/basic/src.old/symbols.h

@@ -1,3 +1,7 @@
+#ifndef NORCSID
+# define RCS_SYMB	"$Header$"
+#endif
+
 #define NIL	0
 #define TRUE	1
 #define FALSE	0

lang/basic/src.old/util.c

@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 #define abs(X)  (X>=0?X:-X)
 /* Miscelaneous routines can be found here */
 

lang/basic/src.old/yywrap.c

@@ -1,5 +1,9 @@
 #include "bem.h"
 
+#ifndef NORSCID
+static char rcs_id[] = "$Header$" ;
+#endif
+
 /* Author: M.L. Kersten
 ** yywrap is called upon encountering endoffile on yyin.
 ** when more input files are present, it moves to the next