From: em <none@none>
Date: Tue, 27 Nov 1984 23:13:28 +0000 (+0000)
Subject: Added RCS identification.
X-Git-Tag: release-5-5~5952
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=455cd930ec060d689d177ffedec4049cfb8d8d5e;p=ack.git

Added RCS identification.
---

diff --git a/lang/basic/src.old/basic.lex b/lang/basic/src.old/basic.lex
index ebdb3c82a..a708e9ef3 100644
--- 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 a8288579c..c08f750eb 100644
--- 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 a3be73033..c91d60675 100644
--- 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 9a70c3ade..ccf00892b 100644
--- 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 0ff30393b..f23e44ff7 100644
--- 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 fb609cd16..2cddba508 100644
--- 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 e55332d67..2bbddc9aa 100644
--- 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 16aa0030c..436475460 100644
--- 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 7801da73e..dc68534b3 100644
--- 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 732b56e50..43300bec5 100644
--- 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 26fd2e70b..a98af6319 100644
--- 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 e0bfdae65..67c5448e4 100644
--- 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 6928b01cd..54ac69222 100644
--- 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 4e79fb035..3b5f9242b 100644
--- 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 8dee4c116..0cef2aa38 100644
--- 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 b53007156..719031843 100644
--- 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 b08ecc0c7..096e2ad25 100644
--- 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