Added RCS identification.
This commit is contained in:
parent
822b1c557c
commit
c2f189c855
|
@ -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"
|
||||
|
||||
#ifndef NORCSID
|
||||
static char rcs_id[] = "$Header$" ;
|
||||
#endif
|
||||
|
||||
#undef EXTERN
|
||||
#define EXTERN
|
||||
|
||||
#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 *machine; /* The machine id */
|
||||
EXTERN char *rts; /* The runtime-system id */
|
||||
|
|
|
@ -4,6 +4,10 @@
|
|||
/* */
|
||||
/***************************************************************/
|
||||
|
||||
#ifndef NORCSID
|
||||
#define RCS_DMACH "$Header$"
|
||||
#endif
|
||||
|
||||
|
||||
typedef struct {
|
||||
char *ma_name ; /* The name of the machine */
|
||||
|
|
|
@ -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 */
|
||||
|
|
|
@ -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 */
|
||||
|
|
|
@ -1,3 +1,7 @@
|
|||
#ifndef NORCSID
|
||||
#define RCS_GROWS "$Header$"
|
||||
#endif
|
||||
|
||||
/* struct used to identify and do bookkeeping for growing strings */
|
||||
|
||||
typedef struct {
|
||||
|
|
|
@ -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,
|
||||
|
|
|
@ -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 */
|
||||
|
|
|
@ -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();
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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 */
|
||||
|
|
|
@ -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 */
|
||||
|
|
|
@ -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();
|
||||
|
|
|
@ -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.
|
||||
|
||||
|
|
|
@ -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 */
|
||||
/****************************************************************************/
|
||||
|
|
|
@ -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 */
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue