320 lines
		
	
	
		
			8.6 KiB
		
	
	
	
		
			C
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			320 lines
		
	
	
		
			8.6 KiB
		
	
	
	
		
			C
		
	
	
		
			Executable File
		
	
	
	
	
/*************************************************************************
 | 
						|
 *
 | 
						|
 *  m a k e :   h . h
 | 
						|
 *
 | 
						|
 *  include file for make
 | 
						|
 *========================================================================
 | 
						|
 * Edition history
 | 
						|
 *
 | 
						|
 *  #    Date                         Comments                       By
 | 
						|
 * --- -------- ---------------------------------------------------- ---
 | 
						|
 *   1    ??                                                         ??
 | 
						|
 *   2 23.08.89 LZ increased,N_EXISTS added,suffix as macro added    RAL
 | 
						|
 *   3 30.08.89 macro flags added, indention changed                 PSH,RAL
 | 
						|
 *   4 03.09.89 fixed LZ eliminated, struct str added,...            RAL
 | 
						|
 *   5 06.09.89 TABCHAR,M_MAKE added                                 RAL
 | 
						|
 *   6 09.09.89 tos support added, EXTERN,INIT,PARMS added           PHH,RAL
 | 
						|
 *   7 17.09.89 __STDC__ added, make1 decl. fixed , N_EXEC added     RAL
 | 
						|
 * ------------ Version 2.0 released ------------------------------- RAL
 | 
						|
 *
 | 
						|
 *************************************************************************/
 | 
						|
 | 
						|
#ifdef unix
 | 
						|
#include <sys/types.h>
 | 
						|
#include <sys/stat.h>
 | 
						|
#include <errno.h>
 | 
						|
#include <stdlib.h>
 | 
						|
#include <string.h>
 | 
						|
#include <time.h>
 | 
						|
#include <utime.h>
 | 
						|
#include <stdio.h>
 | 
						|
#include <limits.h>
 | 
						|
#endif
 | 
						|
 | 
						|
#ifdef eon
 | 
						|
#include <sys/stat.h>
 | 
						|
#include <sys/err.h>
 | 
						|
#endif
 | 
						|
 | 
						|
#ifdef os9
 | 
						|
#include <time.h>
 | 
						|
#include <os9.h>
 | 
						|
#include <modes.h>
 | 
						|
#include <direct.h>
 | 
						|
#include <errno.h>
 | 
						|
#endif
 | 
						|
 | 
						|
#ifdef tos
 | 
						|
struct DOSTIME {short time,date; };     /* time structure of TOS */
 | 
						|
 | 
						|
#ifdef LATTICE
 | 
						|
#include <error.h>
 | 
						|
#include <sys/types.h>
 | 
						|
#include <sys/stat.h>
 | 
						|
#include <osbind.h>
 | 
						|
#endif /* LATTICE */
 | 
						|
 | 
						|
#ifdef TURBO
 | 
						|
#include <tos.h>
 | 
						|
#include <errno.h>
 | 
						|
#include <string.h>
 | 
						|
#endif /* TURBO */
 | 
						|
 | 
						|
#endif /* tos */
 | 
						|
 | 
						|
#include <ctype.h>
 | 
						|
#include <stdio.h>
 | 
						|
#include <assert.h>
 | 
						|
 | 
						|
#ifdef eon
 | 
						|
#define MNOENT ER_NOTF
 | 
						|
#else
 | 
						|
#define MNOENT ENOENT
 | 
						|
#endif
 | 
						|
 | 
						|
#ifndef uchar
 | 
						|
#ifdef os9
 | 
						|
#define uchar  char
 | 
						|
#define void   int
 | 
						|
#define fputc  putc
 | 
						|
#else
 | 
						|
#define uchar  unsigned char
 | 
						|
#endif
 | 
						|
#endif
 | 
						|
 | 
						|
#define bool   uchar
 | 
						|
#ifndef time_t
 | 
						|
#define time_t long
 | 
						|
#endif
 | 
						|
#define TRUE   (1)
 | 
						|
#define FALSE  (0)
 | 
						|
#define max(a,b) ((a)>(b)?(a):(b))
 | 
						|
 | 
						|
#ifdef unix
 | 
						|
#define DEFN1   "makefile"
 | 
						|
#define DEFN2   "Makefile"
 | 
						|
#endif
 | 
						|
#ifdef eon
 | 
						|
#define DEFN1   "makefile"
 | 
						|
#define DEFN2   "Makefile"
 | 
						|
#endif
 | 
						|
#ifdef tos
 | 
						|
#define DEFN1   "makefile."
 | 
						|
#define DEFN2   (char *)0
 | 
						|
#endif
 | 
						|
#ifdef os9
 | 
						|
#define DEFN1   "makefile"
 | 
						|
#define DEFN2   (char *)0
 | 
						|
#endif
 | 
						|
 | 
						|
 | 
						|
#ifdef os9
 | 
						|
#define TABCHAR ' '
 | 
						|
#else
 | 
						|
#define TABCHAR '\t'
 | 
						|
#endif
 | 
						|
 | 
						|
#define LZ1	(2048)		/*  Initial input/expand string size  */
 | 
						|
#define LZ2	(256)		/*  Initial input/expand string size  */
 | 
						|
 | 
						|
 | 
						|
 | 
						|
/*
 | 
						|
 *	A name.  This represents a file, either to be made, or existant
 | 
						|
 */
 | 
						|
 | 
						|
struct name
 | 
						|
{
 | 
						|
  struct name  *n_next;		/* Next in the list of names */
 | 
						|
  char         *n_name;		/* Called */
 | 
						|
  struct line  *n_line;		/* Dependencies */
 | 
						|
  time_t        n_time;		/* Modify time of this name */
 | 
						|
  uchar         n_flag;		/* Info about the name */
 | 
						|
};
 | 
						|
 | 
						|
#define N_MARK    0x01			/* For cycle check */
 | 
						|
#define N_DONE    0x02			/* Name looked at */
 | 
						|
#define N_TARG    0x04			/* Name is a target */
 | 
						|
#define N_PREC    0x08			/* Target is precious */
 | 
						|
#define N_DOUBLE  0x10			/* Double colon target */
 | 
						|
#define N_EXISTS  0x20			/* File exists */
 | 
						|
#define N_ERROR   0x40			/* Error occured */
 | 
						|
#define N_EXEC    0x80			/* Commands executed */
 | 
						|
 | 
						|
/*
 | 
						|
 *	Definition of a target line.
 | 
						|
 */
 | 
						|
struct	line
 | 
						|
{
 | 
						|
  struct line    *l_next;		/* Next line (for ::) */
 | 
						|
  struct depend  *l_dep;		/* Dependents for this line */
 | 
						|
  struct cmd     *l_cmd;		/* Commands for this line */
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
/*
 | 
						|
 *	List of dependents for a line
 | 
						|
 */
 | 
						|
struct	depend
 | 
						|
{
 | 
						|
  struct depend  *d_next;		/* Next dependent */
 | 
						|
  struct name    *d_name;		/* Name of dependent */
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
/*
 | 
						|
 *	Commands for a line
 | 
						|
 */
 | 
						|
struct	cmd
 | 
						|
{
 | 
						|
  struct cmd  *c_next;		/* Next command line */
 | 
						|
  char        *c_cmd;		/* Command line */
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
/*
 | 
						|
 *	Macro storage
 | 
						|
 */
 | 
						|
struct	macro
 | 
						|
{
 | 
						|
  struct macro *m_next;	/* Next variable */
 | 
						|
  char *m_name;		/* Called ... */
 | 
						|
  char *m_val;		/* Its value */
 | 
						|
  uchar m_flag;		/* Infinite loop check */
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
#define M_MARK		0x01	/* for infinite loop check */
 | 
						|
#define M_OVERRIDE	0x02	/* command-line override */
 | 
						|
#define M_MAKE		0x04	/* for MAKE macro */
 | 
						|
 | 
						|
/*
 | 
						|
 *	String
 | 
						|
 */
 | 
						|
struct	str
 | 
						|
{
 | 
						|
  char **ptr;		/* ptr to real ptr. to string */
 | 
						|
  int    len;		/* length of string */
 | 
						|
  int    pos;		/* position */
 | 
						|
};
 | 
						|
 | 
						|
 | 
						|
/* Declaration, definition & initialization of variables */
 | 
						|
 | 
						|
#ifndef EXTERN
 | 
						|
#define EXTERN extern
 | 
						|
#endif
 | 
						|
 | 
						|
#ifndef INIT
 | 
						|
#define INIT(x)
 | 
						|
#endif
 | 
						|
 | 
						|
extern int    errno;
 | 
						|
extern char **environ;
 | 
						|
 | 
						|
EXTERN char *myname;
 | 
						|
EXTERN bool  domake   INIT(TRUE);  /*  Go through the motions option  */
 | 
						|
EXTERN bool  ignore   INIT(FALSE); /*  Ignore exit status option      */
 | 
						|
EXTERN bool  conterr  INIT(FALSE); /*  continue on errors  */
 | 
						|
EXTERN bool  silent   INIT(FALSE); /*  Silent option  */
 | 
						|
EXTERN bool  print    INIT(FALSE); /*  Print debuging information  */
 | 
						|
EXTERN bool  rules    INIT(TRUE);  /*  Use inbuilt rules  */
 | 
						|
EXTERN bool  dotouch  INIT(FALSE); /*  Touch files instead of making  */
 | 
						|
EXTERN bool  quest    INIT(FALSE); /*  Question up-to-dateness of file  */
 | 
						|
EXTERN bool  useenv   INIT(FALSE); /*  Env. macro def. overwrite makefile def.*/
 | 
						|
EXTERN bool  dbginfo  INIT(FALSE); /*  Print lot of debugging information */
 | 
						|
EXTERN bool  ambigmac INIT(TRUE);  /*  guess undef. ambiguous macros (*,<) */
 | 
						|
EXTERN struct name  *firstname;
 | 
						|
EXTERN char         *str1;
 | 
						|
EXTERN char         *str2;
 | 
						|
EXTERN struct str    str1s;
 | 
						|
EXTERN struct str    str2s;
 | 
						|
EXTERN struct name **suffparray; /* ptr. to array of ptrs. to name chains */
 | 
						|
EXTERN int           sizesuffarray INIT(20); /* size of suffarray */
 | 
						|
EXTERN int           maxsuffarray INIT(0);   /* last used entry in suffarray */
 | 
						|
EXTERN struct macro *macrohead;
 | 
						|
EXTERN bool          expmake; /* TRUE if $(MAKE) has been expanded */
 | 
						|
EXTERN char	    *makefile;     /*  The make file  */
 | 
						|
EXTERN int           lineno;
 | 
						|
 | 
						|
#ifdef tos
 | 
						|
#ifdef LATTICE
 | 
						|
EXTERN int _mneed INIT(60000);    /* VERY important for TOS with LATTICE C*/
 | 
						|
#endif /* LATTICE */
 | 
						|
#endif /* tos */
 | 
						|
#ifdef eon
 | 
						|
#define MEMSPACE  (16384)
 | 
						|
EXTERN unsigned  memspace = MEMSPACE;
 | 
						|
#endif
 | 
						|
 | 
						|
#define  suffix(name)   strrchr(name,(int)'.')
 | 
						|
 | 
						|
EXTERN int _ctypech;
 | 
						|
#define mylower(x)  (islower(_ctypech=(x)) ? _ctypech :tolower(_ctypech))
 | 
						|
#define myupper(x)  (isupper(_ctypech=(x)) ? _ctypech :toupper(_ctypech))
 | 
						|
 | 
						|
/* Prototypes. */
 | 
						|
struct sgtbuf;
 | 
						|
 | 
						|
/* check.c */
 | 
						|
_PROTOTYPE(void prt, (void));
 | 
						|
_PROTOTYPE(void check, (struct name *np ));
 | 
						|
_PROTOTYPE(void circh, (void));
 | 
						|
_PROTOTYPE(void precious, (void));
 | 
						|
 | 
						|
/* input.c */
 | 
						|
_PROTOTYPE(void init, (void));
 | 
						|
_PROTOTYPE(void strrealloc, (struct str *strs ));
 | 
						|
_PROTOTYPE(struct name *newname, (char *name ));
 | 
						|
_PROTOTYPE(struct name *testname, (char *name ));
 | 
						|
_PROTOTYPE(struct depend *newdep, (struct name *np, struct depend *dp ));
 | 
						|
_PROTOTYPE(struct cmd *newcmd, (char *str, struct cmd *cp ));
 | 
						|
_PROTOTYPE(void newline, (struct name *np, struct depend *dp, struct cmd *cp, 
 | 
						|
								   int flag ));
 | 
						|
_PROTOTYPE(void input, (FILE *fd ));
 | 
						|
 | 
						|
/* macro.c */
 | 
						|
_PROTOTYPE(struct macro *getmp, (char *name ));
 | 
						|
_PROTOTYPE(char *getmacro, (char *name ));
 | 
						|
_PROTOTYPE(struct macro *setmacro, (char *name, char *val ));
 | 
						|
_PROTOTYPE(void setDFmacro, (char *name, char *val ));
 | 
						|
_PROTOTYPE(void doexp, (struct str *to, char *from ));
 | 
						|
_PROTOTYPE(void expand, (struct str *strs ));
 | 
						|
 | 
						|
/* main.c */
 | 
						|
_PROTOTYPE(void main, (int argc, char **argv ));
 | 
						|
_PROTOTYPE(void setoption, (char option ));
 | 
						|
_PROTOTYPE(void usage, (void));
 | 
						|
_PROTOTYPE(void fatal, (char *msg, char *a1, int a2 ));
 | 
						|
 | 
						|
/* make.c */
 | 
						|
_PROTOTYPE(int dosh, (char *string, char *shell ));
 | 
						|
_PROTOTYPE(int makeold, (char *name ));
 | 
						|
_PROTOTYPE(void docmds1, (struct name *np, struct line *lp ));
 | 
						|
_PROTOTYPE(void docmds, (struct name *np ));
 | 
						|
_PROTOTYPE(int Tosexec, (char *string ));
 | 
						|
_PROTOTYPE(time_t mstonix, (unsigned int date, unsigned int time ));
 | 
						|
_PROTOTYPE(void getmdate, (int fd, struct sgtbuf *tbp ));
 | 
						|
_PROTOTYPE(time_t cnvtime, (struct sgtbuf *tbp ));
 | 
						|
_PROTOTYPE(void modtime, (struct name *np ));
 | 
						|
_PROTOTYPE(void touch, (struct name *np ));
 | 
						|
_PROTOTYPE(int make, (struct name *np, int level ));
 | 
						|
_PROTOTYPE(void make1, (struct name *np, struct line *lp, struct depend *qdp, 
 | 
						|
					char *basename, char *inputname ));
 | 
						|
_PROTOTYPE(void implmacros, (struct name *np, struct line *lp, 
 | 
						|
					char **pbasename, char **pinputname ));
 | 
						|
_PROTOTYPE(void dbgprint, (int level, struct name *np, char *comment ));
 | 
						|
 | 
						|
/* reader.c */
 | 
						|
_PROTOTYPE(void error, (char *msg, char *a1 ));
 | 
						|
_PROTOTYPE(bool getline, (struct str *strs, FILE *fd ));
 | 
						|
_PROTOTYPE(char *gettok, (char **ptr ));
 | 
						|
 | 
						|
/* rules.c */
 | 
						|
_PROTOTYPE(bool dyndep, (struct name *np, char **pbasename,char **pinputname));
 | 
						|
_PROTOTYPE(void makerules, (void));
 | 
						|
 | 
						|
/* archive.c */
 | 
						|
_PROTOTYPE(int is_archive_ref, (char *name));
 | 
						|
_PROTOTYPE(int archive_stat, (char *name, struct stat *stp));
 |