dvadura@watdragon.waterloo.edu (Dennis Vadura) (10/15/90)
Posting-number: Volume 15, Issue 56 Submitted-by: Dennis Vadura <dvadura@watdragon.waterloo.edu> Archive-name: dmake-3.6/part04 #!/bin/sh # this is part 4 of a multipart archive # do not concatenate these parts, unpack them in order with /bin/sh # file unix/arlib.c continued # CurArch=4 if test ! -r s2_seq_.tmp then echo "Please unpack part 1 first!" exit 1; fi ( read Scheck if test "$Scheck" != $CurArch then echo "Please unpack part $Scheck next!" exit 1; else exit 0; fi ) < s2_seq_.tmp || exit 1 echo "x - Continuing file unix/arlib.c" sed 's/^X//' << 'SHAR_EOF' >> unix/arlib.c X fread( (char*)&word, sizeof(word), 1, f ); X if( word != ARMAG ) return( -1 ); X#endif X X /* scan the library, calling `function' for each member X */ X while( 1 ) { X if( fread((char*) &arhdr, sizeof(arhdr), 1, f) != 1 ) break; X offset = ftell(f); X strncpy(_ar.ar_name, arhdr.ar_name, sizeof(arhdr.ar_name)); X X for( p = &_ar.ar_name[sizeof(arhdr.ar_name)]; X --p >= _ar.ar_name && *p == ' ';); X X p[1] = '\0'; X if( *p == '/' ) *p = 0; /* Only SysV has trailing '/' */ X X#if ASCARCH X if( strncmp(arhdr.ar_fmag, ARFMAG, sizeof(arhdr.ar_fmag)) != 0 ) X return( -1 ); X _ar.ar_time = atol(arhdr.ar_date); X _ar.ar_size = atol(arhdr.ar_size); X#else X _ar.ar_time = arhdr.ar_date; X _ar.ar_size = arhdr.ar_size; X#endif X X X#if DECODE_ALL_AR_FIELDS X#if ASCARCH X _ar.ar_mode = atoi(arhdr.ar_mode); X _ar.ar_uid = atoi(arhdr.ar_uid); X _ar.ar_gid = atoi(arhdr.ar_gid); X#else X _ar.ar_mode = arhdr.ar_mode; X _ar.ar_size = arhdr.ar_size; X _ar.ar_uid = arhdr.ar_uid; X _ar.ar_gid = arhdr.ar_gid; X#endif X#endif X X if( (*function)(f, &_ar, arg) ) return( 1 ); X fseek( f, offset + (_ar.ar_size+1 & ~1L), 0 ); X } X X if( !feof(f) ) return( -1 ); X return 0; X} X X X Xstatic int Xar_touch( f, now )/* X==================== X touch module header timestamp. */ XFILE *f; Xtime_t now; X{ X struct ar_hdr arhdr; /* external archive header */ X X fseek(f, - (off_t) (sizeof(arhdr) - sizeof(arhdr.ar_name)), 1); X X#if ASCARCH X fprintf(f, "%lu", now); X#else X fwrite((char *)now, sizeof(now), 1, f); X#endif X X return( ferror(f) ? 0 : 1 ); X} X X X#if LC Xtypedef struct mem { X time_t m_time; /* modify time of member*/ X struct mem *m_next; /* next member in lib */ X char m_valid; /* valid cache entry */ X char m_name[1]; /* lib member name */ X} MEM, *MEMPTR; X Xtypedef struct lib { X struct lib *lb_next; /* next library in list */ X struct mem *lb_members; /* list of lib members */ X char lb_valid; /* valid cache entry */ X char *lb_name; /* library name */ X} LIB, *LIBPTR; X Xstatic LIBPTR _cache = NIL(LIB); Xstatic MEMPTR _find_member ANSI(( LIBPTR, char * )); X Xstatic int X_check_cache( name, lib, pmtime, touch )/* X========================================== X Check to see if we have cached member in lib, if so return time in pmtime X and return TRUE, otherwise return FALSE, if touch is TRUE then touch X the archive member instead. */ Xchar *name; Xchar *lib; Xtime_t *pmtime; Xint touch; X{ X register MEMPTR mp; X register LIBPTR lp; X X for( lp=_cache; lp != NIL(LIB) && lp->lb_name != lib; lp=lp->lb_next ); X if( lp == NIL(LIB) ) return( FALSE ); X X mp = _find_member( lp, name ); X if( mp == NIL(MEM) || !mp->m_valid ) return( FALSE ); X X if( touch == TRUE ) X { X mp->m_time = *pmtime; X mp->m_valid = 1; X } X else X *pmtime = mp->m_time; X X lp->lb_valid = 1; X lp->lb_members = mp; X X return( TRUE ); X} X X X Xstatic int X_cache_member( name, lib, mtime )/* X=================================== X Cache name in lib along with it's time */ Xchar *name; Xchar *lib; Xtime_t mtime; X{ X register MEMPTR mp; X register LIBPTR lp; X X for( lp=_cache; X lp != NIL(LIB) && lp->lb_name != NIL(char) && lp->lb_name != lib; X lp=lp->lb_next); X X if( lp == NIL(LIB) ) X { X lp = (LIBPTR) malloc(sizeof(LIB)); X if( lp == NIL(LIB) ) No_ram(); X X lp->lb_name = lib; X lp->lb_members = NIL(MEM); X lp->lb_next = _cache; X lp->lb_valid = 0; X _cache = lp; X } X X /* On UNIX ar does not allow multiple copies of the same .o file to live X * in the same AR file. If this is not TRUE then use the commented out X * version to set the value of mp. */ X X /*mp = _find_member(lp, name);*/ X mp = NIL(MEM); X X if( mp == NIL(MEM) ) X { X mp = (MEMPTR) malloc(sizeof(char)*offsetof(MEM,m_name[strlen(name)+1])); X if( mp == NIL(MEM) ) No_ram(); X X strcpy( mp->m_name, name ); X mp->m_time = mtime; X X if( lp->lb_members == NIL(MEM) ) { X mp->m_next = mp; X lp->lb_members = mp; X } X else { X mp->m_next = lp->lb_members->m_next; X lp->lb_members->m_next = mp; X lp->lb_members = mp; X } X } X else X mp->m_time = mtime; X X mp->m_valid = 1; X X return( lp->lb_valid ); X} X X Xstatic MEMPTR X_find_member( lp, name ) XLIBPTR lp; Xchar *name; X{ X register MEMPTR mp = lp->lb_members; X X if( mp == NIL(MEM) ) return(mp); X X do { X if( !strcmp(mp->m_name, name ) ) return( mp ); X mp = mp->m_next; X } X while( mp != lp->lb_members ); X X return( NIL(MEM) ); X} X#endif X X X Xvoid Xvoid_lcache( lib, member )/* X============================ X Void the library cache for lib. If member is NIL(char) then nuke all X of the members, if member is NOT NIL(char) then invalidate only that X member. */ Xchar *lib; Xchar *member; X{ X#if LC X register LIBPTR lp; X register MEMPTR mp; X register MEMPTR tmp; X X for( lp=_cache; lp != NIL(LIB) && lp->lb_name != lib; lp=lp->lb_next ); X if( lp == NIL(LIB) ) return; X X if( member == NIL(char) ) { X mp = lp->lb_members; X do { X tmp = mp->m_next; X (void) free( mp ); X mp = tmp; X } while( mp != lp->lb_members ); X X lp->lb_valid = 0; X lp->lb_members = NIL(MEM); X lp->lb_name = NIL(char); X } X else { X mp=lp->lb_members; X do { X if( strcmp( member, mp->m_name) == 0 ) { X lp->lb_members = mp->m_next; X mp->m_valid = 0; X } X X mp=mp->m_next; X } while( mp != lp->lb_members ); X } X#endif X} SHAR_EOF echo "File unix/arlib.c is complete" chmod 0440 unix/arlib.c || echo "restore of unix/arlib.c fails" echo mkdir - unix/386ix mkdir unix/386ix echo "x - extracting unix/386ix/time.h (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/time.h && X/* X** Berkeley get this wrong! X*/ X#ifndef TIME_h X#define TIME_h X Xtypedef long time_t; /* this is the thing we use */ X X#endif TIME_h X SHAR_EOF chmod 0440 unix/386ix/time.h || echo "restore of unix/386ix/time.h fails" echo "x - extracting unix/386ix/stdlib.h (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/stdlib.h && X#ifndef _STDLIB_INCLUDED_ X#define _STDLIB_INCLUDED_ X Xextern /*GOTO*/ _exit(); Xextern /*GOTO*/ exit(); Xextern /*GOTO*/ abort(); Xextern int system(); Xextern char *getenv(); Xextern char *calloc(); Xextern char *malloc(); Xextern char *realloc(); Xextern free(); Xextern int errno; X X#ifndef EIO X# include <errno.h> X#endif X X#endif /* _STDLIB_INCLUDED_ */ SHAR_EOF chmod 0440 unix/386ix/stdlib.h || echo "restore of unix/386ix/stdlib.h fails" echo "x - extracting unix/386ix/stdarg.h (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/stdarg.h && X/* X * stdarg.h X * X * defines ANSI style macros for accessing arguments of a function which takes X * a variable number of arguments X * X */ X X#if !defined(__STDARG) X#define __STDARG X Xtypedef char *va_list; X X#define va_dcl int va_alist X#define va_start(ap,v) ap = (va_list)&va_alist X#define va_arg(ap,t) ((t*)(ap += sizeof(t)))[-1] X#define va_end(ap) ap = NULL X#endif SHAR_EOF chmod 0440 unix/386ix/stdarg.h || echo "restore of unix/386ix/stdarg.h fails" echo "x - extracting unix/386ix/startup.mk (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/startup.mk && X# Generic UNIX DMAKE startup file. Customize to suit your needs. X# Should work for both SYSV, and BSD 4.3 X# See the documentation for a description of internally defined macros. X# X# Disable warnings for macros redefined here that were given X# on the command line. X__.SILENT := $(.SILENT) X.SILENT := yes X X# Configuration parameters for DMAKE startup.mk file X# Set these to NON-NULL if you wish to turn the parameter on. X_HAVE_RCS := yes # yes => RCS is installed. X_HAVE_SCCS := yes # yes => SCCS is installed. X X# Applicable suffix definitions XA := .a # Libraries XE := # Executables XF := .f # Fortran XO := .o # Objects XP := .p # Pascal XS := .s # Assembler sources XV := ,v # RCS suffix X X# Recipe execution configurations XSHELL := /bin/sh XSHELLFLAGS := -ce XGROUPSHELL := $(SHELL) XGROUPFLAGS := XSHELLMETAS := |();&<>?*][$$:\\#`'" XGROUPSUFFIX := XDIVFILE = $(TMPFILE) X X# Standard C-language command names and flags X CPP := /lib/cpp # C-preprocessor X CC := cc # C-compiler and flags X CFLAGS += X X AS := as # Assembler and flags X ASFLAGS += X X LD = $(CC) # Loader and flags X LDFLAGS += X LDLIBS = X X# Definition of $(MAKE) macro for recursive makes. X MAKE = $(MAKECMD) $(MFLAGS) X X# Definition of Print command for this system. X PRINT = lpr X X# Language and Parser generation Tools and their flags X YACC := yacc # standard yacc X YFLAGS += X YTAB := y.tab # yacc output files name stem. X X LEX := lex # standard lex X LFLAGS += X LEXYY := lex.yy # lex output file X X# Other Compilers, Tools and their flags X PC := pc # pascal compiler X RC := f77 # ratfor compiler X FC := f77 # fortran compiler X X CO := co # check out for RCS X COFLAGS += -q X X AR := ar # archiver X ARFLAGS+= ruv X X RM := /bin/rm # remove a file command X RMFLAGS += X X# Implicit generation rules for making inferences. X# We don't provide .yr or .ye rules here. They're obsolete. X# Rules for making *$O X %$O : %.c ; $(CC) $(CFLAGS) -c $< X %$O : %$P ; $(PC) $(PFLAGS) -c $< X %$O : %$S ; $(AS) $(ASFLAGS) $< X %$O : %.cl ; class -c $< X %$O : %.e %.r %.F %$F X $(FC) $(RFLAGS) $(EFLAGS) $(FFLAGS) -c $< X X# Executables X %$E : %$O ; $(LD) $(LDFLAGS) -o $@ $< $(LDLIBES) X X# lex and yacc rules X %.c : %.y ; $(YACC) $(YFLAGS) $<; mv $(YTAB).c $@ X %.c : %.l ; $(LEX) $(LFLAGS) $<; mv $(LEXYY).c $@ X X# This rule tells how to make *.out from it's immediate list of prerequisites X# UNIX only. X %.out :; $(LD) $(LDFLAGS) -o $@ $^ $(LDLIBS) X X# RCS support X.IF $(_HAVE_RCS) X % : %$V $$(@:d)RCS/$$(@:f)$V;- $(CO) $(COFLAGS) $@ X .NOINFER : %$V $$(@:d)RCS/$$(@:f)$V X.END X X# SCCS support X.IF $(_HAVE_SCCS) X % : s.% ; get $@ X .NOINFER : s.% X.END X X# Recipe to make archive files. X%$A : X[ X $(AR) $(ARFLAGS) $@ $? X $(RM) $(RMFLAGS) $? X ranlib $@ X] X X# DMAKE uses this recipe to remove intermediate targets X.REMOVE :; $(RM) -f $< X X# AUGMAKE extensions for SYSV compatibility X@B = $(@:b) X@D = $(@:d) X@F = $(@:f) X*B = $(*:b) X*D = $(*:d) X*F = $(*:f) X<B = $(<:b) X<D = $(<:d) X<F = $(<:f) X?B = $(?:b) X?F = $(?:f) X?D = $(?:d) X X# Turn warnings back to previous setting. X.SILENT := $(__.SILENT) X X# Local startup file if any X.INCLUDE .IGNORE: "_startup.mk" SHAR_EOF chmod 0640 unix/386ix/startup.mk || echo "restore of unix/386ix/startup.mk fails" echo "x - extracting unix/386ix/runargv.c (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/runargv.c && X/* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/unix/386ix/RCS/runargv.c,v 1.1 90/10/06 12:05:59 dvadura Exp $ X-- SYNOPSIS -- invoke a sub process. X-- X-- DESCRIPTION X-- Use the standard methods of executing a sub process. X-- X-- AUTHOR X-- Dennis Vadura, dvadura@watdragon.uwaterloo.ca X-- CS DEPT, University of Waterloo, Waterloo, Ont., Canada X-- X-- COPYRIGHT X-- Copyright (c) 1990 by Dennis Vadura. All rights reserved. X-- X-- This program is free software; you can redistribute it and/or X-- modify it under the terms of the GNU General Public License X-- (version 1), as published by the Free Software Foundation, and X-- found in the file 'LICENSE' included with this distribution. X-- X-- This program is distributed in the hope that it will be useful, X-- but WITHOUT ANY WARRANTY; without even the implied warrant of X-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the X-- GNU General Public License for more details. X-- X-- You should have received a copy of the GNU General Public License X-- along with this program; if not, write to the Free Software X-- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. X-- X-- LOG X-- $Log: runargv.c,v $ X * Revision 1.1 90/10/06 12:05:59 dvadura X * dmake Release, Version 3.6 X * X*/ X X#include <signal.h> X#include "extern.h" X#include "sysintf.h" X#include "alloc.h" X Xtypedef struct prp { X char *prp_cmd; X int prp_group; X int prp_ignore; X int prp_last; X int prp_shell; X struct prp *prp_next; X char *prp_dir; X} RCP, *RCPPTR; X Xtypedef struct pr { X int pr_valid; X int pr_pid; X CELLPTR pr_target; X HOWPTR pr_how; X int pr_ignore; X int pr_last; X RCPPTR pr_recipe; X RCPPTR pr_recipe_end; X} PR; X Xstatic PR *_procs = NIL(PR); Xstatic int _proc_cnt = 0; Xstatic int _abort_flg= FALSE; Xstatic int _use_i = -1; Xstatic int _do_upd = 0; X Xstatic void _add_child ANSI((int, CELLPTR, HOWPTR, int, int)); Xstatic void _attach_cmd ANSI((char *, int, int, CELLPTR, HOWPTR, int, int)); Xstatic void _finished_child ANSI((int, int)); Xstatic int _running ANSI((CELLPTR, HOWPTR)); X Xint Xrunargv(target, how, ignore, group, last, shell, cmd) XCELLPTR target; XHOWPTR how; Xint ignore; Xint group; Xint last; Xint shell; Xchar *cmd; X{ X extern int errno; X extern char *sys_errlist[]; X int pid; X char **argv; X X if( _running(target, how) /*&& Max_proc != 1*/ ) { X /* The command will be executed when the previous recipe X * line completes. */ X _attach_cmd( cmd, group, ignore, target, how, last, shell ); X return(1); X } X X while( _proc_cnt == Max_proc ) X if( Wait_for_child(FALSE, -1) == -1 ) Fatal( "Lost a child" ); X X argv = Pack_argv( group, shell, cmd ); X X switch( pid=fork() ){ X int wid; X int status; X X case -1: /* fork failed */ X Error("%s: %s", argv[0], sys_errlist[errno]); X Handle_result(-1, ignore, _abort_flg, target); X return(-1); X X case 0: /* child */ X execvp(argv[0], argv); X Continue = TRUE; /* survive error message */ X Error("%s: %s", argv[0], sys_errlist[errno]); X kill(getpid(), SIGTERM); X /*NOTREACHED*/ X X default: /* parent */ X _add_child(pid, target, how, ignore, last); X } X X return(1); X} X X Xint XWait_for_child( abort_flg, pid ) Xint abort_flg; Xint pid; X{ X int wid; X int status; X int waitchild; X X waitchild = (pid == -1)? FALSE : Wait_for_completion; X X do { X if( (wid = wait(&status)) == -1 ) return(-1); X X _abort_flg = abort_flg; X _finished_child(wid, status); X _abort_flg = FALSE; X } X while( waitchild && pid != wid ); X X return(0); X} X X Xvoid XClean_up_processes() X{ X register int i; X X if( _procs != NIL(PR) ) { X for( i=0; i<Max_proc; i++ ) X if( _procs[i].pr_valid ) X kill(_procs[i].pr_pid, SIGTERM); X X while( Wait_for_child(TRUE, -1) != -1 ); X } X} X X Xstatic void X_add_child( pid, target, how, ignore, last ) Xint pid; XCELLPTR target; XHOWPTR how; Xint ignore; Xint last; X{ X register int i; X register PR *pp; X X if( _procs == NIL(PR) ) { X TALLOC( _procs, Max_proc, PR ); X } X X if( (i = _use_i) == -1 ) X for( i=0; i<Max_proc; i++ ) X if( !_procs[i].pr_valid ) X break; X X pp = _procs+i; X X pp->pr_valid = 1; X pp->pr_pid = pid; X pp->pr_target = target; X pp->pr_how = how; X pp->pr_ignore = ignore; X pp->pr_last = last; X X Current_target = NIL(HOW); X X _proc_cnt++; X X if( Wait_for_completion ) Wait_for_child( FALSE, pid ); X} X X Xstatic void X_finished_child(pid, status) Xint pid; Xint status; X{ X register int i; X register PR *pp; X X for( i=0; i<Max_proc; i++ ) X if( _procs[i].pr_valid && _procs[i].pr_pid == pid ) X break; X X _procs[i].pr_valid = 0; X _proc_cnt--; X X if( _procs[i].pr_recipe != NIL(RCP) && !_abort_flg ) { X RCPPTR rp = _procs[i].pr_recipe; X char *dir; X X Current_target = _procs[i].pr_how; X Handle_result( status, _procs[i].pr_ignore, FALSE, _procs[i].pr_target ); X Current_target = NIL(HOW); X X _procs[i].pr_recipe = rp->prp_next; X X _use_i = i; X dir = _strdup(Get_current_dir()); X Set_dir( rp->prp_dir ); X runargv( _procs[i].pr_target, _procs[i].pr_how, rp->prp_ignore, X rp->prp_group, rp->prp_last, rp->prp_shell, rp->prp_cmd ); X Set_dir(dir); X FREE(dir); X FREE(rp->prp_dir); X _use_i = -1; X X FREE( rp->prp_cmd ); X FREE( rp ); X X if( _proc_cnt == Max_proc ) Wait_for_child( FALSE, -1 ); X } X else { X Unlink_temp_files( _procs[i].pr_how ); X Handle_result(status,_procs[i].pr_ignore,_abort_flg,_procs[i].pr_target); X X if( _procs[i].pr_last && !Doing_bang ) X Update_time_stamp( _procs[i].pr_target, _procs[i].pr_how ); X } X} X X Xstatic int X_running( cp, how ) XCELLPTR cp; XHOWPTR how; X{ X register int i; X X if( !_procs ) return(FALSE); X X for( i=0; i<Max_proc; i++ ) X if( _procs[i].pr_valid && X _procs[i].pr_how == how && X _procs[i].pr_target == cp ) X break; X X return( i != Max_proc ); X} X X Xstatic void X_attach_cmd( cmd, group, ignore, cp, how, last, shell ) Xchar *cmd; Xint group; Xint ignore; XCELLPTR cp; XHOWPTR how; Xint last; Xint shell; X{ X register int i; X RCPPTR rp; X X for( i=0; i<Max_proc; i++ ) X if( _procs[i].pr_valid && X _procs[i].pr_how == how && X _procs[i].pr_target == cp ) X break; X X TALLOC( rp, 1, RCP ); X rp->prp_cmd = _strdup(cmd); X rp->prp_group = group; X rp->prp_ignore= ignore; X rp->prp_last = last; X rp->prp_shell = shell; X rp->prp_dir = _strdup(Get_current_dir()); X X if( _procs[i].pr_recipe == NIL(RCP) ) X _procs[i].pr_recipe = _procs[i].pr_recipe_end = rp; X else { X _procs[i].pr_recipe_end->prp_next = rp; X _procs[i].pr_recipe_end = rp; X } X} SHAR_EOF chmod 0440 unix/386ix/runargv.c || echo "restore of unix/386ix/runargv.c fails" echo "x - extracting unix/386ix/make.sh (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/make.sh && Xmkdir objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O infer.c Xmv infer.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O make.c Xmv make.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O stat.c Xmv stat.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O expand.c Xmv expand.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O string.c Xmv string.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O hash.c Xmv hash.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O dag.c Xmv dag.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O dmake.c Xmv dmake.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O path.c Xmv path.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O imacs.c Xmv imacs.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O sysintf.c Xmv sysintf.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O parse.c Xmv parse.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O getinp.c Xmv getinp.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O quit.c Xmv quit.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O basename.c Xmv basename.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O dump.c Xmv dump.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O macparse.c Xmv macparse.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O rulparse.c Xmv rulparse.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O percent.c Xmv percent.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O function.c Xmv function.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O unix/arlib.c Xmv arlib.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O unix/dirbrk.c Xmv dirbrk.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O unix/explode.c Xmv explode.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O unix/rmprq.c Xmv rmprq.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O unix/ruletab.c Xmv ruletab.o objects Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/386ix -O unix/386ix/runargv.c Xmv runargv.o objects Xcc -o dmake objects/infer.o objects/make.o objects/stat.o objects/expand.o objects/string.o objects/hash.o objects/dag.o objects/dmake.o objects/path.o objects/imacs.o objects/sysintf.o objects/parse.o objects/getinp.o objects/quit.o objects/basename.o objects/dump.o objects/macparse.o objects/rulparse.o objects/percent.o objects/function.o objects/arlib.o objects/dirbrk.o objects/explode.o objects/rmprq.o objects/ruletab.o objects/runargv.o SHAR_EOF chmod 0640 unix/386ix/make.sh || echo "restore of unix/386ix/make.sh fails" echo "x - extracting unix/386ix/config.mk (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/config.mk && X# This is the 386IX UNIX configuration file for DMAKE X# It simply modifies the values of SRC, and checks to see if X# OSENVIRONMENT is defined. If so it includes the appropriate X# config.mk file. X# X# It also sets the values of .SOURCE.c and .SOURCE.h to include the local X# directory. X# Xosrdir := $(OS)$(DIRSEPSTR)$(OSRELEASE) X X# The following are required sources XOSDSRC := runargv.c XSRC += $(OSDSRC) X.SETDIR=$(osrdir) : $(OSDSRC) X X.SOURCE.h : $(osrdir) X X# Local configuration modifications for CFLAGS, there's local SysV includes X# too. XCFLAGS += -I$(osrdir) X X# See if we modify anything in the lower levels. X.IF $(OSENVIRONMENT) != $(NULL) X .INCLUDE .IGNORE : $(osrdir)$(DIRSEPSTR)$(OSENVIRONMENT)$(DIRSEPSTR)config.mk X.END SHAR_EOF chmod 0640 unix/386ix/config.mk || echo "restore of unix/386ix/config.mk fails" echo "x - extracting unix/386ix/config.h (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/config.h && X/* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/unix/386ix/RCS/config.h,v 1.1 90/10/06 12:05:52 dvadura Exp $ X-- SYNOPSIS -- Configurarion include file. X-- X-- DESCRIPTION X-- There is one of these for each specific machine configuration. X-- It can be used to further tweek the machine specific sources X-- so that they compile. X-- X-- AUTHOR X-- Dennis Vadura, dvadura@watdragon.uwaterloo.ca X-- CS DEPT, University of Waterloo, Waterloo, Ont., Canada X-- X-- COPYRIGHT X-- Copyright (c) 1990 by Dennis Vadura. All rights reserved. X-- X-- This program is free software; you can redistribute it and/or X-- modify it under the terms of the GNU General Public License X-- (version 1), as published by the Free Software Foundation, and X-- found in the file 'LICENSE' included with this distribution. X-- X-- This program is distributed in the hope that it will be useful, X-- but WITHOUT ANY WARRANTY; without even the implied warrant of X-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the X-- GNU General Public License for more details. X-- X-- You should have received a copy of the GNU General Public License X-- along with this program; if not, write to the Free Software X-- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. X-- X-- LOG X-- $Log: config.h,v $ X * Revision 1.1 90/10/06 12:05:52 dvadura X * dmake Release, Version 3.6 X * X*/ X X/* define this for configurations that don't have the coreleft function X * so that the code compiles. To my knowledge coreleft exists only on X * Turbo C, but it is needed here since the function is used in many debug X * macros. */ X#define coreleft() 0L X X/* Define the getcwd function that is used in the code, since BSD does X * not have getcwd, but call it getwd instead. */ Xextern char *getcwd ANSI((char *, int)); X X/* Define setvbuf, SysV doesn't have one */ X#define setvbuf(fp, bp, type, len) setbuf( fp, NULL ); X X/* NCR Tower's don't define size_t */ X#ifdef tower Xtypedef long size_t; X#endif SHAR_EOF chmod 0440 unix/386ix/config.h || echo "restore of unix/386ix/config.h fails" echo "x - extracting unix/386ix/ar.h (Text)" sed 's/^X//' << 'SHAR_EOF' > unix/386ix/ar.h && X#define PORTAR 1 X#include "/usr/include/ar.h" SHAR_EOF chmod 0440 unix/386ix/ar.h || echo "restore of unix/386ix/ar.h fails" echo "x - extracting sysintf.c (Text)" sed 's/^X//' << 'SHAR_EOF' > sysintf.c && X/* RCS -- $Header: /u2/dvadura/src/generic/dmake/src/RCS/sysintf.c,v 1.1 90/10/06 12:04:17 dvadura Exp $ X-- SYNOPSIS -- system independent interface X-- X-- DESCRIPTION X-- These are the routines constituting the system interface. X-- The system is taken to be essentially POSIX conformant. X-- The original code was extensively revised by T J Thompson at MKS, X-- and the library cacheing was added by Eric Gisin at MKS. I then X-- revised the code yet again, to improve the lib cacheing, and to X-- make it more portable. X-- X-- The following is a list of routines that are required by this file X-- in order to work. These routines are provided as functions by the X-- standard C lib of the target system or as #defines in system/sysintf.h X-- or via appropriate C code in the system/ directory for the given X-- system. X-- X-- The first group must be provided by a file in the system/ directory X-- the second group is ideally provided by the C lib. However, there X-- are instances where the C lib implementation of the specified routine X-- does not exist, or is incorrect. In these instances the routine X-- must be provided by the the user in the system/ directory of dmake. X-- (For example, the bsd/ dir contains code for putenv(), and tempnam()) X-- X-- DMAKE SPECIFIC: X-- seek_arch() X-- touch_arch() X-- void_lcache() X-- runargv() X-- STAT() X-- Remove_prq() X-- X-- C-LIB SPECIFIC: (should be present in your C-lib) X-- utime() X-- time() X-- getenv() X-- putenv() X-- getcwd() X-- signal() X-- chdir() X-- tempnam() X-- X-- AUTHOR X-- Dennis Vadura, dvadura@watdragon.uwaterloo.ca X-- CS DEPT, University of Waterloo, Waterloo, Ont., Canada X-- X-- COPYRIGHT X-- Copyright (c) 1990 by Dennis Vadura. All rights reserved. X-- X-- This program is free software; you can redistribute it and/or X-- modify it under the terms of the GNU General Public License X-- (version 1), as published by the Free Software Foundation, and X-- found in the file 'LICENSE' included with this distribution. X-- X-- This program is distributed in the hope that it will be useful, X-- but WITHOUT ANY WARRANTY; without even the implied warrant of X-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the X-- GNU General Public License for more details. X-- X-- You should have received a copy of the GNU General Public License X-- along with this program; if not, write to the Free Software X-- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. X-- X-- LOG X-- $Log: sysintf.c,v $ X * Revision 1.1 90/10/06 12:04:17 dvadura X * dmake Release, Version 3.6 X * X*/ X X#include <stdio.h> X#include "extern.h" X#include "sysintf.h" X#include "alloc.h" X X/* X** Tries to stat the file name. Returns 0 if the file X** does not exist. Note that if lib is not null it tries to stat X** the name found inside lib. X** X** If member is NOT nil then look for the library object which defines the X** symbol given by name. If found _strdup the name and return make the X** pointer pointed at by sym point at it. Not handled for now! X*/ Xtime_t XDo_stat(name, lib, member) Xchar *name; Xchar *lib; Xchar **member; X{ X struct stat buf; X time_t seek_arch(); X X if( member != NIL(char *) ) X Fatal("Library symbol names not supported"); X X if( lib != NIL(char) ) X return( seek_arch(basename(name), lib) ); X else X return( (STAT(name, &buf) == -1) ? (time_t)0 : buf.st_mtime ); X} X X X X/* Touch existing file to force modify time to present. X */ Xint XDo_touch(name, lib, member) Xchar *name; Xchar *lib; Xchar **member; X{ X if( member != NIL(char *) ) X Fatal("Library symbol names not supported"); X X if (lib != NIL(char)) X return( touch_arch(basename(name), lib) ); X else X return( utime(name, NIL(time_t)) ); X} X X X Xvoid XVoid_lib_cache( lib_name, member_name )/* X========================================= X Void the library cache for lib lib_name, and member member_name. */ Xchar *lib_name; Xchar *member_name; X{ X VOID_LCACHE( lib_name, member_name ); X} X X X X/* X** return the current time X*/ Xtime_t XDo_time() X{ X extern time_t time(); X return (time((time_t*)0)); X} X X X X/* X** Execute the string passed in as a command and return X** the return code. The command line arguments are X** assumed to be separated by spaces or tabs. The first X** such argument is assumed to be the command. X** X** If group is true then this is a group of commands to be fed to the X** the shell as a single unit. In this case cmd is of the form X** "file" indicating the file that should be read by the shell X** in order to execute the command group. X*/ Xint XDo_cmnd(cmd, group, do_it, target, how, ignore, shell, last) Xchar *cmd; Xint group; Xint do_it; XCELLPTR target; XHOWPTR how; Xint ignore; Xint shell; Xint last; X{ X int i; X X if( !do_it ) { X if( last && !Doing_bang ) Update_time_stamp( target, how ); X return(0); X } X X if( Max_proc == 1 ) Wait_for_completion = TRUE; X if( (i = runargv(target, how, ignore, group, last, shell, cmd)) == -1 ) X Quit(); X X /* NOTE: runargv must return either 0 or 1, 0 ==> command executed, and X * we waited for it to return, 1 ==> command started and is running X * concurrently with make process. */ X return(i); X} X X X#define MINARGV 64 X/* Take a command and pack it into an argument vector to be executed. */ Xchar ** XPack_argv( group, shell, cmd ) Xint group; Xint shell; Xchar *cmd; X{ X static char **av = NIL(char *); X static int avs = 0; X int i = 0; X X if( av == NIL(char *) ) { X TALLOC(av, MINARGV, char*); X avs = MINARGV; X } X X if( (Packed_shell = shell||group||(*_strpbrk(cmd, Shell_metas)!='\0')) ) { X char* sh = group ? GShell : Shell; X X if( sh != NIL(char) ) { X av[i++] = sh; X if( (av[i] = (group?GShell_flags:Shell_flags)) != NIL(char) ) i++; X X av[i++] = cmd; X av[i] = NIL(char); X } X else X Fatal("%sSHELL macro not defined", group?"GROUP":""); X } X else { X do { X while( iswhite(*cmd) ) ++cmd; X if( *cmd ) av[i++] = cmd; X X while( *cmd != '\0' && !iswhite(*cmd) ) ++cmd; X if( *cmd ) *cmd++ = '\0'; X X if( i == avs ) { X avs += MINARGV; X av = (char **) realloc( av, avs*sizeof(char *) ); X } X } while( *cmd ); X X av[i] = NIL(char); X } X X return(av); X} X X X/* X** Return the value of ename from the environment X** if ename is not defined in the environment then X** NIL(char) should be returned X*/ Xchar * XRead_env_string(ename) Xchar *ename; X{ X extern char *getenv(); X return( getenv(ename) ); X} X X X X/* X** Set the value of the environment string ename to value. X** Returns 0 if success, non-zero if failure X*/ Xint XWrite_env_string(ename, value) Xchar *ename; Xchar *value; X{ X extern int putenv(); X char* p; X char* envstr = _stradd(ename, value, FALSE); X X p = envstr+strlen(ename); /* Don't change this code, _stradd does not */ X *p++ = '='; /* add the space if *value is 0, it does */ X if( !*value ) *p = '\0'; /* allocate enough memory for one though. */ X X return( putenv(envstr) ); X} X X X Xvoid XReadEnvironment() X{ X extern char **Rule_tab; X extern char **environ; X char **rsave; X X rsave = Rule_tab; X Rule_tab = environ; X Readenv = TRUE; X X Parse( NIL(FILE) ); X X Readenv = FALSE; X Rule_tab = rsave; X} X X X X/* X** All we have to catch is SIG_INT X*/ Xvoid XCatch_signals(fn) Xvoid (*fn)(); X{ X if( signal(SIGINT, SIG_IGN) != SIG_IGN ) X signal( SIGINT, fn ); X if( signal(SIGQUIT, SIG_IGN) != SIG_IGN ) X signal( SIGQUIT, fn ); X} X X X X/* X** Clear any previously set signals X*/ Xvoid XClear_signals() X{ X if( signal(SIGINT, SIG_IGN) != SIG_IGN ) X signal( SIGINT, SIG_DFL ); X if( signal(SIGQUIT, SIG_IGN) != SIG_IGN ) X signal( SIGQUIT, SIG_DFL ); X} X X X X/* X** Set program name X*/ Xvoid XProlog(argc, argv) Xint argc; Xchar* argv[]; X{ X Pname = (argc == 0) ? DEF_MAKE_PNAME : argv[0]; X Root_how.hw_files = NIL(FILELIST); X} X X X X/* X** Do any clean up for exit. X*/ Xvoid XEpilog(ret_code) Xint ret_code; X{ X Unlink_temp_files(&Root_how); X exit( ret_code ); X} X X X X/* X** Use the built-in functions of the operating system to get the current X** working directory. X*/ Xchar * XGet_current_dir() X{ X static char buf[MAX_PATH_LEN+1]; X X return( getcwd(buf, sizeof(buf)) ); X} X X X X/* X** change working directory X*/ Xint XSet_dir(path) Xchar* path; X{ X return( chdir(path) ); X} X X X X/* X** return switch char X*/ Xchar XGet_switch_char() X{ X return( getswitchar() ); X} X X X X/* X** Generate a temporary file name and open the file for writing. X** If a name cannot be generated or the file cannot be opened X** return -1, else return the fileno of the open file. X** and update the source file pointer to point at the new file name. X** Note that the new name should be freed when the file is removed. X*/ XFILE* XOpen_temp(path, suff) Xchar **path; Xchar *suff; X{ X extern char *tempnam(); X X *path = _strjoin( tempnam(NIL(char), "mk"), suff, -1, TRUE ); X Def_macro( "TMPFILE", *path, M_MULTI|M_EXPANDED ); X X return( fopen(*path, "w") ); X} X X X/* X** Open a new temporary file and set it up for writing. X*/ XFILE * XStart_temp( suffix, cp, how, fname ) Xchar *suffix; XCELLPTR cp; XHOWPTR how; Xchar **fname; X{ X FILE *fp; X char *tmpname; X char *name; X FILELISTPTR new; X X name = (cp != NIL(CELL))?cp->CE_NAME:"makefile text"; X if( how == NIL(HOW) ) how = &Root_how; X X if( (fp = Open_temp( &tmpname, suffix)) == NIL(FILE) ) X Fatal("Cannot open temp file `%s' while processing `%s'", tmpname, name ); X X TALLOC( new, 1, FILELIST ); X X new->fl_next = how->hw_files; X new->fl_name = tmpname; X new->fl_file = fp; /* indicates temp file is open */ X X how->hw_files = new; X *fname = tmpname; X X return( fp ); X} X X X/* X** Close a previously used temporary file. X*/ Xvoid XClose_temp(how, file) XHOWPTR how; XFILE *file; X{ X FILELISTPTR fl; X if( how == NIL(HOW) ) how = &Root_how; X X for( fl=how->hw_files; fl && fl->fl_file != file; fl=fl->fl_next ); X if( fl ) { X fl->fl_file = NIL(FILE); X fclose(file); X } X} X X X/* X** Clean-up, and close all temporary files associated with a target. X*/ Xvoid XUnlink_temp_files( how )/* X========================== X Unlink the tempfiles if any exist. Make sure you close the files first X though. This ensures that under DOS there is no disk space lost. */ XHOWPTR how; X{ X FILELISTPTR next; X X while( how->hw_files != NIL(FILELIST) ) { X if( how->hw_files->fl_file ) fclose( how->hw_files->fl_file ); X X if( Verbose ) X printf( "%s: Left temp file [%s]\n", Pname, how->hw_files->fl_name ); X else X (void) unlink( how->hw_files->fl_name ); X X FREE( how->hw_files->fl_name ); X next = how->hw_files->fl_next; X FREE(how->hw_files); X how->hw_files = next; X } X} X X Xvoid XHandle_result(status, ignore, abort_flg, target) Xint status; Xint ignore; Xint abort_flg; XCELLPTR target; X{ X status = ((status&0xff)==0 ? status>>8 X : (status & 0xff)==SIGTERM ? -1 X : (status & 0x7f)+128); X X if( status ) X if( !abort_flg ) { X fprintf( stderr, "%s: Error code %d, while making '%s'", X Pname, status, target->ce_fname ); X X if( ignore || Continue ) { X fputs( " (Ignored)\n", stderr ); X } X else { X fputc( '\n', stderr ); X X if( !(target->ce_attr & A_PRECIOUS) ) X if( unlink( target->ce_fname ) == 0 ) X fprintf(stderr,"%s: '%s' removed.\n",Pname,target->ce_fname); X X Quit(); X } X } X else if( !(target->ce_attr & A_PRECIOUS) ) X unlink( target->ce_fname ); X} X X Xvoid XUpdate_time_stamp( cp, how ) XCELLPTR cp; XHOWPTR how; X{ X HASHPTR hp; X CELLPTR tcp; X int tmpflg; X X how->hw_flag |= F_MADE; X Unlink_temp_files( how ); X X /* do the time only at end, of MULTI recipe targets, or immediately X * for non-MULTI recipe targets. */ X tmpflg = cp->ce_flag & F_MULTI; X X if( (tmpflg && cp->CE_HOW == how) || !tmpflg ) { X tcp = cp; X do { X if( tcp->ce_attr & A_LIBRARY ) X Void_lib_cache( tcp->ce_fname, NIL(char) ); X else if( !Touch && (tcp->ce_attr & A_LIBRARYM) ) X Void_lib_cache( tcp->ce_lib, tcp->ce_fname ); X X if( Trace ) { X tcp->ce_time = Do_time(); X tcp->ce_flag |= F_STAT; /* pretend we stated ok */ X X if( tcp->ce_fname == NIL(char) ) X tcp->ce_fname = tcp->CE_NAME; X } X else { X Stat_target( tcp, TRUE ); X if( tcp->ce_time == (time_t) 0L ) X tcp->ce_time = Do_time(); X } X X if( Verbose ) X printf( "%s: <<<< Set [%s] time stamp to %ld\n", X Pname, tcp->CE_NAME, tcp->ce_time ); X X tcp->ce_flag |= F_MADE; X tcp = tcp->ce_all; X } X while( tcp != NIL(CELL) && tcp != cp ); X } X else if( tmpflg ) X cp->ce_flag |= F_STAT; X X X /* Scan the list of prerequisites and if we find one that is X * marked as being removable, (ie. an inferred intermediate node X * then remove it. We remove a prerequisite by running the recipe X * associated with the special target .REMOVE, with $< set to X * the list of prerequisites to remove. */ X X if( (hp = Get_name( ".REMOVE", Defs, FALSE, NIL(CELL) )) != NIL(HASH) ) { X register LINKPTR dp; X int flag = FALSE; X int rem; X t_attr attr; X X tcp = hp->CP_OWNR; X tcp->ce_flag |= F_TARGET; X Clear_prerequisites( tcp->CE_HOW ); X X for( dp = how->hw_prq; dp != NIL(LINK); dp = dp->cl_next ) { X register CELLPTR prq = dp->cl_prq; X X attr = Glob_attr | prq->ce_attr; X rem = (prq->ce_flag & F_REMOVE) && X (prq->ce_flag & F_MADE ) && X !(attr & A_PRECIOUS) && X !Force; X X if( rem ) { X CELLPTR tmp = prq; X do { X (Add_prerequisite(tcp->CE_HOW, prq, FALSE))->cl_flag |= F_TARGET; X prq->ce_flag &= ~F_REMOVE; X prq = prq->ce_all; X } X while( prq != NIL(CELL) && prq != tmp ); X flag = TRUE; X } X } X X if( flag ) Remove_prq( tcp ); SHAR_EOF echo "End of part 4" echo "File sysintf.c is continued in part 5" echo "5" > s2_seq_.tmp exit 0