Added RCS identification.

diff --git a/lang/basic/src.old/basic.lex b/lang/basic/src.old/basic.lex
index ebdb3c8..a708e9e 100644 (file)
--- a/lang/basic/src.old/basic.lex
+++ b/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; 

diff --git a/lang/basic/src.old/basic.yacc b/lang/basic/src.old/basic.yacc
index a828857..c08f750 100644 (file)
--- a/lang/basic/src.old/basic.yacc
+++ b/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"

diff --git a/lang/basic/src.old/bem.c b/lang/basic/src.old/bem.c
index a3be730..c91d606 100644 (file)
--- a/lang/basic/src.old/bem.c
+++ b/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.

diff --git a/lang/basic/src.old/bem.h b/lang/basic/src.old/bem.h
index 9a70c3a..ccf0089 100644 (file)
--- a/lang/basic/src.old/bem.h
+++ b/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

diff --git a/lang/basic/src.old/compile.c b/lang/basic/src.old/compile.c
index 0ff3039..f23e44f 100644 (file)
--- a/lang/basic/src.old/compile.c
+++ b/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;

diff --git a/lang/basic/src.old/eval.c b/lang/basic/src.old/eval.c
index fb609cd..2cddba5 100644 (file)
--- a/lang/basic/src.old/eval.c
+++ b/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
 */

diff --git a/lang/basic/src.old/func.c b/lang/basic/src.old/func.c
index e55332d..2bbddc9 100644 (file)
--- a/lang/basic/src.old/func.c
+++ b/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;

diff --git a/lang/basic/src.old/gencode.c b/lang/basic/src.old/gencode.c
index 16aa003..4364754 100644 (file)
--- a/lang/basic/src.old/gencode.c
+++ b/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;

diff --git a/lang/basic/src.old/graph.c b/lang/basic/src.old/graph.c
index 7801da7..dc68534 100644 (file)
--- a/lang/basic/src.old/graph.c
+++ b/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 */

diff --git a/lang/basic/src.old/graph.h b/lang/basic/src.old/graph.h
index 732b56e..43300be 100644 (file)
--- a/lang/basic/src.old/graph.h
+++ b/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

diff --git a/lang/basic/src.old/initialize.c b/lang/basic/src.old/initialize.c
index 26fd2e7..a98af63 100644 (file)
--- a/lang/basic/src.old/initialize.c
+++ b/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;

diff --git a/lang/basic/src.old/parsepar.c b/lang/basic/src.old/parsepar.c
index e0bfdae..67c5448 100644 (file)
--- a/lang/basic/src.old/parsepar.c
+++ b/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 */

diff --git a/lang/basic/src.old/split.c b/lang/basic/src.old/split.c
index 6928b01..54ac692 100644 (file)
--- a/lang/basic/src.old/split.c
+++ b/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!)

diff --git a/lang/basic/src.old/symbols.c b/lang/basic/src.old/symbols.c
index 4e79fb0..3b5f924 100644 (file)
--- a/lang/basic/src.old/symbols.c
+++ b/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 */

diff --git a/lang/basic/src.old/symbols.h b/lang/basic/src.old/symbols.h
index 8dee4c1..0cef2aa 100644 (file)
--- a/lang/basic/src.old/symbols.h
+++ b/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

diff --git a/lang/basic/src.old/util.c b/lang/basic/src.old/util.c
index b530071..7190318 100644 (file)
--- a/lang/basic/src.old/util.c
+++ b/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 */
 

diff --git a/lang/basic/src.old/yywrap.c b/lang/basic/src.old/yywrap.c
index b08ecc0..096e2ad 100644 (file)
--- a/lang/basic/src.old/yywrap.c
+++ b/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