v19i053: dmake - dmake version 3.7, Part32/37

Dennis Vadura dvadura at watdragon.waterloo.edu
Tue May 14 00:53:36 AEST 1991


Submitted-by: Dennis Vadura <dvadura at watdragon.waterloo.edu>
Posting-number: Volume 19, Issue 53
Archive-name: dmake/part32
Supersedes: dmake-3.6: Volume 15, Issue 52-77

---- Cut Here and feed the following to sh ----
#!/bin/sh
# this is dmake.shar.32 (part 32 of a multipart archive)
# do not concatenate these parts, unpack them in order with /bin/sh
# file dmake/tos/runargv.c continued
#
if test ! -r _shar_seq_.tmp; then
	echo 'Please unpack part 1 first!'
	exit 1
fi
(read Scheck
 if test "$Scheck" != 32; then
	echo Please unpack part "$Scheck" next!
	exit 1
 else
	exit 0
 fi
) < _shar_seq_.tmp || exit 1
if test -f _shar_wnt_.tmp; then
sed 's/^X//' << 'SHAR_EOF' >> 'dmake/tos/runargv.c' &&
X
PUBLIC int
runargv(target, ignore, group, last, shell, cmd)
CELLPTR target;
int     ignore;
int	group;
int	last;
int	shell;
char	*cmd;
{
X   int status;
X   char **argv;
X
X   argv = Pack_argv( group, shell, cmd );
X   _add_child(target, ignore);
X   status = spawnvp(P_WAIT, *argv, argv);
X   if( status == -1 ) Error("%s: %s", argv[0], strerror(errno));
X   _finished_child(status);
X   if( last && !Doing_bang ) Update_time_stamp( target );
X
X   return( 0 );
}
X
X
PUBLIC void
Clean_up_processes()
{
X   _abort_flg = TRUE;
X   _finished_child(-1);
}
X
X
PUBLIC int
Wait_for_child( abort_flg, pid )
int abort_flg;
int pid;
{
X   return(1);
}
X
X
static int     _valid = -1;
static CELLPTR _tg;
static int     _ignore;
X
static void
_add_child( target, ignore )
CELLPTR target;
int	ignore;
{
X   _tg = target;
X   _ignore = ignore;
X   _valid = 0;
X
X   Current_target = NIL(CELL);
}
X
X
static void
_finished_child(status)
int	status;
{
X   if( _valid == -1 ) return;
X   Unlink_temp_files( _tg );
X   _valid = -1;
X   Handle_result( status, _ignore, _abort_flg, _tg );
}
SHAR_EOF
chmod 0640 dmake/tos/runargv.c ||
echo 'restore of dmake/tos/runargv.c failed'
Wc_c="`wc -c < 'dmake/tos/runargv.c'`"
test 2542 -eq "$Wc_c" ||
	echo 'dmake/tos/runargv.c: original size 2542, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/tos/startup.h ==============
if test -f 'dmake/tos/startup.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/tos/startup.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/startup.h' &&
/* This file contains the default value of the MAKESTARTUP variable.
X * You must set the quoted string below to the default path to the startup
X * variable, so that it gets compiled in.  LEAVE ROOTDIR at the front of
X * the path.  This allows the user to customize his environment for dmake
X * by setting up a new ROOTDIR environment variable. */
X
"MAKESTARTUP := $(ROOTDIR)/etc/startup.mk",
SHAR_EOF
chmod 0640 dmake/tos/startup.h ||
echo 'restore of dmake/tos/startup.h failed'
Wc_c="`wc -c < 'dmake/tos/startup.h'`"
test 392 -eq "$Wc_c" ||
	echo 'dmake/tos/startup.h: original size 392, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/tos/startup.mk ==============
if test -f 'dmake/tos/startup.mk' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/tos/startup.mk (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/startup.mk' &&
# Generic UNIX DMAKE startup file.  Customize to suit your needs.
# Should work for both SYSV, and BSD 4.3
# See the documentation for a description of internally defined macros.
#
# Disable warnings for macros redefined here that were given
# on the command line.
__.SILENT := $(.SILENT)
.SILENT   := yes
X
# Configuration parameters for DMAKE startup.mk file
# Set these to NON-NULL if you wish to turn the parameter on.
_HAVE_RCS	:= 		# yes => RCS  is installed.
_HAVE_SCCS	:= 		# yes => SCCS is installed.
X
# Applicable suffix definitions
A := .olb	# Libraries
E :=		# Executables
F := .f		# Fortran
O := .o		# Objects
P := .p		# Pascal
S := .s		# Assembler sources
V := ,v		# RCS suffix
X
# Recipe execution configurations
SHELL		:= /bin/sh
SHELLFLAGS	:= 
GROUPSHELL	:= $(SHELL)
GROUPFLAGS	:= 
SHELLMETAS	:= |();&<>?*][$$:\\#`'"
GROUPSUFFIX	:= .bat
DIVFILE		 = $(TMPFILE)
X
# Standard C-language command names and flags
X   CPP	   := /gnu/lib/cpp	# C-preprocessor
X   CC      := gcc		# C-compiler and flags
X   CFLAGS  +=
X
X   AS      := /gnu/lib/as	# Assembler and flags
X   ASFLAGS += 
X
X   LD       = $(CC)		# Loader and flags
X   LDFLAGS +=
X   LDLIBS   =
X
# Definition of $(MAKE) macro for recursive makes.
X   MAKE = $(MAKECMD) $(MFLAGS)
X
# Definition of Print command for this system.
X   PRINT = lpr
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
# 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     := gar		# archiver
X   ARFLAGS+= ruv
X
X   RM	   := /gnu/bin/rm	# remove a file command
X   RMFLAGS +=
X
# Implicit generation rules for making inferences.
# We don't provide .yr or .ye rules here.  They're obsolete.
# 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
# Executables
X   %$E : %$O ; $(LD) $(LDFLAGS) -o $@ $< $(LDLIBES)
X
# lex and yacc rules
X   %.c : %.y ; $(YACC)  $(YFLAGS) $<; mv $(YTAB).c $@
X   %.c : %.l ; $(LEX)   $(LFLAGS) $<; mv $(LEXYY).c $@
X
# This rule tells how to make *.out from it's immediate list of prerequisites
# UNIX only.
X   %.out :; $(LD) $(LDFLAGS) -o $@ $^ $(LDLIBS)
X
# RCS support
.IF $(_HAVE_RCS)
X   % : %$V $$(@:d)RCS/$$(@:f)$V;- $(CO) $(COFLAGS) $@
X   .NOINFER : %$V $$(@:d)RCS/$$(@:f)$V
.END
X
# SCCS support
.IF $(_HAVE_SCCS)
X   % : s.% ; get $@
X   .NOINFER : s.%
.END
X
# Recipe to make archive files.
%$A :
[
X   $(AR) $(ARFLAGS) $@ $?
X   $(RM) $(RMFLAGS) $?
X   ranlib $@
]
X
# DMAKE uses this recipe to remove intermediate targets
.REMOVE :; $(RM) -f $<
X
# AUGMAKE extensions for SYSV compatibility
@B = $(@:b)
@D = $(@:d)
@F = $(@:f)
*B = $(*:b)
*D = $(*:d)
*F = $(*:f)
<B = $(<:b)
<D = $(<:d)
<F = $(<:f)
?B = $(?:b)
?F = $(?:f)
?D = $(?:d)
X
# Turn warnings back to previous setting.
.SILENT := $(__.SILENT)
X
# Local startup file if any
.INCLUDE .IGNORE: "_startup.mk"
SHAR_EOF
chmod 0640 dmake/tos/startup.mk ||
echo 'restore of dmake/tos/startup.mk failed'
Wc_c="`wc -c < 'dmake/tos/startup.mk'`"
test 3233 -eq "$Wc_c" ||
	echo 'dmake/tos/startup.mk: original size 3233, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/tos/sysintf.h ==============
if test -f 'dmake/tos/sysintf.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/tos/sysintf.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/sysintf.h' &&
/*
** assorted bits of system interface, for common routines inside dmake.
** System specific code can be found in the config.h files for each
** of the system specifications.
*/
X
#define STAT stat
#define VOID_LCACHE(l,m) (void) void_lcache(l,m)
#define Hook_std_writes(A)
#definf GETPID getpid()
X
/*
** standard C items
*/
X
/*
** DOS interface standard items
*/
#define	getswitchar()	'-'
X
/*
** make parameters
*/
#define	MAX_PATH_LEN	1024
SHAR_EOF
chmod 0640 dmake/tos/sysintf.h ||
echo 'restore of dmake/tos/sysintf.h failed'
Wc_c="`wc -c < 'dmake/tos/sysintf.h'`"
test 442 -eq "$Wc_c" ||
	echo 'dmake/tos/sysintf.h: original size 442, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/tos/tempnam.c ==============
if test -f 'dmake/tos/tempnam.c' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/tos/tempnam.c (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/tos/tempnam.c' &&
/*LINTLIBRARY*/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
X
#define max(A,B) (((A)<(B))?(B):(A))
X
extern char *mktemp();
extern int access();
X
static char *cpdir();
static char  *seed="AAA";
X
/* BSD stdio.h doesn't define P_tmpdir, so let's do it here */
#ifndef P_tmpdir
static char *P_tmpdir = "/tmp";
#endif
X
char *
tempnam(dir, prefix)
char *dir;		/* use this directory please (if non-NULL) */
char *prefix;		/* use this (if non-NULL) as filename prefix */
{
X   register char *p, *q, *tmpdir;
X   int            tl=0, dl=0, pl;
X
X   pl = strlen(P_tmpdir);
X
X   if( (tmpdir = getenv("TMPDIR")) != NULL ) tl = strlen(tmpdir);
X   if( dir != NULL ) dl = strlen(dir);
X
X   if( (p = malloc((unsigned)(max(max(dl,tl),pl)+16))) == NULL )
X     return(NULL);
X
X   *p = '\0';
X
X   if( (tl == 0) || (access( cpdir(p, tmpdir), 3) != 0) )
X     if( (dl == 0) || (access( cpdir(p, dir), 3) != 0) )
X	if( access( cpdir(p, P_tmpdir),   3) != 0 )
X	   if( access( cpdir(p, "/tmp"),  3) != 0 )
X	      return(NULL);
X
X   (void) strcat(p, "/");
X   if(prefix)
X   {
X      *(p+strlen(p)+5) = '\0';
X      (void)strncat(p, prefix, 5);
X   }
X
X   (void)strcat(p, seed);
X   (void)strcat(p, "XXXXXX");
X
X   q = seed;
X   while(*q == 'Z') *q++ = 'A';
X   ++*q;
X
X   if(*mktemp(p) == '\0') return(NULL);
X   return(p);
}
X
X
X
static char *
cpdir(buf, str)
char *buf;
char *str;
{
X   char *p;
X
X   if(str != NULL)
X   {
X      (void) strcpy(buf, str);
X      p = buf - 1 + strlen(buf);
X      if(*p == '/') *p = '\0';
X   }
X
X   return(buf);
}
SHAR_EOF
chmod 0640 dmake/tos/tempnam.c ||
echo 'restore of dmake/tos/tempnam.c failed'
Wc_c="`wc -c < 'dmake/tos/tempnam.c'`"
test 1506 -eq "$Wc_c" ||
	echo 'dmake/tos/tempnam.c: original size 1506, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/ar.h ==============
if test ! -d 'dmake/unix'; then
    mkdir 'dmake/unix'
fi
if test ! -d 'dmake/unix/386ix'; then
    mkdir 'dmake/unix/386ix'
fi
if test -f 'dmake/unix/386ix/ar.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/ar.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/ar.h' &&
#define PORTAR 1
#include "/usr/include/ar.h"
SHAR_EOF
chmod 0640 dmake/unix/386ix/ar.h ||
echo 'restore of dmake/unix/386ix/ar.h failed'
Wc_c="`wc -c < 'dmake/unix/386ix/ar.h'`"
test 46 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/ar.h: original size 46, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/config.h ==============
if test -f 'dmake/unix/386ix/config.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/config.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/config.h' &&
/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/386ix/RCS/config.h,v 1.1 91/05/06 15:27:43 dvadura Exp $
-- SYNOPSIS -- Configurarion include file.
-- 
-- DESCRIPTION
-- 	There is one of these for each specific machine configuration.
--	It can be used to further tweek the machine specific sources
--	so that they compile.
--
-- AUTHOR
--      Dennis Vadura, dvadura at watdragon.uwaterloo.ca
--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
--
-- COPYRIGHT
--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
-- 
--      This program is free software; you can redistribute it and/or
--      modify it under the terms of the GNU General Public License
--      (version 1), as published by the Free Software Foundation, and
--      found in the file 'LICENSE' included with this distribution.
-- 
--      This program is distributed in the hope that it will be useful,
--      but WITHOUT ANY WARRANTY; without even the implied warrant of
--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--      GNU General Public License for more details.
-- 
--      You should have received a copy of the GNU General Public License
--      along with this program;  if not, write to the Free Software
--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
--
-- LOG
--     $Log:	config.h,v $
X * Revision 1.1  91/05/06  15:27:43  dvadura
X * dmake Release Version 3.7
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. */
#define coreleft() 0L
X
/* Define the getcwd function that is used in the code, since BSD does
X * not have getcwd, but call it getwd instead. */
extern char *getcwd ANSI((char *, int));
X
/* Define setvbuf, SysV doesn't have one */
#define setvbuf(fp, bp, type, len) setbuf( fp, NULL );
X
/* We don't care about CONST */
#define CONST
SHAR_EOF
chmod 0640 dmake/unix/386ix/config.h ||
echo 'restore of dmake/unix/386ix/config.h failed'
Wc_c="`wc -c < 'dmake/unix/386ix/config.h'`"
test 1998 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/config.h: original size 1998, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/config.mk ==============
if test -f 'dmake/unix/386ix/config.mk' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/config.mk (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/config.mk' &&
# This is the 386IX UNIX configuration file for DMAKE
#	It simply modifies the values of SRC, and checks to see if
#	OSENVIRONMENT is defined.  If so it includes the appropriate
#	config.mk file.
#
# It also sets the values of .SOURCE.c and .SOURCE.h to include the local
# directory.
#
osrdir := $(OS)$(DIRSEPSTR)$(OSRELEASE)
X
# The following are required sources
OSDSRC := 
.IF $(OSDSRC)
X   SRC += $(OSDSRC)
X   .SETDIR=$(osrdir) : $(OSDSRC)
.END
X
.SOURCE.h : $(osrdir)
X
# Local configuration modifications for CFLAGS, there's local SysV includes
# too.
CFLAGS += -I$(osrdir)
X
# See if we modify anything in the lower levels.
.IF $(OSENVIRONMENT) != $(NULL)
X   .INCLUDE .IGNORE : $(osrdir)$(DIRSEPSTR)$(OSENVIRONMENT)$(DIRSEPSTR)config.mk
.END
SHAR_EOF
chmod 0640 dmake/unix/386ix/config.mk ||
echo 'restore of dmake/unix/386ix/config.mk failed'
Wc_c="`wc -c < 'dmake/unix/386ix/config.mk'`"
test 745 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/config.mk: original size 745, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/make.sh ==============
if test -f 'dmake/unix/386ix/make.sh' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/make.sh (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/make.sh' &&
mkdir objects
cc -c -I. -Iunix -Iunix/386ix -O infer.c
mv infer.o objects
cc -c -I. -Iunix -Iunix/386ix -O make.c
mv make.o objects
cc -c -I. -Iunix -Iunix/386ix -O stat.c
mv stat.o objects
cc -c -I. -Iunix -Iunix/386ix -O expand.c
mv expand.o objects
cc -c -I. -Iunix -Iunix/386ix -O dmstring.c
mv dmstring.o objects
cc -c -I. -Iunix -Iunix/386ix -O hash.c
mv hash.o objects
cc -c -I. -Iunix -Iunix/386ix -O dag.c
mv dag.o objects
cc -c -I. -Iunix -Iunix/386ix -O dmake.c
mv dmake.o objects
cc -c -I. -Iunix -Iunix/386ix -O path.c
mv path.o objects
cc -c -I. -Iunix -Iunix/386ix -O imacs.c
mv imacs.o objects
cc -c -I. -Iunix -Iunix/386ix -O sysintf.c
mv sysintf.o objects
cc -c -I. -Iunix -Iunix/386ix -O parse.c
mv parse.o objects
cc -c -I. -Iunix -Iunix/386ix -O getinp.c
mv getinp.o objects
cc -c -I. -Iunix -Iunix/386ix -O quit.c
mv quit.o objects
cc -c -I. -Iunix -Iunix/386ix -O state.c
mv state.o objects
cc -c -I. -Iunix -Iunix/386ix -O basename.c
mv basename.o objects
cc -c -I. -Iunix -Iunix/386ix -O dmdump.c
mv dmdump.o objects
cc -c -I. -Iunix -Iunix/386ix -O macparse.c
mv macparse.o objects
cc -c -I. -Iunix -Iunix/386ix -O rulparse.c
mv rulparse.o objects
cc -c -I. -Iunix -Iunix/386ix -O percent.c
mv percent.o objects
cc -c -I. -Iunix -Iunix/386ix -O function.c
mv function.o objects
cc -c -I. -Iunix -Iunix/386ix -O unix/arlib.c
mv arlib.o objects
cc -c -I. -Iunix -Iunix/386ix -O unix/dirbrk.c
mv dirbrk.o objects
cc -c -I. -Iunix -Iunix/386ix -O unix/rmprq.c
mv rmprq.o objects
cc -c -I. -Iunix -Iunix/386ix -O unix/ruletab.c
mv ruletab.o objects
cc -c -I. -Iunix -Iunix/386ix -O unix/runargv.c
mv runargv.o objects
cc  -o dmake  objects/infer.o objects/make.o objects/stat.o objects/expand.o objects/dmstring.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/state.o objects/basename.o objects/dmdump.o objects/macparse.o objects/rulparse.o objects/percent.o objects/function.o objects/arlib.o objects/dirbrk.o objects/rmprq.o objects/ruletab.o objects/runargv.o 
cp unix/386ix/startup.mk startup.mk
SHAR_EOF
chmod 0640 dmake/unix/386ix/make.sh ||
echo 'restore of dmake/unix/386ix/make.sh failed'
Wc_c="`wc -c < 'dmake/unix/386ix/make.sh'`"
test 2126 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/make.sh: original size 2126, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/public.h ==============
if test -f 'dmake/unix/386ix/public.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/public.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/public.h' &&
/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/386ix/RCS/public.h,v 1.1 91/05/06 15:27:45 dvadura Exp Locker: dvadura $
-- WARNING  -- This file is AUTOMATICALLY GENERATED DO NOT EDIT IT
--
-- SYNOPSIS -- Local functions exported to be visible by others.
--
-- DESCRIPTION
--      This file is generated by 'genpub'.  Function declarations
--      that appear in this file are extracted by 'genpub' from
--      source files.  Any function in the source file whose definition
--      appears like:
--
--          PUBLIC return_type
--          function( arg_list );
--          type_expr1 arg1;
--          ...
--
--      has its definition extracted and a line of the form:
--
--          return_type function ANSI((type_expr1,type_expr2,...));
--
--      entered into the output file.
--
-- AUTHOR
--      Dennis Vadura, dvadura at watdragon.uwaterloo.ca
--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
--
-- COPYRIGHT
--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
-- 
--      This program is free software; you can redistribute it and/or
--      modify it under the terms of the GNU General Public License
--      (version 1), as published by the Free Software Foundation, and
--      found in the file 'LICENSE' included with this distribution.
-- 
--      This program is distributed in the hope that it will be useful,
--      but WITHOUT ANY WARRANTY; without even the implied warrant of
--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--      GNU General Public License for more details.
-- 
--      You should have received a copy of the GNU General Public License
--      along with this program;  if not, write to the Free Software
--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
--
-- LOG
--     $Log:	public.h,v $
X * Revision 1.1  91/05/06  15:27:45  dvadura
X * dmake Release Version 3.7
X * 
*/
X
#ifndef _DMAKE_PUBLIC_h
#define _DMAKE_PUBLIC_h
X
void Infer_recipe ANSI((CELLPTR, CELLPTR));
int Make_targets ANSI(());
int Exec_commands ANSI((CELLPTR));
void Pop_dir ANSI((int));
void Append_line ANSI((char *, int, FILE *, char *, int, int));
void Stat_target ANSI((CELLPTR, int));
char * Expand ANSI((char *));
char * Apply_edit ANSI((char *, char *, char *, int, int));
void Map_esc ANSI((char *));
char* Apply_modifiers ANSI((int, char *));
char* Tokenize ANSI((char *, char *));
char * _strjoin ANSI((char *, char *, int, int));
char * _stradd ANSI((char *, char *, int));
char * _strapp ANSI((char *, char *));
char * _strdup ANSI((char *));
char * _strpbrk ANSI((char *, char *));
char * _strspn ANSI((char *, char *));
char * _strstr ANSI((char *, char *));
char * _substr ANSI((char *, char *));
uint16 Hash ANSI((char *, uint32 *));
HASHPTR Get_name ANSI((char *, HASHPTR *, int));
HASHPTR Search_table ANSI((HASHPTR *, char *, uint16 *, uint32 *));
HASHPTR Def_macro ANSI((char *, char *, int));
CELLPTR Def_cell ANSI((char *));
LINKPTR Add_prerequisite ANSI((CELLPTR, CELLPTR, int, int));
void Clear_prerequisites ANSI((CELLPTR));
int Test_circle ANSI((CELLPTR, int));
STRINGPTR Def_recipe ANSI((char *, STRINGPTR, int, int));
t_attr Rcp_attribute ANSI((char *));
int main ANSI((int, char **));
FILE * Openfile ANSI((char *, int, int));
FILE * Closefile ANSI(());
FILE * Search_file ANSI((char *, char **));
char * Filename ANSI(());
void No_ram ANSI(());
int Usage ANSI((int));
int Version ANSI(());
char * Get_suffix ANSI((char *));
char * Build_path ANSI((char *, char *));
void Make_rules ANSI(());
void Create_macro_vars ANSI(());
time_t Do_stat ANSI((char *, char *, char **));
int Do_touch ANSI((char *, char *, char **));
void Void_lib_cache ANSI((char *, char *));
time_t Do_time ANSI(());
int Do_cmnd ANSI((char *, int, int, CELLPTR, int, int, int));
char ** Pack_argv ANSI((int, int, char *));
char * Read_env_string ANSI((char *));
int Write_env_string ANSI((char *, char *));
void ReadEnvironment ANSI(());
void Catch_signals ANSI((void (*)()));
void Clear_signals ANSI(());
void Prolog ANSI((int, char* []));
void Epilog ANSI((int));
char * Get_current_dir ANSI(());
int Set_dir ANSI((char*));
char Get_switch_char ANSI(());
FILE* Get_temp ANSI((char **, char *, int));
FILE * Start_temp ANSI((char *, CELLPTR, char **));
void Open_temp_error ANSI((char *, char *));
void Link_temp ANSI((CELLPTR, FILE *, char *));
void Close_temp ANSI((CELLPTR, FILE *));
void Unlink_temp_files ANSI((CELLPTR));
void Handle_result ANSI((int, int, int, CELLPTR));
void Update_time_stamp ANSI((CELLPTR));
void Parse ANSI((FILE *));
int Get_line ANSI((char *, FILE *));
char * Do_comment ANSI((char *, char **, int));
char * Get_token ANSI((TKSTRPTR, char *, int));
void Quit ANSI(());
void Read_state ANSI(());
void Write_state ANSI(());
int Check_state ANSI((CELLPTR, STRINGPTR *, int));
char* basename ANSI((char *));
void Dump ANSI(());
void Dump_recipe ANSI((STRINGPTR));
int Parse_macro ANSI((char *, int));
int Macro_op ANSI((char *));
int Parse_rule_def ANSI((int *));
int Rule_op ANSI((char *));
void Add_recipe_to_list ANSI((char *, int, int));
void Bind_rules_to_targets ANSI((int));
int Set_group_attributes ANSI((char *));
DFALINKPTR Match_dfa ANSI((char *));
void Check_circle_dfa ANSI(());
void Add_nfa ANSI((char *));
char * Exec_function ANSI((char *));
time_t seek_arch ANSI((char *, char *));
int If_root_path ANSI((char *));
void Remove_prq ANSI((CELLPTR));
int runargv ANSI((CELLPTR, int, int, int, int, char *));
int Wait_for_child ANSI((int, int));
void Clean_up_processes ANSI(());
X
#endif
SHAR_EOF
chmod 0640 dmake/unix/386ix/public.h ||
echo 'restore of dmake/unix/386ix/public.h failed'
Wc_c="`wc -c < 'dmake/unix/386ix/public.h'`"
test 5521 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/public.h: original size 5521, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/startup.mk ==============
if test -f 'dmake/unix/386ix/startup.mk' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/startup.mk (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/startup.mk' &&
# Generic UNIX DMAKE startup file.  Customize to suit your needs.
# Should work for both SYSV, and BSD 4.3
# See the documentation for a description of internally defined macros.
#
# Disable warnings for macros redefined here that were given
# on the command line.
__.SILENT := $(.SILENT)
.SILENT   := yes
X
# Configuration parameters for DMAKE startup.mk file
# Set these to NON-NULL if you wish to turn the parameter on.
_HAVE_RCS	:= yes		# yes => RCS  is installed.
_HAVE_SCCS	:= yes		# yes => SCCS is installed.
X
# Applicable suffix definitions
A := .a		# Libraries
E :=		# Executables
F := .f		# Fortran
O := .o		# Objects
P := .p		# Pascal
S := .s		# Assembler sources
V := ,v		# RCS suffix
X
# Recipe execution configurations
SHELL		:= /bin/sh
SHELLFLAGS	:= -ce
GROUPSHELL	:= $(SHELL)
GROUPFLAGS	:= 
SHELLMETAS	:= |();&<>?*][$$:\\#`'"
GROUPSUFFIX	:=
DIVFILE		 = $(TMPFILE)
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
# Definition of $(MAKE) macro for recursive makes.
X   MAKE = $(MAKECMD) $(MFLAGS)
X
# Definition of Print command for this system.
X   PRINT = lpr
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
# 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
# Implicit generation rules for making inferences.
# We don't provide .yr or .ye rules here.  They're obsolete.
# 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
# Executables
X   %$E : %$O ; $(LD) $(LDFLAGS) -o $@ $< $(LDLIBES)
X
# lex and yacc rules
X   %.c : %.y ; $(YACC)  $(YFLAGS) $<; mv $(YTAB).c $@
X   %.c : %.l ; $(LEX)   $(LFLAGS) $<; mv $(LEXYY).c $@
X
# This rule tells how to make *.out from it's immediate list of prerequisites
# UNIX only.
X   %.out :; $(LD) $(LDFLAGS) -o $@ $^ $(LDLIBS)
X
# RCS support
.IF $(_HAVE_RCS)
X   % : %$V $$(@:d)RCS/$$(@:f)$V;- $(CO) $(COFLAGS) $@
X   .NOINFER : %$V $$(@:d)RCS/$$(@:f)$V
.END
X
# SCCS support
.IF $(_HAVE_SCCS)
X   % : s.% ; get $@
X   .NOINFER : s.%
.END
X
# Recipe to make archive files.
%$A :
[
X   $(AR) $(ARFLAGS) $@ $?
X   $(RM) $(RMFLAGS) $?
X   ranlib $@
]
X
# DMAKE uses this recipe to remove intermediate targets
.REMOVE :; $(RM) -f $<
X
# AUGMAKE extensions for SYSV compatibility
@B = $(@:b)
@D = $(@:d)
@F = $(@:f)
*B = $(*:b)
*D = $(*:d)
*F = $(*:f)
<B = $(<:b)
<D = $(<:d)
<F = $(<:f)
?B = $(?:b)
?F = $(?:f)
?D = $(?:d)
X
# Turn warnings back to previous setting.
.SILENT := $(__.SILENT)
X
# Local startup file if any
.INCLUDE .IGNORE: "_startup.mk"
SHAR_EOF
chmod 0640 dmake/unix/386ix/startup.mk ||
echo 'restore of dmake/unix/386ix/startup.mk failed'
Wc_c="`wc -c < 'dmake/unix/386ix/startup.mk'`"
test 3221 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/startup.mk: original size 3221, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/stdarg.h ==============
if test -f 'dmake/unix/386ix/stdarg.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/stdarg.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/stdarg.h' &&
/*
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
#if !defined(__STDARG)
#define __STDARG
X
typedef char *va_list;
X
#define va_dcl int va_alist
#define va_start(ap,v)  ap = (va_list)&va_alist
#define va_arg(ap,t)    ((t*)(ap += sizeof(t)))[-1]
#define va_end(ap)      ap = NULL
#endif
SHAR_EOF
chmod 0640 dmake/unix/386ix/stdarg.h ||
echo 'restore of dmake/unix/386ix/stdarg.h failed'
Wc_c="`wc -c < 'dmake/unix/386ix/stdarg.h'`"
test 373 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/stdarg.h: original size 373, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/stdlib.h ==============
if test -f 'dmake/unix/386ix/stdlib.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/stdlib.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/stdlib.h' &&
#ifndef _STDLIB_INCLUDED_
#define _STDLIB_INCLUDED_
X
extern /*GOTO*/ _exit();
extern /*GOTO*/ exit();
extern /*GOTO*/ abort();
extern int system();
extern char *getenv();
extern char *calloc();
extern char *malloc();
extern char *realloc();
extern free();
extern int errno;
X
#ifndef EIO
#	include <errno.h>
#endif
X
#endif /* _STDLIB_INCLUDED_ */
SHAR_EOF
chmod 0640 dmake/unix/386ix/stdlib.h ||
echo 'restore of dmake/unix/386ix/stdlib.h failed'
Wc_c="`wc -c < 'dmake/unix/386ix/stdlib.h'`"
test 346 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/stdlib.h: original size 346, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/386ix/time.h ==============
if test -f 'dmake/unix/386ix/time.h' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/386ix/time.h (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/386ix/time.h' &&
/*
** Berkeley get this wrong!
*/
#ifndef	TIME_h
#define	TIME_h
X
typedef	long	time_t;	/* this is the thing we use */
X
#endif	TIME_h
X
SHAR_EOF
chmod 0640 dmake/unix/386ix/time.h ||
echo 'restore of dmake/unix/386ix/time.h failed'
Wc_c="`wc -c < 'dmake/unix/386ix/time.h'`"
test 133 -eq "$Wc_c" ||
	echo 'dmake/unix/386ix/time.h: original size 133, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/arlib.c ==============
if test -f 'dmake/unix/arlib.c' -a X"$1" != X"-c"; then
	echo 'x - skipping dmake/unix/arlib.c (File already exists)'
	rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/arlib.c' &&
/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/RCS/arlib.c,v 1.1 91/05/06 15:27:25 dvadura Exp $
-- SYNOPSIS -- Unix archive manipulation code.
-- 
-- DESCRIPTION
-- 	Originally this code was provided by Eric Gisin of MKS.  I took
--	his code and completely rewrote it adding cacheing of lib members
--	and other various optimizations.  I kept the overal functional
--	idea of the library routines as they are similar to those in GNU
--	make and felt it advantageous to maintain a similar interface.
--
-- AUTHOR
--      Dennis Vadura, dvadura at watdragon.uwaterloo.ca
--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
--
-- COPYRIGHT
--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
-- 
--      This program is free software; you can redistribute it and/or
--      modify it under the terms of the GNU General Public License
--      (version 1), as published by the Free Software Foundation, and
--      found in the file 'LICENSE' included with this distribution.
-- 
--      This program is distributed in the hope that it will be useful,
--      but WITHOUT ANY WARRANTY; without even the implied warrant of
--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--      GNU General Public License for more details.
-- 
--      You should have received a copy of the GNU General Public License
--      along with this program;  if not, write to the Free Software
--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
--
-- LOG
--     $Log:	arlib.c,v $
X * Revision 1.1  91/05/06  15:27:25  dvadura
X * dmake Release Version 3.7
X * 
*/
X
#include <ar.h>
#include "extern.h"
#include "sysintf.h"
X
/* By defining the defines below it is possible to configure the library
X * code for library cacheing/non-cacheing, ASCII archive headers, and a full
X * decode of the ar_hdr fields in the scan_ar function. */
X
#ifndef ASCARCH
#define ASCARCH			1	/* ASCII time stored in archive	*/
#endif
X
#ifndef LC
#define LC			1	/* Turn on library cacheing	*/
#endif
X
#ifndef DECODE_ALL_AR_FIELDS
#define DECODE_ALL_AR_FIELDS	0	/* decode only fields make needs*/
#endif
X
#if LC
#  define FOUND_MEMBER	FALSE
#else
#  define FOUND_MEMBER	TRUE
#  define _cache_member(a, b, c)
#  define _check_cache(a, b, c, d)	FALSE
#endif
X
#define MAXFNAME      255       /* Max length of member name    */
#define	MAXMNAME	8	/* Max module name < MAXFNAME	*/
X
X
/* This struct is used to pass the library and member inrmation about the
X * routines that perform the library seeking/cacheing */
struct ar_args {
X   char   *lib;
X   char   *member;
X   time_t time;
};
X
X
typedef struct AR {
X   char    ar_name[MAXFNAME+1];      /* File name */
X   long    ar_size;                  /* Size in bytes */
X   time_t  ar_time;                  /* Modification time */
X
#ifdef DOS
X   char    ar_modname[MAXMNAME+1];   /* DOS module name */
#endif
X
#if DECODE_ALL_AR_FIELDS
X   uint16  ar_mode;         	     /* File mode */
X   uint16  ar_uid;            	     /* File owner */
X   uint16  ar_gid;                   /* File group owner */
#endif
} AR, *ARPTR;
X
X
static int ar_scan  ANSI((FILE *,
X			  int (*) ANSI((FILE *, struct AR *, struct ar_args *)),
X			  struct ar_args *));
static int ar_touch ANSI(( FILE *, time_t ));
static int time_function  ANSI(( FILE *, struct AR *, struct ar_args * ));
static int touch_function ANSI(( FILE *, struct AR *, struct ar_args * ));
X
#if LC
static int _cache_member ANSI((char *, char *, time_t));
static int _check_cache  ANSI((char *, char *, time_t *, int));
#endif
X
/* decoded archive header */
static AR    _ar;
static off_t arhdroffset;  /* member seek offset */
X
X
PUBLIC time_t
seek_arch(name, lib)/*
======================
X   Look for module 'name' inside 'lib'.  If compiled with cacheing then first
X   check to see if the specified lib is cached.  If so then return that time
X   stamp instead of looking into the library. */
char    *name;
char 	*lib;
{
X   FILE   *f;
X   int    rv;
X   time_t mtime;
X   struct ar_args args;
X
X   /* Check the cache first (if there is a cache) */
X   if( _check_cache(name, lib, &mtime, FALSE) )  return( mtime );
X
X   /* Open the lib file and perform the scan of the members, looking
X    * for our particular member.  If cacheing is enabled it will be
X    * taken care of automatically during the scan. */
X
X   args.lib    = lib;
X   args.member = name;
X   args.time   = (time_t)0L;
X
X   if( (f = fopen(lib, "r")) == NIL(FILE) ) return( (time_t)0L );
X   rv = ar_scan(f, time_function, &args );
X   fclose( f );
X
X   if( rv < 0 ) Fatal("(%s): Invalid library format", lib);
X
X   return( args.time );
}
X
X
int
touch_arch(name, lib)/*
=======================
X   Look for module 'name' inside 'lib'.  If compiled with cacheing then first
X   check to see if the specified lib is cached.  If so then set that time
X   stamp and write it into the library.  Returns 0 on success, non-zero
X   on failure. */
char   *name;
char   *lib;
{
X   FILE   *f;
X   int    rv;
X   struct ar_args args;
X
X   /* Open the lib file and perform the scan of the members, looking
X    * for our particular member.  If cacheing is enabled it will be
X    * taken care of automatically during the scan. */
X
X   args.lib    = lib;
X   args.member = name;
X   args.time   = (time_t)0L;
X
X   if( (f = fopen(lib, "r+")) == NIL(FILE) ) return( (time_t)1L );
X   rv = ar_scan(f, touch_function, &args );
X   fclose( f );
X
X   if( rv < 0 ) Fatal("(%s): Invalid library format", lib);
X
X   return( 0 );
}
X
X
X
static int
time_function(f, arp, argp)/*
=============================
X   get library member's time, if it matches than return it in argp, if
X   cacheing is enabled than cache the library members also. */
FILE           *f;      /* library file          */
struct AR      *arp;    /* library member header */
struct ar_args *argp;
{
X   int rv = _cache_member( arp->ar_name, argp->lib, arp->ar_time );
X
X   if( strcmp(argp->member, arp->ar_name) == 0 ) {
X      argp->time = arp->ar_time;
X
X      if( arp->ar_time == 0 && !(Glob_attr & A_SILENT) )
X         Warning( "(%s): Can't extract library member timestamp; using EPOCH",
X	          argp->member);
X
X      return( rv );  /* 1 => no cacheing, 0 => cacheing */
X   }
X
X   return( FALSE ); /* continue scan */
}
X
X
X
static int
touch_function(f, arp, argp)/*
==============================
X   Update library member's time stamp, and write new time value into cache
X   if required. */
FILE           *f;      /* library file */
struct AR      *arp;    /* library member header */
struct ar_args *argp;
{
X   extern time_t time ANSI(( time_t * ));
X   time_t now = time((time_t*) NULL);  /* Current time.		  */
X
X   if( strcmp(argp->member, arp->ar_name) == 0 ) {
X      _check_cache( argp->member, argp->lib, &now, TRUE );
X      ar_touch(f, now );
X
X      return( TRUE );
X   }
X
X   return( FALSE ); /* continue scan */
}
X
X
X
X
static int
ar_scan(f, function, arg)/*
===========================
X   Scan the opened archive, and call the given function for each member found.
X   The function will be called with the file positioned at the beginning of
X   the member and it can read up to arp->ar_size bytes of the archive member.
X   If the function returns 1, we stop and return 1.  We return 0 at the end
X   of the archive, or -1 if the archive has invalid format.  This interface
X   is more general than required by "make", but it can be used by other
X   utilities.  */
register FILE *f;
int      (*function) ANSI((FILE *, struct AR *, struct ar_args *));
struct   ar_args *arg;
{
X   extern long atol ANSI((char *));
X   register char *p;
X   struct ar_hdr arhdr;   /* archive member header   */
X   int		 nsize;   /* size of member name     */
#if defined(_AIX)
X   struct fl_hdr flhdr;   /* archive file header     */
X   char   magic[SAIAMAG]; /* size of magic string    */
#else
#if ASCARCH
X   char magic[SARMAG];
#else
X   unsigned short word;
#endif
#endif
X
X   fseek( f, 0L, 0 );	/* Start at the beginning of the archive file */
X
#if ASCARCH
#if defined(_AIX)
X   fread( (char *)&flhdr, sizeof(flhdr), 1, f );
X   if( strncmp(flhdr.fl_magic,AIAMAG, SAIAMAG) != 0 ) return(-1);
X   fseek(f, atol(flhdr.fl_fstmoff), 0 ); /* postition to first member */
#else
X   fread( magic, sizeof(magic), 1, f );
X   if( strncmp(magic, ARMAG, SARMAG) != 0 ) return( -1 );
#endif
#else
X   fread( (char*)&word, sizeof(word), 1, f );
X   if( word != ARMAG ) return( -1 );
#endif
X
X   /* scan the library, calling `function' for each member
X    */
X   while( 1 ) {
X      arhdroffset = ftell(f);
#if defined(_AIX)
X      if( fread((char*)&arhdr,sizeof(arhdr)-sizeof(arhdr._ar_name),1,f)!=1)
X         break;
X      nsize = atoi(arhdr.ar_namlen);
X      fseek(f, arhdroffset+(unsigned long)(((struct ar_hdr *)0)->_ar_name.ar_name), 0);
X      if( fread((char*)_ar.ar_name,nsize,1,f)!=1)
X         break;
X      _ar.ar_name[nsize]='\0';
#else
X      if( fread((char*) &arhdr, sizeof(arhdr), 1, f) != 1 ) break;
X      strncpy(_ar.ar_name, arhdr.ar_name, nsize = sizeof(arhdr.ar_name));
#endif
X
X      for( p = &_ar.ar_name[nsize];
X           --p >= _ar.ar_name && *p == ' ';);
X
X      p[1] = '\0';
X      if( *p == '/' ) *p = 0; 	/* SysV has trailing '/' */
X
#if !defined(_AIX)
#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);
#else
X      _ar.ar_time = arhdr.ar_date;
X      _ar.ar_size = arhdr.ar_size;
#endif
#else
#if ASCARCH
X      _ar.ar_time = atol(arhdr.ar_date);
X      _ar.ar_size = atol(arhdr.ar_nxtmem);
#else
X      _ar.ar_time = arhdr.ar_date;
X      _ar.ar_size = arhdr.ar_nxtmem;
#endif
#endif
X
X
#if DECODE_ALL_AR_FIELDS
#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);
#else
X      _ar.ar_mode = arhdr.ar_mode;
X      _ar.ar_uid = arhdr.ar_uid;
X      _ar.ar_gid = arhdr.ar_gid;
#endif
#endif
X
X      if( (*function)(f, &_ar, arg) ) return( 1 );
#if defined(_AIX)
X      if( _ar.ar_size == 0L ) break;
X      fseek( f, (long) _ar.ar_size, 0 );
#else
X      fseek( f, arhdroffset + sizeof(arhdr) + (_ar.ar_size+1 & ~1L), 0 );
#endif
X   }
X
#if !defined(_AIX)
X   if( !feof(f) ) return( -1 );
#endif
X   return 0;
}
X
X
X
static int
ar_touch( f, now )/*
====================
X   touch module header timestamp. */
FILE   *f;
time_t now;
{
X   struct ar_hdr arhdr;                /* external archive header */
SHAR_EOF
true || echo 'restore of dmake/unix/arlib.c failed'
fi
echo 'End of part 32, continue with part 33'
echo 33 > _shar_seq_.tmp
exit 0

exit 0 # Just in case...
-- 
Kent Landfield                   INTERNET: kent at sparky.IMD.Sterling.COM
Sterling Software, IMD           UUCP:     uunet!sparky!kent
Phone:    (402) 291-8300         FAX:      (402) 291-4362
Please send comp.sources.misc-related mail to kent at uunet.uu.net.



More information about the Comp.sources.misc mailing list