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