+# $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
+#ifndef NORCSID
+#define RCS_ACK "$Header$"
+#endif
+
/****************************************************************************/
/* User settable options */
/****************************************************************************/
#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
+#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 */
/* */
/***************************************************************/
+#ifndef NORCSID
+#define RCS_DMACH "$Header$"
+#endif
+
typedef struct {
char *ma_name ; /* The name of the machine */
#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 */
#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 */
+#ifndef NORCSID
+#define RCS_GROWS "$Header$"
+#endif
+
/* struct used to identify and do bookkeeping for growing strings */
typedef struct {
#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,
+#ifndef NORCSID
+#define RCS_LIST "$Header$"
+#endif
+
struct ca_elem {
struct ca_elem *ca_next; /* The link */
char *ca_cont; /* The contents */
#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();
#define ASSERT(p)
#endif
+#ifndef NORCSID
+static char rcs_id[] = "$Header$" ;
+#endif
+
/* avoid break bug */
#ifdef pdp11
#define GRANULE 64
#include <stdio.h>
#include <ctype.h>
+#ifndef NORCSID
+static char rcs_id[] = "$Header$" ;
+#endif
+
char *fname = 0 ;
char dname[200] ;
char *tail ;
#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 */
#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 */
#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();
#include "ack.h"
+#ifndef NORCSID
+static char rcs_id[] = "$Header$" ;
+#endif
+
/* The processing of string valued variables,
this is an almost self contained module.
#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 */
/****************************************************************************/
+#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 */
#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;