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