Added RCS identification.

This commit is contained in:
keie 1984-08-17 14:44:24 +00:00
parent 822b1c557c
commit c2f189c855
20 changed files with 85 additions and 0 deletions

View file

@ -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

View file

@ -1,3 +1,7 @@
#ifndef NORCSID
#define RCS_ACK "$Header$"
#endif
/****************************************************************************/
/* User settable options */
/****************************************************************************/

View file

@ -2,8 +2,15 @@
#include "list.h"
#include "trans.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
#undef EXTERN
#define EXTERN
#include "data.h"
#ifndef NORCSID
static char rcs_data[] = RCS_DATA ;
#endif

View file

@ -1,3 +1,7 @@
#ifndef NORCSID
#define RCS_DATA "$Header$"
#endif
EXTERN char *stopsuffix; /* Suffix to stop at */
EXTERN char *machine; /* The machine id */
EXTERN char *rts; /* The runtime-system id */

View file

@ -4,6 +4,10 @@
/* */
/***************************************************************/
#ifndef NORCSID
#define RCS_DMACH "$Header$"
#endif
typedef struct {
char *ma_name ; /* The name of the machine */

View file

@ -22,6 +22,10 @@
#include "data.h"
#include "../../h/em_path.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
setfiles(phase) register trf *phase ; {
/* Set the out structure according to the in structure,
the transformation and some global data */

View file

@ -24,6 +24,11 @@
#include "ack.h"
#include "grows.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
static char rcs_grows[] = RCS_GROWS ;
#endif
gr_add(id,c) register growstring *id ; char c ; {
if ( id->gr_size==id->gr_max) {
if ( id->gr_size==0 ) { /* The first time */

View file

@ -1,3 +1,7 @@
#ifndef NORCSID
#define RCS_GROWS "$Header$"
#endif
/* struct used to identify and do bookkeeping for growing strings */
typedef struct {

View file

@ -18,6 +18,11 @@
#include "ack.h"
#include "list.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
static char rcs_list[] = RCS_LIST ;
#endif
/* List handling, operations allowed:
adding strings to the list,
throwing away whole lists,

View file

@ -1,3 +1,7 @@
#ifndef NORCSID
#define RCS_LIST "$Header$"
#endif
struct ca_elem {
struct ca_elem *ca_next; /* The link */
char *ca_cont; /* The contents */

View file

@ -23,6 +23,11 @@
#include "data.h"
#include <signal.h>
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
static char rcs_ack[] = RCS_ACK ;
#endif
static int sigs[] = { SIGINT, SIGHUP, SIGTERM, 0 } ;
extern char *getenv();

View file

@ -29,6 +29,10 @@ char *s;
#define ASSERT(p)
#endif
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
/* avoid break bug */
#ifdef pdp11
#define GRANULE 64

View file

@ -18,6 +18,10 @@
#include <stdio.h>
#include <ctype.h>
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
char *fname = 0 ;
char dname[200] ;
char *tail ;

View file

@ -24,6 +24,11 @@
#include "data.h"
#include <stdio.h>
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
static char rcs_dmach[] = RCS_DMACH ;
#endif
/************************************************************************/
/* */
/* Read machine definitions and transformations */

View file

@ -21,6 +21,10 @@
#include "data.h"
#include <signal.h>
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
#define ARG_MORE 40 /* The size of args chunks to allocate */
static char **arglist ; /* The first argument */

View file

@ -20,6 +20,10 @@
#include "trans.h"
#include "data.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
enum f_path setpath() { /* Try to find a transformation path */
start_scan();

View file

@ -17,6 +17,10 @@
#include "ack.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
/* The processing of string valued variables,
this is an almost self contained module.

View file

@ -21,6 +21,11 @@
#include "grows.h"
#include "data.h"
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
static char rcs_trans[] = RCS_TRANS ;
#endif
/****************************************************************************/
/* Routines for transforming from one file type to another */
/****************************************************************************/

View file

@ -1,3 +1,7 @@
#ifndef NORCSID
#define RCS_TRANS "$Header$"
#endif
/* This structure is the center of all actions */
/* It contains the description of all phases,
the suffices they consume and produce and various properties */

View file

@ -26,6 +26,10 @@
#include <ctype.h>
#include <stdio.h>
#ifndef NORCSID
static char rcs_id[] = "$Header$" ;
#endif
extern char *progname ;
extern int w_flag ;
extern int n_error;