home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / gnuish / make358.arc / patches1 < prev    next >
Encoding:
Text File  |  1990-09-22  |  192.2 KB  |  6,917 lines
  1. diff -cBdNp e:/gnu/make/gnu/ar.c ./ar.c
  2. *** e:/gnu/make/gnu/ar.c    Tue Jul 24 00:52:34 1990
  3. --- ./ar.c    Tue Jul 24 00:53:36 1990
  4. *************** You should have received a copy of the G
  5. *** 15,27 ****
  6. --- 15,53 ----
  7.   along with GNU Make; see the file COPYING.  If not, write to
  8.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  9.   
  10. + /*
  11. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  12. +  *
  13. +  * To this port, the same copying conditions apply as to the
  14. +  * original release.
  15. +  *
  16. +  * IMPORTANT:
  17. +  * This file is not identical to the original GNU release!
  18. +  * You should have received this code as patch to the official
  19. +  * GNU release.
  20. +  *
  21. +  * MORE IMPORTANT:
  22. +  * This port comes with ABSOLUTELY NO WARRANTY.
  23. +  *
  24. +  * $Header: e:/gnu/make/RCS/ar.c'v 3.58.0.2 90/07/18 10:17:58 tho Exp $
  25. +  */
  26. + 
  27.   #include "make.h"
  28.   #include "file.h"
  29.   
  30.   
  31. + 
  32. + #ifdef MSDOS
  33. + /* Defined in zipscan.c.  */
  34. + extern long ar_scan (char *archive, long (*f) (int, char *, long, long, long,
  35. +              long, int, int, int, long), long arg);
  36. + extern long ar_name_equal (char *name, char *mem);
  37. + extern long ar_member_touch (char *arname, char *memname);
  38. + #else /* not MSDOS */
  39.   /* Defined in arscan.c.  */
  40.   extern long int ar_scan ();
  41.   extern int ar_member_touch ();
  42. + #endif /* not MSDOS */
  43.   
  44.   
  45.   /* Return nonzero if NAME is an archive-member reference, zero if not.
  46. *************** ar_member_date (name)
  47. *** 71,77 ****
  48.     /* Make sure we know the modtime of the archive itself because
  49.        we are likely to be called just before commands to remake a
  50.        member are run, and they will change the archive itself.  */
  51. !   (void) f_mtime (enter_file (arname));
  52.   
  53.     val = ar_scan (arname, ar_member_date_1, (long int) memname);
  54.   
  55. --- 97,103 ----
  56.     /* Make sure we know the modtime of the archive itself because
  57.        we are likely to be called just before commands to remake a
  58.        member are run, and they will change the archive itself.  */
  59. !   (void) f_mtime (enter_file (arname), 0);
  60.   
  61.     val = ar_scan (arname, ar_member_date_1, (long int) memname);
  62.   
  63. *************** ar_touch (name)
  64. *** 115,121 ****
  65.   
  66.     /* Make sure we know the modtime of the archive itself before we
  67.        touch the member, since this will change the archive itself.  */
  68. !   (void) f_mtime (enter_file (arname));
  69.   
  70.     val = 1;
  71.     switch (ar_member_touch (arname, memname))
  72. --- 142,148 ----
  73.   
  74.     /* Make sure we know the modtime of the archive itself before we
  75.        touch the member, since this will change the archive itself.  */
  76. !   (void) f_mtime (enter_file (arname), 0);
  77.   
  78.     val = 1;
  79.     switch (ar_member_touch (arname, memname))
  80. diff -cBdNp e:/gnu/make/gnu/commands.c ./commands.c
  81. *** e:/gnu/make/gnu/commands.c    Tue Jul 24 00:52:38 1990
  82. --- ./commands.c    Tue Jul 24 00:53:42 1990
  83. *************** You should have received a copy of the G
  84. *** 16,21 ****
  85. --- 16,38 ----
  86.   along with GNU Make; see the file COPYING.  If not, write to
  87.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  88.   
  89. + /*
  90. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  91. +  *
  92. +  * To this port, the same copying conditions apply as to the
  93. +  * original release.
  94. +  *
  95. +  * IMPORTANT:
  96. +  * This file is not identical to the original GNU release!
  97. +  * You should have received this code as patch to the official
  98. +  * GNU release.
  99. +  *
  100. +  * MORE IMPORTANT:
  101. +  * This port comes with ABSOLUTELY NO WARRANTY.
  102. +  *
  103. +  * $Header: e:/gnu/make/RCS/commands.c'v 3.58.0.3 90/07/18 22:23:13 tho Exp $
  104. +  */
  105. + 
  106.   #include "make.h"
  107.   #include "dep.h"
  108.   #include "commands.h"
  109. *************** the Free Software Foundation, 675 Mass A
  110. *** 23,28 ****
  111. --- 40,49 ----
  112.   #include "variable.h"
  113.   #include "job.h"
  114.   
  115. + #ifdef MSDOS            /* really ? */
  116. + #define    sigmask(signal)        signal
  117. + #endif /* MSDOS */
  118. + 
  119.   #ifndef    sigmask
  120.   #define    sigmask(sig)    (1 << ((sig) - 1))
  121.   #endif
  122. *************** the Free Software Foundation, 675 Mass A
  123. *** 30,35 ****
  124. --- 51,60 ----
  125.   extern int remote_kill ();
  126.   
  127.   extern int getpid ();
  128. + 
  129. + #ifdef MSDOS
  130. + static  void set_file_variables (struct file *file);
  131. + #endif /* MSDOS */
  132.   
  133.   /* Set FILE's automatic variables up.  */
  134.   
  135. *************** set_file_variables (file)
  136. *** 171,177 ****
  137.           cF = p + 1;
  138.           Flen = len - (p - c);
  139.           cD = c;
  140. !         Dlen = (p - c) - 1;
  141.         }
  142.       bcopy (cD, cDp, Dlen);
  143.       cDp += Dlen;
  144. --- 196,202 ----
  145.           cF = p + 1;
  146.           Flen = len - (p - c);
  147.           cD = c;
  148. !         Dlen = (p - c);
  149.         }
  150.       bcopy (cD, cDp, Dlen);
  151.       cDp += Dlen;
  152. *************** execute_file_commands (file)
  153. *** 332,339 ****
  154. --- 357,368 ----
  155.     new_job (file);
  156.   }
  157.   
  158. + #ifdef MSDOS
  159. + #define    PROPAGATED_SIGNAL_MASK    (sigmask (SIGINT))
  160. + #else /* not MSDOS */
  161.   #define    PROPAGATED_SIGNAL_MASK \
  162.     (sigmask (SIGTERM) | sigmask (SIGINT) | sigmask (SIGHUP) | sigmask (SIGQUIT))
  163. + #endif /* not MSDOS */
  164.   
  165.   /* Handle fatal signals.  */
  166.   
  167. *************** fatal_error_signal (sig)
  168. *** 349,354 ****
  169. --- 378,384 ----
  170.     /* A termination signal won't be sent to the entire
  171.        process group, but it means we want to kill the children.  */
  172.   
  173. + #ifndef MSDOS
  174.     if (sig == SIGTERM)
  175.       {
  176.         register struct child *c;
  177. *************** fatal_error_signal (sig)
  178. *** 358,363 ****
  179. --- 388,394 ----
  180.         (void) kill (c->pid, SIGTERM);
  181.         unblock_children ();
  182.       }
  183. + #endif /* ! MSDOS */
  184.   
  185.     /* If we got a signal that means the user
  186.        wanted to kill make, remove pending targets.  */
  187. *************** fatal_error_signal (sig)
  188. *** 390,404 ****
  189. --- 421,441 ----
  190.   
  191.     remove_intermediates (1);
  192.   
  193. + #ifndef MSDOS
  194.     if (sig == SIGQUIT)
  195.       /* We don't want to send ourselves SIGQUIT, because it will
  196.          cause a core dump.  Just exit instead.  */
  197.       exit (1);
  198. + #endif /* !MSDOS */
  199.   
  200. + #ifdef MSDOS
  201. +   abort ();
  202. + #else
  203.     /* Signal the same code; this time it will really be fatal.  */
  204.     if (kill (getpid (), sig) < 0)
  205.       /* It shouldn't return, but if it does, die anyway.  */
  206.       pfatal_with_name ("kill");
  207. + #endif /* MSDOS */
  208.   
  209.     return 0;
  210.   }
  211. diff -cBdNp e:/gnu/make/gnu/commands.h ./commands.h
  212. *** e:/gnu/make/gnu/commands.h    Tue Jul 24 00:52:38 1990
  213. --- ./commands.h    Tue Jul 24 00:53:46 1990
  214. *************** You should have received a copy of the G
  215. *** 15,20 ****
  216. --- 15,37 ----
  217.   along with GNU Make; see the file COPYING.  If not, write to
  218.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  219.   
  220. + /*
  221. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  222. +  *
  223. +  * To this port, the same copying conditions apply as to the
  224. +  * original release.
  225. +  *
  226. +  * IMPORTANT:
  227. +  * This file is not identical to the original GNU release!
  228. +  * You should have received this code as patch to the official
  229. +  * GNU release.
  230. +  *
  231. +  * MORE IMPORTANT:
  232. +  * This port comes with ABSOLUTELY NO WARRANTY.
  233. +  *
  234. +  * $Header: e:/gnu/make/RCS/commands.h'v 3.58.0.2 90/07/17 03:32:49 tho Exp $
  235. +  */
  236. + 
  237.   /* Structure that gives the commands to make a file
  238.      and information about where these commands came from.  */
  239.   
  240. *************** struct commands
  241. *** 28,34 ****
  242.       char any_recurse;        /* Nonzero if any `lines_recurse' elt is.  */
  243.     };
  244.   
  245. ! 
  246.   extern void execute_file_commands ();
  247.   extern void print_commands ();
  248.   extern void delete_child_targets ();
  249. --- 45,60 ----
  250.       char any_recurse;        /* Nonzero if any `lines_recurse' elt is.  */
  251.     };
  252.   
  253. ! /* commands.c */
  254. ! #ifdef MSDOS
  255. ! extern  void chop_commands (struct commands *cmds);
  256. ! extern  void execute_file_commands (struct file *file);
  257. ! extern  int fatal_error_signal (int sig);
  258. ! extern  void delete_child_targets (struct child *child);
  259. ! extern  void print_commands (struct commands *cmds);
  260. ! #else /* not MSDOS */
  261.   extern void execute_file_commands ();
  262.   extern void print_commands ();
  263.   extern void delete_child_targets ();
  264. + #endif /* not MSDOS */
  265. + 
  266. diff -cBdNp e:/gnu/make/gnu/default.c ./default.c
  267. *** e:/gnu/make/gnu/default.c    Tue Jul 24 00:52:40 1990
  268. --- ./default.c    Tue Jul 24 00:53:48 1990
  269. *************** You should have received a copy of the G
  270. *** 16,21 ****
  271. --- 16,38 ----
  272.   along with GNU Make; see the file COPYING.  If not, write to
  273.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  274.   
  275. + /*
  276. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  277. +  *
  278. +  * To this port, the same copying conditions apply as to the
  279. +  * original release.
  280. +  *
  281. +  * IMPORTANT:
  282. +  * This file is not identical to the original GNU release!
  283. +  * You should have received this code as patch to the official
  284. +  * GNU release.
  285. +  *
  286. +  * MORE IMPORTANT:
  287. +  * This port comes with ABSOLUTELY NO WARRANTY.
  288. +  *
  289. +  * $Header: e:/gnu/make/RCS/default.c'v 3.58.0.3 90/07/18 10:42:57 tho Exp $
  290. +  */
  291. + 
  292.   #include "make.h"
  293.   #include "rule.h"
  294.   #include "dep.h"
  295. *************** the Free Software Foundation, 675 Mass A
  296. *** 24,29 ****
  297. --- 41,178 ----
  298.   #include "variable.h"
  299.   
  300.   
  301. + #if defined(MSDOS) && !defined(STRICT)
  302. + 
  303. + static char default_suffixes[] = \
  304. +   ".com .exe .obj .c .pas .for .r .y .l .asm .h .dvi .tex .web";
  305. + 
  306. + static struct pspec default_pattern_rules[] =
  307. + {
  308. +   "(%)", "%",
  309. +   "$(ZIP) $(ZFLAGS) $@ $<",
  310. + 
  311. +   0, 0, 0
  312. + };
  313. + 
  314. + static struct pspec default_terminal_rules[] =
  315. + {
  316. +   /* RCS  */
  317. +   "%", "%'v",
  318. +   "$(CO) $(COFLAGS) $@",
  319. +   "%", "RCS/%'v",
  320. +   "$(CO) $(COFLAGS) $@",
  321. + 
  322. +   "%.asm", "%.a'v",        /* kludges until we convert */
  323. +   "$(CO) $(COFLAGS) $@",        /* RCS to prefixes ... */
  324. +   "%.asm", "RCS/%.a'v",
  325. +   "$(CO) $(COFLAGS) $@",
  326. +   "%.for", "%.f'v",
  327. +   "$(CO) $(COFLAGS) $@",
  328. +   "%.for", "RCS/%.f'v",
  329. +   "$(CO) $(COFLAGS) $@",
  330. +   "%.tex", "%.t'v",
  331. +   "$(CO) $(COFLAGS) $@",
  332. +   "%.tex", "RCS/%.t'v",
  333. +   "$(CO) $(COFLAGS) $@",
  334. +   "%.web", "%.w'v",
  335. +   "$(CO) $(COFLAGS) $@",
  336. +   "%.web", "RCS/%.w'v",
  337. +   "$(CO) $(COFLAGS) $@",
  338. + 
  339. +   /* Backup */
  340. +   /* we should add some rules for copying .zip archives to
  341. +      disk, but: how to handle the ':' of the drive ? */
  342. + 
  343. +       0, 0, 0
  344. + };
  345. + 
  346. + static char *default_suffix_rules[] =
  347. + {
  348. +   ".exe.com",
  349. +   "$(EXE2BIN) $< $@",
  350. +   ".obj.exe",
  351. +   "$(LINK.s) $<;",
  352. + 
  353. +   ".asm.obj",
  354. +   "$(COMPILE.s) $<;",
  355. +   ".c.obj",
  356. +   "$(COMPILE.c) $<",
  357. +   ".for.obj",
  358. +   "$(COMPILE.f) $<",
  359. +   ".pas.exe",
  360. +   "$(COMPILE.p) $<",
  361. + 
  362. +   ".y.c",
  363. +   "$(YACC.y) $< \n mv -f y_tab.c $@",
  364. +   ".l.c",
  365. +   "$(LEX.l) $< \n mv -f lexyy.c $@",
  366. + 
  367. +   ".r.for",
  368. +   "$(PREPROCESS.r) < $< > $@",
  369. + 
  370. +   ".tex.dvi",
  371. +   "-$(TEX) $<",
  372. + 
  373. +   ".web.for",            /* make it smarter about changefiles! */
  374. +   "$(FTANGLE) $<",
  375. +   ".web.pas",
  376. +   "$(TANGLE) $<",
  377. +   ".web.c",
  378. +   "$(CTANGLE) $<",
  379. +   ".web.tex",
  380. +   "$(WEAVE) $<",
  381. + 
  382. +   0
  383. + 
  384. + };
  385. + 
  386. + 
  387. + static char *default_variables[] =
  388. + {
  389. +   "AR", "lib",
  390. +   "ARFLAGS", "-+",
  391. +   "AS", "masm",            /* might want tasm here */
  392. +   "CC", "cl",            /* might want tcc here  */
  393. +   "CO", "co",
  394. +   "CPP", "$(CC) -E",
  395. +   "FC", "fl",
  396. +   "F77", "$(FC)",
  397. +   "F77FLAGS", "$(FFLAGS)",
  398. +   "LEX", "flex",
  399. +   "LINT", "$(CC) -Zs -W4",
  400. +   "LINTFLAGS", "$(CFLAGS)",
  401. +   "PC", "tpc",
  402. +   "YACC", "bison -y",
  403. +   "TEX", "latex",
  404. +   "WEAVE", "weave",
  405. +   "CWEAVE", "cweave",
  406. +   "FWEAVE", "fweave",
  407. +   "TANGLE", "tangle",
  408. +   "CTANGLE", "ctangle",
  409. +   "FTANGLE", "ftangle",
  410. +   "RAT4", "ratfor",
  411. +   "LINK", "link",            /* might want tlink here */
  412. +   "EXE2BIN", "exe2bin",
  413. +   "ZIP", "pkzip",
  414. + 
  415. +   "RM", "rm -f",
  416. + 
  417. +   "COMPILE.c", "$(CC) $(CFLAGS) $(CPPFLAGS) -c",
  418. +   "LINK.s", "$(LINK) $(LDFLAGS)",
  419. +   "YACC.y", "$(YACC) $(YFLAGS)",
  420. +   "LEX.l", "$(LEX) $(LFLAGS) -t",
  421. +   "COMPILE.f", "$(FC) $(FFLAGS) -c",
  422. +   "LINK.f", "$(LINK) $(LDFLAGS)",
  423. +   "COMPILE.p", "$(PC) $(PFLAGS)",
  424. +   "COMPILE.s", "$(AS) $(ASFLAGS)",
  425. +   "LINT.c", "$(LINT) $(LINTFLAGS) $(CPPFLAGS)",
  426. +   "PREPROCESS.r", "$(RAT4) $(RFLAGS)",
  427. + 
  428. +   0, 0
  429. + };
  430. + 
  431. + #else
  432. + 
  433.   /* This is the default list of suffixes for suffix rules.
  434.      `.s' must come last, so that a `.o' file will be made from
  435.      a `.c' or `.p' or ... file rather than from a .s file.  */
  436. *************** static char *default_variables[] =
  437. *** 246,251 ****
  438. --- 395,403 ----
  439.   
  440.       0, 0
  441.     };
  442. + 
  443. + #endif /* MSDOS && !STRICT */
  444. + 
  445.   
  446.   /* Set up the default .SUFFIXES list.  */
  447.   
  448. diff -cBdNp e:/gnu/make/gnu/dep.h ./dep.h
  449. *** e:/gnu/make/gnu/dep.h    Tue Jul 24 00:52:42 1990
  450. --- ./dep.h    Tue Jul 24 00:53:50 1990
  451. *************** You should have received a copy of the G
  452. *** 15,20 ****
  453. --- 15,37 ----
  454.   along with GNU Make; see the file COPYING.  If not, write to
  455.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  456.   
  457. + /*
  458. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  459. +  *
  460. +  * To this port, the same copying conditions apply as to the
  461. +  * original release.
  462. +  *
  463. +  * IMPORTANT:
  464. +  * This file is not identical to the original GNU release!
  465. +  * You should have received this code as patch to the official
  466. +  * GNU release.
  467. +  *
  468. +  * MORE IMPORTANT:
  469. +  * This port comes with ABSOLUTELY NO WARRANTY.
  470. +  *
  471. +  * $Header: e:/gnu/make/RCS/dep.h'v 3.58.0.1 90/07/17 01:00:01 tho Exp $
  472. +  */
  473. + 
  474.   /* Structure representing one dependency of a file.
  475.      Each struct file's `deps' points to a chain of these,
  476.      chained through the `next'.
  477. *************** struct nameseq
  478. *** 38,46 ****
  479.       char *name;
  480.     };
  481.   
  482. ! 
  483.   extern struct nameseq *multi_glob (), *parse_file_seq ();
  484. ! 
  485.   
  486.   #ifndef    iAPX286
  487.   #define dep_name(d) ((d)->name == 0 ? (d)->file->name : (d)->name)
  488. --- 55,67 ----
  489.       char *name;
  490.     };
  491.   
  492. ! /* read.c */
  493. ! #ifdef  MSDOS
  494. ! extern  struct nameseq *multi_glob (struct nameseq *chain, unsigned int size);
  495. ! extern  struct nameseq *parse_file_seq (char **stringp, char stopchar, unsigned int size);
  496. ! #else /* not MSDOS */
  497.   extern struct nameseq *multi_glob (), *parse_file_seq ();
  498. ! #endif /* not MSDOS */
  499.   
  500.   #ifndef    iAPX286
  501.   #define dep_name(d) ((d)->name == 0 ? (d)->file->name : (d)->name)
  502. diff -cBdNp e:/gnu/make/gnu/dir.c ./dir.c
  503. *** e:/gnu/make/gnu/dir.c    Tue Jul 24 00:52:44 1990
  504. --- ./dir.c    Tue Jul 24 00:53:52 1990
  505. *************** You should have received a copy of the G
  506. *** 16,23 ****
  507. --- 16,47 ----
  508.   along with GNU Make; see the file COPYING.  If not, write to
  509.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  510.   
  511. + /*
  512. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  513. +  *
  514. +  * To this port, the same copying conditions apply as to the
  515. +  * original release.
  516. +  *
  517. +  * IMPORTANT:
  518. +  * This file is not identical to the original GNU release!
  519. +  * You should have received this code as patch to the official
  520. +  * GNU release.
  521. +  *
  522. +  * MORE IMPORTANT:
  523. +  * This port comes with ABSOLUTELY NO WARRANTY.
  524. +  *
  525. +  * $Header: e:/gnu/make/RCS/dir.c'v 3.58.0.1 90/07/17 00:59:03 tho Exp $
  526. +  */
  527. + 
  528.   #include "make.h"
  529.   
  530. + #ifdef MSDOS
  531. + 
  532. + #include "msd_dir.h"
  533. + #define D_NAMLEN(d) ((d)->d_namlen)
  534. + 
  535. + #else /* not MSDOS */
  536. + 
  537.   #if    defined(USGr3) || defined(DIRENT)
  538.   
  539.   #include <dirent.h>
  540. *************** the Free Software Foundation, 675 Mass A
  541. *** 35,40 ****
  542. --- 59,65 ----
  543.   
  544.   #endif    /* USGr3 or DIRENT.  */
  545.   
  546. + #endif /* not MSDOS */
  547.   
  548.   /* Hash table of directories.  */
  549.   
  550. *************** struct dirfile
  551. *** 73,78 ****
  552. --- 98,107 ----
  553.   #define DIRFILE_BUCKETS 1007
  554.   #endif
  555.   
  556. + #ifdef MSDOS
  557. + static  struct directory *find_directory (char *name);
  558. + #endif /* MSDOS */
  559. + 
  560.   /* Find the directory named NAME and return its `struct directory'.  */
  561.   
  562.   static struct directory *
  563. diff -cBdNp e:/gnu/make/gnu/expand.c ./expand.c
  564. *** e:/gnu/make/gnu/expand.c    Tue Jul 24 00:52:46 1990
  565. --- ./expand.c    Tue Jul 24 00:53:54 1990
  566. *************** You should have received a copy of the G
  567. *** 16,26 ****
  568. --- 16,46 ----
  569.   along with GNU Make; see the file COPYING.  If not, write to
  570.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  571.   
  572. + /*
  573. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  574. +  *
  575. +  * To this port, the same copying conditions apply as to the
  576. +  * original release.
  577. +  *
  578. +  * IMPORTANT:
  579. +  * This file is not identical to the original GNU release!
  580. +  * You should have received this code as patch to the official
  581. +  * GNU release.
  582. +  *
  583. +  * MORE IMPORTANT:
  584. +  * This port comes with ABSOLUTELY NO WARRANTY.
  585. +  *
  586. +  * $Header: e:/gnu/make/RCS/expand.c'v 3.58.0.1 90/07/17 00:59:05 tho Exp $
  587. +  */
  588. + 
  589.   #include "make.h"
  590.   #include "commands.h"
  591.   #include "file.h"
  592.   #include "variable.h"
  593.   
  594. + #ifdef MSDOS
  595. + static  char *recursively_expand (struct variable *v);
  596. + #endif /* MSDOS */
  597.   
  598.   /* Recursively expand V.  The returned string is malloc'd.  */
  599.   
  600. *************** char *
  601. *** 308,320 ****
  602. --- 328,349 ----
  603.   allocated_variable_expand (line)
  604.        char *line;
  605.   {
  606. + #ifdef MSDOS
  607. +   return allocated_var_exp_for_file (line, (struct file *) 0);
  608. + #else
  609.     return allocated_variable_expand_for_file (line, (struct file *) 0);
  610. + #endif /* MSDOS */
  611. + 
  612.   }
  613.   
  614.   /* Like variable_expand_for_file, but the returned string is malloc'd.  */
  615.   
  616.   char *
  617. + #ifdef MSDOS
  618. + allocated_var_exp_for_file (line, file)
  619. + #else
  620.   allocated_variable_expand_for_file (line, file)
  621. + #endif /* MSDOS */
  622.        char *line;
  623.        struct file *file;
  624.   {
  625. diff -cBdNp e:/gnu/make/gnu/file.c ./file.c
  626. *** e:/gnu/make/gnu/file.c    Tue Jul 24 00:52:48 1990
  627. --- ./file.c    Tue Jul 24 00:53:58 1990
  628. *************** You should have received a copy of the G
  629. *** 15,20 ****
  630. --- 15,37 ----
  631.   along with GNU Make; see the file COPYING.  If not, write to
  632.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  633.   
  634. + /*
  635. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  636. +  *
  637. +  * To this port, the same copying conditions apply as to the
  638. +  * original release.
  639. +  *
  640. +  * IMPORTANT:
  641. +  * This file is not identical to the original GNU release!
  642. +  * You should have received this code as patch to the official
  643. +  * GNU release.
  644. +  *
  645. +  * MORE IMPORTANT:
  646. +  * This port comes with ABSOLUTELY NO WARRANTY.
  647. +  *
  648. +  * $Header: e:/gnu/make/RCS/file.c'v 3.58.0.3 90/07/24 00:21:16 tho Exp $
  649. +  */
  650. + 
  651.   #include "make.h"
  652.   #include "commands.h"
  653.   #include "dep.h"
  654. *************** the Free Software Foundation, 675 Mass A
  655. *** 22,29 ****
  656.   #include "variable.h"
  657.   #include <errno.h>
  658.   
  659. ! 
  660.   extern int errno;
  661.   
  662.   
  663.   /* Hash table of files the makefile knows how to make.  */
  664. --- 39,49 ----
  665.   #include "variable.h"
  666.   #include <errno.h>
  667.   
  668. ! #ifdef MSDOS
  669. ! #include <time.h>
  670. ! #else /* not MSDOS */        /* <stdlib.h> */
  671.   extern int errno;
  672. + #endif /* not MSDOS */
  673.   
  674.   
  675.   /* Hash table of files the makefile knows how to make.  */
  676. diff -cBdNp e:/gnu/make/gnu/file.h ./file.h
  677. *** e:/gnu/make/gnu/file.h    Tue Jul 24 00:52:50 1990
  678. --- ./file.h    Tue Jul 24 00:54:00 1990
  679. *************** You should have received a copy of the G
  680. *** 15,20 ****
  681. --- 15,37 ----
  682.   along with GNU Make; see the file COPYING.  If not, write to
  683.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  684.   
  685. + /*
  686. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  687. +  *
  688. +  * To this port, the same copying conditions apply as to the
  689. +  * original release.
  690. +  *
  691. +  * IMPORTANT:
  692. +  * This file is not identical to the original GNU release!
  693. +  * You should have received this code as patch to the official
  694. +  * GNU release.
  695. +  *
  696. +  * MORE IMPORTANT:
  697. +  * This port comes with ABSOLUTELY NO WARRANTY.
  698. +  *
  699. +  * $Header: e:/gnu/make/RCS/file.h'v 3.58.0.1 90/07/17 01:00:03 tho Exp $
  700. +  */
  701. + 
  702.   /* Structure that represents the info on one file
  703.      that the makefile says how to make.
  704.      All of these are chained together through `next'.  */
  705. *************** extern unsigned int num_intermediates;
  706. *** 79,89 ****
  707.   
  708.   extern struct file *default_goal_file, *suffix_file, *default_file;
  709.   
  710. ! 
  711.   extern struct file *lookup_file (), *enter_file ();
  712.   extern void remove_intermediates (), snap_deps ();
  713.   extern void rename_file ();
  714. ! 
  715.   
  716.   extern time_t f_mtime ();
  717.   #define file_mtime_1(f, v) \
  718. --- 96,114 ----
  719.   
  720.   extern struct file *default_goal_file, *suffix_file, *default_file;
  721.   
  722. ! /*     file.c */
  723. ! #ifdef  MSDOS
  724. ! extern  struct file *enter_file (char *name);
  725. ! extern  struct file *lookup_file (char *name);
  726. ! extern  void print_file_data_base (void);
  727. ! extern  void remove_intermediates (int sig);
  728. ! extern  void rename_file (struct file *file, char *name);
  729. ! extern  void snap_deps (void);
  730. ! #else /* not MSDOS */
  731.   extern struct file *lookup_file (), *enter_file ();
  732.   extern void remove_intermediates (), snap_deps ();
  733.   extern void rename_file ();
  734. ! #endif /* not MSDOS */
  735.   
  736.   extern time_t f_mtime ();
  737.   #define file_mtime_1(f, v) \
  738. diff -cBdNp e:/gnu/make/gnu/function.c ./function.c
  739. *** e:/gnu/make/gnu/function.c    Tue Jul 24 00:52:52 1990
  740. --- ./function.c    Tue Jul 24 00:54:10 1990
  741. *************** You should have received a copy of the G
  742. *** 16,21 ****
  743. --- 16,38 ----
  744.   along with GNU Make; see the file COPYING.  If not, write to
  745.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  746.   
  747. + /*
  748. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  749. +  *
  750. +  * To this port, the same copying conditions apply as to the
  751. +  * original release.
  752. +  *
  753. +  * IMPORTANT:
  754. +  * This file is not identical to the original GNU release!
  755. +  * You should have received this code as patch to the official
  756. +  * GNU release.
  757. +  *
  758. +  * MORE IMPORTANT:
  759. +  * This port comes with ABSOLUTELY NO WARRANTY.
  760. +  *
  761. +  * $Header: e:/gnu/make/RCS/function.c'v 3.58.0.3 90/07/19 01:01:52 tho Exp $
  762. +  */
  763. + 
  764.   #include "make.h"
  765.   #include "variable.h"
  766.   #include "dep.h"
  767. *************** the Free Software Foundation, 675 Mass A
  768. *** 23,31 ****
  769. --- 40,80 ----
  770.   #include "job.h"
  771.   #include <errno.h>
  772.   
  773. + #ifdef MSDOS
  774. + #include <fcntl.h>
  775. + #include <io.h>
  776. + #include <time.h>
  777. + #include <process.h>
  778. + 
  779. + extern int last_child_pid;
  780. + extern int last_child_status;
  781. + 
  782. + extern int swap_and_spawnvpe (char *device, char *cmd, char **argv,
  783. +                   char **envvec);
  784. + extern char *mktmpname (char *prefix);
  785. + 
  786. + struct stringlist
  787. +   {
  788. +     char **list;    /* Nil-terminated list of strings.  */
  789. +     unsigned int idx;    /* Index into above.  */
  790. +     unsigned int max;    /* Number of pointers allocated.  */
  791. +   };
  792. + 
  793. + extern struct stringlist *swapping_device;
  794. + 
  795. + #endif /* MSDOS */
  796. + 
  797. + #ifndef MSDOS
  798.   extern int errno;
  799. + #endif /* not MSDOS */
  800.   
  801. + #ifdef MSDOS
  802. + static  char *expand_function (char *o, enum function function, char *text, char *end);
  803. + static  char *string_glob (char *line);
  804. + #else /* not MSDOS */
  805.   static char *string_glob ();
  806. + #endif /* not MSDOS */
  807. + 
  808.   
  809.   /* Store into VARIABLE_BUFFER at O the result of scanning TEXT and replacing
  810.      each occurrence of SUBST with REPLACE. TEXT is null-terminated.  SLEN is
  811. *************** expand_function (o, function, text, end)
  812. *** 310,315 ****
  813. --- 359,374 ----
  814.        char *text;
  815.        char *end;
  816.   {
  817. + #ifdef MSDOS
  818. +   extern char **construct_command_argv ();
  819. +   char **argv;
  820. +   int save_stdout;
  821. +   char *pipe_file = mktmpname ("pi");
  822. +   int pipe_fds;
  823. +   char *buffer = (char *) xmalloc (201);
  824. +   unsigned int maxlen = 200;
  825. +   int cc;
  826. + #endif /* MSDOS */
  827.     char *p, *p2, *p3;
  828.     unsigned int i, len;
  829.     int doneany = 0;
  830. *************** expand_function (o, function, text, end)
  831. *** 337,342 ****
  832. --- 396,470 ----
  833.       else
  834.         buf[0] = '\0';
  835.   
  836. + #ifdef MSDOS
  837. + 
  838. +           argv = construct_command_argv (text, (struct file *) 0);
  839. + 
  840. + #if 0
  841. +      {
  842. +         int ac = 0;
  843. +         char **av = argv;
  844. +         printf ( "expand_function(): spawning process");
  845. +         while (*av)
  846. +         printf( " $%d=`%s'", ac++, *av++);
  847. +         printf( "\n");
  848. +      }
  849. + #endif /* NEVER */
  850. + 
  851. +     save_stdout = dup (1);            /* redirect stdout */
  852. +     pipe_fds = open (pipe_file, O_CREAT|O_RDWR|O_TEXT, S_IREAD|S_IWRITE);
  853. +     if (dup2 (pipe_fds, 1) == -1)
  854. +       pfatal_with_name ("Can't redirect /dev/stdout");
  855. + 
  856. +           last_child_pid = pid = abs ((int) clock());    /* reasonably random */
  857. + 
  858. +     last_child_status =
  859. +       swap_and_spawnvpe (swapping_device ? swapping_device->list[0] : NULL,
  860. +                 argv[0], argv, environ);
  861. + 
  862. +     dup2 (save_stdout, 1);            /* reset stdout */
  863. +     if (lseek (pipe_fds, 0L, SEEK_SET) == -1L)
  864. +       pfatal_with_name ("Can't rewind intermediate file for pipe");
  865. + 
  866. +           /* Record the PID for child_handler.  */
  867. +           shell_function_pid = pid;
  868. +           shell_function_completed = 0;
  869. + 
  870. +           /* Loop until child_handler sets shell_function_completed
  871. +        to the status of our child shell.  */
  872. +           while (shell_function_completed == 0)
  873. +               wait_for_children (1, 0);
  874. + 
  875. +           /* Read from the pipe until it gets EOF.  */
  876. + 
  877. +           i = 0;
  878. +           do {
  879. +                if (i == maxlen)
  880. +          {
  881. +              maxlen += 512;
  882. +              buffer = (char *) xrealloc (buffer, maxlen + 1);
  883. +          }
  884. + 
  885. +         cc = read (pipe_fds, &buffer[i], maxlen - i);
  886. +         if (cc > 0)
  887. +           i += cc;
  888. + 
  889. +            } while (cc > 0);
  890. + 
  891. +           unlink(pipe_file);
  892. + 
  893. +           /* The child finished normally.  Replace all
  894. +              newlines in its output with spaces, and put
  895. +              that in the variable output buffer.  */
  896. +           for (p = buffer; p < buffer + i; ++p)
  897. +               if (*p == '\n')
  898. +                 *p = ' ';
  899. + 
  900. +           o = variable_buffer_output (o, buffer, i);
  901. + 
  902. +           free (buffer);
  903. + 
  904. + #else
  905.       if (pipe (pipedes) < 0)
  906.         {
  907.           perror_with_name (buf, "pipe");
  908. *************** expand_function (o, function, text, end)
  909. *** 429,434 ****
  910. --- 557,563 ----
  911.   
  912.           free (buffer);
  913.         }
  914. + #endif /* MSDOS */
  915.   
  916.       free (text);
  917.       break;
  918. diff -cBdNp e:/gnu/make/gnu/glob.c ./glob.c
  919. *** e:/gnu/make/gnu/glob.c    Tue Jul 24 00:52:54 1990
  920. --- ./glob.c    Tue Jul 24 00:54:14 1990
  921. ***************
  922. *** 1,5 ****
  923.   /* File-name wildcard pattern matching for GNU.
  924. !    Copyright (C) 1985, 1988, 1989 Free Software Foundation, Inc.
  925.   
  926.      This program is free software; you can redistribute it and/or modify
  927.      it under the terms of the GNU General Public License as published by
  928. --- 1,5 ----
  929.   /* File-name wildcard pattern matching for GNU.
  930. !    Copyright (C) 1985, 1988, 1989, 1990 Free Software Foundation, Inc.
  931.   
  932.      This program is free software; you can redistribute it and/or modify
  933.      it under the terms of the GNU General Public License as published by
  934. ***************
  935. *** 14,52 ****
  936.      You should have received a copy of the GNU General Public License
  937.      along with this program; if not, write to the Free Software
  938.      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  939.   
  940.   /* To whomever it may concern: I have never seen the code which most
  941.      Unix programs use to perform this function.  I wrote this from scratch
  942.      based on specifications for the pattern matching.  --RMS.  */
  943.   
  944.   #include <sys/types.h>
  945.   
  946. ! #if    defined(USGr3) || defined(DIRENT)
  947.   
  948.   #include <dirent.h>
  949.   #define direct dirent
  950. ! #define    D_NAMLEN(d) strlen((d)->d_name)
  951. ! 
  952. ! #else    /* Not USGr3 and not DIRENT.  */
  953. ! 
  954.   #define D_NAMLEN(d) ((d)->d_namlen)
  955. ! #    ifdef    USG
  956. ! #include "ndir.h"   /* Get ndir.h from the Emacs distribution.  */
  957. ! #    else    /* Not USG.  */
  958.   #include <sys/dir.h>
  959. ! #    endif    /* USG.  */
  960.   
  961. ! #endif    /* USGr3 or DIRENT.  */
  962.   
  963. ! #ifdef USG
  964. ! #include <memory.h>
  965.   #include <string.h>
  966. ! #define bcopy(s, d, n) ((void) memcpy ((d), (s), (n)))
  967. ! #define rindex    strrchr
  968.   
  969.   #else /* not USG */
  970.   #include <strings.h>
  971. - 
  972.   extern void bcopy ();
  973.   #endif /* not USG */
  974.   
  975. --- 14,86 ----
  976.      You should have received a copy of the GNU General Public License
  977.      along with this program; if not, write to the Free Software
  978.      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  979. + 
  980. + /*
  981. +  * MS-DOS port (c) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  982. +  *
  983. +  * To this port, the same copying conditions apply as to the
  984. +  * original release.
  985. +  *
  986. +  * IMPORTANT:
  987. +  * This file is not identical to the original GNU release!
  988. +  * You should have received this code as patch to the official
  989. +  * GNU release.
  990. +  *
  991. +  * MORE IMPORTANT:
  992. +  * This port comes with ABSOLUTELY NO WARRANTY.
  993. +  *
  994. +  * $Header: e:/gnu/make/RCS/glob.c'v 3.58.0.1 90/07/17 00:59:14 tho Exp $
  995. +  */
  996.   
  997.   /* To whomever it may concern: I have never seen the code which most
  998.      Unix programs use to perform this function.  I wrote this from scratch
  999.      based on specifications for the pattern matching.  --RMS.  */
  1000.   
  1001. + #ifdef MSDOS
  1002. + 
  1003. + #include <stdio.h>
  1004.   #include <sys/types.h>
  1005. + #include <malloc.h>
  1006. + #include "msd_dir.h"
  1007. + #define D_NAMLEN(d) ((d)->d_namlen)
  1008.   
  1009. ! #else /* not MSDOS */
  1010.   
  1011. + #if defined(USGr3) || defined(DIRENT) || defined(__GNU_LIBRARY__)
  1012.   #include <dirent.h>
  1013.   #define direct dirent
  1014. ! #define D_NAMLEN(d) strlen((d)->d_name)
  1015. ! #else /* not USGr3 or DIRENT or __GNU_LIBRARY__ */
  1016.   #define D_NAMLEN(d) ((d)->d_namlen)
  1017. ! #ifdef USG
  1018. ! #ifdef SYSNDIR
  1019. ! #include <sys/ndir.h>
  1020. ! #else
  1021. ! #include "ndir.h"        /* Get ndir.h from the Emacs distribution.  */
  1022. ! #endif /* not SYSNDIR */
  1023. ! #else /* not USG */
  1024.   #include <sys/dir.h>
  1025. ! #endif /* USG */
  1026. ! #endif /* USGr3 */
  1027.   
  1028. ! #endif /* not MSDOS */
  1029.   
  1030. ! #if    defined(STDC_HEADERS) || defined(__GNU_LIBRARY__)
  1031. ! #include <stdlib.h>
  1032.   #include <string.h>
  1033. ! #define bcopy(s, d, n) memcpy ((d), (s), (n))
  1034. ! #define index strchr
  1035. ! #define rindex strrchr
  1036. ! #else
  1037.   
  1038. + #ifdef USG
  1039. + #include <string.h>
  1040. + #include <memory.h>
  1041. + #define bcopy(s, d, n) memcpy ((d), (s), (n))
  1042. + #define index strchr
  1043. + #define rindex strrchr
  1044.   #else /* not USG */
  1045.   #include <strings.h>
  1046.   extern void bcopy ();
  1047.   #endif /* not USG */
  1048.   
  1049. ***************
  1050. *** 50,76 ****
  1051.   extern void bcopy ();
  1052.   #endif /* not USG */
  1053.   
  1054. ! #ifdef    __GNUC__
  1055. ! #define    alloca(n)    __builtin_alloca (n)
  1056. ! #else    /* Not GCC.  */
  1057. ! #ifdef    sparc
  1058. ! #include <alloca.h>
  1059. ! #else    /* Not sparc.  */
  1060. ! extern char *alloca ();
  1061. ! #endif    /* sparc.  */
  1062. ! #endif    /* GCC.  */
  1063. ! 
  1064. ! extern char *malloc (), *realloc ();
  1065.   extern void free ();
  1066.   
  1067.   #ifndef NULL
  1068.   #define NULL 0
  1069.   #endif
  1070.   
  1071. ! /* Global variable which controls whether or not * matches .*.
  1072. !    Non-zero means don't match .*.  */
  1073. ! int noglob_dot_filenames = 1;
  1074.   
  1075.   
  1076.   static int glob_match_after_star ();
  1077.   
  1078. --- 84,122 ----
  1079.   extern void bcopy ();
  1080.   #endif /* not USG */
  1081.   
  1082. ! extern char *malloc ();
  1083. ! extern char *realloc ();
  1084.   extern void free ();
  1085.   
  1086.   #ifndef NULL
  1087.   #define NULL 0
  1088.   #endif
  1089. + #endif    /* Not STDC_HEADERS or __GNU_LIBRARY__.  */
  1090.   
  1091. ! #ifdef __GNUC__
  1092. ! #define alloca __builtin_alloca
  1093. ! #else /* Not GCC.  */
  1094. ! #ifdef sparc
  1095. ! #include <alloca.h>
  1096. ! #else /* Not sparc.  */
  1097. ! #ifndef MSDOS
  1098. ! extern char *alloca ();
  1099. ! #endif /* not MSDOS */
  1100. ! #endif /* sparc.  */
  1101. ! #endif /* GCC.  */
  1102. ! 
  1103. ! #ifdef MSDOS
  1104. ! extern  int glob_pattern_p(char *);
  1105. ! extern  int glob_match(char *,char *,int);
  1106. ! static  int glob_match_after_star(char *,char *);
  1107. ! extern  char * *glob_vector(char *,char *);
  1108. ! static  char * *glob_dir_to_array(char *,char **);
  1109. ! extern  char * *glob_filename(char *);
  1110. ! #endif /* MSDOS */
  1111. !   
  1112.   
  1113. + /* Nonzero if '*' and '?' do not match an initial '.' for glob_filename.  */
  1114. + int noglob_dot_filenames = 1;
  1115.   
  1116.   static int glob_match_after_star ();
  1117.   
  1118. *************** glob_match (pattern, text, dot_special)
  1119. *** 151,157 ****
  1120.         register char c1 = *t++;
  1121.         int invert;
  1122.   
  1123. !       invert = *p == '!';
  1124.         if (invert)
  1125.           p++;
  1126.   
  1127. --- 199,209 ----
  1128.         register char c1 = *t++;
  1129.         int invert;
  1130.   
  1131. !       if (c1 == '\0')
  1132. !         return 0;
  1133. ! 
  1134. !       invert = (*p == '!');
  1135. ! 
  1136.         if (invert)
  1137.           p++;
  1138.   
  1139. *************** glob_match (pattern, text, dot_special)
  1140. *** 166,175 ****
  1141.             cend = cstart;
  1142.           }
  1143.   
  1144. !           if (c == '\0')
  1145. !         return 0;
  1146.   
  1147.             c = *p++;
  1148.             if (c == '-')
  1149.           {
  1150.             cend = *p++;
  1151. --- 218,228 ----
  1152.             cend = cstart;
  1153.           }
  1154.   
  1155. !           if (cstart == '\0')
  1156. !         return 0;    /* Missing ']'. */
  1157.   
  1158.             c = *p++;
  1159. + 
  1160.             if (c == '-')
  1161.           {
  1162.             cend = *p++;
  1163. *************** glob_match (pattern, text, dot_special)
  1164. *** 191,204 ****
  1165.       match:
  1166.         /* Skip the rest of the [...] construct that already matched.  */
  1167.         while (c != ']')
  1168. !         { 
  1169.             if (c == '\0')
  1170.           return 0;
  1171.             c = *p++;
  1172.             if (c == '\0')
  1173.           return 0;
  1174. !           else if (c == '\\')
  1175. !         ++p;
  1176.           }
  1177.         if (invert)
  1178.           return 0;
  1179. --- 244,257 ----
  1180.       match:
  1181.         /* Skip the rest of the [...] construct that already matched.  */
  1182.         while (c != ']')
  1183. !         {
  1184.             if (c == '\0')
  1185.           return 0;
  1186.             c = *p++;
  1187.             if (c == '\0')
  1188.           return 0;
  1189. !           if (c == '\\')
  1190. !         p++;
  1191.           }
  1192.         if (invert)
  1193.           return 0;
  1194. *************** glob_match_after_star (pattern, text)
  1195. *** 234,242 ****
  1196.     else
  1197.       c1 = c;
  1198.   
  1199.     while (1)
  1200.       {
  1201. !       if ((c == '[' || *t == c1) && glob_match (p - 1, t, 0))
  1202.       return 1;
  1203.         if (*t++ == '\0')
  1204.       return 0;
  1205. --- 287,296 ----
  1206.     else
  1207.       c1 = c;
  1208.   
  1209. +   --p;
  1210.     while (1)
  1211.       {
  1212. !       if ((c == '[' || *t == c1) && glob_match (p, t, 0))
  1213.       return 1;
  1214.         if (*t++ == '\0')
  1215.       return 0;
  1216. *************** glob_match_after_star (pattern, text)
  1217. *** 246,252 ****
  1218.   /* Return a vector of names of files in directory DIR
  1219.      whose names match glob pattern PAT.
  1220.      The names are not in any particular order.
  1221. !    Wildcards at the beginning of PAT do not match an initial period.
  1222.   
  1223.      The vector is terminated by an element that is a null pointer.
  1224.   
  1225. --- 300,307 ----
  1226.   /* Return a vector of names of files in directory DIR
  1227.      whose names match glob pattern PAT.
  1228.      The names are not in any particular order.
  1229. !    Wildcards at the beginning of PAT do not match an initial period
  1230. !    if noglob_dot_filenames is nonzero.
  1231.   
  1232.      The vector is terminated by an element that is a null pointer.
  1233.   
  1234. *************** glob_match_after_star (pattern, text)
  1235. *** 253,259 ****
  1236.      To free the space allocated, first free the vector's elements,
  1237.      then free the vector.
  1238.   
  1239. !    Return 0 if cannot get enough memory to hold the pointer
  1240.      and the names.
  1241.   
  1242.      Return -1 if cannot access directory DIR.
  1243. --- 308,314 ----
  1244.      To free the space allocated, first free the vector's elements,
  1245.      then free the vector.
  1246.   
  1247. !    Return NULL if cannot get enough memory to hold the pointer
  1248.      and the names.
  1249.   
  1250.      Return -1 if cannot access directory DIR.
  1251. *************** glob_vector (pat, dir)
  1252. *** 265,274 ****
  1253.        char *dir;
  1254.   {
  1255.     struct globval
  1256. !     {
  1257. !       struct globval *next;
  1258. !       char *name;
  1259. !     };
  1260.   
  1261.     DIR *d;
  1262.     register struct direct *dp;
  1263. --- 320,329 ----
  1264.        char *dir;
  1265.   {
  1266.     struct globval
  1267. !   {
  1268. !     struct globval *next;
  1269. !     char *name;
  1270. !   };
  1271.   
  1272.     DIR *d;
  1273.     register struct direct *dp;
  1274. *************** glob_vector (pat, dir)
  1275. *** 284,290 ****
  1276.     if (d == NULL)
  1277.       return (char **) -1;
  1278.   
  1279. !   lastlink = 0;
  1280.     count = 0;
  1281.     lose = 0;
  1282.   
  1283. --- 339,345 ----
  1284.     if (d == NULL)
  1285.       return (char **) -1;
  1286.   
  1287. !   lastlink = NULL;
  1288.     count = 0;
  1289.     lose = 0;
  1290.   
  1291. *************** glob_vector (pat, dir)
  1292. *** 297,308 ****
  1293.         dp = readdir (d);
  1294.         if (dp == NULL)
  1295.       break;
  1296.         if (dp->d_ino != 0
  1297.         && glob_match (pat, dp->d_name, noglob_dot_filenames))
  1298.       {
  1299.         nextlink = (struct globval *) alloca (sizeof (struct globval));
  1300.         nextlink->next = lastlink;
  1301. !       nextname = (char *) malloc (D_NAMLEN(dp) + 1);
  1302.         if (nextname == NULL)
  1303.           {
  1304.             lose = 1;
  1305. --- 352,368 ----
  1306.         dp = readdir (d);
  1307.         if (dp == NULL)
  1308.       break;
  1309. + #ifdef MSDOS    /* dp->d_ino is always 0 in the MS-DOS implementation. */
  1310. +       if (glob_match (pat, dp->d_name, noglob_dot_filenames))
  1311. + #else
  1312.         if (dp->d_ino != 0
  1313.         && glob_match (pat, dp->d_name, noglob_dot_filenames))
  1314. + #endif /* MSDOS */
  1315.       {
  1316.         nextlink = (struct globval *) alloca (sizeof (struct globval));
  1317.         nextlink->next = lastlink;
  1318. !       i = D_NAMLEN (dp) + 1;
  1319. !       nextname = (char *) malloc (i);
  1320.         if (nextname == NULL)
  1321.           {
  1322.             lose = 1;
  1323. *************** glob_vector (pat, dir)
  1324. *** 310,320 ****
  1325.           }
  1326.         lastlink = nextlink;
  1327.         nextlink->name = nextname;
  1328. !       bcopy (dp->d_name, nextname, D_NAMLEN(dp) + 1);
  1329. !       ++count;
  1330.       }
  1331.       }
  1332. !   (void) closedir (d);
  1333.   
  1334.     if (!lose)
  1335.       {
  1336. --- 370,380 ----
  1337.           }
  1338.         lastlink = nextlink;
  1339.         nextlink->name = nextname;
  1340. !       bcopy (dp->d_name, nextname, i);
  1341. !       count++;
  1342.       }
  1343.       }
  1344. !   closedir (d);
  1345.   
  1346.     if (!lose)
  1347.       {
  1348. *************** glob_vector (pat, dir)
  1349. *** 345,352 ****
  1350.     return name_vector;
  1351.   }
  1352.   
  1353. ! /* Return a new array which is the concatenation
  1354. !    of each string in ARRAY to DIR. */
  1355.   
  1356.   static char **
  1357.   glob_dir_to_array (dir, array)
  1358. --- 405,413 ----
  1359.     return name_vector;
  1360.   }
  1361.   
  1362. ! /* Return a new array, replacing ARRAY, which is the concatenation
  1363. !    of each string in ARRAY to DIR.
  1364. !    Return NULL if out of memory.  */
  1365.   
  1366.   static char **
  1367.   glob_dir_to_array (dir, array)
  1368. *************** glob_dir_to_array (dir, array)
  1369. *** 353,359 ****
  1370.        char *dir, **array;
  1371.   {
  1372.     register unsigned int i, l;
  1373. !   int add_slash;
  1374.     char **result;
  1375.   
  1376.     l = strlen (dir);
  1377. --- 414,420 ----
  1378.        char *dir, **array;
  1379.   {
  1380.     register unsigned int i, l;
  1381. !   int add_slash = 0;
  1382.     char **result;
  1383.   
  1384.     l = strlen (dir);
  1385. *************** glob_dir_to_array (dir, array)
  1386. *** 360,370 ****
  1387.     if (l == 0)
  1388.       return array;
  1389.   
  1390. !   add_slash = dir[l - 1] != '/';
  1391.   
  1392. !   i = 0;
  1393. !   while (array[i] != NULL)
  1394. !     ++i;
  1395.   
  1396.     result = (char **) malloc ((i + 1) * sizeof (char *));
  1397.     if (result == NULL)
  1398. --- 421,431 ----
  1399.     if (l == 0)
  1400.       return array;
  1401.   
  1402. !   if (dir[l - 1] != '/')
  1403. !     add_slash++;
  1404.   
  1405. !   for (i = 0; array[i] != NULL; i++)
  1406. !     ;
  1407.   
  1408.     result = (char **) malloc ((i + 1) * sizeof (char *));
  1409.     if (result == NULL)
  1410. *************** glob_dir_to_array (dir, array)
  1411. *** 372,382 ****
  1412.   
  1413.     for (i = 0; array[i] != NULL; i++)
  1414.       {
  1415. !       result[i] = (char *) malloc (l + (add_slash ? 1 : 0)
  1416. !                    + strlen (array[i]) + 1);
  1417.         if (result[i] == NULL)
  1418.       return NULL;
  1419. !       sprintf (result[i], "%s%s%s", dir, add_slash ? "/" : "", array[i]);
  1420.       }
  1421.     result[i] = NULL;
  1422.   
  1423. --- 433,445 ----
  1424.   
  1425.     for (i = 0; array[i] != NULL; i++)
  1426.       {
  1427. !       result[i] = (char *) malloc (1 + l + add_slash + strlen (array[i]));
  1428.         if (result[i] == NULL)
  1429.       return NULL;
  1430. !       strcpy (result[i], dir);
  1431. !       if (add_slash)
  1432. !     result[i][l] = '/';
  1433. !       strcpy (result[i] + l + add_slash, array[i]);
  1434.       }
  1435.     result[i] = NULL;
  1436.   
  1437. *************** glob_dir_to_array (dir, array)
  1438. *** 392,399 ****
  1439.      marking the end of the array with a null-pointer as an element.
  1440.      If no pathnames match, then the array is empty (first element is null).
  1441.      If there isn't enough memory, then return NULL.
  1442. !    If a file system error occurs, return -1; `errno' has the error code.  */
  1443.   
  1444.   char **
  1445.   glob_filename (pathname)
  1446.        char *pathname;
  1447. --- 454,464 ----
  1448.      marking the end of the array with a null-pointer as an element.
  1449.      If no pathnames match, then the array is empty (first element is null).
  1450.      If there isn't enough memory, then return NULL.
  1451. !    If a file system error occurs, return -1; `errno' has the error code.
  1452.   
  1453. +    Wildcards at the beginning of PAT, or following a slash,
  1454. +    do not match an initial period if noglob_dot_filenames is nonzero.  */
  1455. + 
  1456.   char **
  1457.   glob_filename (pathname)
  1458.        char *pathname;
  1459. *************** glob_filename (pathname)
  1460. *** 420,426 ****
  1461.       }
  1462.     else
  1463.       {
  1464. !       directory_len = filename - pathname;
  1465.         directory_name = (char *) alloca (directory_len + 1);
  1466.         bcopy (pathname, directory_name, directory_len);
  1467.         directory_name[directory_len] = '\0';
  1468. --- 485,491 ----
  1469.       }
  1470.     else
  1471.       {
  1472. !       directory_len = (filename - pathname) + 1;
  1473.         directory_name = (char *) alloca (directory_len + 1);
  1474.         bcopy (pathname, directory_name, directory_len);
  1475.         directory_name[directory_len] = '\0';
  1476. *************** glob_filename (pathname)
  1477. *** 427,436 ****
  1478.         ++filename;
  1479.       }
  1480.   
  1481.     if (glob_pattern_p (directory_name))
  1482.       {
  1483. -       /* If directory_name contains globbing characters, then we
  1484. -      have to expand the previous levels.  Just recurse. */
  1485.         char **directories;
  1486.         register unsigned int i;
  1487.   
  1488. --- 492,501 ----
  1489.         ++filename;
  1490.       }
  1491.   
  1492. +   /* If directory_name contains globbing characters, then we
  1493. +      have to expand the previous levels.  Just recurse. */
  1494.     if (glob_pattern_p (directory_name))
  1495.       {
  1496.         char **directories;
  1497.         register unsigned int i;
  1498.   
  1499. *************** glob_filename (pathname)
  1500. *** 440,446 ****
  1501.         directories = glob_filename (directory_name);
  1502.         if (directories == NULL)
  1503.       goto memory_error;
  1504. !       else if ((int) directories == -1)
  1505.       return (char **) -1;
  1506.         else if (*directories == NULL)
  1507.       {
  1508. --- 505,511 ----
  1509.         directories = glob_filename (directory_name);
  1510.         if (directories == NULL)
  1511.       goto memory_error;
  1512. !       else if (directories == (char **) -1)
  1513.       return (char **) -1;
  1514.         else if (*directories == NULL)
  1515.       {
  1516. *************** glob_filename (pathname)
  1517. *** 451,462 ****
  1518.         /* We have successfully globbed the preceding directory name.
  1519.        For each name in DIRECTORIES, call glob_vector on it and
  1520.        FILENAME.  Concatenate the results together.  */
  1521. !       for (i = 0; directories[i] != NULL; ++i)
  1522.       {
  1523.         char **temp_results = glob_vector (filename, directories[i]);
  1524.         if (temp_results == NULL)
  1525.           goto memory_error;
  1526. !       else if ((int) temp_results == -1)
  1527.           /* This filename is probably not a directory.  Ignore it.  */
  1528.           ;
  1529.         else
  1530. --- 516,527 ----
  1531.         /* We have successfully globbed the preceding directory name.
  1532.        For each name in DIRECTORIES, call glob_vector on it and
  1533.        FILENAME.  Concatenate the results together.  */
  1534. !       for (i = 0; directories[i] != NULL; i++)
  1535.       {
  1536.         char **temp_results = glob_vector (filename, directories[i]);
  1537.         if (temp_results == NULL)
  1538.           goto memory_error;
  1539. !       else if (temp_results == (char **) -1)
  1540.           /* This filename is probably not a directory.  Ignore it.  */
  1541.           ;
  1542.         else
  1543. *************** glob_filename (pathname)
  1544. *** 476,487 ****
  1545.             for (l = 0; array[l] != NULL; ++l)
  1546.           result[result_size++ - 1] = array[l];
  1547.             result[result_size - 1] = NULL;
  1548. -           /* Note that the elements of ARRAY are not freed.  */
  1549.             free ((char *) array);
  1550.           }
  1551.       }
  1552.         /* Free the directories.  */
  1553. !       for (i = 0; directories[i]; i++)
  1554.       free (directories[i]);
  1555.         free ((char *) directories);
  1556.   
  1557. --- 541,551 ----
  1558.             for (l = 0; array[l] != NULL; ++l)
  1559.           result[result_size++ - 1] = array[l];
  1560.             result[result_size - 1] = NULL;
  1561.             free ((char *) array);
  1562.           }
  1563.       }
  1564.         /* Free the directories.  */
  1565. !       for (i = 0; directories[i] != NULL; i++)
  1566.       free (directories[i]);
  1567.         free ((char *) directories);
  1568.   
  1569. *************** glob_filename (pathname)
  1570. *** 488,496 ****
  1571.         return result;
  1572.       }
  1573.   
  1574.     if (*filename == '\0')
  1575.       {
  1576. -       /* If there is only a directory name, return it.  */
  1577.         result = (char **) realloc ((char *) result, 2 * sizeof (char *));
  1578.         if (result == NULL)
  1579.       return NULL;
  1580. --- 552,560 ----
  1581.         return result;
  1582.       }
  1583.   
  1584. +   /* If there is only a directory name, return it. */
  1585.     if (*filename == '\0')
  1586.       {
  1587.         result = (char **) realloc ((char *) result, 2 * sizeof (char *));
  1588.         if (result == NULL)
  1589.       return NULL;
  1590. *************** glob_filename (pathname)
  1591. *** 509,521 ****
  1592.                        (directory_len == 0
  1593.                         ? "." : directory_name));
  1594.   
  1595. !       if (temp_results == NULL || (int) temp_results == -1)
  1596.       return temp_results;
  1597.   
  1598.         return glob_dir_to_array (directory_name, temp_results);
  1599.       }
  1600.   
  1601. !  memory_error:;
  1602.     if (result != NULL)
  1603.       {
  1604.         register unsigned int i;
  1605. --- 573,585 ----
  1606.                        (directory_len == 0
  1607.                         ? "." : directory_name));
  1608.   
  1609. !       if (temp_results == NULL || temp_results == (char **) -1)
  1610.       return temp_results;
  1611.   
  1612.         return glob_dir_to_array (directory_name, temp_results);
  1613.       }
  1614.   
  1615. ! memory_error:;
  1616.     if (result != NULL)
  1617.       {
  1618.         register unsigned int i;
  1619. *************** main (argc, argv)
  1620. *** 532,546 ****
  1621.        int argc;
  1622.        char **argv;
  1623.   {
  1624. !   unsigned int i;
  1625.   
  1626. !   for (i = 1; i < argc; ++i)
  1627.       {
  1628. !       char **value = glob_filename (argv[i]);
  1629.         if (value == NULL)
  1630. !     puts ("Out of memory.")
  1631. !       else if ((int) value == -1)
  1632. !     perror (argv[i]);
  1633.         else
  1634.       for (i = 0; value[i] != NULL; i++)
  1635.         puts (value[i]);
  1636. --- 596,611 ----
  1637.        int argc;
  1638.        char **argv;
  1639.   {
  1640. !   char **value;
  1641. !   int i, optind;
  1642.   
  1643. !   for (optind = 1; optind < argc; optind++)
  1644.       {
  1645. !       value = glob_filename (argv[optind]);
  1646.         if (value == NULL)
  1647. !     puts ("virtual memory exhausted");
  1648. !       else if (value == (char **) -1)
  1649. !     perror (argv[optind]);
  1650.         else
  1651.       for (i = 0; value[i] != NULL; i++)
  1652.         puts (value[i]);
  1653. *************** main (argc, argv)
  1654. *** 545,551 ****
  1655.       for (i = 0; value[i] != NULL; i++)
  1656.         puts (value[i]);
  1657.       }
  1658. - 
  1659.     exit (0);
  1660.   }
  1661. ! #endif    /* TEST.  */
  1662. --- 610,616 ----
  1663.       for (i = 0; value[i] != NULL; i++)
  1664.         puts (value[i]);
  1665.       }
  1666.     exit (0);
  1667.   }
  1668. ! 
  1669. ! #endif /* TEST */
  1670. diff -cBdNp e:/gnu/make/gnu/implicit.c ./implicit.c
  1671. *** e:/gnu/make/gnu/implicit.c    Tue Jul 24 00:52:58 1990
  1672. --- ./implicit.c    Tue Jul 24 00:54:16 1990
  1673. *************** You should have received a copy of the G
  1674. *** 16,27 ****
  1675. --- 16,48 ----
  1676.   along with GNU Make; see the file COPYING.  If not, write to
  1677.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  1678.   
  1679. + /*
  1680. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  1681. +  *
  1682. +  * To this port, the same copying conditions apply as to the
  1683. +  * original release.
  1684. +  *
  1685. +  * IMPORTANT:
  1686. +  * This file is not identical to the original GNU release!
  1687. +  * You should have received this code as patch to the official
  1688. +  * GNU release.
  1689. +  *
  1690. +  * MORE IMPORTANT:
  1691. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1692. +  *
  1693. +  * $Header: e:/gnu/make/RCS/implicit.c'v 3.58.0.1 90/07/17 00:59:17 tho Exp $
  1694. +  */
  1695. + 
  1696.   #include "make.h"
  1697.   #include "rule.h"
  1698.   #include "dep.h"
  1699.   #include "file.h"
  1700.   
  1701. + #ifdef MSDOS
  1702. + static  int pattern_search (struct file *file, char *name, unsigned int depth, unsigned int recursions);
  1703. + #else /* not MSDOS */
  1704.   static int pattern_search ();
  1705. + #endif /* not MSDOS */
  1706.   
  1707.   /* For a FILE which has no commands specified, try to figure out some
  1708.      from the implicit pattern rules.
  1709. diff -cBdNp e:/gnu/make/gnu/job.c ./job.c
  1710. *** e:/gnu/make/gnu/job.c    Tue Jul 24 00:53:00 1990
  1711. --- ./job.c    Tue Jul 24 00:54:34 1990
  1712. *************** You should have received a copy of the G
  1713. *** 16,21 ****
  1714. --- 16,38 ----
  1715.   along with GNU Make; see the file COPYING.  If not, write to
  1716.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  1717.   
  1718. + /*
  1719. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  1720. +  *
  1721. +  * To this port, the same copying conditions apply as to the
  1722. +  * original release.
  1723. +  *
  1724. +  * IMPORTANT:
  1725. +  * This file is not identical to the original GNU release!
  1726. +  * You should have received this code as patch to the official
  1727. +  * GNU release.
  1728. +  *
  1729. +  * MORE IMPORTANT:
  1730. +  * This port comes with ABSOLUTELY NO WARRANTY.
  1731. +  *
  1732. +  * $Header: e:/gnu/make/RCS/job.c'v 3.58.0.6 90/07/22 14:31:11 tho Exp $
  1733. +  */
  1734. + 
  1735.   #include "make.h"
  1736.   #include "commands.h"
  1737.   #include "job.h"
  1738. *************** the Free Software Foundation, 675 Mass A
  1739. *** 23,29 ****
  1740. --- 40,77 ----
  1741.   #include "variable.h"
  1742.   #include <errno.h>
  1743.   
  1744. + #ifdef MSDOS
  1745. + #define PATHSEP    ';'
  1746. + #else
  1747. + #define PATHSEP    ':'
  1748. + #endif
  1749. + 
  1750. + #ifndef MSDOS
  1751.   extern int errno;
  1752. + #endif /* not MSDOS */
  1753. + 
  1754. + #ifdef MSDOS
  1755. + 
  1756. + #include <time.h>
  1757. + #include <process.h>
  1758. + #include <io.h>
  1759. + 
  1760. + int last_child_pid = 0;            /* no child started yet ... */
  1761. + int last_child_status = 0;
  1762. + 
  1763. + struct stringlist
  1764. +   {
  1765. +     char **list;    /* Nil-terminated list of strings.  */
  1766. +     unsigned int idx;    /* Index into above.  */
  1767. +     unsigned int max;    /* Number of pointers allocated.  */
  1768. +   };
  1769. + 
  1770. + extern struct stringlist *swapping_device;
  1771. + 
  1772. + extern int swap_and_spawnvpe (char *device, char *cmd, char **argv,
  1773. +                   char **envvec);
  1774. + 
  1775. + #endif /* MSDOS */
  1776.   
  1777.   #if    defined(USG) && !defined(HAVE_VFORK)
  1778.   #define    vfork    fork
  1779. *************** extern int wait3 ();
  1780. *** 72,77 ****
  1781. --- 120,129 ----
  1782.   
  1783.   #endif    /* WTERMSIG defined or USG and don't have <sys/wait.h>.  */
  1784.   
  1785. + #ifdef MSDOS
  1786. + static char *search_path (char *file, char *path);
  1787. + static  void child_error (char *target_name, int exit_code, int exit_sig, int coredump, int ignored);
  1788. + #endif /* MSDOS */
  1789.   
  1790.   extern int dup2 ();
  1791.   extern int fork (), wait (), execve ();
  1792. *************** extern int geteuid (), getegid ();
  1793. *** 82,87 ****
  1794. --- 134,142 ----
  1795.   #define sigmask(sig) (1 << ((sig) - 1))
  1796.   #endif
  1797.   
  1798. + #ifdef MSDOS
  1799. + #define getdtablesize() _NFILE
  1800. + #else /* not MSDOS */
  1801.   #ifndef USG
  1802.   extern int getdtablesize ();
  1803.   #else
  1804. *************** extern int getdtablesize ();
  1805. *** 88,93 ****
  1806. --- 143,149 ----
  1807.   #include <sys/param.h>
  1808.   #define getdtablesize() NOFILE
  1809.   #endif
  1810. + #endif /* not MSDOS */
  1811.   
  1812.   extern void wait_to_start_job ();
  1813.   extern int start_remote_job_p ();
  1814. *************** void init_siglist ();
  1815. *** 101,108 ****
  1816. --- 157,170 ----
  1817.   extern char *sys_siglist[];
  1818.   #endif    /* USG and not HAVE_SIGLIST.  */
  1819.   
  1820. + #ifdef MSDOS
  1821. + extern  int child_handler (int sig);
  1822. + static void start_job (struct child *child);
  1823. + static void free_child (struct child *child);
  1824. + #else /* not MSDOS */
  1825.   int child_handler ();
  1826.   static void free_child (), start_job ();
  1827. + #endif /* not MSDOS */
  1828.   
  1829.   /* Chain of all children.  */
  1830.   
  1831. *************** extern void block_remote_children (), un
  1832. *** 148,153 ****
  1833. --- 210,216 ----
  1834.   void
  1835.   block_children ()
  1836.   {
  1837. + #ifndef MSDOS
  1838.   #ifdef USG
  1839.     /* Ignoring SIGCLD makes wait always return -1.
  1840.        Using the default action does the right thing.  */
  1841. *************** block_children ()
  1842. *** 155,160 ****
  1843. --- 218,224 ----
  1844.   #else
  1845.     (void) sigblock (sigmask (SIGCHLD));
  1846.   #endif
  1847. + #endif /* ! MSDOS */
  1848.   
  1849.     block_remote_children ();
  1850.   }
  1851. *************** block_children ()
  1852. *** 163,173 ****
  1853. --- 227,239 ----
  1854.   void
  1855.   unblock_children ()
  1856.   {
  1857. + #ifndef MSDOS
  1858.   #ifdef    USG
  1859.     (void) signal (SIGCLD, child_handler);
  1860.   #else
  1861.     (void) sigsetmask (sigblock (0) & ~sigmask (SIGCHLD));
  1862.   #endif
  1863. + #endif /* ! MSDOS */
  1864.   
  1865.     unblock_remote_children ();
  1866.   }
  1867. *************** wait_for_children (n, err)
  1868. *** 380,390 ****
  1869. --- 446,458 ----
  1870.   {
  1871.     block_children ();
  1872.   
  1873. + #ifndef MSDOS
  1874.     if (err && (children != 0 || shell_function_pid != 0))
  1875.       {
  1876.         fflush (stdout);
  1877.         error ("*** Waiting for unfinished jobs....");
  1878.       }
  1879. + #endif /* not MSDOS */
  1880.   
  1881.     /* Call child_handler to do the work.  */
  1882.     (void) child_handler (- (int) n);
  1883. *************** start_job (child)
  1884. *** 431,437 ****
  1885. --- 499,509 ----
  1886.         {
  1887.       /* Expand and run the next line.  */
  1888.       child->command_ptr = child->commands
  1889. + #ifdef MSDOS
  1890. +       = allocated_var_exp_for_file
  1891. + #else
  1892.         = allocated_variable_expand_for_file
  1893. + #endif /* MSDOS */
  1894.           (child->file->cmds->command_lines[child->command_line++],
  1895.            child->file);
  1896.         }
  1897. *************** start_job (child)
  1898. *** 536,541 ****
  1899. --- 608,614 ----
  1900.     
  1901.     /* Set up a bad standard input that reads from a broken pipe.  */
  1902.   
  1903. + #ifndef MSDOS
  1904.     if (bad_stdin == -1)
  1905.       {
  1906.         /* Make a file descriptor that is the read end of a broken pipe.
  1907. *************** start_job (child)
  1908. *** 549,554 ****
  1909. --- 622,628 ----
  1910.         bad_stdin = pd[0];
  1911.       }
  1912.       }
  1913. + #endif /* ! MSDOS */
  1914.   
  1915.     /* Decide whether to give this child the `good' standard input
  1916.        (one that points to the terminal or whatever), or the `bad' one
  1917. *************** start_job (child)
  1918. *** 564,569 ****
  1919. --- 638,675 ----
  1920.     if (child->environment == 0)
  1921.       child->environment = target_environment (child->file);
  1922.   
  1923. + #ifdef MSDOS
  1924. + 
  1925. +   child->remote = 0;
  1926. +   child->pid = abs ((int) clock());        /* reasonably random */
  1927. + 
  1928. + #if (0)
  1929. +        {
  1930. +               int ac = 0;
  1931. +               char **av = argv;
  1932. +               printf ( "start_job(): spawning process");
  1933. +               while (*av)
  1934. +                printf( " $%d=`%s'", ac++, *av++);
  1935. +               printf( "\n");
  1936. +        }
  1937. + #endif /* NEVER */
  1938. + 
  1939. +   /* LAST_CHILD_STATUS and LAST_CHILD_PID will be used by our
  1940. +      (faked) wait for MS-DOS to bury this 'child' */
  1941. + 
  1942. +   last_child_status
  1943. +     = swap_and_spawnvpe (swapping_device ? swapping_device->list[0] : NULL,
  1944. +             argv[0], argv, child->environment);
  1945. + 
  1946. +   last_child_pid = child->pid;
  1947. + 
  1948. +   if (last_child_status == -1)
  1949. +     pfatal_with_name ("vm_spawnvp");
  1950. + 
  1951. +   child->file->command_state = cs_running;    /* in *some* sense ...  */
  1952. + 
  1953. + #else /* not MSDOS */
  1954. + 
  1955.     if (start_remote_job_p ())
  1956.       {
  1957.         int is_remote, id, used_stdin;
  1958. *************** start_job (child)
  1959. *** 608,613 ****
  1960. --- 714,722 ----
  1961.        say the commands are running and return.  */
  1962.   
  1963.     child->file->command_state = cs_running;
  1964. + 
  1965. + #endif /* not MSDOS */
  1966. + 
  1967.     return;
  1968.   
  1969.    error:;
  1970. *************** new_job (file)
  1971. *** 679,684 ****
  1972. --- 788,794 ----
  1973.       }
  1974.   }
  1975.   
  1976. + #ifndef MSDOS
  1977.   /* Replace the current process with one executing the command in ARGV.
  1978.      STDIN_FD and STDOUT_FD are used as the process's stdin and stdout;
  1979.      FILE, if not nil, is used as the variable-set to expand `PATH' and `SHELL';
  1980. *************** child_execute_job (stdin_fd, stdout_fd, 
  1981. *** 711,716 ****
  1982. --- 821,827 ----
  1983.           allocated_variable_expand_for_file ("$(PATH)", file),
  1984.           allocated_variable_expand_for_file ("$(SHELL)", file));
  1985.   }
  1986. + #endif /* not MSDOS */
  1987.   
  1988.   /* Search PATH for FILE, returning a full pathname or nil.
  1989.      The returned pathname is allocated via `malloc'.  */
  1990. *************** search_path (file, path)
  1991. *** 742,748 ****
  1992.         int perm;
  1993.         char *p;
  1994.   
  1995. !       p = index (path, ':');
  1996.         if (p == 0)
  1997.           p = path + strlen (path);
  1998.   
  1999. --- 853,859 ----
  2000.         int perm;
  2001.         char *p;
  2002.   
  2003. !       p = index (path, PATHSEP);
  2004.         if (p == 0)
  2005.           p = path + strlen (path);
  2006.   
  2007. *************** search_path (file, path)
  2008. *** 758,763 ****
  2009. --- 869,877 ----
  2010.         if (stat (program, &st) == 0
  2011.             && (st.st_mode & S_IFMT) == S_IFREG)
  2012.           {
  2013. + #ifdef MSDOS            /* we always have permission */
  2014. +           return program;
  2015. + #else /* not MSDOS */
  2016.             if (st.st_uid == geteuid ())
  2017.           perm = (st.st_mode & 0100);
  2018.             else if (st.st_gid == getegid ())
  2019. *************** search_path (file, path)
  2020. *** 778,783 ****
  2021. --- 892,898 ----
  2022.   
  2023.             if (perm != 0)
  2024.           return program;
  2025. + #endif /* not MSDOS */
  2026.           }
  2027.   
  2028.         path = p + 1;
  2029. *************** search_path (file, path)
  2030. *** 787,792 ****
  2031. --- 902,908 ----
  2032.     return 0;
  2033.   }
  2034.   
  2035. + #ifndef MSDOS
  2036.   /* Replace the current process with one running the command in ARGV,
  2037.      with environment ENVP.  The program named in ARGV[0] is searched
  2038.      for in PATH.  SHELL is the shell program to run for shell scripts.
  2039. *************** exec_command (argv, envp, path, shell)
  2040. *** 840,845 ****
  2041. --- 956,962 ----
  2042.   
  2043.     _exit (127);
  2044.   }
  2045. + #endif /* not MSDOS */
  2046.   
  2047.   /* Figure out the argument list necessary to run LINE as a command.
  2048.      Try to avoid using a shell.  This routine handles only ' quoting.
  2049. *************** construct_command_argv (line, file)
  2050. *** 855,866 ****
  2051.        char *line;
  2052.        struct file *file;
  2053.   {
  2054. -   static char sh_chars[] = "#;\"*?[]&|<>(){}=$`";
  2055. -   static char *sh_cmds[] = { "cd", "eval", "exec", "exit", "login",
  2056. -                  "logout", "set", "umask", "wait", "while", "for",
  2057. -                  "case", "if", ":", ".", "break", "continue",
  2058. -                  "export", "read", "readonly", "shift", "times",
  2059. -                  "trap", "switch", 0 };
  2060.     register int i;
  2061.     register char *p;
  2062.     register char *ap;
  2063. --- 972,977 ----
  2064. *************** construct_command_argv (line, file)
  2065. *** 868,877 ****
  2066. --- 979,1067 ----
  2067.     int instring;
  2068.     char **new_argv = 0;
  2069.   
  2070. + #ifdef MSDOS
  2071. + 
  2072. +   char *sh_chars;
  2073. +   char **sh_cmds;
  2074. +   char *base;
  2075. +   char *shell_command;
  2076. +   char switch_char = '/';
  2077. + 
  2078. +   static char _sh_chars[]
  2079. +     = "#;\"*?[]&|<>(){}=$`";
  2080. +   static char *_sh_cmds[]
  2081. +     = {    "cd", "echo", "eval", "exec", "exit", "login", "logout", "set",
  2082. +     "umask", "wait", "while", "for", "case", "if", ":", ".", "break",
  2083. +     "continue", "export", "read", "readonly", "shift", "times",
  2084. +     "trap", "switch", NULL };
  2085. + 
  2086. +   static char _4dos_chars[]
  2087. +     = "<|>^&%";
  2088. +   static char *_4dos_cmds[]
  2089. +     = {    "alias", "attrib", "beep", "cd", "cdd", "chdir", "copy", "del",
  2090. +     "dir", "echo", "erase", "except", "for", "global", "if", "iff",
  2091. +     "keystack", "md", "move", "popd", "pushd", "rd", "ren", "rename",
  2092. +     "set", "timer", "unalias", "unset", NULL };
  2093. + 
  2094. +   static char _command_com_chars[]
  2095. +     = "<|>%";
  2096. +   static char *_command_com_cmds[]
  2097. +     = { "attrib", "cd", "chdir", "copy", "del", "dir", "echo", "erase",
  2098. +     "for", "if", "md", "quit", "rd", "ren", "rename", "set", "unset",
  2099. +     NULL };
  2100. + 
  2101. + 
  2102. +   /* See if it is safe to parse commands internally.  */
  2103. + 
  2104. +   /* $(SHELL) is always defined (see variable.c)  */
  2105. +   p = base = shell_command
  2106. +     = strlwr (allocated_var_exp_for_file ("$(SHELL)", file));
  2107. + 
  2108. +   while (*p)
  2109. +     {
  2110. +       if ((*p == '/' || *p == '\\' || *p == ':') && p[1])
  2111. +     base = p + 1;
  2112. +       p++;
  2113. +     }
  2114. + 
  2115. +   if (!strncmp ("sh", base, 2))
  2116. +     {
  2117. +       sh_chars = _sh_chars;
  2118. +       sh_cmds = _sh_cmds;
  2119. +       switch_char = '/';    /* this is true for by Bourne shell */
  2120. +     }
  2121. +   else if (!strncmp ("4dos", base, 4))
  2122. +     {
  2123. +       sh_chars = _4dos_chars;
  2124. +       sh_cmds = _4dos_cmds;
  2125. +     }
  2126. +   else if (!strncmp ("command", base, 7))
  2127. +     {
  2128. +       sh_chars = _command_com_chars;
  2129. +       sh_cmds = _command_com_cmds;
  2130. +     }
  2131. +   else
  2132. +     {
  2133. +       free (shell_command);
  2134. +       goto slow;
  2135. +     }
  2136. + 
  2137. + #else /* not MSDOS */
  2138. + 
  2139. +   static char sh_chars[] = "#;\"*?[]&|<>(){}=$`";
  2140. +   static char *sh_cmds[] = { "cd", "eval", "exec", "exit", "login",
  2141. +                  "logout", "set", "umask", "wait", "while", "for",
  2142. +                  "case", "if", ":", ".", "break", "continue",
  2143. +                  "export", "read", "readonly", "shift", "times",
  2144. +                  "trap", "switch", 0 };
  2145. + 
  2146.     /* See if it is safe to parse commands internally.  */
  2147.     p = variable_expand_for_file ("$(SHELL)", file);
  2148.     if (strcmp (p, "/bin/sh"))
  2149.       goto slow;
  2150. + 
  2151. + #endif /* not MSDOS */
  2152. + 
  2153.     p = variable_expand_for_file ("$(IFS)", file);
  2154.     for (ap = p; *ap != '\0'; ++ap)
  2155.       if (*ap != ' ' && *ap != '\t' && *ap != '\n')
  2156. *************** construct_command_argv (line, file)
  2157. *** 966,973 ****
  2158. --- 1156,1168 ----
  2159.     if (new_argv != 0)
  2160.       free (new_argv);
  2161.     new_argv = (char **) xmalloc (4 * sizeof (char *));
  2162. + #ifdef MSDOS
  2163. +   new_argv[0] = allocated_var_exp_for_file ("$(SHELL)", file);
  2164. +   new_argv[1] = (switch_char == '-') ? "-c" : "/c";
  2165. + #else /* not MSDOS */
  2166.     new_argv[0] = allocated_variable_expand_for_file ("$(SHELL)", file);
  2167.     new_argv[1] = "-c";
  2168. + #endif /* not MSDOS */
  2169.     new_argv[2] = line;
  2170.     new_argv[3] = 0;
  2171.   
  2172. *************** init_siglist ()
  2173. *** 990,1001 ****
  2174. --- 1185,1199 ----
  2175.       sprintf (buf, "Signal %u", i);
  2176.       sys_siglist[i] = savestring (buf, strlen (buf));
  2177.       break;
  2178. + #ifndef MSDOS
  2179.         case SIGHUP:
  2180.       sys_siglist[i] = "Hangup";
  2181.       break;
  2182. + #endif /* ! MSDOS */
  2183.         case SIGINT:
  2184.       sys_siglist[i] = "Interrupt";
  2185.       break;
  2186. + #ifndef MSDOS
  2187.         case SIGQUIT:
  2188.       sys_siglist[i] = "Quit";
  2189.       break;
  2190. *************** init_siglist ()
  2191. *** 1008,1013 ****
  2192. --- 1206,1212 ----
  2193.         case SIGIOT:
  2194.       sys_siglist[i] = "IOT Trap";
  2195.       break;
  2196. + #endif /* ! MSDOS */
  2197.   #ifdef    SIGEMT
  2198.         case SIGEMT:
  2199.       sys_siglist[i] = "EMT Trap";
  2200. *************** init_siglist ()
  2201. *** 1021,1026 ****
  2202. --- 1220,1226 ----
  2203.         case SIGFPE:
  2204.       sys_siglist[i] = "Floating Point Exception";
  2205.       break;
  2206. + #ifndef MSDOS
  2207.         case SIGKILL:
  2208.       sys_siglist[i] = "Killed";
  2209.       break;
  2210. *************** init_siglist ()
  2211. *** 1048,1053 ****
  2212. --- 1248,1254 ----
  2213.         case SIGUSR2:
  2214.       sys_siglist[i] = "User-defined signal 2";
  2215.       break;
  2216. + #endif /* ! MSDOS */
  2217.   #ifdef    SIGCLD
  2218.         case SIGCLD:
  2219.   #endif
  2220. *************** init_siglist ()
  2221. *** 1125,1131 ****
  2222.   }
  2223.   #endif    /* USG and not HAVE_SIGLIST.  */
  2224.   
  2225. ! #if    defined(USG) && !defined(USGr3) && !defined(HAVE_DUP2)
  2226.   int
  2227.   dup2 (old, new)
  2228.        int old, new;
  2229. --- 1326,1332 ----
  2230.   }
  2231.   #endif    /* USG and not HAVE_SIGLIST.  */
  2232.   
  2233. ! #if defined(USG) && !defined(USGr3) && !defined(HAVE_DUP2) && !defined (MSDOS)
  2234.   int
  2235.   dup2 (old, new)
  2236.        int old, new;
  2237. *************** dup2 (old, new)
  2238. *** 1143,1146 ****
  2239.   
  2240.     return fd;
  2241.   }
  2242. ! #endif    /* USG and not USGr3 and not HAVE_DUP2.  */
  2243. --- 1344,1363 ----
  2244.   
  2245.     return fd;
  2246.   }
  2247. ! #endif    /* USG and not USGr3 and not HAVE_DUP2 and not MSDOS.  */
  2248. ! 
  2249. ! #ifdef MSDOS
  2250. ! 
  2251. ! /* fake a wait ... */
  2252. ! 
  2253. ! int
  2254. ! wait (WAIT_T *status)
  2255. !  {
  2256. !    int temp = last_child_pid;        /* the last child we spawned */
  2257. !    *status = last_child_status << 8;    /* it's return code (not a signal) */
  2258. !    last_child_pid = 0;            /* the only child ... */
  2259. !    return temp;
  2260. !  }
  2261. ! 
  2262. ! #endif    /* MSDOS */
  2263. ! 
  2264. diff -cBdNp e:/gnu/make/gnu/job.h ./job.h
  2265. *** e:/gnu/make/gnu/job.h    Tue Jul 24 00:53:02 1990
  2266. --- ./job.h    Tue Jul 24 00:54:36 1990
  2267. ***************
  2268. *** 1,3 ****
  2269. --- 1,20 ----
  2270. + /*
  2271. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  2272. +  *
  2273. +  * To this port, the same copying conditions apply as to the
  2274. +  * original release.
  2275. +  *
  2276. +  * IMPORTANT:
  2277. +  * This file is not identical to the original GNU release!
  2278. +  * You should have received this code as patch to the official
  2279. +  * GNU release.
  2280. +  *
  2281. +  * MORE IMPORTANT:
  2282. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2283. +  *
  2284. +  * $Header: e:/gnu/make/RCS/job.h'v 3.58.0.2 90/07/17 03:32:50 tho Exp $
  2285. +  */
  2286. + 
  2287.   /* Structure describing a running or dead child process.  */
  2288.   
  2289.   struct child
  2290. *************** struct child
  2291. *** 23,31 ****
  2292. --- 40,59 ----
  2293.   
  2294.   extern struct child *children;
  2295.   
  2296. + #ifdef MSDOS
  2297. + extern  int _cdecl wait (int *status);
  2298. + extern  void new_job (struct file *file);
  2299. + extern  void block_children (void);
  2300. + extern  void unblock_children (void);
  2301. + #else /* not MSDOS */
  2302.   extern void new_job ();
  2303.   extern void wait_for_children ();
  2304.   extern void block_children (), unblock_children ();
  2305. + #endif /* not MSDOS */
  2306. + 
  2307. + #ifdef MSDOS
  2308. + extern  void exec_command (char **argv, char **envp, char *path, char *shell);
  2309. + #endif /* MSDOS */
  2310.   
  2311.   extern char **construct_command_argv ();
  2312.   extern void child_execute_job ();
  2313. diff -cBdNp e:/gnu/make/gnu/load.c ./load.c
  2314. *** e:/gnu/make/gnu/load.c    Tue Jul 24 00:53:04 1990
  2315. --- ./load.c    Tue Jul 24 00:54:38 1990
  2316. *************** You should have received a copy of the G
  2317. *** 15,20 ****
  2318. --- 15,37 ----
  2319.   along with GNU Make; see the file COPYING.  If not, write to
  2320.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  2321.   
  2322. + /*
  2323. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  2324. +  *
  2325. +  * To this port, the same copying conditions apply as to the
  2326. +  * original release.
  2327. +  *
  2328. +  * IMPORTANT:
  2329. +  * This file is not identical to the original GNU release!
  2330. +  * You should have received this code as patch to the official
  2331. +  * GNU release.
  2332. +  *
  2333. +  * MORE IMPORTANT:
  2334. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2335. +  *
  2336. +  * $Header: e:/gnu/make/RCS/load.c'v 3.58.0.1 90/07/17 00:59:28 tho Exp $
  2337. +  */
  2338. + 
  2339.   #include "make.h"
  2340.   #include "commands.h"
  2341.   #include "job.h"
  2342. *************** load_average ()
  2343. *** 134,145 ****
  2344. --- 151,165 ----
  2345.   #define LDAV_CVT ((double) load)
  2346.   #endif
  2347.   
  2348. + #ifndef MSDOS
  2349.   #include <nlist.h>
  2350. + #include <nlist.h>
  2351.   #ifdef    NLIST_NAME_UNION
  2352.   #define    nl_name    n_un.n_name
  2353.   #else
  2354.   #define    nl_name    n_name
  2355.   #endif
  2356. + #endif /* not MSDOS */
  2357.   
  2358.   #ifdef    USG
  2359.   #include <fcntl.h>
  2360. diff -cBdNp e:/gnu/make/gnu/main.c ./main.c
  2361. *** e:/gnu/make/gnu/main.c    Tue Jul 24 00:53:06 1990
  2362. --- ./main.c    Tue Jul 24 00:54:50 1990
  2363. *************** You should have received a copy of the G
  2364. *** 15,20 ****
  2365. --- 15,37 ----
  2366.   along with GNU Make; see the file COPYING.  If not, write to
  2367.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  2368.   
  2369. + /*
  2370. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  2371. +  *
  2372. +  * To this port, the same copying conditions apply as to the
  2373. +  * original release.
  2374. +  *
  2375. +  * IMPORTANT:
  2376. +  * This file is not identical to the original GNU release!
  2377. +  * You should have received this code as patch to the official
  2378. +  * GNU release.
  2379. +  *
  2380. +  * MORE IMPORTANT:
  2381. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2382. +  *
  2383. +  * $Header: e:/gnu/make/RCS/main.c'v 3.58.0.6 90/07/22 18:55:19 tho Exp $
  2384. +  */
  2385. + 
  2386.   #include "make.h"
  2387.   #include "commands.h"
  2388.   #include "dep.h"
  2389. *************** the Free Software Foundation, 675 Mass A
  2390. *** 24,29 ****
  2391. --- 41,53 ----
  2392.   #include <ctype.h>
  2393.   #include <time.h>
  2394.   
  2395. + #ifdef MSDOS
  2396. + #include <process.h>
  2397. + extern char *msdos_version_string;
  2398. + extern int swap_and_spawnvpe (char *device, char *cmd, char **argv,
  2399. +                   char **envvec);
  2400. + extern char *msdos_format_filename (char *name);
  2401. + #endif /* MSDOS */
  2402.   
  2403.   extern char *version_string;
  2404.   
  2405. *************** extern void print_rule_data_base ();
  2406. *** 37,42 ****
  2407. --- 61,70 ----
  2408.   extern void print_file_data_base ();
  2409.   extern void print_vpath_data_base ();
  2410.   
  2411. + #ifdef MSDOS
  2412. + #include <direct.h>
  2413. + #include <io.h>
  2414. + #else /* not MSDOS */
  2415.   extern int chdir ();
  2416.   extern void exit ();
  2417.   extern long int atol ();
  2418. *************** extern long int atol ();
  2419. *** 43,54 ****
  2420.   extern time_t time ();
  2421.   extern int mktemp ();
  2422.   extern double atof ();
  2423.   
  2424.   static void log_working_directory ();
  2425.   static void print_data_base (), print_version ();
  2426.   static void decode_switches (), decode_env_switches ();
  2427.   static void define_makeflags ();
  2428. ! 
  2429.   
  2430.   #if 0 /* dummy tag */
  2431.   flags () {}
  2432. --- 71,92 ----
  2433.   extern time_t time ();
  2434.   extern int mktemp ();
  2435.   extern double atof ();
  2436. + #endif /* not MSDOS */
  2437.   
  2438. + #ifdef MSDOS
  2439. + extern  int main (int argc, char **argv, char **envp);
  2440. + static  void decode_switches (int argc, char **argv);
  2441. + static  void decode_env_switches (char *envar, unsigned int len);
  2442. + static  void define_makeflags (int pf);
  2443. + static  void print_version (void);
  2444. + static  void print_data_base (void);
  2445. + static  void log_working_directory (int entering);
  2446. + #else /* not MSDOS */
  2447.   static void log_working_directory ();
  2448.   static void print_data_base (), print_version ();
  2449.   static void decode_switches (), decode_env_switches ();
  2450.   static void define_makeflags ();
  2451. ! #endif /* not MSDOS */
  2452.   
  2453.   #if 0 /* dummy tag */
  2454.   flags () {}
  2455. *************** static struct stringlist *old_files = 0;
  2456. *** 206,211 ****
  2457. --- 244,256 ----
  2458.   
  2459.   static struct stringlist *new_files = 0;
  2460.   
  2461. + #ifdef MSDOS
  2462. + /* String describing the swapping mode to be used.
  2463. +    (one of "xms, ems, disk, none") */
  2464. +  
  2465. + struct stringlist *swapping_device = NULL;
  2466. + #endif /* MSDOS */
  2467. + 
  2468.   /* The table of command switches.  */
  2469.   
  2470.   static struct command_switch switches[] =
  2471. *************** static struct command_switch switches[] 
  2472. *** 234,239 ****
  2473. --- 279,287 ----
  2474.       { 'v', flag, (char *) &print_version_flag, 0, 0, 0, 0 },
  2475.       { 'w', flag, (char *) &print_directory_flag, 1, 1, 0, 0 },
  2476.       { 'W', string, (char *) &new_files, 0, 0, 0, 0 },
  2477. + #ifdef MSDOS
  2478. +     { 'x', string, (char *) &swapping_device, 0, 0, 0, 0 },
  2479. + #endif /* MSDOS */
  2480.       { '\0', ignore, 0, 0, 0, 0 }
  2481.     };
  2482.   
  2483. *************** struct file *default_goal_file;
  2484. *** 261,266 ****
  2485. --- 309,322 ----
  2486.      This is zero if the makefiles do not define .DEFAULT.  */
  2487.   
  2488.   struct file *default_file;
  2489. + 
  2490. + #ifdef MSDOS
  2491. + /* Under MS-DOS the current directory is not local to the process,
  2492. +    so we have to find means to back up somehow.  */
  2493. + 
  2494. + char current_directory[MAXPATHLEN];
  2495. + #endif /* MSDOS */
  2496. + 
  2497.   
  2498.   int
  2499.   main (argc, argv, envp)
  2500. *************** main (argc, argv, envp)
  2501. *** 282,289 ****
  2502. --- 338,348 ----
  2503.     struct dep *goals = 0;
  2504.     register struct dep *lastgoal;
  2505.     struct dep *read_makefiles;
  2506. + #ifndef MSDOS            /* see above */
  2507.     char current_directory[MAXPATHLEN];
  2508. + #endif /* not MSDOS */
  2509.   
  2510. + 
  2511.     default_goal_file = 0;
  2512.     reading_filename = 0;
  2513.     reading_lineno_ptr = 0;
  2514. *************** main (argc, argv, envp)
  2515. *** 292,303 ****
  2516. --- 351,365 ----
  2517.     init_siglist ();
  2518.   #endif
  2519.   
  2520. + #ifndef MSDOS
  2521.     if (signal (SIGHUP, fatal_error_signal) == SIG_IGN)
  2522.       (void) signal (SIGHUP, SIG_IGN);
  2523.     if (signal (SIGQUIT, fatal_error_signal) == SIG_IGN)
  2524.       (void) signal (SIGQUIT, SIG_IGN);
  2525. + #endif /* ! MSDOS */
  2526.     if (signal (SIGINT, fatal_error_signal) == SIG_IGN)
  2527.       (void) signal (SIGINT, SIG_IGN);
  2528. + #ifndef MSDOS
  2529.     if (signal (SIGILL, fatal_error_signal) == SIG_IGN)
  2530.       (void) signal (SIGILL, SIG_IGN);
  2531.     if (signal (SIGTRAP, fatal_error_signal) == SIG_IGN)
  2532. *************** main (argc, argv, envp)
  2533. *** 304,309 ****
  2534. --- 366,372 ----
  2535.       (void) signal (SIGTRAP, SIG_IGN);
  2536.     if (signal (SIGIOT, fatal_error_signal) == SIG_IGN)
  2537.       (void) signal (SIGIOT, SIG_IGN);
  2538. + #endif /* ! MSDOS */
  2539.   #ifdef    SIGEMT
  2540.     if (signal (SIGEMT, fatal_error_signal) == SIG_IGN)
  2541.       (void) signal (SIGEMT, SIG_IGN);
  2542. *************** main (argc, argv, envp)
  2543. *** 314,319 ****
  2544. --- 377,383 ----
  2545.   #endif
  2546.     if (signal (SIGFPE, fatal_error_signal) == SIG_IGN)
  2547.       (void) signal (SIGFPE, SIG_IGN);
  2548. + #ifndef MSDOS
  2549.     if (signal (SIGBUS, fatal_error_signal) == SIG_IGN)
  2550.       (void) signal (SIGBUS, SIG_IGN);
  2551.     if (signal (SIGSEGV, fatal_error_signal) == SIG_IGN)
  2552. *************** main (argc, argv, envp)
  2553. *** 322,327 ****
  2554. --- 386,392 ----
  2555.       (void) signal (SIGSYS, SIG_IGN);
  2556.     if (signal (SIGTERM, fatal_error_signal) == SIG_IGN)
  2557.       (void) signal (SIGTERM, SIG_IGN);
  2558. + #endif /* ! MSDOS */
  2559.   #ifdef SIGXCPU
  2560.     if (signal (SIGXCPU, fatal_error_signal) == SIG_IGN)
  2561.       (void) signal (SIGXCPU, SIG_IGN);
  2562. *************** main (argc, argv, envp)
  2563. *** 333,339 ****
  2564.   
  2565.     /* Make sure stdout is line-buffered.  */
  2566.   
  2567. ! #if    defined(USGr3) || defined(HPUX) || defined(hpux)
  2568.     setvbuf (stdout, (char *) 0, _IOLBF, BUFSIZ);
  2569.   #else    /* Not USGr3 and not HPUX.  */
  2570.   #ifdef    USG
  2571. --- 398,404 ----
  2572.   
  2573.     /* Make sure stdout is line-buffered.  */
  2574.   
  2575. ! #if    defined(USGr3) || defined(HPUX) || defined(hpux) || defined (MSDOS)
  2576.     setvbuf (stdout, (char *) 0, _IOLBF, BUFSIZ);
  2577.   #else    /* Not USGr3 and not HPUX.  */
  2578.   #ifdef    USG
  2579. *************** main (argc, argv, envp)
  2580. *** 345,350 ****
  2581. --- 410,419 ----
  2582.   
  2583.     /* Figure out where this program lives.  */
  2584.   
  2585. + #ifdef MSDOS            /* cosmetics */
  2586. +   msdos_format_filename (argv[0]);
  2587. + #endif /* MSDOS */
  2588. + 
  2589.     if (argv[0] == 0)
  2590.       argv[0] = "";
  2591.     if (argv[0][0] == '\0')
  2592. *************** main (argc, argv, envp)
  2593. *** 366,372 ****
  2594. --- 435,445 ----
  2595.   #endif
  2596.     if (getwd (current_directory) == 0)
  2597.       {
  2598. + #ifdef MSDOS
  2599. +       error ("getwd: %s", msdos_format_filename (current_directory));
  2600. + #else /* not MSDOS */
  2601.         error ("getwd: %s", current_directory);
  2602. + #endif /* not MSDOS */
  2603.         current_directory[0] = '\0';
  2604.       }
  2605.   #ifdef    USG
  2606. *************** main (argc, argv, envp)
  2607. *** 470,477 ****
  2608. --- 543,555 ----
  2609.        Append the command-line variable definitions gathered above
  2610.        so sub-makes will get them as command-line definitions.  */
  2611.   
  2612. + #ifdef MSDOS
  2613. +   if (current_directory[0] != '\0' && argv[0] != 0
  2614. +   && argv[0][1] != ':' && argv[0][0] != '/' && index (argv[0], '/') != 0)
  2615. + #else /* not MSDOS */
  2616.     if (current_directory[0] != '\0'
  2617.         && argv[0] != 0 && argv[0][0] != '/' && index (argv[0], '/') != 0)
  2618. + #endif /* not MSDOS */
  2619.       argv[0] = concat (current_directory, "/", argv[0]);
  2620.   
  2621.     if (cmd_defs_idx > 0)
  2622. *************** main (argc, argv, envp)
  2623. *** 520,526 ****
  2624. --- 598,608 ----
  2625.           /* This makefile is standard input.  Since we may re-exec
  2626.              and thus re-read the makefiles, we read standard input
  2627.              into a temporary file and read from that.  */
  2628. + #ifdef MSDOS        /* Can't use $TMP, sice it may contain a `:'  */
  2629. +         static char name[] = "./GmXXXXXX";
  2630. + #else /* not MSDOS */
  2631.           static char name[] = "/tmp/GmXXXXXX";
  2632. + #endif /* not MSDOS */
  2633.           FILE *outfile;
  2634.   
  2635.           /* Free the storage allocated for "-".  */
  2636. *************** main (argc, argv, envp)
  2637. *** 562,572 ****
  2638. --- 644,656 ----
  2639.     /* Set up to handle children dying.  This must be done before
  2640.        reading in the makefiles so that `shell' function calls will work.  */
  2641.   
  2642. + #ifndef MSDOS
  2643.   #ifdef SIGCHLD
  2644.     (void) signal (SIGCHLD, child_handler);
  2645.   #else
  2646.     (void) signal (SIGCLD, child_handler);
  2647.   #endif
  2648. + #endif /* ! MSDOS */
  2649.   
  2650.     /* Install the default implicit rules.  */
  2651.   
  2652. *************** main (argc, argv, envp)
  2653. *** 824,832 ****
  2654. --- 908,921 ----
  2655.           sprintf (*p, "MAKELEVEL=%u", makelevel);
  2656.           break;
  2657.             }
  2658. + #ifdef MSDOS        /* MSC'c execve () will fail with our spawn(). */
  2659. +       exit (swap_and_spawnvpe (swapping_device
  2660. +         ? swapping_device->list[0] : NULL, argv[0], argv, environ));
  2661. + #else /* not MSDOS */
  2662.         exec_command (argv, environ,
  2663.               allocated_variable_expand ("$(PATH)"),
  2664.               allocated_variable_expand ("$(SHELL)"));
  2665. + #endif /* not MSDOS */
  2666.         /* NOTREACHED */
  2667.       }
  2668.       }
  2669. *************** print_version ()
  2670. *** 1235,1240 ****
  2671. --- 1324,1335 ----
  2672.   %sThere is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A\n\
  2673.   %sPARTICULAR PURPOSE.\n\n", precede, precede, precede, precede);
  2674.   
  2675. + #ifdef MSDOS
  2676. +   printf ("%sMS-DOS port (C) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>\n\
  2677. + %sthis is an alpha version, compiled %s.\n\n",
  2678. +       precede, precede, msdos_version_string);
  2679. + #endif /* MSDOS */
  2680. + 
  2681.     printed_version = 1;
  2682.   
  2683.     /* Flush stdout so the user doesn't have to wait to see the
  2684. *************** die (status)
  2685. *** 1289,1294 ****
  2686. --- 1384,1410 ----
  2687.       log_working_directory (0);
  2688.       }
  2689.   
  2690. + #ifdef MSDOS
  2691. +   if (directories != 0 && directories->idx > 0)
  2692. +     {
  2693. +       char bad;
  2694. +       if (current_directory[0] != '\0')
  2695. +     {
  2696. +       if (chdir (current_directory) < 0)
  2697. +         {
  2698. +           perror_with_name ("chdir", "");
  2699. +           bad = 1;
  2700. +         }
  2701. +       else
  2702. +         bad = 0;
  2703. +     }
  2704. +       else
  2705. +     bad = 1;
  2706. +       if (bad)
  2707. +     fatal ("Couldn't change back to original directory.");
  2708. +     }
  2709. + #endif / MSDOS */
  2710. + 
  2711.     exit (status);
  2712.   }
  2713.   
  2714. *************** log_working_directory (entering)
  2715. *** 1323,1331 ****
  2716. --- 1439,1454 ----
  2717.     block_children ();
  2718.   #endif
  2719.     if (getwd (pwdbuf) == 0)
  2720. + #ifdef MSDOS
  2721. +     printf ("an unknown directory (getwd: %s)\n",
  2722. +         msdos_format_filename (pwdbuf));
  2723. +   else
  2724. +     printf ("directory `%s'\n", msdos_format_filename (pwdbuf));
  2725. + #else /* not MSDOS */
  2726.       printf ("an unknown directory (getwd: %s)\n", pwdbuf);
  2727.     else
  2728.       printf ("directory `%s'\n", pwdbuf);
  2729. + #endif /* not MSDOS */
  2730.   #ifdef    USG
  2731.     unblock_children ();
  2732.   #endif
  2733. diff -cBdNp e:/gnu/make/gnu/make.h ./make.h
  2734. *** e:/gnu/make/gnu/make.h    Tue Jul 24 00:53:08 1990
  2735. --- ./make.h    Tue Jul 24 00:54:54 1990
  2736. *************** You should have received a copy of the G
  2737. *** 15,20 ****
  2738. --- 15,37 ----
  2739.   along with GNU Make; see the file COPYING.  If not, write to
  2740.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  2741.   
  2742. + /*
  2743. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  2744. +  *
  2745. +  * To this port, the same copying conditions apply as to the
  2746. +  * original release.
  2747. +  *
  2748. +  * IMPORTANT:
  2749. +  * This file is not identical to the original GNU release!
  2750. +  * You should have received this code as patch to the official
  2751. +  * GNU release.
  2752. +  *
  2753. +  * MORE IMPORTANT:
  2754. +  * This port comes with ABSOLUTELY NO WARRANTY.
  2755. +  *
  2756. +  * $Header: e:/gnu/make/RCS/make.h'v 3.58.0.2 90/07/17 03:32:52 tho Exp $
  2757. +  */
  2758. + 
  2759.   #include <signal.h>
  2760.   #include <stdio.h>
  2761.   
  2762. *************** the Free Software Foundation, 675 Mass A
  2763. *** 22,28 ****
  2764. --- 39,48 ----
  2765.   #include <sys/types.h>
  2766.   #endif
  2767.   
  2768. + 
  2769. + #ifndef MSDOS
  2770.   #include <sys/param.h>
  2771. + #endif /* not MSDOS */
  2772.   #ifndef MAXPATHLEN
  2773.   #define MAXPATHLEN 1024
  2774.   #endif    /* No MAXPATHLEN.  */
  2775. *************** extern void bzero (), bcopy ();
  2776. *** 53,59 ****
  2777. --- 73,83 ----
  2778.   #ifdef    sparc
  2779.   #include <alloca.h>
  2780.   #else    /* Not sparc.  */
  2781. + #ifdef MSDOS
  2782. + #include <malloc.h>
  2783. + #else /* not MSDOS */
  2784.   extern char *alloca ();
  2785. + #endif /* not MSDOS  */
  2786.   #endif    /* sparc.  */
  2787.   #endif    /* GCC.  */
  2788.   
  2789. *************** extern char *alloca ();
  2790. *** 76,82 ****
  2791. --- 100,133 ----
  2792.   #define    ENUM_BITFIELD(bits)
  2793.   #endif
  2794.   
  2795. + #ifdef MSDOS
  2796. + extern  void die (int status);
  2797. + #else /* not MSDOS */
  2798.   extern void die ();
  2799. + #endif /* not MSDOS */
  2800. + 
  2801. + /*     misc.c */
  2802. + #ifdef MSDOS
  2803. + extern  char *concat (char *s1, char *s2, char *s3);
  2804. + extern  char *end_of_token (char *s);
  2805. + extern  char *find_next_token (char **ptr, unsigned int *lengthptr);
  2806. + extern  char *lindex (char *s, char *limit, int c);
  2807. + extern  char *next_token (char *s);
  2808. + extern  char *savestring (char *str, unsigned int length);
  2809. + extern  char *sindex (char *big, unsigned int blen, char *small,
  2810. +               unsigned int slen);
  2811. + extern  char *xmalloc (unsigned int size);
  2812. + extern  char *xrealloc (char *ptr, unsigned int size);
  2813. + extern  int alpha_compare (char **s1, char **s2);
  2814. + extern  struct dep *copy_dep_chain (struct dep *d);
  2815. + extern  void collapse_continuations (char *line);
  2816. + extern  void collapse_line (char *line);
  2817. + extern  void error (char *s1, ...);
  2818. + extern  void fatal (char *s1, ...);
  2819. + extern  void perror_with_name (char *str, char *name);
  2820. + extern  void pfatal_with_name (char *name);
  2821. + extern  void print_spaces (unsigned int n);
  2822. + #else /* not MSDOS */
  2823.   extern void fatal (), error ();
  2824.   extern void pfatal_with_name (), perror_with_name ();
  2825.   extern char *savestring (), *concat ();
  2826. *************** extern int alpha_compare ();
  2827. *** 88,121 ****
  2828.   extern void print_spaces ();
  2829.   extern struct dep *copy_dep_chain ();
  2830.   extern char *find_percent ();
  2831.   
  2832.   #ifndef    NO_ARCHIVES
  2833.   extern int ar_name ();
  2834.   extern int ar_touch ();
  2835.   extern time_t ar_member_date ();
  2836.   #endif
  2837.   
  2838.   extern void dir_load ();
  2839.   extern int dir_file_exists_p (), file_exists_p (), file_impossible_p ();
  2840.   extern void file_impossible ();
  2841.   extern char *dir_name ();
  2842.   
  2843.   extern void set_default_suffixes (), install_default_implicit_rules ();
  2844.   extern void convert_to_pattern (), count_implicit_rule_limits ();
  2845.   extern void create_pattern_rule ();
  2846.   
  2847.   extern void build_vpath_lists (), construct_vpath_list ();
  2848.   extern int vpath_search ();
  2849. ! 
  2850.   extern void construct_include_path ();
  2851.   
  2852.   extern int update_goal_chain ();
  2853.   extern void notice_finished_file ();
  2854. ! 
  2855.   
  2856.   extern int glob_pattern_p ();
  2857.   extern char **glob_filename ();
  2858.   
  2859.   #ifndef    USG
  2860.   extern int sigsetmask ();
  2861.   #endif
  2862. --- 139,248 ----
  2863.   extern void print_spaces ();
  2864.   extern struct dep *copy_dep_chain ();
  2865.   extern char *find_percent ();
  2866. + #endif /* not MSDOS */
  2867.   
  2868. + /* ar.c */
  2869.   #ifndef    NO_ARCHIVES
  2870. + #ifdef MSDOS
  2871. + extern  int ar_name (char *name);
  2872. + extern  int ar_touch (char *name);
  2873. + extern  long ar_member_date (char *name);
  2874. + #else /* not MSDOS */
  2875.   extern int ar_name ();
  2876.   extern int ar_touch ();
  2877.   extern time_t ar_member_date ();
  2878. + #endif /* not MSDOS */
  2879.   #endif
  2880.   
  2881. + /* dir.c */
  2882. + #ifdef MSDOS
  2883. + extern  char *dir_name (char *dir);
  2884. + extern  int dir_file_exists_p (char *dirname, char *filename);
  2885. + extern  int file_exists_p (char *name);
  2886. + extern  int file_impossible_p (char *filename);
  2887. + extern  void file_impossible (char *filename);
  2888. + extern  void print_dir_data_base (void);
  2889. + #else /* not MSDOS */
  2890.   extern void dir_load ();
  2891.   extern int dir_file_exists_p (), file_exists_p (), file_impossible_p ();
  2892.   extern void file_impossible ();
  2893.   extern char *dir_name ();
  2894. + #endif /* not MSDOS */
  2895.   
  2896. + /* default.c */
  2897. + #ifdef MSDOS
  2898. + extern  void install_default_implicit_rules (void);
  2899. + extern  void set_default_suffixes (void);
  2900. + #else /* not MSDOS */
  2901.   extern void set_default_suffixes (), install_default_implicit_rules ();
  2902. + #endif /* not MSDOS */
  2903. + 
  2904. + /* rule.c */
  2905. + #ifdef MSDOS
  2906. + extern  void convert_to_pattern (void);
  2907. + extern  void count_implicit_rule_limits (void);
  2908. + extern  void create_pattern_rule (char **targets, char **target_percents,
  2909. +                   int terminal, struct dep *deps,
  2910. +                   struct commands *commands, int override);
  2911. + extern  void print_rule_data_base (void);
  2912. + #else /* not MSDOS */
  2913.   extern void convert_to_pattern (), count_implicit_rule_limits ();
  2914.   extern void create_pattern_rule ();
  2915. + #endif /* not MSDOS */
  2916.   
  2917. + /*    vpath.c */
  2918. + #ifdef MSDOS
  2919. + extern  int vpath_search (char **file);
  2920. + extern  void build_vpath_lists (void);
  2921. + extern  void construct_vpath_list (char *pattern, char *dirpath);
  2922. + extern  void print_vpath_data_base (void);
  2923. + #else /* not MSDOS */
  2924.   extern void build_vpath_lists (), construct_vpath_list ();
  2925.   extern int vpath_search ();
  2926. ! #endif /* not MSDOS */
  2927. !   
  2928. ! /*     read.c */
  2929. ! #ifdef MSDOS
  2930. ! extern  char *find_percent (char *pattern);
  2931. ! extern  struct dep *read_all_makefiles (char **makefiles);
  2932. ! extern  void uniquize_deps (struct dep *chain);
  2933. ! extern  void construct_include_path (char **arg_dirs);
  2934. ! #else /* not MSDOS */
  2935.   extern void construct_include_path ();
  2936. + #endif /* not MSDOS */
  2937.   
  2938. + /*   remake.c */
  2939. + #ifdef MSDOS
  2940. + extern  int update_goal_chain (struct dep *goals, int makefiles);
  2941. + extern  void notice_finished_file (struct file *file);
  2942. + extern  time_t f_mtime (struct file *file, int search);
  2943. + extern  int remote_kill (int id, int sig);
  2944. + extern  int remote_status (int *exit_code_ptr, int *signal_ptr,
  2945. +                int *coredump_ptr, int block);
  2946. + extern  int start_remote_job (char **argv, int stdin_fd, int *is_remote,
  2947. +                   int *id_ptr, int *used_stdin);
  2948. + extern  int start_remote_job_p (void);
  2949. + extern  void block_remote_children (void);
  2950. + extern  void unblock_remote_children (void);
  2951. + #else /* not MSDOS */
  2952.   extern int update_goal_chain ();
  2953.   extern void notice_finished_file ();
  2954. ! #endif /* not MSDOS */
  2955.   
  2956. + /* glob.c */
  2957. + #ifdef MSDOS
  2958. + extern  char **glob_filename (char *pathname);
  2959. + extern  char **glob_vector (char *pat, char *dir);
  2960. + extern  int glob_match (char *pattern, char *text, int dot_special);
  2961. + extern  int glob_pattern_p (char *pattern);
  2962. + #else /* not MSDOS */
  2963.   extern int glob_pattern_p ();
  2964.   extern char **glob_filename ();
  2965. + #endif /* not MSDOS */
  2966.   
  2967. + #ifdef MSDOS
  2968. + #include <stdlib.h>
  2969. + #else /* not MSDOS */
  2970.   #ifndef    USG
  2971.   extern int sigsetmask ();
  2972.   #endif
  2973. *************** extern void qsort ();
  2974. *** 127,134 ****
  2975. --- 254,273 ----
  2976.   extern int atoi ();
  2977.   extern int pipe (), close (), open (), lseek (), read ();
  2978.   extern char *ctime ();
  2979. + #endif /* not MSDOS */
  2980. + 
  2981. + #ifdef MSDOS
  2982. + extern  char **construct_command_argv (char *line, struct file *file);
  2983. + extern  void wait_for_children (unsigned int n, int err);
  2984. + extern  void wait_to_start_job (void);
  2985. + extern  void init_siglist (void);
  2986. + extern  void print_file_variables (struct file *file);
  2987. + extern  int try_implicit_rule (struct file *file, unsigned int depth);
  2988. + #endif /* MSDOS */
  2989.   
  2990. + #ifndef MSDOS            /* <stdlib.h> */
  2991.   extern char **environ;
  2992. + #endif /* not MSDOS */
  2993.   
  2994.   #ifdef    USG
  2995.   extern char *getcwd ();
  2996. diff -cBdNp e:/gnu/make/gnu/makefile ./makefile
  2997. *** e:/gnu/make/gnu/makefile    Tue Jul 24 00:56:17 1990
  2998. --- ./makefile    Tue Jul 24 00:55:54 1990
  2999. ***************
  3000. *** 0 ****
  3001. --- 1,150 ----
  3002. + # Copyright (C) 1988, 1989 Free Software Foundation, Inc.
  3003. + # This file is part of GNU Make.
  3004. + # 
  3005. + # GNU Make is free software; you can redistribute it and/or modify
  3006. + # it under the terms of the GNU General Public License as published by
  3007. + # the Free Software Foundation; either version 1, or (at your option)
  3008. + # any later version.
  3009. + #
  3010. + # GNU Make is distributed in the hope that it will be useful,
  3011. + # but WITHOUT ANY WARRANTY; without even the implied warranty of
  3012. + # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  3013. + # GNU General Public License for more details.
  3014. + # 
  3015. + # You should have received a copy of the GNU General Public License
  3016. + # along with GNU Make; see the file COPYING.  If not, write to
  3017. + # the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  3018. + 
  3019. + # MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  3020. + #
  3021. + # To this port, the same copying conditions apply as to the
  3022. + # original release.
  3023. + #
  3024. + # IMPORTANT:
  3025. + # This file is not identical to the original GNU release!
  3026. + # You should have received this code as patch to the official
  3027. + # GNU release.
  3028. + #
  3029. + # MORE IMPORTANT:
  3030. + # This port comes with ABSOLUTELY NO WARRANTY.
  3031. + #
  3032. + # $Header: e:/gnu/make/RCS/makefile.'v 3.58.0.9 90/07/23 23:17:36 tho Exp $
  3033. + 
  3034. + #
  3035. + #    Makefile for GNU Make
  3036. + #
  3037. + 
  3038. + BINDIR    = c:/bin
  3039. + 
  3040. + #BUILD = debug
  3041. + BUILD = production
  3042. + 
  3043. + ifeq ($(BUILD),debug)
  3044. + 
  3045. + CFLAGS    = $(defines) -FPa -AL -Od -Zi -W4 -DSTDC_HEADERS
  3046. + CRIPPLED_CFLAGS = $(CFLAGS)
  3047. + LDFLAGS = /st:0x8000/map/co
  3048. + 
  3049. + else
  3050. + 
  3051. + CFLAGS    = $(defines) -FPa -AL -Ox -W4 -DSTDC_HEADERS
  3052. + CRIPPLED_CFLAGS = $(defines) -FPa -AL -Od -W4 -DSTDC_HEADERS
  3053. + LDFLAGS = /st:0x8000/map/e
  3054. + 
  3055. + endif
  3056. + 
  3057. + defines = -DUSG -DNO_LDAV -DNO_FLOAT
  3058. + 
  3059. + 
  3060. + INSTALL    = cp
  3061. + 
  3062. + # Any extra object files your system needs.
  3063. + extras    = msd_dir.obj
  3064. + swapobj    = swap.obj spawn.obj
  3065. + swapsrc    = swap.c spawn.c
  3066. + 
  3067. + # If you don't want archive support, comment these out.
  3068. + ARCHIVES = ar.obj zipscan.obj
  3069. + ARCHIVES_SRC = ar.c zipscan.c
  3070. + 
  3071. + objs  = $(swapobj) glob.obj commands.obj job.obj dir.obj file.obj load.obj \
  3072. +         misc.obj main.obj read.obj remake.obj remote.obj rule.obj \
  3073. +         implicit.obj default.obj variable.obj expand.obj function.obj \
  3074. +         vpath.obj $(ARCHIVES) $(extras)
  3075. + srcs  = $(swapsrc) glob.c commands.c job.c dir.c file.c load.c misc.c \
  3076. +         main.c read.c remake.c remote.c rule.c implicit.c default.c \
  3077. +         variable.c expand.c function.c vpath.c version.c $(ARCHIVES_SRC)
  3078. + incs  =    commands.h dep.h file.h job.h make.h rule.h variable.h msd_dir.h
  3079. + 
  3080. + DISK = b:
  3081. + ZIPFILE    = gnumake.zip
  3082. + RCSFILES = $(patsubst %, RCS/%'v, $(srcs) $(incs)) RCS/makefile.'v
  3083. + MISC    = projects ChangeLog makepat mkpatch
  3084. + 
  3085. + all: gnumake.exe
  3086. + 
  3087. + gnumake.exe: $(objs) version.c
  3088. +     $(CC) $(CFLAGS) -c version.c
  3089. +     $(LINK) $(LDFLAGS) $(objs) version, $@;
  3090. + 
  3091. + # Well, here optimization is dangerous... (inline assembler etc.)
  3092. + swap.obj: swap.c
  3093. +     $(CC) $(CRIPPLED_CFLAGS) -c $*.c
  3094. + 
  3095. + # MSC 6.0 bombs with `-Ox'
  3096. + main.obj : main.c make.h commands.h dep.h file.h variable.h job.h
  3097. +     $(CC) $(CRIPPLED_CFLAGS) -c $*.c
  3098. + 
  3099. + # debugging
  3100. + swap.exe: swap.c spawn.c
  3101. +     $(CC) $(CRIPPLED_CFLAGS) -DTEST -Zi -Fe$@ swap.c spawn.c
  3102. +     rm -f swap.obj spawn.obj
  3103. + 
  3104. + tags: $(srcs) $(srcs2) $(srcs3) $(incs)
  3105. +     etags  *.c *.h
  3106. + 
  3107. + install: $(BINDIR)/make.exe
  3108. + 
  3109. + $(BINDIR)/make.exe:gnumake.exe
  3110. +     $(INSTALL) $< $@
  3111. + 
  3112. + clean:
  3113. +     rm -f *.obj *.map tags errs
  3114. +     rcsclean *.c *.h makefile
  3115. + 
  3116. + zip: $(ZIPFILE)
  3117. + 
  3118. + disk: $(DISK)/$(ZIPFILE)
  3119. + 
  3120. + $(ZIPFILE): $(RCSFILES) $(MISC)
  3121. +     pkzip -frp $@
  3122. + 
  3123. + $(DISK)/$(ZIPFILE): $(ZIPFILE)
  3124. +     cp $< $@
  3125. +     pkunzip -t $@ | grep -vw OK
  3126. + 
  3127. + # Dependencies:
  3128. + 
  3129. + ar.obj: make.h file.h 
  3130. + commands.obj: make.h dep.h commands.h file.h variable.h job.h
  3131. + default.obj: make.h rule.h dep.h file.h commands.h variable.h
  3132. + dir.obj: make.h msd_dir.h
  3133. + expand.obj: make.h commands.h file.h variable.h
  3134. + file.obj: make.h commands.h dep.h file.h variable.h
  3135. + function.obj: make.h variable.h dep.h commands.h job.h
  3136. + glob.obj: msd_dir.h
  3137. + implicit.obj: make.h rule.h dep.h file.h
  3138. + job.obj: make.h commands.h job.h file.h variable.h
  3139. + load.obj: make.h commands.h job.h
  3140. + misc.obj: make.h dep.h
  3141. + msd_dir.obj: msd_dir.h
  3142. + read.obj: make.h commands.h dep.h file.h variable.h
  3143. + remake.obj: make.h commands.h job.h dep.h file.h
  3144. + remote.obj: remote-s.c make.h commands.h
  3145. + rule.obj: make.h commands.h dep.h file.h variable.h rule.h
  3146. + variable.obj: make.h commands.h variable.h dep.h file.h
  3147. + vpath.obj: make.h file.h variable.h
  3148. + 
  3149. + 
  3150. + 
  3151. + 
  3152. diff -cBdNp e:/gnu/make/gnu/misc.c ./misc.c
  3153. *** e:/gnu/make/gnu/misc.c    Tue Jul 24 00:53:10 1990
  3154. --- ./misc.c    Tue Jul 24 00:54:56 1990
  3155. *************** You should have received a copy of the G
  3156. *** 15,20 ****
  3157. --- 15,37 ----
  3158.   along with GNU Make; see the file COPYING.  If not, write to
  3159.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  3160.   
  3161. + /*
  3162. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  3163. +  *
  3164. +  * To this port, the same copying conditions apply as to the
  3165. +  * original release.
  3166. +  *
  3167. +  * IMPORTANT:
  3168. +  * This file is not identical to the original GNU release!
  3169. +  * You should have received this code as patch to the official
  3170. +  * GNU release.
  3171. +  *
  3172. +  * MORE IMPORTANT:
  3173. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3174. +  *
  3175. +  * $Header: e:/gnu/make/RCS/misc.c'v 3.58.0.2 90/07/18 23:08:20 tho Exp $
  3176. +  */
  3177. + 
  3178.   #include "make.h"
  3179.   #include "dep.h"
  3180.   
  3181. *************** void
  3182. *** 237,244 ****
  3183. --- 254,263 ----
  3184.   perror_with_name (str, name)
  3185.        char *str, *name;
  3186.   {
  3187. + #ifndef MSDOS
  3188.     extern int errno, sys_nerr;
  3189.     extern char *sys_errlist[];
  3190. + #endif /* not MSDOS */
  3191.   
  3192.     if (errno < sys_nerr)
  3193.       error ("%s%s: %s", str, name, sys_errlist[errno]);
  3194. *************** void
  3195. *** 252,259 ****
  3196. --- 271,280 ----
  3197.   pfatal_with_name (name)
  3198.        char *name;
  3199.   {
  3200. + #ifndef MSDOS
  3201.     extern int errno, sys_nerr;
  3202.     extern char *sys_errlist[];
  3203. + #endif /* not MSDOS */
  3204.   
  3205.     if (errno < sys_nerr)
  3206.       fatal ("%s: %s", name, sys_errlist[errno]);
  3207. *************** pfatal_with_name (name)
  3208. *** 264,270 ****
  3209. --- 285,295 ----
  3210.   }
  3211.   
  3212.   /* Like malloc but get fatal error if memory is exhausted.  */
  3213. + #ifdef MSDOS
  3214. + #include <malloc.h>
  3215. + #else
  3216.   extern char *malloc (), *realloc ();
  3217. + #endif /* ! MSDOS */
  3218.   
  3219.   char *
  3220.   xmalloc (size)
  3221. *************** dep_name (dep)
  3222. *** 442,444 ****
  3223. --- 467,487 ----
  3224.     return dep->name == 0 ? dep->file->name : dep->name;
  3225.   }
  3226.   #endif
  3227. + 
  3228. + 
  3229. + #ifdef MSDOS
  3230. + 
  3231. + #include <ctype.h>
  3232. + 
  3233. + /* Filenames returned by MS-DOS system calls are formatted very ugly:
  3234. +    all uppercase and backslashes.  Perform some cosmetics.  */
  3235. + 
  3236. + char *
  3237. + msdos_format_filename (char *name)
  3238. + {
  3239. +   char *p = name;
  3240. +   while (*p = (*p == '\\') ? '/' : tolower (*p))
  3241. +     p++;
  3242. +   return name;
  3243. + }
  3244. + #endif /* MSDOS */
  3245. diff -cBdNp e:/gnu/make/gnu/msd_dir.c ./msd_dir.c
  3246. *** e:/gnu/make/gnu/msd_dir.c    Tue Jul 24 00:56:18 1990
  3247. --- ./msd_dir.c    Tue Jul 24 00:55:40 1990
  3248. ***************
  3249. *** 0 ****
  3250. --- 1,232 ----
  3251. + /*  msd_dir.c - portable directory routines
  3252. +     Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  3253. + 
  3254. +     This program is free software; you can redistribute it and/or modify
  3255. +     it under the terms of the GNU General Public License as published by
  3256. +     the Free Software Foundation; either version 1, or (at your option)
  3257. +     any later version.
  3258. + 
  3259. +     This program is distributed in the hope that it will be useful,
  3260. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  3261. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  3262. +     GNU General Public License for more details.
  3263. + 
  3264. +     You should have received a copy of the GNU General Public License
  3265. +     along with this program; if not, write to the Free Software
  3266. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  3267. + 
  3268. +     IMPORTANT:
  3269. + 
  3270. +     This code is not an official part of the GNU project and the
  3271. +     author is not affiliated to the Free Software Foundation.
  3272. +     He just likes their code and spirit.
  3273. + 
  3274. +     $Header: e:/gnu/make/RCS/msd_dir.c'v 2.0 90/06/29 00:35:36 tho Stable $
  3275. +  */
  3276. + 
  3277. + /* Everything non trivial in this code is from: @(#)msd_dir.c 1.4
  3278. +    87/11/06.  A public domain implementation of BSD directory routines
  3279. +    for MS-DOS.  Written by Michael Rendell ({uunet,utai}michael@garfield),
  3280. +    August 1897 */
  3281. + 
  3282. + 
  3283. + #include <stdio.h>
  3284. + #include <stdlib.h>
  3285. + #include <string.h>
  3286. + #include <sys/types.h>
  3287. + #include <sys/stat.h>
  3288. + 
  3289. + #include <dos.h>
  3290. + 
  3291. + #include "msd_dir.h"
  3292. + 
  3293. + static void free_dircontents (struct _dircontents *);
  3294. + 
  3295. + /* find ALL files! */
  3296. + #define ATTRIBUTES    (_A_RDONLY | _A_HIDDEN | _A_SYSTEM | _A_SUBDIR)
  3297. + 
  3298. + 
  3299. + 
  3300. + DIR *
  3301. + opendir (char *name)
  3302. + {
  3303. +   struct find_t find_buf;
  3304. +   DIR *dirp;
  3305. +   struct _dircontents *dp;
  3306. +   char name_buf[_MAX_PATH + 1];
  3307. +   char *slash = "";
  3308. + 
  3309. +   if (!name)
  3310. +     name = "";
  3311. +   else if (*name)
  3312. +     {
  3313. +       char *s;
  3314. +       int l = strlen (name);
  3315. + 
  3316. +       s = name + l - 1;
  3317. +       if ( !(l == 2 && *s == ':') && *s != '\\' && *s != '/')
  3318. +     slash = "/";    /* save to insert slash between path and "*.*" */
  3319. +     }
  3320. + 
  3321. +   strcat (strcat (strcpy (name_buf, name), slash), "*.*");
  3322. + 
  3323. +   dirp = (DIR *) malloc (sizeof (DIR));
  3324. +   if (dirp == (DIR *)0)
  3325. +     return (DIR *)0;
  3326. + 
  3327. +   dirp->dd_loc = 0;
  3328. +   dirp->dd_contents = dirp->dd_cp = (struct _dircontents *) 0;
  3329. + 
  3330. +   if (_dos_findfirst (name_buf, ATTRIBUTES, &find_buf))
  3331. +     {
  3332. +       free (dirp);
  3333. +       return (DIR *)0;
  3334. +     }
  3335. + 
  3336. +   do
  3337. +     {
  3338. +       dp = (struct _dircontents *) malloc (sizeof (struct _dircontents));
  3339. +       if (dp == (struct _dircontents *)0)
  3340. +     {
  3341. +       free_dircontents (dirp->dd_contents);
  3342. +       return (DIR *)0;
  3343. +     }
  3344. + 
  3345. +       dp->_d_entry = malloc (strlen (find_buf.name) + 1);
  3346. +       if (dp->_d_entry == (char *)0)
  3347. +     {
  3348. +       free (dp);
  3349. +       free_dircontents (dirp->dd_contents);
  3350. +       return (DIR *)0;
  3351. +     }
  3352. + 
  3353. +       if (dirp->dd_contents)
  3354. +     dirp->dd_cp = dirp->dd_cp->_d_next = dp;
  3355. +       else
  3356. +     dirp->dd_contents = dirp->dd_cp = dp;
  3357. + 
  3358. +       strcpy (dp->_d_entry, find_buf.name);
  3359. + 
  3360. +       dp->_d_next = (struct _dircontents *)0;
  3361. + 
  3362. +     } while (! _dos_findnext (&find_buf));
  3363. + 
  3364. +   dirp->dd_cp = dirp->dd_contents;
  3365. + 
  3366. +   return dirp;
  3367. + }
  3368. + 
  3369. + 
  3370. + void
  3371. + closedir (DIR *dirp)
  3372. + {
  3373. +   free_dircontents (dirp->dd_contents);
  3374. +   free ((char *) dirp);
  3375. + }
  3376. + 
  3377. + 
  3378. + struct direct *
  3379. + readdir (DIR *dirp)
  3380. + {
  3381. +   static struct direct dp;
  3382. + 
  3383. +   if (dirp->dd_cp == (struct _dircontents *)0)
  3384. +     return (struct direct *)0;
  3385. +   dp.d_namlen = dp.d_reclen =
  3386. +     strlen (strcpy (dp.d_name, dirp->dd_cp->_d_entry));
  3387. +   strlwr (dp.d_name);        /* JF */
  3388. +   dp.d_ino = 0;
  3389. +   dirp->dd_cp = dirp->dd_cp->_d_next;
  3390. +   dirp->dd_loc++;
  3391. + 
  3392. +   return &dp;
  3393. + }
  3394. + 
  3395. + 
  3396. + void
  3397. + seekdir (DIR *dirp, long off)
  3398. + {
  3399. +   long i = off;
  3400. +   struct _dircontents *dp;
  3401. + 
  3402. +   if (off < 0)
  3403. +     return;
  3404. +   for (dp = dirp->dd_contents; --i >= 0 && dp; dp = dp->_d_next)
  3405. +     ;
  3406. +   dirp->dd_loc = off - (i + 1);
  3407. +   dirp->dd_cp = dp;
  3408. + }
  3409. + 
  3410. + 
  3411. + long
  3412. + telldir (DIR *dirp)
  3413. + {
  3414. +   return dirp->dd_loc;
  3415. + }
  3416. + 
  3417. + 
  3418. + /* Garbage collection */
  3419. + 
  3420. + static void
  3421. + free_dircontents (struct _dircontents *dp)
  3422. + {
  3423. +   struct _dircontents *odp;
  3424. + 
  3425. +   while (dp)
  3426. +     {
  3427. +       if (dp->_d_entry)
  3428. +     free (dp->_d_entry);
  3429. +       dp = (odp = dp)->_d_next;
  3430. +       free (odp);
  3431. +     }
  3432. + }
  3433. + 
  3434. + 
  3435. + #ifdef TEST
  3436. + 
  3437. + void main (int argc, char *argv[]);
  3438. + 
  3439. + void
  3440. + main (int argc, char *argv[])
  3441. + {
  3442. +   static DIR *directory;
  3443. +   struct direct *entry = (struct direct *)0;
  3444. + 
  3445. +   char *name = "";
  3446. + 
  3447. +   if (argc > 1)
  3448. +     name = argv[1];
  3449. + 
  3450. +   directory = opendir (name);
  3451. + 
  3452. +   if (!directory)
  3453. +     {
  3454. +       fprintf (stderr, "can't open directory `%s'.\n", name);
  3455. +       exit (2);
  3456. +     }
  3457. + 
  3458. +   while (entry = readdir (directory))
  3459. +     printf ("> %s\n", entry->d_name);
  3460. + 
  3461. +   printf ("done.\n");
  3462. + }
  3463. + 
  3464. + #endif /* TEST */
  3465. + 
  3466. + 
  3467. + /* 
  3468. +  * Local Variables:
  3469. +  * mode:C
  3470. +  * ChangeLog:ChangeLog
  3471. +  * compile-command:make
  3472. +  * End:
  3473. +  */
  3474. + 
  3475. + 
  3476. + /* 
  3477. +  * Local Variables:
  3478. +  * mode:C
  3479. +  * ChangeLog:ChangeLog
  3480. +  * compile-command:make
  3481. +  * End:
  3482. +  */
  3483. diff -cBdNp e:/gnu/make/gnu/msd_dir.h ./msd_dir.h
  3484. *** e:/gnu/make/gnu/msd_dir.h    Tue Jul 24 00:56:18 1990
  3485. --- ./msd_dir.h    Tue Jul 24 00:55:42 1990
  3486. ***************
  3487. *** 0 ****
  3488. --- 1,63 ----
  3489. + /*  msd_dir.c - portable directory routines
  3490. +     Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  3491. + 
  3492. +     This program is free software; you can redistribute it and/or modify
  3493. +     it under the terms of the GNU General Public License as published by
  3494. +     the Free Software Foundation; either version 1, or (at your option)
  3495. +     any later version.
  3496. + 
  3497. +     This program is distributed in the hope that it will be useful,
  3498. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  3499. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  3500. +     GNU General Public License for more details.
  3501. + 
  3502. +     You should have received a copy of the GNU General Public License
  3503. +     along with this program; if not, write to the Free Software
  3504. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  3505. + 
  3506. +     IMPORTANT:
  3507. + 
  3508. +     This code is not an official part of the GNU project and the
  3509. +     author is not affiliated to the Free Software Foundation.
  3510. +     He just likes their code and spirit.
  3511. + 
  3512. +     $Header: e:/gnu/make/RCS/msd_dir.h'v 2.0 90/06/29 00:35:36 tho Stable $
  3513. +  */
  3514. + 
  3515. + /* Everything non trivial in this code is taken from: @(#)msd_dir.c 1.4
  3516. +    87/11/06.  A public domain implementation of BSD directory routines
  3517. +    for MS-DOS.  Written by Michael Rendell ({uunet,utai}michael@garfield),
  3518. +    August 1897 */
  3519. + 
  3520. + 
  3521. + #define    rewinddir(dirp)    seekdir(dirp, 0L)
  3522. + 
  3523. + #define    MAXNAMLEN    12
  3524. + 
  3525. + struct direct
  3526. + {
  3527. +   ino_t d_ino;            /* a bit of a farce */
  3528. +   int d_reclen;            /* more farce */
  3529. +   int d_namlen;            /* length of d_name */
  3530. +   char d_name[MAXNAMLEN + 1];    /* garentee null termination */
  3531. + };
  3532. + 
  3533. + struct _dircontents
  3534. + {
  3535. +   char *_d_entry;
  3536. +   struct _dircontents *_d_next;
  3537. + };
  3538. + 
  3539. + typedef struct _dirdesc
  3540. + {
  3541. +   int dd_id;            /* uniquely identify each open directory */
  3542. +   long dd_loc;            /* where we are in directory entry is this */
  3543. +   struct _dircontents *dd_contents;    /* pointer to contents of dir */
  3544. +   struct _dircontents *dd_cp;    /* pointer to current position */
  3545. + } DIR;
  3546. + 
  3547. + extern void seekdir (DIR *, long);
  3548. + extern long telldir (DIR *);
  3549. + extern DIR *opendir (char *);
  3550. + extern void closedir (DIR *);
  3551. + extern struct direct *readdir (DIR *);
  3552. diff -cBdNp e:/gnu/make/gnu/read.c ./read.c
  3553. *** e:/gnu/make/gnu/read.c    Tue Jul 24 00:53:14 1990
  3554. --- ./read.c    Tue Jul 24 00:55:08 1990
  3555. *************** You should have received a copy of the G
  3556. *** 15,20 ****
  3557. --- 15,37 ----
  3558.   along with GNU Make; see the file COPYING.  If not, write to
  3559.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  3560.   
  3561. + /*
  3562. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  3563. +  *
  3564. +  * To this port, the same copying conditions apply as to the
  3565. +  * original release.
  3566. +  *
  3567. +  * IMPORTANT:
  3568. +  * This file is not identical to the original GNU release!
  3569. +  * You should have received this code as patch to the official
  3570. +  * GNU release.
  3571. +  *
  3572. +  * MORE IMPORTANT:
  3573. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3574. +  *
  3575. +  * $Header: e:/gnu/make/RCS/read.c'v 3.58.0.3 90/07/23 22:52:53 tho Exp $
  3576. +  */
  3577. + 
  3578.   #include "make.h"
  3579.   #include "commands.h"
  3580.   #include "dep.h"
  3581. *************** the Free Software Foundation, 675 Mass A
  3582. *** 21,35 ****
  3583.   #include "file.h"
  3584.   #include "variable.h"
  3585.   
  3586.   #include <pwd.h>
  3587.   struct passwd *getpwnam ();
  3588. ! 
  3589. ! 
  3590.   static void read_makefile ();
  3591.   static unsigned int readline (), do_define ();
  3592.   static int conditional_line ();
  3593.   static void record_files ();
  3594.   static char *find_semicolon ();
  3595.   
  3596.   
  3597.   /* A `struct linebuffer' is a structure which holds a line of text.
  3598. --- 38,70 ----
  3599.   #include "file.h"
  3600.   #include "variable.h"
  3601.   
  3602. + #ifndef MSDOS
  3603.   #include <pwd.h>
  3604.   struct passwd *getpwnam ();
  3605. ! #endif /* not MSDOS */
  3606. !   
  3607. ! #ifdef MSDOS
  3608. ! #include <ctype.h>
  3609. ! static  void read_makefile (char *filename, int type);
  3610. ! static  unsigned int readline (struct linebuffer *linebuffer, FILE *stream,
  3611. !                    char *filename);
  3612. ! static  unsigned int do_define (char *name, unsigned int namelen,
  3613. !         enum variable_origin origin, unsigned int lineno,
  3614. !         FILE *infile, char *filename);
  3615. ! static  int conditional_line (char *line, char *filename, unsigned int lineno);
  3616. ! static  void record_files (struct nameseq *filenames, char *pattern,
  3617. !         char *pattern_percent, struct dep *deps,
  3618. !         unsigned int commands_started, char *commands,
  3619. !         unsigned int commands_idx, int two_colon, char *filename,
  3620. !         unsigned int lineno, int set_default);
  3621. ! static char *find_semicolon (char *string);
  3622. ! #else /* not MSDOS */
  3623.   static void read_makefile ();
  3624.   static unsigned int readline (), do_define ();
  3625.   static int conditional_line ();
  3626.   static void record_files ();
  3627.   static char *find_semicolon ();
  3628. + #endif /* not MSDOS */
  3629.   
  3630.   
  3631.   /* A `struct linebuffer' is a structure which holds a line of text.
  3632. *************** read_all_makefiles (makefiles)
  3633. *** 149,155 ****
  3634. --- 184,194 ----
  3635.     if (num_makefiles == 0)
  3636.       {
  3637.         static char *default_makefiles[] =
  3638. + #ifdef MSDOS
  3639. +     { "makefile.gnu", "makefile", 0 };
  3640. + #else /* not MSDOS */
  3641.       { "GNUmakefile", "makefile", "Makefile", 0 };
  3642. + #endif /* not MSDOS */
  3643.         register char **p = default_makefiles;
  3644.         while (*p != 0 && !file_exists_p (*p))
  3645.       ++p;
  3646. *************** read_makefile (filename, type)
  3647. *** 493,499 ****
  3648. --- 532,542 ----
  3649.   
  3650.         /* Is this a static pattern rule: `target: %targ: %dep; ...'?  */
  3651.         p = index (p2, ':');
  3652. + #ifdef MSDOS
  3653. +       while (p != 0 && p[-1] == '\\' && (isspace (p[1]) || p != p2 + 2))
  3654. + #else /* not MSDOS */
  3655.         while (p != 0 && p[-1] == '\\')
  3656. + #endif /* not MSDOS */
  3657.           {
  3658.             register char *q = &p[-1];
  3659.             register int backslash = 0;
  3660. *************** read_makefile (filename, type)
  3661. *** 504,510 ****
  3662. --- 547,557 ----
  3663.             else
  3664.           break;
  3665.           }
  3666. + #ifdef MSDOS
  3667. +       if (p != 0 && (isspace (p[1]) || p != p2 + 2))
  3668. + #else /* not MSDOS */
  3669.         if (p != 0)
  3670. + #endif /* not MSDOS */
  3671.           {
  3672.             struct nameseq *target;
  3673.             target = parse_file_seq (&p2, ':', sizeof (struct nameseq));
  3674. *************** parse_file_seq (stringp, stopchar, size)
  3675. *** 1221,1226 ****
  3676. --- 1268,1277 ----
  3677.       break;
  3678.         /* Yes, find end of next name.  */
  3679.         q = p;
  3680. + #ifdef MSDOS        /* interpret "c:foo" as file on different drive.  */
  3681. +       if (isalpha (p[0]) && p[1] == ':' && !isspace (p[2]))
  3682. +     p += 3;
  3683. + #endif /* MSDOS */
  3684.         while (1)
  3685.       {
  3686.         c = *p++;
  3687. *************** multi_glob (chain, size)
  3688. *** 1427,1432 ****
  3689. --- 1478,1484 ----
  3690.       {
  3691.         nexto = old->next;
  3692.   
  3693. + #ifndef MSDOS
  3694.         if (*old->name == '~')
  3695.       {
  3696.         if (old->name[1] == '/' || old->name[1] == '\0')
  3697. *************** multi_glob (chain, size)
  3698. *** 1486,1491 ****
  3699. --- 1538,1544 ----
  3700.           }
  3701.           }
  3702.       }
  3703. + #endif /* ! MSDOS */
  3704.   
  3705.         if (glob_pattern_p (old->name))
  3706.       {
  3707. diff -cBdNp e:/gnu/make/gnu/remake.c ./remake.c
  3708. *** e:/gnu/make/gnu/remake.c    Tue Jul 24 00:53:16 1990
  3709. --- ./remake.c    Tue Jul 24 00:55:14 1990
  3710. *************** You should have received a copy of the G
  3711. *** 15,20 ****
  3712. --- 15,37 ----
  3713.   along with GNU Make; see the file COPYING.  If not, write to
  3714.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  3715.   
  3716. + /*
  3717. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  3718. +  *
  3719. +  * To this port, the same copying conditions apply as to the
  3720. +  * original release.
  3721. +  *
  3722. +  * IMPORTANT:
  3723. +  * This file is not identical to the original GNU release!
  3724. +  * You should have received this code as patch to the official
  3725. +  * GNU release.
  3726. +  *
  3727. +  * MORE IMPORTANT:
  3728. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3729. +  *
  3730. +  * $Header: e:/gnu/make/RCS/remake.c'v 3.58.0.1 90/07/17 00:59:46 tho Exp $
  3731. +  */
  3732. + 
  3733.   #include "make.h"
  3734.   #include "commands.h"
  3735.   #include "job.h"
  3736. *************** the Free Software Foundation, 675 Mass A
  3737. *** 27,35 ****
  3738.   #include <fcntl.h>
  3739.   #endif
  3740.   
  3741. ! 
  3742.   extern int open (), fstat (), read (), lseek (), write (), close ();
  3743.   extern time_t time ();
  3744.   
  3745.   extern int try_implicit_rule ();
  3746.   extern time_t ar_member_date ();
  3747. --- 44,56 ----
  3748.   #include <fcntl.h>
  3749.   #endif
  3750.   
  3751. ! #ifdef MSDOS
  3752. ! #include <io.h>
  3753. ! #include <time.h>
  3754. ! #else /* not MSDOS */
  3755.   extern int open (), fstat (), read (), lseek (), write (), close ();
  3756.   extern time_t time ();
  3757. + #endif /* not MSDOS */
  3758.   
  3759.   extern int try_implicit_rule ();
  3760.   extern time_t ar_member_date ();
  3761. *************** extern time_t ar_member_date ();
  3762. *** 38,47 ****
  3763. --- 59,78 ----
  3764.   /* Incremented when a file has been remade.  */
  3765.   unsigned int files_remade = 0;
  3766.   
  3767. + #ifdef MSDOS
  3768. + static  int update_file (struct file *file, unsigned int depth);
  3769. + static  int update_file_1 (struct file *file, unsigned int depth);
  3770. + static  int check_dep (struct file *file, unsigned int depth, long this_mtime, int *must_make_ptr);
  3771. + static  void remake_file (struct file *file);
  3772. + static  long name_mtime (char *name);
  3773. + static  long library_file_mtime (char *lib);
  3774. + static  int touch_file (struct file *file);
  3775. + #else /* not MSDOS */
  3776.   static int update_file (), update_file_1 (), check_dep ();
  3777.   static void remake_file ();
  3778.   static time_t name_mtime (), library_file_mtime ();
  3779.   extern time_t f_mtime ();
  3780. + #endif /* not MSDOS */
  3781.   
  3782.   /* Remake all the goals in the `struct dep' chain GOALS.  Return -1 if nothing
  3783.      was done, 0 if all goals were updated successfully, or 1 if a goal failed.
  3784. diff -cBdNp e:/gnu/make/gnu/rule.c ./rule.c
  3785. *** e:/gnu/make/gnu/rule.c    Tue Jul 24 00:53:22 1990
  3786. --- ./rule.c    Tue Jul 24 00:55:20 1990
  3787. *************** You should have received a copy of the G
  3788. *** 16,21 ****
  3789. --- 16,38 ----
  3790.   along with GNU Make; see the file COPYING.  If not, write to
  3791.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  3792.   
  3793. + /*
  3794. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  3795. +  *
  3796. +  * To this port, the same copying conditions apply as to the
  3797. +  * original release.
  3798. +  *
  3799. +  * IMPORTANT:
  3800. +  * This file is not identical to the original GNU release!
  3801. +  * You should have received this code as patch to the official
  3802. +  * GNU release.
  3803. +  *
  3804. +  * MORE IMPORTANT:
  3805. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3806. +  *
  3807. +  * $Header: e:/gnu/make/RCS/rule.c'v 3.58.0.1 90/07/17 00:59:49 tho Exp $
  3808. +  */
  3809. + 
  3810.   #include "make.h"
  3811.   #include "commands.h"
  3812.   #include "dep.h"
  3813. *************** the Free Software Foundation, 675 Mass A
  3814. *** 23,30 ****
  3815. --- 40,52 ----
  3816.   #include "variable.h"
  3817.   #include "rule.h"
  3818.   
  3819. + #ifdef MSDOS
  3820. + static void freerule (struct rule *rule, struct rule *lastrule);
  3821. + static int new_pattern_rule (struct rule *rule, int override);
  3822. + #else /* not MSDOS */
  3823.   static void freerule ();
  3824.   static int new_pattern_rule ();
  3825. + #endif /* not MSDOS */
  3826.   
  3827.   /* Chain of all pattern rules.  */
  3828.   
  3829. diff -cBdNp e:/gnu/make/gnu/rule.h ./rule.h
  3830. *** e:/gnu/make/gnu/rule.h    Tue Jul 24 00:53:24 1990
  3831. --- ./rule.h    Tue Jul 24 00:55:22 1990
  3832. *************** You should have received a copy of the G
  3833. *** 15,20 ****
  3834. --- 15,37 ----
  3835.   along with GNU Make; see the file COPYING.  If not, write to
  3836.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  3837.   
  3838. + /*
  3839. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  3840. +  *
  3841. +  * To this port, the same copying conditions apply as to the
  3842. +  * original release.
  3843. +  *
  3844. +  * IMPORTANT:
  3845. +  * This file is not identical to the original GNU release!
  3846. +  * You should have received this code as patch to the official
  3847. +  * GNU release.
  3848. +  *
  3849. +  * MORE IMPORTANT:
  3850. +  * This port comes with ABSOLUTELY NO WARRANTY.
  3851. +  *
  3852. +  * $Header: e:/gnu/make/RCS/rule.h'v 3.58.0.1 90/07/17 01:00:07 tho Exp $
  3853. +  */
  3854. + 
  3855.   /* Structure used for pattern rules.  */
  3856.   
  3857.   struct rule
  3858. *************** extern unsigned int max_pattern_dep_leng
  3859. *** 47,51 ****
  3860.   extern struct file *suffix_file;
  3861.   extern unsigned int maxsuffix;
  3862.   
  3863. ! 
  3864.   extern void install_pattern_rule ();
  3865. --- 64,71 ----
  3866.   extern struct file *suffix_file;
  3867.   extern unsigned int maxsuffix;
  3868.   
  3869. ! #ifdef  MSDOS
  3870. ! extern  void install_pattern_rule (struct pspec *p, int terminal);
  3871. ! #else /* not MSDOS */
  3872.   extern void install_pattern_rule ();
  3873. + #endif /* not MSDOS */
  3874. diff -cBdNp e:/gnu/make/gnu/spawn.c ./spawn.c
  3875. *** e:/gnu/make/gnu/spawn.c    Tue Jul 24 00:56:23 1990
  3876. --- ./spawn.c    Tue Jul 24 00:55:48 1990
  3877. ***************
  3878. *** 0 ****
  3879. --- 1,726 ----
  3880. + /*  spawn.c - replacements for MSC spawn*() functions
  3881. +     Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  3882. + 
  3883. +     This program is free software; you can redistribute it and/or modify
  3884. +     it under the terms of the GNU General Public License as published by
  3885. +     the Free Software Foundation; either version 1, or (at your option)
  3886. +     any later version.
  3887. + 
  3888. +     This program is distributed in the hope that it will be useful,
  3889. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  3890. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  3891. +     GNU General Public License for more details.
  3892. + 
  3893. +     You should have received a copy of the GNU General Public License
  3894. +     along with this program; if not, write to the Free Software
  3895. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  3896. + 
  3897. +     IMPORTANT:
  3898. + 
  3899. +     This code is not an official part of the GNU project and the
  3900. +     author is not affiliated to the Free Software Foundation.
  3901. +     He just likes their code and spirit.  */
  3902. + 
  3903. + static char RCS_id[] =
  3904. + "$Header: e:/gnu/make/RCS/spawn.c'v 0.18 90/07/22 14:42:38 tho Exp $";
  3905. + 
  3906. + 
  3907. + #include <stdio.h>
  3908. + #include <stdlib.h>
  3909. + #include <string.h>
  3910. + #include <ctype.h>
  3911. + #include <process.h>
  3912. + #include <malloc.h>
  3913. + #include <errno.h>
  3914. + #include <direct.h>
  3915. + #include <dos.h>
  3916. + #include <io.h>
  3917. + #include <sys/types.h>
  3918. + 
  3919. + 
  3920. + #define MAX_MSDOS_CMDLINE    126
  3921. + #define MAX_MSDOS_PATH        144
  3922. + 
  3923. + /* IMPORTED DECLARATIONS */
  3924. + 
  3925. + enum swapping_mode
  3926. + {
  3927. +   none, disk, ems, xms
  3928. + };
  3929. + 
  3930. + extern int
  3931. + spawn_child (enum swapping_mode mode, char *path, char *cmdline, char *env,
  3932. +          int len, char *swap_file);
  3933. + 
  3934. + 
  3935. + /* PRIVATE DECLARATIONS */
  3936. + 
  3937. + static void swapping_mode_hook (enum swapping_mode * swapping_ptr, char *dev);
  3938. + static int commandline_hook (char *cmd, char **argv, char **env0,
  3939. +                  char **respond_file_name_ptr);
  3940. + static char *putenv_cmdline (char *cmd, char **argv);
  3941. + static int build_environment (char _far ** envbuf, char *cmdline,
  3942. +                   char **envvec);
  3943. + static char *build_link_respond_file (char **argv);
  3944. + static char *build_lib_respond_file (char **argv);
  3945. + static char *build_zip_respond_file (char **argv);
  3946. + static int build_cmdline (char **argv);
  3947. + static char *expand_path (char *name, char *env, char *(*select) (char *));
  3948. + static char *executable_p (char *path);
  3949. + extern void *xmalloc (size_t size);
  3950. + extern void *xrealloc (void *ptr, size_t size);
  3951. + 
  3952. + static char *extensions[] =/* extensions recognized during */
  3953. + {                /* path search */
  3954. +   ".bat",            /* this will be passed to the shell */
  3955. +   ".exe",
  3956. +   ".com",
  3957. +   NULL,
  3958. + };
  3959. + 
  3960. + #define PATH_SEP    ';'
  3961. + #define FSLASH        '/'
  3962. + #define BSLASH        '\\'
  3963. + 
  3964. + 
  3965. + /* PUBLIC DECLARATIONS */
  3966. + 
  3967. + extern char *mktmpname (char *prefix);
  3968. + 
  3969. + 
  3970. + /* The main entry points, work just like spawnvpe?() from the standard MSC
  3971. +    library.  */
  3972. + 
  3973. + int swap_and_spawnvp (char *device, char *cmd, char **argv);
  3974. + int swap_and_spawnvpe (char *device, char *cmd, char **argv, char **envvec);
  3975. + 
  3976. + int
  3977. + swap_and_spawnvp (char *device, char *cmd, char **argv)
  3978. + {
  3979. +   return swap_and_spawnvpe (device, cmd, argv, NULL);
  3980. + }
  3981. + 
  3982. + int
  3983. + swap_and_spawnvpe (char *device, char *cmd, char **argv, char **envvec)
  3984. + {
  3985. +   int len;
  3986. +   int rc;
  3987. +   char _far *env = (char _far *) 0;
  3988. +   char *env0 = NULL;
  3989. +   char *respond_file_name = NULL;
  3990. +   char *swap_file_name = mktmpname ("vm");
  3991. +   enum swapping_mode swapping = xms;
  3992. + 
  3993. +   if (device != NULL)
  3994. +     swapping_mode_hook (&swapping, device);
  3995. + 
  3996. +   argv[0] = expand_path (cmd, "PATH", executable_p);
  3997. +   if (argv[0] == NULL)
  3998. +     return ENOENT;
  3999. + 
  4000. +   rc = commandline_hook (cmd, argv, &env0, &respond_file_name);
  4001. +   if (rc)
  4002. +     return rc;
  4003. + 
  4004. +   len = build_environment (&env, env0, (envvec == NULL) ? environ : envvec);
  4005. +   if (!len)
  4006. +     return E2BIG;
  4007. + 
  4008. +   rc = spawn_child (swapping, argv[0], argv[1], env, len, swap_file_name);
  4009. + 
  4010. +   if (env0)
  4011. +     free (env0);
  4012. +   if (env)
  4013. +     free (env);
  4014. +   if (*argv[1])
  4015. +     free (argv[1]);
  4016. +   free (swap_file_name);
  4017. + 
  4018. +   if (respond_file_name)    /* clean up disk */
  4019. +     unlink (respond_file_name);
  4020. + 
  4021. +   return rc;
  4022. + }
  4023. + 
  4024. + 
  4025. + /* Look if DEV corresponds to a known swapping device and set *SWAPPING_PTR
  4026. +    accordingly;  */
  4027. + 
  4028. + void
  4029. + swapping_mode_hook (enum swapping_mode * swapping_ptr, char *dev)
  4030. + {
  4031. +   if (dev)
  4032. +     {
  4033. +       strlwr (dev);
  4034. +       if (!strcmp ("xms", dev))
  4035. +     *swapping_ptr = xms;
  4036. +       else if (!strcmp ("ems", dev))
  4037. +     {
  4038. +       fprintf (stderr, "Swapping to expanded memory is not supported yet, "
  4039. +            "will try extended memory.\n");
  4040. +       *swapping_ptr = xms;
  4041. +     }
  4042. +       else if (!strcmp ("disk", dev))
  4043. +     *swapping_ptr = disk;
  4044. +       else if (!strcmp ("none", dev))
  4045. +     {
  4046. +       fprintf (stderr, "No swapping is not supported yet, "
  4047. +                 "will swap to disk.\n");
  4048. +       *swapping_ptr = disk;
  4049. +     }
  4050. +       else
  4051. +     {
  4052. +       fprintf (stderr, "Can't swap to `%s' (no such device), "
  4053. +            "will try extended memory.\n", dev);
  4054. +       *swapping_ptr = xms;
  4055. +     }
  4056. +     }
  4057. + }
  4058. + 
  4059. + /* Look if CMD allows or requires special treatment, manipulate ARGV
  4060. +    accordingly. If necessary, create ENV0 and RESPOND_FILE_NAME_PTR.
  4061. +    In any case, merge ARGV[1], ... into ARGV[1].
  4062. +    ~~~~~~~~~~~
  4063. +    Note that the special treatment can be switched off by giving CMD
  4064. +    uppercase!  */
  4065. + 
  4066. + int
  4067. + commandline_hook (char *cmd, char **argv, char **env0,
  4068. +           char **respond_file_name_ptr)
  4069. + {
  4070. +   if (!strcmp ("cl", cmd) || !strcmp ("fl", cmd) || !strcmp ("masm", cmd))
  4071. +     *env0 = putenv_cmdline (cmd, argv);
  4072. +   else if (!strcmp ("link", cmd))
  4073. +     {
  4074. +       *respond_file_name_ptr = build_link_respond_file (argv);
  4075. +       if (*respond_file_name_ptr == NULL)
  4076. +     return E2BIG;
  4077. +     }
  4078. +   else if (!strcmp ("lib", cmd))
  4079. +     {
  4080. +       *respond_file_name_ptr = build_lib_respond_file (argv);
  4081. +       if (*respond_file_name_ptr == NULL)
  4082. +     return E2BIG;
  4083. +     }
  4084. +   else if (!strcmp ("pkzip", cmd) || !strcmp ("pkunzip", cmd))
  4085. +     {
  4086. +       *respond_file_name_ptr = build_zip_respond_file (argv);
  4087. +       if (*respond_file_name_ptr == NULL)
  4088. +     return E2BIG;
  4089. +     }
  4090. +   else if (!build_cmdline (argv))
  4091. +     return E2BIG;
  4092. + 
  4093. +   return 0;            /* success */
  4094. + }
  4095. + 
  4096. + 
  4097. + /* Manipulating the environment.  */
  4098. + 
  4099. + /* Merge CMDLINE, ENVVEC[0], ... into ENVBUF as a well formed MS-DOS
  4100. +    environment (will be malloc()'d).  Returns the length (incl. the
  4101. +    trailing '\0's)  of the resulting environment.  */
  4102. + 
  4103. + int
  4104. + build_environment (char _far ** envbuf, char *cmdline, char **envvec)
  4105. + {
  4106. +   char *p;
  4107. +   char **envptr = envvec;
  4108. +   int len = 1;
  4109. + 
  4110. +   if (envvec == NULL && cmdline == NULL)
  4111. +     return 0;
  4112. + 
  4113. +   if (cmdline != NULL)
  4114. +     len += strlen (cmdline) + 1;
  4115. +   if (envvec != NULL)
  4116. +     while (*envptr)
  4117. +       len += strlen (*envptr++) + 1;
  4118. + 
  4119. +   p = *envbuf = (char *) xmalloc (len);
  4120. + 
  4121. +   if (cmdline != NULL)
  4122. +     {
  4123. +       strcpy (p, cmdline);
  4124. +       p += strlen (cmdline) + 1;
  4125. +     }
  4126. +   envptr = envvec;
  4127. +   if (envvec != NULL)
  4128. +     while (*envptr)
  4129. +       {
  4130. +     strcpy (p, *envptr);
  4131. +     p += strlen (*envptr++) + 1;
  4132. +       }
  4133. +   *p++ = '\0';            /* end of environment! */
  4134. + 
  4135. +   return (len);
  4136. + }
  4137. + 
  4138. + 
  4139. + /* Manipulating the commandline.  */
  4140. + 
  4141. + /* The following functions for manipulating the commandline do NOT free
  4142. +    the storage of the ARGV[] strings, since they can't know how it was
  4143. +    allocated (separately or as single block).  */
  4144. + 
  4145. + /* Build an environment entry for passing options to the Microsoft C
  4146. +    and Fortran Compilers and Macro Assembler.  CMD is the command to
  4147. +    execute.  ARGV[1],... will be moved to an environment entry "CMD" and
  4148. +    we will have ARGV[1] == "".  */
  4149. + 
  4150. + char *
  4151. + putenv_cmdline (char *cmd, char **argv)
  4152. + {
  4153. +   int nologo_flag = 0;
  4154. +   char **av = argv + 1;
  4155. +   char *p;
  4156. +   char *env;
  4157. +   int len = 3 + strlen (cmd);
  4158. + 
  4159. +   /* `fl' and `cl' understand the "-nologo" option to suppress the banner,
  4160. +       `masm' not.  */
  4161. +   if (!strcmp (cmd, "fl") || !strcmp (cmd, "cl"))
  4162. +     {
  4163. +       nologo_flag = 1;
  4164. +       len += 8;
  4165. +     }
  4166. + 
  4167. +   while (*av)
  4168. +     len += strlen (*av++) + 1;
  4169. + 
  4170. +   p = env = (char *) xmalloc (len);
  4171. + 
  4172. +   strcpy (p, strupr (cmd));
  4173. +   p += strlen (cmd);
  4174. +   *p++ = '=';
  4175. + 
  4176. +   if (nologo_flag)
  4177. +     {
  4178. +       strcpy (p, "-nologo");
  4179. +       p += 7;
  4180. +     }
  4181. + 
  4182. +   av = argv + 1;
  4183. +   while (*av)            /* paste arguments together */
  4184. +     {
  4185. +       *p++ = ' ';
  4186. +       strcpy (p, *av);
  4187. +       p += strlen (*av++);
  4188. +     }
  4189. + 
  4190. +   *argv[1] = '\0';        /* commandline terminated */
  4191. + 
  4192. +   return env;
  4193. + }
  4194. + 
  4195. + 
  4196. + /* Build a respondfile for the Microsoft linker from ARGV[0].  Returns the
  4197. +    name of the generated file on success, NULL otherwise.  The new
  4198. +    commandline ARGV[1] holds the proper command for instructing the linker
  4199. +    to use this respondfile.  */
  4200. + 
  4201. + char *
  4202. + build_link_respond_file (char **argv)
  4203. + {
  4204. +   int len = 0;
  4205. +   char **av = argv;
  4206. +   FILE *respond_file;
  4207. +   char *respond_file_name = mktmpname ("lk");
  4208. + 
  4209. +   if (!(respond_file = fopen (respond_file_name, "w")))
  4210. +     {
  4211. +       fprintf (stderr, "can't open link respond_file %s.\n",
  4212. +            respond_file_name);
  4213. +       return NULL;
  4214. +     }
  4215. + 
  4216. +   while (*++av)
  4217. +     {
  4218. +       char *cp;
  4219. + 
  4220. +       if (strlen (*av) + len > 50)
  4221. +     {
  4222. +       fprintf (respond_file, "+\n");
  4223. +       len = 0;
  4224. +     }
  4225. + 
  4226. +       while (cp = strchr (*av, ','))    /* new respond group? */
  4227. +     {
  4228. +       *cp = '\n';
  4229. +       len = *av - cp - 1;    /* precompensate */
  4230. +     }
  4231. + 
  4232. +       len += fprintf (respond_file, "%s ", *av);
  4233. +     }
  4234. + 
  4235. +   fprintf (respond_file, ";\n");/* avoid prompts! */
  4236. + 
  4237. +   fclose (respond_file);
  4238. + 
  4239. +   argv[1] = (char *) xmalloc (strlen (respond_file_name) + 9);
  4240. +   sprintf (argv[1], "/batch @%s", respond_file_name);
  4241. + 
  4242. +   return respond_file_name;
  4243. + }
  4244. + 
  4245. + 
  4246. + /* Build a respondfile for the Microsoft library manager from ARGV[0].
  4247. +    Returns the name of the generated file on success, NULL otherwise.  The
  4248. +    new commandline ARGV[1] holds the proper command for instructing the
  4249. +    library manager to use this respondfile.   A module without command
  4250. +    inherits the one of it's predecessor.  This allows constructions like
  4251. +    `lib foo.lib -+ $?' in the makefiles (idea stolen from Kneller's
  4252. +    `ndmake').  */
  4253. + 
  4254. + char *
  4255. + build_lib_respond_file (char **argv)
  4256. + {
  4257. +   int len = 0;
  4258. +   char **av = argv;
  4259. +   FILE *respond_file;
  4260. +   char *respond_file_name = mktmpname ("lb");
  4261. +   static char lib_action[3] = "+";
  4262. + 
  4263. +   if (!(respond_file = fopen (respond_file_name, "w")))
  4264. +     {
  4265. +       fprintf (stderr, "can't open lib respond_file %s.\n",
  4266. +            respond_file_name);
  4267. +       return NULL;
  4268. +     }
  4269. + 
  4270. +   fprintf (respond_file, " %s\n ", *++av);    /* easy: the lib file  */
  4271. + 
  4272. +   if (access (*av, 0))        /* new library */
  4273. +     fprintf (respond_file, "y\n ");    /* create it! */
  4274. + 
  4275. +   while (*++av)
  4276. +     {
  4277. +       char *cp;
  4278. + 
  4279. +       if (strchr ("+-*", **av))
  4280. +     {
  4281. +       lib_action[0] = *(*av)++;
  4282. + 
  4283. +       if (strchr ("+-*", **av))
  4284. +         lib_action[1] = *(*av)++;
  4285. +       else
  4286. +         lib_action[1] = '\0';
  4287. +     }
  4288. + 
  4289. +       if (**av)
  4290. +     {
  4291. +       if (strlen (*av) + len > 50)
  4292. +         {
  4293. +           fprintf (respond_file, "&\n ");
  4294. +           len = 0;
  4295. +         }
  4296. + 
  4297. +       len += fprintf (respond_file, "%s", lib_action) + 1;
  4298. + 
  4299. +       while (cp = strchr (*av, ','))    /* new respond group? */
  4300. +         {
  4301. +           *cp = '\n';
  4302. +           len = *av - cp - 1;    /* precompensate */
  4303. +           lib_action[0] = '\0';    /* no more actions! */
  4304. +         }
  4305. + 
  4306. +       len += fprintf (respond_file, "%s ", *av) + 1;
  4307. +     }
  4308. +     }
  4309. + 
  4310. +   fprintf (respond_file, ";\n");/* avoid prompts! */
  4311. + 
  4312. +   fclose (respond_file);
  4313. + 
  4314. +   argv[1] = (char *) xmalloc (strlen (respond_file_name) + 10);
  4315. +   sprintf (argv[1], "/nologo @%s", respond_file_name);
  4316. + 
  4317. +   return respond_file_name;
  4318. + }
  4319. + 
  4320. + 
  4321. + /* Build a respondfile for the pk(un)?zip archive managers from ARGV[0].
  4322. +    Returns the name of the generated file on success, NULL otherwise.  The
  4323. +    new commandline ARGV[1] holds the proper command for instructing
  4324. +    pk(un)?zip to use this respondfile.  */
  4325. + 
  4326. + char *
  4327. + build_zip_respond_file (char **argv)
  4328. + {
  4329. +   char *cmdline = (char *) xmalloc (127 * sizeof (char));
  4330. +   char *ptr = cmdline;
  4331. +   char **av = argv + 1;
  4332. +   int len = 0;
  4333. +   FILE *respond_file = NULL;
  4334. +   char *respond_file_name = mktmpname ("zi");
  4335. + 
  4336. +   respond_file = fopen (respond_file_name, "w");
  4337. +   if (respond_file == NULL)
  4338. +     {
  4339. +       fprintf (stderr, "can't open zip respondfile %s.\n", respond_file_name);
  4340. +       return NULL;
  4341. +     }
  4342. + 
  4343. +   while (**av == '-')        /* leave options on the commandline */
  4344. +     {
  4345. +       if (ptr - cmdline + strlen (*av) > 126)
  4346. +     {
  4347. +       free (cmdline);
  4348. +       return NULL;
  4349. +     }
  4350. +       strcpy (ptr, *av);
  4351. +       ptr += strlen (*av);
  4352. +       *ptr++ = ' ';
  4353. +       av++;
  4354. +     }
  4355. + 
  4356. +   if (*av == NULL        /* missing zipfilename? */
  4357. +       || ptr - cmdline + strlen (*av) + strlen (respond_file_name) > 124)
  4358. +     {
  4359. +       free (cmdline);
  4360. +       return NULL;
  4361. +     }
  4362. + 
  4363. +   sprintf (ptr, "%s @%s", *av++, respond_file_name);
  4364. + 
  4365. +   while (*av)
  4366. +     fprintf (respond_file, "%s\n", *av++);
  4367. + 
  4368. +   fprintf (respond_file, "\n");
  4369. +   fclose (respond_file);
  4370. + 
  4371. +   argv[1] = cmdline;
  4372. + 
  4373. +   return respond_file_name;
  4374. + }
  4375. + 
  4376. + 
  4377. + /* Build a MS-DOS commandline from the supplied argument vector ARGV and
  4378. +    put it into ARGV[1].  Storage of the old argv[1], ... is NOT free()'d,
  4379. +    since we can't know how it was allocated (separately or as single
  4380. +    block)! ARGV[0] is assumed to be a fully expanded pathname incl
  4381. +    extension.  If ARGV[0] ends int ".bat", we will pass the command to the
  4382. +    shell.  Returns 1 on success, 0 if the commandline is too long.  */
  4383. + 
  4384. + int
  4385. + build_cmdline (char **argv)
  4386. + {
  4387. +   char *cmdline = (char *) xmalloc (128 * sizeof (char));
  4388. +   char *p = cmdline;
  4389. +   char *tmp;
  4390. +   char **av;
  4391. + 
  4392. +   if ((tmp = strrchr (argv[0], '.'))    /* .bat files will be passed */
  4393. +       && !strcmp (tmp + 1, "bat"))    /* to the shell ...  */
  4394. +     {
  4395. +       *tmp = '\0';        /* terminate */
  4396. + 
  4397. +       strcpy (p, "/c ");    /* return after execution */
  4398. +       p += 3;
  4399. + 
  4400. +       if ((tmp = strrchr (argv[0], BSLASH))    /* strip path */
  4401. +       || (tmp = strrchr (argv[0], FSLASH)))
  4402. +     strcpy (p, tmp + 1);
  4403. +       else
  4404. +     strcpy (p, argv[0]);
  4405. + 
  4406. +       p += strlen (p);
  4407. +       *p++ = ' ';
  4408. + 
  4409. +       if (!(argv[0] = getenv ("COMSPEC")))
  4410. +     {
  4411. +       fprintf (stderr, "command processor not found!");
  4412. +       exit (1);
  4413. +     }
  4414. +     }
  4415. + 
  4416. +   av = argv;            /* paste arguments together */
  4417. +   while (*++av)
  4418. +     {
  4419. +       strcpy (p, *av);
  4420. +       p += strlen (*av);
  4421. +       *p++ = ' ';
  4422. +       if ((p - cmdline) > 126)
  4423. +     return (0);        /* commandline to long for MeSy-DOS */
  4424. +     }
  4425. + 
  4426. +   *p = '\0';
  4427. +   argv[1] = cmdline;
  4428. + 
  4429. +   return (1);            /* success */
  4430. + }
  4431. + 
  4432. + 
  4433. + 
  4434. + /* $PATH search.  */
  4435. + 
  4436. + /* Look for NAME in the directories from $ENV ($PATH, if ENV is NULL),
  4437. +    satisfying SELECT.  */
  4438. + 
  4439. + char *
  4440. + expand_path (char *name, char *env, char *(*select) (char *))
  4441. + {
  4442. +   size_t name_len = strlen (name) + 6;    /*  SELECT may append 4 chars! */
  4443. +   char *exp = (char *) xmalloc (name_len);
  4444. + 
  4445. +   strcpy (exp, name);
  4446. + 
  4447. +   if ((*select) (exp))        /* first look in current directory. */
  4448. +     return exp;
  4449. + 
  4450. +   /* If not an absolute path, scan $PATH  */
  4451. + 
  4452. +   if (exp[1] != ':' && *exp != BSLASH && *exp != FSLASH)
  4453. +     {
  4454. +       char *ptr = getenv ((env == NULL) ? "PATH" : env);
  4455. +       if (ptr != NULL)
  4456. +     {
  4457. +       char *path = (char *) alloca (strlen (ptr) + 1);
  4458. +       strcpy (path, ptr);    /* get a copy strtok() can butcher. */
  4459. + 
  4460. +       ptr = strtok (path, ";");
  4461. + 
  4462. +       while (ptr != NULL)
  4463. +         {
  4464. +           exp = (char *) xrealloc (exp, strlen (ptr) + name_len);
  4465. +           if ((*select) (strcat (strcat (strcpy (exp, ptr), "/"), name)))
  4466. +         return exp;
  4467. +           ptr = strtok (NULL, ";");
  4468. +         }
  4469. +     }
  4470. +     }
  4471. + 
  4472. +   free (exp);
  4473. +   return NULL;            /* We've failed!  */
  4474. + }
  4475. + 
  4476. + 
  4477. + /* Return the expanded path with extension iff PATH is an executable MS-DOS
  4478. +    program, NULL otherwise.  */
  4479. + 
  4480. + static char *
  4481. + executable_p (char *path)
  4482. + {
  4483. +   char *base;
  4484. +   const char **ext = extensions;
  4485. + 
  4486. +   base = strrchr (strrchr (path, BSLASH), FSLASH);
  4487. +   if (base == NULL)
  4488. +     base = path;
  4489. + 
  4490. +   if (strchr (base, '.'))    /* explicit extension? */
  4491. +     {
  4492. +       if (!access (path, 0))
  4493. +     return path;
  4494. +     }
  4495. +   else
  4496. +     {
  4497. +       while (*base)        /* point to the end */
  4498. +     *base++;
  4499. + 
  4500. +       while (*ext)        /* try all extensions */
  4501. +     {
  4502. +       strcpy (base, *ext++);
  4503. +       if (!access (path, 0))
  4504. +         return path;
  4505. +     }
  4506. +     }
  4507. + 
  4508. +   return NULL;            /* failed */
  4509. + }
  4510. + 
  4511. + 
  4512. + /* Get a unique filename in the temporary directory from the environment
  4513. +    entry TMP or TEMP, if this fails, use current directory.  (replacement
  4514. +    for tempnam(), whish is *too* touchy about trailing path separators!) */
  4515. + 
  4516. + char *
  4517. + mktmpname (char *prefix)
  4518. + {
  4519. +   register int len;
  4520. +   register char *ptr;
  4521. +   register char *tmpname;
  4522. +   static char default_prefix[3] = "vm";
  4523. + 
  4524. +   if (!prefix[0] || !prefix[1])    /* did the user supply a prefix? */
  4525. +     prefix = default_prefix;
  4526. + 
  4527. +   if (!(ptr = getenv ("TMP")) && !(ptr = getenv ("TEMP")))
  4528. +     {
  4529. + 
  4530. +       ptr = ".";
  4531. +       len = 1;
  4532. +     }
  4533. +   else
  4534. +     {
  4535. +       len = strlen (ptr) - 1;
  4536. +       if ((ptr[len] == FSLASH) || (ptr[len] == BSLASH))
  4537. +     ptr[len] = '\0';
  4538. +     }
  4539. + 
  4540. +   tmpname = xmalloc (len + 10);
  4541. + 
  4542. +   sprintf (tmpname, "%s\\%2sXXXXXX", ptr, prefix);
  4543. +   mktemp (tmpname);
  4544. + 
  4545. +   return tmpname;
  4546. + }
  4547. + 
  4548. + 
  4549. + #ifdef TEST
  4550. + 
  4551. + extern void main (int ac, char **av);
  4552. + 
  4553. + void *
  4554. + xmalloc (size_t size)
  4555. + {
  4556. +   void *result = malloc (size);
  4557. +   if (result == NULL)
  4558. +     {
  4559. +       fprintf (stderr, "virtual memory exhausted");
  4560. +       abort ();
  4561. +     }
  4562. +   return result;
  4563. + }
  4564. + 
  4565. + void *
  4566. + xrealloc (void *ptr, size_t size)
  4567. + {
  4568. +   void *result = realloc (ptr, size);
  4569. +   if (result == NULL)
  4570. +     {
  4571. +       fprintf (stderr, "virtual memory exhausted");
  4572. +       abort ();
  4573. +     }
  4574. +   return result;
  4575. + }
  4576. + 
  4577. + void
  4578. + main (int ac, char **av)
  4579. + {
  4580. +   int n = 0;
  4581. +   int j = 2;
  4582. +   char **argv;
  4583. + 
  4584. +   argv = (char **) xmalloc ((ac - 1) * sizeof (char **));
  4585. + 
  4586. +   while (j < ac)
  4587. +     {
  4588. +       argv[n] = (char *) xmalloc (strlen (av[j]) + 1);
  4589. +       strcpy (argv[n++], av[j++]);
  4590. +     }
  4591. +   argv[n] = NULL;
  4592. + 
  4593. +   swap_and_spawnvp (av[1], *argv, argv);
  4594. + }
  4595. + 
  4596. + #endif /* TEST */
  4597. + 
  4598. + 
  4599. + /*
  4600. +  * Local Variables:
  4601. +  * mode:C
  4602. +  * ChangeLog:ChangeLog
  4603. +  * compile-command:cl -DTEST -W3 vmspawn.c swapcore
  4604. +  * End:
  4605. +  */
  4606. diff -cBdNp e:/gnu/make/gnu/swap.c ./swap.c
  4607. *** e:/gnu/make/gnu/swap.c    Tue Jul 24 00:56:24 1990
  4608. --- ./swap.c    Tue Jul 24 00:55:46 1990
  4609. ***************
  4610. *** 0 ****
  4611. --- 1,1065 ----
  4612. + /*  swap.c - swap parent to disk, EMS, or XMS while executing child (MS-DOS)
  4613. +     Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  4614. + 
  4615. +     This program is free software; you can redistribute it and/or modify
  4616. +     it under the terms of the GNU General Public License as published by
  4617. +     the Free Software Foundation; either version 1, or (at your option)
  4618. +     any later version.
  4619. + 
  4620. +     This program is distributed in the hope that it will be useful,
  4621. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  4622. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  4623. +     GNU General Public License for more details.
  4624. + 
  4625. +     You should have received a copy of the GNU General Public License
  4626. +     along with this program; if not, write to the Free Software
  4627. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  4628. + 
  4629. +     IMPORTANT:
  4630. + 
  4631. +     This code is not an official part of the GNU project and the
  4632. +     author is not affiliated to the Free Software Foundation.
  4633. +     He just likes their code and spirit.  */
  4634. + 
  4635. + static char RCS_id[] =
  4636. + "$Header: e:/gnu/make/RCS/swap.c'v 0.11 90/07/23 18:34:29 tho Exp $";
  4637. + 
  4638. + 
  4639. + #include <stdio.h>
  4640. + #include <stdlib.h>
  4641. + #include <string.h>
  4642. + #include <ctype.h>
  4643. + #include <signal.h>
  4644. + #include <sys/types.h>
  4645. + 
  4646. + #include <dos.h>
  4647. + 
  4648. + /* Add OFF to PTR, taking care of segment overflow  */
  4649. + #define FP_ADD(ptr,off) \
  4650. +   (FP_SEG (ptr) += (off) >> 4, FP_OFF (ptr) += (off) & 0xff, ptr)
  4651. + 
  4652. + /* Paragraph-align PTR.  */
  4653. + #define FP_PARA_ALIGN(ptr)            \
  4654. +   {                        \
  4655. +     FP_SEG (ptr)                \
  4656. +       += ((FP_OFF (ptr) + 15) >> 4) + 1;    \
  4657. +     FP_OFF (ptr) = 0x0000;            \
  4658. +   }
  4659. + 
  4660. + 
  4661. + /* generate inline code (usable in swapper!) */
  4662. + #pragma intrinsic (memcpy)
  4663. + 
  4664. + /* don't call MS' stack checker (it will fail with the local stack!)  */
  4665. + #pragma check_stack (off)
  4666. + 
  4667. + 
  4668. + #define FILE_IO_BLKSIZE        0x8000
  4669. + #define MAX_MSDOS_CMDLINE    126
  4670. + #define MAX_MSDOS_PATH        144
  4671. + #define MAX_MSDOS_MCBS        25
  4672. + 
  4673. + 
  4674. + /* Atributte to force storage in the code segment! */
  4675. + #define CODE _based (_segname ("_CODE"))
  4676. + 
  4677. + static off_t        CODE _swap_swapped_bytes;
  4678. + static unsigned int    CODE _swap_handle;
  4679. + static unsigned int    CODE _swap_psp;
  4680. + static unsigned int    CODE _swap_resident_paras;
  4681. + static unsigned int    CODE _swap_first_block_paras;
  4682. + 
  4683. + 
  4684. + /* Parameters for DOS for creating a child process */
  4685. + #pragma pack (1)
  4686. + static struct
  4687. + {
  4688. +   _segment    environment_segment;
  4689. +   char _far    *cmd_line_ptr;
  4690. +   char _far    *fcb_ptr_1;
  4691. +   char _far    *fcb_ptr_2;
  4692. + 
  4693. + }            CODE _swap_parameter_block;
  4694. + #pragma pack ()
  4695. + 
  4696. + static char        CODE _swap_path[MAX_MSDOS_PATH];
  4697. + static char        CODE _swap_cmdline[MAX_MSDOS_CMDLINE + 2];
  4698. + static char        CODE _swap_fcb_1[16];    /* FCBs for DOS.  */
  4699. + static char        CODE _swap_fcb_2[16];
  4700. + static unsigned int    CODE _swap_environ_seg;
  4701. + static unsigned int    CODE _swap_environment_size;
  4702. + static int        CODE _swap_return_code;
  4703. + 
  4704. + static struct
  4705. + {
  4706. +   _segment    loc;
  4707. +   unsigned int    len;
  4708. + }            CODE _swap_orig_mcbs[MAX_MSDOS_MCBS];
  4709. + 
  4710. + /* This is a kludge to store _far pointers in the code segment.  */
  4711. + 
  4712. + static struct
  4713. + {
  4714. +   char _far *env;
  4715. +   char _far *env_ptr;
  4716. +   char _far *xms_fct;
  4717. +   int (*swap_in_fct) (int handle, void _far * buffer, long bytes);
  4718. +   int (*swap_out_fct) (int handle, void _far * buffer, long bytes);
  4719. + 
  4720. + }             CODE __swap_far_ptrs;
  4721. + 
  4722. + #define _swap_environment    (__swap_far_ptrs.env)
  4723. + #define _swap_environment_ptr    (__swap_far_ptrs.env_ptr)
  4724. + #define _swap_xms_control    (__swap_far_ptrs.xms_fct)
  4725. + #define _swap_in_function    (__swap_far_ptrs.swap_in_fct)
  4726. + #define _swap_out_function    (__swap_far_ptrs.swap_out_fct)
  4727. + 
  4728. + #pragma pack (1)
  4729. + static struct
  4730. + {
  4731. +   long    length;
  4732. +   int    src_handle;
  4733. +   long    src_offset;
  4734. +   int    dest_handle;
  4735. +   long    dest_offset;
  4736. + }            CODE  _swap_xms_move_table;
  4737. + #pragma pack ()
  4738. + 
  4739. + 
  4740. + /* The local stack */
  4741. + #define STACK_SIZE    0x200
  4742. + static char        CODE _swap_local_stack[STACK_SIZE];
  4743. + static unsigned int    CODE _swap_stack_pointer;
  4744. + static _segment        CODE _swap_stack_segment;
  4745. + 
  4746. + /* This uses the first transient function to determine the end of the
  4747. +    resident code.  */
  4748. + #define FIRST_TO_SWAP    (&install_parameters)
  4749. + 
  4750. + /* MS-DOS interface */
  4751. + 
  4752. + #pragma pack (1)        /* won't fit, if we don't pack! */
  4753. + struct mcb_info
  4754. + {
  4755. +   char         id_byte;    /* 'M': not, 'Z': last MCB    */
  4756. +   unsigned short owner;        /* PSP of owner            */
  4757. +   unsigned short length;    /* length (in paragraphs = 16b)    */
  4758. + };
  4759. + #pragma pack ()
  4760. + 
  4761. + static void _swap_fatal_error (char code, char CODE *msg, size_t len);
  4762. + static int  _swap_free_block (_segment block);
  4763. + static int  _swap_set_block (_segment block, unsigned int paras);
  4764. + static unsigned int  _swap_allocate_block (unsigned int paras);
  4765. + static void _swap_free_upper_blocks (void);
  4766. + static void _swap_reclaim_upper_blocks (void);
  4767. + static int  _swap_load_and_execute_program (void);
  4768. + 
  4769. + /* Disk I/O */
  4770. + 
  4771. + static unsigned int _swap_read (int handle, void _far * buffer, size_t bytes);
  4772. + static unsigned int _swap_write (int handle, void _far * buffer, size_t bytes);
  4773. + static int  _swap_rewind (int handle);
  4774. + static int  _swap_write_to_handle (int handle, void _far * buffer, long size);
  4775. + static int  _swap_read_from_handle (int handle, void _far * buffer, long size);
  4776. + 
  4777. + 
  4778. + /* XMS */
  4779. + 
  4780. + static int _swap_xms_move_out (int handle, void _far * buffer, long bytes);
  4781. + static int _swap_xms_move_in (int handle, void _far * buffer, long bytes);
  4782. + static int _swap_xms_move (void);
  4783. + static int xms_installed (void);
  4784. + static void xms_get_control_function (void);
  4785. + static unsigned int xms_allocate_memory (unsigned int kilobytes);
  4786. + static unsigned int xms_free_memory (unsigned int handle);
  4787. + 
  4788. + 
  4789. + /* EMS */
  4790. + 
  4791. + static int _swap_ems_save_page_map (int handle);
  4792. + static int _swap_ems_restore_page_map (int handle);
  4793. + static int _swap_ems_map_logical_page (int handle, int logical_page);
  4794. + static int _swap_move_to_ems (int handle, void _far *buffer, long bytes);
  4795. + static int _swap_move_from_ems (int handle, void _far *buffer, long bytes);
  4796. + static int _swap_ems_present (void);
  4797. + static int _swap_ems_alloc_pages (int n);
  4798. + static int _swap_ems_free_pages (int handle);
  4799. + static void _far *_swap_ems_get_page_frame (void);
  4800. + 
  4801. + /* Signal handling */
  4802. + 
  4803. + static void (_interrupt _far *_swap_caller_int23) (void);
  4804. + static void _interrupt _far _swap_int23_handler (void);
  4805. + 
  4806. + static int    CODE _swap_user_interrupt = 0;    /* record interrupts  */
  4807. + static char    CODE _swap_int23_handler_message[] =
  4808. +   "\r\n\a\a\a*** User interrupt: waiting for child...\r\n\r\n";
  4809. + 
  4810. + /* "Higher" level code.  */
  4811. + 
  4812. + static void _swap_setup_environment (void);
  4813. + static int  _swap_spawn_child (void);
  4814. + 
  4815. + static void install_parameters (char *path, char *cmdline, char *env,
  4816. +                 size_t size);
  4817. + static struct mcb_info far *last_mcb (void);
  4818. + static int  alloc_swap_file (char *name, long size);
  4819. + static unsigned int cleanup_swap_file (unsigned handle, char *name);
  4820. + 
  4821. + 
  4822. + /* The ONE and ONLY entry point */
  4823. + 
  4824. + enum swapping_mode { none, disk, ems, xms };
  4825. + 
  4826. + int spawn_child (enum swapping_mode mode, char *path, char *cmdline,
  4827. +          char *env, int len, char *swap_file);
  4828. + 
  4829. + /* Very Fatal Error messages.  */
  4830. + 
  4831. + static char CODE _swap_err_msg_head[] = \
  4832. +   "\r\nFatal error in memory management. Aborting.\r\nReason: ";
  4833. + static char CODE _swap_err_msg_0[] = "Can't reallocate core.";
  4834. + static char CODE _swap_err_msg_1[] = "Can't swap code back.";
  4835. + static char CODE _swap_err_msg_2[] = "Can't release core.";
  4836. + static char CODE _swap_err_msg_3[] = "Too many MCBs.";
  4837. + 
  4838. + #define SWAP_FATAL_ERROR(num) \
  4839. +   _swap_fatal_error (-1, _swap_err_msg_##num, sizeof (_swap_err_msg_##num))
  4840. + 
  4841. + 
  4842. + void
  4843. + _swap_setup_environment (void)
  4844. + {
  4845. +   _swap_resident_paras = FP_SEG (_swap_environment) - _swap_psp;
  4846. + 
  4847. +   if (_swap_environment_size && *_swap_environment_ptr)
  4848. +     {
  4849. +       memcpy (_swap_environment, _swap_environment_ptr,
  4850. +           _swap_environment_size);
  4851. +       _swap_resident_paras += (_swap_environment_size + 15) >> 4;
  4852. +       _swap_environ_seg = FP_SEG (_swap_environment);
  4853. +     }
  4854. +   else
  4855. +     _swap_environ_seg = 0;    /* pass our own environment */
  4856. + }
  4857. + 
  4858. + 
  4859. + /* Memory management.
  4860. + 
  4861. +    WARNING:  this used undocumented MS-DOS features.
  4862. + 
  4863. +    This features seem to be very stable anyway (Microsoft obviously uses
  4864. +    them in their own programs and since they won't want to break them,
  4865. +    these feaatures shouldn't go away.  */
  4866. + 
  4867. + /* Does this MCB belong to us?  */
  4868. + #define OUR_MCB(mcb) ((mcb)->owner == _swap_psp)
  4869. + 
  4870. + /* Return a pointer to OUR first MCB */
  4871. + #define FIRST_MCB(mcb) \
  4872. +   (FP_SEG (mcb) = _swap_psp - 1, FP_OFF (mcb) = 0, mcb)
  4873. + 
  4874. + /* Return a pointer to the next MCB */
  4875. + #define NEXT_MCB(mcb) \
  4876. +   (FP_SEG (mcb) = FP_SEG (mcb) + mcb->length + 1, mcb)
  4877. + 
  4878. + int
  4879. + _swap_free_block (_segment block)
  4880. + {
  4881. +   _asm
  4882. +     {
  4883. +       mov    ax, block;
  4884. +       mov    es, ax;
  4885. +       mov    ah, 0x49        /* MS-DOS Free Allocated Memory */
  4886. +       int    0x21
  4887. +       jc    failed
  4888. +       xor    ax, ax;            /* success */
  4889. +     failed:
  4890. +     }
  4891. + }
  4892. + 
  4893. + int
  4894. + _swap_set_block (_segment block, unsigned int paras)
  4895. + {
  4896. +   _asm
  4897. +     {
  4898. +       mov    ax, block
  4899. +       mov    es, ax
  4900. +       mov    bx, paras
  4901. +       mov    ah, 4ah            /* MS-DOS Set Block */
  4902. +       int    0x21
  4903. +       jc    failed
  4904. +       xor    ax, ax            /* success */
  4905. +     failed:
  4906. +     }
  4907. + }
  4908. + 
  4909. + 
  4910. + static unsigned int
  4911. +  _swap_allocate_block (unsigned int paras)
  4912. + {
  4913. +   _asm
  4914. +     {
  4915. +       mov    bx, paras
  4916. +       mov    ah, 0x48    /* MS-DOS Allocate Memory */
  4917. +       int    0x21
  4918. +       jnc    done
  4919. +       mov    ax, 0x0000    /* failed */
  4920. +     done:
  4921. +     }
  4922. + }
  4923. + 
  4924. + 
  4925. + /* Free, one by one, the memoy blocks owned by us.  This excluded the
  4926. +    first block, which will be shrunk later.  _swap_orig_mcbs will be
  4927. +    zero-terminated. */
  4928. + 
  4929. + void
  4930. + _swap_free_upper_blocks (void)
  4931. + {
  4932. +   int i = 0;
  4933. +   struct mcb_info far *mcb;
  4934. + 
  4935. +   FIRST_MCB (mcb);
  4936. + 
  4937. +   while (mcb->id_byte == 'M')
  4938. +     {
  4939. +       NEXT_MCB (mcb);    /* leave the first block intact (for the moment)  */
  4940. + 
  4941. +       if (OUR_MCB (mcb))
  4942. +     {
  4943. +       if (i >= MAX_MSDOS_MCBS)
  4944. +         SWAP_FATAL_ERROR (3);
  4945. +       if (_swap_free_block (FP_SEG (mcb) + 1))
  4946. +         SWAP_FATAL_ERROR (2);
  4947. +       _swap_orig_mcbs[i].loc = FP_SEG (mcb) + 1;
  4948. +       _swap_orig_mcbs[i].len = mcb->length;
  4949. +       i++;
  4950. +     }
  4951. +     }
  4952. +   _swap_orig_mcbs[i].loc = 0x000;
  4953. + }
  4954. + 
  4955. + 
  4956. + /* Reclaim, one by one, the original memory blocks, as stored in
  4957. +    _swap_orig_mcbs.  From the MS-DOS point of view, this should be not
  4958. +    necessary, since MS-DOS keeps (to my knowledge) no internal record of
  4959. +    the memory allocation and the original MCBs are restored together with
  4960. +    the image.  But in this way we can catch the fatal condition when the
  4961. +    child has (illegally) left a resident grandchild.  Also we will be
  4962. +    warned if our methos fails with future MS-DOS versions.  */
  4963. + 
  4964. + void
  4965. + _swap_reclaim_upper_blocks (void)
  4966. + {
  4967. +   int i = 0;
  4968. + 
  4969. +   while (_swap_orig_mcbs[i].loc != 0x000)
  4970. +     if (_swap_allocate_block (_swap_orig_mcbs[i].len)
  4971. +     != _swap_orig_mcbs[i].loc)
  4972. +       SWAP_FATAL_ERROR (0);
  4973. +     else
  4974. +       i++;
  4975. + }
  4976. + 
  4977. + 
  4978. + int
  4979. + _swap_load_and_execute_program (void)
  4980. + {
  4981. +   _swap_parameter_block.environment_segment = _swap_environ_seg;
  4982. +   _swap_parameter_block.cmd_line_ptr = (char _far *) &_swap_cmdline;
  4983. +   _swap_parameter_block.fcb_ptr_1 = (char _far *) &_swap_fcb_1;
  4984. +   _swap_parameter_block.fcb_ptr_2 = (char _far *) &_swap_fcb_2;
  4985. + 
  4986. +   /* The compiler saves si and di by himself.  */
  4987. + 
  4988. +   _asm
  4989. +     {
  4990. +       push    ds        /* save ds */
  4991. + 
  4992. +       mov    ax, cs        /* let es and ds point into code segment */
  4993. +       mov    es, ax
  4994. +       mov    ds, ax
  4995. + 
  4996. +       mov    si, offset _swap_cmdline    /* parse commandline */
  4997. +       mov    di, offset _swap_fcb_1        /* create first FCB */
  4998. +       mov    ax, 0x2901         /* MS-DOS Parse File Name */
  4999. +       int    0x21
  5000. +       mov    di, offset _swap_fcb_2        /* create second FCB */
  5001. +       mov    ax, 0x2901          /* MS-DOS Parse File Name */
  5002. +       int    0x21
  5003. +       mov    bx, offset _swap_parameter_block /* es:bx */
  5004. +       mov    dx, offset _swap_path         /* ds:dx */
  5005. + 
  5006. +       mov    ax, 0x4b00        /* MS-DOS Load and Execute Program */
  5007. +       int    21h
  5008. +       mov    ax, 0ffffh        /* assume failure */
  5009. +       jc    failed
  5010. + 
  5011. +       mov    ah, 0x4d        /* MS-DOS Get Return Code of Child */
  5012. +       int    21h
  5013. +       mov    _swap_return_code, ax    /* store return code */
  5014. + 
  5015. +     failed:
  5016. +       pop    ds        /* restore ds */
  5017. +     }
  5018. + }
  5019. + 
  5020. + int
  5021. + _swap_spawn_child (void)    /* CAN'T TAKE PARAMETERS! */
  5022. + {
  5023. +   /* void */            /* CAN'T HAVE LOCAL VARIABLES!  */
  5024. + 
  5025. +     /* FROM HERE ON: DON'T REFER TO THE GLOBAL STACK! */
  5026. +   _asm
  5027. +     {
  5028. +       mov    cs:_swap_stack_pointer, sp    /* save stack position */
  5029. +       mov    cs:_swap_stack_segment, ss
  5030. +       cli                    /* Interrupts off */
  5031. +       mov    ax, seg _swap_local_stack    /* Change stack */
  5032. +       mov    ss, ax                /* Point to top of new stack */
  5033. +       mov    sp, offset _swap_local_stack + STACK_SIZE
  5034. +       sti                    /* Interrupts on */
  5035. +     }
  5036. + 
  5037. +   if ((*_swap_out_function) (_swap_handle, _swap_environment,
  5038. +                  _swap_swapped_bytes))
  5039. +     return -1;
  5040. + 
  5041. +   _swap_setup_environment ();
  5042. +   _swap_free_upper_blocks ();
  5043. +   _swap_set_block (_swap_psp, _swap_resident_paras);
  5044. + 
  5045. +   _swap_load_and_execute_program ();        /* !!! BIG DEAL !!! */
  5046. + 
  5047. +   if (_swap_set_block (_swap_psp, _swap_first_block_paras))
  5048. +     SWAP_FATAL_ERROR (0);
  5049. +   _swap_reclaim_upper_blocks ();
  5050. + 
  5051. +   if ((*_swap_in_function) (_swap_handle, _swap_environment,
  5052. +                  _swap_swapped_bytes))
  5053. +     SWAP_FATAL_ERROR (1);
  5054. + 
  5055. +   _asm
  5056. +     {
  5057. +       mov    ax, cs:_swap_stack_pointer    /* get saved stack position */
  5058. +       mov    bx, cs:_swap_stack_segment
  5059. +       cli                    /* Interrupts off */
  5060. +       mov    ss, bx                /* Change stack */
  5061. +       mov    sp, ax
  5062. +       sti                    /* Interrupts on */
  5063. +     }
  5064. +     /* THE GLOBAL STACK IS SAVE AGAIN! */
  5065. + 
  5066. +   return _swap_return_code;
  5067. + 
  5068. + }
  5069. + 
  5070. + 
  5071. + 
  5072. + /* Display LEN bytes from string MSG and *immediately* return to DOS,
  5073. +    with CODE as return code.  This is a panic exit, only to be used
  5074. +    as a last resort.            ~~~~~~~~~~            */
  5075. + 
  5076. + void
  5077. + _swap_fatal_error (char code, char CODE *msg, size_t len)
  5078. + {
  5079. +   _asm
  5080. +     {
  5081. +       mov    ax, cs        /* ds = cs */
  5082. +       mov    ds, ax
  5083. +       mov    bx, 0x02    /* /dev/stderr */
  5084. +       mov    dx, offset _swap_err_msg_head
  5085. +       mov    cx, length _swap_err_msg_head
  5086. +       mov    ah, 0x40    /* MS-DOS Write Handle */
  5087. +       int    0x21
  5088. +       mov    dx, msg        /* message */
  5089. +       mov    cx, len        /* length */
  5090. +       mov    ah, 0x40
  5091. +       int    0x21
  5092. +       mov    al, code    /* bail out */
  5093. +       mov    ah, 0x4c    /* MS-DOS End Process */
  5094. +       int    0x21
  5095. +     }
  5096. + }
  5097. + 
  5098. + 
  5099. + /* Lowest level disk I/0:  */
  5100. + 
  5101. + /* Write SIZE bytes from BUFFER to HANDLE.  Returns 0 on success, -1 on
  5102. +    failure.  */
  5103. + 
  5104. + int
  5105. + _swap_write_to_handle (int handle, void _far *buffer, off_t size)
  5106. + {
  5107. +   while (size > 0L)
  5108. +     {
  5109. +       size_t bytes = (size_t) min (size, FILE_IO_BLKSIZE);
  5110. +       size_t bytes_written = _swap_write (handle, buffer, bytes);
  5111. +       if (bytes_written != bytes)
  5112. +     return -1;
  5113. +       FP_ADD (buffer, bytes);
  5114. +       size -= bytes;
  5115. +     }
  5116. + 
  5117. +   return 0;
  5118. + }
  5119. + 
  5120. + size_t
  5121. + _swap_write (int handle, void _far *buffer, size_t bytes)
  5122. + {
  5123. +   _asm
  5124. +     {
  5125. +       push    ds
  5126. +       mov    dx, word ptr buffer    /* offset */
  5127. +       mov    ax, word ptr buffer + 2    /* segment */
  5128. +       mov    ds, ax
  5129. +       mov    bx, handle
  5130. +       mov    cx, bytes
  5131. +       mov    ah, 0x40        /* MS-DOS Write Handle */
  5132. +       int    0x21
  5133. +       jnc    done
  5134. +       mov    ax, 0xffff
  5135. +     done:
  5136. +       pop    ds
  5137. +     }
  5138. + }
  5139. + 
  5140. + 
  5141. + /* Read SIZE bytes from HANDLE to BUFFER.  Returns 0 on success, -1 on
  5142. +    failure.  */
  5143. + 
  5144. + int
  5145. + _swap_read_from_handle (int handle, void _far *buffer, off_t size)
  5146. + {
  5147. +   _swap_rewind (handle);
  5148. + 
  5149. +   while (size > 0L)
  5150. +     {
  5151. +       size_t bytes = (size_t) min (size, FILE_IO_BLKSIZE);
  5152. +       size_t bytes_read = _swap_read (handle, buffer, bytes);
  5153. +       if (bytes_read != bytes)
  5154. +     return -1;
  5155. +       FP_ADD (buffer, bytes);
  5156. +       size -= bytes;
  5157. +     }
  5158. + 
  5159. +   return 0;
  5160. + }
  5161. + 
  5162. + size_t
  5163. + _swap_read (int handle, void _far *buffer, size_t bytes)
  5164. + {
  5165. +   _asm
  5166. +     {
  5167. +       push    ds
  5168. +       mov    dx, word ptr buffer    /* offset */
  5169. +       mov    ax, word ptr buffer + 2 /* segment */
  5170. +       mov    ds, ax
  5171. +       mov    bx, handle
  5172. +       mov    cx, bytes
  5173. +       mov    ah, 0x3f        /* MS-DOS Read Handle */
  5174. +       int    0x21
  5175. +       jnc    done
  5176. +       mov    ax, 0xffff
  5177. +     done:
  5178. +       pop    ds
  5179. +     }
  5180. + }
  5181. + 
  5182. + 
  5183. + /* Rewind the file pointer for HANDLE to the beginning of the file.  */
  5184. + 
  5185. + int
  5186. + _swap_rewind (int handle)
  5187. + {
  5188. +   _asm
  5189. +     {
  5190. +       mov    bx, handle
  5191. +       mov    cx, 0x0000    /* offset = 0 */
  5192. +       mov    dx, 0x0000
  5193. +       mov    ax, 0x4200    /* MS-DOS Move File Pointer, (beginning) */
  5194. +       int    0x21
  5195. +       jc    failed
  5196. +       mov    ax, 0x0000
  5197. +     failed:
  5198. +     }
  5199. + }
  5200. + 
  5201. + /* XMS interface */
  5202. + 
  5203. + int
  5204. + _swap_xms_move_out (int handle, void _far *buffer, long bytes)
  5205. + {
  5206. +   _swap_xms_move_table.length = bytes;
  5207. +   _swap_xms_move_table.src_handle = 0x0000;
  5208. +   _swap_xms_move_table.src_offset = (long) buffer;
  5209. +   _swap_xms_move_table.dest_handle = handle;
  5210. +   _swap_xms_move_table.dest_offset = 0L;
  5211. + 
  5212. +   _swap_xms_move ();
  5213. + }
  5214. + 
  5215. + int
  5216. + _swap_xms_move_in (int handle, void _far *buffer, long bytes)
  5217. + {
  5218. +   _swap_xms_move_table.length = bytes;
  5219. +   _swap_xms_move_table.dest_handle = 0x0000;
  5220. +   _swap_xms_move_table.dest_offset = (long) buffer;
  5221. +   _swap_xms_move_table.src_handle = handle;
  5222. +   _swap_xms_move_table.src_offset = 0L;
  5223. + 
  5224. +   _swap_xms_move ();
  5225. + }
  5226. + 
  5227. + int
  5228. + _swap_xms_move (void)
  5229. + {
  5230. +   _asm
  5231. +     {
  5232. +       push    ds
  5233. +       mov    si, offset _swap_xms_move_table
  5234. +       mov    ax, seg _swap_xms_move_table
  5235. +       mov    ds, ax
  5236. +       mov    ah, 0x0b
  5237. +       call    far ptr cs:[_swap_xms_control]
  5238. +       cmp    ax, 0x0001
  5239. +       jne    failed
  5240. +       mov    ax, 0x0000
  5241. +       jmp    done
  5242. +     failed:
  5243. +       mov    ax, 0xffff
  5244. +     done:
  5245. +       pop    ds
  5246. +     }
  5247. + }
  5248. + 
  5249. + 
  5250. + #if 0
  5251. + 
  5252. + /* EMS interface */
  5253. + 
  5254. + #define PHYSICAL_PAGE    0x00
  5255. + 
  5256. + int
  5257. + _swap_move_to_ems (int handle, void _far *buffer, long bytes)
  5258. + {
  5259. +   int logical_page = 0;
  5260. + 
  5261. +   while (paras > 0)
  5262. +     {
  5263. +       unsigned int bytes = min (paras, 0x0400) << 4;
  5264. +       paras -= bytes >> 4;
  5265. +       if (ems_map_logical_page (handle, logical_page++))
  5266. +     return -1;
  5267. +       memcpy (swappee.ems_page_frame, &msdos_child_environment, bytes);
  5268. +     }
  5269. + 
  5270. +   return 0;
  5271. + }
  5272. + 
  5273. + 
  5274. + int
  5275. + _swap_move_from_ems (int handle, void _far *buffer, long bytes)
  5276. + {
  5277. +   int logical_page = 0;
  5278. + 
  5279. +   while (paras > 0)
  5280. +     {
  5281. +       unsigned int bytes = min (paras, 0x0400) << 4;
  5282. +       paras -= bytes >> 4;
  5283. +       if (ems_map_logical_page (handle, logical_page++))
  5284. +     return -1;
  5285. +       memcpy (&msdos_child_environment, swappee.ems_page_frame, bytes);
  5286. +     }
  5287. + 
  5288. +   return 0;
  5289. + }
  5290. + 
  5291. + 
  5292. + int
  5293. + _swap_ems_map_logical_page (int handle, int logical_page)
  5294. + {
  5295. +   _asm
  5296. +     {
  5297. +       mov    dx, handle
  5298. +       mov    bx, logical_page
  5299. +       mov    ax, 0x4400 + PHYSICAL_PAGE    /* EMS Map Page */
  5300. +       int    0x67
  5301. +       mov    cl,  8                /* "mov ax, ah" */
  5302. +       shr    ax, cl
  5303. +     }
  5304. + }
  5305. + 
  5306. + void
  5307. + _swap_ems_save_page_map (int handle)
  5308. + {
  5309. +   _asm
  5310. +     {
  5311. +       mov    dx, handle
  5312. +       mov    ah, 0x47            /* EMS Save Page Map */
  5313. +       int    0x67
  5314. +       mov    cl,  8                /* "mov ax, ah" */
  5315. +       shr    ax, cl
  5316. +     }
  5317. + }
  5318. + 
  5319. + void
  5320. + _swap_ems_restore_page_map (int handle)
  5321. + {
  5322. +   _asm
  5323. +     {
  5324. +       mov    dx, handle
  5325. +       mov    ah, 0x48            /* EMS Restore Page Map */
  5326. +       int    0x67
  5327. +       mov    cl,  8                /* "mov ax, ah" */
  5328. +       shr    ax, cl
  5329. +     }
  5330. + }
  5331. + 
  5332. + #endif /* NEVER */
  5333. + 
  5334. + /* Signal handling */
  5335. + 
  5336. + /* Simple ^C handler that displays a short message and waits for the child
  5337. +    to return.  Set a flag _swap_user_interrupt which can be used to
  5338. +    determine, whether such an event occured.
  5339. +    Note:  resetting the C library signals is NOT enough, since even the
  5340. +    default handlers use at least some library code.  */
  5341. + 
  5342. + void _interrupt _far
  5343. + _swap_int23_handler (void)
  5344. + {
  5345. +   _swap_user_interrupt = 1;
  5346. + 
  5347. +   _asm
  5348. +     {
  5349. +       sti            /* want to access DOS */
  5350. +       mov    ax, cs        /* ds = cs */
  5351. +       mov    ds, ax
  5352. +       mov    bx, 0x02    /* /dev/stderr */
  5353. +       mov    dx, offset _swap_int23_handler_message
  5354. +       mov    cx, length _swap_int23_handler_message
  5355. +       mov    ah, 0x40    /* MS-DOS Write Handle */
  5356. +       int    0x21
  5357. +     }
  5358. + }
  5359. + 
  5360. + /* The transient part starts here. */
  5361. + #pragma check_stack ()
  5362. + 
  5363. + /* Install the global parameters.  Execute this as the first function, since
  5364. +    some macros need _swap_psp with the correct value.  */
  5365. + 
  5366. + void
  5367. + install_parameters (char *path, char *cmdline, char *env, size_t size)
  5368. + {
  5369. +   size_t len = strlen (cmdline);
  5370. +   struct mcb_info far *mcb;
  5371. + 
  5372. +   _fstrcpy ((char _far *) _swap_path, (char _far *) path);
  5373. + 
  5374. +   *_swap_cmdline = (char) len;
  5375. +   _fstrcpy ((char _far *) _swap_cmdline + 1, (char _far *) cmdline);
  5376. +   _swap_cmdline[len+1] = '\r';
  5377. + 
  5378. +   _swap_environment_ptr = env;    /* this will be copied later */
  5379. +   _swap_environment_size = size;
  5380. + 
  5381. +   _swap_psp = _psp;    /* put them into a save place. */
  5382. +   _swap_first_block_paras = FIRST_MCB (mcb)->length;
  5383. + }
  5384. + 
  5385. + 
  5386. + /* Allocate a swap file named NAME, making sure that at least SIZE bytes
  5387. +    are available on the disk.  Returns a MS-DOS handle (not to be
  5388. +    confused with a C file-descriptor!).  */
  5389. + 
  5390. + int
  5391. + alloc_swap_file (char *name, off_t size)
  5392. + {
  5393. +   struct diskfree_t disk_free;
  5394. +   unsigned drive;
  5395. +   off_t free;
  5396. +   int handle;
  5397. + 
  5398. +   if (name == NULL || *name == '\0')    /* could create filename ourselves. */
  5399. +     return -1;
  5400. + 
  5401. +   if (name[1] == ':')
  5402. +     drive = tolower (*name) - 'a' + 1;
  5403. +   else
  5404. +     /* Get current drive. */
  5405. +     _dos_getdrive (&drive);
  5406. + 
  5407. +   _dos_getdiskfree (drive, &disk_free);
  5408. + 
  5409. +   free = (off_t) disk_free.avail_clusters *
  5410. +     (off_t) disk_free.sectors_per_cluster * (off_t) disk_free.bytes_per_sector;
  5411. + 
  5412. +   if (free < size)
  5413. +     return (-1);
  5414. + 
  5415. +   if (_dos_creat (name, _A_NORMAL, &handle))
  5416. +     return (-1);
  5417. +   else
  5418. +     return handle;
  5419. + }
  5420. + 
  5421. + /* Close and delete the temporary file.  */
  5422. + 
  5423. + unsigned int
  5424. + cleanup_swap_file (unsigned int handle, char *name)
  5425. + {
  5426. +   return !_dos_close (handle) && !unlink (name);
  5427. + }
  5428. + 
  5429. + 
  5430. + /* More XMS */
  5431. + /* Microsoft's recommendation:  */
  5432. + 
  5433. + int
  5434. + xms_installed (void)
  5435. + {
  5436. +   _asm
  5437. +     {
  5438. +       mov    ax, 0x4300
  5439. +       int    0x2f
  5440. +       cmp    al, 0x80
  5441. +       jne    failed
  5442. +       mov    ax, 0x0001
  5443. +       jmp    done
  5444. +     failed:
  5445. +       mov    ax, 0x0000
  5446. +     done:
  5447. +     }
  5448. + }
  5449. + 
  5450. + void
  5451. + xms_get_control_function (void)
  5452. + {
  5453. +   _asm
  5454. +     {
  5455. +       mov    ax, 0x4310
  5456. +       int    0x2f
  5457. +       mov    word ptr cs:_swap_xms_control, bx
  5458. +       mov    bx, es
  5459. +       mov    word ptr cs:_swap_xms_control + 2, bx
  5460. +     }
  5461. + }
  5462. + 
  5463. + unsigned int
  5464. + xms_allocate_memory (unsigned int kilobytes)
  5465. + {
  5466. +   _asm
  5467. +     {
  5468. +       mov    dx, kilobytes
  5469. +       mov    ah, 0x09
  5470. +       call    far ptr cs:[_swap_xms_control]
  5471. +       cmp    ax, 0x0001
  5472. +       jne    failed
  5473. +       mov    ax, dx
  5474. +       jmp    done
  5475. +     failed:
  5476. +       mov    ax, 0xffff
  5477. +     done:
  5478. +     }
  5479. + }
  5480. + 
  5481. + unsigned int
  5482. + xms_free_memory (unsigned int handle)
  5483. + {
  5484. +   _asm
  5485. +     {
  5486. +       mov    dx, handle
  5487. +       mov    ah, 0x0a
  5488. +       call    far ptr cs:[_swap_xms_control]
  5489. +       cmp    ax, 0x0001
  5490. +       je    done
  5491. +       mov    ax, 0x0000
  5492. +     done:
  5493. +     }
  5494. + }
  5495. + 
  5496. + 
  5497. + #if 0
  5498. + 
  5499. + /* More EMS */
  5500. + 
  5501. + /* Test for presence of LIM EMS 4.0.
  5502. +    (this procedure is taken from the LIM specification).  */
  5503. + 
  5504. + int
  5505. + _swap_ems_present (void)
  5506. + {
  5507. +   static char _far ems_id[] = "EMMXXXX0"; /* LIM EMS 4.0 identification. */
  5508. +   char _far *ems_device = (char _far *) _dos_getvect (0x67);
  5509. + 
  5510. +   FP_OFF (ems_device) = 0x000a;
  5511. + 
  5512. +   return !_fstrcmp (ems_id, ems_device);
  5513. + }
  5514. + 
  5515. + /* Allocate pages from the EMS Manager.  Returns handle or -1 no error.  */
  5516. + 
  5517. + int
  5518. + _swap_ems_alloc_pages (int n)
  5519. + {
  5520. +   _asm
  5521. +     {
  5522. +       mov    bx, n
  5523. +       mov    ah, 0x43    /* EMS Allocate Pages */
  5524. +       int    0x67
  5525. +       cmp    ah, 0x00
  5526. +       jz    success
  5527. +       mov    ax, 0xffff    /* failure */
  5528. +       ret
  5529. +     success:
  5530. +       mov    ax, dx        /* return handle */
  5531. +     }
  5532. + }
  5533. + 
  5534. + /* Free pages allocated for HANDLE.  Returns 0 if successful.  */
  5535. + 
  5536. + int
  5537. + _swap_ems_free_pages (int handle)
  5538. + {
  5539. +   _asm
  5540. +     {
  5541. +       mov    dx, handle
  5542. +       mov    ah, 0x45    /* EMS Free Pages */
  5543. +       int    0x67
  5544. +       mov    cl, 8        /* "mov ax, ah" */
  5545. +       shr    ax, cl
  5546. +     }
  5547. + }
  5548. + 
  5549. + /* Return far pointer to EMS page frame.  */
  5550. + 
  5551. + void _far *
  5552. + _swap_ems_get_page_frame (void)
  5553. + {
  5554. +   void _far *frame = (void _far *) 0;
  5555. + 
  5556. +   _asm
  5557. +     {
  5558. +       mov    ah, 0x41        /* EMS Page Frame */
  5559. +       int    0x67
  5560. +       cmp    ah, 0x00
  5561. +       jz    success
  5562. +       ret                /* failure */
  5563. +     success:
  5564. +       mov    word ptr frame + 2, bx    /* segment of page frame */
  5565. +     }
  5566. + 
  5567. +   return frame;
  5568. + }
  5569. + 
  5570. + #endif /* NEVER */
  5571. + 
  5572. + /* Return the last MCB owned by us.
  5573. +    WARNING:  This assumes that _swap_psp has already been set to _PSP
  5574. +          (e.g. by install_parameters())   */
  5575. + 
  5576. + struct mcb_info far *
  5577. + last_mcb (void)
  5578. + {
  5579. +   struct mcb_info far *mcb;
  5580. +   struct mcb_info far *ret;
  5581. + 
  5582. +   FIRST_MCB (mcb);
  5583. + 
  5584. +   while (mcb->id_byte == 'M')
  5585. +     {
  5586. +       if (OUR_MCB (mcb))
  5587. +     ret = NEXT_MCB (mcb);
  5588. +       else
  5589. +     NEXT_MCB (mcb);
  5590. +     }
  5591. + 
  5592. +   if (mcb->id_byte == 'Z')    /* found the end */
  5593. +     return ret;
  5594. +   else                /* error */
  5595. +     return NULL;
  5596. + }
  5597. + 
  5598. + 
  5599. + /* MODE is the preferred swapping mode, if XMS or EMS are requested but not
  5600. +    available, it is mapped to DISK.  PATH is the complete path of the program
  5601. +    to be executed, it must not be longer than MAX_MSDOS_PATH (=144).  CMDLINE
  5602. +    is the commandline to be passed to the program, it must not be longer than
  5603. +    MAX_MSDOS_CMDLINE (=126).  ENV is a well formed MS-DOS environment of
  5604. +    length LEN, including the terminating '\0's.  FILE is a valid filename,
  5605. +    which will be used for a possible disk swap file.  */
  5606. + 
  5607. + int
  5608. + spawn_child (enum swapping_mode mode, char *path, char *cmdline, char *env,
  5609. +          int len, char *file)
  5610. + {
  5611. +   int rc;
  5612. +   unsigned int (*cleanup_function) (unsigned int handle,...);
  5613. + 
  5614. +   install_parameters (path, cmdline, env, len);
  5615. + 
  5616. +   _swap_environment = (char _far *) FIRST_TO_SWAP;
  5617. +   FP_PARA_ALIGN (_swap_environment);
  5618. + 
  5619. +   _swap_swapped_bytes = (long) ((char _huge *) last_mcb ()
  5620. +             - (char _huge *) _swap_environment);
  5621. + 
  5622. +   switch (mode)
  5623. +     {
  5624. +     case ems:            /* not implemented yet */
  5625. +       /* fall through */
  5626. + 
  5627. +     case xms:
  5628. +       if (xms_installed ())
  5629. +     {
  5630. +       xms_get_control_function ();
  5631. +       _swap_out_function = _swap_xms_move_out;
  5632. +       _swap_in_function = _swap_xms_move_in;
  5633. +       cleanup_function = xms_free_memory;
  5634. +       _swap_handle = xms_allocate_memory (
  5635. +         (unsigned int) ((_swap_swapped_bytes + 0x03ff) >> 10) + 1);
  5636. +       if (_swap_handle != -1)
  5637. +         break;
  5638. +     }
  5639. +       /* fall through */
  5640. + 
  5641. +     case disk:
  5642. +       _swap_out_function = _swap_write_to_handle;
  5643. +       _swap_in_function = _swap_read_from_handle;
  5644. +       cleanup_function = cleanup_swap_file;
  5645. +       _swap_handle = alloc_swap_file (file, _swap_swapped_bytes);
  5646. +       if (_swap_handle == -1)
  5647. +     {
  5648. +       fprintf (stderr, "Out of swap space!\n");
  5649. +       exit (0);
  5650. +     }
  5651. +     }
  5652. + 
  5653. +   _swap_user_interrupt = 0;
  5654. +   _swap_caller_int23 = _dos_getvect (0x23);    /* temporarily disable ^C  */
  5655. +   _dos_setvect (0x23, _swap_int23_handler);
  5656. + 
  5657. +   rc = _swap_spawn_child ();
  5658. + 
  5659. +   if (_swap_user_interrupt)            /* did the user hit ^C ? */
  5660. +     rc = 0xffff;
  5661. +   _dos_setvect (0x23, _swap_caller_int23);
  5662. + 
  5663. +   cleanup_function (_swap_handle, file);
  5664. + 
  5665. +   return rc;
  5666. + }
  5667. + 
  5668. + 
  5669. + /* 
  5670. +  * Local Variables:
  5671. +  * mode:C
  5672. +  * minor-mode:auto-fill
  5673. +  * ChangeLog:ChangeLog
  5674. +  * compile-command:make
  5675. +  * End:
  5676. +  */
  5677. diff -cBdNp e:/gnu/make/gnu/variable.c ./variable.c
  5678. *** e:/gnu/make/gnu/variable.c    Tue Jul 24 00:53:28 1990
  5679. --- ./variable.c    Tue Jul 24 00:55:26 1990
  5680. *************** You should have received a copy of the G
  5681. *** 16,21 ****
  5682. --- 16,38 ----
  5683.   along with GNU Make; see the file COPYING.  If not, write to
  5684.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  5685.   
  5686. + /*
  5687. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  5688. +  *
  5689. +  * To this port, the same copying conditions apply as to the
  5690. +  * original release.
  5691. +  *
  5692. +  * IMPORTANT:
  5693. +  * This file is not identical to the original GNU release!
  5694. +  * You should have received this code as patch to the official
  5695. +  * GNU release.
  5696. +  *
  5697. +  * MORE IMPORTANT:
  5698. +  * This port comes with ABSOLUTELY NO WARRANTY.
  5699. +  *
  5700. +  * $Header: e:/gnu/make/RCS/variable.c'v 3.58.0.3 90/07/20 11:27:29 tho Exp $
  5701. +  */
  5702. + 
  5703.   #include "make.h"
  5704.   #include "commands.h"
  5705.   #include "variable.h"
  5706. *************** the Free Software Foundation, 675 Mass A
  5707. *** 22,27 ****
  5708. --- 39,51 ----
  5709.   #include "dep.h"
  5710.   #include "file.h"
  5711.   
  5712. + #ifdef MSDOS
  5713. + #define DEFAULT_SHELL "command"
  5714. + #else /* not MSDOS */
  5715. + #define DEFAULT_SHELL "/bin/sh"
  5716. + #endif /* not MSDOS */
  5717. + 
  5718. + #ifndef MSDOS
  5719.   #ifdef    __GNUC__
  5720.   #define    max(a, b) \
  5721.     ({ register int __a = (a), __b = (b); __a > __b ? __a : __b; })
  5722. *************** the Free Software Foundation, 675 Mass A
  5723. *** 28,33 ****
  5724. --- 52,58 ----
  5725.   #else
  5726.   #define max(a, b) ((a) > (b) ? (a) : (b))
  5727.   #endif
  5728. + #endif /* not MSDOS */
  5729.   
  5730.   
  5731.   /* Hash table of all global variable definitions.  */
  5732. *************** struct variable_set_list *current_variab
  5733. *** 56,61 ****
  5734. --- 81,96 ----
  5735.   
  5736.   static unsigned int variable_buffer_length;
  5737.   static char *variable_buffer;
  5738. + 
  5739. + #ifdef MSDOS
  5740. + static struct variable *define_variable_in_set (char *name,
  5741. +         unsigned int length, char *value, enum variable_origin origin,
  5742. +         int recursive, struct variable_set *set);
  5743. + static void print_variable (struct variable *v, char *prefix);
  5744. + static void print_variable_set (struct variable_set *set, char *prefix);
  5745. + static void merge_variable_sets (struct variable_set *set0,
  5746. +                  struct variable_set *set1);
  5747. + #endif /* MSDOS */
  5748.   
  5749.   /* Implement variables.  */
  5750.   
  5751. *************** define_automatic_variables ()
  5752. *** 364,370 ****
  5753.   
  5754.     /* This won't override any definition, but it
  5755.        will provide one if there isn't one there.  */
  5756. !   v = define_variable ("SHELL", 5, "/bin/sh", o_default, 0);
  5757.   
  5758.     /* Don't let SHELL come from the environment
  5759.        if MAKELEVEL is 0.  Also, SHELL must not be empty.  */
  5760. --- 399,405 ----
  5761.   
  5762.     /* This won't override any definition, but it
  5763.        will provide one if there isn't one there.  */
  5764. !   v = define_variable ("SHELL", 5, DEFAULT_SHELL, o_default, 0);
  5765.   
  5766.     /* Don't let SHELL come from the environment
  5767.        if MAKELEVEL is 0.  Also, SHELL must not be empty.  */
  5768. *************** define_automatic_variables ()
  5769. *** 371,378 ****
  5770.     if (*v->value == '\0' || (v->origin == o_env && makelevel == 0))
  5771.       {
  5772.         v->origin = o_file;
  5773. !       v->value = savestring ("/bin/sh", 7);
  5774.       }
  5775.   }
  5776.   
  5777.   /* Subroutine of variable_expand and friends:
  5778. --- 406,414 ----
  5779.     if (*v->value == '\0' || (v->origin == o_env && makelevel == 0))
  5780.       {
  5781.         v->origin = o_file;
  5782. !       v->value = savestring (DEFAULT_SHELL, 7);
  5783.       }
  5784. + 
  5785.   }
  5786.   
  5787.   /* Subroutine of variable_expand and friends:
  5788. diff -cBdNp e:/gnu/make/gnu/variable.h ./variable.h
  5789. *** e:/gnu/make/gnu/variable.h    Tue Jul 24 00:53:28 1990
  5790. --- ./variable.h    Tue Jul 24 00:55:28 1990
  5791. *************** You should have received a copy of the G
  5792. *** 15,20 ****
  5793. --- 15,37 ----
  5794.   along with GNU Make; see the file COPYING.  If not, write to
  5795.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  5796.   
  5797. + /*
  5798. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  5799. +  *
  5800. +  * To this port, the same copying conditions apply as to the
  5801. +  * original release.
  5802. +  *
  5803. +  * IMPORTANT:
  5804. +  * This file is not identical to the original GNU release!
  5805. +  * You should have received this code as patch to the official
  5806. +  * GNU release.
  5807. +  *
  5808. +  * MORE IMPORTANT:
  5809. +  * This port comes with ABSOLUTELY NO WARRANTY.
  5810. +  *
  5811. +  * $Header: e:/gnu/make/RCS/variable.h'v 3.58.0.2 90/07/17 03:32:57 tho Exp $
  5812. +  */
  5813. + 
  5814.   /* Codes in a variable definition saying where the definition came from.
  5815.      Increasing numeric values signify less-overridable definitions.  */
  5816.   enum variable_origin
  5817. *************** struct variable_set_list
  5818. *** 63,94 ****
  5819.   extern struct variable_set_list *current_variable_set_list;
  5820.   
  5821.   
  5822.   extern char *variable_buffer_output ();
  5823.   extern char *initialize_variable_output ();
  5824.   extern char *save_variable_output ();
  5825.   extern void restore_variable_output ();
  5826.   
  5827.   extern void push_new_variable_scope (), pop_variable_scope ();
  5828.   
  5829.   extern int handle_function ();
  5830. ! 
  5831.   extern char *variable_expand (), *allocated_variable_expand ();
  5832.   extern char *variable_expand_for_file ();
  5833.   extern char *allocated_variable_expand_for_file ();
  5834.   extern char *expand_argument ();
  5835.   
  5836.   extern void define_automatic_variables ();
  5837.   extern void initialize_file_variables ();
  5838.   extern void print_file_variables ();
  5839.   
  5840.   extern void merge_variable_set_lists ();
  5841.   
  5842.   extern int try_variable_definition ();
  5843.   
  5844.   extern struct variable *lookup_variable (), *define_variable ();
  5845.   extern struct variable *define_variable_for_file ();
  5846.   
  5847.   extern int pattern_matches ();
  5848.   extern char *subst_expand (), *patsubst_expand ();
  5849.   
  5850.   extern char **target_environment ();
  5851. --- 80,177 ----
  5852.   extern struct variable_set_list *current_variable_set_list;
  5853.   
  5854.   
  5855. + /* variable.c */
  5856. + extern  void print_variable_data_base (void);
  5857. + 
  5858. + #ifdef  MSDOS
  5859. + extern  char *variable_buffer_output (char *ptr, char *string,
  5860. +                       unsigned int length);
  5861. + extern  char *initialize_variable_output (void);
  5862. + extern  char *save_variable_output (void);
  5863. + extern  void restore_variable_output (char *save);
  5864. + #else /* not MSDOS */
  5865.   extern char *variable_buffer_output ();
  5866.   extern char *initialize_variable_output ();
  5867.   extern char *save_variable_output ();
  5868.   extern void restore_variable_output ();
  5869. + #endif /* not MSDOS */
  5870.   
  5871. + #ifdef  MSDOS
  5872. + extern  void push_new_variable_scope (void);
  5873. + extern  void pop_variable_scope (void);
  5874. + #else /* not MSDOS */
  5875.   extern void push_new_variable_scope (), pop_variable_scope ();
  5876. + #endif /* not MSDOS */
  5877.   
  5878. + #ifdef  MSDOS
  5879. + extern  int handle_function (char **op, char **stringp);
  5880. + #else /* not MSDOS */
  5881.   extern int handle_function ();
  5882. ! #endif /* not MSDOS */
  5883. !   
  5884. ! #ifdef  MSDOS
  5885. ! extern  char *allocated_variable_expand (char *line);
  5886. ! extern  char *allocated_var_exp_for_file (char *line, struct file *file);
  5887. ! extern  char *expand_argument (char *str, char *end);
  5888. ! extern  char *variable_expand (char *line);
  5889. ! extern  char *variable_expand_for_file (char *line, struct file *file);
  5890. ! #else /* not MSDOS */
  5891.   extern char *variable_expand (), *allocated_variable_expand ();
  5892.   extern char *variable_expand_for_file ();
  5893.   extern char *allocated_variable_expand_for_file ();
  5894.   extern char *expand_argument ();
  5895. + #endif /* not MSDOS */
  5896.   
  5897. + #ifdef  MSDOS
  5898. + extern  void define_automatic_variables (void);
  5899. + extern  void initialize_file_variables (struct file *file);
  5900. + #else /* not MSDOS */
  5901.   extern void define_automatic_variables ();
  5902.   extern void initialize_file_variables ();
  5903. + #endif /* not MSDOS */
  5904. + 
  5905.   extern void print_file_variables ();
  5906.   
  5907. + #ifdef MSDOS
  5908. + extern void merge_variable_set_lists (struct variable_set_list **setlist0,
  5909. +                       struct variable_set_list *setlist1);
  5910. + #else /* not MSDOS */
  5911.   extern void merge_variable_set_lists ();
  5912. + #endif /* not MSDOS */
  5913. + 
  5914.   
  5915. + #ifdef  MSDOS
  5916. + extern  int try_variable_definition (char *line, enum variable_origin origin);
  5917. + #else /* not MSDOS */
  5918.   extern int try_variable_definition ();
  5919. + #endif /* not MSDOS */
  5920.   
  5921. + #ifdef  MSDOS
  5922. + extern  struct variable *define_variable (char *name, unsigned int length,
  5923. +         char *value, enum variable_origin origin, int recursive);
  5924. + extern  struct variable *define_variable_for_file (char *name,
  5925. +         unsigned int length, char *value,
  5926. +         enum variable_origin origin, int recursive, struct file *file);
  5927. + extern  struct variable *lookup_variable (char *name, unsigned int length);
  5928. + #else /* not MSDOS */
  5929.   extern struct variable *lookup_variable (), *define_variable ();
  5930.   extern struct variable *define_variable_for_file ();
  5931. + #endif /* not MSDOS */
  5932.   
  5933. + #ifdef  MSDOS
  5934. + extern int pattern_matches (char *pattern, char *percent, char *word);
  5935. + extern char *patsubst_expand (char *o, char *text, char *pattern,
  5936. +         char *replace, char *pattern_percent, char *replace_percent);
  5937. + extern char *subst_expand (char *o, char *text, char *subst, char *replace,
  5938. +         unsigned int slen, unsigned int rlen, int by_word,
  5939. +         int suffix_only);
  5940. + #else /* not MSDOS */
  5941.   extern int pattern_matches ();
  5942.   extern char *subst_expand (), *patsubst_expand ();
  5943. + #endif /* not MSDOS */
  5944.   
  5945. + #ifdef  MSDOS
  5946. + extern  char **target_environment (struct file *file);
  5947. + #else /* not MSDOS */
  5948.   extern char **target_environment ();
  5949. + #endif /* not MSDOS */
  5950. diff -cBdNp e:/gnu/make/gnu/version.c ./version.c
  5951. *** e:/gnu/make/gnu/version.c    Tue Jul 24 00:53:30 1990
  5952. --- ./version.c    Tue Jul 24 00:55:30 1990
  5953. ***************
  5954. *** 1,4 ****
  5955. --- 1,9 ----
  5956.   char *version_string = "3.58";
  5957. + 
  5958. + #ifdef MSDOS
  5959. + char *msdos_version_string = __DATE__ ", " __TIME__;
  5960. + #endif /* MSDOS */
  5961. + 
  5962.   
  5963.   /*
  5964.     Local variables:
  5965. diff -cBdNp e:/gnu/make/gnu/vpath.c ./vpath.c
  5966. *** e:/gnu/make/gnu/vpath.c    Tue Jul 24 00:53:32 1990
  5967. --- ./vpath.c    Tue Jul 24 00:55:34 1990
  5968. *************** You should have received a copy of the G
  5969. *** 15,24 ****
  5970. --- 15,46 ----
  5971.   along with GNU Make; see the file COPYING.  If not, write to
  5972.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  5973.   
  5974. + /*
  5975. +  * MS-DOS port (c) 1990 by Thorsten Ohl <td12@ddagsi3.bitnet>
  5976. +  *
  5977. +  * To this port, the same copying conditions apply as to the
  5978. +  * original release.
  5979. +  *
  5980. +  * IMPORTANT:
  5981. +  * This file is not identical to the original GNU release!
  5982. +  * You should have received this code as patch to the official
  5983. +  * GNU release.
  5984. +  *
  5985. +  * MORE IMPORTANT:
  5986. +  * This port comes with ABSOLUTELY NO WARRANTY.
  5987. +  *
  5988. +  * $Header: e:/gnu/make/RCS/vpath.c'v 3.58.0.2 90/07/17 23:21:21 tho Exp $
  5989. +  */
  5990. + 
  5991.   #include "make.h"
  5992.   #include "file.h"
  5993.   #include "variable.h"
  5994.   
  5995. + #ifdef MSDOS
  5996. + #define PATHSEP    ';'
  5997. + #else
  5998. + #define PATHSEP    ':'
  5999. + #endif
  6000.   
  6001.   /* Structure used to represent a selective VPATH searchpath.  */
  6002.   
  6003. *************** static struct vpath *vpaths;
  6004. *** 40,46 ****
  6005. --- 62,72 ----
  6006.   
  6007.   static struct vpath *general_vpath;
  6008.   
  6009. + #ifdef MSDOS
  6010. + static  int selective_vpath_search (struct vpath *path, char **file);
  6011. + #else /* not MSDOS */
  6012.   static int selective_vpath_search ();
  6013. + #endif /* not MSDOS */
  6014.   
  6015.   /* Reverse the chain of selective VPATH lists so they
  6016.      will be searched in the order given in the makefiles
  6017. *************** construct_vpath_list (pattern, dirpath)
  6018. *** 149,155 ****
  6019.   
  6020.     /* Skip over any initial colons.  */
  6021.     p = dirpath;
  6022. !   while (*p == ':')
  6023.       ++p;
  6024.   
  6025.     /* Figure out the maximum number of VPATH entries and
  6026. --- 175,181 ----
  6027.   
  6028.     /* Skip over any initial colons.  */
  6029.     p = dirpath;
  6030. !   while (*p == PATHSEP)
  6031.       ++p;
  6032.   
  6033.     /* Figure out the maximum number of VPATH entries and
  6034. *************** construct_vpath_list (pattern, dirpath)
  6035. *** 158,164 ****
  6036.        increment our estimated number for each colon we find.  */
  6037.     maxelem = 2;
  6038.     while (*p != '\0')
  6039. !     if (*p++ == ':')
  6040.         ++maxelem;
  6041.   
  6042.     vpath = (char **) xmalloc (maxelem * sizeof (char *));
  6043. --- 184,190 ----
  6044.        increment our estimated number for each colon we find.  */
  6045.     maxelem = 2;
  6046.     while (*p != '\0')
  6047. !     if (*p++ == PATHSEP)
  6048.         ++maxelem;
  6049.   
  6050.     vpath = (char **) xmalloc (maxelem * sizeof (char *));
  6051. *************** construct_vpath_list (pattern, dirpath)
  6052. *** 172,178 ****
  6053.         unsigned int len;
  6054.   
  6055.         /* Find the next entry.  */
  6056. !       while (*p != '\0' && *p == ':')
  6057.       ++p;
  6058.         if (*p == '\0')
  6059.       break;
  6060. --- 198,204 ----
  6061.         unsigned int len;
  6062.   
  6063.         /* Find the next entry.  */
  6064. !       while (*p != '\0' && *p == PATHSEP)
  6065.       ++p;
  6066.         if (*p == '\0')
  6067.       break;
  6068. *************** construct_vpath_list (pattern, dirpath)
  6069. *** 179,185 ****
  6070.   
  6071.         /* Find the end of this entry.  */
  6072.         v = p;
  6073. !       while (*p != '\0' && *p != ':')
  6074.       ++p;
  6075.   
  6076.         len = p - v;
  6077. --- 205,211 ----
  6078.   
  6079.         /* Find the end of this entry.  */
  6080.         v = p;
  6081. !       while (*p != '\0' && *p != PATHSEP)
  6082.       ++p;
  6083.   
  6084.         len = p - v;
  6085. *************** print_vpath_data_base ()
  6086. *** 379,385 ****
  6087.   
  6088.         for (i = 0; v->searchpath[i] != 0; ++i)
  6089.       printf ("%s%c", v->searchpath[i],
  6090. !         v->searchpath[i + 1] == 0 ? '\n' : ':');
  6091.       }
  6092.   
  6093.     if (vpaths == 0)
  6094. --- 405,411 ----
  6095.   
  6096.         for (i = 0; v->searchpath[i] != 0; ++i)
  6097.       printf ("%s%c", v->searchpath[i],
  6098. !         v->searchpath[i + 1] == 0 ? '\n' : PATHSEP);
  6099.       }
  6100.   
  6101.     if (vpaths == 0)
  6102. *************** print_vpath_data_base ()
  6103. *** 397,402 ****
  6104.         fputs ("\n# General (`VPATH' variable) search path:\n# ", stdout);
  6105.   
  6106.         for (i = 0; path[i] != 0; ++i)
  6107. !     printf ("%s%c", path[i], path[i + 1] == 0 ? '\n' : ':');
  6108.       }
  6109.   }
  6110. --- 423,428 ----
  6111.         fputs ("\n# General (`VPATH' variable) search path:\n# ", stdout);
  6112.   
  6113.         for (i = 0; path[i] != 0; ++i)
  6114. !     printf ("%s%c", path[i], path[i + 1] == 0 ? '\n' : PATHSEP);
  6115.       }
  6116.   }
  6117. diff -cBdNp e:/gnu/make/gnu/zipscan.c ./zipscan.c
  6118. *** e:/gnu/make/gnu/zipscan.c    Tue Jul 24 00:56:27 1990
  6119. --- ./zipscan.c    Tue Jul 24 00:55:50 1990
  6120. ***************
  6121. *** 0 ****
  6122. --- 1,794 ----
  6123. + /*  zipscan.c - scan .zip archives
  6124. +     Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  6125. + 
  6126. +     This program is free software; you can redistribute it and/or modify
  6127. +     it under the terms of the GNU General Public License as published by
  6128. +     the Free Software Foundation; either version 1, or (at your option)
  6129. +     any later version.
  6130. + 
  6131. +     This program is distributed in the hope that it will be useful,
  6132. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  6133. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  6134. +     GNU General Public License for more details.
  6135. + 
  6136. +     You should have received a copy of the GNU General Public License
  6137. +     along with this program; if not, write to the Free Software
  6138. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  6139. + 
  6140. +     IMPORTANT:
  6141. + 
  6142. +     This code is not an official part of the GNU project and the
  6143. +     author is not affiliated to the Free Software Foundation.
  6144. +     He just likes their code and spirit.  */
  6145. + 
  6146. + static char RCS_id[] =
  6147. + "$Header: e:/gnu/make/RCS/zipscan.c'v 0.2 90/07/18 22:23:26 tho Exp $";
  6148. + 
  6149. + /* The following section is taken from the file appnote.txt
  6150. +    (from the PK(UN)?ZIP v1.1 distribution).  */
  6151. + 
  6152. + /*
  6153. + 
  6154. + General Format of a ZIP file
  6155. + ----------------------------
  6156. + 
  6157. +   Files stored in arbitrary order.  Large zipfiles can span multiple
  6158. +   diskette media.
  6159. + 
  6160. +   Overall zipfile format:
  6161. + 
  6162. +     [local file header+file data] . . .
  6163. +     [central directory] end of central directory record
  6164. + 
  6165. + 
  6166. +   A.  Local file header:
  6167. + 
  6168. +     local file header signature    4 bytes  (0x04034b50)
  6169. +     version needed to extract    2 bytes
  6170. +     general purpose bit flag    2 bytes
  6171. +     compression method        2 bytes
  6172. +     last mod file time         2 bytes
  6173. +     last mod file date        2 bytes
  6174. +     crc-32               4 bytes
  6175. +     compressed size            4 bytes
  6176. +     uncompressed size        4 bytes
  6177. +     filename length            2 bytes
  6178. +     extra field length        2 bytes
  6179. + 
  6180. +     filename (variable size)
  6181. +     extra field (variable size)
  6182. + 
  6183. + 
  6184. +   B.  Central directory structure:
  6185. + 
  6186. +       [file header] . . .  end of central dir record
  6187. + 
  6188. +       File header:
  6189. + 
  6190. +     central file header signature    4 bytes  (0x02014b50)
  6191. +     version made by            2 bytes
  6192. +     version needed to extract    2 bytes
  6193. +     general purpose bit flag    2 bytes
  6194. +     compression method        2 bytes
  6195. +     last mod file time         2 bytes
  6196. +     last mod file date        2 bytes
  6197. +     crc-32               4 bytes
  6198. +     compressed size            4 bytes
  6199. +     uncompressed size        4 bytes
  6200. +     filename length            2 bytes
  6201. +     extra field length        2 bytes
  6202. +     file comment length        2 bytes
  6203. +     disk number start        2 bytes
  6204. +     internal file attributes    2 bytes
  6205. +     external file attributes    4 bytes
  6206. +     relative offset of local header    4 bytes
  6207. + 
  6208. +     filename (variable size)
  6209. +     extra field (variable size)
  6210. +     file comment (variable size)
  6211. + 
  6212. +       End of central dir record:
  6213. + 
  6214. +     end of central dir signature    4 bytes  (0x06054b50)
  6215. +     number of this disk        2 bytes
  6216. +     number of the disk with the
  6217. +     start of the central directory    2 bytes
  6218. +     total number of entries in
  6219. +     the central dir on this disk    2 bytes
  6220. +     total number of entries in
  6221. +     the central dir            2 bytes
  6222. +     size of the central directory   4 bytes
  6223. +     offset of start of central
  6224. +     directory with respect to
  6225. +     the starting disk number    4 bytes
  6226. +     zipfile comment length        2 bytes
  6227. +     zipfile comment (variable size)
  6228. + 
  6229. + 
  6230. + 
  6231. + 
  6232. +   C.  Explanation of fields:
  6233. + 
  6234. +       version made by
  6235. + 
  6236. +       The upper byte indicates the host system (OS) for the
  6237. +       file.  Software can use this information to determine
  6238. +       the line record format for text files etc.  The current
  6239. +       mappings are:
  6240. + 
  6241. +       0 - MS-DOS and OS/2 (F.A.T. file systems)
  6242. +       1 - Amiga            2 - VMS
  6243. +       3 - *nix            4 - VM/CMS
  6244. +       5 - Atari ST                  6 - OS/2 H.P.F.S.
  6245. +       7 - Macintosh            8 - Z-System
  6246. +       9 - CP/M            10 thru 255 - unused
  6247. + 
  6248. +       The lower byte indicates the version number of the
  6249. +       software used to encode the file.  The value/10
  6250. +       indicates the major version number, and the value
  6251. +       mod 10 is the minor version number.
  6252. + 
  6253. +       version needed to extract
  6254. + 
  6255. +       The minimum software version needed to extract the
  6256. +       file, mapped as above.
  6257. + 
  6258. +       general purpose bit flag:
  6259. + 
  6260. +           bit 0: If set, indicates that the file is encrypted.
  6261. +           bit 1: If the compression method used was type 6,
  6262. +          Imploding, then this bit, if set, indicates
  6263. +          an 8K sliding dictionary was used.  If clear,
  6264. +          then a 4K sliding dictionary was used.
  6265. +           bit 2: If the compression method used was type 6,
  6266. +          Imploding, then this bit, if set, indicates
  6267. +          an 3 Shannon-Fano trees were used to encode the
  6268. +          sliding dictionary output.  If clear, then 2
  6269. +          Shannon-Fano trees were used.
  6270. +       Note:  Bits 1 and 2 are undefined if the compression
  6271. +          method is other than type 6 (Imploding).
  6272. + 
  6273. +           The upper three bits are reserved and used internally
  6274. +       by the software when processing the zipfile.  The
  6275. +       remaining bits are unused in version 1.0.
  6276. + 
  6277. +       compression method:
  6278. + 
  6279. +       (see accompanying documentation for algorithm
  6280. +       descriptions)
  6281. + 
  6282. +       0 - The file is stored (no compression)
  6283. +       1 - The file is Shrunk
  6284. +       2 - The file is Reduced with compression factor 1
  6285. +       3 - The file is Reduced with compression factor 2
  6286. +       4 - The file is Reduced with compression factor 3
  6287. +       5 - The file is Reduced with compression factor 4
  6288. +           6 - The file is Imploded
  6289. + 
  6290. +       date and time fields:
  6291. + 
  6292. +       The date and time are encoded in standard MS-DOS
  6293. +       format.
  6294. + 
  6295. +       CRC-32:
  6296. + 
  6297. +       The CRC-32 algorithm was generously contributed by
  6298. +       David Schwaderer and can be found in his excellent
  6299. +       book "C Programmers Guide to NetBIOS" published by
  6300. +       Howard W. Sams & Co. Inc.  The 'magic number' for
  6301. +       the CRC is 0xdebb20e3.  The proper CRC pre and post
  6302. +       conditioning is used, meaning that the CRC register
  6303. +       is pre-conditioned with all ones (a starting value
  6304. +       of 0xffffffff) and the value is post-conditioned by
  6305. +       taking the one's complement of the CRC residual.
  6306. +     
  6307. +       compressed size:
  6308. +       uncompressed size:
  6309. + 
  6310. +       The size of the file compressed and uncompressed,
  6311. +       respectively.
  6312. + 
  6313. +       filename length:
  6314. +       extra field length:
  6315. +       file comment length:
  6316. + 
  6317. +       The length of the filename, extra field, and comment
  6318. +       fields respectively.  The combined length of any
  6319. +       directory record and these three fields should not
  6320. +       generally exceed 65,535 bytes.
  6321. + 
  6322. +       disk number start:
  6323. + 
  6324. +       The number of the disk on which this file begins.
  6325. + 
  6326. +       internal file attributes:
  6327. + 
  6328. +       The lowest bit of this field indicates, if set, that
  6329. +       the file is apparently an ASCII or text file.  If not
  6330. +       set, that the file apparently contains binary data.
  6331. +       The remaining bits are unused in version 1.0.
  6332. + 
  6333. +       external file attributes:
  6334. + 
  6335. +       The mapping of the external attributes is
  6336. +       host-system dependent (see 'version made by').  For
  6337. +       MS-DOS, the low order byte is the MS-DOS directory
  6338. +       attribute byte.
  6339. + 
  6340. +       relative offset of local header:
  6341. + 
  6342. +       This is the offset from the start of the first disk on
  6343. +       which this file appears, to where the local header should
  6344. +       be found.
  6345. + 
  6346. +       filename:
  6347. + 
  6348. +       The name of the file, with optional relative path.
  6349. +       The path stored should not contain a drive or
  6350. +       device letter, or a leading slash.  All slashes
  6351. +       should be forward slashes '/' as opposed to
  6352. +       backwards slashes '\' for compatibility with Amiga
  6353. +       and Unix file systems etc.
  6354. + 
  6355. +       extra field:
  6356. + 
  6357. +       This is for future expansion.  If additional information
  6358. +       needs to be stored in the future, it should be stored
  6359. +       here.  Earlier versions of the software can then safely
  6360. +       skip this file, and find the next file or header.  This
  6361. +       field will be 0 length in version 1.0.
  6362. + 
  6363. +       In order to allow different programs and different types 
  6364. +       of information to be stored in the 'extra' field in .ZIP 
  6365. +       files, the following structure should be used for all 
  6366. +       programs storing data in this field:
  6367. + 
  6368. +       header1+data1 + header2+data2 . . .
  6369. + 
  6370. +       Each header should consist of:
  6371. + 
  6372. +         Header ID - 2 bytes
  6373. +         Data Size - 2 bytes
  6374. + 
  6375. +       Note: all fields stored in Intel low-byte/high-byte order.
  6376. + 
  6377. +       The Header ID field indicates the type of data that is in 
  6378. +       the following data block.
  6379. +       
  6380. +       Header ID's of 0 thru 31 are reserved for use by PKWARE.  
  6381. +       The remaining ID's can be used by third party vendors for 
  6382. +       proprietary usage.
  6383. + 
  6384. +       The Data Size field indicates the size of the following 
  6385. +       data block. Programs can use this value to skip to the 
  6386. +       next header block, passing over any data blocks that are 
  6387. +       not of interest.
  6388. + 
  6389. +       Note: As stated above, the size of the entire .ZIP file
  6390. +         header, including the filename, comment, and extra
  6391. +         field should not exceed 64K in size.
  6392. + 
  6393. +       In case two different programs should appropriate the same 
  6394. +       Header ID value, it is strongly recommended that each 
  6395. +       program place a unique signature of at least two bytes in 
  6396. +       size (and preferably 4 bytes or bigger) at the start of 
  6397. +       each data area.  Every program should verify that it's 
  6398. +       unique signature is present, in addition to the Header ID 
  6399. +       value being correct, before assuming that it is a block of 
  6400. +       known type.
  6401. + 
  6402. +       file comment:
  6403. + 
  6404. +       The comment for this file.
  6405. + 
  6406. +       number of this disk:
  6407. + 
  6408. +       The number of this disk, which contains central
  6409. +       directory end record.
  6410. + 
  6411. +       number of the disk with the start of the central directory:
  6412. + 
  6413. +       The number of the disk on which the central
  6414. +       directory starts.
  6415. + 
  6416. +       total number of entries in the central dir on this disk:
  6417. + 
  6418. +       The number of central directory entries on this disk.
  6419. +     
  6420. +       total number of entries in the central dir:
  6421. + 
  6422. +       The total number of files in the zipfile.
  6423. + 
  6424. + 
  6425. +       size of the central directory:
  6426. + 
  6427. +       The size (in bytes) of the entire central directory.
  6428. + 
  6429. +       offset of start of central directory with respect to
  6430. +       the starting disk number:
  6431. + 
  6432. +       Offset of the start of the central direcory on the
  6433. +       disk on which the central directory starts.
  6434. + 
  6435. +       zipfile comment length:
  6436. + 
  6437. +       The length of the comment for this zipfile.
  6438. + 
  6439. +       zipfile comment:
  6440. + 
  6441. +       The comment for this zipfile.
  6442. + 
  6443. + 
  6444. +   D.  General notes:
  6445. + 
  6446. +       1)  All fields unless otherwise noted are unsigned and stored
  6447. +       in Intel low-byte:high-byte, low-word:high-word order.
  6448. + 
  6449. +       2)  String fields are not null terminated, since the
  6450. +       length is given explicitly.
  6451. + 
  6452. +       3)  Local headers should not span disk boundries.  Also, even
  6453. +       though the central directory can span disk boundries, no
  6454. +       single record in the central directory should be split
  6455. +       across disks.
  6456. + 
  6457. +       4)  The entries in the central directory may not necessarily
  6458. +       be in the same order that files appear in the zipfile.
  6459. + 
  6460. + */
  6461. + 
  6462. + /* Code starts here */
  6463. + 
  6464. + #include <stdio.h>
  6465. + #include <stdlib.h>
  6466. + #include <stdarg.h>
  6467. + #include <string.h>
  6468. + #include <fcntl.h>
  6469. + #include <time.h>
  6470. + #include <malloc.h>
  6471. + #include <io.h>
  6472. + 
  6473. + 
  6474. + #pragma pack(2)
  6475. + 
  6476. + struct local_zip_header
  6477. + {
  6478. +   unsigned long    signature;    /* 0x04034b50 */
  6479. +   unsigned int    extr_ver;    /* version needed to extract */
  6480. +   unsigned int    bit_flag;    /* general purpose bit flag */
  6481. +   unsigned int    method;        /* compression method */
  6482. +   unsigned int    last_mod_time;     /* last mod file time */
  6483. +   unsigned int    last_mod_date;    /* last mod file date */
  6484. +   unsigned long    crc;        /* crc-32 */
  6485. +   unsigned long comp_size;    /* compressed size */
  6486. +   unsigned long uncomp_size;    /* uncompressed size */
  6487. +   size_t    name_len;    /* filename length */
  6488. +   size_t    extra_len;    /* extra field length */
  6489. + 
  6490. +   /* filename (variable size) */
  6491. +   /* extra field (variable size) */
  6492. + };
  6493. + 
  6494. + struct zip_header
  6495. + {
  6496. +   unsigned long    signature;    /* 0x02014b50 */
  6497. +   unsigned int    creat_ver;    /* version made by */
  6498. +   unsigned int    extr_ver;    /* version needed to extract */
  6499. +   unsigned int    bit_flag;    /* general purpose bit flag */
  6500. +   unsigned int    method;        /* compression method */
  6501. +   unsigned int    last_mod_time;     /* last mod file time */
  6502. +   unsigned int    last_mod_date;    /* last mod file date */
  6503. +   unsigned long    crc;        /* crc-32 */
  6504. +   unsigned long comp_size;    /* compressed size */
  6505. +   unsigned long uncomp_size;    /* uncompressed size */
  6506. +   size_t    name_len;    /* filename length */
  6507. +   size_t    extra_len;    /* extra field length */
  6508. +   size_t    comment_len;    /* file comment length */
  6509. +   unsigned int    disk_start;    /* disk number start */
  6510. +   unsigned int    int_attrib;    /* internal file attributes */
  6511. +   unsigned long    ext_attrib;    /* external file attributes */
  6512. +   unsigned long offset;        /* relative offset of local header */
  6513. + 
  6514. +   /* filename (variable size) */
  6515. +   /* extra field (variable size) */
  6516. +   /* file comment (variable size) */
  6517. + };
  6518. + 
  6519. + struct central_dir
  6520. + {
  6521. +   unsigned long    signature;    /* 0x06054b50 */
  6522. +   unsigned int    disk_num;    /* number of this disk */
  6523. +   unsigned int    cd_disk_num;    /* number of the disk with the start
  6524. +                    of the central directory */
  6525. +   unsigned int    dir_entries;    /* total number of entries in the
  6526. +                    central dir on this disk */
  6527. +   unsigned int    total_entries;    /* total number of entries in the
  6528. +                    central dir */
  6529. +   unsigned long    dir_size;    /* size of the central directory */
  6530. +   unsigned long    dir_offset;    /* offset of start of central directory
  6531. +                    with respect to the starting disk number */
  6532. +   size_t    comment_len;    /* zipfile comment length */
  6533. + 
  6534. +   /* zipfile comment (variable size) */
  6535. + };
  6536. + 
  6537. + #pragma pack()
  6538. + 
  6539. + 
  6540. + char *zip_get_first (char *filename, int *fd_ptr,
  6541. +              struct local_zip_header *header,
  6542. +              long *header_pos, long *data_pos);
  6543. + char *zip_get_next (int fd, struct local_zip_header *header,
  6544. +             long *header_pos, long *data_pos);
  6545. + 
  6546. + long ar_scan (char *archive, long (*f) (int, char *, long, long, long, long,
  6547. +           int, int, int, long), long arg);
  6548. + static long ar_member_pos (int desc, char *name, long hdrpos, long datapos,
  6549. +                long size, long date, int uid, int gid, int mode,
  6550. +                char *mem);
  6551. + long ar_name_equal (char *name, char *mem);
  6552. + long ar_member_touch (char *arname, char *memname);
  6553. + 
  6554. + time_t dos_time (unsigned int time, unsigned int date);
  6555. + 
  6556. + extern void *xmalloc (size_t size);
  6557. + 
  6558. + #ifdef TEST
  6559. + char *program_name;
  6560. + void fatal (int code, char *format, ... );
  6561. + #endif
  6562. + 
  6563. + static int month_offset[12] =
  6564. + {
  6565. +     0, /* January */
  6566. +    31, /* February */
  6567. +    59, /* March */
  6568. +    90, /* April */
  6569. +   120, /* May */
  6570. +   151, /* June */
  6571. +   181, /* July */
  6572. +   212, /* August */
  6573. +   243, /* September */
  6574. +   273, /* October */
  6575. +   304, /* November */
  6576. +   334, /* December */
  6577. + };
  6578. + 
  6579. + 
  6580. + #define leap_year(n)    (((n) & 0x0600) == 0)    /* 1980 was! */
  6581. + #define year(n)        (((n) & 0xff00) >> 9)
  6582. + #define month(n)    (((n) & 0x01e0) >> 5)
  6583. + #define day(n)        ((n) & 0x001f)
  6584. + 
  6585. + #define hour(n)        (((n) & 0xf800) >> 11)
  6586. + #define minutes(n)    (((n) & 0x07e0) >> 5)
  6587. + #define seconds(n)    (((n) & 0x001f) << 1)
  6588. + 
  6589. + time_t
  6590. + dos_time (unsigned int time, unsigned int date)
  6591. + {
  6592. +   time_t result = 3652;        /* 1970 - 1980, (incl. 2 leap years) */
  6593. + 
  6594. +   result += year (date) * 365L;
  6595. +   result += year (date) >> 2;    /* add leap years! */
  6596. + 
  6597. +   result += month_offset[month (date) - 1] + day (date);
  6598. + 
  6599. +   if (leap_year(date) && month (date) > 2)    /* After Feb. in leap year */
  6600. +     result++;
  6601. +   result *= 24L;        /* convert to hours */
  6602. +   result += hour (time);
  6603. + 
  6604. +   result *= 60L;        /* convert to minutes */
  6605. +   result += minutes (time);
  6606. + 
  6607. +   result *= 60L;        /* convert to seconds */
  6608. +   result += seconds (time);
  6609. + 
  6610. +   return result + timezone;
  6611. + }
  6612. + 
  6613. + /* Magic numbers.  */
  6614. + 
  6615. + #define ZIP_HEADER_SIGNATURE    0x02014b50    /* "\x50\x4b" = "PK" !!! */
  6616. + #define LOCAL_HEADER_SIGNATURE    0x04034b50
  6617. + #define CENTRAL_DIR_SIGNATURE    0x06054b50
  6618. + 
  6619. + char *
  6620. + zip_get_first (char *filename, int *fd_ptr, struct local_zip_header *header,
  6621. +            long *header_pos, long *data_pos)
  6622. + {
  6623. +   tzset ();            /* in case the caller forgot */
  6624. + 
  6625. +   *fd_ptr = open (filename, O_RDONLY|O_BINARY);
  6626. + 
  6627. +   if (*fd_ptr < 0)
  6628. +     return NULL;
  6629. + 
  6630. +   return zip_get_next (*fd_ptr, header, header_pos, data_pos);
  6631. + }
  6632. + 
  6633. + 
  6634. + char *
  6635. + zip_get_next (int fd, struct local_zip_header *header,
  6636. +           long *header_pos, long *data_pos)
  6637. + {
  6638. +   size_t bytes;
  6639. +   char *member_name = NULL;
  6640. + 
  6641. +   *header_pos = tell (fd);
  6642. + 
  6643. +   bytes = read (fd, (char *) header, sizeof (struct local_zip_header));
  6644. +   if (bytes != sizeof (struct local_zip_header))
  6645. +     return NULL;
  6646. + 
  6647. +   if (header->signature != LOCAL_HEADER_SIGNATURE)
  6648. +     return NULL;
  6649. + 
  6650. +   member_name = (char *) xmalloc (header->name_len + 1);
  6651. + 
  6652. +   bytes = read (fd, member_name, header->name_len);
  6653. +   if (bytes != header->name_len)
  6654. +     return NULL;
  6655. + 
  6656. +   member_name[header->name_len] = '\0';
  6657. + 
  6658. +   *data_pos = *header_pos + sizeof (struct local_zip_header)
  6659. +           + header->name_len + header->extra_len;
  6660. + 
  6661. +   lseek (fd, header->comp_size + (long) header->extra_len, SEEK_CUR);
  6662. + 
  6663. +   return strlwr (member_name);
  6664. + }
  6665. + 
  6666. + 
  6667. + /* Takes three arguments ARCHIVE, FUNCTION and ARG.
  6668. + 
  6669. +    Open the archive named ARCHIVE, find its members one by one,
  6670. +    and for each one call FUNCTION with the following arguments:
  6671. +      archive file descriptor for reading the data,
  6672. +      member name,
  6673. +      member header position in file,
  6674. +      member data position in file,
  6675. +      member data size,
  6676. +      member date,
  6677. +      member uid,
  6678. +      member gid,
  6679. +      member protection mode,
  6680. +      ARG.
  6681. + 
  6682. +    The descriptor is poised to read the data of the member
  6683. +    when FUNCTION is called.  It does not matter how much
  6684. +    data FUNCTION reads.
  6685. + 
  6686. +    If FUNCTION returns nonzero, we immediately return
  6687. +    what FUNCTION returned.
  6688. + 
  6689. +    Returns -1 if archive does not exist,
  6690. +    Returns -2 if archive has invalid format.
  6691. +    Returns 0 if have scanned successfully.  */
  6692. + 
  6693. + long
  6694. + ar_scan (char *archive,
  6695. +      long (*f) (int, char *, long, long, long, long, int, int, int, long),
  6696. +      long arg)
  6697. + {
  6698. +   int fd;
  6699. +   struct local_zip_header header;
  6700. +   long header_pos;
  6701. +   long data_pos;
  6702. +   char *name = zip_get_first (archive, &fd, &header, &header_pos, &data_pos);
  6703. + 
  6704. +   if (fd < 0)
  6705. +     return -1L;
  6706. +   if (name == NULL)
  6707. +     return -2L;
  6708. + 
  6709. +   while (name && *name)
  6710. +     {
  6711. +       time_t time_buf = dos_time (header.last_mod_time, header.last_mod_date);
  6712. + 
  6713. +       long fnval = (*f) (fd, name,
  6714. +              header_pos, data_pos,
  6715. +              header.uncomp_size,
  6716. +              time_buf,
  6717. +              0, 0, 0,
  6718. +              arg);
  6719. + 
  6720. +       if (fnval)
  6721. +     {
  6722. +       close (fd);
  6723. +       return fnval;
  6724. +     }
  6725. + 
  6726. +       free (name);
  6727. + 
  6728. +       name = zip_get_next (fd, &header, &header_pos, &data_pos);
  6729. +     }
  6730. + 
  6731. +   close (fd);
  6732. +   return 0L;
  6733. + }
  6734. + 
  6735. + /* Return nonzero iff NAME matches MEM.  If NAME is longer than
  6736. +    sizeof (struct ar_hdr.ar_name), MEM may be the truncated version.  */
  6737. + 
  6738. + long
  6739. + ar_name_equal (name, mem)
  6740. +      char *name, *mem;
  6741. + {
  6742. +   return (long) !strcmp (name, mem);
  6743. + }
  6744. + 
  6745. + /* ARGSUSED */
  6746. + static long int
  6747. + ar_member_pos (desc, name, hdrpos, datapos, size, date, uid, gid, mode, mem)
  6748. +      int desc;
  6749. +      char *name;
  6750. +      long int hdrpos, datapos, size, date;
  6751. +      int uid, gid, mode;
  6752. +      char *mem;
  6753. + {
  6754. +   if (!ar_name_equal (name, mem))
  6755. +     return 0;
  6756. +   return hdrpos;
  6757. + }
  6758. + 
  6759. + /* Set date of member MEMNAME in archive ARNAME to current time.
  6760. +    Returns 0 if successful,
  6761. +    -1 if file ARNAME does not exist,
  6762. +    -2 if not a valid archive,
  6763. +    -3 if other random system call error (including file read-only),
  6764. +    1 if valid but member MEMNAME does not exist.  */
  6765. + 
  6766. + long
  6767. + ar_member_touch (arname, memname)
  6768. +      char *arname, *memname;
  6769. + {
  6770. +   /* CODE ME !!! */
  6771. + 
  6772. +   return -3L;
  6773. + }
  6774. + 
  6775. + #ifdef TEST
  6776. + 
  6777. + long int
  6778. + describe_member (desc, name, hdrpos, datapos, size, date, uid, gid, mode)
  6779. +      int desc;
  6780. +      char *name;
  6781. +      long int hdrpos, datapos, size, date;
  6782. +      int uid, gid, mode;
  6783. + {
  6784. +   extern char *ctime ();
  6785. + 
  6786. +   printf ("Member %s: %ld bytes at %ld (%ld).\n", name, size, hdrpos, datapos);
  6787. +   printf ("  Date %s", ctime (&date));
  6788. +   printf ("  uid = %d, gid = %d, mode = 0%o.\n", uid, gid, mode);
  6789. + 
  6790. +   return 0;
  6791. + }
  6792. + 
  6793. + void
  6794. + main (int argc, char **argv)
  6795. + {
  6796. +   ar_scan (argv[1], describe_member);
  6797. + }
  6798. + 
  6799. + 
  6800. + void *
  6801. + xmalloc (size_t size)
  6802. + {
  6803. +   register void *ptr = malloc (size);
  6804. + 
  6805. +   if (ptr == (void *)0)
  6806. +     fatal (2, "out of memory");
  6807. + 
  6808. +   return(ptr);
  6809. + }
  6810. + 
  6811. + void
  6812. + fatal (int code, char *format, ... )
  6813. + {
  6814. +   va_list arg_ptr;        /* variable-length arguments    */
  6815. +   va_start (arg_ptr, format);
  6816. + 
  6817. +   fprintf (stderr, "%s: fatal error: ", program_name);
  6818. +   vfprintf (stderr, format, arg_ptr);
  6819. +   fprintf (stderr, ".\n");
  6820. +   exit (code);
  6821. + }
  6822. + 
  6823. + #endif /* TEST */
  6824. + 
  6825. + #if 0
  6826. + 
  6827. + /* Look alike to the portable directory functions.*/
  6828. + 
  6829. + struct _zipcontents
  6830. + {
  6831. +   char *_z_entry;
  6832. +   struct _zipcontents *_z_next;
  6833. + };
  6834. + 
  6835. + typedef struct _zipdesc
  6836. + {
  6837. +   int zd_fd;                /* file handle */
  6838. +   int zd_access;            /* access mode (O_RDWR or O_RDONLY) */
  6839. +   struct _zipcontents *zd_contents;    /* root of the list of entries */
  6840. +   struct _zipcontents *zd_cp;        /* current entry */
  6841. + } ZIP;
  6842. + 
  6843. + 
  6844. + #define    rewindzip(zipp)    seekzip (zipp, 0L)
  6845. + 
  6846. + void seekzip (ZIP *zipp, long off);
  6847. + long tellzip (ZIP *zipp);
  6848. + ZIP *openzip (char *name);
  6849. + void closezip (ZIP *zipp);
  6850. + struct zip_header *readzip (ZIP *zipp);
  6851. + 
  6852. + void
  6853. + seekzip (ZIP *zipp, long off)
  6854. + {
  6855. +   /* CODE ME !!! */
  6856. + 
  6857. +   return lseek (zipp->zd_fd, off, SEEK_SET);
  6858. + 
  6859. +   /* better: seek() for name! */
  6860. + }
  6861. + 
  6862. + long
  6863. + tellzip (ZIP *zipp)
  6864. + {
  6865. +   /* CODE ME !!! */
  6866. + 
  6867. +   return tell (zipp->zd_fd);
  6868. + }
  6869. + 
  6870. + /* Open the zipfile NAME, scan through the local headers and check with
  6871. +    the central directory for consistency.  Put the central directory
  6872. +    entries into the linked list rooted by zipp->zd_contents.  */
  6873. + 
  6874. + ZIP *
  6875. + openzip (char *name)
  6876. + {
  6877. +   ZIP *zipp;
  6878. + 
  6879. +   zipp->zd_access = O_RDWR;    /* we might want to `touch' the archive  */
  6880. +   zipp->zd_fd = open (name, zipp->zd_access|O_BINARY);
  6881. +   if (zipp->zd_fd == -1)
  6882. +     {                /* at least, try to read the archive  */
  6883. +       zipp->zd_access = O_RDONLY;
  6884. +       zipp->zd_fd = open (name, zipp->zd_access|O_BINARY);
  6885. +       if (zipp->zd_fd == -1)
  6886. +     return NULL;
  6887. +     }
  6888. + 
  6889. +   /* CODE ME !!! */
  6890. + 
  6891. +   return zipp;
  6892. + }
  6893. + 
  6894. + void
  6895. + closezip (ZIP *zipp)
  6896. + {
  6897. +   /* CODE ME !!! */
  6898. + 
  6899. +   close (zipp->zd_fd);
  6900. + }
  6901. + 
  6902. + struct zip_header *
  6903. + readzip (ZIP *zipp)
  6904. + {
  6905. +   /* CODE ME !!! */
  6906. + }
  6907. + 
  6908. + #endif /* NEVER */
  6909. + 
  6910. + /* 
  6911. +  * Local Variables:
  6912. +  * mode:C
  6913. +  * ChangeLog:ChangeLog
  6914. +  * compile-command:cl -DTEST -W4 zipscan.c
  6915. +  * End:
  6916. +  */
  6917.