home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / c / indent / diffs / amiga.diffs next >
Encoding:
Text File  |  1993-02-13  |  13.4 KB  |  589 lines
  1. diff -cr ram:indent-1.7/args.c dh1:indent-1.7/args.c
  2. *** ram:indent-1.7/args.c    Mon Feb 08 23:41:08 1993
  3. --- dh1:indent-1.7/args.c    Sat Feb 13 18:13:37 1993
  4. ***************
  5. *** 772,777 ****
  6. --- 772,797 ----
  7.     static char prof[] = INDENT_PROFILE;
  8.     char *homedir;
  9.   
  10. + #ifdef AMIGA
  11. +   if ((f = fopen (prof, "r")) != NULL)
  12. +     {
  13. +       scan_profile (f);
  14. +       (void) fclose (f);
  15. +       fname = xmalloc (sizeof prof);
  16. +       strcpy (fname, prof);
  17. +       return fname;
  18. +     }
  19. + 
  20. +   fname = xmalloc (sizeof prof + 5);
  21. +   sprintf (fname, "S:%s", prof);
  22. + 
  23. +   if ((f = fopen (fname, "r")) != NULL)
  24. +     {
  25. +       scan_profile (f);
  26. +       (void) fclose (f);
  27. +       return fname;
  28. +     }
  29. + #else /* !AMIGA */
  30.     if ((f = fopen (INDENT_PROFILE, "r")) != NULL)
  31.       {
  32.         int len = strlen (INDENT_PROFILE) + 3;
  33. ***************
  34. *** 801,806 ****
  35. --- 821,827 ----
  36.   
  37.         free (fname);
  38.       }
  39. + #endif /* !AMIGA */
  40.   
  41.     return 0;
  42.   }
  43. diff -cr ram:indent-1.7/backup.c dh1:indent-1.7/backup.c
  44. *** ram:indent-1.7/backup.c    Mon Feb 08 15:07:28 1993
  45. --- dh1:indent-1.7/backup.c    Sat Feb 13 18:16:42 1993
  46. ***************
  47. *** 74,79 ****
  48. --- 74,82 ----
  49.   #endif /* !SYSNDIR */
  50.   #else /* !USG */
  51.   #include <sys/dir.h>
  52. + #ifdef AMIGA
  53. + #define dirent direct
  54. + #endif /* AMIGA */
  55.   #endif /* !USG */
  56.   #endif /* !DIRENT */
  57.   
  58. ***************
  59. *** 94,100 ****
  60. --- 97,107 ----
  61.   #endif /* NODIR */
  62.   
  63.   /* Default backup file suffix to use */
  64. + #ifdef AMIGA
  65. + char *simple_backup_suffix = "!";
  66. + #else /* !AMIGA */
  67.   char *simple_backup_suffix = "~";
  68. + #endif /* !AMIGA */
  69.   
  70.   /* What kinds of backup files to make -- see
  71.      table `version_control_values' below. */
  72. ***************
  73. *** 135,141 ****
  74. --- 142,152 ----
  75.       {
  76.         for (p = &direntry[base_length + 2]; ISDIGIT (*p); ++p)
  77.       version = version * 10 + *p - '0';
  78. + #ifdef AMIGA
  79. +       if (p[0] != '!' || p[1])
  80. + #else /* !AMIGA */
  81.         if (p[0] != '~' || p[1])
  82. + #endif /* !AMIGA */
  83.       version = 0;
  84.       }
  85.   
  86. ***************
  87. *** 191,196 ****
  88. --- 202,237 ----
  89.     int version;
  90.   
  91.     p = pathname + pathlen - 1;
  92. + #ifdef AMIGA
  93. +   while (p > pathname && *p != '/' && *p != ':')
  94. +     p--;
  95. +   if (*p == '/')
  96. +     {
  97. +       int dirlen = p - pathname;
  98. +       register char *dirname;
  99. + 
  100. +       filename = p + 1;
  101. +       dirname = xmalloc (dirlen + 1);
  102. +       strncpy (dirname, pathname, (dirlen));
  103. +       dirname[dirlen] = '\0';
  104. +       version = highest_version (filename, dirname);
  105. +       free (dirname);
  106. +       return version;
  107. +     }
  108. +   else if (*p == ':')
  109. +     {
  110. +       int dirlen = p - pathname + 1;
  111. +       register char *dirname;
  112. + 
  113. +       filename = p + 1;
  114. +       dirname = xmalloc (dirlen + 1);
  115. +       strncpy (dirname, pathname, (dirlen));
  116. +       dirname[dirlen] = '\0';
  117. +       version = highest_version (filename, dirname);
  118. +       free (dirname);
  119. +       return version;
  120. +     }
  121. + #else /* !AMIGA */
  122.     while (p > pathname && *p != '/')
  123.       p--;
  124.   
  125. ***************
  126. *** 207,215 ****
  127. --- 248,261 ----
  128.         free (dirname);
  129.         return version;
  130.       }
  131. + #endif /* !AMIGA */
  132.   
  133.     filename = pathname;
  134. + #ifdef AMIGA
  135. +   version = highest_version (filename, "");
  136. + #else /* !AMIGA */
  137.     version = highest_version (filename, ".");
  138. + #endif /* !AMIGA */
  139.     return version;
  140.   }
  141.   
  142. ***************
  143. *** 241,248 ****
  144. --- 287,299 ----
  145.     if (!backup_name)
  146.       return 0;
  147.   
  148. + #ifdef AMIGA
  149. +   sprintf (backup_name, "%s.!%d!", pathname,
  150. +            (int) last_numbered_version);
  151. + #else /* !AMIGA */
  152.     sprintf (backup_name, "%s.~%d~", pathname,
  153.          (int) last_numbered_version);
  154. + #endif /* !AMIGA */
  155.     return backup_name;
  156.   }
  157.   
  158. ***************
  159. *** 326,336 ****
  160. --- 377,406 ----
  161.     char *new_backup_name;
  162.   
  163.     backup_filename = generate_backup_filename (version_control, file->name);
  164. + #ifdef AMIGA
  165. +   /* The original code contains a bug here. generate_backup_filename sets
  166. +      the return value to NULL if version_control == none. Just do nothing
  167. +      in this case. */
  168. +   if (! backup_filename)
  169. +     {
  170. +       if (version_control != none)
  171. +         {
  172. +           fprintf (stderr, "indent: Can't make backup filename of %s\n", file->name);
  173. +           exit (1);
  174. +         }
  175. +       else
  176. +         {
  177. +           free (backup_filename);
  178. +           return;
  179. +         }
  180. +     }
  181. + #else /* !AMIGA */
  182.     if (!backup_filename)
  183.       {
  184.         fprintf (stderr, "indent: Can't make backup filename of %s", file->name);
  185.         exit (1);
  186.       }
  187. + #endif /* !AMIGA */
  188.   
  189.     fd = creat (backup_filename, 0666);
  190.     if (fd < 0)
  191. diff -cr ram:indent-1.7/indent.c dh1:indent-1.7/indent.c
  192. *** ram:indent-1.7/indent.c    Thu Feb 11 01:24:06 1993
  193. --- dh1:indent-1.7/indent.c    Sat Feb 13 18:17:07 1993
  194. ***************
  195. *** 21,26 ****
  196. --- 21,41 ----
  197.   #include "indent.h"
  198.   #include <ctype.h>
  199.   
  200. + #ifdef AMIGA
  201. + #include <exec/types.h>
  202. + #include <dos/dos.h>
  203. + #include <dos/dosextens.h>
  204. + #include <dos/dosasl.h>
  205. + #include <proto/dos.h>
  206. + 
  207. + #define MAXPATH 200
  208. + #define MAXARGS 256
  209. + 
  210. + extern struct DosLibrary *DOSBase;
  211. + 
  212. + int expand_args ();
  213. + #endif /* AMIGA */
  214. + 
  215.   void
  216.   usage ()
  217.   {
  218. ***************
  219. *** 1637,1648 ****
  220. --- 1652,1691 ----
  221.     struct file_buffer *current_input;
  222.     char *profile_pathname = 0;
  223.     int using_stdin = false;
  224. + #ifdef AMIGA
  225. +   int ex_err;
  226. + #endif /* AMIGA */
  227.   
  228.   #ifdef DEBUG
  229.     if (debug)
  230.       debug_init ();
  231.   #endif
  232.   
  233. + #ifdef AMIGA
  234. +   if (DOSBase->dl_lib.lib_Version < 37)
  235. +     {
  236. +       fprintf (stderr, "You must have Kickstart 2.0 (V37) or higher!\n");
  237. +       exit (20);
  238. +     }
  239. + 
  240. +   if (argc == 2 && stricmp (argv[1],"-h") == 0)
  241. +     {
  242. +       usage ();
  243. +       exit (0);
  244. +     }
  245. + 
  246. +   if ((ex_err = expand_args (&argc, &argv)) == 0)
  247. +     {
  248. +       fprintf (stderr, "Couldn't expand wildcards\n");
  249. +       exit (20);
  250. +     }
  251. +   if (ex_err == 2)
  252. +     {
  253. +       fprintf (stderr, "Wildcards didn't match a file\n");
  254. +       exit (5);
  255. +     }
  256. + #endif /* AMIGA */
  257. + 
  258.     init_parser ();
  259.     initialize_backups ();
  260.   
  261. ***************
  262. *** 1745,1752 ****
  263. --- 1788,1803 ----
  264.   
  265.         for (i = 0; input_files; i++, input_files--)
  266.       {
  267. + #ifdef AMIGA
  268. +           /* Reset line- and comment-count */
  269. +           out_lines = out_coms = 0;
  270. + #endif /* AMIGA */
  271.         current_input = read_file (in_file_names[i]);
  272.         in_name = out_name = in_file_names[i];
  273. + #ifdef AMIGA
  274. +           if (verbose)
  275. +             printf ("\n%s:\n", out_name);
  276. + #endif /* AMIGA */
  277.         output = fopen (out_name, "w");
  278.         if (output == 0)
  279.           {
  280. ***************
  281. *** 1778,1783 ****
  282. --- 1829,1838 ----
  283.         if (!out_name && !use_stdout)
  284.           {
  285.             out_name = in_file_names[0];
  286. + #ifdef AMIGA
  287. +               if (verbose)
  288. +                 printf ("\n%s:\n", out_name);
  289. + #endif /* AMIGA */
  290.             make_backup (current_input);
  291.           }
  292.       }
  293. ***************
  294. *** 1803,1805 ****
  295. --- 1858,1981 ----
  296.   
  297.     exit (0);
  298.   }
  299. + 
  300. + 
  301. + #ifdef AMIGA
  302. + char *expand_next_file (pattern)
  303. +      char *pattern;
  304. + {
  305. +   long err;
  306. +   char *pathname;
  307. +   static struct AnchorPath *an = NULL;
  308. + 
  309. +   pathname = NULL;
  310. +   if (pattern == NULL)
  311. +     err = -1;
  312. +   else
  313. +     do
  314. +       {
  315. +         if (an == NULL)
  316. +           {
  317. +             an = malloc (sizeof (struct AnchorPath) + MAXPATH);
  318. +             memset (an, 0, sizeof (struct AnchorPath) + MAXPATH);
  319. +             an->ap_BreakBits = SIGBREAKF_CTRL_C;
  320. +             an->ap_Strlen = MAXPATH;
  321. +             an->ap_Flags = APF_DOWILD;
  322. +             err = MatchFirst (pattern, an);
  323. +           }
  324. +         else
  325. +           err = MatchNext (an);
  326. + 
  327. +         /* Expand only files */
  328. +         if (an->ap_Info.fib_DirEntryType < 0)
  329. +           pathname = an->ap_Buf;
  330. +       } while (err == 0 && pathname == NULL);
  331. + 
  332. +   if (err)
  333. +     {
  334. +       MatchEnd (an);
  335. +       free (an);
  336. +       an = NULL;
  337. +       return NULL;
  338. +     }
  339. +   else
  340. +     return pathname;
  341. + }
  342. + 
  343. + 
  344. + int
  345. + in_prev_args (arg, argv, argc)
  346. +      char *arg, **argv;
  347. +      int argc;
  348. + {
  349. +   int i, is_in_args;
  350. + 
  351. +   is_in_args = 0;
  352. +   for (i = 1; i < argc - 1; i++)
  353. +     if (strcmp (arg, argv[i]) == 0)
  354. +       is_in_args = 1;
  355. +   return is_in_args;
  356. + }
  357. + 
  358. + 
  359. + int
  360. + expand_args (oargc, oargv)
  361. +      int *oargc;
  362. +      char ***oargv;
  363. + {
  364. +   int i;
  365. +   char *str, **argv, buf[MAXPATH];
  366. +   int argc, no_match_at_all, num_matches, contains_wildcards;
  367. + 
  368. +   no_match_at_all = 1;
  369. +   contains_wildcards = 0;
  370. +   argc = 0;
  371. +   argv = malloc (MAXARGS * sizeof (char *));
  372. +   if (argv == NULL)
  373. +     return 0;
  374. + 
  375. +   argv[argc++] = (*oargv)[0];
  376. +   for (i = 1; i < *oargc; i++)
  377. +     {
  378. +       if (ParsePattern ((*oargv)[i], buf, MAXPATH))
  379. +         {
  380. +           contains_wildcards = 1;
  381. +           num_matches = 0;
  382. +           while (str = expand_next_file ((*oargv)[i]))
  383. +             if (argc >= MAXARGS)
  384. +               {
  385. +                 expand_next_file (NULL);
  386. +                 return 0;
  387. +               }
  388. +             else
  389. +               {
  390. +                 /* Avoid duplicate entries */
  391. +                 if (!in_prev_args (str, argv, argc))
  392. +                   {
  393. +                     argv[argc++] = strdup (str);
  394. +                     num_matches++;
  395. +                   }
  396. +               }
  397. +           if (num_matches != 0)
  398. +             no_match_at_all = 0;
  399. +         }
  400. +       else
  401. +         if (argc >= MAXARGS)
  402. +           return 0;
  403. +         else
  404. +           {
  405. +             if ((*oargv)[i][0] != '-' && (*oargv)[i][0] != '+')
  406. +               /* Found a file with no wildcards */
  407. +               no_match_at_all = 0;
  408. +             if (!in_prev_args ((*oargv)[i], argv, argc))
  409. +               argv[argc++] = (*oargv)[i];
  410. +           }
  411. +     }
  412. +   *oargc = argc;
  413. +   *oargv = argv;
  414. +   if (no_match_at_all && contains_wildcards)
  415. +     return 2;
  416. +   else
  417. +     return 1;
  418. + }
  419. + #endif /* AMIGA */
  420. diff -cr ram:indent-1.7/io.c dh1:indent-1.7/io.c
  421. *** ram:indent-1.7/io.c    Wed Feb 10 22:03:16 1993
  422. --- dh1:indent-1.7/io.c    Sat Feb 13 18:17:11 1993
  423. ***************
  424. *** 26,33 ****
  425. --- 26,39 ----
  426.      <sys/fcntl.h> or <sys/file.h> instead.  */
  427.   #include <fcntl.h>
  428.   
  429. + #ifdef AMIGA
  430. + #include <exec/types.h>
  431. + #include <dos/dos.h>
  432. + #include <proto/dos.h>
  433. + #else /* !AMIGA */
  434.   #include <sys/types.h>
  435.   #include <sys/stat.h>
  436. + #endif /* !AMIGA */
  437.   
  438.   /* number of levels a label is placed to left of code */
  439.   #define LABEL_OFFSET 2
  440. ***************
  441. *** 477,485 ****
  442. --- 483,516 ----
  443.        char *filename;
  444.   {
  445.     int fd;
  446. + #ifndef AMIGA
  447.     struct stat file_stats;
  448. + #endif /* !AMIGA */
  449.     int namelen = strlen (filename);
  450. + #ifdef AMIGA
  451. +   BPTR in_fh;
  452. +   struct FileInfoBlock __aligned in_fib;
  453. + #endif
  454. + 
  455. + #ifdef AMIGA
  456. +   in_fh = Lock (filename, SHARED_LOCK);
  457. +   if (in_fh == 0)
  458. +     sys_error (filename);
  459. + 
  460. +   if (Examine (in_fh, &in_fib) == 0)
  461. +     sys_error (filename);
  462. + 
  463. +   if (fileptr.data != 0)
  464. +     free (fileptr.data);
  465. +   fileptr.size = in_fib.fib_Size;
  466. +   fileptr.data = (char *) xmalloc (fileptr.size + 3);
  467.   
  468. +   UnLock (in_fh);
  469. + 
  470. +   fd = open (filename, O_RDONLY, 0777);
  471. +   if (fd < 0)
  472. +     sys_error (filename);
  473. + #else /* !AMIGA */
  474.     fd = open (filename, O_RDONLY, 0777);
  475.     if (fd < 0)
  476.       sys_error (filename);
  477. ***************
  478. *** 491,496 ****
  479. --- 522,528 ----
  480.       free (fileptr.data);
  481.     fileptr.size = file_stats.st_size;
  482.     fileptr.data = (char *) xmalloc (file_stats.st_size + 1);
  483. + #endif /* !AMIGA */
  484.   
  485.     if (read (fd, fileptr.data, fileptr.size) < 0)
  486.       sys_error (filename);
  487. ***************
  488. *** 523,532 ****
  489. --- 555,599 ----
  490.     unsigned int size = 15 * BUFSIZ;
  491.     int ch;
  492.     register char *p;
  493. + #ifdef AMIGA
  494. +   char *in_prog;
  495. +   int in_prog_size;
  496. + #endif /* AMIGA */
  497.   
  498.     if (stdinptr.data != 0)
  499.       free (stdinptr.data);
  500.   
  501. + /* The following code had to be changed, because you can't assume, that
  502. +    xrealloc() always returns the original pointer. By the way: the original
  503. +    code violates the GNU coding standards!!! */
  504. + 
  505. + #ifdef AMIGA
  506. +   in_prog = (char *) xmalloc (size + 1);
  507. +   in_prog_size = 0;
  508. +   do
  509. +     {
  510. +       for (; in_prog_size < size; in_prog_size++)
  511. +     {
  512. +       ch = getc (stdin);
  513. +       if (ch == EOF)
  514. +         break;
  515. +       in_prog[in_prog_size] = ch;
  516. +     }
  517. + 
  518. +       if (ch != EOF)
  519. +     {
  520. +       size += (2 * BUFSIZ);
  521. +       in_prog = xrealloc (in_prog, size);
  522. +     }
  523. +     }
  524. +   while (ch != EOF);
  525. + 
  526. +   stdinptr.data = in_prog;
  527. +   stdinptr.size = in_prog_size;
  528. +   stdinptr.name = "Standard Input";
  529. + 
  530. +   stdinptr.data[stdinptr.size] = '\0';
  531. + #else /* !AMIGA */
  532.     stdinptr.data = (char *) xmalloc (size + 1);
  533.     stdinptr.size = 0;
  534.     p = stdinptr.data;
  535. ***************
  536. *** 554,559 ****
  537. --- 621,627 ----
  538.     stdinptr.name = "Standard Input";
  539.   
  540.     stdinptr.data[stdinptr.size] = '\0';
  541. + #endif /* !AMIGA */
  542.   
  543.     return &stdinptr;
  544.   }
  545. diff -cr ram:indent-1.7/sys.h dh1:indent-1.7/sys.h
  546. *** ram:indent-1.7/sys.h    Wed Feb 10 21:39:58 1993
  547. --- dh1:indent-1.7/sys.h    Sat Feb 13 18:20:49 1993
  548. ***************
  549. *** 8,13 ****
  550. --- 8,18 ----
  551.      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  */
  552.   
  553.   #include <stdio.h>
  554. + #ifdef AMIGA
  555. + /* For malloc, etc... */
  556. + #include <stdlib.h>
  557. + #include <string.h>
  558. + #endif /* AMIGA */
  559.   
  560.   /* Values of special characters. */
  561.   #define TAB '\t'
  562. ***************
  563. *** 26,34 ****
  564. --- 31,41 ----
  565.   
  566.   /* configure defines USG if it can't find bcopy */
  567.   
  568. + #ifndef AMIGA
  569.   #ifndef USG
  570.   #define memcpy(dest,src,len) bcopy((src),(dest),len)
  571.   #endif
  572. + #endif /* !AMIGA */
  573.   
  574.   struct file_buffer
  575.   {
  576. ***************
  577. *** 40,47 ****
  578. --- 47,56 ----
  579.   extern struct file_buffer *read_file (), *read_stdin ();
  580.   
  581.   /* Standard memory allocation routines.  */
  582. + #ifndef AMIGA
  583.   char *malloc ();
  584.   char *realloc ();
  585. + #endif /* !AMIGA */
  586.   
  587.   /* Similar, but abort with an error if out of memory (see globs.c).  */
  588.   char *xmalloc ();
  589.