h.h

操作系统源代码

/*************************************************************************
 *
 *  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>
#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>

#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(FALSE); /*  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 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));