@@ -1,3 +1,4 @@
+# $Header$
HFILES=ack.h list.h trans.h data.h dmach.h grows.h
DSRC=list.c data.c main.c scan.c svars.c trans.c util.c rmach.c run.c grows.c\
files.c
@@ -1,3 +1,7 @@
+#ifndef NORCSID
+#define RCS_ACK "$Header$"
+#endif
+
/****************************************************************************/
/* User settable options */
@@ -2,8 +2,15 @@
#include "list.h"
#include "trans.h"
+static char rcs_id[] = "$Header$" ;
#undef EXTERN
#define EXTERN
#include "data.h"
+static char rcs_data[] = RCS_DATA ;
+#define RCS_DATA "$Header$"
EXTERN char *stopsuffix; /* Suffix to stop at */
EXTERN char *machine; /* The machine id */
EXTERN char *rts; /* The runtime-system id */
@@ -4,6 +4,10 @@
/* */
/***************************************************************/
+#define RCS_DMACH "$Header$"
typedef struct {
char *ma_name ; /* The name of the machine */
@@ -22,6 +22,10 @@
#include "../../h/em_path.h"
setfiles(phase) register trf *phase ; {
/* Set the out structure according to the in structure,
the transformation and some global data */
@@ -24,6 +24,11 @@
#include "ack.h"
#include "grows.h"
+static char rcs_grows[] = RCS_GROWS ;
gr_add(id,c) register growstring *id ; char c ; {
if ( id->gr_size==id->gr_max) {
if ( id->gr_size==0 ) { /* The first time */
+#define RCS_GROWS "$Header$"
/* struct used to identify and do bookkeeping for growing strings */
@@ -18,6 +18,11 @@
+static char rcs_list[] = RCS_LIST ;
/* List handling, operations allowed:
adding strings to the list,
throwing away whole lists,
+#define RCS_LIST "$Header$"
struct ca_elem {
struct ca_elem *ca_next; /* The link */
char *ca_cont; /* The contents */
@@ -23,6 +23,11 @@
#include <signal.h>
+static char rcs_ack[] = RCS_ACK ;
static int sigs[] = { SIGINT, SIGHUP, SIGTERM, 0 } ;
extern char *getenv();
@@ -29,6 +29,10 @@ char *s;
#define ASSERT(p)
#endif
/* avoid break bug */
#ifdef pdp11
#define GRANULE 64
@@ -18,6 +18,10 @@
#include <stdio.h>
#include <ctype.h>
char *fname = 0 ;
char dname[200] ;
char *tail ;
+static char rcs_dmach[] = RCS_DMACH ;
/************************************************************************/
/* Read machine definitions and transformations */
@@ -21,6 +21,10 @@
#define ARG_MORE 40 /* The size of args chunks to allocate */
static char **arglist ; /* The first argument */
@@ -20,6 +20,10 @@
enum f_path setpath() { /* Try to find a transformation path */
start_scan();
@@ -17,6 +17,10 @@
/* The processing of string valued variables,
this is an almost self contained module.
@@ -21,6 +21,11 @@
+static char rcs_trans[] = RCS_TRANS ;
/* Routines for transforming from one file type to another */
+#define RCS_TRANS "$Header$"
/* This structure is the center of all actions */
/* It contains the description of all phases,
the suffices they consume and produce and various properties */
@@ -26,6 +26,10 @@
extern char *progname ;
extern int w_flag ;
extern int n_error;