home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / emacsdif.lha / emacs-18.58 / cpp-diffs < prev    next >
Encoding:
Text File  |  1992-05-17  |  7.7 KB  |  317 lines
  1. diff -C 3 emacs-18.58/cpp/cccp.c gnuemacs:cpp/cccp.c
  2. *** emacs-18.58/cpp/cccp.c    Sun May 03 14:46:13 1992
  3. --- gnuemacs:cpp/cccp.c    Sun May 03 14:34:10 1992
  4. ***************
  5. *** 97,103 ****
  6. --- 97,116 ----
  7.   
  8.   #ifdef EMACS
  9.   #define NO_SHORTNAMES
  10. + #ifdef AMIGA
  11. + #include "/src/config.h"
  12. + #undef free
  13. + #undef malloc
  14. + #undef calloc
  15. + #undef realloc
  16. + #undef fflush
  17. + #undef fwrite
  18. + #define fflush(fp) _flsbf(-1,fp)
  19. + #define rindex strrchr
  20. + #undef AMIGA_DUMP
  21. + #else
  22.   #include "../src/config.h"
  23. + #endif
  24.   #ifdef static
  25.   #undef static
  26.   #endif
  27. ***************
  28. *** 115,121 ****
  29. --- 128,138 ----
  30.   #include <ctype.h>
  31.   #include <stdio.h>
  32.   #ifndef USG
  33. + #ifdef AMIGA
  34. + #include <time.h>
  35. + #else
  36.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  37. + #endif
  38.   #else
  39.   #define index strchr
  40.   #define rindex strrchr
  41. ***************
  42. *** 123,130 ****
  43. --- 140,149 ----
  44.   #include <fcntl.h>
  45.   #endif /* USG */
  46.   
  47. + #ifndef AMIGA
  48.   void bcopy (), bzero ();
  49.   int bcmp ();
  50. + #endif
  51.   
  52.   char *xmalloc (), *xrealloc (), *xcalloc ();
  53.   void fatal (), pfatal_with_name (), perror_with_name ();
  54. ***************
  55. *** 142,156 ****
  56. --- 161,189 ----
  57.   /* #include "file" starts with the first entry in the stack */
  58.   /* #include <file> starts with the second. */
  59.   /* -I directories are added after the first */
  60. + #ifdef AMIGA
  61.   struct directory_stack default_includes[2] =
  62.     {
  63. +     { &default_includes[1], "" },
  64. +     { 0, "cpp-include:" }
  65. +   };
  66. + #else
  67. + struct directory_stack default_includes[2] =
  68. +   {
  69.       { &default_includes[1], "." },
  70.       { 0, "/usr/include" }
  71.     };
  72. + #endif
  73. + 
  74.   struct directory_stack *include = &default_includes[0];
  75.   
  76. + #ifdef AMIGA
  77.   int max_include_len = 14;    /* strlen (default_include) + 2
  78.                               (for / and null) */
  79. + #else
  80. + int max_include_len = 9;    /* strlen (default_include) + 1
  81. +                             (for null) */
  82. + #endif
  83.   
  84.   char STDIN_FILE[] = "";        /* Empty, like real cpp */
  85.   int put_out_comments = 0;    /* JF non-zero means leave comments in the
  86. ***************
  87. *** 379,385 ****
  88.       dirtmp->next = include->next;
  89.       include->next = dirtmp;
  90.       dirtmp->fname = argv[i]+2;
  91. -     include = dirtmp;
  92.       if (strlen (argv[i]) > max_include_len)
  93.         max_include_len = strlen (argv[i]);
  94.       break;
  95. --- 412,417 ----
  96. ***************
  97. *** 405,411 ****
  98. --- 437,447 ----
  99.     else if ((f = open (in_fname, O_RDONLY)) < 0)
  100.       goto perror;
  101.   
  102. + #ifdef AMIGA
  103. +   stat (in_fname, &sbuf);
  104. + #else
  105.     fstat (f, &sbuf);
  106. + #endif
  107.     fp->fname = in_fname;
  108.     fp->lineno = 1;
  109.     /* JF all this is mine about reading pipes and ttys */
  110. ***************
  111. *** 652,658 ****
  112.           register U_CHAR *p = hp->name;
  113.           register U_CHAR *q = op->bufp - i;
  114.   
  115. !         if (c != (U_CHAR) -1)
  116.             q--;
  117.   
  118.           do {        /* all this to avoid a strncmp() */
  119. --- 688,694 ----
  120.           register U_CHAR *p = hp->name;
  121.           register U_CHAR *q = op->bufp - i;
  122.   
  123. !         if (c != -1)
  124.             q--;
  125.   
  126.           do {        /* all this to avoid a strncmp() */
  127. ***************
  128. *** 663,669 ****
  129.           save_ibufp = ip->bufp;
  130.           /* back up over identifier, then expand token */
  131.           op->bufp -= ident_length;
  132. !         if (c != (U_CHAR) -1) op->bufp--;
  133.           macroexpand (hp, ip, op, &excess_newlines);
  134.   
  135.           check_expand(op, ip->length - (ip->bufp - ip->buf));
  136. --- 699,705 ----
  137.           save_ibufp = ip->bufp;
  138.           /* back up over identifier, then expand token */
  139.           op->bufp -= ident_length;
  140. !         if (c != -1) op->bufp--;
  141.           macroexpand (hp, ip, op, &excess_newlines);
  142.   
  143.           check_expand(op, ip->length - (ip->bufp - ip->buf));
  144. ***************
  145. *** 670,676 ****
  146.           
  147.           /* If we just processed an identifier at end of input,
  148.              return right away.  */
  149. !         if (c == (U_CHAR) -1)
  150.             return;
  151.   
  152.           /* if the expansion routine has not moved the input
  153. --- 706,712 ----
  154.   
  155.           /* If we just processed an identifier at end of input,
  156.              return right away.  */
  157. !         if (c == -1)
  158.             return;
  159.   
  160.           /* if the expansion routine has not moved the input
  161. ***************
  162. *** 978,984 ****
  163.     struct stat sbuf;        /* to stat the include file */
  164.     FILE_BUF *fp;    /* for input stack frame */
  165.     struct directory_stack *stackp;
  166. !   int flen;
  167.   
  168.     int save_indepth = indepth;
  169.                   /* in case of errors */
  170. --- 1014,1020 ----
  171.     struct stat sbuf;        /* to stat the include file */
  172.     FILE_BUF *fp;    /* for input stack frame */
  173.     struct directory_stack *stackp;
  174. !   int flen, maxlen;
  175.   
  176.     int save_indepth = indepth;
  177.                   /* in case of errors */
  178. ***************
  179. *** 1019,1025 ****
  180. --- 1055,1064 ----
  181.     if (err)
  182.       goto nope;
  183.   
  184. +   /* DG: This doesn't handle includes of aa:... on the Amiga */
  185. +   /* It doesn't seem worth it. */
  186.     other_dir = NULL;
  187. +   maxlen = max_include_len;
  188.     if (stackp == include)
  189.       {
  190.         fp = &instack[indepth];
  191. ***************
  192. *** 1037,1042 ****
  193. --- 1076,1082 ----
  194.             other_dir = (char *) alloca (n + 1);
  195.             strncpy (other_dir, nam, n);
  196.             other_dir[n] = '\0';
  197. +                   if (n + 4 > maxlen) maxlen = n + 4;
  198.           }
  199.             break;
  200.           }
  201. ***************
  202. *** 1043,1049 ****
  203.       }
  204.       }
  205.                 /* JF search directory path */
  206. !   fname = (char *) alloca (max_include_len + flen);
  207.     for (; stackp; stackp = stackp->next)
  208.       {
  209.         if (other_dir)
  210. --- 1083,1089 ----
  211.       }
  212.       }
  213.                 /* JF search directory path */
  214. !   fname = (char *) alloca (maxlen + flen);
  215.     for (; stackp; stackp = stackp->next)
  216.       {
  217.         if (other_dir)
  218. ***************
  219. *** 1053,1058 ****
  220. --- 1093,1102 ----
  221.       }
  222.         else
  223.       strcpy (fname, stackp->fname);
  224. + #ifdef AMIGA
  225. +       if (fname[0] != 0 && fname[strlen(fname) - 1] != ':')
  226. +       /* Don't add / after : or empty strings */
  227. + #endif
  228.         strcat (fname, "/");
  229.         strncat (fname, fbeg, flen);
  230.         if ((f = open (fname, O_RDONLY)) >= 0)
  231. ***************
  232. *** 1064,1070 ****
  233. --- 1108,1118 ----
  234.         goto nope;
  235.       }
  236.   
  237. + #ifdef AMIGA
  238. +   if (stat(fname, &sbuf) < 0)
  239. + #else
  240.     if (fstat(f, &sbuf) < 0)
  241. + #endif
  242.       {
  243.         perror_with_name (fname);
  244.         goto nope;        /* impossible? */
  245. ***************
  246. *** 1308,1314 ****
  247.   
  248.       if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  249.   
  250. !       for (id_len = 0; is_idchar[p[id_len]]; id_len++)
  251.       ;
  252.         for (arg = arglist; arg != NULL; arg = arg->next) {
  253.       struct reflist *tpat;
  254. --- 1356,1362 ----
  255.   
  256.       if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  257.   
  258. !       for (id_len = 0; p+id_len < buf+size && is_idchar[p[id_len]]; id_len++)
  259.       ;
  260.         for (arg = arglist; arg != NULL; arg = arg->next) {
  261.       struct reflist *tpat;
  262. ***************
  263. *** 1465,1470 ****
  264. --- 1513,1533 ----
  265.    * the behavior of the #pragma directive is implementation defined.
  266.    * this implementation defines it as follows.
  267.    */
  268. + #ifdef AMIGA
  269. + do_pragma(buf, limit, op, keyword)
  270. +      U_CHAR *buf, *limit;
  271. +      FILE_BUF *op;
  272. +      struct keyword_table *keyword;
  273. + {
  274. +     /* Just copy the pragma directibe back out */
  275. +     int len2 = limit - buf, len1 = sizeof("#pragma") - 1;
  276. + 
  277. +     check_expand(op, len1 + len2);
  278. +     bcopy("#pragma", op->bufp, len1);
  279. +     bcopy(buf, op->bufp + len1, len2);
  280. +     op->bufp += len1 + len2;
  281. + }
  282. + #else
  283.   do_pragma()
  284.   {
  285.     close (0);
  286. ***************
  287. *** 1479,1484 ****
  288. --- 1542,1548 ----
  289.   nope:
  290.     fatal ("You are in a maze of twisty compiler features, all different");
  291.   }
  292. + #endif
  293.   
  294.   typedef struct if_stack {
  295.     struct if_stack *next;    /* for chaining to the next stack frame */
  296. ***************
  297. *** 2084,2092 ****
  298.       }
  299.   
  300.     if (ip != NULL)
  301. !     fprintf(stdout, "file %s, offset %d (line %d): ",
  302.           ip->fname, ip->bufp - ip->buf, ip->lineno);
  303. !   fprintf(stdout, "%s\n", msg);
  304.     return 0;
  305.   }
  306.   
  307. --- 2148,2156 ----
  308.       }
  309.   
  310.     if (ip != NULL)
  311. !     fprintf(stderr, "file %s, offset %d (line %d): ",
  312.           ip->fname, ip->bufp - ip->buf, ip->lineno);
  313. !   fprintf(stderr, "%s\n", msg);
  314.     return 0;
  315.   }
  316.   
  317.