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