home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update18.zoo / patch / diffs < prev    next >
Encoding:
Text File  |  1992-03-20  |  7.9 KB  |  348 lines
  1. *** /home/bammi/etc/src/patch/common.h    Thu Mar 19 18:34:17 1992
  2. --- common.h    Fri Mar 20 18:30:38 1992
  3. ***************
  4. *** 54,64 ****
  5. --- 54,70 ----
  6.   #define MAXHUNKSIZE 100000        /* is this enough lines? */
  7.   #define INITHUNKMAX 125            /* initial dynamic allocation size */
  8.   #define MAXLINELEN 1024
  9. + 
  10. + #ifndef atarist
  11.   #define BUFFERSIZE 1024
  12.   #define SCCSPREFIX "s."
  13.   #define GET "get -e %s"
  14.   #define RCSSUFFIX ",v"
  15.   #define CHECKOUT "co -l %s"
  16. + #else
  17. + extern unsigned long __DEFAULT_BUFSIZ__;
  18. + #define BUFFERSIZE __DEFAULT_BUFSIZ__
  19. + #endif
  20.   
  21.   #ifdef FLEXFILENAMES
  22.   #define ORIGEXT ".orig"
  23. ***************
  24. *** 86,92 ****
  25. --- 92,103 ----
  26.   
  27.   typedef char bool;
  28.   typedef long LINENUM;            /* must be signed */
  29. + #ifndef atarist
  30.   typedef unsigned MEM;            /* what to feed malloc */
  31. + #else
  32. + #include <stddef.h>
  33. + typedef size_t MEM;            /* what to feed malloc */
  34. + #endif
  35.   
  36.   /* globals */
  37.   
  38. ***************
  39. *** 98,104 ****
  40. --- 109,119 ----
  41.   EXT struct stat filestat;        /* file statistics area */
  42.   EXT int filemode INIT(0644);
  43.   
  44. + #ifndef atarist
  45.   EXT char buf[MAXLINELEN];        /* general purpose buffer */
  46. + #else
  47. + EXT char buf[32768];            /* general purpose buffer */
  48. + #endif
  49.   EXT FILE *ofp INIT(Nullfp);        /* output file pointer */
  50.   EXT FILE *rejfp INIT(Nullfp);        /* reject file pointer */
  51.   
  52. ***************
  53. *** 151,156 ****
  54. --- 166,176 ----
  55.   
  56.   EXT char *revision INIT(Nullch);    /* prerequisite revision, if any */
  57.   
  58. + #ifdef NODIR
  59. + EXT char *simple_backup_suffix INIT("~");
  60. + #endif
  61. + 
  62. + #ifndef atarist
  63.   char *malloc();
  64.   char *realloc();
  65.   char *strcpy();
  66. ***************
  67. *** 158,163 ****
  68. --- 178,191 ----
  69.   long atol();
  70.   long lseek();
  71.   char *mktemp();
  72. + char *getenv();
  73. + #else
  74. + #include <string.h>
  75. + #include <memory.h>
  76. + #include <unistd.h>
  77. + EXT unsigned long __DEFAULT_BUFSIZ__ INIT(64*1024L);
  78. + #endif
  79. + 
  80.   #if 0
  81.   #ifdef CHARSPRINTF
  82.   char *sprintf();
  83. ***************
  84. *** 165,168 ****
  85.   int sprintf();
  86.   #endif
  87.   #endif
  88. - char *getenv();
  89. --- 193,195 ----
  90. *** /home/bammi/etc/src/patch/inp.c    Sun Jan 20 20:12:22 1991
  91. --- inp.c    Fri Mar 20 18:30:41 1992
  92. ***************
  93. *** 87,92 ****
  94. --- 87,93 ----
  95.       close(creat(filename, 0666));
  96.       }
  97.       if (stat(filename, &filestat) < 0) {
  98. + #ifndef atarist
  99.       Sprintf(buf, "RCS/%s%s", filename, RCSSUFFIX);
  100.       if (stat(buf, &filestat) >= 0 || stat(buf+4, &filestat) >= 0) {
  101.           Sprintf(buf, CHECKOUT, filename);
  102. ***************
  103. *** 110,115 ****
  104. --- 111,119 ----
  105.           else
  106.           fatal2("Can't find %s.\n", filename);
  107.       }
  108. + #else
  109. +     fatal2("Can't find %s.\n", filename);
  110. + #endif
  111.       }
  112.       filemode = filestat.st_mode;
  113.       if ((filemode & S_IFMT) & ~S_IFREG)
  114. *** /home/bammi/etc/src/patch/patch.c    Thu Mar 19 18:34:18 1992
  115. --- patch.c    Fri Mar 20 18:30:44 1992
  116. ***************
  117. *** 137,146 ****
  118. --- 137,151 ----
  119.       int failtotal = 0;
  120.       int i;
  121.   
  122. + #ifdef atarist
  123. +     _binmode(1);
  124. +     stdin->_flag |= _IOBIN;    /* sorry! */
  125. + #endif
  126.       setbuf(stderr, serrbuf);
  127.       for (i = 0; i<MAXFILEC; i++)
  128.       filearg[i] = Nullch;
  129.   
  130. + #ifndef atarist
  131.       /* Cons up the names of the temporary files.  */
  132.       {
  133.         /* Directory for temporary files.  */
  134. ***************
  135. *** 173,178 ****
  136. --- 178,218 ----
  137.         strcat (TMPPATNAME, "/patchpXXXXXX");
  138.         Mktemp(TMPPATNAME);
  139.       }
  140. + #else
  141. +     /* Cons up the names of the temporary files.  */
  142. +     {
  143. +       /* Directory for temporary files.  */
  144. +       char *tmpdir;
  145. +       size_t tmpname_len;
  146. + 
  147. +       if(!(tmpdir = getenv("TEMP")))
  148. +           tmpdir = getenv ("TMPDIR");
  149. +       if (tmpdir == NULL) {
  150. +     tmpdir = ".";
  151. +       }
  152. +       tmpname_len = strlen (tmpdir) + 20;
  153. + 
  154. +       TMPOUTNAME = (char *) malloc (tmpname_len);
  155. +       strcpy (TMPOUTNAME, tmpdir);
  156. +       strcat (TMPOUTNAME, "/poXXXXXX");
  157. +       Mktemp(TMPOUTNAME);
  158. + 
  159. +       TMPINNAME = (char *) malloc (tmpname_len);
  160. +       strcpy (TMPINNAME, tmpdir);
  161. +       strcat (TMPINNAME, "/piXXXXXX");
  162. +       Mktemp(TMPINNAME);
  163. + 
  164. +       TMPREJNAME = (char *) malloc (tmpname_len);
  165. +       strcpy (TMPREJNAME, tmpdir);
  166. +       strcat (TMPREJNAME, "/prXXXXXX");
  167. +       Mktemp(TMPREJNAME);
  168. + 
  169. +       TMPPATNAME = (char *) malloc (tmpname_len);
  170. +       strcpy (TMPPATNAME, tmpdir);
  171. +       strcat (TMPPATNAME, "/ppXXXXXX");
  172. +       Mktemp(TMPPATNAME);
  173. +     }
  174. + #endif
  175.   
  176.       /* parse switches */
  177.       Argc = argc;
  178. *** /home/bammi/etc/src/patch/pch.c    Tue Dec  3 11:27:06 1991
  179. --- pch.c    Fri Mar 20 18:30:47 1992
  180. ***************
  181. *** 728,738 ****
  182. --- 728,741 ----
  183.   
  184.       if (diff_type == CONTEXT_DIFF &&
  185.         (fillcnt || (p_first > 1 && ptrn_copiable > 2*p_context)) ) {
  186. + #ifndef atarist    /* unfortunately this is always true for TOS because of
  187. +            the ^M at the end of a line -- just ignore warning */
  188.           if (verbose)
  189.           say4("%s\n%s\n%s\n",
  190.   "(Fascinating--this is really a new-style context diff but without",
  191.   "the telltale extra asterisks on the *** line that usually indicate",
  192.   "the new style...)");
  193. + #endif
  194.           diff_type = NEW_CONTEXT_DIFF;
  195.       }
  196.       
  197. ***************
  198. *** 1239,1244 ****
  199. --- 1242,1248 ----
  200.       return p_hunk_beg;
  201.   }
  202.   
  203. + #ifndef atarist
  204.   /* Apply an ed script by feeding ed itself. */
  205.   
  206.   void
  207. ***************
  208. *** 1302,1304 ****
  209. --- 1306,1316 ----
  210.       chmod(outname, filemode);
  211.       set_signals(1);
  212.   }
  213. + #else
  214. + void
  215. + do_ed_script()
  216. + {
  217. +     fprintf(stderr,"Sorry! TOS version of Patch cannot deal with ed scripts\n");
  218. +     exit(999);
  219. + }
  220. + #endif
  221. No differences encountered
  222. *** /home/bammi/etc/src/patch/util.c    Thu Mar 19 18:34:20 1992
  223. --- util.c    Fri Mar 20 18:30:49 1992
  224. ***************
  225. *** 74,84 ****
  226. --- 74,88 ----
  227.       if (debug & 4)
  228.           say3("Moving %s to %s.\n", to, bakname);
  229.   #endif
  230. + #ifdef atarist
  231. +     copy_file(to, bakname);
  232. + #else
  233.       if (link(to, bakname) < 0) {
  234.           say3("patch: can't backup %s, output is in %s\n",
  235.           to, from);
  236.           return -1;
  237.       }
  238. + #endif
  239.       while (unlink(to) >= 0) ;
  240.       }
  241.   #ifdef DEBUGGING
  242. ***************
  243. *** 85,91 ****
  244. --- 89,100 ----
  245.       if (debug & 4)
  246.       say3("Moving %s to %s.\n", from, to);
  247.   #endif
  248. + 
  249. + #ifndef atarist
  250.       if (link(from, to) < 0) {        /* different file system? */
  251. + #else
  252. +     if (1) {
  253. + #endif
  254.       Reg4 int tofd;
  255.       
  256.       tofd = creat(to, 0666);
  257. ***************
  258. *** 205,210 ****
  259. --- 214,222 ----
  260.   
  261.       Sprintf(buf, pat, arg1, arg2, arg3);
  262.       Fflush(stderr);
  263. + #ifdef atarist
  264. +     r = _tos_ask(buf);
  265. + #else
  266.       write(2, buf, strlen(buf));
  267.       if (tty2) {                /* might be redirected to a file */
  268.       r = read(2, buf, sizeof buf);
  269. ***************
  270. *** 229,234 ****
  271. --- 241,247 ----
  272.       buf[0] = '\n';
  273.       r = 1;
  274.       }
  275. + #endif
  276.       if (r <= 0)
  277.       buf[0] = 0;
  278.       else
  279. ***************
  280. *** 364,369 ****
  281. --- 377,383 ----
  282.       Sprintf(tmpbuf, "RCS/%s", name);
  283.       free(s);
  284.       if (stat(name, &filestat) < 0 && !assume_exists) {
  285. + #ifndef atarist
  286.       Strcat(tmpbuf, RCSSUFFIX);
  287.       if (stat(tmpbuf, &filestat) < 0 && stat(tmpbuf+4, &filestat) < 0) {
  288.           Sprintf(tmpbuf, "SCCS/%s%s", SCCSPREFIX, name);
  289. ***************
  290. *** 372,377 ****
  291. --- 386,441 ----
  292.           name = Nullch;
  293.           }
  294.       }
  295. + #else
  296. +         free(name);
  297. +         name = Nullch;
  298. + #endif
  299.       }
  300.       return name;
  301.   }
  302. + 
  303. + /* this kludge is necessary because stdin is most likely re-directed
  304. +    and there is no way to read from CON: due to the braindamage
  305. +    in handles -- thanks Atari
  306. +  */
  307. + #ifdef atarist
  308. + #undef Fclose
  309. + #undef Fseek
  310. + #include <osbind.h>
  311. + int _tos_ask(buf)
  312. + char *buf;
  313. + {
  314. +     /* have to el-kludge it */
  315. +     int c;
  316. +     int r = 0;
  317. +     char *p = buf;
  318. + 
  319. +     write(2, buf, strlen(buf));
  320. + 
  321. +     while(( c = (Bconin(2) & 0x7f)) != '\r')
  322. +     {
  323. +     switch(c)
  324. +         {   /* we dont handle tabs/control chars nicely here */
  325. +         case 0:
  326. +         break;
  327. +         case '\b':
  328. +         case 0177:
  329. +         if(r > 0)
  330. +         { --p; --r; }
  331. +         Bconout(2, '\b'); Bconout(2, ' '); Bconout(2, '\b');
  332. +             break;
  333. +         default:
  334. +         if(c >= ' ')
  335. +         {
  336. +             *p++ = c; r++;
  337. +             Bconout(2, c);
  338. +         }
  339. +         /* else ignore control chars/tabs */
  340. +     }
  341. +     }
  342. +     Bconout(2, '\r');
  343. +     Bconout(2, '\n');
  344. +     *p++ = '\n'; *p = '\0';
  345. +     return r+1;
  346. + }
  347. + #endif
  348.