home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume15 / dmake-3.6 / part01 < prev    next >
Text File  |  1990-10-14  |  40KB  |  1,481 lines
  1. Newsgroups: comp.sources.misc
  2. X-UNIX-From: dvadura@watdragon.waterloo.edu
  3. subject: v15i053: dmake version 3.6 (part 01/25)
  4. from: Dennis Vadura <dvadura@watdragon.waterloo.edu>
  5. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  6.  
  7. Posting-number: Volume 15, Issue 53
  8. Submitted-by: Dennis Vadura <dvadura@watdragon.waterloo.edu>
  9. Archive-name: dmake-3.6/part01
  10.  
  11. #!/bin/sh
  12. # shar:    Shell Archiver  (v1.22)
  13. #
  14. # This is part 1 of a multipart archive                                    
  15. # do not concatenate these parts, unpack them in order with /bin/sh        
  16. #
  17. #    Run the following text with /bin/sh to create:
  18. #      vextern.h
  19. #      version.h
  20. #      unix
  21. #      unix/sysvr3
  22. #      unix/sysvr3/time.h
  23. #      unix/sysvr3/stdlib.h
  24. #      unix/sysvr3/stdarg.h
  25. #      unix/sysvr3/startup.mk
  26. #      unix/sysvr3/runargv.c
  27. #      unix/sysvr3/make.sh
  28. #      unix/sysvr3/config.mk
  29. #      unix/sysvr3/config.h
  30. #      unix/sysvr1
  31. #      unix/sysvr1/vfprintf.c
  32. #      unix/sysvr1/time.h
  33. #      unix/sysvr1/stdlib.h
  34. #      unix/sysvr1/stdarg.h
  35. #      unix/sysvr1/startup.mk
  36. #      unix/sysvr1/runargv.c
  37. #      unix/sysvr1/putenv.c
  38. #      unix/sysvr1/make.sh
  39. #      unix/sysvr1/config.mk
  40. #      unix/sysvr1/config.h
  41. #      unix/sysintf.h
  42. #      unix/startup.h
  43. #      unix/ruletab.c
  44. #      unix/rmprq.c
  45. #      unix/explode.c
  46. #      unix/dirbrk.c
  47. #      unix/config.mk
  48. #      unix/bsd43
  49. #      unix/bsd43/vf
  50. #      unix/bsd43/vf/vfprintf.c
  51. #      unix/bsd43/vf/startup.mk
  52. #      unix/bsd43/vf/memcpy.c
  53. #      unix/bsd43/vf/make.sh
  54. #      unix/bsd43/vf/ctype.h
  55. #      unix/bsd43/vf/config.mk
  56. #      unix/bsd43/uw
  57. #      unix/bsd43/uw/startup.mk
  58. #      unix/bsd43/uw/make.sh
  59. #      unix/bsd43/uw/config.mk
  60. #      unix/bsd43/utime.c
  61. #      unix/bsd43/tempnam.c
  62. #      unix/bsd43/string.h
  63. #      unix/bsd43/stdlib.h
  64. #      unix/bsd43/stdarg.h
  65. #      unix/bsd43/startup.mk
  66. #      unix/bsd43/setvbuf.c
  67. #      unix/bsd43/runargv.c
  68. #      unix/bsd43/putenv.c
  69. #      unix/bsd43/make.sh
  70. #      unix/bsd43/config.mk
  71. #      unix/bsd43/config.h
  72. #      unix/arlib.c
  73. #      unix/386ix
  74. #      unix/386ix/time.h
  75. #      unix/386ix/stdlib.h
  76. #      unix/386ix/stdarg.h
  77. #      unix/386ix/startup.mk
  78. #      unix/386ix/runargv.c
  79. #      unix/386ix/make.sh
  80. #      unix/386ix/config.mk
  81. #      unix/386ix/config.h
  82. #      unix/386ix/ar.h
  83. #      sysintf.c
  84. #      struct.h
  85. #      string.c
  86. #      stat.c
  87. #      rulparse.c
  88. #      readme
  89. #      readme/release
  90. #      readme/os2
  91. #      readme/msdos
  92. #      readme/cover
  93. #      quit.c
  94. #      percent.c
  95. #      path.c
  96. #      patchlvl.h
  97. #      parse.c
  98. #      msdos
  99. #      msdos/tccdos
  100. #      msdos/tccdos/utime.c
  101. #      msdos/tccdos/tempnam.c
  102. #      msdos/tccdos/startup.mk
  103. #      msdos/tccdos/objswp.rsp
  104. #      msdos/tccdos/obj.rsp
  105. #      msdos/tccdos/mkswp.bat
  106. #      msdos/tccdos/mk.bat
  107. #      msdos/tccdos/libswp.rsp
  108. #      msdos/tccdos/lib.rsp
  109. #      msdos/tccdos/config.mk
  110. #      msdos/tccdos/config.h
  111. #      msdos/sysintf.h
  112. #      msdos/switchar.c
  113. #      msdos/stdarg.h
  114. #      msdos/startup.h
  115. #      msdos/spawn.c
  116. #      msdos/runargv.c
  117. #      msdos/ruletab.c
  118. #      msdos/rmprq.c
  119. #      msdos/mscdos
  120. #      msdos/mscdos/tempnam.c
  121. #      msdos/mscdos/startup.mk
  122. #      msdos/mscdos/objswp.rsp
  123. #      msdos/mscdos/obj60swp.rsp
  124. #      msdos/mscdos/obj60.rsp
  125. #      msdos/mscdos/obj.rsp
  126. #      msdos/mscdos/mkswp.bat
  127. #      msdos/mscdos/mk60swp.bat
  128. #      msdos/mscdos/mk60.bat
  129. #      msdos/mscdos/mk.bat
  130. #      msdos/mscdos/libswp.rsp
  131. #      msdos/mscdos/lib60swp.rsp
  132. #      msdos/mscdos/lib60.rsp
  133. #      msdos/mscdos/lib.rsp
  134. #      msdos/mscdos/config.mk
  135. #      msdos/mscdos/config.h
  136. #      msdos/find.c
  137. #      msdos/exec.h
  138. #      msdos/exec.asm
  139. #      msdos/dirlib.h
  140. #      msdos/dirbrk.c
  141. #      msdos/config.mk
  142. #      msdos/arlib.c
  143. #      msdos/_chdir.c
  144. #      man
  145. #      man/dmake.tf
  146. #      man/dmake.p
  147. #      man/dmake.nc
  148. #      makefile
  149. #      makefile.mk
  150. #      make.c
  151. #      make.bat
  152. #      macparse.c
  153. #      infer.c
  154. #      imacs.c
  155. #      hash.c
  156. #      getinp.c
  157. #      function.c
  158. #      extern.h
  159. #      expand.c
  160. #      dump.c
  161. #      dmake.h
  162. #      dmake.c
  163. #      dag.c
  164. #      common
  165. #      common/stdmacs.h
  166. #      common/print.mk
  167. #      common/malloc.c
  168. #      common/itypes.h
  169. #      common/dbug.h
  170. #      common/dbug.c
  171. #      common/db.h
  172. #      common/alloc.h
  173. #      basename.c
  174. #      _updctl
  175. #      _install
  176. #      LICENSE
  177. #
  178. if test -r s2_seq_.tmp
  179. then echo "Must unpack archives in sequence!"
  180.      next=`cat s2_seq_.tmp`; echo "Please unpack part $next next"
  181.      exit 1; fi
  182. echo "x - extracting vextern.h (Text)"
  183. sed 's/^X//' << 'SHAR_EOF' > vextern.h &&
  184. X/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/RCS/vextern.h,v 1.1 90/10/06 12:04:31 dvadura Exp $
  185. X-- SYNOPSIS -- global variable declarations.
  186. X-- 
  187. X-- DESCRIPTION
  188. X--     Leave _DEFINE_GLOBALS_ undefined and the following declarations
  189. X--    will be defined as global variables, otherwise you get the
  190. X--    external declarations to the same global variables.
  191. X--
  192. X-- AUTHOR
  193. X--      Dennis Vadura, dvadura@watdragon.uwaterloo.ca
  194. X--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
  195. X--
  196. X-- COPYRIGHT
  197. X--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
  198. X-- 
  199. X--      This program is free software; you can redistribute it and/or
  200. X--      modify it under the terms of the GNU General Public License
  201. X--      (version 1), as published by the Free Software Foundation, and
  202. X--      found in the file 'LICENSE' included with this distribution.
  203. X-- 
  204. X--      This program is distributed in the hope that it will be useful,
  205. X--      but WITHOUT ANY WARRANTY; without even the implied warrant of
  206. X--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  207. X--      GNU General Public License for more details.
  208. X-- 
  209. X--      You should have received a copy of the GNU General Public License
  210. X--      along with this program;  if not, write to the Free Software
  211. X--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  212. X--
  213. X-- LOG
  214. X--     $Log:    vextern.h,v $
  215. X * Revision 1.1  90/10/06  12:04:31  dvadura
  216. X * dmake Release, Version 3.6
  217. X * 
  218. X*/
  219. X#include <stdio.h>
  220. X#include "stdmacs.h"
  221. X#include "struct.h"
  222. X#include "dmake.h"
  223. X
  224. X/* These two are defined in dir/ruletab.c and dir/dirbrk.c, and are always
  225. X * imported as externals by the other code.  Their defining modules do not
  226. X * #include this file. */
  227. Xextern    char*    DirBrkStr;    /* pointer to value of macro DIRBRKSTR    */
  228. Xextern    char**    Rule_tab;    /* Builtin rules */
  229. X
  230. X#ifndef _DEFINE_GLOBALS_
  231. X#define EXTERN    extern
  232. X#else
  233. X#define EXTERN
  234. X#endif
  235. X
  236. XEXTERN    int    Line_number;    /* Current line number in make file parse */
  237. XEXTERN    t_attr    Glob_attr;    /* Global attrs to control global ops     */
  238. XEXTERN    char*    Prep;        /* Value of macro PREP              */
  239. XEXTERN    char*    Makedir;    /* pointer to macro value for MAKEDIR     */
  240. XEXTERN    CELL     Start_dir;    /* cell for   macro value for .SETDIR      */
  241. XEXTERN    char*    Shell;        /* pointer to macro value for SHELL       */
  242. XEXTERN    char*    Shell_flags;    /* pointer to macro value for SHELLFLAGS  */
  243. XEXTERN    char*    GShell;        /* pointer to macro value for GROUPSHELL  */
  244. XEXTERN    char*    GShell_flags;    /* pointer to macro value for GROUPFLAGS  */
  245. XEXTERN    char*    Shell_metas;    /* pointer to macro value for SHELLMETAS  */
  246. XEXTERN    char*    Grp_suff;    /* pointer to macro value for GROUPSUFFIX */
  247. XEXTERN  char*   DirSepStr;    /* pointer to macro value for DIRSEPSTR   */
  248. XEXTERN    char*    Pname;        /* dmake process invoke name              */
  249. XEXTERN    char*    Pwd;        /* current working dir, value of PWD      */
  250. XEXTERN    char*    Augmake;    /* -A */
  251. XEXTERN    int    Target;        /* TRUE if target found in makefile       */
  252. XEXTERN    int    If_expand;    /* TRUE if calling Expand from getinp.c   */
  253. XEXTERN  int    If_multi;    /* M_MULTI for expand of single MULTI macs*/
  254. XEXTERN    int    Readenv;    /* TRUE if defining macro from environment*/
  255. XEXTERN    int    Makemkf;    /* TRUE if making makefile(s)          */
  256. XEXTERN    int    Nest_level;    /* Nesting level for .IF .ELSE .END ...   */
  257. XEXTERN    int    Def_targets;    /* TRUE if defining targets          */
  258. X
  259. XEXTERN    LINKPTR Fringe_hd;    /* Pointer to head of the fringe list      */
  260. XEXTERN    LINKPTR Fringe_tl;    /* Pointer to tail of the fringe list      */
  261. X
  262. XEXTERN  CELLPTR Recipe_cell;     /* Current CELL during expansion of recipe*/
  263. XEXTERN  HOWPTR  Recipe_how;     /* Current HOW during expansion of recipe */
  264. XEXTERN  HOWPTR  Current_target; /* HOW cell of current target being made  */
  265. XEXTERN  HOW     Root_how;    /* HOW CELL for root $(mktmp ..) fns      */
  266. XEXTERN  int    Wait_for_completion;
  267. XEXTERN  int    Doing_bang;
  268. XEXTERN  int    Packed_shell;    /* TRUE if packed args to use a shell      */
  269. XEXTERN  int    Swap_on_exec;    /* TRUE if going to swap on exec call     */
  270. X
  271. X/* Command line option flags are defined here.  They correspond one-for one
  272. X * with the flags defined in dmake.c */
  273. X 
  274. XEXTERN    int    Continue;    /* -k */
  275. XEXTERN    int    Get_env;    /* -e or -E */
  276. XEXTERN    int    Force;        /* -u */
  277. XEXTERN    int    Listing;    /* -p */
  278. XEXTERN    int    Rules;        /* -r */
  279. XEXTERN    int    Trace;        /* -n */
  280. XEXTERN    int    Touch;        /* -t */
  281. XEXTERN    int    Check;        /* -q */
  282. XEXTERN    int    Verbose;    /* -v */
  283. XEXTERN    int    Microsoft;    /* -M */
  284. XEXTERN    int    Transitive;    /* -T */
  285. X
  286. XEXTERN    HASHPTR    Macs[HASH_TABLE_SIZE];    /* hash table for macro defs    */
  287. XEXTERN    HASHPTR    Defs[HASH_TABLE_SIZE];    /* hash table for other defs    */
  288. X
  289. XEXTERN    char    *Buffer;        /* a general purpose buffer     */
  290. XEXTERN  int    Buffer_size;
  291. XEXTERN  int    Max_proclmt;        /* limit of max # of conc procs */
  292. XEXTERN    int    Max_proc;        /* max # of conc procs        */
  293. SHAR_EOF
  294. chmod 0440 vextern.h || echo "restore of vextern.h fails"
  295. echo "x - extracting version.h (Text)"
  296. sed 's/^X//' << 'SHAR_EOF' > version.h &&
  297. X/* dmake version number.  */
  298. X
  299. X#define VERSION "3.60"
  300. SHAR_EOF
  301. chmod 0440 version.h || echo "restore of version.h fails"
  302. echo mkdir - unix
  303. mkdir unix
  304. echo mkdir - unix/sysvr3
  305. mkdir unix/sysvr3
  306. echo "x - extracting unix/sysvr3/time.h (Text)"
  307. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/time.h &&
  308. X/*
  309. X** Berkeley get this wrong!
  310. X*/
  311. X#ifndef    TIME_h
  312. X#define    TIME_h
  313. X
  314. Xtypedef    long    time_t;    /* this is the thing we use */
  315. X
  316. X#endif    TIME_h
  317. X
  318. SHAR_EOF
  319. chmod 0440 unix/sysvr3/time.h || echo "restore of unix/sysvr3/time.h fails"
  320. echo "x - extracting unix/sysvr3/stdlib.h (Text)"
  321. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/stdlib.h &&
  322. X#ifndef _STDLIB_INCLUDED_
  323. X#define _STDLIB_INCLUDED_
  324. X
  325. Xextern /*GOTO*/ _exit();
  326. Xextern /*GOTO*/ exit();
  327. Xextern /*GOTO*/ abort();
  328. Xextern int system();
  329. Xextern char *getenv();
  330. Xextern char *calloc();
  331. Xextern char *malloc();
  332. Xextern char *realloc();
  333. Xextern free();
  334. Xextern int errno;
  335. X
  336. X#ifndef EIO
  337. X#    include <errno.h>
  338. X#endif
  339. X
  340. X#endif /* _STDLIB_INCLUDED_ */
  341. SHAR_EOF
  342. chmod 0440 unix/sysvr3/stdlib.h || echo "restore of unix/sysvr3/stdlib.h fails"
  343. echo "x - extracting unix/sysvr3/stdarg.h (Text)"
  344. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/stdarg.h &&
  345. X/*
  346. X * stdarg.h
  347. X *
  348. X * defines ANSI style macros for accessing arguments of a function which takes
  349. X * a variable number of arguments
  350. X *
  351. X */
  352. X
  353. X#if !defined(__STDARG)
  354. X#define __STDARG
  355. X
  356. Xtypedef char *va_list;
  357. X
  358. X#define va_dcl int va_alist
  359. X#define va_start(ap,v)  ap = (va_list)&va_alist
  360. X#define va_arg(ap,t)    ((t*)(ap += sizeof(t)))[-1]
  361. X#define va_end(ap)      ap = NULL
  362. X#endif
  363. SHAR_EOF
  364. chmod 0440 unix/sysvr3/stdarg.h || echo "restore of unix/sysvr3/stdarg.h fails"
  365. echo "x - extracting unix/sysvr3/startup.mk (Text)"
  366. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/startup.mk &&
  367. X# Generic UNIX DMAKE startup file.  Customize to suit your needs.
  368. X# Should work for both SYSV, and BSD 4.3
  369. X# See the documentation for a description of internally defined macros.
  370. X#
  371. X# Disable warnings for macros redefined here that were given
  372. X# on the command line.
  373. X__.SILENT := $(.SILENT)
  374. X.SILENT   := yes
  375. X
  376. X# Configuration parameters for DMAKE startup.mk file
  377. X# Set these to NON-NULL if you wish to turn the parameter on.
  378. X_HAVE_RCS    := yes        # yes => RCS  is installed.
  379. X_HAVE_SCCS    := yes        # yes => SCCS is installed.
  380. X
  381. X# Applicable suffix definitions
  382. XA := .a        # Libraries
  383. XE :=        # Executables
  384. XF := .f        # Fortran
  385. XO := .o        # Objects
  386. XP := .p        # Pascal
  387. XS := .s        # Assembler sources
  388. XV := ,v        # RCS suffix
  389. X
  390. X# Recipe execution configurations
  391. XSHELL        := /bin/sh
  392. XSHELLFLAGS    := -ce
  393. XGROUPSHELL    := $(SHELL)
  394. XGROUPFLAGS    := 
  395. XSHELLMETAS    := |();&<>?*][$$:\\#`'"
  396. XGROUPSUFFIX    :=
  397. XDIVFILE         = $(TMPFILE)
  398. X
  399. X# Standard C-language command names and flags
  400. X   CPP       := /lib/cpp        # C-preprocessor
  401. X   CC      := cc        # C-compiler and flags
  402. X   CFLAGS  +=
  403. X
  404. X   AS      := as        # Assembler and flags
  405. X   ASFLAGS += 
  406. X
  407. X   LD       = $(CC)        # Loader and flags
  408. X   LDFLAGS +=
  409. X   LDLIBS   =
  410. X
  411. X# Definition of $(MAKE) macro for recursive makes.
  412. X   MAKE = $(MAKECMD) $(MFLAGS)
  413. X
  414. X# Definition of Print command for this system.
  415. X   PRINT = lpr
  416. X
  417. X# Language and Parser generation Tools and their flags
  418. X   YACC      := yacc        # standard yacc
  419. X   YFLAGS +=
  420. X   YTAB      := y.tab        # yacc output files name stem.
  421. X
  422. X   LEX      := lex        # standard lex
  423. X   LFLAGS +=
  424. X   LEXYY  := lex.yy        # lex output file
  425. X
  426. X# Other Compilers, Tools and their flags
  427. X   PC    := pc            # pascal compiler
  428. X   RC    := f77            # ratfor compiler
  429. X   FC    := f77            # fortran compiler
  430. X
  431. X   CO       := co        # check out for RCS
  432. X   COFLAGS += -q
  433. X
  434. X   AR     := ar            # archiver
  435. X   ARFLAGS+= ruv
  436. X
  437. X   RM       := /bin/rm        # remove a file command
  438. X   RMFLAGS +=
  439. X
  440. X# Implicit generation rules for making inferences.
  441. X# We don't provide .yr or .ye rules here.  They're obsolete.
  442. X# Rules for making *$O
  443. X   %$O : %.c ; $(CC) $(CFLAGS) -c $<
  444. X   %$O : %$P ; $(PC) $(PFLAGS) -c $<
  445. X   %$O : %$S ; $(AS) $(ASFLAGS) $<
  446. X   %$O : %.cl ; class -c $<
  447. X   %$O : %.e %.r %.F %$F
  448. X    $(FC) $(RFLAGS) $(EFLAGS) $(FFLAGS) -c $<
  449. X
  450. X# Executables
  451. X   %$E : %$O ; $(LD) $(LDFLAGS) -o $@ $< $(LDLIBES)
  452. X
  453. X# lex and yacc rules
  454. X   %.c : %.y ; $(YACC)  $(YFLAGS) $<; mv $(YTAB).c $@
  455. X   %.c : %.l ; $(LEX)   $(LFLAGS) $<; mv $(LEXYY).c $@
  456. X
  457. X# This rule tells how to make *.out from it's immediate list of prerequisites
  458. X# UNIX only.
  459. X   %.out :; $(LD) $(LDFLAGS) -o $@ $^ $(LDLIBS)
  460. X
  461. X# RCS support
  462. X.IF $(_HAVE_RCS)
  463. X   % : %$V $$(@:d)RCS/$$(@:f)$V;- $(CO) $(COFLAGS) $@
  464. X   .NOINFER : %$V $$(@:d)RCS/$$(@:f)$V
  465. X.END
  466. X
  467. X# SCCS support
  468. X.IF $(_HAVE_SCCS)
  469. X   % : s.% ; get $@
  470. X   .NOINFER : s.%
  471. X.END
  472. X
  473. X# Recipe to make archive files.
  474. X%$A :
  475. X[
  476. X   $(AR) $(ARFLAGS) $@ $?
  477. X   $(RM) $(RMFLAGS) $?
  478. X   ranlib $@
  479. X]
  480. X
  481. X# DMAKE uses this recipe to remove intermediate targets
  482. X.REMOVE :; $(RM) -f $<
  483. X
  484. X# AUGMAKE extensions for SYSV compatibility
  485. X@B = $(@:b)
  486. X@D = $(@:d)
  487. X@F = $(@:f)
  488. X*B = $(*:b)
  489. X*D = $(*:d)
  490. X*F = $(*:f)
  491. X<B = $(<:b)
  492. X<D = $(<:d)
  493. X<F = $(<:f)
  494. X?B = $(?:b)
  495. X?F = $(?:f)
  496. X?D = $(?:d)
  497. X
  498. X# Turn warnings back to previous setting.
  499. X.SILENT := $(__.SILENT)
  500. X
  501. X# Local startup file if any
  502. X.INCLUDE .IGNORE: "_startup.mk"
  503. SHAR_EOF
  504. chmod 0640 unix/sysvr3/startup.mk || echo "restore of unix/sysvr3/startup.mk fails"
  505. echo "x - extracting unix/sysvr3/runargv.c (Text)"
  506. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/runargv.c &&
  507. X/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/sysvr3/RCS/runargv.c,v 1.1 90/10/06 12:06:42 dvadura Exp $
  508. X-- SYNOPSIS -- invoke a sub process.
  509. X-- 
  510. X-- DESCRIPTION
  511. X--     Use the standard methods of executing a sub process.
  512. X--
  513. X-- AUTHOR
  514. X--      Dennis Vadura, dvadura@watdragon.uwaterloo.ca
  515. X--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
  516. X--
  517. X-- COPYRIGHT
  518. X--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
  519. X-- 
  520. X--      This program is free software; you can redistribute it and/or
  521. X--      modify it under the terms of the GNU General Public License
  522. X--      (version 1), as published by the Free Software Foundation, and
  523. X--      found in the file 'LICENSE' included with this distribution.
  524. X-- 
  525. X--      This program is distributed in the hope that it will be useful,
  526. X--      but WITHOUT ANY WARRANTY; without even the implied warrant of
  527. X--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  528. X--      GNU General Public License for more details.
  529. X-- 
  530. X--      You should have received a copy of the GNU General Public License
  531. X--      along with this program;  if not, write to the Free Software
  532. X--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  533. X--
  534. X-- LOG
  535. X--     $Log:    runargv.c,v $
  536. X * Revision 1.1  90/10/06  12:06:42  dvadura
  537. X * dmake Release, Version 3.6
  538. X * 
  539. X*/
  540. X
  541. X#include <signal.h>
  542. X#include "extern.h"
  543. X#include "sysintf.h"
  544. X#include "alloc.h"
  545. X
  546. Xtypedef struct prp {
  547. X   char *prp_cmd;
  548. X   int   prp_group;
  549. X   int   prp_ignore;
  550. X   int   prp_last;
  551. X   int     prp_shell;
  552. X   struct prp *prp_next;
  553. X   char  *prp_dir;
  554. X} RCP, *RCPPTR;
  555. X
  556. Xtypedef struct pr {
  557. X   int        pr_valid;
  558. X   int        pr_pid;
  559. X   CELLPTR    pr_target;
  560. X   HOWPTR    pr_how;
  561. X   int        pr_ignore;
  562. X   int        pr_last;
  563. X   RCPPTR      pr_recipe;
  564. X   RCPPTR      pr_recipe_end;
  565. X} PR;
  566. X
  567. Xstatic PR  *_procs    = NIL(PR);
  568. Xstatic int  _proc_cnt = 0;
  569. Xstatic int  _abort_flg= FALSE;
  570. Xstatic int  _use_i    = -1;
  571. Xstatic int  _do_upd   = 0;
  572. X
  573. Xstatic  void    _add_child ANSI((int, CELLPTR, HOWPTR, int, int));
  574. Xstatic  void    _attach_cmd ANSI((char *, int, int, CELLPTR, HOWPTR, int, int));
  575. Xstatic  void    _finished_child ANSI((int, int));
  576. Xstatic  int     _running ANSI((CELLPTR, HOWPTR));
  577. X
  578. Xint
  579. Xrunargv(target, how, ignore, group, last, shell, cmd)
  580. XCELLPTR target;
  581. XHOWPTR  how;
  582. Xint     ignore;
  583. Xint    group;
  584. Xint    last;
  585. Xint     shell;
  586. Xchar    *cmd;
  587. X{
  588. X   extern  int  errno;
  589. X   extern  char *sys_errlist[];
  590. X   int          pid;
  591. X   char         **argv;
  592. X
  593. X   if( _running(target, how) /*&& Max_proc != 1*/ ) {
  594. X      /* The command will be executed when the previous recipe
  595. X       * line completes. */
  596. X      _attach_cmd( cmd, group, ignore, target, how, last, shell );
  597. X      return(1);
  598. X   }
  599. X
  600. X   while( _proc_cnt == Max_proc )
  601. X      if( Wait_for_child(FALSE, -1) == -1 )  Fatal( "Lost a child" );
  602. X
  603. X   argv = Pack_argv( group, shell, cmd );
  604. X
  605. X   switch( pid=fork() ){
  606. X      int   wid;
  607. X      int   status;
  608. X
  609. X   case -1: /* fork failed */
  610. X      Error("%s: %s", argv[0], sys_errlist[errno]);
  611. X      Handle_result(-1, ignore, _abort_flg, target);
  612. X      return(-1);
  613. X
  614. X   case 0:  /* child */
  615. X      execvp(argv[0], argv);
  616. X      Continue = TRUE;   /* survive error message */
  617. X      Error("%s: %s", argv[0], sys_errlist[errno]);
  618. X      kill(getpid(), SIGTERM);
  619. X      /*NOTREACHED*/
  620. X
  621. X   default: /* parent */
  622. X      _add_child(pid, target, how, ignore, last);
  623. X   }
  624. X
  625. X   return(1);
  626. X}
  627. X
  628. X
  629. Xint
  630. XWait_for_child( abort_flg, pid )
  631. Xint abort_flg;
  632. Xint pid;
  633. X{
  634. X   int wid;
  635. X   int status;
  636. X   int waitchild;
  637. X
  638. X   waitchild = (pid == -1)? FALSE : Wait_for_completion;
  639. X
  640. X   do {
  641. X      if( (wid = wait(&status)) == -1 ) return(-1);
  642. X
  643. X      _abort_flg = abort_flg;
  644. X      _finished_child(wid, status);
  645. X      _abort_flg = FALSE;
  646. X   }
  647. X   while( waitchild && pid != wid );
  648. X
  649. X   return(0);
  650. X}
  651. X
  652. X
  653. Xvoid
  654. XClean_up_processes()
  655. X{
  656. X   register int i;
  657. X
  658. X   if( _procs != NIL(PR) ) {
  659. X      for( i=0; i<Max_proc; i++ )
  660. X     if( _procs[i].pr_valid )
  661. X        kill(_procs[i].pr_pid, SIGTERM);
  662. X
  663. X      while( Wait_for_child(TRUE, -1) != -1 );
  664. X   }
  665. X}
  666. X
  667. X
  668. Xstatic void
  669. X_add_child( pid, target, how, ignore, last )
  670. Xint    pid;
  671. XCELLPTR target;
  672. XHOWPTR  how;
  673. Xint    ignore;
  674. Xint     last;
  675. X{
  676. X   register int i;
  677. X   register PR *pp;
  678. X
  679. X   if( _procs == NIL(PR) ) {
  680. X      TALLOC( _procs, Max_proc, PR );
  681. X   }
  682. X
  683. X   if( (i = _use_i) == -1 )
  684. X      for( i=0; i<Max_proc; i++ )
  685. X     if( !_procs[i].pr_valid )
  686. X        break;
  687. X
  688. X   pp = _procs+i;
  689. X
  690. X   pp->pr_valid  = 1;
  691. X   pp->pr_pid    = pid;
  692. X   pp->pr_target = target;
  693. X   pp->pr_how    = how;
  694. X   pp->pr_ignore = ignore;
  695. X   pp->pr_last   = last;
  696. X
  697. X   Current_target = NIL(HOW);
  698. X
  699. X   _proc_cnt++;
  700. X
  701. X   if( Wait_for_completion ) Wait_for_child( FALSE, pid );
  702. X}
  703. X
  704. X
  705. Xstatic void
  706. X_finished_child(pid, status)
  707. Xint    pid;
  708. Xint    status;
  709. X{
  710. X   register int i;
  711. X   register PR *pp;
  712. X
  713. X   for( i=0; i<Max_proc; i++ )
  714. X      if( _procs[i].pr_valid && _procs[i].pr_pid == pid )
  715. X     break;
  716. X
  717. X   _procs[i].pr_valid = 0;
  718. X   _proc_cnt--;
  719. X
  720. X   if( _procs[i].pr_recipe != NIL(RCP) && !_abort_flg ) {
  721. X      RCPPTR rp = _procs[i].pr_recipe;
  722. X      char   *dir;
  723. X
  724. X      Current_target = _procs[i].pr_how;
  725. X      Handle_result( status, _procs[i].pr_ignore, FALSE, _procs[i].pr_target );
  726. X      Current_target = NIL(HOW);
  727. X
  728. X      _procs[i].pr_recipe = rp->prp_next;
  729. X
  730. X      _use_i = i;
  731. X      dir = _strdup(Get_current_dir());
  732. X      Set_dir( rp->prp_dir );
  733. X      runargv( _procs[i].pr_target, _procs[i].pr_how, rp->prp_ignore,
  734. X                 rp->prp_group, rp->prp_last, rp->prp_shell, rp->prp_cmd );
  735. X      Set_dir(dir);
  736. X      FREE(dir);
  737. X      FREE(rp->prp_dir);
  738. X      _use_i = -1;
  739. X
  740. X      FREE( rp->prp_cmd );
  741. X      FREE( rp );
  742. X
  743. X      if( _proc_cnt == Max_proc ) Wait_for_child( FALSE, -1 );
  744. X   }
  745. X   else {
  746. X      Unlink_temp_files( _procs[i].pr_how );
  747. X      Handle_result(status,_procs[i].pr_ignore,_abort_flg,_procs[i].pr_target);
  748. X
  749. X      if( _procs[i].pr_last && !Doing_bang )
  750. X     Update_time_stamp( _procs[i].pr_target, _procs[i].pr_how );
  751. X   }
  752. X}
  753. X
  754. X
  755. Xstatic int
  756. X_running( cp, how )
  757. XCELLPTR cp;
  758. XHOWPTR  how;
  759. X{
  760. X   register int i;
  761. X
  762. X   if( !_procs ) return(FALSE);
  763. X
  764. X   for( i=0; i<Max_proc; i++ )
  765. X      if( _procs[i].pr_valid &&
  766. X      _procs[i].pr_how == how &&
  767. X      _procs[i].pr_target == cp  )
  768. X     break;
  769. X     
  770. X   return( i != Max_proc );
  771. X}
  772. X
  773. X
  774. Xstatic void
  775. X_attach_cmd( cmd, group, ignore, cp, how, last, shell )
  776. Xchar    *cmd;
  777. Xint    group;
  778. Xint     ignore;
  779. XCELLPTR cp;
  780. XHOWPTR  how;
  781. Xint     last;
  782. Xint     shell;
  783. X{
  784. X   register int i;
  785. X   RCPPTR rp;
  786. X
  787. X   for( i=0; i<Max_proc; i++ )
  788. X      if( _procs[i].pr_valid &&
  789. X      _procs[i].pr_how == how &&
  790. X      _procs[i].pr_target == cp  )
  791. X     break;
  792. X
  793. X   TALLOC( rp, 1, RCP );
  794. X   rp->prp_cmd   = _strdup(cmd);
  795. X   rp->prp_group = group;
  796. X   rp->prp_ignore= ignore;
  797. X   rp->prp_last  = last;
  798. X   rp->prp_shell = shell;
  799. X   rp->prp_dir   = _strdup(Get_current_dir());
  800. X
  801. X   if( _procs[i].pr_recipe == NIL(RCP) )
  802. X      _procs[i].pr_recipe = _procs[i].pr_recipe_end = rp;
  803. X   else {
  804. X      _procs[i].pr_recipe_end->prp_next = rp;
  805. X      _procs[i].pr_recipe_end = rp;
  806. X   }
  807. X}
  808. SHAR_EOF
  809. chmod 0440 unix/sysvr3/runargv.c || echo "restore of unix/sysvr3/runargv.c fails"
  810. echo "x - extracting unix/sysvr3/make.sh (Text)"
  811. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/make.sh &&
  812. Xmkdir objects
  813. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O infer.c
  814. Xmv infer.o objects
  815. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O make.c
  816. Xmv make.o objects
  817. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O stat.c
  818. Xmv stat.o objects
  819. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O expand.c
  820. Xmv expand.o objects
  821. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O string.c
  822. Xmv string.o objects
  823. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O hash.c
  824. Xmv hash.o objects
  825. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O dag.c
  826. Xmv dag.o objects
  827. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O dmake.c
  828. Xmv dmake.o objects
  829. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O path.c
  830. Xmv path.o objects
  831. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O imacs.c
  832. Xmv imacs.o objects
  833. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O sysintf.c
  834. Xmv sysintf.o objects
  835. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O parse.c
  836. Xmv parse.o objects
  837. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O getinp.c
  838. Xmv getinp.o objects
  839. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O quit.c
  840. Xmv quit.o objects
  841. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O basename.c
  842. Xmv basename.o objects
  843. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O dump.c
  844. Xmv dump.o objects
  845. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O macparse.c
  846. Xmv macparse.o objects
  847. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O rulparse.c
  848. Xmv rulparse.o objects
  849. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O percent.c
  850. Xmv percent.o objects
  851. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O function.c
  852. Xmv function.o objects
  853. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O unix/arlib.c
  854. Xmv arlib.o objects
  855. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O unix/dirbrk.c
  856. Xmv dirbrk.o objects
  857. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O unix/explode.c
  858. Xmv explode.o objects
  859. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O unix/rmprq.c
  860. Xmv rmprq.o objects
  861. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O unix/ruletab.c
  862. Xmv ruletab.o objects
  863. Xcc -c -DHELP -I. -Icommon -Iunix -Iunix/sysvr3 -O unix/sysvr3/runargv.c
  864. Xmv runargv.o objects
  865. 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 
  866. SHAR_EOF
  867. chmod 0640 unix/sysvr3/make.sh || echo "restore of unix/sysvr3/make.sh fails"
  868. echo "x - extracting unix/sysvr3/config.mk (Text)"
  869. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/config.mk &&
  870. X# This is the SysV R3 UNIX configuration file for DMAKE
  871. X#    It simply modifies the values of SRC, and checks to see if
  872. X#    OSENVIRONMENT is defined.  If so it includes the appropriate
  873. X#    config.mk file.
  874. X#
  875. X# It also sets the values of .SOURCE.c and .SOURCE.h to include the local
  876. X# directory.
  877. X#
  878. Xosrdir := $(OS)$(DIRSEPSTR)$(OSRELEASE)
  879. X
  880. X# The following are required sources
  881. XOSDSRC := runargv.c
  882. XSRC    += $(OSDSRC)
  883. X.SETDIR=$(osrdir) : $(OSDSRC)
  884. X
  885. X.SOURCE.h : $(osrdir)
  886. X
  887. X# Local configuration modifications for CFLAGS, there's local SysV includes
  888. X# too.
  889. XCFLAGS += -I$(osrdir)
  890. X
  891. X# See if we modify anything in the lower levels.
  892. X.IF $(OSENVIRONMENT) != $(NULL)
  893. X   .INCLUDE .IGNORE : $(osrdir)$(DIRSEPSTR)$(OSENVIRONMENT)$(DIRSEPSTR)config.mk
  894. X.END
  895. SHAR_EOF
  896. chmod 0640 unix/sysvr3/config.mk || echo "restore of unix/sysvr3/config.mk fails"
  897. echo "x - extracting unix/sysvr3/config.h (Text)"
  898. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr3/config.h &&
  899. X/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/sysvr3/RCS/config.h,v 1.1 90/10/06 12:06:39 dvadura Exp $
  900. X-- SYNOPSIS -- Configurarion include file.
  901. X-- 
  902. X-- DESCRIPTION
  903. X--     There is one of these for each specific machine configuration.
  904. X--    It can be used to further tweek the machine specific sources
  905. X--    so that they compile.
  906. X--
  907. X-- AUTHOR
  908. X--      Dennis Vadura, dvadura@watdragon.uwaterloo.ca
  909. X--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
  910. X--
  911. X-- COPYRIGHT
  912. X--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
  913. X-- 
  914. X--      This program is free software; you can redistribute it and/or
  915. X--      modify it under the terms of the GNU General Public License
  916. X--      (version 1), as published by the Free Software Foundation, and
  917. X--      found in the file 'LICENSE' included with this distribution.
  918. X-- 
  919. X--      This program is distributed in the hope that it will be useful,
  920. X--      but WITHOUT ANY WARRANTY; without even the implied warrant of
  921. X--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  922. X--      GNU General Public License for more details.
  923. X-- 
  924. X--      You should have received a copy of the GNU General Public License
  925. X--      along with this program;  if not, write to the Free Software
  926. X--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  927. X--
  928. X-- LOG
  929. X--     $Log:    config.h,v $
  930. X * Revision 1.1  90/10/06  12:06:39  dvadura
  931. X * dmake Release, Version 3.6
  932. X * 
  933. X*/
  934. X
  935. X/* define this for configurations that don't have the coreleft function
  936. X * so that the code compiles.  To my knowledge coreleft exists only on
  937. X * Turbo C, but it is needed here since the function is used in many debug
  938. X * macros. */
  939. X#define coreleft() 0L
  940. X
  941. X/* Define the getcwd function that is used in the code, since BSD does
  942. X * not have getcwd, but call it getwd instead. */
  943. Xextern char *getcwd ANSI((char *, int));
  944. X
  945. X/* Define setvbuf, SysV doesn't have one */
  946. X#define setvbuf(fp, bp, type, len) setbuf( fp, NULL );
  947. X
  948. X/* NCR Tower's don't define size_t */
  949. X#ifdef tower
  950. Xtypedef long size_t;
  951. X#endif
  952. SHAR_EOF
  953. chmod 0440 unix/sysvr3/config.h || echo "restore of unix/sysvr3/config.h fails"
  954. echo mkdir - unix/sysvr1
  955. mkdir unix/sysvr1
  956. echo "x - extracting unix/sysvr1/vfprintf.c (Text)"
  957. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr1/vfprintf.c &&
  958. X/* From:
  959. X * John Limpert            johnl@gronk.UUCP        uunet!n3dmc!gronk!johnl
  960. X */
  961. X
  962. X#include <stdio.h>
  963. X#include <varargs.h>
  964. X
  965. X#ifndef BUFSIZ
  966. X#include <stdio.h>
  967. X#endif
  968. X
  969. X#ifndef va_dcl
  970. X#include <varargs.h>
  971. X#endif
  972. X
  973. Xint
  974. Xvsprintf(str, fmt, ap)
  975. X    char *str, *fmt;
  976. X    va_list ap;
  977. X{
  978. X    FILE f;
  979. X    int len;
  980. X
  981. X    f._flag = _IOWRT+_IOMYBUF;
  982. X    f._ptr = (char *)str;    /* My copy of BSD stdio.h has this as (char *)
  983. X                 * with a comment that it should be
  984. X                 * (unsigned char *).  Since this code is
  985. X                 * intended for use on a vanilla BSD system,
  986. X                 * we'll stick with (char *) for now.
  987. X                 */
  988. X    f._cnt = 32767;
  989. X    len = _doprnt(fmt, ap, &f);
  990. X    *f._ptr = 0;
  991. X    return (len);
  992. X}
  993. X
  994. Xint
  995. Xvfprintf(iop, fmt, ap)
  996. X    FILE *iop;
  997. X    char *fmt;
  998. X    va_list ap;
  999. X{
  1000. X    int len;
  1001. X
  1002. X    len = _doprnt(fmt, ap, iop);
  1003. X    return (ferror(iop) ? EOF : len);
  1004. X}
  1005. X
  1006. Xint
  1007. Xvprintf(fmt, ap)
  1008. X    char *fmt;
  1009. X    va_list ap;
  1010. X{
  1011. X    int len;
  1012. X
  1013. X    len = _doprnt(fmt, ap, stdout);
  1014. X    return (ferror(stdout) ? EOF : len);
  1015. X}
  1016. SHAR_EOF
  1017. chmod 0644 unix/sysvr1/vfprintf.c || echo "restore of unix/sysvr1/vfprintf.c fails"
  1018. echo "x - extracting unix/sysvr1/time.h (Text)"
  1019. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr1/time.h &&
  1020. X/*
  1021. X** Berkeley get this wrong!
  1022. X*/
  1023. X#ifndef    TIME_h
  1024. X#define    TIME_h
  1025. X
  1026. Xtypedef    long    time_t;    /* this is the thing we use */
  1027. X
  1028. X#endif    TIME_h
  1029. X
  1030. SHAR_EOF
  1031. chmod 0440 unix/sysvr1/time.h || echo "restore of unix/sysvr1/time.h fails"
  1032. echo "x - extracting unix/sysvr1/stdlib.h (Text)"
  1033. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr1/stdlib.h &&
  1034. X#ifndef _STDLIB_INCLUDED_
  1035. X#define _STDLIB_INCLUDED_
  1036. X
  1037. Xextern /*GOTO*/ _exit();
  1038. Xextern /*GOTO*/ exit();
  1039. Xextern /*GOTO*/ abort();
  1040. Xextern int system();
  1041. Xextern char *getenv();
  1042. Xextern char *calloc();
  1043. Xextern char *malloc();
  1044. Xextern char *realloc();
  1045. Xextern free();
  1046. Xextern int errno;
  1047. X
  1048. X#ifndef EIO
  1049. X#    include <errno.h>
  1050. X#endif
  1051. X
  1052. X#endif /* _STDLIB_INCLUDED_ */
  1053. SHAR_EOF
  1054. chmod 0440 unix/sysvr1/stdlib.h || echo "restore of unix/sysvr1/stdlib.h fails"
  1055. echo "x - extracting unix/sysvr1/stdarg.h (Text)"
  1056. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr1/stdarg.h &&
  1057. X/*
  1058. X * stdarg.h
  1059. X *
  1060. X * defines ANSI style macros for accessing arguments of a function which takes
  1061. X * a variable number of arguments
  1062. X *
  1063. X */
  1064. X
  1065. X#if !defined(__STDARG)
  1066. X#define __STDARG
  1067. X
  1068. Xtypedef char *va_list;
  1069. X
  1070. X#define va_dcl int va_alist
  1071. X#define va_start(ap,v)  ap = (va_list)&va_alist
  1072. X#define va_arg(ap,t)    ((t*)(ap += sizeof(t)))[-1]
  1073. X#define va_end(ap)      ap = NULL
  1074. X#endif
  1075. SHAR_EOF
  1076. chmod 0440 unix/sysvr1/stdarg.h || echo "restore of unix/sysvr1/stdarg.h fails"
  1077. echo "x - extracting unix/sysvr1/startup.mk (Text)"
  1078. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr1/startup.mk &&
  1079. X# Generic UNIX DMAKE startup file.  Customize to suit your needs.
  1080. X# Should work for both SYSV, and BSD 4.3
  1081. X# See the documentation for a description of internally defined macros.
  1082. X#
  1083. X# Disable warnings for macros redefined here that were given
  1084. X# on the command line.
  1085. X__.SILENT := $(.SILENT)
  1086. X.SILENT   := yes
  1087. X
  1088. X# Configuration parameters for DMAKE startup.mk file
  1089. X# Set these to NON-NULL if you wish to turn the parameter on.
  1090. X_HAVE_RCS    := yes        # yes => RCS  is installed.
  1091. X_HAVE_SCCS    := yes        # yes => SCCS is installed.
  1092. X
  1093. X# Applicable suffix definitions
  1094. XA := .a        # Libraries
  1095. XE :=        # Executables
  1096. XF := .f        # Fortran
  1097. XO := .o        # Objects
  1098. XP := .p        # Pascal
  1099. XS := .s        # Assembler sources
  1100. XV := ,v        # RCS suffix
  1101. X
  1102. X# Recipe execution configurations
  1103. XSHELL        := /bin/sh
  1104. XSHELLFLAGS    := -ce
  1105. XGROUPSHELL    := $(SHELL)
  1106. XGROUPFLAGS    := 
  1107. XSHELLMETAS    := |();&<>?*][$$:\\#`'"
  1108. XGROUPSUFFIX    :=
  1109. XDIVFILE         = $(TMPFILE)
  1110. X
  1111. X# Standard C-language command names and flags
  1112. X   CPP       := /lib/cpp        # C-preprocessor
  1113. X   CC      := cc        # C-compiler and flags
  1114. X   CFLAGS  +=
  1115. X
  1116. X   AS      := as        # Assembler and flags
  1117. X   ASFLAGS += 
  1118. X
  1119. X   LD       = $(CC)        # Loader and flags
  1120. X   LDFLAGS +=
  1121. X   LDLIBS   =
  1122. X
  1123. X# Definition of $(MAKE) macro for recursive makes.
  1124. X   MAKE = $(MAKECMD) $(MFLAGS)
  1125. X
  1126. X# Definition of Print command for this system.
  1127. X   PRINT = lpr
  1128. X
  1129. X# Language and Parser generation Tools and their flags
  1130. X   YACC      := yacc        # standard yacc
  1131. X   YFLAGS +=
  1132. X   YTAB      := y.tab        # yacc output files name stem.
  1133. X
  1134. X   LEX      := lex        # standard lex
  1135. X   LFLAGS +=
  1136. X   LEXYY  := lex.yy        # lex output file
  1137. X
  1138. X# Other Compilers, Tools and their flags
  1139. X   PC    := pc            # pascal compiler
  1140. X   RC    := f77            # ratfor compiler
  1141. X   FC    := f77            # fortran compiler
  1142. X
  1143. X   CO       := co        # check out for RCS
  1144. X   COFLAGS += -q
  1145. X
  1146. X   AR     := ar            # archiver
  1147. X   ARFLAGS+= ruv
  1148. X
  1149. X   RM       := /bin/rm        # remove a file command
  1150. X   RMFLAGS +=
  1151. X
  1152. X# Implicit generation rules for making inferences.
  1153. X# We don't provide .yr or .ye rules here.  They're obsolete.
  1154. X# Rules for making *$O
  1155. X   %$O : %.c ; $(CC) $(CFLAGS) -c $<
  1156. X   %$O : %$P ; $(PC) $(PFLAGS) -c $<
  1157. X   %$O : %$S ; $(AS) $(ASFLAGS) $<
  1158. X   %$O : %.cl ; class -c $<
  1159. X   %$O : %.e %.r %.F %$F
  1160. X    $(FC) $(RFLAGS) $(EFLAGS) $(FFLAGS) -c $<
  1161. X
  1162. X# Executables
  1163. X   %$E : %$O ; $(LD) $(LDFLAGS) -o $@ $< $(LDLIBES)
  1164. X
  1165. X# lex and yacc rules
  1166. X   %.c : %.y ; $(YACC)  $(YFLAGS) $<; mv $(YTAB).c $@
  1167. X   %.c : %.l ; $(LEX)   $(LFLAGS) $<; mv $(LEXYY).c $@
  1168. X
  1169. X# This rule tells how to make *.out from it's immediate list of prerequisites
  1170. X# UNIX only.
  1171. X   %.out :; $(LD) $(LDFLAGS) -o $@ $^ $(LDLIBS)
  1172. X
  1173. X# RCS support
  1174. X.IF $(_HAVE_RCS)
  1175. X   % : %$V $$(@:d)RCS/$$(@:f)$V;- $(CO) $(COFLAGS) $@
  1176. X   .NOINFER : %$V $$(@:d)RCS/$$(@:f)$V
  1177. X.END
  1178. X
  1179. X# SCCS support
  1180. X.IF $(_HAVE_SCCS)
  1181. X   % : s.% ; get $@
  1182. X   .NOINFER : s.%
  1183. X.END
  1184. X
  1185. X# Recipe to make archive files.
  1186. X%$A :
  1187. X[
  1188. X   $(AR) $(ARFLAGS) $@ $?
  1189. X   $(RM) $(RMFLAGS) $?
  1190. X   ranlib $@
  1191. X]
  1192. X
  1193. X# DMAKE uses this recipe to remove intermediate targets
  1194. X.REMOVE :; $(RM) -f $<
  1195. X
  1196. X# AUGMAKE extensions for SYSV compatibility
  1197. X@B = $(@:b)
  1198. X@D = $(@:d)
  1199. X@F = $(@:f)
  1200. X*B = $(*:b)
  1201. X*D = $(*:d)
  1202. X*F = $(*:f)
  1203. X<B = $(<:b)
  1204. X<D = $(<:d)
  1205. X<F = $(<:f)
  1206. X?B = $(?:b)
  1207. X?F = $(?:f)
  1208. X?D = $(?:d)
  1209. X
  1210. X# Turn warnings back to previous setting.
  1211. X.SILENT := $(__.SILENT)
  1212. X
  1213. X# Local startup file if any
  1214. X.INCLUDE .IGNORE: "_startup.mk"
  1215. SHAR_EOF
  1216. chmod 0640 unix/sysvr1/startup.mk || echo "restore of unix/sysvr1/startup.mk fails"
  1217. echo "x - extracting unix/sysvr1/runargv.c (Text)"
  1218. sed 's/^X//' << 'SHAR_EOF' > unix/sysvr1/runargv.c &&
  1219. X/* RCS      -- $Header: /u2/dvadura/src/generic/dmake/src/unix/sysvr1/RCS/runargv.c,v 1.1 90/10/06 12:06:32 dvadura Exp $
  1220. X-- SYNOPSIS -- invoke a sub process.
  1221. X-- 
  1222. X-- DESCRIPTION
  1223. X--     Use the standard methods of executing a sub process.
  1224. X--
  1225. X-- AUTHOR
  1226. X--      Dennis Vadura, dvadura@watdragon.uwaterloo.ca
  1227. X--      CS DEPT, University of Waterloo, Waterloo, Ont., Canada
  1228. X--
  1229. X-- COPYRIGHT
  1230. X--      Copyright (c) 1990 by Dennis Vadura.  All rights reserved.
  1231. X-- 
  1232. X--      This program is free software; you can redistribute it and/or
  1233. X--      modify it under the terms of the GNU General Public License
  1234. X--      (version 1), as published by the Free Software Foundation, and
  1235. X--      found in the file 'LICENSE' included with this distribution.
  1236. X-- 
  1237. X--      This program is distributed in the hope that it will be useful,
  1238. X--      but WITHOUT ANY WARRANTY; without even the implied warrant of
  1239. X--      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1240. X--      GNU General Public License for more details.
  1241. X-- 
  1242. X--      You should have received a copy of the GNU General Public License
  1243. X--      along with this program;  if not, write to the Free Software
  1244. X--      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1245. X--
  1246. X-- LOG
  1247. X--     $Log:    runargv.c,v $
  1248. X * Revision 1.1  90/10/06  12:06:32  dvadura
  1249. X * dmake Release, Version 3.6
  1250. X * 
  1251. X*/
  1252. X
  1253. X#include <signal.h>
  1254. X#include "extern.h"
  1255. X#include "sysintf.h"
  1256. X#include "alloc.h"
  1257. X
  1258. Xtypedef struct prp {
  1259. X   char *prp_cmd;
  1260. X   int   prp_group;
  1261. X   int   prp_ignore;
  1262. X   int   prp_last;
  1263. X   int     prp_shell;
  1264. X   struct prp *prp_next;
  1265. X   char  *prp_dir;
  1266. X} RCP, *RCPPTR;
  1267. X
  1268. Xtypedef struct pr {
  1269. X   int        pr_valid;
  1270. X   int        pr_pid;
  1271. X   CELLPTR    pr_target;
  1272. X   HOWPTR    pr_how;
  1273. X   int        pr_ignore;
  1274. X   int        pr_last;
  1275. X   RCPPTR      pr_recipe;
  1276. X   RCPPTR      pr_recipe_end;
  1277. X} PR;
  1278. X
  1279. Xstatic PR  *_procs    = NIL(PR);
  1280. Xstatic int  _proc_cnt = 0;
  1281. Xstatic int  _abort_flg= FALSE;
  1282. Xstatic int  _use_i    = -1;
  1283. Xstatic int  _do_upd   = 0;
  1284. X
  1285. Xstatic  void    _add_child ANSI((int, CELLPTR, HOWPTR, int, int));
  1286. Xstatic  void    _attach_cmd ANSI((char *, int, int, CELLPTR, HOWPTR, int, int));
  1287. Xstatic  void    _finished_child ANSI((int, int));
  1288. Xstatic  int     _running ANSI((CELLPTR, HOWPTR));
  1289. X
  1290. Xint
  1291. Xrunargv(target, how, ignore, group, last, shell, cmd)
  1292. XCELLPTR target;
  1293. XHOWPTR  how;
  1294. Xint     ignore;
  1295. Xint    group;
  1296. Xint    last;
  1297. Xint     shell;
  1298. Xchar    *cmd;
  1299. X{
  1300. X   extern  int  errno;
  1301. X   extern  char *sys_errlist[];
  1302. X   int          pid;
  1303. X   char         **argv;
  1304. X
  1305. X   if( _running(target, how) /*&& Max_proc != 1*/ ) {
  1306. X      /* The command will be executed when the previous recipe
  1307. X       * line completes. */
  1308. X      _attach_cmd( cmd, group, ignore, target, how, last, shell );
  1309. X      return(1);
  1310. X   }
  1311. X
  1312. X   while( _proc_cnt == Max_proc )
  1313. X      if( Wait_for_child(FALSE, -1) == -1 )  Fatal( "Lost a child" );
  1314. X
  1315. X   argv = Pack_argv( group, shell, cmd );
  1316. X
  1317. X   switch( pid=fork() ){
  1318. X      int   wid;
  1319. X      int   status;
  1320. X
  1321. X   case -1: /* fork failed */
  1322. X      Error("%s: %s", argv[0], sys_errlist[errno]);
  1323. X      Handle_result(-1, ignore, _abort_flg, target);
  1324. X      return(-1);
  1325. X
  1326. X   case 0:  /* child */
  1327. X      execvp(argv[0], argv);
  1328. X      Continue = TRUE;   /* survive error message */
  1329. X      Error("%s: %s", argv[0], sys_errlist[errno]);
  1330. X      kill(getpid(), SIGTERM);
  1331. X      /*NOTREACHED*/
  1332. X
  1333. X   default: /* parent */
  1334. X      _add_child(pid, target, how, ignore, last);
  1335. X   }
  1336. X
  1337. X   return(1);
  1338. X}
  1339. X
  1340. X
  1341. Xint
  1342. XWait_for_child( abort_flg, pid )
  1343. Xint abort_flg;
  1344. Xint pid;
  1345. X{
  1346. X   int wid;
  1347. X   int status;
  1348. X   int waitchild;
  1349. X
  1350. X   waitchild = (pid == -1)? FALSE : Wait_for_completion;
  1351. X
  1352. X   do {
  1353. X      if( (wid = wait(&status)) == -1 ) return(-1);
  1354. X
  1355. X      _abort_flg = abort_flg;
  1356. X      _finished_child(wid, status);
  1357. X      _abort_flg = FALSE;
  1358. X   }
  1359. X   while( waitchild && pid != wid );
  1360. X
  1361. X   return(0);
  1362. X}
  1363. X
  1364. X
  1365. Xvoid
  1366. XClean_up_processes()
  1367. X{
  1368. X   register int i;
  1369. X
  1370. X   if( _procs != NIL(PR) ) {
  1371. X      for( i=0; i<Max_proc; i++ )
  1372. X     if( _procs[i].pr_valid )
  1373. X        kill(_procs[i].pr_pid, SIGTERM);
  1374. X
  1375. X      while( Wait_for_child(TRUE, -1) != -1 );
  1376. X   }
  1377. X}
  1378. X
  1379. X
  1380. Xstatic void
  1381. X_add_child( pid, target, how, ignore, last )
  1382. Xint    pid;
  1383. XCELLPTR target;
  1384. XHOWPTR  how;
  1385. Xint    ignore;
  1386. Xint     last;
  1387. X{
  1388. X   register int i;
  1389. X   register PR *pp;
  1390. X
  1391. X   if( _procs == NIL(PR) ) {
  1392. X      TALLOC( _procs, Max_proc, PR );
  1393. X   }
  1394. X
  1395. X   if( (i = _use_i) == -1 )
  1396. X      for( i=0; i<Max_proc; i++ )
  1397. X     if( !_procs[i].pr_valid )
  1398. X        break;
  1399. X
  1400. X   pp = _procs+i;
  1401. X
  1402. X   pp->pr_valid  = 1;
  1403. X   pp->pr_pid    = pid;
  1404. X   pp->pr_target = target;
  1405. X   pp->pr_how    = how;
  1406. X   pp->pr_ignore = ignore;
  1407. X   pp->pr_last   = last;
  1408. X
  1409. X   Current_target = NIL(HOW);
  1410. X
  1411. X   _proc_cnt++;
  1412. X
  1413. X   if( Wait_for_completion ) Wait_for_child( FALSE, pid );
  1414. X}
  1415. X
  1416. X
  1417. Xstatic void
  1418. X_finished_child(pid, status)
  1419. Xint    pid;
  1420. Xint    status;
  1421. X{
  1422. X   register int i;
  1423. X   register PR *pp;
  1424. X
  1425. X   for( i=0; i<Max_proc; i++ )
  1426. X      if( _procs[i].pr_valid && _procs[i].pr_pid == pid )
  1427. X     break;
  1428. X
  1429. X   _procs[i].pr_valid = 0;
  1430. X   _proc_cnt--;
  1431. X
  1432. X   if( _procs[i].pr_recipe != NIL(RCP) && !_abort_flg ) {
  1433. X      RCPPTR rp = _procs[i].pr_recipe;
  1434. X      char   *dir;
  1435. X
  1436. X      Current_target = _procs[i].pr_how;
  1437. X      Handle_result( status, _procs[i].pr_ignore, FALSE, _procs[i].pr_target );
  1438. X      Current_target = NIL(HOW);
  1439. X
  1440. X      _procs[i].pr_recipe = rp->prp_next;
  1441. X
  1442. X      _use_i = i;
  1443. X      dir = _strdup(Get_current_dir());
  1444. X      Set_dir( rp->prp_dir );
  1445. X      runargv( _procs[i].pr_target, _procs[i].pr_how, rp->prp_ignore,
  1446. X                 rp->prp_group, rp->prp_last, rp->prp_shell, rp->prp_cmd );
  1447. X      Set_dir(dir);
  1448. X      FREE(dir);
  1449. X      FREE(rp->prp_dir);
  1450. X      _use_i = -1;
  1451. X
  1452. X      FREE( rp->prp_cmd );
  1453. X      FREE( rp );
  1454. X
  1455. X      if( _proc_cnt == Max_proc ) Wait_for_child( FALSE, -1 );
  1456. X   }
  1457. X   else {
  1458. X      Unlink_temp_files( _procs[i].pr_how );
  1459. X      Handle_result(status,_procs[i].pr_ignore,_abort_flg,_procs[i].pr_target);
  1460. X
  1461. X      if( _procs[i].pr_last && !Doing_bang )
  1462. X     Update_time_stamp( _procs[i].pr_target, _procs[i].pr_how );
  1463. X   }
  1464. X}
  1465. X
  1466. X
  1467. Xstatic int
  1468. X_running( cp, how )
  1469. XCELLPTR cp;
  1470. XHOWPTR  how;
  1471. X{
  1472. X   register int i;
  1473. X
  1474. X   if( !_procs ) return(FALSE);
  1475. SHAR_EOF
  1476. echo "End of part 1"
  1477. echo "File unix/sysvr1/runargv.c is continued in part 2"
  1478. echo "2" > s2_seq_.tmp
  1479. exit 0
  1480.  
  1481.