Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/misc/volume27/dmake/part38

Text File | 1992-01-29 | 40.0 KB | 1,279 lines

Newsgroups: comp.sources.misc
From: [e-mail] (Dennis Vadura)
Subject:  v27i139:  dmake - dmake Version 3.8, Part38/41
Message-ID: <[e-mail]>
X-Md4-Signature: b9f415e9aac797aa1262845e7125ac88
Date: Wed, 29 Jan 1992 16:52:05 GMT
Approved: [e-mail]

Submitted-by: [e-mail] (Dennis Vadura)
Posting-number: Volume 27, Issue 139
Archive-name: dmake/part38
Environment: Atari-ST, Coherent, Mac, MSDOS, OS/2, UNIX
Supersedes: dmake: Volume 19, Issue 22-58

---- Cut Here and feed the following to sh ----
# this is dmake.shar.38 (part 38 of a multipart archive)
# do not concatenate these parts, unpack them in order with /bin/sh
# file dmake/unix/sysvr1/putenv.c continued
#
if test ! -r _shar_seq_.tmp; then
    echo 'Please unpack part 1 first!'
    exit 1
fi
(read Scheck
 if test "$Scheck" != 38; 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/unix/sysvr1/putenv.c' &&
--      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: putenv.c,v $
X * Revision 1.1  1992/01/24  03:28:26  dvadura
X * dmake Version 3.8, Initial revision
X *
*/
X
#include <stdio.h>
#include <string.h>
X
int
putenv( str )/*
===============
X   Take a string of the form NAME=value and stick it into the environment.
X   We do this by allocating a new set of pointers if we have to add a new
X   string and by replacing an existing pointer if the value replaces the value
X   of an existing string. */
char *str;
{
X   extern char **environ;        /* The current environment. */
X   static char **ourenv = NULL;        /* A new environment        */
X   register char **p;
X   register char *q;
X   int      size;
X
X   /* First search the current environment and see if we can replace a
X    * string. */
X   for( p=environ; *p; p++ ) {
X      register char *s = str;
X
X      for( q = *p; *q && *s && *s == *q; q++, s++ )
X     if( *s == '=' ) {
X        *p = str;
X        return(0);            /* replaced it so go away */
X     }
X   }
X
X   /* Ok, can't replace a string so need to grow the environment. */
X   size = p - environ + 2;    /* size of new environment */
X                /* size of old is size-1   */
X
X   /* It's the first time, so allocate a new environment since we don't know
X    * where the old one is comming from. */
X   if( ourenv == NULL ) {
X      if( (ourenv = (char **) malloc( sizeof(char *)*size )) == NULL )
X     return(1);
X
X      memcpy( (char *)ourenv, (char *)environ, (size-2)*sizeof(char *) );
X   }
X   else if( (ourenv = (char **)realloc( ourenv, size*sizeof(char *))) == NULL )
X      return(1);
X
X   ourenv[--size] = NULL;
X   ourenv[--size] = str;
X
X   environ = ourenv;
X   return(0);
}
SHAR_EOF
chmod 0640 dmake/unix/sysvr1/putenv.c ||
echo 'restore of dmake/unix/sysvr1/putenv.c failed'
Wc_c="`wc -c < 'dmake/unix/sysvr1/putenv.c'`"
test 2940 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr1/putenv.c: original size 2940, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr1/startup.mk ==============
if test -f 'dmake/unix/sysvr1/startup.mk' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr1/startup.mk (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr1/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        # 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    :=
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 = lp
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 = -rv
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) -o $@ $<
X   %$O : %.cl ; class -c $<
X   %$O : %.e %.r %.f %.F %$F
X    $(FC) $(RFLAGS) $(EFLAGS) $(FFLAGS) -c $<
X
# Executables
X   %$E : %$O ; $(CC) $(LDFLAGS) -o $@ $< $(LDLIBES)
X   %$E : %.sh; cp $< $@; chmod 0777 $@
X
# lex and yacc rules
X   %.c : %.y %.Y ; $(YACC)  $(YFLAGS) $<; mv $(YTAB).c $@
X   %.c : %.l %.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 :; $(CC) $(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   GET = get
X   GFLAGS =
X   % : s.% ; $(GET) $(GFLAGS) $<
X   .NOINFER : s.%
.END
X
# Recipe to make archive files.
%$A :
[
X   $(AR) $(ARFLAGS) $@ $?
X   $(RM) $(RMFLAGS) $?
]
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/sysvr1/startup.mk ||
echo 'restore of dmake/unix/sysvr1/startup.mk failed'
Wc_c="`wc -c < 'dmake/unix/sysvr1/startup.mk'`"
test 3285 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr1/startup.mk: original size 3285, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr1/stdarg.h ==============
if test -f 'dmake/unix/sysvr1/stdarg.h' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr1/stdarg.h (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr1/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_H__)
#define __STDARG_H__
X
#if !defined(_VA_LIST_)
#define _VA_LIST_
typedef char *va_list;
#endif
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/sysvr1/stdarg.h ||
echo 'restore of dmake/unix/sysvr1/stdarg.h failed'
Wc_c="`wc -c < 'dmake/unix/sysvr1/stdarg.h'`"
test 430 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr1/stdarg.h: original size 430, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr1/stdlib.h ==============
if test -f 'dmake/unix/sysvr1/stdlib.h' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr1/stdlib.h (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr1/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/sysvr1/stdlib.h ||
echo 'restore of dmake/unix/sysvr1/stdlib.h failed'
Wc_c="`wc -c < 'dmake/unix/sysvr1/stdlib.h'`"
test 346 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr1/stdlib.h: original size 346, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr1/time.h ==============
if test -f 'dmake/unix/sysvr1/time.h' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr1/time.h (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr1/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/sysvr1/time.h ||
echo 'restore of dmake/unix/sysvr1/time.h failed'
Wc_c="`wc -c < 'dmake/unix/sysvr1/time.h'`"
test 133 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr1/time.h: original size 133, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr1/vfprintf.c ==============
if test -f 'dmake/unix/sysvr1/vfprintf.c' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr1/vfprintf.c (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr1/vfprintf.c' &&
/* From:
X * John Limpert            [e-mail]        uunet!n3dmc!gronk!johnl
X */
X
#include <stdio.h>
#include <varargs.h>
X
#ifndef BUFSIZ
#include <stdio.h>
#endif
X
#ifndef va_dcl
#include <varargs.h>
#endif
X
int
vsprintf(str, fmt, ap)
X    char *str, *fmt;
X    va_list ap;
{
X    FILE f;
X    int len;
X
X    f._flag = _IOWRT+_IOMYBUF;
X    f._ptr = (char *)str;    /* My copy of BSD stdio.h has this as (char *)
X                 * with a comment that it should be
X                 * (unsigned char *).  Since this code is
X                 * intended for use on a vanilla BSD system,
X                 * we'll stick with (char *) for now.
X                 */
X    f._cnt = 32767;
X    len = _doprnt(fmt, ap, &f);
X    *f._ptr = 0;
X    return (len);
}
X
int
vfprintf(iop, fmt, ap)
X    FILE *iop;
X    char *fmt;
X    va_list ap;
{
X    int len;
X
X    len = _doprnt(fmt, ap, iop);
X    return (ferror(iop) ? EOF : len);
}
X
int
vprintf(fmt, ap)
X    char *fmt;
X    va_list ap;
{
X    int len;
X
X    len = _doprnt(fmt, ap, stdout);
X    return (ferror(stdout) ? EOF : len);
}
SHAR_EOF
chmod 0640 dmake/unix/sysvr1/vfprintf.c ||
echo 'restore of dmake/unix/sysvr1/vfprintf.c failed'
Wc_c="`wc -c < 'dmake/unix/sysvr1/vfprintf.c'`"
test 934 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr1/vfprintf.c: original size 934, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/config.h ==============
if test ! -d 'dmake/unix/sysvr3'; then
    mkdir 'dmake/unix/sysvr3'
fi
if test -f 'dmake/unix/sysvr3/config.h' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/config.h (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/config.h' &&
/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/sysvr3/config.h,v 1.1 1992/01/24 03:28:30 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, [e-mail]
--      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  1992/01/24  03:28:30  dvadura
X * dmake Version 3.8, Initial revision
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
#ifndef M_XENIX
/* Define setvbuf, SysV doesn't have one */
#define setvbuf(fp, bp, type, len) setbuf( fp, NULL );
#define tzset()
#endif
X
#ifdef M_XENIX
#define ASCARCH        0    /* Use binary archive headers if Xenix */
#endif
X
/* We don't care about CONST */
#define CONST
X
/* some braindead compilers don't understand pointers to void. */
#define PVOID char *
SHAR_EOF
chmod 0640 dmake/unix/sysvr3/config.h ||
echo 'restore of dmake/unix/sysvr3/config.h failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/config.h'`"
test 2219 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/config.h: original size 2219, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/config.mk ==============
if test -f 'dmake/unix/sysvr3/config.mk' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/config.mk (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/config.mk' &&
# This is the SysV R3 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/sysvr3/config.mk ||
echo 'restore of dmake/unix/sysvr3/config.mk failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/config.mk'`"
test 750 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/config.mk: original size 750, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/make.sh ==============
if test -f 'dmake/unix/sysvr3/make.sh' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/make.sh (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/make.sh' &&
mkdir objects
cc -c -I. -Iunix -Iunix/sysvr3 -O infer.c
mv infer.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O make.c
mv make.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O stat.c
mv stat.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O expand.c
mv expand.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O dmstring.c
mv dmstring.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O hash.c
mv hash.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O dag.c
mv dag.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O dmake.c
mv dmake.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O path.c
mv path.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O imacs.c
mv imacs.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O sysintf.c
mv sysintf.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O parse.c
mv parse.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O getinp.c
mv getinp.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O quit.c
mv quit.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O state.c
mv state.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O basename.c
mv basename.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O dmdump.c
mv dmdump.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O macparse.c
mv macparse.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O rulparse.c
mv rulparse.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O percent.c
mv percent.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O function.c
mv function.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O unix/arlib.c
mv arlib.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O unix/dirbrk.c
mv dirbrk.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O unix/rmprq.c
mv rmprq.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -O unix/ruletab.c
mv ruletab.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -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/sysvr3/startup.mk startup.mk
SHAR_EOF
chmod 0640 dmake/unix/sysvr3/make.sh ||
echo 'restore of dmake/unix/sysvr3/make.sh failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/make.sh'`"
test 2153 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/make.sh: original size 2153, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/public.h ==============
if test -f 'dmake/unix/sysvr3/public.h' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/public.h (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/public.h' &&
/* RCS      -- $Header$
-- 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, [e-mail]
--      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$
*/
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 Print_cmnd ANSI((char *, int, int));
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 * _strdup2 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(());
int Nestlevel 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));
int Remove_file ANSI((char *));
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/sysvr3/public.h ||
echo 'restore of dmake/unix/sysvr3/public.h failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/public.h'`"
test 5448 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/public.h: original size 5448, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/pwd/config.mk ==============
if test ! -d 'dmake/unix/sysvr3/pwd'; then
    mkdir 'dmake/unix/sysvr3/pwd'
fi
if test -f 'dmake/unix/sysvr3/pwd/config.mk' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/pwd/config.mk (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/pwd/config.mk' &&
# This is the Sys VR3 PWD configuration file.  It configures SysvR3 unix
# versions of dmake to use a provided version of getcwd rather than the
# standard library version that uses popen to capture the output of pwd.
#
X
osredir := $(OS)$(DIRSEPSTR)$(OSRELEASE)$(DIRSEPSTR)$(OSENVIRONMENT)
X
# The following are required sources
OSRESRC := getcwd.c
X
.IF $(OSRESRC)
X   SRC    += $(OSRESRC)
X   .SETDIR=$(osredir) : $(OSRESRC)
.END
X
.SOURCE.h : $(osredir)
X
# Local configuration modifications for CFLAGS, there's local SysV includes
# too.
CFLAGS += -I$(osredir)
SHAR_EOF
chmod 0640 dmake/unix/sysvr3/pwd/config.mk ||
echo 'restore of dmake/unix/sysvr3/pwd/config.mk failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/pwd/config.mk'`"
test 559 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/pwd/config.mk: original size 559, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/pwd/getcwd.c ==============
if test -f 'dmake/unix/sysvr3/pwd/getcwd.c' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/pwd/getcwd.c (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/pwd/getcwd.c' &&
/*
X    getcwd -- get pathname of current working directory
X
X    public-domain implementation
X
X    last edit:    03-Nov-1990    [e-mail]
X
X    complies with the following standards:
X        IEEE Std 1003.1-1988
X        SVID Issue 3
X        X/Open Portability Guide Issue 2 (when "XPG2" is defined)
X        X/Open Portability Guide Issue 3
X
X    This implementation of getcwd() can be used to replace the UNIX
X    System V library routine (which uses popen() to capture the output of
X    the "pwd" command).  Once that is done, "pwd" can be reimplemented as
X    just puts(getcwd((char*)0,0)), assuming "XPG2" is defined below.
X
X    This implementation depends on every directory having entries for
X    "." and "..".  It also depends on the internals of the <dirent.h>
X    data structures to some degree.
X
X    I considered using chdir() to ascend the hierarchy, followed by a
X    final chdir() to the path being returned by getcwd() to restore the
X    location, but decided that error recovery was too difficult that way.
X    The algorithm I settled on was inspired by my rewrite of the "pwd"
X    utility, combined with the dotdots[] array trick from the SVR2 shell.
*/
#define XPG2    /* define to support obsolete XPG2-mandated feature */
X
X
#include    <sys/types.h>
#include    <sys/stat.h>
X
#ifdef M_XENIX
# include        <sys/ndir.h>
# define dirent direct
#else
# include        <dirent.h>
#endif
X
#include    <errno.h>
#include    <string.h>
X
typedef char    *pointer;        /* (void *) if you have it */
X
extern void    free();
extern pointer    malloc();
extern int    fstat(), stat();
X
extern int    errno;            /* normally done by <errno.h> */
X
#ifndef NULL
#define    NULL    0            /* amorphous null pointer constant */
#endif
X
#ifndef NAME_MAX
#define    NAME_MAX    255        /* maximum directory entry size */
#endif
X
X
char    *
getcwd( buf, size )            /* returns pointer to CWD pathname */
X    char        *buf;        /* where to put name (NULL to malloc) */
X    int        size;        /* size of buf[] or malloc()ed memory */
X    {
X    static char    dotdots[] =
"../../../../../../../../../../../../../../../../../../../../../../../../../..";
X    char        *dotdot;    /* -> dotdots[.], right to left */
X    DIR        *dirp;        /* -> parent directory stream */
X    struct dirent    *dir;        /* -> directory entry */
X    struct stat    stat1,
X            stat2;        /* info from stat() */
X    struct stat    *d = &stat1;    /* -> info about "." */
X    struct stat    *dd = &stat2;    /* -> info about ".." */
X    register char    *buffer;    /* local copy of buf, or malloc()ed */
X    char        *bufend;    /* -> buffer[size] */
X    register char    *endp;        /* -> end of reversed string */
X    register char    *dname;        /* entry name ("" for root) */
X    int        serrno = errno;    /* save entry errno */
X
X    if ( buf != NULL && size <= 0
#ifndef XPG2
X      || buf == NULL
#endif
X       )    {
X        errno = EINVAL;        /* invalid argument */
X        return NULL;
X        }
X
X    buffer = buf;
#ifdef XPG2
X    if ( buf == NULL        /* wants us to malloc() the string */
X      && (buffer = (char *) malloc( (unsigned) size )) == NULL
X    /* XXX -- actually should probably not pay attention to "size" arg */
X       )    {
X        errno = ENOMEM;        /* cannot malloc() specified size */
X        return NULL;
X        }
#endif
X
X    if ( stat( ".", dd ) != 0 )    /* prime the pump */
X        goto error;        /* errno already set */
X
X    endp = buffer;            /* initially, empty string */
X    bufend = &buffer[size];
X
X    for ( dotdot = &dotdots[sizeof dotdots]; dotdot != dotdots; )
X        {
X        dotdot -= 3;        /* include one more "/.." section */
X                    /* (first time is actually "..") */
X
X        /* swap stat() info buffers */
X        {
X        register struct stat    *temp = d;
X
X        d = dd;            /* new current dir is old parent dir */
X        dd = temp;
X        }
X
X        if ( (dirp = opendir( dotdot )) == NULL )    /* new parent */
X            goto error;    /* errno already set */
X
X        if ( fstat( dirp->dd_fd, dd ) != 0 )
X            {
X            serrno = errno;    /* set by fstat() */
X            (void)closedir( dirp );
X            errno = serrno;    /* in case closedir() clobbered it */
X            goto error;
X            }
X
X        if ( d->st_dev == dd->st_dev )
X            {        /* not crossing a mount point */
X            if ( d->st_ino == dd->st_ino )
X                {    /* root directory */
X                dname = "";
X                goto append;
X                }
X
X            do
X                if ( (dir = readdir( dirp )) == NULL )
X                    {
X                    (void)closedir( dirp );
X                    errno = ENOENT;    /* missing entry */
X                    goto error;
X                    }
X            while ( dir->d_ino != d->st_ino );
X            }
X        else    {        /* crossing a mount point */
X            struct stat    t;    /* info re. test entry */
X            char        name[sizeof dotdots + 1 + NAME_MAX];
X
X            (void)strcpy( name, dotdot );
X            dname = &name[strlen( name )];
X            *dname++ = '/';
X
X            do    {
X                if ( (dir = readdir( dirp )) == NULL )
X                    {
X                    (void)closedir( dirp );
X                    errno = ENOENT;    /* missing entry */
X                    goto error;
X                    }
X
X                (void)strcpy( dname, dir->d_name );
X                /* must fit if NAME_MAX is not a lie */
X                }
X            while ( stat( name, &t ) != 0
X                 || t.st_ino != d->st_ino
X                 || t.st_dev != d->st_dev
X                  );
X            }
X
X        dname = dir->d_name;
X
X        /* append "/" and reversed dname string onto buffer */
X    append:
X        if ( endp != buffer    /* avoid trailing / in final name */
X          || dname[0] == '\0'    /* but allow "/" when CWD is root */
X           )
X            *endp++ = '/';
X
X        {
X        register char    *app;    /* traverses dname string */
X
X        for ( app = dname; *app != '\0'; ++app )
X            ;
X
X        if ( app - dname >= bufend - endp )
X            {
X            (void)closedir( dirp );
X            errno = ERANGE;    /* won't fit allotted space */
X            goto error;
X            }
X
X        while ( app != dname )
X            *endp++ = *--app;
X        }
X
X        (void)closedir( dirp );
X
X        if ( dname[0] == '\0' )    /* reached root; wrap it up */
X            {
X            register char    *startp;    /* -> buffer[.] */
X
X            *endp = '\0';    /* plant null terminator */
X
X            /* straighten out reversed pathname string */
X            for ( startp = buffer; --endp > startp; ++startp )
X                {
X                char    temp = *endp;
X
X                *endp = *startp;
X                *startp = temp;
X                }
X
X            errno = serrno;    /* restore entry errno */
X            /* XXX -- if buf==NULL, realloc here? */
X            return buffer;
X            }
X        }
X
X    errno = ENOMEM;            /* actually, algorithm failure */
X
X    error:
X    if ( buf == NULL )
X        free( (pointer)buffer );
X
X    return NULL;
X    }
X
SHAR_EOF
chmod 0640 dmake/unix/sysvr3/pwd/getcwd.c ||
echo 'restore of dmake/unix/sysvr3/pwd/getcwd.c failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/pwd/getcwd.c'`"
test 5834 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/pwd/getcwd.c: original size 5834, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/pwd/make.sh ==============
if test -f 'dmake/unix/sysvr3/pwd/make.sh' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/pwd/make.sh (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/pwd/make.sh' &&
mkdir objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O infer.c
mv infer.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O make.c
mv make.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O stat.c
mv stat.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O expand.c
mv expand.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O dmstring.c
mv dmstring.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O hash.c
mv hash.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O dag.c
mv dag.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O dmake.c
mv dmake.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O path.c
mv path.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O imacs.c
mv imacs.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O sysintf.c
mv sysintf.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O parse.c
mv parse.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O getinp.c
mv getinp.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O quit.c
mv quit.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O state.c
mv state.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O basename.c
mv basename.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O dmdump.c
mv dmdump.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O macparse.c
mv macparse.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O rulparse.c
mv rulparse.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O percent.c
mv percent.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O function.c
mv function.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O unix/arlib.c
mv arlib.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O unix/dirbrk.c
mv dirbrk.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O unix/rmprq.c
mv rmprq.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O unix/ruletab.c
mv ruletab.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O unix/runargv.c
mv runargv.o objects
cc -c -I. -Iunix -Iunix/sysvr3 -Iunix/sysvr3/pwd -O unix/sysvr3/pwd/getcwd.c
mv getcwd.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 objects/getcwd.o
cp unix/sysvr3/pwd/startup.mk startup.mk
SHAR_EOF
chmod 0640 dmake/unix/sysvr3/pwd/make.sh ||
echo 'restore of dmake/unix/sysvr3/pwd/make.sh failed'
Wc_c="`wc -c < 'dmake/unix/sysvr3/pwd/make.sh'`"
test 2739 -eq "$Wc_c" ||
    echo 'dmake/unix/sysvr3/pwd/make.sh: original size 2739, current size' "$Wc_c"
rm -f _shar_wnt_.tmp
fi
# ============= dmake/unix/sysvr3/pwd/public.h ==============
if test -f 'dmake/unix/sysvr3/pwd/public.h' -a X"$1" != X"-c"; then
    echo 'x - skipping dmake/unix/sysvr3/pwd/public.h (File already exists)'
    rm -f _shar_wnt_.tmp
else
> _shar_wnt_.tmp
sed 's/^X//' << 'SHAR_EOF' > 'dmake/unix/sysvr3/pwd/public.h' &&
/* RCS      -- $Header$
-- 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, [e-mail]
--      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$
*/
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 Print_cmnd ANSI((char *, int, int));
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 * _strdup2 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(());
int Nestlevel 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 *));
SHAR_EOF
true || echo 'restore of dmake/unix/sysvr3/pwd/public.h failed'
fi
echo 'End of part 38, continue with part 39'
echo 39 > _shar_seq_.tmp
exit 0
exit 0 # Just in case...