home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume13 / patch-tc / part01 next >
Text File  |  1990-06-02  |  16KB  |  592 lines
  1. Newsgroups: comp.sources.misc
  2. organization: U of Wisconsin CS Dept
  3. subject: v13i023: patch (pl 12) patches for MSDOS Turbo C 2.0
  4. from: ward@sneezy.cs.wisc.edu (Michael Ward)
  5. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  6.  
  7. Posting-number: Volume 13, Issue 23
  8. Submitted-by: ward@sneezy.cs.wisc.edu (Michael Ward)
  9. Archive-name: patch-tc/part01
  10.  
  11. The following patches will allow Larry Wall's patch program (patchlevel 12)
  12. to compile with Turbo C 2.0 and run under MSDOS. I have only checked a couple
  13. of context and normal diffs and it seems to work fine. I did not even try
  14. to get ed scripts working. Hope this is useful.
  15.  
  16. Mike Ward
  17. ward@sneezy.cs.wisc.edu
  18.  
  19.     remove this header and then use patch to apply the diffs
  20.     if you don't have patch, there are not that many changes 
  21.     (some of those are comments that I'm not sure are appropriate
  22.     anyway ...)
  23.  
  24.  
  25. ---------- cut here --------------------------------------------------
  26. *** ../patch/common.h    Thu May 24 14:21:46 1990
  27. --- common.h    Thu May 31 10:28:21 1990
  28. ***************
  29. *** 1,6 ****
  30. ! /* $Header: common.h,v 2.0.1.2 88/06/22 20:44:53 lwall Locked $
  31.    *
  32.    * $Log:    common.h,v $
  33.    * Revision 2.0.1.2  88/06/22  20:44:53  lwall
  34.    * patch12: sprintf was declared wrong
  35.    * 
  36. --- 1,9 ----
  37. ! /* $Header: common.h,v 2.0.1.3 90/05/30 11:30:00 mward $
  38.    *
  39.    * $Log:    common.h,v $
  40. +  * Revision 2.0.1.3  90/05/30  11:30:00  mward
  41. +  * added TURBOC stuff
  42. +  * 
  43.    * Revision 2.0.1.2  88/06/22  20:44:53  lwall
  44.    * patch12: sprintf was declared wrong
  45.    * 
  46. ***************
  47. *** 40,51 ****
  48. --- 43,68 ----
  49.   #include <ctype.h>
  50.   #include <signal.h>
  51.   
  52. + #ifdef TURBOC20
  53. + #include <stdlib.h>
  54. + #include <string.h>
  55. + #include <io.h>
  56. + #include <fcntl.h>
  57. + #endif
  58. + 
  59.   /* constants */
  60.   
  61.   #define TRUE (1)
  62.   #define FALSE (0)
  63.   
  64. + #ifdef TURBOC20
  65. + #define MAXPATH 80                /* max path spec size */
  66. + #define MAXMEMBLK 65534L            /* biggest block of mem */
  67. + #define MAXHUNKSIZE (MAXMEMBLK/sizeof(char *))    /* is this enough lines? */
  68. + #else
  69.   #define MAXHUNKSIZE 100000        /* is this enough lines? */
  70. + #endif
  71. + 
  72.   #define INITHUNKMAX 125            /* initial dynamic allocation size */
  73.   #define MAXLINELEN 1024
  74.   #define BUFFERSIZE 1024
  75. ***************
  76. *** 145,150 ****
  77. --- 162,168 ----
  78.   
  79.   EXT char *revision INIT(Nullch);    /* prerequisite revision, if any */
  80.   
  81. + #ifndef TURBOC20
  82.   char *malloc();
  83.   char *realloc();
  84.   char *strcpy();
  85. ***************
  86. *** 156,159 ****
  87. --- 174,178 ----
  88.   char *sprintf();
  89.   #else
  90.   int sprintf();
  91. + #endif
  92.   #endif
  93. *** ../patch/config.h    Thu May 24 14:21:52 1990
  94. --- config.h    Thu May 31 10:36:24 1990
  95. ***************
  96. *** 1,25 ****
  97.   /* config.h
  98. !  * This file was produced by running the Configure script.
  99.    * Feel free to modify any of this as the need arises.
  100.    */
  101.   
  102.   
  103. ! #/*undef    EUNICE        /* no file linking? */
  104. ! #/*undef    VMS
  105.   
  106. ! #/*undef    index strchr    /* cultural */
  107. ! #/*undef    rindex strrchr    /*  differences? */
  108.   
  109. - #/*undef    void int    /* is void to be avoided? */
  110. - 
  111.   /* How many register declarations are paid attention to? */
  112.   
  113.   #define Reg1 register
  114.   #define Reg2 register
  115.   #define Reg3 register
  116. ! #define Reg4 register
  117. ! #define Reg5 register
  118. ! #define Reg6 register
  119.   #define Reg7 
  120.   #define Reg8 
  121.   #define Reg9 
  122. --- 1,36 ----
  123. + /* $Header: cofig.h,v 2.0.1 90/05/30 11:30:00 mward $
  124. +  *
  125. +  * $Log:    config.h,v $
  126. +  * Revision 2.0.1  90/05/30  11:30:00  mward
  127. +  * set up for MSDOS TURBOC v2.0
  128. +  */
  129. +  
  130.   /* config.h
  131. !  * This file was produced by hand for MSDOS TURBOC V2.0.
  132.    * Feel free to modify any of this as the need arises.
  133.    */
  134.   
  135.   
  136. ! #undef    EUNICE        /* no file linking? */
  137. ! #undef    VMS
  138. ! #undef    CHARSPRINTF     /* sprintf does NOT return pointer to char */
  139. ! #undef    FLEXFILENAMES    /* file names must be 14 chars or less */
  140.   
  141. ! #ifdef TURBOC20
  142. ! #define    index strchr    /* cultural */
  143. ! #define    rindex strrchr    /*  differences? */
  144. ! #define    VOIDSIG     /* signal returns ptr to function returning void*/
  145. ! #define    VOIDFLAGS 7    /* full void support */
  146. ! #endif
  147.   
  148.   /* How many register declarations are paid attention to? */
  149.   
  150.   #define Reg1 register
  151.   #define Reg2 register
  152.   #define Reg3 register
  153. ! #define Reg4
  154. ! #define Reg5
  155. ! #define Reg6
  156.   #define Reg7 
  157.   #define Reg8 
  158.   #define Reg9 
  159. *** ../patch/inp.c    Thu May 24 14:21:46 1990
  160. --- inp.c    Thu May 31 10:37:49 1990
  161. ***************
  162. *** 1,6 ****
  163. ! /* $Header: inp.c,v 2.0.1.1 88/06/03 15:06:13 lwall Locked $
  164.    *
  165.    * $Log:    inp.c,v $
  166.    * Revision 2.0.1.1  88/06/03  15:06:13  lwall
  167.    * patch10: made a little smarter about sccs files
  168.    * 
  169. --- 1,12 ----
  170. ! /* $Header: inp.c,v 2.0.1.2 90/05/30 11:30:00 mward $
  171.    *
  172.    * $Log:    inp.c,v $
  173. +  * Revision 2.0.1.2  90/05/30  11:30:00 mward
  174. +  * if TURBOC20 have plan_a check against MAXMEMBLK before mallocs
  175. +  * if TURBOC20 have plan_b use binary mode io for tmp file
  176. +  * modified plan_a to allow for translation shrinkage on text reads
  177. +  * modify calls to read, write to detect error on return value of -1
  178. +  * 
  179.    * Revision 2.0.1.1  88/06/03  15:06:13  lwall
  180.    * patch10: made a little smarter about sccs files
  181.    * 
  182. ***************
  183. *** 120,128 ****
  184.       out_of_mem = FALSE;
  185.       return FALSE;            /* force plan b because plan a bombed */
  186.       }
  187. - #ifdef lint
  188.       i_womp = Nullch;
  189. ! #else
  190.       i_womp = malloc((MEM)(i_size+2));    /* lint says this may alloc less than */
  191.                       /* i_size, but that's okay, I think. */
  192.   #endif
  193. --- 126,136 ----
  194.       out_of_mem = FALSE;
  195.       return FALSE;            /* force plan b because plan a bombed */
  196.       }
  197.       i_womp = Nullch;
  198. ! #ifndef lint
  199. ! #ifdef TURBOC20
  200. !     if (i_size < MAXMEMBLK)
  201. ! #endif
  202.       i_womp = malloc((MEM)(i_size+2));    /* lint says this may alloc less than */
  203.                       /* i_size, but that's okay, I think. */
  204.   #endif
  205. ***************
  206. *** 131,137 ****
  207.       if ((ifd = open(filename, 0)) < 0)
  208.       fatal2("Can't open file %s\n", filename);
  209.   #ifndef lint
  210. !     if (read(ifd, i_womp, (int)i_size) != i_size) {
  211.       Close(ifd);    /* probably means i_size > 15 or 16 bits worth */
  212.       free(i_womp);    /* at this point it doesn't matter if i_womp was */
  213.       return FALSE;    /*   undersized. */
  214. --- 139,145 ----
  215.       if ((ifd = open(filename, 0)) < 0)
  216.       fatal2("Can't open file %s\n", filename);
  217.   #ifndef lint
  218. !     if ((i_size=(unsigned)read(ifd, i_womp, (int)i_size)) == (unsigned)-1) {
  219.       Close(ifd);    /* probably means i_size > 15 or 16 bits worth */
  220.       free(i_womp);    /* at this point it doesn't matter if i_womp was */
  221.       return FALSE;    /*   undersized. */
  222. ***************
  223. *** 149,157 ****
  224.       if (*s == '\n')
  225.           iline++;
  226.       }
  227. - #ifdef lint
  228.       i_ptr = Null(char**);
  229. ! #else
  230.       i_ptr = (char **)malloc((MEM)((iline + 2) * sizeof(char *)));
  231.   #endif
  232.       if (i_ptr == Null(char **)) {    /* shucks, it was a near thing */
  233. --- 157,167 ----
  234.       if (*s == '\n')
  235.           iline++;
  236.       }
  237.       i_ptr = Null(char**);
  238. ! #ifndef lint
  239. ! #ifdef TURBOC20
  240. !     if (iline+2<MAXMEMBLK/sizeof(char *))
  241. ! #endif
  242.       i_ptr = (char **)malloc((MEM)((iline + 2) * sizeof(char *)));
  243.   #endif
  244.       if (i_ptr == Null(char **)) {    /* shucks, it was a near thing */
  245. ***************
  246. *** 210,215 ****
  247. --- 220,228 ----
  248.       fatal2("Can't open file %s\n", filename);
  249.       if ((tifd = creat(TMPINNAME, 0666)) < 0)
  250.       fatal2("Can't open file %s\n", TMPINNAME);
  251. + #ifdef TURBOC20
  252. +     setmode(tifd, O_BINARY);
  253. + #endif
  254.       while (fgets(buf, sizeof buf, ifp) != Nullch) {
  255.       if (revision != Nullch && !found_revision && rev_in_string(buf))
  256.           found_revision = TRUE;
  257. ***************
  258. *** 245,257 ****
  259.       fatal1("Can't seem to get enough memory.\n");
  260.       for (i=1; ; i++) {
  261.       if (! (i % lines_per_buf))    /* new block */
  262. !         if (write(tifd, tibuf[0], BUFFERSIZE) < BUFFERSIZE)
  263.           fatal1("patch: can't write temp file.\n");
  264.       if (fgets(tibuf[0] + maxlen * (i%lines_per_buf), maxlen + 1, ifp)
  265.         == Nullch) {
  266.           input_lines = i - 1;
  267.           if (i % lines_per_buf)
  268. !         if (write(tifd, tibuf[0], BUFFERSIZE) < BUFFERSIZE)
  269.               fatal1("patch: can't write temp file.\n");
  270.           break;
  271.       }
  272. --- 258,270 ----
  273.       fatal1("Can't seem to get enough memory.\n");
  274.       for (i=1; ; i++) {
  275.       if (! (i % lines_per_buf))    /* new block */
  276. !         if (write(tifd, tibuf[0], BUFFERSIZE) == -1)
  277.           fatal1("patch: can't write temp file.\n");
  278.       if (fgets(tibuf[0] + maxlen * (i%lines_per_buf), maxlen + 1, ifp)
  279.         == Nullch) {
  280.           input_lines = i - 1;
  281.           if (i % lines_per_buf)
  282. !         if (write(tifd, tibuf[0], BUFFERSIZE) == -1)
  283.               fatal1("patch: can't write temp file.\n");
  284.           break;
  285.       }
  286. ***************
  287. *** 258,264 ****
  288. --- 271,281 ----
  289.       }
  290.       Fclose(ifp);
  291.       Close(tifd);
  292. + #ifdef TURBOC20
  293. +     if ((tifd = open(TMPINNAME, O_BINARY)) < 0) {
  294. + #else
  295.       if ((tifd = open(TMPINNAME, 0)) < 0) {
  296. + #endif
  297.       fatal2("Can't reopen file %s\n", TMPINNAME);
  298.       }
  299.   }
  300. ***************
  301. *** 287,293 ****
  302.   #ifndef lint        /* complains of long accuracy */
  303.           Lseek(tifd, (long)baseline / lines_per_buf * BUFFERSIZE, 0);
  304.   #endif
  305. !         if (read(tifd, tibuf[whichbuf], BUFFERSIZE) < 0)
  306.           fatal2("Error reading tmp file %s.\n", TMPINNAME);
  307.       }
  308.       return tibuf[whichbuf] + (tireclen*offline);
  309. --- 304,310 ----
  310.   #ifndef lint        /* complains of long accuracy */
  311.           Lseek(tifd, (long)baseline / lines_per_buf * BUFFERSIZE, 0);
  312.   #endif
  313. !         if (read(tifd, tibuf[whichbuf], BUFFERSIZE) == -1)
  314.           fatal2("Error reading tmp file %s.\n", TMPINNAME);
  315.       }
  316.       return tibuf[whichbuf] + (tireclen*offline);
  317. *** ../patch/pch.c    Thu May 24 14:21:38 1990
  318. --- pch.c    Thu May 31 10:40:00 1990
  319. ***************
  320. *** 1,6 ****
  321. ! /* $Header: pch.c,v 2.0.1.7 88/06/03 15:13:28 lwall Locked $
  322.    *
  323.    * $Log:    pch.c,v $
  324.    * Revision 2.0.1.7  88/06/03  15:13:28  lwall
  325.    * patch10: Can now find patches in shar scripts.
  326.    * patch10: Hunks that swapped and then swapped back could core dump.
  327. --- 1,10 ----
  328. ! /* $Header: pch.c,v 2.0.1.7 90/05/30 11:30:00 mward $
  329.    *
  330.    * $Log:    pch.c,v $
  331. +  * Revision 2.0.1.8  90/05/30  11:30:00  mward
  332. +  * replace do_ed_script with stub
  333. +  * modify calls to read, write to detect error on return value of -1
  334. +  * 
  335.    * Revision 2.0.1.7  88/06/03  15:13:28  lwall
  336.    * patch10: Can now find patches in shar scripts.
  337.    * patch10: Hunks that swapped and then swapped back could core dump.
  338. ***************
  339. *** 1058,1063 ****
  340. --- 1062,1077 ----
  341.       return p_hunk_beg;
  342.   }
  343.  
  344. + #ifdef TURBOC20 
  345. + /* Ignore an ed script. */
  346. + 
  347. + void
  348. + do_ed_script()
  349. + {
  350. +     say1("Sorry, can't do ed scripts yet!\n");
  351. +     say1("Use ed to do this one yourself!\n");
  352. + }
  353. + #else
  354.   /* Apply an ed script by feeding ed itself. */
  355.   
  356.   void
  357. ***************
  358. *** 1121,1123 ****
  359. --- 1134,1137 ----
  360.       chmod(outname, filemode);
  361.       set_signals(1);
  362.   }
  363. + #endif
  364. *** ../patch/util.c    Thu May 24 14:21:46 1990
  365. --- util.c    Thu May 31 10:40:14 1990
  366. ***************
  367. *** 1,3 ****
  368. --- 1,15 ----
  369. + /* $Header: pch.c,v 2.0.1 90/05/30 11:30:00 mward $
  370. +  *
  371. +  * $Log:    pch.c,v $
  372. +  * Revision 2.0.1  90/05/30  11:30:00  mward
  373. +  * modify calls to read, write to detect error on return of value -1
  374. +  * added TURBOC20 ifdef stuff:
  375. +  *    no inodes: modify move_file same file detect accordingly
  376. +  *    no links:  modify move_file link calls to copy_file calls
  377. +  *    no SIGHUP: modify signal routines accordingly
  378. +  *
  379. +  */
  380. + 
  381.   #include "EXTERN.h"
  382.   #include "common.h"
  383.   #include "INTERN.h"
  384. ***************
  385. *** 24,31 ****
  386.       fromfd = open(from, 0);
  387.       if (fromfd < 0)
  388.           fatal2("patch: internal error, can't reopen %s\n", from);
  389. !     while ((i=read(fromfd, buf, sizeof buf)) > 0)
  390. !         if (write(1, buf, i) != 1)
  391.           fatal1("patch: write failed\n");
  392.       Close(fromfd);
  393.       return 0;
  394. --- 36,43 ----
  395.       fromfd = open(from, 0);
  396.       if (fromfd < 0)
  397.           fatal2("patch: internal error, can't reopen %s\n", from);
  398. !     while ((i=read(fromfd, buf, sizeof buf))!=-1 && i!=0)
  399. !         if (write(1, buf, i) == -1)
  400.           fatal1("patch: write failed\n");
  401.       Close(fromfd);
  402.       return 0;
  403. ***************
  404. *** 39,46 ****
  405.           Strcat(bakname, origext?origext:ORIGEXT);
  406.       }
  407.       if (stat(to, &filestat) >= 0) {    /* output file exists */
  408. !     dev_t to_device = filestat.st_dev;
  409. !     ino_t to_inode  = filestat.st_ino;
  410.       char *simplename = bakname;
  411.       
  412.       for (s=bakname; *s; s++) {
  413. --- 51,65 ----
  414.           Strcat(bakname, origext?origext:ORIGEXT);
  415.       }
  416.       if (stat(to, &filestat) >= 0) {    /* output file exists */
  417. ! #ifdef TURBOC20
  418. !     short to_device = filestat.st_dev;
  419. !     short to_mode = filestat.st_mode;
  420. !     long  to_size  = filestat.st_size;
  421. !     long  to_time  = filestat.st_mtime;
  422. ! #else
  423. !      dev_t to_device = filestat.st_dev;
  424. !      ino_t to_inode  = filestat.st_ino;
  425. ! #endif
  426.       char *simplename = bakname;
  427.       
  428.       for (s=bakname; *s; s++) {
  429. ***************
  430. *** 49,55 ****
  431.       }
  432.       /* find a backup name that is not the same file */
  433.       while (stat(bakname, &filestat) >= 0 &&
  434. !         to_device == filestat.st_dev && to_inode == filestat.st_ino) {
  435.           for (s=simplename; *s && !islower(*s); s++) ;
  436.           if (*s)
  437.           *s = toupper(*s);
  438. --- 68,82 ----
  439.       }
  440.       /* find a backup name that is not the same file */
  441.       while (stat(bakname, &filestat) >= 0 &&
  442. !         to_device == filestat.st_dev &&
  443. ! #ifdef TURBOC20
  444. !         to_mode == filestat.st_mode &&
  445. !                 to_size == filestat.st_size &&
  446. !                 to_time == filestat.st_mtime
  447. ! #else
  448. !                 to_inode == filestat.st_ino
  449. ! #endif                
  450. !               ) {
  451.           for (s=simplename; *s && !islower(*s); s++) ;
  452.           if (*s)
  453.           *s = toupper(*s);
  454. ***************
  455. *** 61,71 ****
  456. --- 88,102 ----
  457.       if (debug & 4)
  458.           say3("Moving %s to %s.\n", to, bakname);
  459.   #endif
  460. + #ifdef TURBOC20
  461. +     copy_file(to, bakname);
  462. + #else        
  463.       if (link(to, bakname) < 0) {
  464.           say3("patch: can't backup %s, output is in %s\n",
  465.           to, from);
  466.           return -1;
  467.       }
  468. + #endif
  469.       while (unlink(to) >= 0) ;
  470.       }
  471.   #ifdef DEBUGGING
  472. ***************
  473. *** 72,77 ****
  474. --- 103,111 ----
  475.       if (debug & 4)
  476.       say3("Moving %s to %s.\n", from, to);
  477.   #endif
  478. + #ifdef TURBOC20
  479. +     copy_file(from, to);
  480. + #else
  481.       if (link(from, to) < 0) {        /* different file system? */
  482.       Reg4 int tofd;
  483.       
  484. ***************
  485. *** 84,95 ****
  486.       fromfd = open(from, 0);
  487.       if (fromfd < 0)
  488.           fatal2("patch: internal error, can't reopen %s\n", from);
  489. !     while ((i=read(fromfd, buf, sizeof buf)) > 0)
  490. !         if (write(tofd, buf, i) != i)
  491.           fatal1("patch: write failed\n");
  492.       Close(fromfd);
  493.       Close(tofd);
  494.       }
  495.       Unlink(from);
  496.       return 0;
  497.   }
  498. --- 118,130 ----
  499.       fromfd = open(from, 0);
  500.       if (fromfd < 0)
  501.           fatal2("patch: internal error, can't reopen %s\n", from);
  502. !     while ((i=read(fromfd, buf, sizeof buf))!=-1 && i!=0)
  503. !         if (write(tofd, buf, i) == -1)
  504.           fatal1("patch: write failed\n");
  505.       Close(fromfd);
  506.       Close(tofd);
  507.       }
  508. + #endif
  509.       Unlink(from);
  510.       return 0;
  511.   }
  512. ***************
  513. *** 110,117 ****
  514.       fromfd = open(from, 0);
  515.       if (fromfd < 0)
  516.       fatal2("patch: internal error, can't reopen %s\n", from);
  517. !     while ((i=read(fromfd, buf, sizeof buf)) > 0)
  518. !     if (write(tofd, buf, i) != i)
  519.           fatal2("patch: write (%s) failed\n", to);
  520.       Close(fromfd);
  521.       Close(tofd);
  522. --- 145,152 ----
  523.       fromfd = open(from, 0);
  524.       if (fromfd < 0)
  525.       fatal2("patch: internal error, can't reopen %s\n", from);
  526. !     while ((i=read(fromfd, buf, sizeof buf))!=-1 && i!=0)
  527. !     if (write(tofd, buf, i) == -1)
  528.           fatal2("patch: write (%s) failed\n", to);
  529.       Close(fromfd);
  530.       Close(tofd);
  531. ***************
  532. *** 233,245 ****
  533. --- 268,289 ----
  534.   {
  535.       void my_exit();
  536.   #ifndef lint
  537. + #ifdef TURBOC20
  538.   #ifdef VOIDSIG
  539. +     static void (*intval)();
  540. + #else
  541. +     static int (*intval)();
  542. + #endif
  543. + #else
  544. + #ifdef VOIDSIG
  545.       static void (*hupval)(),(*intval)();
  546.   #else
  547.       static int (*hupval)(),(*intval)();
  548.   #endif
  549. + #endif
  550.   
  551.       if (!reset) {
  552. + #ifndef TURBOC20
  553.       hupval = signal(SIGHUP, SIG_IGN);
  554.       if (hupval != SIG_IGN)
  555.   #ifdef VOIDSIG
  556. ***************
  557. *** 247,252 ****
  558. --- 291,298 ----
  559.   #else
  560.           hupval = (int(*)())my_exit;
  561.   #endif
  562. + #endif
  563. + 
  564.       intval = signal(SIGINT, SIG_IGN);
  565.       if (intval != SIG_IGN)
  566.   #ifdef VOIDSIG
  567. ***************
  568. *** 255,261 ****
  569. --- 301,309 ----
  570.           intval = (int(*)())my_exit;
  571.   #endif
  572.       }
  573. + #ifndef TURBOC20
  574.       Signal(SIGHUP, hupval);
  575. + #endif
  576.       Signal(SIGINT, intval);
  577.   #endif
  578.   }
  579. ***************
  580. *** 266,272 ****
  581. --- 314,322 ----
  582.   ignore_signals()
  583.   {
  584.   #ifndef lint
  585. + #ifndef TURBOC20
  586.       Signal(SIGHUP, SIG_IGN);
  587. + #endif
  588.       Signal(SIGINT, SIG_IGN);
  589.   #endif
  590.   }
  591.  
  592.