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));
 | 
