1987-03-09 19:15:41 +00:00
|
|
|
/*
|
|
|
|
* (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|
|
|
* See the copyright notice in the ACK home directory, in the file "Copyright".
|
|
|
|
*/
|
1984-08-17 14:44:24 +00:00
|
|
|
#ifndef NORCSID
|
1994-06-24 11:31:16 +00:00
|
|
|
#define RCS_ACK "$Id$"
|
1984-08-17 14:44:24 +00:00
|
|
|
#endif
|
|
|
|
|
1984-06-21 10:57:59 +00:00
|
|
|
/****************************************************************************/
|
|
|
|
/* User settable options */
|
|
|
|
/****************************************************************************/
|
|
|
|
|
|
|
|
#define FRONTENDS "fe" /* The front-end definitions */
|
1987-02-09 17:10:29 +00:00
|
|
|
#define TMPNAME "Ack_%x" /* Naming of temp. files */
|
1984-06-21 10:57:59 +00:00
|
|
|
|
|
|
|
/****************************************************************************/
|
|
|
|
/* Internal mnemonics, should not be tinkered with */
|
|
|
|
/****************************************************************************/
|
|
|
|
|
|
|
|
/* The names of some string variables */
|
|
|
|
|
|
|
|
#define HOME "EM"
|
|
|
|
#define RTS "RTS"
|
|
|
|
#define HEAD "HEAD"
|
|
|
|
#define TAIL "TAIL"
|
|
|
|
#define SRC "SOURCE"
|
|
|
|
#define LIBVAR "LNAME"
|
1987-02-26 12:44:11 +00:00
|
|
|
#define SUFFIX "SUFFIX"
|
1984-06-21 10:57:59 +00:00
|
|
|
|
|
|
|
/* Intended for flags, possibly in bit fields */
|
|
|
|
|
|
|
|
#define YES 1
|
|
|
|
#define NO 0
|
|
|
|
#define MAYBE 2
|
|
|
|
|
|
|
|
#define EXTERN extern
|
|
|
|
|
|
|
|
#define SUFCHAR '.' /* Start of SUFFIX in file name */
|
|
|
|
#define SPACE ' '
|
|
|
|
#define TAB '\t'
|
|
|
|
#define EQUAL '='
|
|
|
|
#define S_VAR '{' /* Start of variable */
|
|
|
|
#define C_VAR '}' /* End of variable */
|
|
|
|
#define A_VAR '?' /* Variable alternative */
|
|
|
|
#define BSLASH '\\' /* Backslash */
|
|
|
|
#define STAR '*' /* STAR */
|
|
|
|
#define C_IN '<' /* Token specifying input */
|
|
|
|
#define C_OUT '>' /* Token specifying output */
|
|
|
|
#define S_EXPR '(' /* Start of expression */
|
|
|
|
#define C_EXPR ')' /* End of expression */
|
|
|
|
#define M_EXPR ':' /* Middle of two suffix lists */
|
|
|
|
#define T_EXPR '=' /* Start of tail */
|
|
|
|
|
|
|
|
#define NO_SCAN 0200 /* Bit set in character to defeat recogn. */
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
char *p_path; /* points to the full pathname */
|
|
|
|
int p_keeps:1; /* The string should be thrown when unused */
|
|
|
|
int p_keep:1; /* The file should be thrown away after use */
|
|
|
|
} path ;
|
|
|
|
|
1984-09-10 16:29:37 +00:00
|
|
|
#define p_cont(elem) ((path *)l_content(elem))
|
|
|
|
|
1984-06-21 10:57:59 +00:00
|
|
|
/* Return values of setpath() */
|
|
|
|
enum f_path { F_OK, F_NOMATCH, F_NOPATH } ;
|
|
|
|
|
|
|
|
/* Own routines */
|
1984-09-10 16:29:37 +00:00
|
|
|
enum f_path getpath();
|
1984-06-21 10:57:59 +00:00
|
|
|
enum f_path scan_end();
|
1993-11-12 16:53:24 +00:00
|
|
|
extern void noodstop();
|
1984-06-21 10:57:59 +00:00
|
|
|
extern char *getvar();
|
|
|
|
extern char *keeps();
|
|
|
|
extern char *basename();
|
|
|
|
extern char *skipblank();
|
|
|
|
extern char *firstblank();
|
|
|
|
extern char *getcore();
|
|
|
|
extern char *changecore();
|
|
|
|
#define freecore(area) free(area)
|
|
|
|
|
1984-09-10 16:29:37 +00:00
|
|
|
#define DEBUG 1 /* Allow debugging of Ack */
|
1984-06-21 10:57:59 +00:00
|
|
|
|
|
|
|
#ifndef DEBUG
|
|
|
|
# define debug 0 /* To surprise all these 'if ( debug ) 's */
|
|
|
|
#else
|
|
|
|
extern int debug ;
|
|
|
|
#endif
|