home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / gnu / emacs-18.59-src.lha / src / diffs / emacs-18.59.diffs
Text File  |  1993-10-03  |  325KB  |  11,140 lines
  1. diff -rcP emacs-18.59-fsf/cpp/SCOPTIONS emacs-18.59-amiga/cpp/SCOPTIONS
  2. *** emacs-18.59-fsf/cpp/SCOPTIONS    Thu Jan  1 00:00:00 1970
  3. --- emacs-18.59-amiga/cpp/SCOPTIONS    Sat Jun  5 12:01:06 1993
  4. ***************
  5. *** 0 ****
  6. --- 1,7 ----
  7. + IGNORE=161
  8. + IGNORE=154
  9. + IGNORE=100
  10. + IGNORE=181
  11. + IGNORE=84
  12. + IGNORE=93
  13. + IGNORE=72
  14. \ No newline at end of file
  15. diff -rcP emacs-18.59-fsf/cpp/cccp.c emacs-18.59-amiga/cpp/cccp.c
  16. *** emacs-18.59-fsf/cpp/cccp.c    Fri Sep 28 20:17:57 1990
  17. --- emacs-18.59-amiga/cpp/cccp.c    Sat Jun  5 12:07:16 1993
  18. ***************
  19. *** 97,103 ****
  20. --- 97,113 ----
  21.   
  22.   #ifdef EMACS
  23.   #define NO_SHORTNAMES
  24. + #ifdef AMIGA
  25. + #include "/src/config.h"
  26. + #undef fflush
  27. + #undef fwrite
  28. + #undef main
  29. + #undef putchar
  30. + #undef AMIGA_DUMP
  31. + #include <string.h>
  32. + #else
  33.   #include "../src/config.h"
  34. + #endif
  35.   #ifdef static
  36.   #undef static
  37.   #endif
  38. ***************
  39. *** 115,121 ****
  40. --- 125,135 ----
  41.   #include <ctype.h>
  42.   #include <stdio.h>
  43.   #ifndef USG
  44. + #ifdef AMIGA
  45. + #include <time.h>
  46. + #else
  47.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  48. + #endif
  49.   #else
  50.   #define index strchr
  51.   #define rindex strrchr
  52. ***************
  53. *** 123,130 ****
  54. --- 137,146 ----
  55.   #include <fcntl.h>
  56.   #endif /* USG */
  57.   
  58. + #ifndef AMIGA
  59.   void bcopy (), bzero ();
  60.   int bcmp ();
  61. + #endif
  62.   
  63.   char *xmalloc (), *xrealloc (), *xcalloc ();
  64.   void fatal (), pfatal_with_name (), perror_with_name ();
  65. ***************
  66. *** 142,156 ****
  67. --- 158,186 ----
  68.   /* #include "file" starts with the first entry in the stack */
  69.   /* #include <file> starts with the second. */
  70.   /* -I directories are added after the first */
  71. + #ifdef AMIGA
  72. + struct directory_stack default_includes[2] =
  73. +   {
  74. +     { &default_includes[1], "" },
  75. +     { 0, "include:" }
  76. +   };
  77. + #else
  78.   struct directory_stack default_includes[2] =
  79.     {
  80.       { &default_includes[1], "." },
  81.       { 0, "/usr/include" }
  82.     };
  83. + #endif
  84. + 
  85.   struct directory_stack *include = &default_includes[0];
  86.   
  87. + #ifdef AMIGA
  88.   int max_include_len = 14;    /* strlen (default_include) + 2
  89.                               (for / and null) */
  90. + #else
  91. + int max_include_len = 9;    /* strlen (default_include) + 1
  92. +                             (for null) */
  93. + #endif
  94.   
  95.   char STDIN_FILE[] = "";        /* Empty, like real cpp */
  96.   int put_out_comments = 0;    /* JF non-zero means leave comments in the
  97. ***************
  98. *** 379,385 ****
  99.       dirtmp->next = include->next;
  100.       include->next = dirtmp;
  101.       dirtmp->fname = argv[i]+2;
  102. -     include = dirtmp;
  103.       if (strlen (argv[i]) > max_include_len)
  104.         max_include_len = strlen (argv[i]);
  105.       break;
  106. --- 409,414 ----
  107. ***************
  108. *** 405,415 ****
  109.     else if ((f = open (in_fname, O_RDONLY)) < 0)
  110.       goto perror;
  111.   
  112. !   fstat (f, &sbuf);
  113.     fp->fname = in_fname;
  114.     fp->lineno = 1;
  115.     /* JF all this is mine about reading pipes and ttys */
  116. !   if ((sbuf.st_mode & S_IFMT) != S_IFREG) {
  117.       int size;
  118.       int bsize;
  119.       int cnt;
  120. --- 434,444 ----
  121.     else if ((f = open (in_fname, O_RDONLY)) < 0)
  122.       goto perror;
  123.   
  124. !   if (f) fstat (f, &sbuf);
  125.     fp->fname = in_fname;
  126.     fp->lineno = 1;
  127.     /* JF all this is mine about reading pipes and ttys */
  128. !   if (!f || (sbuf.st_mode & S_IFMT) != S_IFREG) {
  129.       int size;
  130.       int bsize;
  131.       int cnt;
  132. ***************
  133. *** 478,488 ****
  134.     struct keyword_table *handle_directive ();
  135.     int excess_newlines = 0;
  136.     int escaped = 0;
  137. !   
  138.     U_CHAR *bp;
  139. !   
  140.     check_expand(op, ip->length);
  141. !   
  142.     ip->bufp = ip->buf;
  143.     limit = ip->buf + ip->length;
  144.     while (1) {
  145. --- 507,517 ----
  146.     struct keyword_table *handle_directive ();
  147.     int excess_newlines = 0;
  148.     int escaped = 0;
  149. ! 
  150.     U_CHAR *bp;
  151. ! 
  152.     check_expand(op, ip->length);
  153. ! 
  154.     ip->bufp = ip->buf;
  155.     limit = ip->buf + ip->length;
  156.     while (1) {
  157. ***************
  158. *** 615,639 ****
  159.           *op->bufp++ = '/';
  160.         ip->bufp = bp + 1;
  161.         break;
  162. !       
  163.       case '0': case '1': case '2': case '3': case '4':
  164.       case '5': case '6': case '7': case '8': case '9':
  165.         /* if digit is not part of identifier, it is random */
  166.         if (ident_length == 0)
  167.       goto randomchar;
  168.         /* fall through */
  169. !       
  170.       case '_':
  171.       case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
  172.       case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
  173.       case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
  174.       case 's': case 't': case 'u': case 'v': case 'w': case 'x':
  175. !     case 'y': case 'z': 
  176.       case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
  177.       case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
  178.       case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
  179.       case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
  180. !     case 'Y': case 'Z': 
  181.         ident_length++;
  182.         /* compute step of hash function, to avoid a proc call on every token */
  183.         hash = HASHSTEP(hash, c);
  184. --- 644,668 ----
  185.           *op->bufp++ = '/';
  186.         ip->bufp = bp + 1;
  187.         break;
  188. ! 
  189.       case '0': case '1': case '2': case '3': case '4':
  190.       case '5': case '6': case '7': case '8': case '9':
  191.         /* if digit is not part of identifier, it is random */
  192.         if (ident_length == 0)
  193.       goto randomchar;
  194.         /* fall through */
  195. ! 
  196.       case '_':
  197.       case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
  198.       case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
  199.       case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
  200.       case 's': case 't': case 'u': case 'v': case 'w': case 'x':
  201. !     case 'y': case 'z':
  202.       case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
  203.       case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
  204.       case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
  205.       case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
  206. !     case 'Y': case 'Z':
  207.         ident_length++;
  208.         /* compute step of hash function, to avoid a proc call on every token */
  209.         hash = HASHSTEP(hash, c);
  210. ***************
  211. *** 646,676 ****
  212.       for (hp = hashtab[MAKE_POS(hash) % HASHSIZE]; hp != NULL;
  213.            hp = hp->next) {
  214.             U_CHAR *save_ibufp;    /* kludge, see below */
  215. !           
  216.             if (hp->length == ident_length) {
  217.           register int i = ident_length;
  218.           register U_CHAR *p = hp->name;
  219.           register U_CHAR *q = op->bufp - i;
  220.   
  221. !         if (c != (U_CHAR) -1)
  222.             q--;
  223.   
  224.           do {        /* all this to avoid a strncmp() */
  225.             if (*p++ != *q++)
  226.           goto hashcollision;
  227.           } while (--i);
  228. !      
  229.           save_ibufp = ip->bufp;
  230.           /* back up over identifier, then expand token */
  231.           op->bufp -= ident_length;
  232. !         if (c != (U_CHAR) -1) op->bufp--;
  233.           macroexpand (hp, ip, op, &excess_newlines);
  234.   
  235.           check_expand(op, ip->length - (ip->bufp - ip->buf));
  236. !         
  237.           /* If we just processed an identifier at end of input,
  238.              return right away.  */
  239. !         if (c == (U_CHAR) -1)
  240.             return;
  241.   
  242.           /* if the expansion routine has not moved the input
  243. --- 675,705 ----
  244.       for (hp = hashtab[MAKE_POS(hash) % HASHSIZE]; hp != NULL;
  245.            hp = hp->next) {
  246.             U_CHAR *save_ibufp;    /* kludge, see below */
  247. ! 
  248.             if (hp->length == ident_length) {
  249.           register int i = ident_length;
  250.           register U_CHAR *p = hp->name;
  251.           register U_CHAR *q = op->bufp - i;
  252.   
  253. !         if (c != -1)
  254.             q--;
  255.   
  256.           do {        /* all this to avoid a strncmp() */
  257.             if (*p++ != *q++)
  258.           goto hashcollision;
  259.           } while (--i);
  260. ! 
  261.           save_ibufp = ip->bufp;
  262.           /* back up over identifier, then expand token */
  263.           op->bufp -= ident_length;
  264. !         if (c != -1) op->bufp--;
  265.           macroexpand (hp, ip, op, &excess_newlines);
  266.   
  267.           check_expand(op, ip->length - (ip->bufp - ip->buf));
  268. ! 
  269.           /* If we just processed an identifier at end of input,
  270.              return right away.  */
  271. !         if (c == -1)
  272.             return;
  273.   
  274.           /* if the expansion routine has not moved the input
  275. ***************
  276. *** 679,685 ****
  277.              reason to put it back or not put it back. */
  278.           if (ip->bufp == save_ibufp)
  279.             *op->bufp++ = c;
  280. !         
  281.           break;        /* out of for loop */
  282.         }
  283.   hashcollision:
  284. --- 708,714 ----
  285.              reason to put it back or not put it back. */
  286.           if (ip->bufp == save_ibufp)
  287.             *op->bufp++ = c;
  288. ! 
  289.           break;        /* out of for loop */
  290.         }
  291.   hashcollision:
  292. ***************
  293. *** 687,693 ****
  294.       }            /* end for loop */
  295.       ident_length = hash = 0; /* stop collecting identifier */
  296.         }
  297. !         
  298.         /* If we just processed an identifier at end of input,
  299.        return right away.  */
  300.         if (c == -1)
  301. --- 716,722 ----
  302.       }            /* end for loop */
  303.       ident_length = hash = 0; /* stop collecting identifier */
  304.         }
  305. ! 
  306.         /* If we just processed an identifier at end of input,
  307.        return right away.  */
  308.         if (c == -1)
  309. ***************
  310. *** 746,752 ****
  311.     while (is_idchar[*cp])
  312.       cp++;
  313.     ident_length = cp - bp;
  314. !   
  315.     /*
  316.      * Decode the keyword and call the appropriate expansion
  317.      * routine, after moving the input pointer up to the next line.
  318. --- 775,781 ----
  319.     while (is_idchar[*cp])
  320.       cp++;
  321.     ident_length = cp - bp;
  322. ! 
  323.     /*
  324.      * Decode the keyword and call the appropriate expansion
  325.      * routine, after moving the input pointer up to the next line.
  326. ***************
  327. *** 758,770 ****
  328.         register U_CHAR *buf;
  329.         register U_CHAR *limit = ip->buf + ip->length;
  330.         U_CHAR *skip_to_end_of_comment();
  331. !       
  332.         buf = bp = bp + ident_length;
  333.         while (bp < limit) {
  334.       if (*bp == '\'' || *bp == '\"') {        /* JF handle quotes right  */
  335.         U_CHAR quotec;
  336.   
  337. !       for (quotec = *bp++; bp < limit && *bp != quotec; bp++) {
  338.           if (*bp == '\\') bp++;
  339.           if (*bp == '\n') {
  340.             if (bp[-1] == '\\')
  341. --- 787,804 ----
  342.         register U_CHAR *buf;
  343.         register U_CHAR *limit = ip->buf + ip->length;
  344.         U_CHAR *skip_to_end_of_comment();
  345. ! 
  346.         buf = bp = bp + ident_length;
  347.         while (bp < limit) {
  348.       if (*bp == '\'' || *bp == '\"') {        /* JF handle quotes right  */
  349.         U_CHAR quotec;
  350.   
  351. !       for (quotec = *bp++; bp < limit; bp++) {
  352. !         if (*bp == quotec)
  353. !           {
  354. !         bp++;
  355. !         break;
  356. !           }
  357.           if (*bp == '\\') bp++;
  358.           if (*bp == '\n') {
  359.             if (bp[-1] == '\\')
  360. ***************
  361. *** 801,813 ****
  362.                             some slop */
  363.       bp = buf;
  364.       buf = cp;
  365. !     
  366.       while (bp < limit) {
  367.         if (*bp == '\'' || *bp == '\"') {    /* JF handle quotes right  */
  368.           U_CHAR quotec;
  369.   
  370.           *cp++ = *bp;
  371. !         for (quotec = *bp++; bp < limit && *bp != quotec; *cp++ = *bp++) {
  372.             if (*bp == '\\')
  373.           *cp++ = *bp++;
  374.             if (*bp == '\n') {
  375. --- 835,852 ----
  376.                             some slop */
  377.       bp = buf;
  378.       buf = cp;
  379. ! 
  380.       while (bp < limit) {
  381.         if (*bp == '\'' || *bp == '\"') {    /* JF handle quotes right  */
  382.           U_CHAR quotec;
  383.   
  384.           *cp++ = *bp;
  385. !         for (quotec = *bp++; bp < limit; *cp++ = *bp++) {
  386. !           if (*bp == quotec)
  387. !         {
  388. !           *cp++ = *bp++;
  389. !           break;
  390. !         }
  391.             if (*bp == '\\')
  392.           *cp++ = *bp++;
  393.             if (*bp == '\n') {
  394. ***************
  395. *** 939,950 ****
  396.         ++ip->bufp;
  397.       }
  398.       break;
  399. !     
  400.   oops:
  401. !     
  402.       error ("`defined' must be followed by IDENT or (IDENT)");
  403.       break;
  404. !       
  405.     default:
  406.       error("CCCP error: illegal special hash type"); /* time for gdb */
  407.       abort ();
  408. --- 978,989 ----
  409.         ++ip->bufp;
  410.       }
  411.       break;
  412. ! 
  413.   oops:
  414. ! 
  415.       error ("`defined' must be followed by IDENT or (IDENT)");
  416.       break;
  417. ! 
  418.     default:
  419.       error("CCCP error: illegal special hash type"); /* time for gdb */
  420.       abort ();
  421. ***************
  422. *** 953,959 ****
  423.     check_expand(op, len);
  424.     bcopy (buf, op->bufp, len);
  425.     op->bufp += len;
  426. !   
  427.     return;
  428.   }
  429.   
  430. --- 992,998 ----
  431.     check_expand(op, len);
  432.     bcopy (buf, op->bufp, len);
  433.     op->bufp += len;
  434. ! 
  435.     return;
  436.   }
  437.   
  438. ***************
  439. *** 978,984 ****
  440.     struct stat sbuf;        /* to stat the include file */
  441.     FILE_BUF *fp;    /* for input stack frame */
  442.     struct directory_stack *stackp;
  443. !   int flen;
  444.   
  445.     int save_indepth = indepth;
  446.                   /* in case of errors */
  447. --- 1017,1023 ----
  448.     struct stat sbuf;        /* to stat the include file */
  449.     FILE_BUF *fp;    /* for input stack frame */
  450.     struct directory_stack *stackp;
  451. !   int flen, maxlen;
  452.   
  453.     int save_indepth = indepth;
  454.                   /* in case of errors */
  455. ***************
  456. *** 1019,1025 ****
  457. --- 1058,1068 ----
  458.     if (err)
  459.       goto nope;
  460.   
  461. +   /* DG: This doesn't handle includes of aa:... on the Amiga */
  462. +   /* It doesn't seem worth it. */
  463.     other_dir = NULL;
  464. +   maxlen = max_include_len;
  465. + #if 0
  466.     if (stackp == include)
  467.       {
  468.         fp = &instack[indepth];
  469. ***************
  470. *** 1037,1049 ****
  471.             other_dir = (char *) alloca (n + 1);
  472.             strncpy (other_dir, nam, n);
  473.             other_dir[n] = '\0';
  474.           }
  475.             break;
  476.           }
  477.       }
  478.       }
  479.                 /* JF search directory path */
  480. !   fname = (char *) alloca (max_include_len + flen);
  481.     for (; stackp; stackp = stackp->next)
  482.       {
  483.         if (other_dir)
  484. --- 1080,1094 ----
  485.             other_dir = (char *) alloca (n + 1);
  486.             strncpy (other_dir, nam, n);
  487.             other_dir[n] = '\0';
  488. +                   if (n + 4 > maxlen) maxlen = n + 4;
  489.           }
  490.             break;
  491.           }
  492.       }
  493.       }
  494. + #endif
  495.                 /* JF search directory path */
  496. !   fname = (char *) alloca (maxlen + flen);
  497.     for (; stackp; stackp = stackp->next)
  498.       {
  499.         if (other_dir)
  500. ***************
  501. *** 1053,1058 ****
  502. --- 1098,1107 ----
  503.       }
  504.         else
  505.       strcpy (fname, stackp->fname);
  506. + #ifdef AMIGA
  507. +       if (fname[0] != 0 && fname[strlen(fname) - 1] != ':')
  508. +       /* Don't add / after : or empty strings */
  509. + #endif
  510.         strcat (fname, "/");
  511.         strncat (fname, fbeg, flen);
  512.         if ((f = open (fname, O_RDONLY)) >= 0)
  513. ***************
  514. *** 1064,1070 ****
  515. --- 1113,1123 ----
  516.         goto nope;
  517.       }
  518.   
  519. + #ifdef AMIGA
  520. +   if (stat(fname, &sbuf) < 0)
  521. + #else
  522.     if (fstat(f, &sbuf) < 0)
  523. + #endif
  524.       {
  525.         perror_with_name (fname);
  526.         goto nope;        /* impossible? */
  527. ***************
  528. *** 1202,1208 ****
  529.       ++bp;            /* skip paren */
  530.       /* Skip exactly one space or tab if any.  */
  531.       if (bp < limit && (*bp == ' ' || *bp == '\t')) ++bp;
  532. !       
  533.       /* now everything from bp before limit is the definition. */
  534.       defn = collect_expansion(bp, limit - bp, arg_ptrs);
  535.     } else {
  536. --- 1255,1261 ----
  537.       ++bp;            /* skip paren */
  538.       /* Skip exactly one space or tab if any.  */
  539.       if (bp < limit && (*bp == ' ' || *bp == '\t')) ++bp;
  540. ! 
  541.       /* now everything from bp before limit is the definition. */
  542.       defn = collect_expansion(bp, limit - bp, arg_ptrs);
  543.     } else {
  544. ***************
  545. *** 1226,1235 ****
  546.         }
  547.       }
  548.     }
  549. !   
  550.     install (symname, T_MACRO, defn);
  551.     return 0;
  552. !   
  553.   nope:
  554.   
  555.     return 1;
  556. --- 1279,1288 ----
  557.         }
  558.       }
  559.     }
  560. ! 
  561.     install (symname, T_MACRO, defn);
  562.     return 0;
  563. ! 
  564.   nope:
  565.   
  566.     return 1;
  567. ***************
  568. *** 1308,1314 ****
  569.   
  570.       if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  571.   
  572. !       for (id_len = 0; is_idchar[p[id_len]]; id_len++)
  573.       ;
  574.         for (arg = arglist; arg != NULL; arg = arg->next) {
  575.       struct reflist *tpat;
  576. --- 1361,1367 ----
  577.   
  578.       if (is_idstart[*p] && (p==buf || !is_idchar[*(p-1)])) {
  579.   
  580. !       for (id_len = 0; p+id_len < buf+size && is_idchar[p[id_len]]; id_len++)
  581.       ;
  582.         for (arg = arglist; arg != NULL; arg = arg->next) {
  583.       struct reflist *tpat;
  584. ***************
  585. *** 1341,1347 ****
  586.     *exp_p++ = '\0';
  587.   
  588.     defn->length = exp_p - defn->expansion - 1;
  589. !   
  590.     /* give back excess storage */
  591.     defn->expansion = (U_CHAR *) xrealloc (defn->expansion, defn->length + 1);
  592.   
  593. --- 1394,1400 ----
  594.     *exp_p++ = '\0';
  595.   
  596.     defn->length = exp_p - defn->expansion - 1;
  597. ! 
  598.     /* give back excess storage */
  599.     defn->expansion = (U_CHAR *) xrealloc (defn->expansion, defn->length + 1);
  600.   
  601. ***************
  602. *** 1456,1462 ****
  603.       delete (hp);
  604.   }
  605.   
  606. ! /* handle #error command later */ 
  607.   do_error()
  608.   {
  609.   }
  610. --- 1509,1515 ----
  611.       delete (hp);
  612.   }
  613.   
  614. ! /* handle #error command later */
  615.   do_error()
  616.   {
  617.   }
  618. ***************
  619. *** 1465,1470 ****
  620. --- 1518,1538 ----
  621.    * the behavior of the #pragma directive is implementation defined.
  622.    * this implementation defines it as follows.
  623.    */
  624. + #ifdef AMIGA
  625. + do_pragma(buf, limit, op, keyword)
  626. +      U_CHAR *buf, *limit;
  627. +      FILE_BUF *op;
  628. +      struct keyword_table *keyword;
  629. + {
  630. +     /* Just copy the pragma directibe back out */
  631. +     int len2 = limit - buf, len1 = sizeof("#pragma") - 1;
  632. + 
  633. +     check_expand(op, len1 + len2);
  634. +     bcopy("#pragma", op->bufp, len1);
  635. +     bcopy(buf, op->bufp + len1, len2);
  636. +     op->bufp += len1 + len2;
  637. + }
  638. + #else
  639.   do_pragma()
  640.   {
  641.     close (0);
  642. ***************
  643. *** 1479,1484 ****
  644. --- 1547,1553 ----
  645.   nope:
  646.     fatal ("You are in a maze of twisty compiler features, all different");
  647.   }
  648. + #endif
  649.   
  650.   typedef struct if_stack {
  651.     struct if_stack *next;    /* for chaining to the next stack frame */
  652. ***************
  653. *** 1541,1547 ****
  654.       }
  655.       if_stack->type = T_ELIF;
  656.     }
  657. !   
  658.     value = eval_if_expression (buf, limit - buf);
  659.     conditional_skip (ip, value == 0, T_ELIF);
  660.   }
  661. --- 1610,1616 ----
  662.       }
  663.       if_stack->type = T_ELIF;
  664.     }
  665. ! 
  666.     value = eval_if_expression (buf, limit - buf);
  667.     conditional_skip (ip, value == 0, T_ELIF);
  668.   }
  669. ***************
  670. *** 1574,1580 ****
  671.   
  672.     delete (save_defined);    /* clean up special symbol */
  673.     free (temp_obuf.buf);
  674. !   
  675.     return value;
  676.   }
  677.   
  678. --- 1643,1649 ----
  679.   
  680.     delete (save_defined);    /* clean up special symbol */
  681.     free (temp_obuf.buf);
  682. ! 
  683.     return value;
  684.   }
  685.   
  686. ***************
  687. *** 1614,1620 ****
  688.     if_stack = temp;
  689.   
  690.     if_stack->type = type;
  691. !   
  692.     if (skip != 0) {
  693.       skip_if_group(ip);
  694.       return;
  695. --- 1683,1689 ----
  696.     if_stack = temp;
  697.   
  698.     if_stack->type = type;
  699. ! 
  700.     if (skip != 0) {
  701.       skip_if_group(ip);
  702.       return;
  703. ***************
  704. *** 1724,1730 ****
  705.    * without changing  if_stack ;  this is so that the error message
  706.    * for missing #endif's etc. will point to the original #if.  It
  707.    * is possible that something different would be better.
  708. !  */ 
  709.   do_else(buf, limit, op, keyword)
  710.        U_CHAR *buf, *limit;
  711.        FILE_BUF *op;
  712. --- 1793,1799 ----
  713.    * without changing  if_stack ;  this is so that the error message
  714.    * for missing #endif's etc. will point to the original #if.  It
  715.    * is possible that something different would be better.
  716. !  */
  717.   do_else(buf, limit, op, keyword)
  718.        U_CHAR *buf, *limit;
  719.        FILE_BUF *op;
  720. ***************
  721. *** 1915,1921 ****
  722.         int totlen;        /* total amount of exp buffer filled so far */
  723.   
  724.         register struct reflist *ap;
  725. !       struct argptrs { 
  726.                  U_CHAR *argstart;
  727.                  int length;
  728.                } *args;
  729. --- 1984,1990 ----
  730.         int totlen;        /* total amount of exp buffer filled so far */
  731.   
  732.         register struct reflist *ap;
  733. !       struct argptrs {
  734.                  U_CHAR *argstart;
  735.                  int length;
  736.                } *args;
  737. ***************
  738. *** 1999,2005 ****
  739.         ip2->buf = ip2->bufp = defn->expansion;
  740.         ip2->length = defn->length;
  741.       }
  742. !   
  743.     rescan (ip2, op);
  744.     --indepth;
  745.     *excess_newlines_ptr += newlines_found;
  746. --- 2068,2074 ----
  747.         ip2->buf = ip2->bufp = defn->expansion;
  748.         ip2->length = defn->length;
  749.       }
  750. ! 
  751.     rescan (ip2, op);
  752.     --indepth;
  753.     *excess_newlines_ptr += newlines_found;
  754. ***************
  755. *** 2024,2030 ****
  756.   {
  757.     int paren = 0;
  758.     int quotec = 0;
  759. !   
  760.     while (bp < ip->buf + ip->length) {
  761.       switch (*bp) {
  762.       case '(':
  763. --- 2093,2099 ----
  764.   {
  765.     int paren = 0;
  766.     int quotec = 0;
  767. ! 
  768.     while (bp < ip->buf + ip->length) {
  769.       switch (*bp) {
  770.       case '(':
  771. ***************
  772. *** 2084,2092 ****
  773.       }
  774.   
  775.     if (ip != NULL)
  776. !     fprintf(stdout, "file %s, offset %d (line %d): ",
  777.           ip->fname, ip->bufp - ip->buf, ip->lineno);
  778. !   fprintf(stdout, "%s\n", msg);
  779.     return 0;
  780.   }
  781.   
  782. --- 2153,2161 ----
  783.       }
  784.   
  785.     if (ip != NULL)
  786. !     fprintf(stderr, "file %s, offset %d (line %d): ",
  787.           ip->fname, ip->bufp - ip->buf, ip->lineno);
  788. !   fprintf(stderr, "%s\n", msg);
  789.     return 0;
  790.   }
  791.   
  792. ***************
  793. *** 2109,2115 ****
  794.   {
  795.     register int i;
  796.     register U_CHAR *p;
  797. !   
  798.     if (obuf->length - (obuf->bufp - obuf->buf) > needed)
  799.       return obuf->buf;
  800.   
  801. --- 2178,2184 ----
  802.   {
  803.     register int i;
  804.     register U_CHAR *p;
  805. ! 
  806.     if (obuf->length - (obuf->bufp - obuf->buf) > needed)
  807.       return obuf->buf;
  808.   
  809. ***************
  810. *** 2125,2131 ****
  811.   
  812.     return p;
  813.   }
  814. !   
  815.   /*
  816.    * install a name in the main hash table, even if it is already there.
  817.    *   name stops with first non alphanumeric, except leading '#'.
  818. --- 2194,2200 ----
  819.   
  820.     return p;
  821.   }
  822. ! 
  823.   /*
  824.    * install a name in the main hash table, even if it is already there.
  825.    *   name stops with first non alphanumeric, except leading '#'.
  826. ***************
  827. *** 2198,2204 ****
  828.   delete(hp)
  829.        HASHNODE *hp;
  830.   {
  831. !   
  832.     if (hp->prev != NULL)
  833.       hp->prev->next = hp->next;
  834.     if (hp->next != NULL)
  835. --- 2267,2273 ----
  836.   delete(hp)
  837.        HASHNODE *hp;
  838.   {
  839. ! 
  840.     if (hp->prev != NULL)
  841.       hp->prev->next = hp->next;
  842.     if (hp->next != NULL)
  843. ***************
  844. *** 2232,2241 ****
  845.        int hashsize;
  846.   {
  847.     register int r = 0;
  848. !   
  849.     while (len--)
  850.       r = HASHSTEP(r, *name++);
  851. !   
  852.     return MAKE_POS(r) % hashsize;
  853.   }
  854.   
  855. --- 2301,2310 ----
  856.        int hashsize;
  857.   {
  858.     register int r = 0;
  859. ! 
  860.     while (len--)
  861.       r = HASHSTEP(r, *name++);
  862. ! 
  863.     return MAKE_POS(r) % hashsize;
  864.   }
  865.   
  866. ***************
  867. *** 2282,2288 ****
  868.   #endif
  869.   
  870.     /* is there more? */
  871. !   
  872.   }
  873.   
  874.   /*
  875. --- 2351,2357 ----
  876.   #endif
  877.   
  878.     /* is there more? */
  879. ! 
  880.   }
  881.   
  882.   /*
  883. ***************
  884. *** 2357,2363 ****
  885.   #endif /* not VMS */
  886.   }
  887.   
  888. ! void 
  889.   bcopy (b1, b2, length)
  890.        register char *b1;
  891.        register char *b2;
  892. --- 2426,2432 ----
  893.   #endif /* not VMS */
  894.   }
  895.   
  896. ! void
  897.   bcopy (b1, b2, length)
  898.        register char *b1;
  899.        register char *b2;
  900. ***************
  901. *** 2379,2385 ****
  902.       *b2++ = *b1++;
  903.   #endif /* not VMS */
  904.   }
  905. !  
  906.   int
  907.   bcmp (b1, b2, length)    /* This could be a macro! */
  908.        register char *b1;
  909. --- 2448,2454 ----
  910.       *b2++ = *b1++;
  911.   #endif /* not VMS */
  912.   }
  913. ! 
  914.   int
  915.   bcmp (b1, b2, length)    /* This could be a macro! */
  916.        register char *b1;
  917. diff -rcP emacs-18.59-fsf/cpp/smakefile emacs-18.59-amiga/cpp/smakefile
  918. *** emacs-18.59-fsf/cpp/smakefile    Thu Jan  1 00:00:00 1970
  919. --- emacs-18.59-amiga/cpp/smakefile    Sat Oct  2 15:30:13 1993
  920. ***************
  921. *** 0 ****
  922. --- 1,23 ----
  923. + # Makefile for cccp in the Emacs distribution only.
  924. + # Here we assume that you are using SASC
  925. + # (since cccp is used by Emacs only to deal with long strings in macros.
  926. + 
  927. + CFLAGS=DEF EMACS idir //unix/include/ def STACK_DIRECTION=-1 def OUTPUT_LINE_COMMANDS nowvret debug sf
  928. + 
  929. + cpp: cccp
  930. +     -delete cpp
  931. +     makelink cpp cccp
  932. + cccp: cccp.o cexp.tab.o alloca.o
  933. +     sc link cccp.o alloca.o cexp.tab.o to cccp lib //unix/src/unix.lib
  934. + 
  935. + testexp: y.tab.c
  936. +     cc -g -DTEST_EXP_READER y.tab.c -o testexp
  937. + 
  938. + cexp.tab.c: cexp.y
  939. +     echo "expect 40 shift/reduce conflicts"
  940. +     bin:bison cexp.y >bison.debug
  941. + 
  942. + cccp.o: cccp.c
  943. + cexp.tab.o: cexp.tab.c
  944. + alloca.o: /src/alloca.c
  945. +     $(CC) $(CFLAGS) objname alloca.o /src/alloca.c
  946. diff -rcP emacs-18.59-fsf/etc/SCOPTIONS emacs-18.59-amiga/etc/SCOPTIONS
  947. *** emacs-18.59-fsf/etc/SCOPTIONS    Thu Jan  1 00:00:00 1970
  948. --- emacs-18.59-amiga/etc/SCOPTIONS    Sat Dec  5 18:07:36 1992
  949. ***************
  950. *** 0 ****
  951. --- 1,15 ----
  952. + STRINGMERGE
  953. + STRUCTUREEQUIVALENCE
  954. + NOWARNVOIDRETURN
  955. + NOVERSION
  956. + MEMORYSIZE=HUGE
  957. + INCLUDEDIR=src:unix/include
  958. + IGNORE=147
  959. + IGNORE=62
  960. + IGNORE=132
  961. + IGNORE=154
  962. + IGNORE=104
  963. + IGNORE=100
  964. + IGNORE=161
  965. + IGNORE=84
  966. + IGNORE=93
  967. diff -rcP emacs-18.59-fsf/etc/amiga-env.c emacs-18.59-amiga/etc/amiga-env.c
  968. *** emacs-18.59-fsf/etc/amiga-env.c    Thu Jan  1 00:00:00 1970
  969. --- emacs-18.59-amiga/etc/amiga-env.c    Sat Jun  5 16:55:12 1993
  970. ***************
  971. *** 0 ****
  972. --- 1,439 ----
  973. + /* env.c - manipulate environment and execute a program
  974. +    in that environment
  975. +    Mly 861126
  976. + 
  977. +    Copyright (C) 1986 Free Software Foundation, Inc.
  978. + 
  979. +     This program is free software; you can redistribute it and/or modify
  980. +     it under the terms of the GNU General Public License as published by
  981. +     the Free Software Foundation; either version 1, or (at your option)
  982. +     any later version.
  983. + 
  984. +     This program is distributed in the hope that it will be useful,
  985. +     but WITHOUT ANY WARRANTY; without even the implied warranty of
  986. +     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  987. +     GNU General Public License for more details.
  988. + 
  989. +     You should have received a copy of the GNU General Public License
  990. +     along with this program; if not, write to the Free Software
  991. +     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  992. + 
  993. +  In other words, you are welcome to use, share and improve this program.
  994. +  You are forbidden to forbid anyone else to use, share and improve
  995. +  what you give them.   Help stamp out software-hoarding!  */
  996. + 
  997. + /* 
  998. + 
  999. +    If first argument is "-", then a new environment is constructed
  1000. +    from scratch; otherwise the environment is inherited from the parent
  1001. +    process, except as modified by other options.
  1002. +    
  1003. +    So, "env - foo" will invoke the "foo" program in a null environment,
  1004. +    whereas "env foo" would invoke "foo" in the same environment as that
  1005. +    passed to "env" itself.
  1006. + 
  1007. +    Subsequent arguments are interpreted as follows:
  1008. +    
  1009. +    * "variable=value" (ie an arg containing a "=" character)
  1010. +      means to set the specified environment variable to that value.
  1011. +      `value' may be of zero length ("variable=").  Note that setting
  1012. +      a variable to a zero-length value is different from unsetting it.
  1013. + 
  1014. +    * "-u variable" or "-unset variable"
  1015. +      means to unset that variable
  1016. +      If that variable isn't set, does nothing.
  1017. + 
  1018. +    * "-s variable value" or "-set variable value"
  1019. +      same as "variable=value"
  1020. + 
  1021. +    * "-" or "--"
  1022. +      are used to indicate that the following argument is the program
  1023. +      to invoke.  This is only necessary when the program's name
  1024. +      begins with "-" or contains a "="
  1025. + 
  1026. +    * anything else
  1027. +      The first remaining argument specifies a program to invoke
  1028. +      (it is searched for according to the specification of the PATH
  1029. +      environment variable) and any arguments following that are
  1030. +      passed as arguments to that program
  1031. + 
  1032. +      If no program-name is specified following the environment
  1033. +      specifications the the resulting environment is printed
  1034. +      (The is like specifying a program-name of "printenv")
  1035. + 
  1036. +    Examples:
  1037. +      If the environment passed to "env" is
  1038. +      { USER=rms EDITOR=emacs PATH=.:/gnubin:/hacks }
  1039. + 
  1040. +      * "env DISPLAY=gnu:0 nemacs"
  1041. +         calls "nemacs" in the envionment
  1042. +     { EDITOR=emacs USER=rms DISPLAY=gnu }
  1043. + 
  1044. +      * "env - USER=foo /hacks/hack bar baz"
  1045. +        will call the "hack" program on arguments "bar" and "baz"
  1046. +        in an environment in which the only variable is "USER"
  1047. +        Note that the "-" option will clear out the PATH variable,
  1048. +        so one should be careful to specify in which directory
  1049. +        to find the program to call
  1050. +        
  1051. +      * "env -u EDITOR USER=foo PATH=/energy -- e=mc2 bar baz"
  1052. +        The program "/energy/e=mc2" is called with environment
  1053. +        { USER=foo PATH=/energy }
  1054. + 
  1055. + */
  1056. + 
  1057. + #include <exec/types.h>
  1058. + #include <dos/dostags.h>
  1059. + #include <dos/var.h>
  1060. + #include <proto/dos.h>
  1061. + #include <proto/exec.h>
  1062. + 
  1063. + #ifdef EMACS
  1064. + #define NO_SHORTNAMES
  1065. + #include "../src/config.h"
  1066. + #endif /* EMACS */
  1067. + 
  1068. + #include <stdio.h>
  1069. + #include <errno.h>
  1070. + #include <setjmp.h>
  1071. + 
  1072. + extern int execvp ();
  1073. + extern char *index ();
  1074. + 
  1075. + char *xmalloc (), *xrealloc ();
  1076. + char *concat ();
  1077. + 
  1078. + char *progname;
  1079. + void setenv ();
  1080. + void fatal ();
  1081. + 
  1082. + #define index strchr
  1083. + 
  1084. + struct MsgPort *end_port;
  1085. + struct {
  1086. +   struct Message msg;
  1087. +   int rc;
  1088. + } end_msg;
  1089. + int gargc;
  1090. + char **gargv;
  1091. + jmp_buf unixexit_buf;
  1092. + 
  1093. + void __saveds unix_start(void)
  1094. + {
  1095. +   int rc;
  1096. + 
  1097. +   if (!(rc = setjmp(unixexit_buf)))
  1098. +     {
  1099. +       unixmain(gargc, gargv);
  1100. +       rc = 1;
  1101. +     }
  1102. +   end_msg.rc = rc - 1;
  1103. +   end_msg.msg.mn_Length = sizeof(end_msg);
  1104. +   end_msg.msg.mn_Node.ln_Type = NT_MESSAGE;
  1105. +   PutMsg(end_port, &end_msg);
  1106. + }
  1107. + 
  1108. + void unixexit(int rc)
  1109. + {
  1110. +   longjmp(unixexit_buf, rc + 1);
  1111. + }
  1112. + 
  1113. + main(int argc, char **argv)
  1114. + {
  1115. +   int rc = 1;
  1116. +   long stacksize;
  1117. +   struct Process *us = (struct Process *)FindTask(0);
  1118. + 
  1119. +   if (us->pr_CLI) stacksize = ((struct CommandLineInterface *)BADDR(us->pr_CLI))->cli_DefaultStack << 2;
  1120. +   else stacksize = us->pr_StackSize;
  1121. + 
  1122. +   gargc = argc;
  1123. +   gargv = argv;
  1124. +   
  1125. +   end_port = CreateMsgPort();
  1126. + 
  1127. +   if (end_port && CreateNewProcTags(NP_Entry, unix_start,
  1128. +                     NP_Input, Input(), NP_CloseInput, 0UL,
  1129. +                     NP_Output, Output(), NP_CloseOutput, 0UL,
  1130. +                     NP_StackSize, stacksize,
  1131. +                     NP_Cli, TRUE, TAG_END))
  1132. +     {
  1133. +       while (!GetMsg(end_port)) WaitPort(end_port);
  1134. +       rc = end_msg.rc;
  1135. +     }
  1136. +   if (end_port) DeleteMsgPort(end_port);
  1137. +   Delay(1);
  1138. +   exit(rc);
  1139. + }
  1140. + 
  1141. + #define exit unixexit
  1142. + 
  1143. + unixmain (argc, argv)
  1144. +      register int argc;
  1145. +      register char **argv;
  1146. + {
  1147. +   register char *tem;
  1148. + 
  1149. +   progname = argv[0];
  1150. +   argc--;
  1151. +   argv++;
  1152. + 
  1153. +   /* "-" flag means to not inherit parent's environment */
  1154. +   /* This is ignored on the amiga */
  1155. +   if (argc && !strcmp (*argv, "-"))
  1156. +     {
  1157. +       argc--;
  1158. +       argv++;
  1159. +     }
  1160. + 
  1161. +   while (argc > 0)
  1162. +     {
  1163. +       tem = index (*argv, '=');
  1164. +       if (tem)
  1165. +     /* If arg contains a "=" it specifies to set a variable */
  1166. +     {
  1167. +       *tem = '\000';
  1168. +       setenv (*argv, tem + 1);
  1169. +       argc--; argv++;
  1170. +       continue;
  1171. +     }
  1172. +       
  1173. +       if (**argv != '-')
  1174. +     /* Remaining args are program name and args to pass it */
  1175. +     break;
  1176. + 
  1177. +       if (argc < 2)
  1178. +     fatal ("No argument following \"%s\" switch", *argv);
  1179. +        if (!strcmp (*argv, "-u") ||
  1180. +            !strcmp (*argv, "-unset"))
  1181. +     /* Unset a variable */
  1182. +     {
  1183. +       argc--; argv++;
  1184. +       setenv (*argv, 0);
  1185. +       argc--; argv++;
  1186. +     }
  1187. +       else if (!strcmp (*argv, "-s") ||
  1188. +            !strcmp (*argv, "-set"))
  1189. +     /* Set a variable */
  1190. +     {
  1191. +       argc--; argv++;
  1192. +       tem = *argv;
  1193. +       if (argc < 2)
  1194. +         fatal ("No value specified for variable \"%s\"",
  1195. +            tem);
  1196. +       argc--; argv++;
  1197. +       setenv (tem, *argv);
  1198. +       argc--; argv++;
  1199. +     }
  1200. +       else if (!strcmp (*argv, "-") || !strcmp (*argv, "--"))
  1201. +     {
  1202. +       argc--; argv++;
  1203. +       break;
  1204. +     }
  1205. +       else
  1206. +     {
  1207. +       fatal ("unknown switch \"%s\"", *argv);
  1208. +     }
  1209. +     }
  1210. + 
  1211. +   /* If no program specified print the environment and exit */
  1212. +   if (argc <= 0)
  1213. +     {
  1214. +       printenv();
  1215. +       exit (0);
  1216. +     }
  1217. +   else
  1218. +     {
  1219. +       extern int errno, sys_nerr;
  1220. +       extern char *sys_errlist[];
  1221. + 
  1222. +       (void) execvp (*argv, argv);
  1223. + 
  1224. +       fprintf (stderr, "%s: Cannot execute \"%s\"",
  1225. +            progname, *argv);
  1226. +       if (errno < sys_nerr)
  1227. +     fprintf (stderr, ": %s\n" , sys_errlist[errno]);
  1228. +       else
  1229. +     putc ('\n', stderr);
  1230. +       exit (errno != 0 ? errno : 1);
  1231. +     }
  1232. + }
  1233. + 
  1234. + int execvp(program, argv)
  1235. + char *program, **argv;
  1236. + {
  1237. +   int index, comsize;
  1238. +   char *combuf, *bp;
  1239. +   long err, rc;
  1240. +   
  1241. +   combuf = xmalloc(256);
  1242. +   comsize = 256;
  1243. + 
  1244. +   bp = combuf;
  1245. +   for (index = 0; argv[index] != 0; index++)
  1246. +     {
  1247. +       char *s = argv[index];
  1248. +       int len;
  1249. + 
  1250. +       len = 3;
  1251. +       while (*s) len += 1 + 2 * (*s++ == '"');
  1252. +       if (bp + len + 1 >= combuf + comsize)
  1253. +     {
  1254. +       char *newbuf;
  1255. +       int new_comsize;
  1256. + 
  1257. +       new_comsize = 2 * comsize + len;
  1258. +       newbuf = xmalloc(new_comsize);
  1259. +       memcpy(newbuf, combuf, comsize);
  1260. + 
  1261. +       bp = newbuf + (bp - combuf);
  1262. +       combuf = newbuf;
  1263. +       comsize = new_comsize;
  1264. +     }
  1265. +       *bp++ = ' ';
  1266. +       *bp++ = '"';
  1267. +       s = argv[index];
  1268. +       while (*s)
  1269. +     {
  1270. +       if (*s == '"' || *s == '*') *bp++ = '*';
  1271. +       *bp++ = *s++;
  1272. +     }
  1273. +       *bp++ = '"';
  1274. +     }
  1275. +   *bp = '\0';
  1276. +   rc = SystemTags(combuf,
  1277. +           SYS_UserShell, 1UL,
  1278. +           TAG_END);
  1279. +   err = IoErr();
  1280. +   free(combuf);
  1281. +   if (rc != -1) exit(rc);
  1282. +   
  1283. +   errno = convert_oserr(err);
  1284. +   return -1;
  1285. + }
  1286. + 
  1287. + int convert_oserr(int ioerr)
  1288. + {
  1289. +   extern int _OSERR;
  1290. + 
  1291. +   _OSERR = ioerr;
  1292. +   switch (ioerr)
  1293. +     {
  1294. +     case 0: return 0;
  1295. +     case ERROR_NO_FREE_STORE: return ENOMEM;
  1296. +     case ERROR_TASK_TABLE_FULL: return EAGAIN;
  1297. +     case ERROR_BAD_TEMPLATE: case ERROR_REQUIRED_ARG_MISSING:
  1298. +     case ERROR_KEY_NEEDS_ARG: case ERROR_TOO_MANY_ARGS:
  1299. +     case ERROR_UNMATCHED_QUOTES: case ERROR_LINE_TOO_LONG: return EINVAL;
  1300. +     case ERROR_OBJECT_IN_USE: return EBUSY;
  1301. +     case ERROR_OBJECT_EXISTS: return EEXIST;
  1302. +     case ERROR_DIR_NOT_FOUND: return ENOENT;
  1303. +     case ERROR_OBJECT_NOT_FOUND: return ENOENT;
  1304. +     case ERROR_BAD_STREAM_NAME: return EINVAL;
  1305. +     case ERROR_OBJECT_TOO_LARGE: return E2BIG;
  1306. +     case ERROR_ACTION_NOT_KNOWN: return EINVAL;
  1307. +     case ERROR_INVALID_COMPONENT_NAME: return EINVAL;
  1308. +     case ERROR_INVALID_LOCK: return EINVAL;
  1309. +     case ERROR_OBJECT_WRONG_TYPE: return EINVAL;
  1310. +     case ERROR_DISK_WRITE_PROTECTED: return EACCES;
  1311. +     case ERROR_SEEK_ERROR: return EIO;
  1312. +     case ERROR_DISK_FULL: return ENOSPC;
  1313. +     case ERROR_DELETE_PROTECTED: return EACCES;
  1314. +     case ERROR_WRITE_PROTECTED: return EACCES;
  1315. +     case ERROR_READ_PROTECTED: return EACCES;
  1316. +     case ERROR_RENAME_ACROSS_DEVICES: return EXDEV;
  1317. +     default: return EOSERR;
  1318. +     }
  1319. + }
  1320. + 
  1321. + printenv(void)
  1322. + /* Effect: Prints a UNIX style environment from the AmigaDOS environment.
  1323. + */
  1324. + {
  1325. +   struct LocalVar *scan_env;
  1326. +   struct Process *us = (struct Process *)FindTask(0);
  1327. + 
  1328. +   for (scan_env = (struct LocalVar *)us->pr_LocalVars.mlh_Head;
  1329. +        scan_env->lv_Node.ln_Succ;
  1330. +        scan_env = (struct LocalVar *)scan_env->lv_Node.ln_Succ)
  1331. +     if (scan_env->lv_Node.ln_Type == LV_VAR &&
  1332. +     !(scan_env->lv_Flags & (GVF_GLOBAL_ONLY | GVF_BINARY_VAR)))
  1333. +       {
  1334. +     /* We only handle local text variables */
  1335. +     printf("%s=", scan_env->lv_Node.ln_Name);
  1336. +     fwrite(scan_env->lv_Value, 1, scan_env->lv_Len, stdout);
  1337. +     putchar('\n');
  1338. +       }
  1339. + }
  1340. + 
  1341. + void
  1342. + setenv (var, val)
  1343. +   register char *var, *val;
  1344. + {
  1345. +   if (val) SetVar(var, val, -1, LV_VAR | GVF_LOCAL_ONLY);
  1346. +   else DeleteVar(var, LV_VAR | GVF_LOCAL_ONLY);
  1347. + }
  1348. + 
  1349. + void
  1350. + fatal (msg, arg1, arg2)
  1351. +      char *msg, *arg1, *arg2;
  1352. + {
  1353. +   fprintf (stderr, "%s: ", progname);
  1354. +   fprintf (stderr, msg, arg1, arg2);
  1355. +   putc ('\n', stderr);
  1356. +   exit (1);
  1357. + }
  1358. + 
  1359. + 
  1360. + extern char *malloc (), *realloc ();
  1361. + 
  1362. + void
  1363. + memory_fatal ()
  1364. + {
  1365. +   fatal ("Out of memory");
  1366. + }
  1367. + 
  1368. + char *
  1369. + xmalloc (size)
  1370. +      int size;
  1371. + {
  1372. +   register char *value;
  1373. +   value = (char *) malloc (size);
  1374. +   if (!value) memory_fatal ();
  1375. +   return (value);
  1376. + }
  1377. + 
  1378. + char *
  1379. + xrealloc (ptr, size)
  1380. +      char *ptr;
  1381. +      int size;
  1382. + {
  1383. +   register char *value;
  1384. +   value = (char *) realloc (ptr, size);
  1385. +   if (!value) memory_fatal ();
  1386. +   return (value);
  1387. + }
  1388. + 
  1389. + /* Return a newly-allocated string whose contents concatenate those of s1, s2, s3.  */
  1390. + 
  1391. + char *
  1392. + concat (s1, s2, s3)
  1393. +      char *s1, *s2, *s3;
  1394. + {
  1395. +   int len1 = strlen (s1), len2 = strlen (s2), len3 = strlen (s3);
  1396. +   char *result = (char *) xmalloc (len1 + len2 + len3 + 1);
  1397. + 
  1398. +   strcpy (result, s1);
  1399. +   strcpy (result + len1, s2);
  1400. +   strcpy (result + len1 + len2, s3);
  1401. +   *(result + len1 + len2 + len3) = 0;
  1402. + 
  1403. +   return result;
  1404. + }
  1405. + 
  1406. + 
  1407. + /*
  1408. +  * Local variables:
  1409. +  * compile-command: "lc -L -v amiga-env.c"
  1410. +  * end:
  1411. +  */
  1412. diff -rcP emacs-18.59-fsf/etc/etags.c emacs-18.59-amiga/etc/etags.c
  1413. *** emacs-18.59-fsf/etc/etags.c    Thu Aug 20 05:11:01 1992
  1414. --- emacs-18.59-amiga/etc/etags.c    Sun May  9 18:35:40 1993
  1415. ***************
  1416. *** 338,347 ****
  1417. --- 338,354 ----
  1418.       {
  1419.         for (i=1; i<ac; i++)
  1420.       {
  1421. + #ifdef AMIGA
  1422. +       rename(outfile, "OTAGS");
  1423. +       sprintf(cmd, "egrep >%s -v '\t%s\t' OTAGS", outfile, av[i]);
  1424. +       system(cmd);
  1425. +       unlink("OTAGS");
  1426. + #else
  1427.         sprintf(cmd,
  1428.             "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
  1429.             outfile, av[i], outfile);
  1430.         system(cmd);
  1431. + #endif
  1432.       }
  1433.         aflag++;
  1434.       }
  1435. ***************
  1436. *** 357,363 ****
  1437. --- 364,374 ----
  1438.   #ifndef VMS
  1439.     if (uflag)
  1440.       {
  1441. + #ifdef AMIGA
  1442. +       sprintf(cmd, "c:sort from %s to %s", outfile, outfile);
  1443. + #else
  1444.         sprintf(cmd, "sort %s -o %s", outfile, outfile);
  1445. + #endif
  1446.         system(cmd);
  1447.       }
  1448.   #endif
  1449. diff -rcP emacs-18.59-fsf/etc/make-docfile.c emacs-18.59-amiga/etc/make-docfile.c
  1450. *** emacs-18.59-fsf/etc/make-docfile.c    Fri Oct 25 18:43:28 1991
  1451. --- emacs-18.59-amiga/etc/make-docfile.c    Sun May  9 18:35:46 1993
  1452. ***************
  1453. *** 57,64 ****
  1454. --- 57,86 ----
  1455.         i += 2;
  1456.       }
  1457.   
  1458. + #ifdef AMIGA
  1459. +   {
  1460. +     char fn[512], *fpos;
  1461. +     int c;
  1462. + 
  1463. +     c = getchar();
  1464. +     do
  1465. +       {
  1466. +     while (c == ' ' || c == '\n' || c == '\t') c = getchar();
  1467. +     if (c == EOF) break;
  1468. +     fpos = fn;
  1469. +     do *fpos++ = c;
  1470. +     while ((c = getchar()) != EOF && c != ' ' && c != '\t' && c != '\n');
  1471. +     *fpos = 0;
  1472. + 
  1473. +     fprintf(stderr, "doc file %s\n", fn);
  1474. +     err_count += scan_file (fn); /* err_count seems to be {mis,un}used */
  1475. +       }
  1476. +     while (1);
  1477. +   }
  1478. + #else
  1479.     for (; i < argc; i++)
  1480.       err_count += scan_file (argv[i]);    /* err_count seems to be {mis,un}used */
  1481. + #endif
  1482.   #ifndef VMS
  1483.     exit (err_count);            /* see below - shane */
  1484.   #endif /* VMS */
  1485. diff -rcP emacs-18.59-fsf/etc/sh.c emacs-18.59-amiga/etc/sh.c
  1486. *** emacs-18.59-fsf/etc/sh.c    Thu Jan  1 00:00:00 1970
  1487. --- emacs-18.59-amiga/etc/sh.c    Sat Jun  5 11:44:06 1993
  1488. ***************
  1489. *** 0 ****
  1490. --- 1,145 ----
  1491. + ;/*
  1492. + SC LINK NOSTKCHK DEF SASC=1 sh.c
  1493. + QUIT
  1494. + */
  1495. + /*
  1496. +  * original version: David Gay
  1497. +  *
  1498. +  * 05/18/93 ch added SAS support, external verbose flag and primitive_parse
  1499. +  */
  1500. + #include <exec/types.h>
  1501. + #include <dos/dostags.h>
  1502. + #include <stdio.h>
  1503. + 
  1504. + #ifdef SASC
  1505. + #include <string.h>
  1506. + #include <stdlib.h>
  1507. + #endif
  1508. + 
  1509. + #include <proto/dos.h>
  1510. + 
  1511. + /*
  1512. +   translates:
  1513. +  
  1514. +   echo "string1;string2" ; cd xx:c ; copy xx yy
  1515. +  
  1516. +       into
  1517. +  
  1518. +   echo "string1;string2" \n cd xx:c \n copy xx yy
  1519. + 
  1520. +   note:
  1521. +     this is a really primitive function ;-) , it may be 
  1522. +     changed if necessary
  1523. + 
  1524. + */
  1525. + 
  1526. + #define QUOTE    '"'
  1527. + 
  1528. + void primitive_parse(char *s)
  1529. + {
  1530. +     int c;
  1531. + 
  1532. +     while(c = *s++)
  1533. +     {
  1534. +     if(c == QUOTE)
  1535. +     {
  1536. +         while((c = *s++) && (c != QUOTE))
  1537. +         ;
  1538. +         if(!c)
  1539. +         break;
  1540. +     }
  1541. +     else if(c == ';')
  1542. +         *(s-1) = '\n';
  1543. +     }
  1544. + }
  1545. + 
  1546. + int execute(char *cmd, int debug)
  1547. + {
  1548. +     long rc;
  1549. +     char *s;
  1550. + 
  1551. +     while (*cmd == ' ') cmd++;
  1552. +     if (strncmp(cmd, "exec", 4) == 0 && (cmd[4] == ' ' || cmd[4] == '\t')) 
  1553. +     cmd += 4;
  1554. +     
  1555. +     s = cmd;
  1556. +     primitive_parse(s);
  1557. + 
  1558. +     if(debug)
  1559. +     fprintf(stderr,"/etc/sh: preparsed line:\n%s\n", cmd);
  1560. + 
  1561. +     if ((rc = SystemTags(cmd, SYS_UserShell, TRUE, TAG_END)) == -1)
  1562. +     {
  1563. +     fprintf(stderr, "Failed to execute command %s\n", cmd);
  1564. +     return 20;
  1565. +     }
  1566. +     return rc;
  1567. + }
  1568. + 
  1569. + void main(int argc, char **argv)
  1570. + {
  1571. +   int command;
  1572. +   char *command_string;
  1573. +   char *program_name = argv[0];
  1574. +   struct RDArgs *args;
  1575. +   long opts[1];
  1576. +   static char options[] = "";
  1577. +   long debug = 0;
  1578. +   char *shenv;
  1579. + 
  1580. +   /* Throw out AmigaDOS args so that Input() is clean */
  1581. +   if (args = ReadArgs(options, opts, NULL)) FreeArgs(args);
  1582. + 
  1583. +   shenv = getenv("EMACS_SH_DEBUG");
  1584. + 
  1585. +   if(shenv)
  1586. +       if(strstr(shenv, "-v")) /* external verbose flag */
  1587. +       debug = 1;
  1588. +   
  1589. +   command = 0;
  1590. +   /* Simplistic argument parsing */
  1591. +   argv++;
  1592. +   argc--;
  1593. +   while (argc > 0 && argv[0][0] == '-')
  1594. +     {
  1595. +       switch (argv[0][1])
  1596. +     {
  1597. +     case 'c':
  1598. +       if (argc == 1) goto usage;
  1599. +       command = 1;
  1600. +       command_string = argv[1];
  1601. +       argv++;
  1602. +       argc--;
  1603. +       break;
  1604. +     case 'v':
  1605. +       debug = 1;
  1606. +       break;
  1607. +     case 'i':
  1608. +       /* ignored for now */
  1609. +       break;
  1610. +     default: goto usage;
  1611. +     }
  1612. +       argc--;
  1613. +       argv++;
  1614. +     }
  1615. +   if (argc != 0) goto usage;
  1616. + 
  1617. +   if (command) 
  1618. +   {
  1619. +       if(debug)
  1620. +       fprintf(stderr,"%s: command_string = %s\n", argv[0], command_string);
  1621. +       exit(execute(command_string, debug));
  1622. +   }
  1623. +   else exit(Execute("", Input(), NULL) ? 0 : 1);
  1624. + 
  1625. +  usage:
  1626. +   fprintf(stderr, "%s [-i] [-v] [-c command]\n", program_name);
  1627. +   exit(1);
  1628. + }
  1629. + 
  1630. + 
  1631. + /*
  1632. +  * Local variables:
  1633. +  * compile-command: "sc link nostkchk def SASC=1 sh.c"
  1634. +  * end:
  1635. +  */
  1636. diff -rcP emacs-18.59-fsf/etc/smakefile emacs-18.59-amiga/etc/smakefile
  1637. *** emacs-18.59-fsf/etc/smakefile    Thu Jan  1 00:00:00 1970
  1638. --- emacs-18.59-amiga/etc/smakefile    Sat Oct  2 15:30:23 1993
  1639. ***************
  1640. *** 0 ****
  1641. --- 1,17 ----
  1642. + all: etags sh wakeup make-docfile # env
  1643. + 
  1644. + env: amiga-env.c
  1645. +     echo "'sc link to env nostkchk amiga-env.c' should work (but doesn't)."
  1646. +     echo "You're welcome to try ..."
  1647. + 
  1648. + make-docfile: make-docfile.c
  1649. +     sc link make-docfile.c
  1650. + 
  1651. + sh: sh.c
  1652. +     sc link sh.c
  1653. + 
  1654. + wakeup: wakeup.c
  1655. +     sc link wakeup.c
  1656. + 
  1657. + etags: etags.c
  1658. +     sc link idir //unix/include def ETAGS etags.c lib //unix/src/unix.lib
  1659. diff -rcP emacs-18.59-fsf/etc/termcap.amiga emacs-18.59-amiga/etc/termcap.amiga
  1660. *** emacs-18.59-fsf/etc/termcap.amiga    Thu Jan  1 00:00:00 1970
  1661. --- emacs-18.59-amiga/etc/termcap.amiga    Sun May  9 18:35:58 1993
  1662. ***************
  1663. *** 0 ****
  1664. --- 1,12 ----
  1665. +  Amiga termcap by Kent Polk and David Gay
  1666. + AA|amiga|Amiga ANSI:\
  1667. +    :co#80:li#23:am:bs:bw:MT:\
  1668. +    :AL=\E[%dL:DC=\E[%dP:DL=\E[%dM:DO=\E[%dB:IC=\E[%d@:\
  1669. +    :LE=\E[%dD:RI=\E[%dC:SF=\E[%dS:SR=\E[%dT:UP=\E[%dA:\
  1670. +    :ae=\017:al=\E[L:as=\016:bl=\007:bt=\E[Z:cd=\E[J:ce=\E[K:cl=\E[H\E[J:\
  1671. +    :cm=\E[%i%d;%dH:dc=\E[P:dl=\E[M:do=\E[B:ho=\E[H:ic=\E[@:is=\E[20l:\
  1672. +    :k1=\E0~:k2=\E1~:k3=\E2~:k4=\E3~:k5=\E4~:k6=\E5~:k7=\E6~:k8=\E7~:k9=\E8~:\
  1673. +    :k0=\E9~:kb=^H:kd=\EB:kl=\ED:kr=\EC:ku=\EA:le=\E[D:\
  1674. +    :mb=\E[7;2m:md=\E[1m:me=\E[0m:mh=\E[2m:mk=\E[8m:mr=\E[7m:nd=\E[C:nl=\E[B:\
  1675. +    :rs=\Ec:se=\E[0m:sf=\E[S:so=\E[7m:sr=\E[T:ue=\E[0m:up=\E[A:us=\E[4m:\
  1676. +    :ve=\E[\040p:vi=\E[\060\040p:xn:
  1677. diff -rcP emacs-18.59-fsf/etc/wakeup.c emacs-18.59-amiga/etc/wakeup.c
  1678. *** emacs-18.59-fsf/etc/wakeup.c    Tue Jul 30 21:03:39 1991
  1679. --- emacs-18.59-amiga/etc/wakeup.c    Sun May  9 18:36:20 1993
  1680. ***************
  1681. *** 18,28 ****
  1682. --- 18,34 ----
  1683.   
  1684.     while (1)
  1685.       {
  1686. + #ifdef AMIGA
  1687. +       if (Write(Output(), "Wake up!\n", 9) != 9) exit(0);
  1688. +       chkabort();
  1689. + #define sleep(n) Delay(50 * (n))
  1690. + #else
  1691.         /* Make sure wakeup stops when Emacs goes away.  */
  1692.         if (getppid () == 1)
  1693.       exit (0);
  1694.         printf ("Wake up!\n");
  1695.         fflush (stdout);
  1696. + #endif
  1697.         /* If using a period of 60, produce the output when the minute
  1698.        changes. */
  1699.         if (period == 60)
  1700. diff -rcP emacs-18.59-fsf/lisp/amiga-init.el emacs-18.59-amiga/lisp/amiga-init.el
  1701. *** emacs-18.59-fsf/lisp/amiga-init.el    Thu Jan  1 00:00:00 1970
  1702. --- emacs-18.59-amiga/lisp/amiga-init.el    Sat Jun  5 11:35:42 1993
  1703. ***************
  1704. *** 0 ****
  1705. --- 1,206 ----
  1706. + (global-set-key "\C-z" 'amiga-iconify)
  1707. + (setq amiga-map (make-keymap))
  1708. + (global-set-key "\C-x\C-^" amiga-map)
  1709. + 
  1710. + (load "amiga-mouse")
  1711. + (load "amiga-menu")
  1712. + 
  1713. + (define-key amiga-map "A" 'previous-line)
  1714. + (define-key amiga-map "B" 'next-line)
  1715. + (define-key amiga-map "D" 'backward-char)
  1716. + (define-key amiga-map "C" 'forward-char)
  1717. + (define-key amiga-map "?~" 'info)
  1718. + (define-key amiga-map "T" 'scroll-down)
  1719. + (define-key amiga-map "S" 'scroll-up)
  1720. + (define-key amiga-map " @" 'forward-word)
  1721. + (define-key amiga-map " A" 'backward-word)
  1722. + (define-key amiga-map "\M-A" 'beginning-of-buffer)
  1723. + (define-key amiga-map "\M-B" 'end-of-buffer)
  1724. + (define-key amiga-map "\M-D" 'beginning-of-line)
  1725. + (define-key amiga-map "\M-C" 'end-of-line)
  1726. + (define-key amiga-map "\M- \M-@" 'forward-sexp)
  1727. + (define-key amiga-map "\M- \M-A" 'backward-sexp)
  1728. + (define-key amiga-map "\M-T" 'scroll-down-1)
  1729. + (define-key amiga-map "\M-S" 'scroll-up-1)
  1730. + ; Keypad sequences are handled like normal ones
  1731. + (define-key amiga-map "K" 'do-nothing)
  1732. + 
  1733. + (defun do-nothing () (interactive))
  1734. + 
  1735. + (defun scroll-down-1 ()
  1736. +   "Move up one line on screen"
  1737. +   (interactive)
  1738. +   (scroll-down 1))
  1739. + 
  1740. + (defun scroll-up-1 ()
  1741. +   "Move down one line on screen"
  1742. +   (interactive)
  1743. +   (scroll-up 1))
  1744. + 
  1745. + ;; ARexx stuff
  1746. + 
  1747. + ;;; This function needs to be re-written to handle rexx returned results.
  1748. + ;;;
  1749. + (setq amiga-arexx-processing nil)
  1750. + (setq amiga-arexx-errors nil)
  1751. + 
  1752. + (defvar amiga-arexx-failat 5
  1753. +   "Return level from which arexx commands returns cause errors")
  1754. + 
  1755. + ;;
  1756. + ;; process incoming rexx messages
  1757. + ;;
  1758. + (defun amiga-arexx-process ()
  1759. +   (interactive)
  1760. +   (if (not amiga-arexx-processing)
  1761. +       (progn
  1762. +     (setq amiga-arexx-processing t)
  1763. +     (condition-case nil ; Avoid blocking of processing in case of bugs
  1764. +         (let (arexxcmd)
  1765. +           (while (setq arexxcmd (amiga-arexx-get-next-msg))
  1766. +         (let ((rc 0) result)
  1767. +           (condition-case err ; detect errors in arexx command
  1768. +               (let ((expr (car (read-from-string arexxcmd))))
  1769. +             (setq result (prin1-to-string (eval expr))))
  1770. +             (error (progn
  1771. +                  (setq rc 20)
  1772. +                  (setq result (prin1-to-string err)))))
  1773. +           (amiga-arexx-reply rc result))))
  1774. +       (error nil))
  1775. +     (setq amiga-arexx-processing nil))))
  1776. + 
  1777. + (defun amiga-arexx-wait-command (id)
  1778. +   "Waits for a pending ARexx commands (MSGID) to complete.
  1779. + Also processes any pending ARexx requests during this interval.
  1780. + returns the result list associated with this id, which takes the
  1781. + form: (msgid result-code error-or-string)
  1782. + ``error-or-string'' depends on ``result-code''.
  1783. + if ``result-code'' is 0 the command finished successfully and
  1784. + ``error-or-string'' will be a string or nil, otherwise the command
  1785. + returned with an error and ``error-or-string'' will be an interger
  1786. + that is the secondary error code of the arexx command."
  1787. +   (amiga-arexx-process)
  1788. +   (while (not (amiga-arexx-check-command id))
  1789. +     (amiga-arexx-wait)
  1790. +     (amiga-arexx-process))
  1791. +   (amiga-arexx-get-msg-results id))
  1792. + 
  1793. + (defconst amiga-arexx-error-messages
  1794. + ["No cause"
  1795. + "Program not found"
  1796. + "Execution halted"
  1797. + "Insufficient memory"
  1798. + "Invalid character"
  1799. + "Unmatched quote"
  1800. + "Unterminated comment"
  1801. + "Clause too long"
  1802. + "Invalid token"
  1803. + "Symbol or string too long"
  1804. + "Invalid message packet"
  1805. + "Command string error"
  1806. + "Error return from function"
  1807. + "Host environment not found"
  1808. + "Requested library not found"
  1809. + "Function not found"
  1810. + "Function did not return value"
  1811. + "Wrong number of arguments"
  1812. + "Invalid argument to function"
  1813. + "Invalid PROCEDURE"
  1814. + "Unexpected THEN or WHEN"
  1815. + "Unexpected ELSE or OTHERWISE"
  1816. + "Unexpected BREAK, LEAVE or ITERATE"
  1817. + "Invalid statement in SELECT"
  1818. + "Missing or multiple THEN"
  1819. + "Missing OTHERWISE"
  1820. + "Missing or unexpected END"
  1821. + "Symbol mismatch"
  1822. + "Invalid DO syntax"
  1823. + "Incomplete IF or SELECT"
  1824. + "Label not found"
  1825. + "Symbol expected"
  1826. + "Symbol or string expected"
  1827. + "Invalid keyword"
  1828. + "Required keyword missing"
  1829. + "Extraneous characters"
  1830. + "Keyword conflict"
  1831. + "Invalid template"
  1832. + "Invalid TRACE request"
  1833. + "Unitialized variable"
  1834. + "Invalid variable name"
  1835. + "Invalid expression"
  1836. + "Unbalanced parentheses"
  1837. + "Nesting limit exceeded"
  1838. + "Invalid expression result"
  1839. + "Expression required"
  1840. + "Boolean value not 0 or 1"
  1841. + "Arithmetic conversion error"
  1842. + "Invalid operand"
  1843. + ]
  1844. + "The arexx error messages, sorted by number")
  1845. + 
  1846. + (defun amiga-arexx-do-command (str as-file)
  1847. +   "Sends ARexx command STR (like amiga-arexx-send-command).
  1848. + If AS-FILE is true, STR is an arexx command, otherwise it is a file name.
  1849. + Waits for the command to return.  If the arexx command fails an error will
  1850. + be caused.
  1851. + 
  1852. + If you would like to get result strings and errors (ie. not cause
  1853. + a lisp error) use: (amiga-arexx-do-command-with-results)"
  1854. +   (interactive "sARexx command:
  1855. + P")
  1856. +   (let ((id (amiga-arexx-send-command str as-file)))
  1857. +     (if (not id)
  1858. +     (error "Failed to send arexx command.")
  1859. +       (let ((reslist (amiga-arexx-wait-command id)))
  1860. +     (let ((rc (nth 1 reslist)) (second (nth 2 reslist)))
  1861. +       (if (> rc 0)
  1862. +           (progn            ; error
  1863. +         (let ((error-message
  1864. +                (if (< second (length amiga-arexx-error-messages))
  1865. +              (aref amiga-arexx-error-messages second)
  1866. +              (format nil "Unknown error %d" second))))
  1867. +           (error "Arexx command failed, level %d, cause %s" rc error-message))
  1868. +         reslist)
  1869. +       second))))))
  1870. + 
  1871. + (defun amiga-arexx-do-command-with-results (str as-file)
  1872. +   "Sends ARexx command STR (like amiga-arexx-do-command).
  1873. + If AS-FILE is true, STR is an arexx command, otherwise it is a file name.
  1874. + Waits for the command to return.
  1875. + 
  1876. + The return value is one of three things:
  1877. +  - the command executed succesfully: nil or a result string.
  1878. +  - the command failed: a list of the form (RC ERROR-CODE)
  1879. +    where RC is the severity and ERROR-CODE is the secondary error."
  1880. +   (interactive "sARexx command:
  1881. + P")
  1882. +   (let ((id (amiga-arexx-send-command str as-file)))
  1883. +     (if (not id)
  1884. +     (error "Failed to send arexx command.")
  1885. +       (let ((reslist (amiga-arexx-wait-command id)))
  1886. +     (let ((rc (nth 1 reslist)) (second (nth 2 reslist)))
  1887. +       (if (and rc (> rc 0))
  1888. +           (list rc second)
  1889. +         second))))))
  1890. + 
  1891. + (define-key amiga-map "X" 'amiga-arexx-process)
  1892. + (setq amiga-arexx-initialized t) ;; ARexx commands can now be processed.
  1893. + 
  1894. + (defun amiga-wb-process ()
  1895. +   "Process all pending workbench events, ie load all files requested"
  1896. +   (interactive)
  1897. +   (let (file)
  1898. +     (condition-case nil
  1899. +     (while (setq file (amiga-get-wb-event t))
  1900. +       (condition-case nil
  1901. +           (find-file file)
  1902. +         (error nil)))
  1903. +       (error nil))))
  1904. + 
  1905. + (define-key amiga-map "W" 'amiga-wb-process)
  1906. + (setq amiga-wb-initialized t) ;; WB events can now be processed.
  1907. + 
  1908. + (setq completion-ignore-case t)
  1909. + ;; Default is no numbered versions on Amiga, because directory searches are too
  1910. + ;; slow.
  1911. + (setq version-control 'never)
  1912. Binary files emacs-18.59-fsf/lisp/amiga-init.elc and emacs-18.59-amiga/lisp/amiga-init.elc differ
  1913. diff -rcP emacs-18.59-fsf/lisp/amiga-menu.el emacs-18.59-amiga/lisp/amiga-menu.el
  1914. *** emacs-18.59-fsf/lisp/amiga-menu.el    Thu Jan  1 00:00:00 1970
  1915. --- emacs-18.59-amiga/lisp/amiga-menu.el    Sat Nov 21 16:13:18 1992
  1916. ***************
  1917. *** 0 ****
  1918. --- 1,135 ----
  1919. + ;(provide 'amiga-menu)
  1920. + 
  1921. + (defconst amiga-menu-pick (char-to-string 3))
  1922. + (defconst amiga-menu-help (char-to-string 7))
  1923. + 
  1924. + (defvar amiga-menus-description nil
  1925. +   "Variable containing the menus setup for Emacs")
  1926. + 
  1927. + (defun amiga-menus-set (menus)
  1928. +   "Setup menus for emacs (parameter as for amiga-menus)"
  1929. +   (define-key mouse-map amiga-menu-pick 'amiga-menus-dispatch)
  1930. +   (define-key mouse-map amiga-menu-help 'amiga-menus-help)
  1931. +   (setq amiga-menus-description menus)
  1932. +   (amiga-menus menus))
  1933. + 
  1934. + (defun amiga-menus-dispatch (selection)
  1935. +   (let* ((menu (car selection))
  1936. +      (item (cadr selection))
  1937. +      (code (cadr (nth item (cadr (nth menu amiga-menus-description))))))
  1938. +     (if (and (listp code) (eq (car code) 'call-interactively)
  1939. +          (listp (cadr code)) (eq (car (cadr code)) 'quote))
  1940. +     (setq this-command (cadr (cadr code))))
  1941. +     (eval code)))
  1942. + 
  1943. + (defun amiga-menus-help (selection)
  1944. +   (let* ((menu (car selection))
  1945. +      (item (cadr selection))
  1946. +      (cmd (cadr (nth item (cadr (nth menu amiga-menus-description))))))
  1947. +     (if (and (listp cmd) (eq (car cmd) 'call-interactively)
  1948. +          (listp (car (cdr cmd))) (eq (car (car (cdr cmd))) 'quote))
  1949. +     (describe-function (car (cdr (car (cdr cmd)))))
  1950. +     (error "Don't know how to describe %s" cmd))))
  1951. + 
  1952. + (defun make-explicit-string (str)
  1953. +   (if (and (>= (length str) 2) (= (elt str 0) 27) (< (elt str 1) 128))
  1954. +       (key-description (concat (char-to-string (+ 128 (elt str 1)))
  1955. +                    (substring str 2)))
  1956. +       (key-description str)))
  1957. + 
  1958. + (defun make-command-name (command str width)
  1959. +   (let ((keys (where-is-internal command nil t))
  1960. +     (string (if str str (symbol-name command))))
  1961. +     (if keys
  1962. +     (format (if width (format "%%-%ds%%s" (+ width 2)) "%s (%s)")
  1963. +         string (make-explicit-string keys))
  1964. +     string)))
  1965. + 
  1966. + (defun menu-items (commands proportional)
  1967. +   (let* ((width (if proportional nil 0))
  1968. +      (names (mapcar
  1969. +          (function (lambda (cmd)
  1970. +                  (if cmd
  1971. +                  (let* ((name (if (symbolp cmd)
  1972. +                           (symbol-name cmd)
  1973. +                           (car cmd)))
  1974. +                     (len (length name)))
  1975. +                    (if (and (not proportional) (> len width))
  1976. +                        (setq width len))
  1977. +                    name))))
  1978. +          commands)))
  1979. +     (mapcar
  1980. +      (function (lambda (cmd)
  1981. +          (let ((name (car names)))
  1982. +            (setq names (cdr names))
  1983. +            (if cmd
  1984. +                (let ((command (if (symbolp cmd) cmd (cadr cmd))))
  1985. +              (list (make-command-name command name width)
  1986. +                    (list 'call-interactively (list 'quote command))
  1987. +                    (caddr cmd)))))))
  1988. +      commands)))
  1989. + 
  1990. + (defun convert-menu-buffer (proportional)
  1991. +   "Convert the current buffer into a loadable menu file for emacs.\n\
  1992. + If PROPORTIONAL is true (or if a prefix arg is given), assume menu is in a \n\
  1993. + proportional font & present it differently."
  1994. +   (interactive "P")
  1995. +   (save-buffer)
  1996. +   (widen)
  1997. +   (goto-char 1)
  1998. +   (let ((menu-spec (reverse (read (current-buffer))))
  1999. +     menu-code)
  2000. +     (while menu-spec
  2001. +       (let ((menu-item (car menu-spec)))
  2002. +     (setq menu-code
  2003. +           (cons (list (car menu-item)
  2004. +               (menu-items (cdr menu-item) proportional))
  2005. +             menu-code))
  2006. +     (setq menu-spec (cdr menu-spec))))
  2007. +     (let ((new-buf
  2008. +        (find-file (concat
  2009. +                (substring (buffer-file-name) 0
  2010. +                   (string-match "\\.menu$" (buffer-file-name)))
  2011. +                ".el"))))
  2012. +       (erase-buffer)
  2013. +       (prin1 (list 'amiga-menus-set (list 'quote menu-code)) (current-buffer))
  2014. +       (beginning-of-buffer))))
  2015. + 
  2016. + (defvar menu-mode-syntax-table nil
  2017. +   "Syntax table used while in menu mode.")
  2018. + 
  2019. + (defvar menu-mode-abbrev-table nil
  2020. +   "Abbrev table used while in menu mode.")
  2021. + (define-abbrev-table 'menu-mode-abbrev-table ())
  2022. + 
  2023. + (if menu-mode-syntax-table
  2024. +     ()
  2025. +   (setq menu-mode-syntax-table (make-syntax-table))
  2026. +   (modify-syntax-entry ?' "w   " menu-mode-syntax-table))
  2027. + 
  2028. + (defvar menu-mode-map ())
  2029. + (if menu-mode-map
  2030. +     ()
  2031. +   (setq menu-mode-map (make-sparse-keymap))
  2032. +   (define-key menu-mode-map "\t" 'indent-relative)
  2033. +   (define-key menu-mode-map "\C-c\C-c" 'convert-menu-buffer))
  2034. + 
  2035. + (defun menu-mode ()
  2036. +   "Major mode for editing menus intended for humans to read.
  2037. + Indentation works like in indented-text-mode. This could be improved.\\{menu-mode-map}
  2038. + Turning on menu-mode calls the value of the variable menu-mode-hook,
  2039. + if that value is non-nil."
  2040. +   (interactive)
  2041. +   (kill-all-local-variables)
  2042. +   (use-local-map menu-mode-map)
  2043. +   (define-abbrev-table 'menu-mode-abbrev-table ())
  2044. +   (setq local-abbrev-table menu-mode-abbrev-table)
  2045. +   (set-syntax-table menu-mode-syntax-table)
  2046. +   (make-local-variable 'indent-line-function)
  2047. +   (setq indent-line-function 'indent-relative-maybe)
  2048. +   (use-local-map menu-mode-map)
  2049. +   (setq mode-name "Menu")
  2050. +   (setq major-mode 'menu-mode)
  2051. +   (run-hooks 'menu-mode-hook))
  2052. + 
  2053. + (setq auto-mode-alist (cons '("\\.menu$" . menu-mode) auto-mode-alist))
  2054. Binary files emacs-18.59-fsf/lisp/amiga-menu.elc and emacs-18.59-amiga/lisp/amiga-menu.elc differ
  2055. diff -rcP emacs-18.59-fsf/lisp/amiga-mouse.el emacs-18.59-amiga/lisp/amiga-mouse.el
  2056. *** emacs-18.59-fsf/lisp/amiga-mouse.el    Thu Jan  1 00:00:00 1970
  2057. --- emacs-18.59-amiga/lisp/amiga-mouse.el    Sat Nov 21 16:13:20 1992
  2058. ***************
  2059. *** 0 ****
  2060. --- 1,276 ----
  2061. + ;; Mouse support for Amiga Intuition window system.
  2062. + ;; Copyright (C) 1985, 1987 Free Software Foundation, Inc.
  2063. + 
  2064. + ;; This file is part of GNU Emacs.
  2065. + 
  2066. + ;; GNU Emacs is distributed in the hope that it will be useful,
  2067. + ;; but WITHOUT ANY WARRANTY.  No author or distributor
  2068. + ;; accepts responsibility to anyone for the consequences of using it
  2069. + ;; or for whether it serves any particular purpose or works at all,
  2070. + ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  2071. + ;; License for full details.
  2072. + 
  2073. + ;; Everyone is granted permission to copy, modify and redistribute
  2074. + ;; GNU Emacs, but only under the conditions described in the
  2075. + ;; GNU Emacs General Public License.   A copy of this license is
  2076. + ;; supposed to have been given to you along with GNU Emacs so you
  2077. + ;; can know your rights and responsibilities.  It should be in a
  2078. + ;; file named COPYING.  Among other things, the copyright notice
  2079. + ;; and this notice must be preserved on all copies.
  2080. + 
  2081. + (provide 'amiga-mouse)
  2082. + 
  2083. + (defconst amiga-button-right (char-to-string 0))
  2084. + (defconst amiga-button-middle (char-to-string 1))
  2085. + (defconst amiga-button-left (char-to-string 2))
  2086. + 
  2087. + (defconst amiga-button-right-up (char-to-string 4))
  2088. + (defconst amiga-button-middle-up (char-to-string 5))
  2089. + (defconst amiga-button-left-up (char-to-string 6))
  2090. + 
  2091. + (defconst amiga-button-s-right (char-to-string 16))
  2092. + (defconst amiga-button-s-middle (char-to-string 17))
  2093. + (defconst amiga-button-s-left (char-to-string 18))
  2094. + 
  2095. + (defconst amiga-button-s-right-up (char-to-string 20))
  2096. + (defconst amiga-button-s-middle-up (char-to-string 21))
  2097. + (defconst amiga-button-s-left-up (char-to-string 22))
  2098. + 
  2099. + (defconst amiga-button-m-right (char-to-string 32))
  2100. + (defconst amiga-button-m-middle (char-to-string 33))
  2101. + (defconst amiga-button-m-left (char-to-string 34))
  2102. + 
  2103. + (defconst amiga-button-m-right-up (char-to-string 36))
  2104. + (defconst amiga-button-m-middle-up (char-to-string 37))
  2105. + (defconst amiga-button-m-left-up (char-to-string 38))
  2106. + 
  2107. + (defconst amiga-button-c-right (char-to-string 64))
  2108. + (defconst amiga-button-c-middle (char-to-string 65))
  2109. + (defconst amiga-button-c-left (char-to-string 66))
  2110. + 
  2111. + (defconst amiga-button-c-right-up (char-to-string 68))
  2112. + (defconst amiga-button-c-middle-up (char-to-string 69))
  2113. + (defconst amiga-button-c-left-up (char-to-string 70))
  2114. + 
  2115. + (defconst amiga-button-m-s-right (char-to-string 48))
  2116. + (defconst amiga-button-m-s-middle (char-to-string 49))
  2117. + (defconst amiga-button-m-s-left (char-to-string 50))
  2118. + 
  2119. + (defconst amiga-button-m-s-right-up (char-to-string 52))
  2120. + (defconst amiga-button-m-s-middle-up (char-to-string 53))
  2121. + (defconst amiga-button-m-s-left-up (char-to-string 54))
  2122. + 
  2123. + (defconst amiga-button-c-s-right (char-to-string 80))
  2124. + (defconst amiga-button-c-s-middle (char-to-string 81))
  2125. + (defconst amiga-button-c-s-left (char-to-string 82))
  2126. + 
  2127. + (defconst amiga-button-c-s-right-up (char-to-string 84))
  2128. + (defconst amiga-button-c-s-middle-up (char-to-string 85))
  2129. + (defconst amiga-button-c-s-left-up (char-to-string 86))
  2130. + 
  2131. + (defconst amiga-button-c-m-right (char-to-string 96))
  2132. + (defconst amiga-button-c-m-middle (char-to-string 97))
  2133. + (defconst amiga-button-c-m-left (char-to-string 98))
  2134. + 
  2135. + (defconst amiga-button-c-m-right-up (char-to-string 100))
  2136. + (defconst amiga-button-c-m-middle-up (char-to-string 101))
  2137. + (defconst amiga-button-c-m-left-up (char-to-string 102))
  2138. + 
  2139. + (defconst amiga-button-c-m-s-right (char-to-string 112))
  2140. + (defconst amiga-button-c-m-s-middle (char-to-string 113))
  2141. + (defconst amiga-button-c-m-s-left (char-to-string 114))
  2142. + 
  2143. + (defconst amiga-button-c-m-s-right-up (char-to-string 116))
  2144. + (defconst amiga-button-c-m-s-middle-up (char-to-string 117))
  2145. + (defconst amiga-button-c-m-s-left-up (char-to-string 118))
  2146. + 
  2147. + (defmacro cadr (x) (list 'car (list 'cdr x)))
  2148. + (defmacro caddr (x) (list 'car (list 'cdr (list 'cdr x))))
  2149. + (defmacro cadddr (x) (list 'car (list 'cdr (list 'cdr (list 'cdr x)))))
  2150. + 
  2151. + (defun coordinates-in-window-p (arg w)
  2152. +   (let ((x (car arg))
  2153. +     (y (cadr arg))
  2154. +     (edges (window-edges w)))
  2155. +     (and (>= x (car edges)) (< x (caddr edges))
  2156. +      (>= y (cadr edges)) (< y (cadddr edges))
  2157. +      (list (- x (car edges)) (- y (cadr edges))))))
  2158. + 
  2159. + (defvar amiga-process-mouse-hook nil
  2160. +   "Hook to run after each mouse event is processed.  Should take two
  2161. + arguments; the first being a list (XPOS YPOS) corresponding to character
  2162. + offset from top left of screen and the second being a specifier for the
  2163. + buttons/keys.
  2164. + 
  2165. + This will normally be set on a per-buffer basis.")
  2166. + 
  2167. + (defun amiga-flush-mouse-queue () 
  2168. +   "Process all queued mouse events."
  2169. +   ;; A mouse event causes a special character sequence to be given
  2170. +   ;; as keyboard input.  That runs this function, which process all
  2171. +   ;; queued mouse events and returns.
  2172. +   (interactive)
  2173. +   (while (> (amiga-mouse-events) 0)
  2174. +     (amiga-proc-mouse-event)
  2175. +     (and (boundp 'amiga-process-mouse-hook)
  2176. +      (symbol-value 'amiga-process-mouse-hook)
  2177. +      (funcall amiga-process-mouse-hook amiga-mouse-pos amiga-mouse-item))))
  2178. + 
  2179. + (defun amiga-mouse-select (arg)
  2180. +   "Select Emacs window the mouse is on."
  2181. +   (let ((start-w (selected-window))
  2182. +     (done nil)
  2183. +     (w (selected-window))
  2184. +     (rel-coordinate nil))
  2185. +     (if (eq start-w (minibuffer-window))
  2186. +     (setq rel-coordinate (coordinates-in-window-p arg w))
  2187. +     (while (and (not done)
  2188. +             (null (setq rel-coordinate
  2189. +                 (coordinates-in-window-p arg w))))
  2190. +       (setq w (next-window w))
  2191. +       (if (eq w start-w)
  2192. +           (setq done t))))
  2193. +     (select-window w)
  2194. +     rel-coordinate))
  2195. + 
  2196. + (defun amiga-mouse-keep-one-window (arg)
  2197. +   "Select Emacs window mouse is on, then kill all other Emacs windows."
  2198. +   (if (amiga-mouse-select arg)
  2199. +       (delete-other-windows)))
  2200. + 
  2201. + (defun amiga-mouse-select-and-split (arg)
  2202. +   "Select Emacs window mouse is on, then split it vertically in half."
  2203. +   (if (amiga-mouse-select arg)
  2204. +       (split-window-vertically nil)))
  2205. + 
  2206. + 
  2207. + (defun amiga-mouse-set-point (arg)
  2208. +   "Select Emacs window mouse is on, and move point to mouse position."
  2209. +   (let* ((relative-coordinate (amiga-mouse-select arg))
  2210. +      margin-column
  2211. +      (rel-x (car relative-coordinate))
  2212. +      (rel-y (car (cdr relative-coordinate))))
  2213. +     (if relative-coordinate
  2214. +     (let ((prompt-width (if (eq (selected-window) (minibuffer-window))
  2215. +                 minibuffer-prompt-width 0)))
  2216. +       (move-to-window-line rel-y)
  2217. +       (setq margin-column
  2218. +         (if (or truncate-lines (> (window-hscroll) 0))
  2219. +             (current-column)
  2220. +           ;; If we are using line continuation,
  2221. +           ;; compensate if first character on a continuation line
  2222. +           ;; does not start precisely at the margin.
  2223. +           (- (current-column)
  2224. +              (% (current-column) (1- (window-width))))))
  2225. +       (move-to-column (+ rel-x (1- (max 1 (window-hscroll)))
  2226. +                  (if (= (point) 1)
  2227. +                  (- prompt-width) 0)
  2228. +                  margin-column))))))
  2229. + 
  2230. + (defun amiga-mouse-set-mark (arg)
  2231. +   "Select Emacs window mouse is on, and set mark at mouse position.
  2232. + Display cursor at that position for a second."
  2233. +   (if (amiga-mouse-select arg)
  2234. +       (let ((point-save (point)))
  2235. +     (unwind-protect
  2236. +         (progn (amiga-mouse-set-point arg)
  2237. +            (push-mark nil t)
  2238. +            (sit-for 1))
  2239. +       (goto-char point-save)))))
  2240. + 
  2241. + (defun amiga-mouse-cut (arg)
  2242. +   "Select Emacs window mouse is on, and set mark at mouse position. 
  2243. + Display cursor at that position for a second. Then cut."
  2244. +   (if (amiga-mouse-select arg)
  2245. +       (let ((point-save (point)))
  2246. +     (unwind-protect
  2247. +         (progn (amiga-mouse-set-point arg)
  2248. +            (push-mark nil t)
  2249. +            (kill-region point-save (point))
  2250. +            (sit-for 1))
  2251. +       (goto-char point-save)))))
  2252. + 
  2253. + (defun amiga-mouse-copy (arg)
  2254. +   "Select Emacs window mouse is on, and set mark at mouse position. 
  2255. + Display cursor at that position for a second. Then copy."
  2256. +   (if (amiga-mouse-select arg)
  2257. +       (let ((point-save (point)))
  2258. +     (unwind-protect
  2259. +         (progn (amiga-mouse-set-point arg)
  2260. +            (push-mark nil t)
  2261. +            (copy-region-as-kill point-save (point))
  2262. +            (sit-for 1))
  2263. +       (goto-char point-save)))))
  2264. + 
  2265. + (defun amiga-mouse-paste (arg)
  2266. +   "Move point to mouse position (and select window), then paste."
  2267. +   (if (amiga-mouse-select arg)
  2268. +       (progn
  2269. +     (amiga-mouse-set-point arg)
  2270. +     (yank))))
  2271. + 
  2272. + (defun amiga-mouse-iconify (arg) (amiga-iconify))
  2273. + 
  2274. + (defun amiga-mouse-ignore (arg)
  2275. +   "Don't do anything.")
  2276. + 
  2277. + ; Prevent beeps. on button-up.  If the button isn't bound to anything, it
  2278. + (define-key mouse-map amiga-button-right 'amiga-mouse-ignore)
  2279. + (define-key mouse-map amiga-button-middle 'amiga-mouse-ignore)
  2280. + (define-key mouse-map amiga-button-left 'amiga-mouse-ignore)
  2281. + (define-key mouse-map amiga-button-right-up 'amiga-mouse-ignore)
  2282. + (define-key mouse-map amiga-button-middle-up 'amiga-mouse-ignore)
  2283. + (define-key mouse-map amiga-button-left-up 'amiga-mouse-ignore)
  2284. + (define-key mouse-map amiga-button-s-right 'amiga-mouse-ignore)
  2285. + (define-key mouse-map amiga-button-s-middle 'amiga-mouse-ignore)
  2286. + (define-key mouse-map amiga-button-s-left 'amiga-mouse-ignore)
  2287. + (define-key mouse-map amiga-button-s-right-up 'amiga-mouse-ignore)
  2288. + (define-key mouse-map amiga-button-s-middle-up 'amiga-mouse-ignore)
  2289. + (define-key mouse-map amiga-button-s-left-up 'amiga-mouse-ignore)
  2290. + (define-key mouse-map amiga-button-m-right 'amiga-mouse-ignore)
  2291. + (define-key mouse-map amiga-button-m-middle 'amiga-mouse-ignore)
  2292. + (define-key mouse-map amiga-button-m-left 'amiga-mouse-ignore)
  2293. + (define-key mouse-map amiga-button-m-right-up 'amiga-mouse-ignore)
  2294. + (define-key mouse-map amiga-button-m-middle-up 'amiga-mouse-ignore)
  2295. + (define-key mouse-map amiga-button-m-left-up 'amiga-mouse-ignore)
  2296. + (define-key mouse-map amiga-button-c-right 'amiga-mouse-ignore)
  2297. + (define-key mouse-map amiga-button-c-middle 'amiga-mouse-ignore)
  2298. + (define-key mouse-map amiga-button-c-left 'amiga-mouse-ignore)
  2299. + (define-key mouse-map amiga-button-c-right-up 'amiga-mouse-ignore)
  2300. + (define-key mouse-map amiga-button-c-middle-up 'amiga-mouse-ignore)
  2301. + (define-key mouse-map amiga-button-c-left-up 'amiga-mouse-ignore)
  2302. + (define-key mouse-map amiga-button-m-s-right 'amiga-mouse-ignore)
  2303. + (define-key mouse-map amiga-button-m-s-middle 'amiga-mouse-ignore)
  2304. + (define-key mouse-map amiga-button-m-s-left 'amiga-mouse-ignore)
  2305. + (define-key mouse-map amiga-button-m-s-right-up 'amiga-mouse-ignore)
  2306. + (define-key mouse-map amiga-button-m-s-middle-up 'amiga-mouse-ignore)
  2307. + (define-key mouse-map amiga-button-m-s-left-up 'amiga-mouse-ignore)
  2308. + (define-key mouse-map amiga-button-c-s-right 'amiga-mouse-ignore)
  2309. + (define-key mouse-map amiga-button-c-s-middle 'amiga-mouse-ignore)
  2310. + (define-key mouse-map amiga-button-c-s-left 'amiga-mouse-ignore)
  2311. + (define-key mouse-map amiga-button-c-s-right-up 'amiga-mouse-ignore)
  2312. + (define-key mouse-map amiga-button-c-s-middle-up 'amiga-mouse-ignore)
  2313. + (define-key mouse-map amiga-button-c-s-left-up 'amiga-mouse-ignore)
  2314. + (define-key mouse-map amiga-button-c-m-right 'amiga-mouse-ignore)
  2315. + (define-key mouse-map amiga-button-c-m-middle 'amiga-mouse-ignore)
  2316. + (define-key mouse-map amiga-button-c-m-left 'amiga-mouse-ignore)
  2317. + (define-key mouse-map amiga-button-c-m-right-up 'amiga-mouse-ignore)
  2318. + (define-key mouse-map amiga-button-c-m-middle-up 'amiga-mouse-ignore)
  2319. + (define-key mouse-map amiga-button-c-m-left-up 'amiga-mouse-ignore)
  2320. + (define-key mouse-map amiga-button-c-m-s-right 'amiga-mouse-ignore)
  2321. + (define-key mouse-map amiga-button-c-m-s-middle 'amiga-mouse-ignore)
  2322. + (define-key mouse-map amiga-button-c-m-s-left 'amiga-mouse-ignore)
  2323. + (define-key mouse-map amiga-button-c-m-s-right-up 'amiga-mouse-ignore)
  2324. + (define-key mouse-map amiga-button-c-m-s-middle-up 'amiga-mouse-ignore)
  2325. + (define-key mouse-map amiga-button-c-m-s-left-up 'amiga-mouse-ignore)
  2326. + 
  2327. + ; Define a few events
  2328. + (define-key mouse-map amiga-button-left 'amiga-mouse-set-point)
  2329. + (define-key mouse-map amiga-button-s-left 'amiga-mouse-set-mark)
  2330. + (define-key mouse-map amiga-button-c-left 'amiga-mouse-cut)
  2331. + (define-key mouse-map amiga-button-m-left 'amiga-mouse-copy)
  2332. + (define-key mouse-map amiga-button-middle 'amiga-mouse-paste)
  2333. + (define-key mouse-map amiga-button-s-middle 'amiga-mouse-iconify)
  2334. + 
  2335. + (define-key amiga-map "M" 'amiga-flush-mouse-queue)
  2336. + (setq amiga-mouse-initialized t)  ;; Mouse commands can now be processed.
  2337. Binary files emacs-18.59-fsf/lisp/amiga-mouse.elc and emacs-18.59-amiga/lisp/amiga-mouse.elc differ
  2338. diff -rcP emacs-18.59-fsf/lisp/compile.el emacs-18.59-amiga/lisp/compile.el
  2339. *** emacs-18.59-fsf/lisp/compile.el    Fri Aug 14 22:53:00 1992
  2340. --- emacs-18.59-amiga/lisp/compile.el    Thu Dec 24 17:06:50 1992
  2341. ***************
  2342. *** 43,49 ****
  2343.   ;; The filename excludes colons to avoid confusion when error message
  2344.   ;; starts with digits.
  2345.   (defvar compilation-error-regexp
  2346. !   "\\([^ :\n]+\\(: *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  2347.     "Regular expression for filename/linenumber in error in compilation log.")
  2348.   
  2349.   (defun compile (command)
  2350. --- 43,49 ----
  2351.   ;; The filename excludes colons to avoid confusion when error message
  2352.   ;; starts with digits.
  2353.   (defvar compilation-error-regexp
  2354. !   "^\\([^ :\e]+\\([ :] *\\|, line \\|(\\)[0-9]+\\)\\|\\([0-9]+ *of *[^ \n]+\\)"
  2355.     "Regular expression for filename/linenumber in error in compilation log.")
  2356.   
  2357.   (defun compile (command)
  2358. ***************
  2359. *** 61,67 ****
  2360.   While grep runs asynchronously, you can use the \\[next-error] command
  2361.   to find the text that grep hits refer to."
  2362.     (interactive "sRun grep (with args): ")
  2363. !   (compile1 (concat "grep -n " command " /dev/null")
  2364.           "No more grep hits" "grep"))
  2365.   
  2366.   (defun compile1 (command error-message &optional name-of-mode)
  2367. --- 61,68 ----
  2368.   While grep runs asynchronously, you can use the \\[next-error] command
  2369.   to find the text that grep hits refer to."
  2370.     (interactive "sRun grep (with args): ")
  2371. !   (compile1 (concat "grep -n " command (if (eq system-type 'amigados) " nil:"
  2372. !                      " /dev/null"))
  2373.           "No more grep hits" "grep"))
  2374.   
  2375.   (defun compile1 (command error-message &optional name-of-mode)
  2376. ***************
  2377. *** 195,201 ****
  2378.       (let* ((pop-up-windows t)
  2379.          (w (display-buffer (marker-buffer (car next-error)))))
  2380.         (set-window-point w (car next-error))
  2381. !       (set-window-start w (car next-error)))
  2382.       (set-marker (car next-error) nil)))
  2383.   
  2384.   ;; Set compilation-error-list to nil, and
  2385. --- 196,208 ----
  2386.       (let* ((pop-up-windows t)
  2387.          (w (display-buffer (marker-buffer (car next-error)))))
  2388.         (set-window-point w (car next-error))
  2389. !       (if compilation-parse-sasc
  2390. !       (let ((thiswin (selected-window)))
  2391. !         (select-window w)
  2392. !         (vertical-motion -1)
  2393. !         (set-window-start w (point))
  2394. !         (select-window thiswin))
  2395. !     (set-window-start w (car next-error))))
  2396.       (set-marker (car next-error) nil)))
  2397.   
  2398.   ;; Set compilation-error-list to nil, and
  2399. ***************
  2400. *** 222,227 ****
  2401. --- 229,236 ----
  2402.   and visits its location."
  2403.     (setq compilation-error-list nil)
  2404.     (message "Parsing error messages...")
  2405. +   (goto-char (point-min))
  2406. +   (setq compilation-parse-sasc (search-forward "SAS/C" nil t))
  2407.     (let (text-buffer
  2408.       last-filename last-linenum)
  2409.       ;; Don't reparse messages already seen at last parse.
  2410. Binary files emacs-18.59-fsf/lisp/compile.elc and emacs-18.59-amiga/lisp/compile.elc differ
  2411. diff -rcP emacs-18.59-fsf/lisp/files.el emacs-18.59-amiga/lisp/files.el
  2412. *** emacs-18.59-fsf/lisp/files.el    Sun Oct 11 22:27:38 1992
  2413. --- emacs-18.59-amiga/lisp/files.el    Sat Nov 21 16:14:10 1992
  2414. ***************
  2415. *** 141,146 ****
  2416. --- 141,156 ----
  2417.   after you find a file.  If you explicitly request such a scan with
  2418.   \\[normal-mode], there is no query, regardless of this variable.")
  2419.   
  2420. + (defconst backup-char (if (eq system-type 'amigados) "!" "~")
  2421. +   "Character to add to file names to make backup names.")
  2422. + 
  2423. + (defconst autosave-char (if (eq system-type 'amigados) "@" "#")
  2424. +   "Character to add to file names to make autosave names.")
  2425. + 
  2426. + (defconst bufferfile-char (if (eq system-type 'amigados) "^" "%")
  2427. +   "Character to add to buffer names to make file names.")
  2428. + 
  2429. + 
  2430.   ;; Avoid losing in versions where CLASH_DETECTION is disabled.
  2431.   (or (fboundp 'lock-buffer)
  2432.       (fset 'lock-buffer 'ignore))
  2433. ***************
  2434. *** 380,386 ****
  2435.         (funcall (intern (concat (downcase mode) "-mode")))
  2436.       (let ((alist auto-mode-alist)
  2437.             (name buffer-file-name))
  2438. !       (let ((case-fold-search (eq system-type 'vax-vms)))
  2439.           ;; Remove backup-suffixes from file name.
  2440.           (setq name (file-name-sans-versions name))
  2441.           ;; Find first matching alist entry.
  2442. --- 390,397 ----
  2443.         (funcall (intern (concat (downcase mode) "-mode")))
  2444.       (let ((alist auto-mode-alist)
  2445.             (name buffer-file-name))
  2446. !       (let ((case-fold-search (or (eq system-type 'amigados)
  2447. !                       (eq system-type 'vax-vms))))
  2448.           ;; Remove backup-suffixes from file name.
  2449.           (setq name (file-name-sans-versions name))
  2450.           ;; Find first matching alist entry.
  2451. ***************
  2452. *** 559,566 ****
  2453.           (setq setmodes (file-modes backupname)))
  2454.           (file-error
  2455.            ;; If trouble writing the backup, write it in ~.
  2456. !          (setq backupname (expand-file-name "~/%backup%~"))
  2457. !          (message "Cannot write backup file; backing up in ~/%%backup%%~")
  2458.            (sleep-for 1)
  2459.            (condition-case ()
  2460.            (delete-file backupname)
  2461. --- 570,580 ----
  2462.           (setq setmodes (file-modes backupname)))
  2463.           (file-error
  2464.            ;; If trouble writing the backup, write it in ~.
  2465. !          (setq backupname
  2466. !            (expand-file-name (concat "~/" bufferfile-char "backup"
  2467. !                          bufferfile-char backup-char)))
  2468. !          (message "Cannot write backup file; backing up in ~/%sbackup%s%s"
  2469. !               bufferfile-char bufferfile-char backup-char)
  2470.            (sleep-for 1)
  2471.            (condition-case ()
  2472.            (delete-file backupname)
  2473. ***************
  2474. *** 588,605 ****
  2475.            (or (string-match ";[0-9]*\\'" name)
  2476.                (and (string-match "\\." name (string-match "[]>]" name))
  2477.                 (string-match "\\.[0-9]*\\'" name (match-end 0))))
  2478. !            (string-match "\\(\\.~[0-9]+\\)?~\\'" name))))
  2479.   
  2480.   (defun make-backup-file-name (file)
  2481.     "Create the non-numeric backup file name for FILE.
  2482.   This is a separate function so you can redefine it for customization."
  2483. !   (concat file "~"))
  2484.   
  2485.   (defun backup-file-name-p (file)
  2486.     "Return non-nil if FILE is a backup file name (numeric or not).
  2487.   This is a separate function so you can redefine it for customization.
  2488.   You may need to redefine file-name-sans-versions as well."
  2489. !   (string-match "~$" file))
  2490.   
  2491.   ;; I believe there is no need to alter this behavior for VMS;
  2492.   ;; since backup files are not made on VMS, it should not get called.
  2493. --- 602,620 ----
  2494.            (or (string-match ";[0-9]*\\'" name)
  2495.                (and (string-match "\\." name (string-match "[]>]" name))
  2496.                 (string-match "\\.[0-9]*\\'" name (match-end 0))))
  2497. !            (string-match (concat "\\(\\." backup-char "[0-9]+\\)?"
  2498. !                      backup-char "\\'") name))))
  2499.   
  2500.   (defun make-backup-file-name (file)
  2501.     "Create the non-numeric backup file name for FILE.
  2502.   This is a separate function so you can redefine it for customization."
  2503. !   (concat file backup-char))
  2504.   
  2505.   (defun backup-file-name-p (file)
  2506.     "Return non-nil if FILE is a backup file name (numeric or not).
  2507.   This is a separate function so you can redefine it for customization.
  2508.   You may need to redefine file-name-sans-versions as well."
  2509. !   (string-match (concat backup-char "$") file))
  2510.   
  2511.   ;; I believe there is no need to alter this behavior for VMS;
  2512.   ;; since backup files are not made on VMS, it should not get called.
  2513. ***************
  2514. *** 609,615 ****
  2515.    and whose cdr is a list of old versions to consider deleting now."
  2516.     (if (eq version-control 'never)
  2517.         (list (make-backup-file-name fn))
  2518. !     (let* ((base-versions (concat (file-name-nondirectory fn) ".~"))
  2519.          (bv-length (length base-versions))
  2520.          (possibilities (file-name-all-completions
  2521.                  base-versions
  2522. --- 624,630 ----
  2523.    and whose cdr is a list of old versions to consider deleting now."
  2524.     (if (eq version-control 'never)
  2525.         (list (make-backup-file-name fn))
  2526. !     (let* ((base-versions (concat (file-name-nondirectory fn) "." backup-char))
  2527.          (bv-length (length base-versions))
  2528.          (possibilities (file-name-all-completions
  2529.                  base-versions
  2530. ***************
  2531. *** 626,645 ****
  2532.                   kept-old-versions kept-new-versions -1)))
  2533.         (if (not deserve-versions-p)
  2534.         (list (make-backup-file-name fn))
  2535. !     (cons (concat fn ".~" (int-to-string (1+ high-water-mark)) "~")
  2536.             (if (and (> number-to-delete 0)
  2537.                  ;; Delete nothing if there is overflow
  2538.                  ;; in the number of versions to keep.
  2539.                  (>= (+ kept-new-versions kept-old-versions -1) 0))
  2540.             (mapcar (function (lambda (n)
  2541. !                       (concat fn ".~"
  2542. !                           (int-to-string n) "~")))
  2543.                 (let ((v (nthcdr kept-old-versions versions)))
  2544.                   (rplacd (nthcdr (1- number-to-delete) v) ())
  2545.                   v))))))))
  2546.   
  2547.   (defun backup-extract-version (fn)
  2548. !   (if (and (string-match "[0-9]+~$" fn bv-length)
  2549.          (= (match-beginning 0) bv-length))
  2550.         (string-to-int (substring fn bv-length -1))
  2551.         0))
  2552. --- 641,661 ----
  2553.                   kept-old-versions kept-new-versions -1)))
  2554.         (if (not deserve-versions-p)
  2555.         (list (make-backup-file-name fn))
  2556. !     (cons (concat fn "." backup-char (int-to-string (1+ high-water-mark))
  2557. !               backup-char)
  2558.             (if (and (> number-to-delete 0)
  2559.                  ;; Delete nothing if there is overflow
  2560.                  ;; in the number of versions to keep.
  2561.                  (>= (+ kept-new-versions kept-old-versions -1) 0))
  2562.             (mapcar (function (lambda (n)
  2563. !                       (concat fn "." backup-char
  2564. !                           (int-to-string n) backup-char)))
  2565.                 (let ((v (nthcdr kept-old-versions versions)))
  2566.                   (rplacd (nthcdr (1- number-to-delete) v) ())
  2567.                   v))))))))
  2568.   
  2569.   (defun backup-extract-version (fn)
  2570. !   (if (and (string-match (concat "[0-9]+" backup-char "$") fn bv-length)
  2571.          (= (match-beginning 0) bv-length))
  2572.         (string-to-int (substring fn bv-length -1))
  2573.         0))
  2574. ***************
  2575. *** 741,747 ****
  2576.                  ;; If file is precious, rename it away before
  2577.                  ;; overwriting it.
  2578.                  (let ((rename t) nodelete
  2579. !                  (file (concat buffer-file-name "#")))
  2580.                (condition-case ()
  2581.                    (progn (rename-file buffer-file-name file t)
  2582.                       (setq setmodes (file-modes file)))
  2583. --- 757,763 ----
  2584.                  ;; If file is precious, rename it away before
  2585.                  ;; overwriting it.
  2586.                  (let ((rename t) nodelete
  2587. !                  (file (concat buffer-file-name autosave-char)))
  2588.                (condition-case ()
  2589.                    (progn (rename-file buffer-file-name file t)
  2590.                       (setq setmodes (file-modes file)))
  2591. ***************
  2592. *** 774,779 ****
  2593. --- 790,798 ----
  2594.                   ;; Change the mode back, after writing.
  2595.                   (setq setmodes (file-modes buffer-file-name))
  2596.                   (set-file-modes buffer-file-name 511)))
  2597. +              (if (eq system-type 'amigados)
  2598. +              (if amiga-create-icons
  2599. +                  (amiga-put-icon buffer-file-name nil)))
  2600.                (write-region (point-min) (point-max) 
  2601.                      buffer-file-name nil t)))))
  2602.         (if setmodes
  2603. ***************
  2604. *** 983,998 ****
  2605.   See also auto-save-file-name-p."
  2606.     (if buffer-file-name
  2607.         (concat (file-name-directory buffer-file-name)
  2608. !           "#"
  2609.             (file-name-nondirectory buffer-file-name)
  2610. !           "#")
  2611. !     (expand-file-name (concat "#%" (buffer-name) "#"))))
  2612.   
  2613.   (defun auto-save-file-name-p (filename)
  2614.     "Return non-nil if FILENAME can be yielded by make-auto-save-file-name.
  2615.   FILENAME should lack slashes.
  2616.   You can redefine this for customization."
  2617. !   (string-match "^#.*#$" filename))
  2618.   
  2619.   (defconst list-directory-brief-switches "-CF"
  2620.     "*Switches for list-directory to pass to `ls' for brief listing,")
  2621. --- 1002,1018 ----
  2622.   See also auto-save-file-name-p."
  2623.     (if buffer-file-name
  2624.         (concat (file-name-directory buffer-file-name)
  2625. !           autosave-char
  2626.             (file-name-nondirectory buffer-file-name)
  2627. !           autosave-char)
  2628. !     (expand-file-name (concat autosave-char bufferfile-char (buffer-name)
  2629. !                   autosave-char))))
  2630.   
  2631.   (defun auto-save-file-name-p (filename)
  2632.     "Return non-nil if FILENAME can be yielded by make-auto-save-file-name.
  2633.   FILENAME should lack slashes.
  2634.   You can redefine this for customization."
  2635. !   (string-match (concat "^" autosave-char ".*" autosave-char "$") filename))
  2636.   
  2637.   (defconst list-directory-brief-switches "-CF"
  2638.     "*Switches for list-directory to pass to `ls' for brief listing,")
  2639. Binary files emacs-18.59-fsf/lisp/files.elc and emacs-18.59-amiga/lisp/files.elc differ
  2640. diff -rcP emacs-18.59-fsf/lisp/loadup.el emacs-18.59-amiga/lisp/loadup.el
  2641. *** emacs-18.59-fsf/lisp/loadup.el    Wed May 13 19:42:48 1992
  2642. --- emacs-18.59-amiga/lisp/loadup.el    Sat Nov 21 16:14:52 1992
  2643. ***************
  2644. *** 28,34 ****
  2645.   (load "simple")
  2646.   (garbage-collect)
  2647.   (load "help")
  2648. - (garbage-collect)
  2649.   (load "files")
  2650.   (garbage-collect)
  2651.   (load "indent")
  2652. --- 28,33 ----
  2653. ***************
  2654. *** 64,69 ****
  2655. --- 63,72 ----
  2656.       (progn
  2657.         (garbage-collect)
  2658.         (load "vms-patch")))
  2659. + (if (eq system-type 'amigados)
  2660. +     (progn
  2661. +       (garbage-collect)
  2662. +       (load "amiga-init")))
  2663.   
  2664.   ;If you want additional libraries to be preloaded and their
  2665.   ;doc strings kept in the DOC file rather than in core,
  2666. diff -rcP emacs-18.59-fsf/lisp/simple.el emacs-18.59-amiga/lisp/simple.el
  2667. *** emacs-18.59-fsf/lisp/simple.el    Wed Apr 15 08:13:32 1992
  2668. --- emacs-18.59-amiga/lisp/simple.el    Sat Nov 21 16:16:00 1992
  2669. ***************
  2670. *** 539,549 ****
  2671.   (defvar kill-ring-yank-pointer nil
  2672.     "The tail of the kill ring whose car is the last thing yanked.")
  2673.   
  2674.   (defun kill-append (string before-p)
  2675.     (setcar kill-ring
  2676.         (if before-p
  2677.             (concat string (car kill-ring))
  2678. !           (concat (car kill-ring) string))))
  2679.   
  2680.   (defun kill-region (beg end)
  2681.     "Kill between point and mark.
  2682. --- 539,585 ----
  2683.   (defvar kill-ring-yank-pointer nil
  2684.     "The tail of the kill ring whose car is the last thing yanked.")
  2685.   
  2686. + (if (eq system-type 'amigados)
  2687. +     (progn
  2688. +       (defun safe-amiga-paste ()
  2689. +     "Paste from the amiga clipboard, trapping any errors."
  2690. +     (condition-case nil
  2691. +         (amiga-paste)
  2692. +       (error nil)))
  2693. + 
  2694. +       (defun check-clipboard ()
  2695. +     "If there is anything new in the clipboard, add it to the emacs kill ring.
  2696. + Returns t if there was something added, nil otherwise."
  2697. +     (let (added)
  2698. +       (if amiga-new-clip
  2699. +           (let ((str (safe-amiga-paste)))
  2700. +         (setq amiga-new-clip nil)
  2701. +         (if str
  2702. +             (progn
  2703. +               (kill-add str)
  2704. +               (setq added t)
  2705. +               (setq kill-ring-yank-pointer kill-ring)))))
  2706. +       added))
  2707. +       (defun update-clipboard (str)
  2708. +     (amiga-cut str)
  2709. +     (setq amiga-new-clip nil)))
  2710. +     (progn ; These could be defined for X-Windows.
  2711. +       (defun check-clipboard () nil)
  2712. +       (defun update-clipboard () nil)))
  2713. + 
  2714.   (defun kill-append (string before-p)
  2715.     (setcar kill-ring
  2716.         (if before-p
  2717.             (concat string (car kill-ring))
  2718. !           (concat (car kill-ring) string)))
  2719. !   (update-clipboard (car kill-ring)))
  2720. ! 
  2721. ! (defun kill-add (string)
  2722. !   (check-clipboard)
  2723. !   (setq kill-ring (cons string kill-ring))
  2724. !   (update-clipboard string)
  2725. !   (if (> (length kill-ring) kill-ring-max)
  2726. !       (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
  2727.   
  2728.   (defun kill-region (beg end)
  2729.     "Kill between point and mark.
  2730. ***************
  2731. *** 571,579 ****
  2732.       (delete-region beg end)
  2733.       ;; Take the same string recorded for undo
  2734.       ;; and put it in the kill-ring.
  2735. !     (setq kill-ring (cons (car (car buffer-undo-list)) kill-ring))
  2736. !     (if (> (length kill-ring) kill-ring-max)
  2737. !         (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil))
  2738.       (setq this-command 'kill-region)
  2739.       (setq kill-ring-yank-pointer kill-ring))
  2740.       (copy-region-as-kill beg end)
  2741. --- 607,613 ----
  2742.       (delete-region beg end)
  2743.       ;; Take the same string recorded for undo
  2744.       ;; and put it in the kill-ring.
  2745. !     (kill-add (car (car buffer-undo-list)))
  2746.       (setq this-command 'kill-region)
  2747.       (setq kill-ring-yank-pointer kill-ring))
  2748.       (copy-region-as-kill beg end)
  2749. ***************
  2750. *** 584,594 ****
  2751.   (defun copy-region-as-kill (beg end)
  2752.     "Save the region as if killed, but don't kill it."
  2753.     (interactive "r")
  2754. !   (if (eq last-command 'kill-region)
  2755.         (kill-append (buffer-substring beg end) (< end beg))
  2756. !     (setq kill-ring (cons (buffer-substring beg end) kill-ring))
  2757. !     (if (> (length kill-ring) kill-ring-max)
  2758. !     (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
  2759.     (setq this-command 'kill-region)
  2760.     (setq kill-ring-yank-pointer kill-ring))
  2761.   
  2762. --- 618,626 ----
  2763.   (defun copy-region-as-kill (beg end)
  2764.     "Save the region as if killed, but don't kill it."
  2765.     (interactive "r")
  2766. !   (if (and (eq last-command 'kill-region) (not (check-clipboard)))
  2767.         (kill-append (buffer-substring beg end) (< end beg))
  2768. !     (kill-add (buffer-substring beg end)))
  2769.     (setq this-command 'kill-region)
  2770.     (setq kill-ring-yank-pointer kill-ring))
  2771.   
  2772. ***************
  2773. *** 643,648 ****
  2774. --- 675,681 ----
  2775.   text.
  2776.   See also the command \\[yank-pop]."
  2777.     (interactive "*P")
  2778. +   (check-clipboard)
  2779.     (rotate-yank-pointer (if (listp arg) 0
  2780.                (if (eq arg '-) -1
  2781.                  (1- arg))))
  2782. Binary files emacs-18.59-fsf/lisp/simple.elc and emacs-18.59-amiga/lisp/simple.elc differ
  2783. diff -rcP emacs-18.59-fsf/lisp/startup.el emacs-18.59-amiga/lisp/startup.el
  2784. *** emacs-18.59-fsf/lisp/startup.el    Sun Apr 19 05:20:08 1992
  2785. --- emacs-18.59-amiga/lisp/startup.el    Sat Nov 21 16:16:08 1992
  2786. ***************
  2787. *** 113,121 ****
  2788.       ;; Load user's init file, or load default one.
  2789.       (condition-case error
  2790.       (if init
  2791. !         (progn (load (if (eq system-type 'vax-vms)
  2792. !                  "sys$login:.emacs"
  2793. !                  (concat "~" init "/.emacs"))
  2794.                t t t)
  2795.              (or inhibit-default-init
  2796.                  (let ((inhibit-startup-message nil))
  2797. --- 113,121 ----
  2798.       ;; Load user's init file, or load default one.
  2799.       (condition-case error
  2800.       (if init
  2801. !         (progn (load (cond ((eq system-type 'vax-vms) "sys$login:.emacs")
  2802. !                    ((eq system-type 'amigados) "s:.emacs")
  2803. !                    (t (concat "~" init "/.emacs")))
  2804.                t t t)
  2805.              (or inhibit-default-init
  2806.                  (let ((inhibit-startup-message nil))
  2807. ***************
  2808. *** 129,134 ****
  2809. --- 129,138 ----
  2810.       (save-excursion
  2811.         (set-buffer "*scratch*")
  2812.         (funcall initial-major-mode)))
  2813. +     ;; On Amiga, initialise clipboard
  2814. +     (if (eq system-type 'amigados)
  2815. +     (let ((clip (safe-amiga-paste)))
  2816. +       (if clip (kill-add clip))))
  2817.       ;; Load library for our terminal type.
  2818.       ;; User init file can set term-file-prefix to nil to prevent this.
  2819.       (and term-file-prefix (not noninteractive)
  2820. Binary files emacs-18.59-fsf/lisp/startup.elc and emacs-18.59-amiga/lisp/startup.elc differ
  2821. diff -rcP emacs-18.59-fsf/lisp/term/intuition-win.el emacs-18.59-amiga/lisp/term/intuition-win.el
  2822. *** emacs-18.59-fsf/lisp/term/intuition-win.el    Thu Jan  1 00:00:00 1970
  2823. --- emacs-18.59-amiga/lisp/term/intuition-win.el    Sat Nov 21 16:08:08 1992
  2824. ***************
  2825. *** 0 ****
  2826. --- 1,47 ----
  2827. + (load "s:.emacs-menu" t t)
  2828. + (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  2829. +                      ("-fg" . amiga-handle-set-foreground)
  2830. +                      ("-bg" . amiga-handle-set-background)
  2831. +                      ("-geometry" . amiga-handle-set-geometry)
  2832. +                      ("-screen" . amiga-handle-set-screen))
  2833. +                    command-switch-alist))
  2834. + 
  2835. + (defun amiga-handle-set-font (switch)
  2836. +   (condition-case err
  2837. +       (let ((wfont (car command-line-args-left))
  2838. +         (height (car (read-from-string (car (cdr command-line-args-left))))))
  2839. +     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  2840. +     (amiga-set-font wfont height))
  2841. +     (error (message "Failed to load font"))))
  2842. + 
  2843. + (defun amiga-handle-set-foreground (switch)
  2844. +   (condition-case err
  2845. +       (let ((pen (car (read-from-string (car command-line-args-left)))))
  2846. +     (setq command-line-args-left (cdr command-line-args-left))
  2847. +     (amiga-set-foreground-color pen))
  2848. +     (error (message "Failed to set foreground colour"))))
  2849. + 
  2850. + (defun amiga-handle-set-background (switch)
  2851. +   (condition-case err
  2852. +       (let ((pen (car (read-from-string (car command-line-args-left)))))
  2853. +     (setq command-line-args-left (cdr command-line-args-left))
  2854. +     (amiga-set-background-color pen))
  2855. +     (error (message "Failed to set background colour"))))
  2856. + 
  2857. + (defun amiga-handle-set-screen (switch)
  2858. +   (condition-case err
  2859. +       (let ((name (car command-line-args-left)))
  2860. +     (setq command-line-args-left (cdr command-line-args-left))
  2861. +     (amiga-set-geometry nil nil nil nil name))
  2862. +     (error (message "Couldn't open on public screen"))))
  2863. + 
  2864. + (defun amiga-handle-set-geometry (switch)
  2865. +   (condition-case err
  2866. +       (let ((x (car (read-from-string (car command-line-args-left))))
  2867. +         (y (car (read-from-string (car (cdr command-line-args-left)))))
  2868. +         (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  2869. +         (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  2870. + )
  2871. +     (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  2872. +     (amiga-set-geometry x y w h nil))
  2873. +     (error (message "Couldn't set window size"))))
  2874. diff -rcP emacs-18.59-fsf/lisp/term/intuition-win.elc emacs-18.59-amiga/lisp/term/intuition-win.elc
  2875. *** emacs-18.59-fsf/lisp/term/intuition-win.elc    Thu Jan  1 00:00:00 1970
  2876. --- emacs-18.59-amiga/lisp/term/intuition-win.elc    Sun May 16 10:57:14 1993
  2877. ***************
  2878. *** 0 ****
  2879. --- 1,16 ----
  2880. + 
  2881. + (load "s:.emacs-menu" t t)
  2882. + 
  2883. + (setq command-switch-alist (append (quote (("-fn" . amiga-handle-set-font) ("-fg" . amiga-handle-set-foreground) ("-bg" . amiga-handle-set-background) ("-geometry" . amiga-handle-set-geometry) ("-screen" . amiga-handle-set-screen))) command-switch-alist))
  2884. + 
  2885. + (defun amiga-handle-set-font (switch) (byte-code "ÀÁ‡" [err (byte-code "    @à   A@!@    AA‰ˆÄ
  2886. + \"*‡" [wfont command-line-args-left height read-from-string amiga-set-font] 4) ((error (byte-code "ÀÁ!‡" [message "Failed to load font"] 2)))] 3))
  2887. + 
  2888. + (defun amiga-handle-set-foreground (switch) (byte-code "ÀÁ‡" [err (byte-code "    @!@    A‰ˆÃ!)‡" [pen command-line-args-left read-from-string amiga-set-foreground-color] 3) ((error (byte-code "ÀÁ!‡" [message "Failed to set foreground colour"] 2)))] 3))
  2889. + 
  2890. + (defun amiga-handle-set-background (switch) (byte-code "ÀÁ‡" [err (byte-code "    @!@    A‰ˆÃ!)‡" [pen command-line-args-left read-from-string amiga-set-background-color] 3) ((error (byte-code "ÀÁ!‡" [message "Failed to set background colour"] 2)))] 3))
  2891. + 
  2892. + (defun amiga-handle-set-screen (switch) (byte-code "ÀÁ‡" [err (byte-code "    @    A‰ˆÃÂÂÂÂ%)‡" [name command-line-args-left nil amiga-set-geometry] 6) ((error (byte-code "ÀÁ!‡" [message "Couldn't open on public screen"] 2)))] 3))
  2893. + 
  2894. + (defun amiga-handle-set-geometry (switch) (byte-code "ÀÁ‡" [err (byte-code "Æ    @!@Æ    A@!@Æ    AA@!@Æ    AAA@!@    AAAA‰ˆÇ
  2895. +  Å%,‡" [x command-line-args-left y w h nil read-from-string amiga-set-geometry] 10) ((error (byte-code "ÀÁ!‡" [message "Couldn't set window size"] 2)))] 3))
  2896. diff -rcP emacs-18.59-fsf/lisp/texinfmt.el emacs-18.59-amiga/lisp/texinfmt.el
  2897. *** emacs-18.59-fsf/lisp/texinfmt.el    Sun Dec  8 05:28:09 1991
  2898. --- emacs-18.59-amiga/lisp/texinfmt.el    Sat Nov 21 16:16:32 1992
  2899. ***************
  2900. *** 874,880 ****
  2901.       (insert "\n* Menu:\n\n")
  2902.       (setq opoint (point))
  2903.       (texinfo-print-index nil indexelts)
  2904. !     (if (eq system-type 'vax-vms) 
  2905.       (texinfo-sort-region opoint (point))
  2906.         (shell-command-on-region opoint (point) "sort -fd" 1))))
  2907.   
  2908. --- 874,880 ----
  2909.       (insert "\n* Menu:\n\n")
  2910.       (setq opoint (point))
  2911.       (texinfo-print-index nil indexelts)
  2912. !     (if (or (eq system-type 'amigados) (eq system-type 'vax-vms)) 
  2913.       (texinfo-sort-region opoint (point))
  2914.         (shell-command-on-region opoint (point) "sort -fd" 1))))
  2915.   
  2916. Binary files emacs-18.59-fsf/lisp/texinfmt.elc and emacs-18.59-amiga/lisp/texinfmt.elc differ
  2917. diff -rcP emacs-18.59-fsf/src/SCOPTIONS emacs-18.59-amiga/src/SCOPTIONS
  2918. *** emacs-18.59-fsf/src/SCOPTIONS    Thu Jan  1 00:00:00 1970
  2919. --- emacs-18.59-amiga/src/SCOPTIONS    Sat Oct  2 15:31:56 1993
  2920. ***************
  2921. *** 0 ****
  2922. --- 1,15 ----
  2923. + STRINGMERGE
  2924. + STRUCTUREEQUIVALENCE
  2925. + NOWARNVOIDRETURN
  2926. + NOVERSION
  2927. + MEMORYSIZE=HUGE
  2928. + INCLUDEDIR=//unix/include
  2929. + IGNORE=147
  2930. + IGNORE=62
  2931. + IGNORE=132
  2932. + IGNORE=154
  2933. + IGNORE=104
  2934. + IGNORE=100
  2935. + IGNORE=161
  2936. + IGNORE=84
  2937. + IGNORE=93
  2938. diff -rcP emacs-18.59-fsf/src/alloc.c emacs-18.59-amiga/src/alloc.c
  2939. *** emacs-18.59-fsf/src/alloc.c    Mon Sep 21 05:45:30 1992
  2940. --- emacs-18.59-amiga/src/alloc.c    Sun Dec  6 12:42:02 1992
  2941. ***************
  2942. *** 76,81 ****
  2943. --- 76,86 ----
  2944.      Preallocated since perhaps we can't allocate it when memory is full.  */
  2945.   Lisp_Object memory_exhausted_message;
  2946.   
  2947. + #ifdef AMIGA_DUMP
  2948. + int *pure;   /* pure array is allocated at run-time */
  2949. + int puresize = DEF_PURESIZE; /* and has a variable size */
  2950. + #define PUREBEG (char *) pure
  2951. + #else /* not AMIGA_DUMP */
  2952.   #ifndef HAVE_SHM
  2953.   #ifdef VMS
  2954.   int pure[PURESIZE / sizeof (int)];    /*no need to initialize - wasted space*/
  2955. ***************
  2956. *** 87,92 ****
  2957. --- 92,98 ----
  2958.   #define pure PURE_SEG_BITS   /* Use shared memory segment */
  2959.   #define PUREBEG (char *)PURE_SEG_BITS
  2960.   #endif /* not HAVE_SHM */
  2961. + #endif /* not AMIGA_DUMP */
  2962.   
  2963.   /* Index in pure at which next pure object will be allocated. */
  2964.   int pureptr;
  2965. ***************
  2966. *** 608,614 ****
  2967.         XSET (val, Lisp_String,
  2968.           (struct Lisp_String *) current_string_block->chars);
  2969.       }
  2970. !     
  2971.     XSTRING (val)->size = length;
  2972.     XSTRING (val)->data[length] = 0;
  2973.   
  2974. --- 614,620 ----
  2975.         XSET (val, Lisp_String,
  2976.           (struct Lisp_String *) current_string_block->chars);
  2977.       }
  2978. ! 
  2979.     XSTRING (val)->size = length;
  2980.     XSTRING (val)->data[length] = 0;
  2981.   
  2982. ***************
  2983. *** 727,735 ****
  2984. --- 733,745 ----
  2985.   #ifdef __GNUC__
  2986.   Lisp_Object *staticvec[NSTATICS] = {0};
  2987.   #else
  2988. + #ifdef AMIGA_DUMP
  2989. + Lisp_Object *staticvec[NSTATICS]; /* Doesn't need to be pure */
  2990. + #else
  2991.   char staticvec1[NSTATICS * sizeof (Lisp_Object *)] = {0};
  2992.   #define staticvec ((Lisp_Object **) staticvec1)
  2993.   #endif
  2994. + #endif
  2995.   
  2996.   /* Put an entry in staticvec, pointing at the variable whose address is given */
  2997.   
  2998. ***************
  2999. *** 859,870 ****
  3000.       {
  3001.         mark_object (&catch->tag);
  3002.         mark_object (&catch->val);
  3003. !     }  
  3004.     for (handler = handlerlist; handler; handler = handler->next)
  3005.       {
  3006.         mark_object (&handler->handler);
  3007.         mark_object (&handler->var);
  3008. !     }  
  3009.     for (backlist = backtrace_list; backlist; backlist = backlist->next)
  3010.       {
  3011.         if (!XMARKBIT (*backlist->function))
  3012. --- 869,880 ----
  3013.       {
  3014.         mark_object (&catch->tag);
  3015.         mark_object (&catch->val);
  3016. !     }
  3017.     for (handler = handlerlist; handler; handler = handler->next)
  3018.       {
  3019.         mark_object (&handler->handler);
  3020.         mark_object (&handler->var);
  3021. !     }
  3022.     for (backlist = backtrace_list; backlist; backlist = backlist->next)
  3023.       {
  3024.         if (!XMARKBIT (*backlist->function))
  3025. ***************
  3026. *** 882,888 ****
  3027.           mark_object (&backlist->args[i]);
  3028.           XMARK (backlist->args[i]);
  3029.         }
  3030. !     }  
  3031.   
  3032.     gc_sweep ();
  3033.   
  3034. --- 892,898 ----
  3035.           mark_object (&backlist->args[i]);
  3036.           XMARK (backlist->args[i]);
  3037.         }
  3038. !     }
  3039.   
  3040.     gc_sweep ();
  3041.   
  3042. ***************
  3043. *** 900,906 ****
  3044.       i = backlist->nargs - 1;
  3045.         for (; i >= 0; i--)
  3046.       XUNMARK (backlist->args[i]);
  3047. !     }  
  3048.     XUNMARK (buffer_defaults.name);
  3049.     XUNMARK (buffer_local_symbols.name);
  3050.   
  3051. --- 910,916 ----
  3052.       i = backlist->nargs - 1;
  3053.         for (; i >= 0; i--)
  3054.       XUNMARK (backlist->args[i]);
  3055. !     }
  3056.     XUNMARK (buffer_defaults.name);
  3057.     XUNMARK (buffer_local_symbols.name);
  3058.   
  3059. ***************
  3060. *** 936,942 ****
  3061.     {
  3062.       register struct cons_block *cblk;
  3063.       register int lim = cons_block_index;
  3064. !   
  3065.       for (cblk = cons_block; cblk; cblk = cblk->next)
  3066.         {
  3067.       register int i;
  3068. --- 946,952 ----
  3069.     {
  3070.       register struct cons_block *cblk;
  3071.       register int lim = cons_block_index;
  3072. ! 
  3073.       for (cblk = cons_block; cblk; cblk = cblk->next)
  3074.         {
  3075.       register int i;
  3076. ***************
  3077. *** 949,955 ****
  3078.     {
  3079.       register struct symbol_block *sblk;
  3080.       register int lim = symbol_block_index;
  3081. !   
  3082.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  3083.         {
  3084.       register int i;
  3085. --- 959,965 ----
  3086.     {
  3087.       register struct symbol_block *sblk;
  3088.       register int lim = symbol_block_index;
  3089. ! 
  3090.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  3091.         {
  3092.       register int i;
  3093. ***************
  3094. *** 964,970 ****
  3095.     {
  3096.       register struct marker_block *sblk;
  3097.       register int lim = marker_block_index;
  3098. !   
  3099.       for (sblk = marker_block; sblk; sblk = sblk->next)
  3100.         {
  3101.       register int i;
  3102. --- 974,980 ----
  3103.     {
  3104.       register struct marker_block *sblk;
  3105.       register int lim = marker_block_index;
  3106. ! 
  3107.       for (sblk = marker_block; sblk; sblk = sblk->next)
  3108.         {
  3109.       register int i;
  3110. ***************
  3111. *** 1197,1203 ****
  3112.       register int num_free = 0, num_used = 0;
  3113.   
  3114.       cons_free_list = 0;
  3115. !   
  3116.       for (cblk = cons_block; cblk; cblk = cblk->next)
  3117.         {
  3118.       register int i;
  3119. --- 1207,1213 ----
  3120.       register int num_free = 0, num_used = 0;
  3121.   
  3122.       cons_free_list = 0;
  3123. ! 
  3124.       for (cblk = cons_block; cblk; cblk = cblk->next)
  3125.         {
  3126.       register int i;
  3127. ***************
  3128. *** 1226,1232 ****
  3129.       register int num_free = 0, num_used = 0;
  3130.   
  3131.       symbol_free_list = 0;
  3132. !   
  3133.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  3134.         {
  3135.       register int i;
  3136. --- 1236,1242 ----
  3137.       register int num_free = 0, num_used = 0;
  3138.   
  3139.       symbol_free_list = 0;
  3140. ! 
  3141.       for (sblk = symbol_block; sblk; sblk = sblk->next)
  3142.         {
  3143.       register int i;
  3144. ***************
  3145. *** 1260,1266 ****
  3146.       register int num_free = 0, num_used = 0;
  3147.   
  3148.       marker_free_list = 0;
  3149. !   
  3150.       for (mblk = marker_block; mblk; mblk = mblk->next)
  3151.         {
  3152.       register int i;
  3153. --- 1270,1276 ----
  3154.       register int num_free = 0, num_used = 0;
  3155.   
  3156.       marker_free_list = 0;
  3157. ! 
  3158.       for (mblk = marker_block; mblk; mblk = mblk->next)
  3159.         {
  3160.       register int i;
  3161. ***************
  3162. *** 1400,1406 ****
  3163.             while ((unsigned) size > STRING_BLOCK_SIZE)
  3164.           {
  3165.             if (size & 1) size ^= MARKBIT | 1;
  3166. !           size = *(int *)size & ~MARKBIT;
  3167.           }
  3168.   
  3169.             total_string_size += size;
  3170. --- 1410,1417 ----
  3171.             while ((unsigned) size > STRING_BLOCK_SIZE)
  3172.           {
  3173.             if (size & 1) size ^= MARKBIT | 1;
  3174. !           size = *(int *)size;
  3175. !                   size &= ~MARKBIT;
  3176.           }
  3177.   
  3178.             total_string_size += size;
  3179. ***************
  3180. *** 1438,1444 ****
  3181.             if (size & 1) size ^= MARKBIT | 1;
  3182.             objptr = (Lisp_Object *)size;
  3183.   
  3184. !           size = XFASTINT (*objptr) & ~MARKBIT;
  3185.             if (XMARKBIT (*objptr))
  3186.               {
  3187.                 XSET (*objptr, Lisp_String, newaddr);
  3188. --- 1449,1456 ----
  3189.             if (size & 1) size ^= MARKBIT | 1;
  3190.             objptr = (Lisp_Object *)size;
  3191.   
  3192. !           size = XFASTINT (*objptr);
  3193. !                   size &= ~MARKBIT;
  3194.             if (XMARKBIT (*objptr))
  3195.               {
  3196.                 XSET (*objptr, Lisp_String, newaddr);
  3197. ***************
  3198. *** 1498,1504 ****
  3199.        Qt tends to return NULL, which effectively turns undo back on.
  3200.        So don't call truncate_undo_list if undo_list is Qt.  */
  3201.         if (! EQ (nextb->undo_list, Qt))
  3202. !     nextb->undo_list 
  3203.         = truncate_undo_list (nextb->undo_list, undo_threshold,
  3204.                   undo_high_threshold);
  3205.         nextb = nextb->next;
  3206. --- 1510,1516 ----
  3207.        Qt tends to return NULL, which effectively turns undo back on.
  3208.        So don't call truncate_undo_list if undo_list is Qt.  */
  3209.         if (! EQ (nextb->undo_list, Qt))
  3210. !     nextb->undo_list
  3211.         = truncate_undo_list (nextb->undo_list, undo_threshold,
  3212.                   undo_high_threshold);
  3213.         nextb = nextb->next;
  3214. diff -rcP emacs-18.59-fsf/src/alloca.c emacs-18.59-amiga/src/alloca.c
  3215. *** emacs-18.59-fsf/src/alloca.c    Sat Jul 25 21:40:32 1992
  3216. --- emacs-18.59-amiga/src/alloca.c    Sun Nov 22 10:12:50 1992
  3217. ***************
  3218. *** 72,78 ****
  3219.   #define    STACK_DIRECTION    0        /* direction unknown */
  3220.   #endif
  3221.   
  3222. ! #if STACK_DIRECTION != 0
  3223.   
  3224.   #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  3225.   
  3226. --- 72,78 ----
  3227.   #define    STACK_DIRECTION    0        /* direction unknown */
  3228.   #endif
  3229.   
  3230. ! #if (STACK_DIRECTION) != 0
  3231.   
  3232.   #define    STACK_DIR    STACK_DIRECTION    /* known at compile-time */
  3233.   
  3234. ***************
  3235. *** 137,142 ****
  3236. --- 137,144 ----
  3237.   
  3238.   static header *last_alloca_header = NULL; /* -> last alloca header */
  3239.   
  3240. + int alloca_calling;
  3241. + 
  3242.   pointer
  3243.   alloca (size)            /* returns pointer to storage */
  3244.        unsigned    size;        /* # bytes to allocate */
  3245. ***************
  3246. *** 176,185 ****
  3247. --- 178,189 ----
  3248.   
  3249.     /* Allocate combined header + user data storage. */
  3250.   
  3251. +   alloca_calling = 1;
  3252.     {
  3253.       register pointer    new = xmalloc (sizeof (header) + size);
  3254.       /* address of header */
  3255.   
  3256. +     alloca_calling = 0;
  3257.       ((header *)new)->h.next = last_alloca_header;
  3258.       ((header *)new)->h.deep = depth;
  3259.   
  3260. diff -rcP emacs-18.59-fsf/src/amiga.h emacs-18.59-amiga/src/amiga.h
  3261. *** emacs-18.59-fsf/src/amiga.h    Thu Jan  1 00:00:00 1970
  3262. --- emacs-18.59-amiga/src/amiga.h    Sat Dec  5 18:07:10 1992
  3263. ***************
  3264. *** 0 ****
  3265. --- 1,145 ----
  3266. + 
  3267. + /* Prototypes for functions defined in amiga_clipboard.c */
  3268. + void syms_of_amiga_clipboard(void);
  3269. + void early_clipboard(void);
  3270. + void init_clipboard(void);
  3271. + void cleanup_clipboard(void);
  3272. + 
  3273. + /* Prototypes for functions defined in amiga_dump.c */
  3274. + void map_out_data(char *fn);
  3275. + void map_in_data(int load);
  3276. + extern void *far first_fn, *far last_fn;
  3277. + 
  3278. + /* Prototypes for functions defined in amiga_menu.c */
  3279. + void suspend_menus(void);
  3280. + int resume_menus(void);
  3281. + void syms_of_amiga_menu(void);
  3282. + void init_amiga_menu(void);
  3283. + void cleanup_amiga_menu(void);
  3284. + 
  3285. + /* Prototypes for functions defined in amiga_processes.c */
  3286. + /* Simulation of unix processes & signals */
  3287. + int wait_for_termination(int pid);
  3288. + int wait_without_blocking(void);
  3289. + char *amiga_path(void);
  3290. + void init_amiga_processes(void);
  3291. + void cleanup_amiga_processes(void);
  3292. + 
  3293. + /* Prototypes for functions defined in amiga_rexx.c */
  3294. + int check_arexx(int force, int kbd);
  3295. + void init_amiga_rexx(void);
  3296. + void cleanup_amiga_rexx(void);
  3297. + void syms_of_amiga_rexx(void);
  3298. + 
  3299. + /* Prototypes for functions defined in amiga_screen.c */
  3300. + extern struct Window *emacs_win;
  3301. + void get_window_size(int *widthp, int *heightp);
  3302. + void reset_window(void);
  3303. + void force_window(void);
  3304. + void add_wbevent(struct WBArg *wbarg);
  3305. + void check_window(int force);
  3306. + void setup_intchar(char intchar);
  3307. + 
  3308. + void start_count(int n);
  3309. + void stop_count(int n);
  3310. + void suspend_count(int n);
  3311. + void resume_count(int n);
  3312. + int disp_counts(void);
  3313. + 
  3314. + void screen_puts(char *str, unsigned int len);
  3315. + void syms_of_amiga_screen(void);
  3316. + void init_amiga_screen(void);
  3317. + void cleanup_amiga_screen(void);
  3318. + 
  3319. + /* Prototypes for functions defined in amiga_serial.c */
  3320. + void init_amiga_serial(void);
  3321. + void cleanup_amiga_serial(void);
  3322. + void check_serial(int force);
  3323. + void serial_puts(char *str, int len);
  3324. + unsigned long serial_baud_rate(void);
  3325. + 
  3326. + /* Prototypes for functions defined in amiga_sysdep.c */
  3327. + extern int selecting;
  3328. + 
  3329. + int set_exclusive_use(int fd);
  3330. + int sys_suspend(void);
  3331. + char *get_system_name(void);
  3332. + char *expand_path(char *path, char *buf, int len);
  3333. + int syms_of_amiga(void);
  3334. + void cleanup_amiga(void);
  3335. + void amiga_undump_reinit(void);
  3336. + void *early_xmalloc(long size);
  3337. + void *early_xrealloc(void *old, long size);
  3338. + 
  3339. + /* Failure stuff */
  3340. + void wbmessage(char *msg);
  3341. + void fail(char *cause);
  3342. + void fail_nomem(void);
  3343. + void _fail_internal(char *file, int line);
  3344. + #define fail_internal() _fail_internal(__FILE__, __LINE__);
  3345. + enum exit_method { use_exit, use_xcexit, use_safe };
  3346. + extern enum exit_method amiga_fail_exit;
  3347. + 
  3348. + #define MALLOC_HUNK_SIZE 92000 /* Default malloc hunk size */
  3349. + extern long malloc_hunk_size; /* Amount of memory malloc'ed by a to-be-dumped emacs */
  3350. + extern long malloc_bytes_used;    /* Amount of this hunk actually used */
  3351. + extern long far pre_alloc;    /* amount of memory to reserve for emacs */
  3352. + extern int puresize;        /* Size of pure hunk */
  3353. + 
  3354. + /* Various special values used to find the beginning & end of the text, data,
  3355. +    bss and malloc segments. */
  3356. + extern int first_data, last_data, first_bss, last_bss;
  3357. + extern void first_function(), last_function();
  3358. + extern char *malloc_hunk;
  3359. + extern int amiga_initialized;    /* True once Emacs has been undumped or initialised */
  3360. + struct mem_header        /* sizeof() must be multiple of 4 ! */
  3361. + {
  3362. +     struct mem_header *next, *prev;
  3363. +     long size;
  3364. +     /* Data follows */
  3365. + };
  3366. + extern struct mem_header *free_list;
  3367. + 
  3368. + 
  3369. + /* Prototypes for functions defined in amiga_term.c */
  3370. + int amiga_term_init(void);
  3371. + 
  3372. + /* Prototypes for functions defined in amiga_tty.c */
  3373. + extern struct timeinfo *far odd_timer;
  3374. + extern unsigned long odd_sig;
  3375. + int setpgrp_of_tty(int pid);
  3376. + int init_sigio(void);
  3377. + int reset_sigio(void);
  3378. + int request_sigio(void);
  3379. + int unrequest_sigio(void);
  3380. + int tabs_safe_p(void);
  3381. + int get_screen_size(int *widthp, int *heightp);
  3382. + int init_baud_rate(void);
  3383. + void check_intuition(void);
  3384. + #define AMIGASEQ 256 /* When passed to enque, insert the Amiga sequence introducer
  3385. +                 C-x C-^ */
  3386. + void enque(unsigned int c, int meta);
  3387. + int init_sys_modes(void);
  3388. + int reset_sys_modes(void);
  3389. + void amiga_consume_input(void);
  3390. + int discard_tty_input(void);
  3391. + int emacs_fflush(struct __iobuf *f);
  3392. + void emacs_putchar(int c);
  3393. + void emacs_output(char *str, int size);
  3394. + void emacs_fwrite(char *str, unsigned int nblocks, unsigned int len, FILE *f);
  3395. + void syms_of_amiga_tty(void);
  3396. + void init_amiga_tty(void);
  3397. + void cleanup_amiga_tty(void);
  3398. + void early_amiga_tty(void);
  3399. + void amiga_term_open(void);
  3400. + /* Signal mask used to detect available keyboard input.
  3401. +    Must be set by amiga_serial or amiga_screen */
  3402. + extern unsigned long inputsig;
  3403. + 
  3404. + /* Prototypes for functions defined in amiga_unix.c */
  3405. + void MemCleanup(void);
  3406. + char *malloc(int size);
  3407. + int free(void *p);
  3408. + char *calloc(long n, long size);
  3409. + char *realloc(char *p, long size);
  3410. + void emacs_malloc_init(void);
  3411. diff -rcP emacs-18.59-fsf/src/amiga_clipboard.c emacs-18.59-amiga/src/amiga_clipboard.c
  3412. *** emacs-18.59-fsf/src/amiga_clipboard.c    Thu Jan  1 00:00:00 1970
  3413. --- emacs-18.59-amiga/src/amiga_clipboard.c    Tue Mar 23 09:41:50 1993
  3414. ***************
  3415. *** 0 ****
  3416. --- 1,225 ----
  3417. + #include "config.h"
  3418. + #undef NULL
  3419. + #include "lisp.h"
  3420. + #include "termchar.h"
  3421. + #include "amiga.h"
  3422. + 
  3423. + #include <stdio.h>
  3424. + #include <internal/devices.h>
  3425. + 
  3426. + #undef LONGBITS
  3427. + 
  3428. + #include <exec/types.h>
  3429. + #include <exec/io.h>
  3430. + #include <devices/clipboard.h>
  3431. + #include <libraries/iffparse.h>
  3432. + #include <utility/hooks.h>
  3433. + 
  3434. + #include <proto/exec.h>
  3435. + #include <proto/iffparse.h>
  3436. + 
  3437. + #define  ID_FTXT    MAKE_ID('F','T','X','T')
  3438. + #define  ID_CHRS    MAKE_ID('C','H','R','S')
  3439. + 
  3440. + /*
  3441. +  * Text error messages for possible IFFERR_#? returns from various
  3442. +  * IFF routines.  To get the index into this array, take your IFFERR code,
  3443. +  * negate it, and subtract one.
  3444. +  *  idx = -error - 1;
  3445. +  */
  3446. + static char *far ifferrormsgs[] = {
  3447. +     "End of file (not an error).",
  3448. +     "End of context (not an error).",
  3449. +     "No lexical scope.",
  3450. +     "Insufficient memory.",
  3451. +     "Stream read error.",
  3452. +     "Stream write error.",
  3453. +     "Stream seek error.",
  3454. +     "File is corrupt.",
  3455. +     "IFF syntax error.",
  3456. +     "Not an IFF file.",
  3457. +     "Required call-back hook missing.",
  3458. +     "Return to client.  You should never see this."
  3459. + };
  3460. + 
  3461. + Lisp_Object amiga_new_clip;
  3462. + static struct IFFHandle *far iff;
  3463. + struct Library *IFFParseBase;
  3464. + 
  3465. + static struct IOClipReq *far ClipRequest;
  3466. + static struct Hook cliphook;
  3467. + 
  3468. + /* added __interrupt flag this disables stack checking for this function
  3469. +  * so we can compile with stack checking on.  -ch3/19/93. */
  3470. + static ULONG __saveds __asm __interrupt
  3471. + clip_change(    register __a0 struct Hook    *hook,
  3472. +         register __a2 VOID        *object,
  3473. +         register __a1 ULONG        *message )
  3474. + {
  3475. +     amiga_new_clip = 1;
  3476. +     return 0;
  3477. + }
  3478. + 
  3479. + static Lisp_Object clip_unwind(Lisp_Object dummy)
  3480. + {
  3481. +     CloseIFF (iff);
  3482. +     CloseClipboard ((struct ClipboardHandle *) iff->iff_Stream);
  3483. + 
  3484. +     return Qnil;
  3485. + }
  3486. + 
  3487. + static int clip_protect(void)
  3488. + {
  3489. +     int count = specpdl_ptr - specpdl;
  3490. + 
  3491. +     record_unwind_protect(clip_unwind, Qnil);
  3492. + 
  3493. +     return count;
  3494. + }
  3495. + 
  3496. + static long clip_check(long err)
  3497. + {
  3498. +     if(err) error ("Clipboard IO failed, error %ld: %s\n",
  3499. +            err, ifferrormsgs[-err - 1]);
  3500. +     return err;
  3501. + }
  3502. + 
  3503. + 
  3504. + static void cut(char *str, int size)
  3505. + {
  3506. +     int count;
  3507. + 
  3508. +     if (!(iff->iff_Stream = (ULONG) OpenClipboard (0)))
  3509. +     error ("Clipboard open failed.");
  3510. + 
  3511. +     count = clip_protect();
  3512. + 
  3513. +     /* Open clipbaord */
  3514. +     InitIFFasClip (iff);
  3515. +     clip_check(OpenIFF (iff, IFFF_WRITE));
  3516. + 
  3517. +     /* Write data */
  3518. +     clip_check(PushChunk(iff, ID_FTXT, ID_FORM, IFFSIZE_UNKNOWN));
  3519. +     clip_check(PushChunk(iff, 0, ID_CHRS, IFFSIZE_UNKNOWN));
  3520. +     if (WriteChunkBytes(iff, str, size) != size) clip_check(IFFERR_WRITE);
  3521. +     clip_check(PopChunk(iff));
  3522. +     clip_check(PopChunk(iff));
  3523. + 
  3524. +     /* & close */
  3525. +     unbind_to (count);
  3526. + }
  3527. + 
  3528. + DEFUN ("amiga-cut", Famiga_cut, Samiga_cut,
  3529. +   1, 1, 0,
  3530. +   "Copy string into Amiga clipboard.")
  3531. +   (arg)
  3532. +      Lisp_Object arg;
  3533. + {
  3534. +     struct Lisp_String *p;
  3535. + 
  3536. +     CHECK_STRING (arg, 0);
  3537. + 
  3538. +     p = XSTRING (arg);
  3539. +     cut(p->data, p->size);
  3540. + 
  3541. +     return Qnil;
  3542. + }
  3543. + 
  3544. + DEFUN ("amiga-paste", Famiga_paste, Samiga_paste,
  3545. +   0, 0, 0,
  3546. +   "Returns text currently in the Amiga clipboard, or NIL if there is none.")
  3547. +   ()
  3548. + {
  3549. +     long err = 0;
  3550. +     Lisp_Object result = Qnil;
  3551. +     struct ContextNode  *cn;
  3552. +     int count;
  3553. + 
  3554. +     if (!(iff->iff_Stream = (ULONG) OpenClipboard (0)))
  3555. +     error ("Clipboard open failed.");
  3556. + 
  3557. +     count = clip_protect();
  3558. + 
  3559. +     /* Open clipbaord */
  3560. +     InitIFFasClip (iff);
  3561. +     clip_check(OpenIFF (iff, IFFF_READ));
  3562. +     clip_check(StopChunk(iff, ID_FTXT, ID_CHRS));
  3563. + 
  3564. +     /* Find the first FTXT CHRS chunks */
  3565. +     while (result == Qnil)
  3566. +     {
  3567. +     long err = ParseIFF(iff, IFFPARSE_SCAN);
  3568. + 
  3569. +     if (err == IFFERR_EOC) continue; /* enter next context */
  3570. +     else if (err == IFFERR_EOF) break;
  3571. +     else clip_check(err);
  3572. + 
  3573. +     /* We only asked to stop at FTXT CHRS chunks
  3574. +      * If no error we've hit a stop chunk
  3575. +      * Read the CHRS chunk data
  3576. +      */
  3577. +     cn = CurrentChunk(iff);
  3578. + 
  3579. +     if ((cn) && (cn->cn_Type == ID_FTXT) && (cn->cn_ID == ID_CHRS))
  3580. +     {
  3581. +         int size = cn->cn_Size, rlen;
  3582. + 
  3583. +         result = make_string("", size);
  3584. + 
  3585. +         if ((rlen = ReadChunkBytes(iff, XSTRING (result)->data, size)) != size)
  3586. +         if (rlen < 0) clip_check(rlen);
  3587. +         else clip_check(IFFERR_EOC);
  3588. +     }
  3589. +     }
  3590. +     unbind_to (count);
  3591. + 
  3592. +     return result;
  3593. + }
  3594. + 
  3595. + void syms_of_amiga_clipboard(void)
  3596. + {
  3597. +     DEFVAR_BOOL ("amiga-new-clip", &amiga_new_clip,
  3598. +          "Set to t every time a new clip is put in the Amiga clipboard");
  3599. +     amiga_new_clip = 0;
  3600. + 
  3601. +     defsubr (&Samiga_cut);
  3602. +     defsubr (&Samiga_paste);
  3603. + }
  3604. + 
  3605. + void early_clipboard(void)
  3606. + {
  3607. +     IFFParseBase = 0;
  3608. + }
  3609. + 
  3610. + void init_clipboard(void)
  3611. + {
  3612. +     /* Initialise IFF for clipboard */
  3613. +     if (!(IFFParseBase = OpenLibrary("iffparse.library", 0)))
  3614. +       _fail("iffparse.library is required");
  3615. +     if (!(iff = AllocIFF())) no_memory();
  3616. + 
  3617. +     ClipRequest = (struct IOClipReq *)
  3618. +     _device_open("clipboard.device", 0L, 0L, 0L, 0, sizeof(struct IOClipReq));
  3619. +     if (!ClipRequest) _fail("clipboard.device missing !?");
  3620. + 
  3621. +     cliphook.h_Entry = (ULONG (*)())clip_change;
  3622. +     ClipRequest->io_Command = CBD_CHANGEHOOK;
  3623. +     ClipRequest->io_Length = 1; /* install */
  3624. +     ClipRequest->io_Data = (APTR)&cliphook;
  3625. +     DoIO((struct IORequest *)ClipRequest);
  3626. + }
  3627. + 
  3628. + void cleanup_clipboard(void)
  3629. + {
  3630. +     if (ClipRequest)
  3631. +     {
  3632. +     cliphook.h_Entry = (ULONG (*)())clip_change;
  3633. +     ClipRequest->io_Command = CBD_CHANGEHOOK;
  3634. +     ClipRequest->io_Length = 0; /* remove */
  3635. +     ClipRequest->io_Data = (APTR)&cliphook;
  3636. +     DoIO((struct IORequest *)ClipRequest);
  3637. +     }
  3638. +     if (iff) FreeIFF(iff);
  3639. +     if (IFFParseBase) CloseLibrary(IFFParseBase);
  3640. +     _device_close((struct IORequest *)ClipRequest);
  3641. + }
  3642. diff -rcP emacs-18.59-fsf/src/amiga_data.c emacs-18.59-amiga/src/amiga_data.c
  3643. *** emacs-18.59-fsf/src/amiga_data.c    Thu Jan  1 00:00:00 1970
  3644. --- emacs-18.59-amiga/src/amiga_data.c    Sun Nov 22 10:12:54 1992
  3645. ***************
  3646. *** 0 ****
  3647. --- 1 ----
  3648. + /* Declarations of data that should not be squashed by the dump routine */
  3649. diff -rcP emacs-18.59-fsf/src/amiga_dump.c emacs-18.59-amiga/src/amiga_dump.c
  3650. *** emacs-18.59-fsf/src/amiga_dump.c    Thu Jan  1 00:00:00 1970
  3651. --- emacs-18.59-amiga/src/amiga_dump.c    Sun Nov 22 10:13:00 1992
  3652. ***************
  3653. *** 0 ****
  3654. --- 1,721 ----
  3655. + #include <exec/types.h>
  3656. + #include <fcntl.h>
  3657. + #include <stdio.h>
  3658. + #include <assert.h>
  3659. + #include <proto/dos.h>
  3660. + #include <internal/messages.h>
  3661. + #include "config.h"
  3662. + #include "lisp.h"
  3663. + #include "buffer.h"
  3664. + #include "regex.h"
  3665. + #include "amiga.h"
  3666. + #include "dispextern.h"
  3667. + #include "termchar.h"
  3668. + 
  3669. + #define RANGE(ptr, s, e) ((char *)ptr >= (char *)s && (char *)ptr < (char *)e)
  3670. + #define HUNK_POS (VALBITS - 3)
  3671. + #define HUNK_MASK (7 << HUNK_POS)
  3672. + #define HUNK_CODE (0 << HUNK_POS)
  3673. + #define HUNK_DATA (1 << HUNK_POS)
  3674. + #define HUNK_BSS (2 << HUNK_POS)
  3675. + #define HUNK_MALLOC (3 << HUNK_POS)
  3676. + #define HUNK_PURE (4 << HUNK_POS)
  3677. + #define ARRAY_MARK_FLAG ((MARKBIT >> 1) & ~MARKBIT)
  3678. + 
  3679. + void *far first_fn = first_function, *far last_fn = last_function;
  3680. + 
  3681. + extern int *pure, puresize;
  3682. + extern struct gcpro *gcprolist;
  3683. + 
  3684. + extern Lisp_Object *staticvec[];
  3685. + extern int staticidx;
  3686. + extern struct cons_block *cons_block;
  3687. + extern struct Lisp_Cons *cons_free_list;
  3688. + extern struct Lisp_Vector *all_vectors;
  3689. + extern struct symbol_block *symbol_block;
  3690. + extern struct Lisp_Symbol *symbol_free_list;
  3691. + extern struct marker_block *marker_block;
  3692. + extern struct Lisp_Marker *marker_free_list;
  3693. + 
  3694. + struct string_block_head
  3695. +   {
  3696. +     struct string_block_head *next, *prev;
  3697. +     int pos;
  3698. +   };
  3699. + extern struct string_block_head *current_string_block;
  3700. + extern struct string_block_head *first_string_block;
  3701. + extern struct string_block_head *large_string_blocks;
  3702. + extern char *kbd_macro_buffer, *read_buffer, *chars_wasted, *copybuf;
  3703. + extern struct minibuf_save_data *minibuf_save_vector;
  3704. + extern struct re_pattern_buffer searchbuf;
  3705. + extern int *ILcost, *DLcost, *ILncost, *DLncost;
  3706. + extern Lisp_Object MouseMap, global_map, Vglobal_map, Vesc_map, Vctl_x_map;
  3707. + extern Lisp_Object Qvariable_documentation, selected_window;
  3708. + 
  3709. + extern char *callint_argfuns[];
  3710. + 
  3711. + static void *dump_malloc(int size)
  3712. + {
  3713. +   void *new = malloc(size);
  3714. + 
  3715. +   if (!new) no_memory();
  3716. + 
  3717. +   return new;
  3718. + }
  3719. + 
  3720. + static void bailout(char *fn)
  3721. + {
  3722. +   if (fn) _message("%s isn't a dump file for this version of Emacs, aborting", fn);
  3723. +   else _message("Dump file isn't for this version of Emacs, aborting");
  3724. + 
  3725. +   /* We are in deep trouble, as all our variables are potentially corrupt */
  3726. +   /* Therefore, no cleanup is possible */
  3727. +   /* Remove cleanup routines */
  3728. +   onexit(0);
  3729. +   /* However, the library & the memory allocation should be ok, so
  3730. +      we can exit reasonably */
  3731. +   _fail("Some system resources may have been lost");
  3732. + }
  3733. + 
  3734. + static void *hunk_pointer(void *ptr)
  3735. + {
  3736. +     if (!ptr) return ptr;
  3737. + 
  3738. +     if (RANGE(ptr, first_fn, last_fn))
  3739. +     return (void *)(HUNK_CODE | (char *)ptr - (char *)first_fn);
  3740. +     else if (RANGE(ptr, &first_data, &last_data))
  3741. +     return (void *)(HUNK_DATA | (char *)ptr - (char *)&first_data);
  3742. +     else if (RANGE(ptr, &first_bss, &last_bss))
  3743. +     return (void *)(HUNK_BSS | (char *)ptr - (char *)&first_bss);
  3744. +     else if (RANGE(ptr, malloc_hunk, malloc_hunk + malloc_hunk_size))
  3745. +     return (void *)(HUNK_MALLOC | (char *)ptr - malloc_hunk);
  3746. +     else if (RANGE(ptr, pure, (char *)pure + puresize))
  3747. +     return (void *)(HUNK_PURE | (char *)ptr - (char *)pure);
  3748. +     else bailout(0);
  3749. + }
  3750. + 
  3751. + static Lisp_Object hunk_lispptr(Lisp_Object *objptr, Lisp_Object val)
  3752. + {
  3753. +     int type = val & ~VALMASK;
  3754. +     void *ptr = (void *)XPNTR(val);
  3755. + 
  3756. +     if (RANGE(ptr, first_fn, last_fn))
  3757. +     return type | HUNK_CODE | (char *)ptr - (char *)first_fn;
  3758. +     else if (RANGE(ptr, &first_data, &last_data))
  3759. +     return type | HUNK_DATA | (char *)ptr - (char *)&first_data;
  3760. +     else if (RANGE(ptr, &first_bss, &last_bss))
  3761. +     return type | HUNK_BSS | (char *)ptr - (char *)&first_bss;
  3762. +     else if (RANGE(ptr, pure, (char *)pure + puresize))
  3763. +     return type | HUNK_PURE | (char *)ptr - (char *)pure;
  3764. +     else if (RANGE(ptr, malloc_hunk, malloc_hunk + malloc_hunk_size))
  3765. +     return type | HUNK_MALLOC | (char *)ptr - malloc_hunk;
  3766. +     else bailout(0);
  3767. + }
  3768. + 
  3769. + static void patch_pointers ();
  3770. + 
  3771. + static void patch_buffer (buf)
  3772. +      Lisp_Object buf;
  3773. + {
  3774. +   Lisp_Object tem;
  3775. +   register struct buffer *buffer = XBUFFER (buf);
  3776. +   register Lisp_Object *ptr;
  3777. + 
  3778. +   buffer->text.beg = hunk_pointer (buffer->text.beg);
  3779. +   patch_pointers (&buffer->markers);
  3780. + 
  3781. +   /* This is the buffer's markbit */
  3782. +   patch_pointers (&buffer->name);
  3783. +   XMARK (buffer->name);
  3784. + 
  3785. +   for (ptr = &buffer->name + 1;
  3786. +        (char *)ptr < (char *)buffer + sizeof (struct buffer);
  3787. +        ptr++)
  3788. +     patch_pointers (ptr);
  3789. + }
  3790. + 
  3791. + static void patch_pointers (objptr)
  3792. +      Lisp_Object *objptr;
  3793. + {
  3794. +   register Lisp_Object obj;
  3795. + 
  3796. +   obj = *objptr;
  3797. +   XUNMARK (obj);
  3798. + 
  3799. + 
  3800. +  loop:
  3801. + 
  3802. +   switch (XGCTYPE (obj))
  3803. +     {
  3804. +     case Lisp_String:
  3805. +       *objptr = hunk_lispptr(objptr, *objptr);
  3806. +       break;
  3807. + 
  3808. +     case Lisp_Vector:
  3809. +     case Lisp_Window:
  3810. +     case Lisp_Process:
  3811. +     case Lisp_Window_Configuration:
  3812. +       *objptr = hunk_lispptr(objptr, *objptr);
  3813. +       {
  3814. +     register struct Lisp_Vector *ptr = XVECTOR (obj);
  3815. +     register int size = ptr->size;
  3816. +     register int i;
  3817. + 
  3818. +     if (size & ARRAY_MARK_FLAG) break;   /* Already marked */
  3819. +     ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
  3820. +     for (i = 0; i < size; i++)     /* and then mark its elements */
  3821. +       patch_pointers (&ptr->contents[i]);
  3822. +       }
  3823. +       break;
  3824. + 
  3825. +     case Lisp_Symbol:
  3826. +       *objptr = hunk_lispptr(objptr, *objptr);
  3827. +       {
  3828. +     register struct Lisp_Symbol *ptr = XSYMBOL (obj);
  3829. +     struct Lisp_Symbol *ptrx;
  3830. + 
  3831. +     if (XMARKBIT (ptr->plist)) break;
  3832. +     XMARK (ptr->plist);
  3833. +     XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
  3834. +     patch_pointers (&ptr->name);
  3835. +     patch_pointers ((Lisp_Object *) &ptr->value);
  3836. +     patch_pointers (&ptr->function);
  3837. +     patch_pointers (&ptr->plist);
  3838. +     objptr = (Lisp_Object *)&ptr->next;
  3839. +     ptr = ptr->next;
  3840. +     if (ptr)
  3841. +       {
  3842. +         ptrx = ptr;        /* Use pf ptrx avoids compiler bug on Sun */
  3843. +         XSETSYMBOL (obj, ptrx);
  3844. +         goto loop;
  3845. +       }
  3846. +       }
  3847. +       break;
  3848. + 
  3849. +     case Lisp_Marker: {
  3850. +     struct Lisp_Marker *ptr = XMARKER (obj);
  3851. + 
  3852. +     *objptr = hunk_lispptr(objptr, *objptr);
  3853. +     if (XMARKBIT (ptr->chain)) break;
  3854. +     XMARK (ptr->chain);
  3855. +     ptr->buffer = hunk_pointer (ptr->buffer);
  3856. +     patch_pointers (&ptr->chain);
  3857. +     break;
  3858. +     }
  3859. + 
  3860. +     case Lisp_Cons:
  3861. +     case Lisp_Buffer_Local_Value:
  3862. +     case Lisp_Some_Buffer_Local_Value:
  3863. +       *objptr = hunk_lispptr(objptr, *objptr);
  3864. +       {
  3865. +     register struct Lisp_Cons *ptr = XCONS (obj);
  3866. +     if (XMARKBIT (ptr->car)) break;
  3867. +     XMARK (ptr->car);
  3868. +     patch_pointers (&ptr->car);
  3869. +     objptr = &ptr->cdr;
  3870. +     obj = ptr->cdr;
  3871. +     goto loop;
  3872. +       }
  3873. + 
  3874. +     case Lisp_Buffer:
  3875. +       *objptr = hunk_lispptr(objptr, *objptr);
  3876. +       if (!XMARKBIT (XBUFFER (obj)->name))
  3877. +     patch_buffer (obj);
  3878. +       break;
  3879. + 
  3880. +     case Lisp_Subr: {
  3881. +     struct Lisp_Subr *subr = XSUBR(obj);
  3882. + 
  3883. +     *objptr = hunk_lispptr(objptr, *objptr);
  3884. +     if (subr->min_args & 0x8000) break;
  3885. +     subr->min_args |= 0x8000;
  3886. +     subr->function = hunk_pointer(subr->function);
  3887. +     subr->symbol_name = hunk_pointer(subr->symbol_name);
  3888. +     subr->prompt = hunk_pointer(subr->prompt);
  3889. +     if ((long)subr->doc >= 0) /* Make sure that not a doc offset */
  3890. +         subr->doc = hunk_pointer(subr->doc);
  3891. +     break;
  3892. +     }
  3893. + 
  3894. +     case Lisp_Int:
  3895. +     case Lisp_Void:
  3896. +     case Lisp_Buffer_Objfwd: break;
  3897. + 
  3898. +     case Lisp_Intfwd:
  3899. +     case Lisp_Boolfwd:
  3900. +     case Lisp_Objfwd:
  3901. +     case Lisp_Internal_Stream:
  3902. +       *objptr = hunk_lispptr(objptr, *objptr);
  3903. +     /* Don't bother with Lisp_Buffer_Objfwd,
  3904. +        since all markable slots in current buffer marked anyway.  */
  3905. +     /* Don't need to do Lisp_Objfwd, since the places they point
  3906. +        are protected with staticpro.  */
  3907. +       break;
  3908. + 
  3909. +     default:
  3910. +       abort ();
  3911. +     }
  3912. + }
  3913. + 
  3914. + static void patch_chain(void **ptr, int offset)
  3915. + {
  3916. +     while (*ptr)
  3917. +     {
  3918. +     void **next = (void **)((char *)*ptr + offset);
  3919. + 
  3920. +     *ptr = hunk_pointer(*ptr);
  3921. +     ptr = next;
  3922. +     }
  3923. + }
  3924. + 
  3925. + static void patch(void)
  3926. + {
  3927. +     int i;
  3928. +     struct string_block_head *sptr;
  3929. +     struct buffer *bptr;
  3930. +     struct mem_header *mem;
  3931. + 
  3932. +     for (i = 0; i < staticidx; i++)
  3933. +     {
  3934. +     if (!XMARKBIT(*staticvec[i]))
  3935. +     {
  3936. +         patch_pointers(staticvec[i]);
  3937. +         XMARK(*staticvec[i]);
  3938. +     }
  3939. +     staticvec[i] = hunk_pointer(staticvec[i]);
  3940. +     }
  3941. + 
  3942. +     /* Patch all the pointers normally used before a dump ! */
  3943. +     patch_chain((void **)&cons_block, 0);
  3944. +     patch_chain((void **)&cons_free_list, 0);
  3945. + 
  3946. +     patch_chain((void **)&all_vectors, 4);
  3947. + 
  3948. +     patch_chain((void **)&symbol_block, 0);
  3949. +     patch_chain((void **)&symbol_free_list, 4);
  3950. + 
  3951. +     patch_chain((void **)&marker_block, 0);
  3952. +     patch_chain((void **)&marker_free_list, 4);
  3953. + 
  3954. +     /* Strings are lots of fun */
  3955. +     patch_chain((void **)&large_string_blocks, 0);
  3956. +     sptr = first_string_block;
  3957. +     while (sptr)
  3958. +     {
  3959. +     struct string_block *next = sptr->next;
  3960. + 
  3961. +     if (sptr->next) sptr->next = hunk_pointer(sptr->next);
  3962. +     if (sptr->prev) sptr->prev = hunk_pointer(sptr->prev);
  3963. +     sptr = next;
  3964. +     }
  3965. +     first_string_block = hunk_pointer(first_string_block);
  3966. +     current_string_block = hunk_pointer(current_string_block);
  3967. + 
  3968. +     /* More fun with buffers */
  3969. +     bptr = all_buffers;
  3970. +     if (bptr)
  3971. +     {
  3972. +     while (bptr->next)
  3973. +     {
  3974. +         struct buffer *next = bptr->next;
  3975. + 
  3976. +         bptr->next = hunk_pointer(bptr->next);
  3977. +         bptr = next;
  3978. +     }
  3979. +     }
  3980. +     all_buffers = hunk_pointer(all_buffers);
  3981. +     current_buffer = hunk_pointer(current_buffer);
  3982. + 
  3983. +     kbd_macro_buffer = hunk_pointer(kbd_macro_buffer);
  3984. +     minibuf_save_vector = hunk_pointer(minibuf_save_vector);
  3985. +     searchbuf.buffer = hunk_pointer(searchbuf.buffer);
  3986. +     searchbuf.fastmap = hunk_pointer(searchbuf.fastmap);
  3987. +     specpdl = hunk_pointer(specpdl);
  3988. +     read_buffer = hunk_pointer(read_buffer);
  3989. + 
  3990. +     MouseMap = hunk_lispptr(&MouseMap, MouseMap);
  3991. +     global_map = hunk_lispptr(&global_map, global_map);
  3992. +     Vglobal_map = hunk_lispptr(&Vglobal_map, Vglobal_map);
  3993. +     Vesc_map = hunk_lispptr(&Vesc_map, Vesc_map);
  3994. +     Vctl_x_map = hunk_lispptr(&Vctl_x_map, Vctl_x_map);
  3995. + 
  3996. +     Qvariable_documentation = hunk_lispptr(&Qvariable_documentation, Qvariable_documentation);
  3997. +     selected_window = hunk_lispptr(&selected_window, selected_window);
  3998. + 
  3999. +     mem = free_list;
  4000. +     free_list = hunk_pointer(free_list);
  4001. +     while (mem)
  4002. +     {
  4003. +     struct mem_header *next = mem->next;
  4004. + 
  4005. +     mem->prev = hunk_pointer(mem->prev);
  4006. +     mem->next = hunk_pointer(mem->next);
  4007. +     mem = next;
  4008. +     }
  4009. + 
  4010. +     for (i = 0; i <= 4; i++)
  4011. +       callint_argfuns[i] = hunk_pointer(callint_argfuns[i]);
  4012. + }
  4013. + 
  4014. + static dump(char *fn)
  4015. + {
  4016. +     BPTR fd;
  4017. +     long size;
  4018. + 
  4019. +     fd = Open(fn, MODE_NEWFILE);
  4020. +     if (!fd)
  4021. +       {
  4022. +         static void unpatch();
  4023. + 
  4024. +         unpatch();
  4025. +         _fail("emacs hasn't been dumped (%s missing)", fn);
  4026. +       }
  4027. + 
  4028. +     Write(fd, (char *)&puresize, sizeof puresize);
  4029. +     Write(fd, (char *)&malloc_hunk_size, sizeof malloc_hunk_size);
  4030. +     Write(fd, (char *)&first_data, (char *)&last_data - (char *)&first_data);
  4031. +     Write(fd, (char *)&first_bss, (char *)&last_bss - (char *)&first_bss);
  4032. +     Write(fd, (char *)pure, puresize);
  4033. +     Write(fd, (char *)malloc_hunk, malloc_hunk_size);
  4034. +     Write(fd, (char *)&staticidx, sizeof staticidx);
  4035. +     Write(fd, (char *)staticvec, staticidx * sizeof(Lisp_Object *));
  4036. +     size = (char *)last_fn - (char *)first_fn;
  4037. +     Write(fd, (char *)&size, sizeof size);
  4038. + 
  4039. +     Close(fd);
  4040. + }
  4041. + 
  4042. + static void *make_pointer(void *ptr)
  4043. + {
  4044. +     int hunk = (long)ptr & HUNK_MASK;
  4045. +     int offset = (long)ptr & (VALMASK & ~HUNK_MASK);
  4046. + 
  4047. +     if (!ptr) return 0;
  4048. + 
  4049. +     if (hunk == HUNK_CODE) return (char *)first_fn + offset;
  4050. +     if (hunk == HUNK_DATA) return (char *)&first_data + offset;
  4051. +     if (hunk == HUNK_BSS) return (char *)&first_bss + offset;
  4052. +     if (hunk == HUNK_PURE) return (char *)pure + offset;
  4053. +     if (hunk == HUNK_MALLOC) return malloc_hunk + offset;
  4054. +     assert(0);
  4055. + }
  4056. + 
  4057. + static Lisp_Object make_lispptr(Lisp_Object *objptr, Lisp_Object obj)
  4058. + {
  4059. +     long val = XUINT(obj);
  4060. +     int hunk = val & HUNK_MASK;
  4061. +     int offset = val & ~HUNK_MASK;
  4062. +     char *ptr;
  4063. + 
  4064. +     if (hunk == HUNK_CODE) ptr = (char *)first_fn + offset;
  4065. +     else if (hunk == HUNK_DATA) ptr = (char *)&first_data + offset;
  4066. +     else if (hunk == HUNK_BSS) ptr = (char *)&first_bss + offset;
  4067. +     else if (hunk == HUNK_PURE) ptr = (char *)pure + offset;
  4068. +     else if (hunk == HUNK_MALLOC) ptr = malloc_hunk + offset;
  4069. +     else assert(0);
  4070. + 
  4071. +     XSETPNTR(obj, (long)ptr);
  4072. +     return obj;
  4073. + }
  4074. + 
  4075. + static void unpatch_pointers ();
  4076. + 
  4077. + static void unpatch_buffer (buf)
  4078. +      Lisp_Object buf;
  4079. + {
  4080. +   Lisp_Object tem;
  4081. +   register struct buffer *buffer = XBUFFER (buf);
  4082. +   register Lisp_Object *ptr;
  4083. + 
  4084. +   buffer->text.beg = make_pointer (buffer->text.beg);
  4085. +   unpatch_pointers (&buffer->markers);
  4086. + 
  4087. +   /* This is the buffer's markbit */
  4088. +   XUNMARK (buffer->name);
  4089. +   unpatch_pointers (&buffer->name);
  4090. + 
  4091. +   for (ptr = &buffer->name + 1;
  4092. +        (char *)ptr < (char *)buffer + sizeof (struct buffer);
  4093. +        ptr++)
  4094. +     unpatch_pointers (ptr);
  4095. + }
  4096. + 
  4097. + static void unpatch_pointers (objptr)
  4098. +      Lisp_Object *objptr;
  4099. + {
  4100. +   register Lisp_Object obj;
  4101. + 
  4102. +   obj = *objptr;
  4103. +   XUNMARK (obj);
  4104. + 
  4105. + 
  4106. +  loop:
  4107. + 
  4108. +   switch (XGCTYPE (obj))
  4109. +     {
  4110. +     case Lisp_String:
  4111. +       *objptr = make_lispptr(objptr, *objptr);
  4112. +       break;
  4113. + 
  4114. +     case Lisp_Vector:
  4115. +     case Lisp_Window:
  4116. +     case Lisp_Process:
  4117. +     case Lisp_Window_Configuration:
  4118. +       obj = *objptr = make_lispptr(objptr, *objptr);
  4119. +       {
  4120. +     register struct Lisp_Vector *ptr = XVECTOR (obj);
  4121. +     register int size;
  4122. +     register int i;
  4123. + 
  4124. +     if (!(ptr->size & ARRAY_MARK_FLAG)) break;   /* Already unmarked */
  4125. +     size = ptr->size &= ~ARRAY_MARK_FLAG; /* Else unmark it */
  4126. +     for (i = 0; i < size; i++)     /* and then unmark its elements */
  4127. +       unpatch_pointers (&ptr->contents[i]);
  4128. +       }
  4129. +       break;
  4130. + 
  4131. +     case Lisp_Symbol:
  4132. +       obj = *objptr = make_lispptr(objptr, *objptr);
  4133. +       {
  4134. +     register struct Lisp_Symbol *ptr = XSYMBOL (obj);
  4135. +     struct Lisp_Symbol *ptrx;
  4136. + 
  4137. +     if (!XMARKBIT (ptr->plist)) break;
  4138. +     XUNMARK (ptr->plist);
  4139. +     unpatch_pointers (&ptr->name);
  4140. +     ptr->name = XSTRING (*(Lisp_Object *)&ptr->name);
  4141. +     unpatch_pointers ((Lisp_Object *) &ptr->value);
  4142. +     unpatch_pointers (&ptr->function);
  4143. +     unpatch_pointers (&ptr->plist);
  4144. +     objptr = (Lisp_Object *)&ptr->next;
  4145. +     ptr = ptr->next;
  4146. +     if (ptr)
  4147. +       {
  4148. +         ptrx = ptr;        /* Use pf ptrx avoids compiler bug on Sun */
  4149. +         XSET (obj, Lisp_Symbol, ptrx);
  4150. +         goto loop;
  4151. +       }
  4152. +       }
  4153. +       break;
  4154. + 
  4155. +     case Lisp_Marker: {
  4156. +     struct Lisp_Marker *ptr;
  4157. + 
  4158. +     obj = *objptr = make_lispptr(objptr, *objptr);
  4159. +     ptr = XMARKER (obj);
  4160. +     if (!XMARKBIT (ptr->chain)) break;
  4161. +     XUNMARK (ptr->chain);
  4162. +     ptr->buffer = make_pointer (ptr->buffer);
  4163. +     unpatch_pointers (&ptr->chain);
  4164. +     break;
  4165. +     }
  4166. + 
  4167. +     case Lisp_Cons:
  4168. +     case Lisp_Buffer_Local_Value:
  4169. +     case Lisp_Some_Buffer_Local_Value:
  4170. +       obj = *objptr = make_lispptr(objptr, *objptr);
  4171. +       {
  4172. +     register struct Lisp_Cons *ptr = XCONS (obj);
  4173. +     if (!XMARKBIT (ptr->car)) break;
  4174. +     XUNMARK (ptr->car);
  4175. +     unpatch_pointers (&ptr->car);
  4176. +     objptr = &ptr->cdr;
  4177. +     obj = ptr->cdr;
  4178. +     goto loop;
  4179. +       }
  4180. + 
  4181. +     case Lisp_Buffer:
  4182. +       obj = *objptr = make_lispptr(objptr, *objptr);
  4183. +       if (XMARKBIT (XBUFFER (obj)->name))
  4184. +     unpatch_buffer (obj);
  4185. +       break;
  4186. + 
  4187. +     case Lisp_Subr: {
  4188. +     struct Lisp_Subr *subr;
  4189. + 
  4190. +     obj = *objptr = make_lispptr(objptr, *objptr);
  4191. +     subr = XSUBR(obj);
  4192. +     if (!(subr->min_args & 0x8000)) break;
  4193. +     subr->min_args &= ~0x8000;
  4194. +     subr->function = make_pointer(subr->function);
  4195. +     subr->symbol_name = make_pointer(subr->symbol_name);
  4196. +     subr->prompt = make_pointer(subr->prompt);
  4197. +     if ((long)subr->doc >= 0) /* Make sure that not a doc offset */
  4198. +         subr->doc = make_pointer(subr->doc);
  4199. +     break;
  4200. +     }
  4201. + 
  4202. +     case Lisp_Int:
  4203. +     case Lisp_Void:
  4204. +     case Lisp_Buffer_Objfwd: break;
  4205. + 
  4206. +     case Lisp_Intfwd:
  4207. +     case Lisp_Boolfwd:
  4208. +     case Lisp_Objfwd:
  4209. +     case Lisp_Internal_Stream:
  4210. +       *objptr = make_lispptr(objptr, *objptr);
  4211. +     /* Don't bother with Lisp_Buffer_Objfwd,
  4212. +        since all markable slots in current buffer marked anyway.  */
  4213. +     /* Don't need to do Lisp_Objfwd, since the places they point
  4214. +        are protected with staticpro.  */
  4215. +       break;
  4216. + 
  4217. +     default:
  4218. +       abort ();
  4219. +     }
  4220. + }
  4221. + 
  4222. + static void unpatch_chain(void **ptr, int offset)
  4223. + {
  4224. +     while (*ptr)
  4225. +     {
  4226. +     *ptr = make_pointer(*ptr);
  4227. +     ptr = (void **)((char *)*ptr + offset);
  4228. +     }
  4229. + }
  4230. + 
  4231. + /* Reconstructs the addresses that were patched */
  4232. + static void unpatch(void)
  4233. + {
  4234. +     int fd, i;
  4235. +     struct string_block_head *sptr;
  4236. +     struct buffer *bptr;
  4237. +     struct mem_header *mem;
  4238. + 
  4239. +     for (i = 0; i < staticidx; i++)
  4240. +     {
  4241. +     staticvec[i] = make_pointer(staticvec[i]);
  4242. +     if (XMARKBIT(*staticvec[i]))
  4243. +     {
  4244. +         XUNMARK(*staticvec[i]);
  4245. +         unpatch_pointers(staticvec[i]);
  4246. +     }
  4247. +     }
  4248. + 
  4249. +     /* Unpatch all the pointers normally used before a dump ! */
  4250. +     unpatch_chain((void **)&cons_block, 0);
  4251. +     unpatch_chain((void **)&cons_free_list, 0);
  4252. + 
  4253. +     unpatch_chain((void **)&all_vectors, 4);
  4254. + 
  4255. +     unpatch_chain((void **)&symbol_block, 0);
  4256. +     unpatch_chain((void **)&symbol_free_list, 4);
  4257. + 
  4258. +     unpatch_chain((void **)&marker_block, 0);
  4259. +     unpatch_chain((void **)&marker_free_list, 4);
  4260. + 
  4261. +     /* Strings are lots of fun */
  4262. +     unpatch_chain((void **)&large_string_blocks, 0);
  4263. +     sptr = first_string_block = make_pointer(first_string_block);
  4264. +     current_string_block = make_pointer(current_string_block);
  4265. +     while (sptr)
  4266. +     {
  4267. +     if (sptr->next) sptr->next = make_pointer(sptr->next);
  4268. +     if (sptr->prev) sptr->prev = make_pointer(sptr->prev);
  4269. +     sptr = sptr->next;
  4270. +     }
  4271. + 
  4272. +     /* More fun with buffers */
  4273. +     bptr = all_buffers = make_pointer(all_buffers);
  4274. +     if (bptr)
  4275. +     {
  4276. +     while (bptr->next)
  4277. +     {
  4278. +         bptr->next = make_pointer(bptr->next);
  4279. +         bptr = bptr->next;
  4280. +     }
  4281. +     }
  4282. +     current_buffer = make_pointer(current_buffer);
  4283. + 
  4284. +     kbd_macro_buffer = make_pointer(kbd_macro_buffer);
  4285. +     minibuf_save_vector = make_pointer(minibuf_save_vector);
  4286. +     searchbuf.buffer = make_pointer(searchbuf.buffer);
  4287. +     searchbuf.fastmap = make_pointer(searchbuf.fastmap);
  4288. +     specpdl = make_pointer(specpdl);
  4289. +     read_buffer = make_pointer(read_buffer);
  4290. + 
  4291. +     MouseMap = make_lispptr(&MouseMap, MouseMap);
  4292. +     global_map = make_lispptr(&global_map, global_map);
  4293. +     Vglobal_map = make_lispptr(&Vglobal_map, Vglobal_map);
  4294. +     Vesc_map = make_lispptr(&Vesc_map, Vesc_map);
  4295. +     Vctl_x_map = make_lispptr(&Vctl_x_map, Vctl_x_map);
  4296. + 
  4297. +     Qvariable_documentation = make_lispptr(&Qvariable_documentation, Qvariable_documentation);
  4298. +     selected_window = make_lispptr(&selected_window, selected_window);
  4299. + 
  4300. +     free_list = make_pointer(free_list);
  4301. +     mem = free_list;
  4302. +     while (mem)
  4303. +     {
  4304. +     mem->prev = make_pointer(mem->prev);
  4305. +     mem->next = make_pointer(mem->next);
  4306. +     mem = mem->next;
  4307. +     }
  4308. + 
  4309. +     for (i = 0; i <= 4; i++)
  4310. +       callint_argfuns[i] = make_pointer(callint_argfuns[i]);
  4311. + }
  4312. + 
  4313. + static undump(char *fn)
  4314. + {
  4315. +   BPTR fd;
  4316. +   long code_size;
  4317. +   char *_malloc_hunk;
  4318. +   int *_pure;
  4319. +   /*extern struct Library *FifoBase;
  4320. +   struct Library *_FifoBase = FifoBase;*/
  4321. + 
  4322. +   fd = Open(fn, MODE_OLDFILE);
  4323. +   if (!fd) return 0;
  4324. + 
  4325. +   Read(fd, (char *)&puresize, sizeof puresize);
  4326. +   Read(fd, (char *)&malloc_hunk_size, sizeof malloc_hunk_size);
  4327. +   _pure = dump_malloc(puresize);
  4328. +   _malloc_hunk = dump_malloc(malloc_hunk_size + pre_alloc);
  4329. +   Read(fd, (char *)&first_data, (char *)&last_data - (char *)&first_data);
  4330. +   Read(fd, (char *)&first_bss, (char *)&last_bss - (char *)&first_bss);
  4331. +   Read(fd, (char *)_pure, puresize);
  4332. +   Read(fd, (char *)_malloc_hunk, malloc_hunk_size);
  4333. +   Read(fd, (char *)&staticidx, sizeof staticidx);
  4334. +   Read(fd, (char *)staticvec, staticidx * sizeof(Lisp_Object *));
  4335. +   /*FifoBase = _FifoBase;*/
  4336. +   if (Read(fd, (char *)&code_size, sizeof code_size) != sizeof code_size ||
  4337. +       code_size != (char *)last_fn - (char *)first_fn)
  4338. +     bailout(fn);
  4339. + 
  4340. +   Close(fd);
  4341. +   malloc_hunk = _malloc_hunk;
  4342. +   pure = _pure;
  4343. +   return 1;
  4344. + }
  4345. + 
  4346. + void map_out_data(char *fn)
  4347. + {
  4348. +     if (amiga_initialized) error("You can only dump once !");
  4349. +     Fgarbage_collect();
  4350. + 
  4351. +     patch();
  4352. +     dump(fn);
  4353. +     unpatch();
  4354. +     amiga_initialized = 1;
  4355. + }
  4356. + 
  4357. + void map_in_data(int load)
  4358. + {
  4359. +     if (load && undump("GNUEmacs:etc/EMACS-DATA"))
  4360. +     {
  4361. +     unpatch();
  4362. +     current_screen = new_screen = temp_screen = 0;
  4363. +     message_buf = 0;
  4364. +     chars_wasted = copybuf = 0;
  4365. +     DC_ICcost = 0;
  4366. +     ILcost = DLcost = ILncost = DLncost = 0;
  4367. +     initialized = amiga_initialized = 1;
  4368. +     }
  4369. +     else
  4370. +       {
  4371. +     malloc_hunk = dump_malloc(malloc_hunk_size + pre_alloc);
  4372. +     pure = dump_malloc(puresize);
  4373. +       }
  4374. +     amiga_undump_reinit();
  4375. + }
  4376. diff -rcP emacs-18.59-fsf/src/amiga_malloc.c emacs-18.59-amiga/src/amiga_malloc.c
  4377. *** emacs-18.59-fsf/src/amiga_malloc.c    Thu Jan  1 00:00:00 1970
  4378. --- emacs-18.59-amiga/src/amiga_malloc.c    Sat Dec  5 16:36:46 1992
  4379. ***************
  4380. *** 0 ****
  4381. --- 1,321 ----
  4382. + /* Emulation of some unix functions for emacs.
  4383. + Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  4384. + 
  4385. + This file is part of GNU Emacs.
  4386. + 
  4387. + GNU Emacs is distributed in the hope that it will be useful,
  4388. + but WITHOUT ANY WARRANTY.  No author or distributor
  4389. + accepts responsibility to anyone for the consequences of using it
  4390. + or for whether it serves any particular purpose or works at all,
  4391. + unless he says so in writing.  Refer to the GNU Emacs General Public
  4392. + License for full details.
  4393. + 
  4394. + Everyone is granted permission to copy, modify and redistribute
  4395. + GNU Emacs, but only under the conditions described in the
  4396. + GNU Emacs General Public License.   A copy of this license is
  4397. + supposed to have been given to you along with GNU Emacs so you
  4398. + can know your rights and responsibilities.  It should be in a
  4399. + file named COPYING.  Among other things, the copyright notice
  4400. + and this notice must be preserved on all copies.  */
  4401. + 
  4402. + #include <exec/types.h>
  4403. + #include <exec/memory.h>
  4404. + #include <proto/exec.h>
  4405. + 
  4406. + #undef LONGBITS
  4407. + #undef NULL
  4408. + #include "config.h"
  4409. + #include "lisp.h"
  4410. + #include "amiga.h"
  4411. + 
  4412. + /* Memory stuff */
  4413. + long far DataSegBits;
  4414. + static int DataSegFound;
  4415. + static struct mem_header *far current;
  4416. + struct mem_header *free_list;
  4417. + extern int alloca_calling;
  4418. + extern int *pure;
  4419. + long far pre_alloc;    /* amount of memory to reserve for emacs */
  4420. + char *malloc_hunk;
  4421. + long malloc_hunk_size = MALLOC_HUNK_SIZE; /* Amount of memory malloc'ed by a
  4422. +                          to-be-dumped emacs */
  4423. + long malloc_bytes_used;    /* Amount of this hunk actually used */
  4424. + static int early_malloc = TRUE;    /* Before we undump, we want system allocations */
  4425. + 
  4426. + #define ADDR_OK(x) (((long)x & ~VALMASK) == DataSegBits)
  4427. + 
  4428. + /* Memory allocation code */
  4429. + /* ---------------------- */
  4430. + 
  4431. + static void *alloc_sys(long memsize)
  4432. + /* Effect: Allocate from AmigaOS (via AllocMem). */
  4433. + {
  4434. +   /* Allocation rounded up to multiple of 4 */
  4435. +   long size = ((memsize + 3) & ~3) + sizeof(struct mem_header);
  4436. +   struct mem_header *mem;
  4437. + 
  4438. +   if (!DataSegFound)
  4439. +     {
  4440. +       /* Find page containing Pure data. All data used by emacs must be
  4441. +      on the same page (As a page is 2^26 bytes, this shouldn't be too
  4442. +      unlikely). */
  4443. +       DataSegBits = (long)&first_data & ~VALMASK;
  4444. +       if (!(ADDR_OK(first_fn) && ADDR_OK(last_fn) &&
  4445. +         ADDR_OK(&first_data) && ADDR_OK(&last_data) &&
  4446. +         ADDR_OK(&first_bss) && ADDR_OK(&last_bss)))
  4447. +     _fail("I can't handle your memory configuration");
  4448. +       DataSegFound = TRUE;
  4449. +     }
  4450. + 
  4451. +   mem = AllocMem(size, 0);
  4452. +   if (!mem) return 0;
  4453. +   /* All memory *must* be allocated on the same page ! */
  4454. +   if (!ADDR_OK(mem))
  4455. +     {
  4456. +       FreeMem(mem, size);
  4457. +       return 0;
  4458. +     }
  4459. +   if (current) current->prev = mem;
  4460. +   mem->next = current;
  4461. +   mem->prev = 0;
  4462. +   current = mem;
  4463. +   mem->size = size;
  4464. + 
  4465. +   return mem + 1;
  4466. + }
  4467. + 
  4468. + static void free_sys(char *p)
  4469. + {
  4470. +   struct mem_header *old = (struct mem_header *)p - 1;
  4471. + 
  4472. +   if (old == current)
  4473. +     {
  4474. +       current = current->next;
  4475. +       if (current) current->prev = 0;
  4476. +     }
  4477. +   else
  4478. +     {
  4479. +       old->prev->next = old->next;
  4480. +       if (old->next) old->next->prev = old->prev;
  4481. +     }
  4482. +   FreeMem(old, old->size);
  4483. + }
  4484. + 
  4485. + void _MemCleanup(void)
  4486. + {
  4487. +   struct mem_header *next;
  4488. + 
  4489. +   while (current)
  4490. +     {
  4491. +       next = current->next;
  4492. +       FreeMem(current, current->size);
  4493. +       current = next;
  4494. +     }
  4495. + }
  4496. + 
  4497. + static void *alloc_hunk(long memsize)
  4498. + /* Effect: Allocates from the malloc hunk (which is dumped to disk).
  4499. + */
  4500. + {
  4501. +   /* Allocation rounded up to multiple of 4 */
  4502. +   long size = ((memsize + 3) & ~3) + sizeof(struct mem_header);
  4503. +   /* Find a free block in the memory list */
  4504. +   struct mem_header *scan = free_list->next;
  4505. + 
  4506. +   while (scan->size > 0)
  4507. +     {
  4508. +       if (size < scan->size)    /* Found ! */
  4509. +     {
  4510. +       long end;
  4511. + 
  4512. +       /* Split block if big enough */
  4513. +       if (size + sizeof(struct mem_header) + 8 > scan->size)
  4514. +         {
  4515. +           /* Remove block from list */
  4516. +           scan->prev->next = scan->next;
  4517. +           scan->next->prev = scan->prev;
  4518. +         }
  4519. +       else
  4520. +         {
  4521. +           /* Split block */
  4522. +           struct mem_header *new = (struct mem_header *)((char *)scan + size);
  4523. + 
  4524. +           new->prev = scan->prev;
  4525. +           new->next = scan->next;
  4526. +           scan->prev->next = new;
  4527. +           scan->next->prev = new;
  4528. +           new->size = scan->size - size;
  4529. +           scan->size = size;
  4530. +         }
  4531. +       if (!amiga_initialized)
  4532. +         {
  4533. +           end = (char *)scan - (char *)free_list + scan->size +
  4534. +         sizeof(long) + sizeof(struct mem_header);
  4535. +           if (end > malloc_bytes_used) malloc_bytes_used = end;
  4536. +         }
  4537. +       return scan + 1;
  4538. +     }
  4539. +       scan = scan->next;
  4540. +     }
  4541. +   return 0;
  4542. + }
  4543. + 
  4544. + static void free_hunk(char *p)
  4545. + {
  4546. +   struct mem_header *old = (struct mem_header *)p - 1, *scan = free_list;
  4547. + 
  4548. +   do scan = scan->next; while (scan < old);
  4549. + 
  4550. +   /* Check for merges (potentially with both sides) */
  4551. +   if ((char *)scan->prev + scan->prev->size == (char *)old)
  4552. +     if ((char *)old + old->size == (char *)scan)
  4553. +       {
  4554. +     /* Merge all 3 blocks together */
  4555. +     scan->prev->size += old->size + scan->size;
  4556. +     scan->next->prev = scan->prev;
  4557. +     scan->prev->next = scan->next;
  4558. +       }
  4559. +     else            /* Merge with previous block */
  4560. +       scan->prev->size += old->size;
  4561. +   else if ((char *)old + old->size == (char *)scan)
  4562. +     {
  4563. +       /* Merge with next block */
  4564. +       old->size += scan->size;
  4565. +       scan->prev->next = old;
  4566. +       scan->next->prev = old;
  4567. +       old->prev = scan->prev;
  4568. +       old->next = scan->next;
  4569. +     }
  4570. +   else                /* Add a new block */
  4571. +     {
  4572. +       old->next = scan;
  4573. +       old->prev = scan->prev;
  4574. +       scan->prev->next = old;
  4575. +       scan->prev = old;
  4576. +     }
  4577. + }
  4578. + 
  4579. + char *__halloc(long size)
  4580. + {
  4581. +   if (early_malloc) return alloc_sys(size);
  4582. + 
  4583. +   if (!amiga_initialized)
  4584. +     if (alloca_calling)
  4585. +       {
  4586. +     alloca_calling = 0;
  4587. +     return alloc_sys(size);
  4588. +       }
  4589. +     else
  4590. +       {
  4591. +     void *mem = alloc_hunk(size);
  4592. + 
  4593. +     if (!mem) 
  4594. +       _fail("Emacs dump: ran out of memory for malloc. \n"
  4595. +         "See the -malloc option for more information.\n");
  4596. +     return mem;
  4597. +       }
  4598. +   else
  4599. +     {
  4600. +       alloca_calling = 0;
  4601. +       if (pre_alloc)
  4602. +     {
  4603. +       void *mem;
  4604. + 
  4605. +       if (mem = alloc_hunk(size)) return mem;
  4606. +     }
  4607. +       return alloc_sys(size);
  4608. +     }
  4609. + }
  4610. + 
  4611. + char *malloc(int size)
  4612. + {
  4613. +   return __halloc(size);
  4614. + }
  4615. + 
  4616. + free(void *p)
  4617. + {
  4618. +   struct mem_header *old = (struct mem_header *)p - 1;
  4619. + 
  4620. +   if ((char *)p >= malloc_hunk &&
  4621. +       (char *)p <= malloc_hunk + malloc_hunk_size + pre_alloc)
  4622. +     {
  4623. +       if (!amiga_initialized || pre_alloc) free_hunk(p);
  4624. +     }
  4625. +   else free_sys(p);
  4626. + }
  4627. + 
  4628. + char *calloc(long n, long size)
  4629. + {
  4630. +   char *t;
  4631. +   long rsize = n * size;
  4632. + 
  4633. +   t = malloc(rsize);
  4634. +   if (t) memset (t, 0, rsize);
  4635. + 
  4636. +   return t;
  4637. + }
  4638. + 
  4639. + char *realloc(char *p, long size)
  4640. + {
  4641. +   char *new = malloc(size);
  4642. +   struct mem_header *old = (struct mem_header *)p - 1;
  4643. + 
  4644. +   if (new)
  4645. +     {
  4646. +       long minsize;
  4647. +       long oldsize = old->size - sizeof(struct mem_header);
  4648. + 
  4649. +       if (size < oldsize) minsize = size;
  4650. +       else minsize = oldsize;
  4651. + 
  4652. +       memcpy(new, p, minsize);
  4653. +     }
  4654. +   free(p);
  4655. +   return new;
  4656. + }
  4657. + 
  4658. + void emacs_malloc_init(void)
  4659. + {
  4660. +   struct mem_header *end_sentinel, *new_end, *new_block;
  4661. + 
  4662. +   early_malloc = FALSE;        /* We now have a malloc hunk */
  4663. + 
  4664. +   /* Set up the memory allocation in the malloc hunk */
  4665. +   free_list = (struct mem_header *)malloc_hunk;
  4666. +   end_sentinel = (struct mem_header *)((char *)free_list + malloc_hunk_size
  4667. +                        - sizeof(struct mem_header));
  4668. +   if (!amiga_initialized)
  4669. +     {
  4670. +       /* Before dumping */
  4671. +       free_list->next = free_list + 1;
  4672. +       free_list->prev = 0;
  4673. +       free_list->size = 0;    /* Prevents merges with this pseudo-block */
  4674. +       free_list[1].prev = free_list;
  4675. +       free_list[1].next = end_sentinel;
  4676. +       free_list[1].size =
  4677. +     malloc_hunk_size - 2 * sizeof(struct mem_header) - sizeof(long);
  4678. +       /* The - sizeof(long) prevents any merges with end_sentinel */
  4679. + 
  4680. +       end_sentinel->size = 0;
  4681. +       end_sentinel->prev = free_list + 1;
  4682. +       end_sentinel->next = 0;
  4683. + 
  4684. +       malloc_bytes_used = 0;
  4685. +     }
  4686. +   else if (pre_alloc)
  4687. +     {
  4688. +       /* After having undumped extend malloc block */
  4689. +       /* Move end_sentinel: */
  4690. +       new_end = (struct mem_header *)((char *)free_list + malloc_hunk_size +
  4691. +                       pre_alloc - sizeof(struct mem_header));
  4692. +       new_end->size = 0;
  4693. +       new_end->next = 0;
  4694. +       new_end->prev = end_sentinel->prev;
  4695. +       end_sentinel->prev->next = new_end;
  4696. + 
  4697. +       /* Add extra memory (pre_alloc bytes) */
  4698. +       new_block = (struct mem_header *)((char *)end_sentinel - sizeof(long));
  4699. +       new_block->size = pre_alloc;
  4700. +       free_hunk((char *)(new_block + 1));
  4701. +     }
  4702. + }
  4703. diff -rcP emacs-18.59-fsf/src/amiga_menu.c emacs-18.59-amiga/src/amiga_menu.c
  4704. *** emacs-18.59-fsf/src/amiga_menu.c    Thu Jan  1 00:00:00 1970
  4705. --- emacs-18.59-amiga/src/amiga_menu.c    Thu Sep 30 21:27:42 1993
  4706. ***************
  4707. *** 0 ****
  4708. --- 1,309 ----
  4709. + #include <exec/types.h>
  4710. + #include <libraries/gadtools.h>
  4711. + #include <intuition/intuition.h>
  4712. + #include <proto/exec.h>
  4713. + #include <proto/dos.h>
  4714. + #include <proto/gadtools.h>
  4715. + #include <proto/intuition.h>
  4716. + #include "config.h"
  4717. + #undef NULL
  4718. + #include "lisp.h"
  4719. + #include "amiga.h"
  4720. + 
  4721. + #ifndef GTMN_NewLookMenus
  4722. + #define GTMN_NewLookMenus    GT_TagBase+67
  4723. + #endif
  4724. + 
  4725. + static struct Menu *emacs_menu;
  4726. + static char *emacs_menu_strings;
  4727. + static APTR win_vi;
  4728. + struct Library *GadToolsBase;
  4729. + 
  4730. + void suspend_menus(void)
  4731. + {
  4732. +   if (emacs_win)
  4733. +     {
  4734. +       ClearMenuStrip(emacs_win);
  4735. +       if (win_vi)
  4736. +     {
  4737. +       FreeVisualInfo(win_vi);
  4738. +       win_vi = 0;
  4739. +     }
  4740. +     }
  4741. + }
  4742. + 
  4743. + int resume_menus(void)
  4744. + {
  4745. +   if (emacs_win && emacs_menu)
  4746. +     {
  4747. +       win_vi = GetVisualInfo(emacs_win->WScreen, TAG_END);
  4748. + 
  4749. +       if (!win_vi || !LayoutMenus(emacs_menu, win_vi,
  4750. +                   GTMN_NewLookMenus, 1L,
  4751. +                   TAG_END))
  4752. +     {
  4753. +       if (win_vi) FreeVisualInfo(win_vi);
  4754. +       Famiga_delete_menus();
  4755. + 
  4756. +       return FALSE;
  4757. +     }
  4758. +       SetMenuStrip(emacs_win, emacs_menu);
  4759. +     }
  4760. +   return TRUE;
  4761. + }
  4762. + 
  4763. + DEFUN ("amiga-menus", Famiga_menus, Samiga_menus, 1, 1, 0,
  4764. +   "Define menus for emacs. The argument is a list structured as follows:\n\
  4765. +    ((menu1-name ((item1-name item1-expr item1-key item1-disabled) ...)\n\
  4766. +      menu1-disabled) ...)\n\
  4767. + menu-name is the name of the menu item header.\n\
  4768. + The menu is disabled if menu-disabled is not nil [optional].\n\
  4769. + item-name is the name of an item.\n\
  4770. + The item-expr fields are ignored.\n\
  4771. + If item-key is nil, no shortcut is allowed.\n\
  4772. + If item-disabled is not nil, the item is disabled.\n\
  4773. + If the item information list is nil, a line is drawn in the menu.\n\
  4774. + item-key & item-disabled are optional.")
  4775. +   (menus)
  4776. +      Lisp_Object menus;
  4777. + {
  4778. +     Lisp_Object s_menus, s_items;
  4779. +     int citems, slen;
  4780. +     char *strdata;
  4781. +     struct NewMenu *menudata, *mkm;
  4782. +     struct Lisp_String *name;
  4783. + 
  4784. + /*    int i;
  4785. +     extern int total[], nb[];
  4786. + 
  4787. +     for (i = 0; i < 16; i++)
  4788. +     {
  4789. +     printf("%d(%d) ", total[i], nb[i]);
  4790. +     total[i] = nb[i] = 0;
  4791. +     }
  4792. +     printf("\n");
  4793. +     start_count(15);
  4794. +     for (i = 0; i < 100; i++) { suspend_count(15); resume_count(15); }
  4795. +     stop_count(15);
  4796. +     for (i = 0; i < 100; i++) { start_count(14); stop_count(14); }
  4797. +     printf("100 s/r: %d, 100 s/s: %d\n", total[15], total[14]);
  4798. + 
  4799. +     return Qnil;
  4800. + */
  4801. +     check_intuition();
  4802. + 
  4803. +     /* Check structure of parameter & count # items & menus */
  4804. +     s_menus = menus;
  4805. +     citems = slen = 0;
  4806. + 
  4807. +     while (!NULL(s_menus))
  4808. +     {
  4809. +     struct Lisp_Cons *menu, *menu_cell;
  4810. + 
  4811. +     CHECK_CONS(s_menus, 0);
  4812. +     menu_cell = XCONS(s_menus);
  4813. +     citems++;
  4814. +     CHECK_CONS(menu_cell->car, 0); /* Each menu is a list */
  4815. +     menu = XCONS(menu_cell->car);
  4816. + 
  4817. +     CHECK_STRING(menu->car, 0); /* Check name */
  4818. +     name = XSTRING(menu->car);
  4819. +     slen += name->size + 1;
  4820. +     CHECK_CONS(menu->cdr, 0);
  4821. + 
  4822. +     menu = XCONS(menu->cdr); /* Check items */
  4823. + 
  4824. +     s_items = menu->car;
  4825. +     while (!NULL(s_items))
  4826. +     {
  4827. +         struct Lisp_Cons *item, *item_cell;
  4828. + 
  4829. +         CHECK_CONS(s_items, 0);
  4830. +         item_cell = XCONS(s_items);
  4831. +         citems++;
  4832. +         if (!NULL(item_cell->car))
  4833. +         {
  4834. +         CHECK_CONS(item_cell->car, 0); /* Each item is a list */
  4835. +         item = XCONS(item_cell->car);
  4836. + 
  4837. +         CHECK_STRING(item->car, 0);
  4838. +         name = XSTRING(item->car);
  4839. +         slen += name->size + 1;
  4840. + 
  4841. +         if (!NULL(item->cdr)) /* Only name is necessary */
  4842. +         {
  4843. +             CHECK_CONS(item->cdr, 0);
  4844. +             item = XCONS(item->cdr);
  4845. + 
  4846. +             /* Expr is arbitrary */
  4847. +             if (!NULL(item->cdr))
  4848. +             {
  4849. +             CHECK_CONS(item->cdr, 0);
  4850. +             item = XCONS(item->cdr);
  4851. + 
  4852. +             /* Check shortcut */
  4853. +             if (!NULL(item->car))
  4854. +             {
  4855. +                 CHECK_NUMBER(item->car, 0);
  4856. +                 slen += 2;
  4857. +             }
  4858. + 
  4859. +             if (!NULL(item->cdr))
  4860. +             {
  4861. +                 CHECK_CONS(item->cdr, 0);
  4862. +                 item = XCONS(item->cdr);
  4863. + 
  4864. +                 /* Check that end of list */
  4865. +                 if (!NULL(item->cdr)) error("Badly formed item");
  4866. +             }
  4867. +             }
  4868. +         }
  4869. +         }
  4870. +         s_items = item_cell->cdr;
  4871. +     }
  4872. +     if (!NULL(menu->cdr))
  4873. +     {
  4874. +         CHECK_CONS(menu->cdr, 0);
  4875. +         menu = XCONS(menu->cdr);
  4876. +         if (!NULL(menu->cdr)) error("Badly formed menu");
  4877. +     }
  4878. +     s_menus = menu_cell->cdr;
  4879. +     }
  4880. + 
  4881. +     suspend_menus();
  4882. +     if (emacs_menu) Famiga_delete_menus();
  4883. + 
  4884. +     /* Now create menu structure */
  4885. +     menudata = (struct NewMenu *)alloca(sizeof(struct NewMenu) * (citems + 1));
  4886. +     emacs_menu_strings = strdata = (char *)xmalloc(slen);
  4887. +     mkm = menudata;
  4888. +     s_menus = menus;
  4889. +     while (!NULL(s_menus))
  4890. +     {
  4891. +     struct Lisp_Cons *menu, *menu_cell;
  4892. +     struct NewMenu *menu1;
  4893. + 
  4894. +     menu_cell = XCONS(s_menus);
  4895. +     mkm->nm_Type = NM_TITLE;
  4896. +     menu = XCONS(menu_cell->car);
  4897. +     name = XSTRING(menu->car);
  4898. +     strcpy(strdata, name->data);
  4899. +     mkm->nm_Label = strdata;
  4900. +     strdata += name->size + 1;
  4901. +     mkm->nm_CommKey = 0;
  4902. +     mkm->nm_Flags = 0;
  4903. +     mkm->nm_MutualExclude = 0;
  4904. +     menu1 = mkm++;
  4905. + 
  4906. +     menu = XCONS(menu->cdr); /* Check items */
  4907. + 
  4908. +     s_items = menu->car;
  4909. +     while (!NULL(s_items))
  4910. +     {
  4911. +         struct Lisp_Cons *item, *item_cell;
  4912. + 
  4913. +         item_cell = XCONS(s_items);
  4914. +         mkm->nm_Type = NM_ITEM;
  4915. +         mkm->nm_CommKey = 0;
  4916. +         mkm->nm_Flags = 0;
  4917. +         mkm->nm_MutualExclude = 0;
  4918. +         if (NULL(item_cell->car))
  4919. +         {
  4920. +         mkm->nm_Type = IM_ITEM;
  4921. +         mkm->nm_Label = NM_BARLABEL;
  4922. +         }
  4923. +         else
  4924. +         {
  4925. + 
  4926. +         item = XCONS(item_cell->car);
  4927. +         name = XSTRING(item->car);
  4928. +         strcpy(strdata, name->data);
  4929. +         mkm->nm_Label = strdata;
  4930. +         strdata += name->size + 1;
  4931. + 
  4932. +         if (!NULL(item->cdr)) /* Only name is necessary */
  4933. +         {
  4934. +             item = XCONS(item->cdr);
  4935. + 
  4936. +             /* Expr is ignored */
  4937. + 
  4938. +             if (!NULL(item->cdr))
  4939. +             {
  4940. +             item = XCONS(item->cdr);
  4941. + 
  4942. +             /* Check shortcut */
  4943. +             if (!NULL(item->car))
  4944. +             {
  4945. +                 mkm->nm_CommKey = strdata;
  4946. +                 strdata[0] = XFASTINT(item->car);
  4947. +                 strdata[1] = '\0';
  4948. +                 strdata += 2;
  4949. +             }
  4950. +             if (!NULL(item->cdr))
  4951. +             {
  4952. +                 item = XCONS(item->cdr);
  4953. +                 if (!NULL(item->car))
  4954. +                 mkm->nm_Flags |= NM_ITEMDISABLED;
  4955. +             }
  4956. +             }
  4957. +         }
  4958. +         }
  4959. +         mkm++;
  4960. +         s_items = item_cell->cdr;
  4961. +     }
  4962. +     if (!NULL(menu->cdr))
  4963. +     {
  4964. +         menu = XCONS(menu->cdr);
  4965. +         if (!NULL(menu->car)) menu1->nm_Flags |= NM_MENUDISABLED;
  4966. +     }
  4967. +     s_menus = menu_cell->cdr;
  4968. +     }
  4969. +     mkm->nm_Type = NM_END;
  4970. +     mkm->nm_Label = 0;
  4971. +     mkm->nm_CommKey = 0;
  4972. +     mkm->nm_Flags = 0;
  4973. +     mkm->nm_MutualExclude = 0;
  4974. +     if (!(emacs_menu = CreateMenus(menudata, TAG_END)))
  4975. +     {
  4976. +     free(emacs_menu_strings);
  4977. +     emacs_menu_strings = 0;
  4978. +     error("Menu couldn't be created");
  4979. +     }
  4980. +     if (!resume_menus()) error("Menu couldn't be layed out");
  4981. + 
  4982. +     return Qt;
  4983. + }
  4984. + 
  4985. + DEFUN ("amiga-delete-menus", Famiga_delete_menus, Samiga_delete_menus, 0, 0, 0,
  4986. +        "Remove & free menu strip")
  4987. +    ()
  4988. + {
  4989. +     check_intuition();
  4990. + 
  4991. +     suspend_menus();
  4992. +     if (emacs_menu) FreeMenus(emacs_menu);
  4993. +     emacs_menu = 0;
  4994. +     if (emacs_menu_strings) free(emacs_menu_strings);
  4995. +     emacs_menu_strings = 0;
  4996. + 
  4997. +     return Qt;
  4998. + }
  4999. + 
  5000. + void syms_of_amiga_menu(void)
  5001. + {
  5002. +     defsubr(&Samiga_delete_menus);
  5003. +     defsubr(&Samiga_menus);
  5004. + }
  5005. + 
  5006. + void init_amiga_menu(void)
  5007. + {
  5008. +     GadToolsBase = OpenLibrary("gadtools.library", 0);
  5009. +     if (!GadToolsBase) _fail("gadtools.library required");
  5010. + }
  5011. + 
  5012. + void cleanup_amiga_menu(void)
  5013. + {
  5014. +   suspend_menus();
  5015. +   if (emacs_menu) Famiga_delete_menus();
  5016. +   if (GadToolsBase) CloseLibrary(GadToolsBase);
  5017. + }
  5018. diff -rcP emacs-18.59-fsf/src/amiga_processes.c emacs-18.59-amiga/src/amiga_processes.c
  5019. *** emacs-18.59-fsf/src/amiga_processes.c    Thu Jan  1 00:00:00 1970
  5020. --- emacs-18.59-amiga/src/amiga_processes.c    Sun Nov 22 10:13:02 1992
  5021. ***************
  5022. *** 0 ****
  5023. --- 1,94 ----
  5024. + #include <exec/types.h>
  5025. + #include <exec/execbase.h>
  5026. + #include <exec/memory.h>
  5027. + #include <dos/dos.h>
  5028. + #include <dos/dosextens.h>
  5029. + #include <dos/dostags.h>
  5030. + #include <proto/exec.h>
  5031. + #include <proto/dos.h>
  5032. + #include <clib/alib_protos.h>
  5033. + #include <signal.h>
  5034. + #undef signal
  5035. + #include <ios1.h>
  5036. + #include <string.h>
  5037. + #include <errno.h>
  5038. + #include <stdio.h>
  5039. + #include <internal/vars.h>
  5040. + 
  5041. + #include "config.h"
  5042. + #include "lisp.h"
  5043. + #include "amiga.h"
  5044. + #include "emacssignal.h"
  5045. + 
  5046. + extern struct ExecBase *SysBase;
  5047. + 
  5048. + int amiga_process_stack_size;
  5049. + 
  5050. + /* A few emacs support functions */
  5051. + /* ----------------------------- */
  5052. + 
  5053. + wait_for_termination (pid)
  5054. +      int pid;
  5055. + {
  5056. +   while (1)
  5057. +     {
  5058. +       sigsetmask (sigmask (SIGCHLD));
  5059. +       if (0 > kill (pid, 0))
  5060. +         {
  5061. +       sigsetmask (SIGEMPTYMASK);
  5062. +       break;
  5063. +     }
  5064. +       sigpause (SIGEMPTYMASK);
  5065. +     }
  5066. + }
  5067. + 
  5068. + char *amiga_path(void)
  5069. + {
  5070. +   char *path, *pp, name[128];
  5071. +   int pathsize;
  5072. +   struct CommandLineInterface *cli;
  5073. +   BPTR lock;
  5074. +   long l, *lp, nlen;
  5075. + 
  5076. +   pathsize = 128;
  5077. +   path = (char *)xmalloc(pathsize);
  5078. + 
  5079. +   strcpy(path, ".");
  5080. +   pp = path + 1;
  5081. + 
  5082. +   if (!(cli = (struct CommandLineInterface *)((long)_us->pr_CLI << 2)))
  5083. +     return path;
  5084. + 
  5085. +   l = (long)cli->cli_CommandDir;
  5086. +   while (l) {
  5087. +     *pp++ = ',';
  5088. +     l <<= 2;
  5089. +     lp = (long *)l;
  5090. +     lock = (BPTR)*(lp + 1);
  5091. +     NameFromLock(lock, name, 128);
  5092. +     nlen = strlen(name);
  5093. +     if (pp + nlen + 5 >= path + pathsize)
  5094. +       {
  5095. +     char *newpath;
  5096. + 
  5097. +     pathsize = 2 * pathsize + nlen;
  5098. +     newpath = (char *)xrealloc(path);
  5099. +     pp = newpath + (pp - path);
  5100. +     path = newpath;
  5101. +       }
  5102. +     memcpy(pp, name, nlen);
  5103. +     pp += nlen;
  5104. +     l = *lp;
  5105. +   }
  5106. +   /* Use of +5 above guarantees that there is enough space for c: */
  5107. +   strcpy(pp, ",c:");
  5108. + 
  5109. +   return path;
  5110. + }
  5111. + 
  5112. + void syms_of_amiga_processes(void)
  5113. + {
  5114. +   amiga_process_stack_size = 0;
  5115. +   DEFVAR_INT("amiga-process-stack-size", &amiga_process_stack_size,
  5116. +      "Size of stack for called processes. 0 means same size as emacs stack.");
  5117. + }
  5118. diff -rcP emacs-18.59-fsf/src/amiga_rexx.c emacs-18.59-amiga/src/amiga_rexx.c
  5119. *** emacs-18.59-fsf/src/amiga_rexx.c    Thu Jan  1 00:00:00 1970
  5120. --- emacs-18.59-amiga/src/amiga_rexx.c    Sat Jun  5 13:21:16 1993
  5121. ***************
  5122. *** 0 ****
  5123. --- 1,460 ----
  5124. + /* low level ARexx code for use in amiga version of Emacs.
  5125. +    Copyright (C) 1993 Christian E. Hopps.
  5126. + 
  5127. + This file is part of GNU Emacs.
  5128. + 
  5129. + GNU Emacs is free software; you can redistribute it and/or modify
  5130. + it under the terms of the GNU General Public License as published by
  5131. + the Free Software Foundation; either version 1, or (at your option)
  5132. + any later version.
  5133. + 
  5134. + GNU Emacs is distributed in the hope that it will be useful,
  5135. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  5136. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  5137. + GNU General Public License for more details.
  5138. + 
  5139. + You should have received a copy of the GNU General Public License
  5140. + along with GNU Emacs; see the file COPYING.  If not, write to
  5141. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  5142. + 
  5143. + #include "SimpleRexx.h"
  5144. + #include <proto/exec.h>
  5145. + #undef NULL
  5146. + #include "config.h"
  5147. + #include "lisp.h"
  5148. + 
  5149. + #include "amiga.h"
  5150. + 
  5151. + #define XLRXMSG(x) ((struct LispRexxMsg *) XPNTR((x)))
  5152. + #define XSETLRXMSG(x,v) (XSET((x), Lisp_Int, v))
  5153. + 
  5154. + static AREXXCONTEXT far handle;
  5155. + static int amiga_arexx_initialized;
  5156. + 
  5157. + /* This structure should be allocated with emacs_malloc() its pointer will be */
  5158. + /* used as an msgid. (emacs XUINT())*/
  5159. + struct LispRexxMsg {
  5160. +   struct MinNode  lrm_Node;              /* A node for tracking messages. */
  5161. +   struct RexxMsg *lrm_Msg;              /* The actual Rexx Msg. */
  5162. +   ULONG  lrm_Flags;
  5163. + };
  5164. + /* Flags for LispRexxMessage indicating what to do with it. */
  5165. + #define LRMF_SENTCMD (1L << 0)              /* this msg originated here. */
  5166. + #define LRMF_DOERRORS (1L << 1)              /* handle error replies */
  5167. + #define LRMF_DORESULTS (1L << 2)          /* handle result strings */
  5168. + 
  5169. + struct LispRexxList {
  5170. +     struct MinList lrl_List;
  5171. +     int    lrl_Count;
  5172. + };
  5173. + 
  5174. + struct LispRexxList pending;              /* The list of pending */
  5175. +                           /* (outgoing) Rexx Messages. */
  5176. + struct LispRexxList returned;              /* The list of pending */
  5177. +                           /* (outgoing) Rexx Messages */
  5178. +                           /* that have been received. */
  5179. + struct LispRexxList incoming;              /* The message that are */
  5180. +                           /* incoming to Emacs (sent */
  5181. +                           /* from some other rexx host. */
  5182. + 
  5183. + /* allocate a rexx message properly */
  5184. + Lisp_Object alloc_rexx_msg(ULONG flags)
  5185. + {
  5186. +     Lisp_Object rm = Qnil;
  5187. +     struct LispRexxMsg *lrm = (struct LispRexxMsg *)malloc(sizeof(*lrm));
  5188. +     if(lrm) {
  5189. +     lrm->lrm_Flags = flags;
  5190. +     XSETLRXMSG(rm,lrm);
  5191. +     return(rm);
  5192. +     }
  5193. +     return(Qnil);
  5194. + }
  5195. + 
  5196. + /* free an arexx message allocated with alloc_arexx_msg() */
  5197. + void free_rexx_msg (Lisp_Object rm)
  5198. + {
  5199. +     if(!NULL(rm)) {
  5200. +     void *mem = XLRXMSG(rm);
  5201. +     free(mem);
  5202. +     }
  5203. + }
  5204. + 
  5205. + /* The next 2 functions imlement FIFO lists. */
  5206. + 
  5207. + /* add LispRexxMsg to a LispRexxLisp Tail. */
  5208. + void add_rexx_msg_to_tail(struct LispRexxList *rl, Lisp_Object rm)
  5209. + {
  5210. +     AddTail((struct List *)rl,(struct Node *)XPNTR(rm));
  5211. +     rl->lrl_Count++;
  5212. + }
  5213. + 
  5214. + /* remove LispRexxMsg from head of a LispRexxLisp. */
  5215. + Lisp_Object remove_rexx_msg_from_head(struct LispRexxList *rl)
  5216. + {
  5217. +     Lisp_Object rm = (Lisp_Object)RemHead((struct List *)rl);
  5218. +     if(rm != 0) {
  5219. +     rl->lrl_Count--;
  5220. +     return(rm);
  5221. +     } else {
  5222. +         return Qnil;
  5223. +     }
  5224. + }
  5225. + 
  5226. + void remove_rexx_msg(struct LispRexxList *rl, Lisp_Object rm)
  5227. + {
  5228. +     Remove((struct Node *)XPNTR(rm));
  5229. +     rl->lrl_Count--;
  5230. + }
  5231. + 
  5232. + 
  5233. + /* find a rexx message on a list given an msgid (ptr) */
  5234. + int is_rexx_msgid_on_list(struct LispRexxList *rl,
  5235. +                     Lisp_Object id)
  5236. + {
  5237. +     struct MinNode *mn = rl->lrl_List.mlh_Head;
  5238. +     for(mn; mn->mln_Succ; mn = mn->mln_Succ) {
  5239. +     Lisp_Object cmpid = Qnil;
  5240. +     XSETLRXMSG(cmpid,mn);
  5241. +     if( EQ(cmpid,id)) {
  5242. +         return(1);
  5243. +     }
  5244. +     }
  5245. +     return(0);
  5246. + }
  5247. + 
  5248. + Lisp_Object find_rexx_msg_on_list(struct LispRexxList *rl,
  5249. +                   struct RexxMsg *msg)
  5250. + {
  5251. +     Lisp_Object pnt = Qnil;
  5252. +     struct MinNode *mn = rl->lrl_List.mlh_Head;
  5253. +     for(mn; mn->mln_Succ; mn = mn->mln_Succ) {
  5254. +     if( ((struct LispRexxMsg *)mn)->lrm_Msg == msg) {
  5255. +         XSETLRXMSG(pnt,mn);
  5256. +     }
  5257. +     }
  5258. +     return(pnt);
  5259. + }
  5260. + 
  5261. + /* This function is given a RexxMsg and it goes and find (or doesn't) the */
  5262. + /* corisponding pending message, removes it from the list and sets up the lisp */
  5263. + /* list for return values.  if it is not found nil is returned. (it deals with */
  5264. + /* the errors for incoming messages properly.  Some thought is needed on how to */
  5265. + /* handle errors from replied sent commands that were not asking for results. */
  5266. + Lisp_Object handle_rexx_msg_replied(struct RexxMsg *msg)
  5267. + {
  5268. +     Lisp_Object rm = find_rexx_msg_on_list(&pending, msg);
  5269. +     if(!NULL(rm)) {
  5270. +     /* Process the command.  If it was requesting results strings handle */
  5271. +     /* them otherwise just delete. */
  5272. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  5273. +     remove_rexx_msg(&pending, rm);
  5274. + 
  5275. +     if(msg->rm_Result1 == 0) {
  5276. +         if(lrm->lrm_Flags & LRMF_DORESULTS) {
  5277. +         /* add to returned so that result can be fetched. */
  5278. +         add_rexx_msg_to_tail(&returned,rm);
  5279. +         } else {
  5280. +         /* simply delete rexx message. */
  5281. +         DeleteARexxMsg(handle,msg);
  5282. +         free_rexx_msg(rm);
  5283. +         }
  5284. +     } else {
  5285. +         /* an error occured with our message. */
  5286. +         if(lrm->lrm_Flags & LRMF_DOERRORS) {
  5287. +         /* add to returned so that error can be fetched. */
  5288. +         add_rexx_msg_to_tail(&returned,rm);
  5289. +         } else {
  5290. +         /* simply delete rexx message. */
  5291. +         DeleteARexxMsg(handle,msg);
  5292. +         free_rexx_msg(rm);
  5293. +         }
  5294. +     }
  5295. +     } else {
  5296. +     /* This should never happen we received a rexx message reply */
  5297. +     /* that we never sent out. */
  5298. +     DeleteARexxMsg(handle,msg);
  5299. +     }
  5300. + }
  5301. + 
  5302. + /* This function takes incoming messages and place them on the incoming msg */
  5303. + /* list.  */
  5304. + Lisp_Object handle_rexx_msg_received(struct RexxMsg *msg)
  5305. + {
  5306. +     Lisp_Object rm = alloc_rexx_msg(LRMF_DORESULTS|LRMF_DOERRORS);
  5307. +     if(!NULL(rm)) {
  5308. +     /* Add message to incoming list. */
  5309. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  5310. +     lrm->lrm_Msg = msg;              /* set msg pointer. */
  5311. +     add_rexx_msg_to_tail(&incoming,rm);
  5312. +     } else {
  5313. +     /* This should never happen we received a rexx message but ran out of */
  5314. +     /* memory.  Set last error msg. and reply with fail. */
  5315. +     SetARexxLastError(handle, msg, "Out of emacs memory.");
  5316. +     ReplyARexxMsg(handle, msg, 0, 20);
  5317. +     }
  5318. + }
  5319. + 
  5320. + /* Almost the same as old one, but we now call handle_pending_arexx_reply() for */
  5321. + /* replied messages that we sent, so that we can setup result strings and such. */
  5322. + int check_arexx(int force, int kbd)
  5323. + {
  5324. +     struct RexxMsg *msg;
  5325. +     int msg_received = FALSE;
  5326. +     while (msg = GetARexxMsg(handle)) {
  5327. +     msg_received = TRUE;
  5328. +     if(msg->rm_Node.mn_Node.ln_Type == NT_REPLYMSG)    {
  5329. +         /* This is a reply to a rexx command we send out. */
  5330. +         handle_rexx_msg_replied(msg);
  5331. +     } else {
  5332. +         handle_rexx_msg_received(msg);
  5333. +     }
  5334. +     }
  5335. +     if ((kbd && amiga_arexx_initialized)) {
  5336. +     /* if we got a message or we have some out, or we have some waiting to */
  5337. +     /* be processes then enque the Key sequence that will call the rexx */
  5338. +     /* message handler.  We obviously don't do this for returned commands :^) */
  5339. +     if ((msg_received || force && incoming.lrl_Count > 0) &&
  5340. +         get_ttycount() == 0) {
  5341. +         enque(AMIGASEQ, FALSE); enque('X', FALSE);
  5342. +     }
  5343. +     }
  5344. +     return msg_received;
  5345. + }
  5346. + 
  5347. + DEFUN ("amiga-arexx-wait", Famiga_arexx_wait, Samiga_arexx_wait, 0, 0, 0,
  5348. +        "Wait for an ARexx event (command or reply) before proceeding.")
  5349. +     ()
  5350. + {
  5351. +     while (!check_arexx(FALSE, FALSE)) Wait(ARexxSignal(handle));
  5352. + }
  5353. + 
  5354. + DEFUN ("amiga-arexx-check-command",
  5355. +        Famiga_arexx_check_command, Samiga_arexx_check_command, 1, 1, 0,
  5356. +        "Return t if command ID has finished, nil otherwise.")
  5357. +     (id)
  5358. + Lisp_Object id;
  5359. + {
  5360. +     CHECK_NUMBER(id,0);
  5361. + 
  5362. +     if(is_rexx_msgid_on_list(&pending,id)) {
  5363. +     /* still on pending return false. */
  5364. +     return Qnil;
  5365. +     } else if(is_rexx_msgid_on_list(&returned,id)) {
  5366. +     /* is waiting to be processed return true. */
  5367. +     return Qt;
  5368. +     }
  5369. + 
  5370. +     /* is nowhere to be found. error. */
  5371. +     error("id not found.");
  5372. +     return Qnil;
  5373. + }
  5374. + 
  5375. + DEFUN ("amiga-arexx-get-next-msg", Famiga_arexx_get_next_msg,
  5376. +        Samiga_get_next_msg, 0, 0, 0,
  5377. + "Returns the oldest arexx msg sent to emacs rexx port.\n\
  5378. + When you are through with this message call (amiga-arexx-reply).\n\
  5379. + if the msg is not replied this function will continue to\n\
  5380. + return that msg until it has been replied to.")
  5381. +   ()
  5382. + {
  5383. +     struct RexxMsg *rmsg;
  5384. + 
  5385. +     check_arexx(FALSE, FALSE);
  5386. +     if (incoming.lrl_Count) {
  5387. +     struct RexxMsg *msg = ((struct LispRexxMsg *)
  5388. +                    incoming.lrl_List.mlh_Head)->lrm_Msg;
  5389. +     return build_string(ARG0(msg));
  5390. +     }
  5391. +     /* nothing to be gotten. */
  5392. +     return Qnil;
  5393. + }
  5394. + 
  5395. + DEFUN("amiga-arexx-get-msg-results", Famiga_arexx_get_msg_results,
  5396. +       Samiga_arexx_get_msg_results, 1,1,0,
  5397. + "Returns the results from MSGID. will be a list of the form:\n\
  5398. +   (msgid resultcode secondary)\n\n\
  5399. + If resultcode is 0 then secondary will be a string or nil.\n\
  5400. + else resulcode will be greater than 0 and secondary will be\n\
  5401. + an error-code (int).\n\n\
  5402. + If MSGID has not yet completed nil is returned.\n\
  5403. + if MSGID has been dealt with or is invalid and error will occur.")
  5404. +     (msgid)
  5405. + Lisp_Object msgid;
  5406. + {
  5407. +     CHECK_NUMBER(msgid,0);
  5408. + 
  5409. +     if(is_rexx_msgid_on_list(&returned,msgid)) {
  5410. +     /* msgid has completed build list and delete LispRexxMsg. */
  5411. +     struct LispRexxMsg *lrm = XLRXMSG(msgid);
  5412. +     Lisp_Object rc, error_or_string, ret;
  5413. +     struct RexxMsg *msg = lrm->lrm_Msg;
  5414. + 
  5415. +     remove_rexx_msg(&returned,msgid);
  5416. + 
  5417. +     rc = make_number(msg->rm_Result1);
  5418. +     if(msg->rm_Result1 == 0) {
  5419. +         error_or_string = msg->rm_Result2 ? build_string(msg->rm_Result2) : 0;
  5420. +     } else {
  5421. +         /* error occurred */
  5422. +         error_or_string = make_number(msg->rm_Result2); /* save error code. */
  5423. +     }
  5424. +     free_rexx_msg(msgid);              /* free our rexx msg. */
  5425. +     DeleteARexxMsg(handle,msg);          /* free ARexx msg proper */
  5426. + 
  5427. +     /* build lisp list. */
  5428. +     ret = Fcons( msgid, Fcons( rc, Fcons(error_or_string, Qnil)));
  5429. +     if(NULL(ret)) {
  5430. +         error("Couldn't get memory.");
  5431. +     }
  5432. +     return(ret);
  5433. +     } else if(is_rexx_msgid_on_list(&pending,msgid)) {
  5434. +     return Qnil;                  /* this msgid has not yet completed. */
  5435. +     } else {
  5436. +     error("Unknown MSGID.");
  5437. +     return Qnil;
  5438. +     }
  5439. + }
  5440. + 
  5441. + DEFUN ("amiga-arexx-reply", Famiga_arexx_reply, Samiga_arexx_reply,
  5442. +        2, 2, 0,
  5443. + "Replies to the first arexx message (the one got via amiga-arexx-get-event)\n\
  5444. + with RC as return code.\n\
  5445. + If RC=0, TEXT is the result, otherwise it is the error text. It can be nil.")
  5446. +     (rc, text)
  5447. + Lisp_Object rc, text;
  5448. + {
  5449. +     int retcode, ok = TRUE;
  5450. +     char *result;
  5451. +     struct RexxMsg *rmsg;
  5452. +     Lisp_Object rm = remove_rexx_msg_from_head(&incoming);
  5453. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  5454. + 
  5455. +     if (NULL(rm))
  5456. +     error("No ARexx message to reply to.");
  5457. + 
  5458. +     rmsg = lrm->lrm_Msg;
  5459. + 
  5460. +     CHECK_NUMBER(rc, 0);
  5461. +     retcode = XINT(rc);
  5462. + 
  5463. +     if (!NULL (text)) {
  5464. +     CHECK_STRING(text, 0);
  5465. +     result = XSTRING (text)->data;
  5466. +     } else {
  5467. +     result = 0;
  5468. +     }
  5469. +     if (retcode && result)
  5470. +     ok = SetARexxLastError(handle, rmsg, result);
  5471. +     ReplyARexxMsg(handle, rmsg, result, retcode);
  5472. + 
  5473. +     if (!ok)
  5474. +     error("Failed to set ARexx error message.");
  5475. + 
  5476. +     return Qnil;
  5477. + }
  5478. + 
  5479. + Lisp_Object send_rexx_command(Lisp_Object str, Lisp_Object as_file,
  5480. +                   ULONG flags)
  5481. + {
  5482. +     struct RexxMsg *rmsg;
  5483. +     int i;
  5484. +     Lisp_Object id, rm;
  5485. +     struct LispRexxMsg *lrm;
  5486. + 
  5487. +     rm = alloc_rexx_msg(flags);
  5488. +     if(NULL(rm)) {
  5489. +     error("Failed to send command to ARexx.");
  5490. +     return Qnil;
  5491. +     }
  5492. + 
  5493. +     CHECK_STRING (str, 0);
  5494. +     if (!(rmsg = SendARexxMsg(handle, XSTRING (str)->data,!NULL (as_file),
  5495. +                   (flags & LRMF_DORESULTS ? 1 : 0)))) {
  5496. +     free_rexx_msg(rm);
  5497. +     error("Failed to send command to ARexx.");
  5498. +     return Qnil;
  5499. +     }
  5500. +     lrm = XLRXMSG(rm);
  5501. +     lrm->lrm_Msg = rmsg;              /* set rexx message pointer. */
  5502. +     add_rexx_msg_to_tail(&pending,rm);          /* add to pending list. */
  5503. + 
  5504. +     return(rm);
  5505. + }
  5506. + 
  5507. + DEFUN ("amiga-arexx-send-command", Famiga_arexx_send_command,
  5508. +        Samiga_arexx_send_command, 1, 2, 0,
  5509. + "Sends a command to ARexx for execution.\n\
  5510. + If the second arg is non-nil, the command is directly interpreted.\n\
  5511. + Returns an integer that uniquely identifies this message.  This must\n\
  5512. + then be used to get the results from the command.\n\
  5513. + NOTE: this is very different from old way things worked.\n\
  5514. +       earlier versions of emacs discarded successful results\n\
  5515. +       and errors always got replied to becuase they caused failures\n\
  5516. +       Neither of these are true now.\
  5517. + This function is also no longer interactive.\n\
  5518. + Use (amiga-arexx-do-command)\n")
  5519. +     (str, as_file)
  5520. + Lisp_Object str, as_file;
  5521. + {
  5522. +     return(send_rexx_command(str,as_file,
  5523. +                  LRMF_DORESULTS|
  5524. +                  LRMF_DOERRORS|
  5525. +                  LRMF_SENTCMD));
  5526. + }
  5527. + 
  5528. + void init_amiga_rexx(void)
  5529. + {
  5530. +     extern ULONG inputsig;
  5531. +     int i;
  5532. + 
  5533. +     handle = InitARexx("Emacs", "elx");
  5534. +     inputsig |= ARexxSignal(handle);
  5535. + 
  5536. +     /* init exec lists. */
  5537. +     NewList((struct List *)&incoming.lrl_List);
  5538. +     incoming.lrl_Count = 0;
  5539. + 
  5540. +     NewList((struct List *)&pending.lrl_List);
  5541. +     pending.lrl_Count = 0;
  5542. + 
  5543. +     NewList((struct List *)&returned.lrl_List);
  5544. +     returned.lrl_Count = 0;
  5545. + }
  5546. + 
  5547. + void cleanup_amiga_rexx(void)
  5548. + {
  5549. +     /* Delete and reply all rexx messages we have gotten. */
  5550. +     Lisp_Object rm = remove_rexx_msg_from_head(&returned);
  5551. +     while(!NULL(rm)) {
  5552. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  5553. +     DeleteARexxMsg(handle,lrm->lrm_Msg);
  5554. +     free_rexx_msg(rm);
  5555. +     rm = remove_rexx_msg_from_head(&returned);
  5556. +     }
  5557. + 
  5558. +     rm = remove_rexx_msg_from_head(&incoming);
  5559. +     while(!NULL(rm)) {
  5560. +     struct LispRexxMsg *lrm = XLRXMSG(rm);
  5561. +     ReplyARexxMsg(handle, lrm->lrm_Msg, 0, 20);
  5562. +     free_rexx_msg(rm);
  5563. +     rm = remove_rexx_msg_from_head(&incoming);
  5564. +     }
  5565. + 
  5566. +     /* Free the rest of rexx, will wait for pending msgs to return */
  5567. +     FreeARexx(handle);
  5568. + }
  5569. + 
  5570. + void syms_of_amiga_rexx(void)
  5571. + {
  5572. +     DEFVAR_BOOL ("amiga-arexx-initialized", &amiga_arexx_initialized,
  5573. +          "Set this to t when Emacs is ready to respond to ARexx messages.\n"
  5574. +          "(ie C-\ X causes all pending ARexx messages to be answered)");
  5575. +     amiga_arexx_initialized = 0;
  5576. + 
  5577. +     defsubr(&Samiga_arexx_send_command);
  5578. +     defsubr(&Samiga_arexx_reply);
  5579. +     defsubr(&Samiga_get_next_msg);
  5580. +     defsubr(&Samiga_arexx_get_msg_results);
  5581. +     defsubr(&Samiga_arexx_check_command);
  5582. +     defsubr(&Samiga_arexx_wait);
  5583. + }
  5584. diff -rcP emacs-18.59-fsf/src/amiga_screen.c emacs-18.59-amiga/src/amiga_screen.c
  5585. *** emacs-18.59-fsf/src/amiga_screen.c    Thu Jan  1 00:00:00 1970
  5586. --- emacs-18.59-amiga/src/amiga_screen.c    Tue Aug 31 18:16:14 1993
  5587. ***************
  5588. *** 0 ****
  5589. --- 1,1396 ----
  5590. + #include "config.h"
  5591. + #undef NULL
  5592. + #include "lisp.h"
  5593. + #include "termchar.h"
  5594. + #include "dispextern.h"
  5595. + 
  5596. + #include <stdio.h>
  5597. + #include <string.h>
  5598. + #include <stddef.h>
  5599. + #include <internal/devices.h>
  5600. + #include <internal/vars.h>
  5601. + 
  5602. + #define min(x,y) ((x) > (y) ? (y) : (x))
  5603. + #define max(x,y) ((x) < (y) ? (y) : (x))
  5604. + 
  5605. + #undef LONGBITS
  5606. + 
  5607. + #include <exec/types.h>
  5608. + #include <exec/interrupts.h>
  5609. + #include <devices/input.h>
  5610. + #include <devices/inputevent.h>
  5611. + #include <intuition/intuitionbase.h>
  5612. + #include <intuition/intuition.h>
  5613. + #include <devices/conunit.h>
  5614. + #include <devices/inputevent.h>
  5615. + #include <graphics/gfxbase.h>
  5616. + #include <graphics/gfxmacros.h>
  5617. + #include <utility/hooks.h>
  5618. + #include <workbench/startup.h>
  5619. + #include <workbench/workbench.h>
  5620. + 
  5621. + #include <proto/exec.h>
  5622. + #include <proto/dos.h>
  5623. + #include <proto/intuition.h>
  5624. + #include <proto/graphics.h>
  5625. + #include <proto/console.h>
  5626. + #include <proto/diskfont.h>
  5627. + #include <proto/wb.h>
  5628. + 
  5629. + /* this is defined for those unlucky enough
  5630. +  * not to have the 3.0 headers  -ch3/16/93. */
  5631. + #ifndef WA_NewLookMenus
  5632. + #define WA_NewLookMenus (WA_Dummy + 0x30)
  5633. + #endif
  5634. + 
  5635. + #include "amiga.h"
  5636. + 
  5637. + #define SHIFT_MASK (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT)
  5638. + #define CONTROL_MASK IEQUALIFIER_CONTROL
  5639. + #define META_MASK IEQUALIFIER_LALT
  5640. + 
  5641. + struct GfxBase *GfxBase;
  5642. + struct IntuitionBase *IntuitionBase;
  5643. + struct Library *DiskfontBase, *KeymapBase, *WorkbenchBase;
  5644. + 
  5645. + static char intkey_code, intkey_qualifier;
  5646. + static struct IOStdReq *input_req;
  5647. + static struct Interrupt int_handler_hook;
  5648. + static int hooked;
  5649. + 
  5650. + static struct MsgPort *wbport;
  5651. + static struct AppWindow *emacs_app_win;
  5652. + static struct AppIcon *emacs_icon;
  5653. + 
  5654. + struct Library *ConsoleDevice;
  5655. + static struct TextFont *font;
  5656. + static int font_opened;
  5657. + /* The reset string resets the console, turns off scrolling and sets up
  5658. +    the foreground & background colors. */
  5659. + #define CONSOLE_RESET "\x1b""c\x9b>1l\x9b""3%d;4%d;>%dm"
  5660. + static char reset_string[20]; /* Must be big enough for
  5661. +               printf(CONSOLE_RESET, foreground, background, background);
  5662. +               (0 <= foreground, background <= 7) */
  5663. + 
  5664. + /* These are the pen numbers for emacs window's base colors */
  5665. + int foreground = 1, background = 0;
  5666. + 
  5667. + /* Current window, and its main characteristics */
  5668. + struct Window *emacs_win;
  5669. + WORD emacs_x = 0, emacs_y = 0, emacs_w = 640, emacs_h = 200;
  5670. + char *emacs_screen_name;
  5671. + char emacs_screen_name_storage[MAXPUBSCREENNAME+1];
  5672. + int emacs_backdrop = 0;        /* Use backdrop window ? */
  5673. + 
  5674. + /* Current window size: */
  5675. + #define EMACS_X() (emacs_win ? emacs_win->LeftEdge : emacs_x)
  5676. + #define EMACS_Y() (emacs_win ? emacs_win->TopEdge : emacs_y)
  5677. + #define EMACS_W() (emacs_win ? emacs_win->Width : emacs_w)
  5678. + #define EMACS_H() (emacs_win ? emacs_win->Height : emacs_h)
  5679. + 
  5680. + /* used for setting the color of standout text  -ch3/16/93. */
  5681. + int inverse_fill_pen = 8, inverse_text_pen = 8;
  5682. + 
  5683. + /* IO request for all console io. */
  5684. + static struct IOStdReq *emacs_console;
  5685. + 
  5686. + /* a storage area for the name of the screen last opened on */
  5687. + 
  5688. + #define emacs_icon_width 57
  5689. + #define emacs_icon_height 55
  5690. + #define emacs_icon_num_planes 1
  5691. + #define emacs_icon_words_per_plane 220
  5692. + 
  5693. + UWORD chip emacs_icon_data[1][55][4] = {
  5694. +   {
  5695. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  5696. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  5697. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0fe0,0x6000,
  5698. +     0x0000,0x0000,0x0060,0x6000,0x0000,0x0000,0x0fff,0xe000,
  5699. +     0x0000,0x0000,0x1800,0x2000,0x0000,0x0000,0x13ff,0xa000,
  5700. +     0x0000,0x0000,0x1400,0xa000,0x0000,0x0000,0x3600,0xa000,
  5701. +     0x0000,0x0000,0x0000,0xa000,0x0000,0x0000,0x0c00,0xa000,
  5702. +     0x0000,0x0000,0x1e00,0xa000,0x0000,0x0000,0x0c00,0xa000,
  5703. +     0x0000,0x0000,0x0000,0xa000,0x0000,0x0000,0x2100,0xa000,
  5704. +     0x0000,0x0000,0x3300,0xa000,0x0000,0x0000,0x0c00,0xa000,
  5705. +     0x003f,0xffff,0xffff,0xb000,0x001f,0xffff,0xffff,0x8000,
  5706. +     0x004e,0x0000,0x0001,0xf000,0x00c6,0x00f0,0x0001,0x8000,
  5707. +     0x00c6,0x0100,0x0001,0x8000,0x0006,0x0103,0x9201,0x8000,
  5708. +     0x0006,0x013a,0x5201,0x8000,0x00c6,0x010a,0x5201,0x8000,
  5709. +     0x00c6,0x010a,0x5601,0x8000,0x0086,0x00f2,0x4a01,0x8000,
  5710. +     0x0006,0x0000,0x0001,0x8000,0x0046,0x0000,0x0001,0x8000,
  5711. +     0x00c6,0x7c00,0x0001,0x8000,0x00c6,0x4000,0x0001,0x8000,
  5712. +     0x0006,0x41d8,0xc319,0x8000,0x0006,0x7925,0x24a1,0x8000,
  5713. +     0x00c6,0x4125,0x2419,0x8000,0x01c6,0x4125,0x2485,0x8000,
  5714. +     0x0086,0x7d24,0xd319,0x8000,0x0007,0x0000,0x0003,0x8000,
  5715. +     0x0003,0xffe3,0xffff,0x0000,0x0081,0xfff7,0xfffe,0x0000,
  5716. +     0x01c0,0x0036,0x0000,0x0000,0x0180,0x0014,0x0f80,0x0000,
  5717. +     0x0000,0x0014,0x1040,0x0000,0x0000,0x0014,0x2720,0x0000,
  5718. +     0x0000,0x0012,0x28a0,0x0000,0x0080,0x000a,0x48a0,0x0000,
  5719. +     0x01c0,0x0009,0x90a0,0x0000,0x0180,0x0004,0x20a0,0x0000,
  5720. +     0x0000,0x0003,0xc0a0,0x0000,0x0000,0x0000,0x00a0,0x0000,
  5721. +     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  5722. +     0x0000,0x0000,0x0000,0x0000
  5723. +   },
  5724. + };
  5725. + 
  5726. + struct Image far emacs_icon_image = {
  5727. +   0, 0,
  5728. +   emacs_icon_width, emacs_icon_height, emacs_icon_num_planes,
  5729. +   (UWORD *)emacs_icon_data,
  5730. +   3, 0,
  5731. +   0
  5732. + };
  5733. + 
  5734. + static struct DiskObject far emacs_icon_object = {
  5735. +   0, 0,
  5736. +   { 0, 0, 0, emacs_icon_width, emacs_icon_height, 0, 0, 0, (APTR)&emacs_icon_image },
  5737. +   0, 0, 0,
  5738. +   NO_ICON_POSITION, NO_ICON_POSITION
  5739. + };
  5740. + 
  5741. + static struct Hook background_hook;
  5742. + 
  5743. + #define EVENTSIZE 32
  5744. + 
  5745. + static struct event {
  5746. +   ULONG class;
  5747. +   UWORD code, qual;
  5748. +   WORD x, y;
  5749. + } events[EVENTSIZE];
  5750. + static int event_num, event_in, event_out;
  5751. + 
  5752. + static struct wbevent {
  5753. +   struct wbevent *next;
  5754. +   char file[1];
  5755. + } *wbevents;
  5756. + 
  5757. + Lisp_Object Vamiga_mouse_pos;
  5758. + Lisp_Object Vamiga_mouse_item;
  5759. + extern Lisp_Object MouseMap;
  5760. + int amiga_remap_bsdel;
  5761. + int amiga_remap_numeric_keypad;
  5762. + int amiga_mouse_initialized;
  5763. + int amiga_wb_initialized;
  5764. + int emacs_iconified;
  5765. + 
  5766. + static int amiga_pos_x(int x)
  5767. + {
  5768. +   return (x - emacs_win->BorderLeft) / emacs_win->RPort->Font->tf_XSize;
  5769. + }
  5770. + 
  5771. + static int amiga_pos_y(int y)
  5772. + {
  5773. +   return (y - emacs_win->BorderTop) / emacs_win->RPort->Font->tf_YSize;
  5774. + }
  5775. + 
  5776. + static void amiga_change_size(void)
  5777. + {
  5778. +   int new_height = amiga_pos_y(emacs_win->Height - emacs_win->BorderBottom);
  5779. +   int new_width = amiga_pos_x(emacs_win->Width - emacs_win->BorderRight);
  5780. + 
  5781. +   /* Hack to force redisplay */
  5782. +   if (screen_height == new_height) screen_height--;
  5783. +   /* I consider that refreshes are possible during a select, which is
  5784. +      true for the current state of emacs */
  5785. +   change_screen_size(new_height, new_width, 0, !selecting && !waiting_for_input, 1);
  5786. + }
  5787. + 
  5788. + /* Get terminal size from system.
  5789. +    Store number of lines into *heightp and width into *widthp.
  5790. +    If zero or a negative number is stored, the value is not valid.  */
  5791. + 
  5792. + void get_window_size (widthp, heightp)
  5793. +      int *widthp, *heightp;
  5794. + {
  5795. +   if (emacs_win)
  5796. +     {
  5797. +       *heightp = amiga_pos_y(emacs_win->Height - emacs_win->BorderBottom);
  5798. +       *widthp = amiga_pos_x(emacs_win->Width - emacs_win->BorderRight);
  5799. +     }
  5800. +   else
  5801. +     {
  5802. +       *heightp = 0;
  5803. +       *widthp = 0;
  5804. +     }
  5805. + }
  5806. + 
  5807. + static int set_min_size(struct Window *win, struct TextFont *font,
  5808. +             WORD *minw, WORD *minh)
  5809. + {
  5810. +   *minw = 11 * font->tf_XSize + win->BorderLeft + win->BorderRight;
  5811. +   *minh = 4 * font->tf_YSize + win->BorderTop + win->BorderBottom;
  5812. + 
  5813. +   return (int)WindowLimits(win, *minw, *minh, 0, 0);
  5814. + }
  5815. + 
  5816. + struct fill
  5817. + {
  5818. +   struct Layer *layer;
  5819. +   struct Rectangle bounds;
  5820. +   WORD offsetx, offsety;
  5821. + };
  5822. + 
  5823. + /* __interrupt disables stack checking.   -ch3/19/93. */
  5824. + static ULONG __asm __saveds __interrupt
  5825. + fill_background(register __a2 struct RastPort *obj,
  5826. +         register __a1 struct fill *msg)
  5827. + {
  5828. +   struct Layer *l;
  5829. + 
  5830. +   SetAPen(obj, background);
  5831. +   SetDrMd(obj, JAM1);
  5832. +   SetAfPt(obj, 0, 0);
  5833. +   SetWrMsk(obj, 0xff);
  5834. +   /* Gross hack starts here */
  5835. +   l = obj->Layer;
  5836. +   obj->Layer = 0;
  5837. +   /* Stops */
  5838. +   RectFill(obj, msg->bounds.MinX, msg->bounds.MinY,
  5839. +        msg->bounds.MaxX, msg->bounds.MaxY);
  5840. +   /* Starts again */
  5841. +   obj->Layer = l;
  5842. +   /* And finally dies */
  5843. + 
  5844. +   return 0;
  5845. + }
  5846. + 
  5847. + static void clear_window(void)
  5848. + {
  5849. +   SetAPen(emacs_win->RPort, background);
  5850. +   RectFill(emacs_win->RPort, emacs_win->BorderLeft, emacs_win->BorderTop,
  5851. +        emacs_win->Width - emacs_win->BorderRight - 1,
  5852. +        emacs_win->Height - emacs_win->BorderBottom - 1);
  5853. + }
  5854. + 
  5855. + static int make_reset_string(void)
  5856. + {
  5857. +   sprintf(reset_string, CONSOLE_RESET, foreground, background, background);
  5858. + }
  5859. + 
  5860. + void reset_window(void)
  5861. + {
  5862. +   make_reset_string();
  5863. +   if (emacs_win)
  5864. +     {
  5865. +       screen_puts (reset_string, strlen(reset_string));
  5866. +       clear_window();
  5867. +       amiga_change_size ();
  5868. +     }
  5869. + }
  5870. + 
  5871. + static void close_app_win(void)
  5872. + {
  5873. +   if (emacs_app_win)
  5874. +     {
  5875. +       struct AppMessage *msg;
  5876. + 
  5877. +       RemoveAppWindow(emacs_app_win); /* What can I do if it fails ?! */
  5878. +       while (msg = (struct AppMessage *)GetMsg(wbport)) ReplyMsg(msg);
  5879. +     }
  5880. + }
  5881. + 
  5882. + static int close_emacs_window(void)
  5883. + {
  5884. +   close_app_win();
  5885. +   inputsig &= ~(1L << emacs_win->UserPort->mp_SigBit);
  5886. +   _device_close(emacs_console);
  5887. +   if(emacs_win)
  5888. +     {
  5889. +       /* put title back the way it should be   -ch3/19/93. */
  5890. +       ShowTitle(emacs_win->WScreen, !emacs_backdrop);
  5891. +     }
  5892. +   CloseWindow(emacs_win);
  5893. +   emacs_console = 0;
  5894. +   emacs_win = 0;
  5895. +   ConsoleDevice = 0;
  5896. + }
  5897. + 
  5898. + /* We need this function becuase we do not always have the string
  5899. +  * for the screen we opened on. for example LockPubScreen(NULL);
  5900. +  * This function will get the name by looping through all public
  5901. +  * screens looking for the one that matches ours. -ch3/20/93 */
  5902. + 
  5903. + char *get_screen_name(struct Screen *this, char *namebuf)
  5904. + {
  5905. +   struct PubScreenNode *pubscreens =
  5906. +     (struct PubScreenNode *)LockPubScreenList()->lh_Head;
  5907. + 
  5908. +   while (pubscreens->psn_Node.ln_Succ)
  5909. +     {
  5910. +       if (pubscreens->psn_Screen == this)
  5911. +     {
  5912. +       strcpy(namebuf, pubscreens->psn_Node.ln_Name);
  5913. +       UnlockPubScreenList();
  5914. +       return namebuf;
  5915. +     }
  5916. +       pubscreens = (struct PubScreenNode *)pubscreens->psn_Node.ln_Succ;
  5917. +     }
  5918. +   /* Failed to find screen */
  5919. +   namebuf[0] = '\0';
  5920. +   UnlockPubScreenList();
  5921. + 
  5922. +   return 0;
  5923. + }
  5924. + 
  5925. + /* added two parameters to eliminate the need for the global
  5926. +  * which was causing some unwanted effect (bugs). -ch3/19/93 */
  5927. + 
  5928. + static enum { ok, no_screen, no_window }
  5929. + open_emacs_window(UWORD x, UWORD y, UWORD w, UWORD h, int backdrop,
  5930. +           char *pubscreen_name)
  5931. +      /* Open or reopen emacs window */
  5932. + {
  5933. +   WORD minw, minh;
  5934. +   struct Screen *new_screen;
  5935. +   struct Window *new_win;
  5936. +   struct IOStdReq *new_console;
  5937. +   int no_backdrop = !backdrop;
  5938. + 
  5939. +   new_screen = LockPubScreen(pubscreen_name);
  5940. + 
  5941. +   if (!new_screen)
  5942. +     return no_screen;
  5943. + 
  5944. +   /* removed newwindow structure, and added as tag
  5945. +    * items so that we can change them easier. -ch3/16/93. */
  5946. + 
  5947. +   new_win = OpenWindowTags(0, WA_Left, x, WA_Top, y,
  5948. +                   WA_Width, w, WA_Height, h,    /* Static items */
  5949. +                   WA_AutoAdjust, 1, WA_NewLookMenus, 1,
  5950. +                   WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_RAWKEY |
  5951. +                             IDCMP_MOUSEBUTTONS| IDCMP_NEWSIZE |
  5952. +                             IDCMP_MENUPICK | IDCMP_MENUHELP,
  5953. +                   WA_PubScreen, new_screen,
  5954. +                   WA_BackFill, &background_hook,
  5955. +                   WA_MenuHelp, 1, WA_Activate, 1,
  5956. +                   WA_SimpleRefresh, 1,
  5957. +                   WA_MaxWidth, -1, WA_MaxHeight, -1,
  5958. +                   WA_Backdrop, backdrop,    /* changing items */
  5959. +                   WA_Borderless, backdrop,
  5960. +                   WA_CloseGadget, no_backdrop,
  5961. +                   WA_SizeGadget, no_backdrop,
  5962. +                   WA_DragBar, no_backdrop,
  5963. +                   WA_DepthGadget, no_backdrop,
  5964. +                   WA_Title, no_backdrop ?
  5965. +                    "GNU Emacs 18.59, Amiga port "VERS : 0,
  5966. +                               TAG_END);
  5967. + 
  5968. +   UnlockPubScreen(0L, new_screen);
  5969. + 
  5970. +   if (new_win)
  5971. +     {
  5972. +       /* if emacs_backdrop then the screen title will show BEHIND the window
  5973. +      -ch3/16/93. */
  5974. +       ShowTitle(new_screen, !emacs_backdrop);
  5975. +       SetFont(new_win->RPort, font);
  5976. + 
  5977. +       if (set_min_size(new_win, font, &minw, &minh) &&
  5978. +       (new_console = (struct IOStdReq *)
  5979. +        _device_open("console.device", CONU_CHARMAP, CONFLAG_NODRAW_ON_NEWSIZE,
  5980. +             (APTR)new_win, sizeof(*new_win),
  5981. +             sizeof(struct IOStdReq))))
  5982. +     {
  5983. +       inputsig |= 1L << new_win->UserPort->mp_SigBit;
  5984. +       ConsoleDevice = (struct Library *)new_console->io_Device;
  5985. +       emacs_app_win = AddAppWindowA(0, 0, new_win, wbport, 0);
  5986. + 
  5987. +       /* Copy the info into permanent storage */
  5988. +       emacs_win = new_win;
  5989. +       emacs_console = new_console;
  5990. + 
  5991. +       /* fetch the name of the current screen -ch3/19/93 */
  5992. +       emacs_screen_name = get_screen_name(emacs_win->WScreen,
  5993. +                           emacs_screen_name_storage);
  5994. + 
  5995. +       emacs_backdrop = backdrop;
  5996. + 
  5997. +       reset_window();
  5998. + 
  5999. +       return ok;
  6000. +     }
  6001. +       CloseWindow(new_win);
  6002. +     }
  6003. +   return no_window;
  6004. + }
  6005. + 
  6006. + void force_window(void)
  6007. + {
  6008. +   if (!emacs_win && !emacs_iconified)
  6009. +     {
  6010. +       if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  6011. +                 emacs_screen_name) != ok)
  6012. +     {
  6013. +       /* Try to return to defaults (Workbench, etc) */
  6014. +       if (open_emacs_window(0, 0, 640, 200, 0, 0) != ok)
  6015. +           _fail("I've lost my window ! Exiting.");
  6016. +     }
  6017. +       resume_menus();
  6018. +     }
  6019. + }
  6020. + 
  6021. + /* returns:
  6022. +  *    -2 if msg is not class RAWKEY
  6023. +  *    same as RawKeyConvert otherwise:
  6024. +  *    buffer length if <= kbsize
  6025. +  *    -1 else
  6026. +  */
  6027. + static DeadKeyConvert(struct IntuiMessage *msg, UBYTE *kbuffer, int kbsize,
  6028. +               struct KeyMap *kmap)
  6029. + {
  6030. +   static struct InputEvent ievent = {0, IECLASS_RAWKEY, 0, 0, 0};
  6031. +   int extra = 0, res;
  6032. + 
  6033. +   if (msg->Class != RAWKEY) return (-2);
  6034. + 
  6035. +   /* Do some keymapping ourselves to make emacs users happy */
  6036. + 
  6037. +   /* Ctrl-space becomes Ctrl-@ */
  6038. +   if (msg->Code == 0x40 && msg->Qualifier & CONTROL_MASK)
  6039. +     {
  6040. +       *kbuffer = 0;
  6041. +       return 1;
  6042. +     }
  6043. +   /* Backspace becomes DEL */
  6044. +   if (msg->Code == 0x41 && amiga_remap_bsdel)
  6045. +     {
  6046. +       *kbuffer = 0177;
  6047. +       return 1;
  6048. +     }
  6049. +   /* And DEL becomes CTRL-D */
  6050. +   if (msg->Code == 0x46 && amiga_remap_bsdel)
  6051. +     {
  6052. +       *kbuffer = 04;
  6053. +       return 1;
  6054. +     }
  6055. +   /* Stick numeric pad prefix in front of numeric keypad chars */
  6056. +   if (msg->Qualifier & IEQUALIFIER_NUMERICPAD && amiga_remap_numeric_keypad)
  6057. +     {
  6058. +       *kbuffer++ = 'x' & 037;
  6059. +       *kbuffer++ = '^' & 037;
  6060. +       *kbuffer++ = 'K';
  6061. +       kbsize -= 3;
  6062. +       extra = 3;
  6063. +     }
  6064. + 
  6065. +   /* pack input event */
  6066. +   ievent.ie_Code = msg->Code;
  6067. + 
  6068. +   /* Ignore meta in decoding keys */
  6069. +   ievent.ie_Qualifier = msg->Qualifier & ~META_MASK;
  6070. + 
  6071. +   /* get previous codes from location pointed to by IAddress
  6072. +    *  this pointer is valid until IntuiMessage is replied.
  6073. +    */
  6074. +   ievent.ie_position.ie_addr = *((APTR *)msg->IAddress);
  6075. +   ievent.ie_position.ie_dead.ie_prev1DownQual &= ~META_MASK;
  6076. +   ievent.ie_position.ie_dead.ie_prev2DownQual &= ~META_MASK;
  6077. + 
  6078. +   res = RawKeyConvert(&ievent, kbuffer, kbsize, kmap);
  6079. +   return res ? res + extra : 0;
  6080. + }
  6081. + 
  6082. + void add_wbevent(struct WBArg *wbarg)
  6083. + {
  6084. +   char filename[256];
  6085. + 
  6086. +   if (wbarg->wa_Lock && NameFromLock(wbarg->wa_Lock, filename, 256))
  6087. +     {
  6088. +       struct wbevent *event;
  6089. + 
  6090. +       if (wbarg->wa_Name) AddPart(filename, wbarg->wa_Name, 256);
  6091. +       if (event = (struct wbevent *)malloc(offsetof(struct wbevent, file) +
  6092. +                        strlen(filename) + 1))
  6093. +     {
  6094. +       event->next = wbevents;
  6095. +       strcpy(event->file, filename);
  6096. +       wbevents = event;
  6097. +     }
  6098. +     }
  6099. + }
  6100. + 
  6101. + void check_window(int force)
  6102. + {
  6103. +   ULONG class;
  6104. +   USHORT code, qualifier;
  6105. +   UWORD mx, my;
  6106. +   unsigned char buf[32];
  6107. +   int buflen, deiconify, i;
  6108. +   struct IntuiMessage *msg;
  6109. +   int mouse_event = FALSE, wb_event = FALSE;
  6110. +   struct AppMessage *amsg;
  6111. + 
  6112. +   force_window();
  6113. + 
  6114. +   if (emacs_win)
  6115. +     while (msg = (struct IntuiMessage *)GetMsg(emacs_win->UserPort))
  6116. +       {
  6117. +     class = msg->Class;
  6118. +     code = msg->Code;
  6119. +     qualifier = msg->Qualifier;
  6120. +     mx = msg->MouseX; my = msg->MouseY;
  6121. +     buflen = DeadKeyConvert(msg, buf, 32, 0);
  6122. +     ReplyMsg(msg);
  6123. + 
  6124. +     switch (class)
  6125. +       {
  6126. +       case IDCMP_CLOSEWINDOW: {
  6127. +         enque(030, FALSE); enque(03, FALSE); /* ^X^C */
  6128. +         break;
  6129. +       }
  6130. +       case IDCMP_RAWKEY: {
  6131. +         if (buflen > 0)
  6132. +           {
  6133. +         unsigned char *sbuf = buf;
  6134. +         int meta = qualifier & META_MASK;
  6135. + 
  6136. +         /* Don't set META on CSI */
  6137. +         do enque(*sbuf++, meta); while (--buflen);
  6138. +           }
  6139. +         break;
  6140. +       }
  6141. +       case IDCMP_NEWSIZE: amiga_change_size(); break;
  6142. +       case IDCMP_MENUPICK: case IDCMP_MENUHELP:
  6143. +         if (code == MENUNULL) break; /* else fall through */
  6144. +       case IDCMP_MOUSEBUTTONS: {
  6145. +         mouse_event = TRUE;
  6146. +         if (event_num == EVENTSIZE) break;
  6147. + 
  6148. +         events[event_in].class = class;
  6149. +         events[event_in].code = code;
  6150. +         events[event_in].qual = qualifier;
  6151. +         events[event_in].x = mx;
  6152. +         events[event_in].y = my;
  6153. +         event_num++;
  6154. +         event_in = (event_in + 1) % EVENTSIZE;
  6155. + 
  6156. +         break;
  6157. +       }
  6158. +       }
  6159. +       }
  6160. +   /* Handle App requests */
  6161. +   while (amsg = (struct AppMessage *)GetMsg(wbport))
  6162. +       switch (amsg->am_Type)
  6163. +     {
  6164. +     case MTYPE_APPICON: case MTYPE_APPWINDOW:
  6165. +       /* Add an event for all these files */
  6166. +       for (i = 0; i < amsg->am_NumArgs; i++) add_wbevent(amsg->am_ArgList + i);
  6167. +       wb_event = TRUE;
  6168. +       /* Reply to the message, and deiconify if was icon */
  6169. +       deiconify = amsg->am_Type == MTYPE_APPICON;
  6170. +       ReplyMsg(amsg);
  6171. +       if (deiconify && emacs_icon)
  6172. +         /* Reopen window */
  6173. +         if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  6174. +                   emacs_screen_name) == ok)
  6175. +           {
  6176. +         resume_menus();
  6177. +         RemoveAppIcon(emacs_icon);
  6178. +         emacs_icon = 0;
  6179. +         emacs_iconified = 0;
  6180. +           }
  6181. +       break;
  6182. +     default: ReplyMsg(amsg); break;
  6183. +     }
  6184. + 
  6185. +   if (amiga_mouse_initialized && (force && event_num > 0 || mouse_event))
  6186. +     {
  6187. +       enque(AMIGASEQ, FALSE); enque('M', FALSE);
  6188. +     }
  6189. +   if (amiga_wb_initialized && (force && wbevents || wb_event))
  6190. +     {
  6191. +       enque(AMIGASEQ, FALSE); enque('W', FALSE);
  6192. +     }
  6193. + }
  6194. + 
  6195. + void setup_intchar(char intchar)
  6196. + {
  6197. +   char cqbuf[2];
  6198. + 
  6199. +   if (MapANSI(&intchar, 1, cqbuf, 1, 0) == 1)
  6200. +     {
  6201. +       intkey_code = cqbuf[0];
  6202. +       intkey_qualifier = cqbuf[1];
  6203. +     }
  6204. +   else
  6205. +     {
  6206. +       /* Default is CTRL-G in usa0 keymap */
  6207. +       intkey_code = 0x24;
  6208. +       intkey_qualifier = IEQUALIFIER_CONTROL;
  6209. +     }
  6210. + }
  6211. + 
  6212. + /* Hack to detect interrupt char as soon as it is pressed */
  6213. + /* __interrupt disables stack checking.  -ch3/19/93.*/
  6214. + static long __saveds __interrupt __asm
  6215. + int_handler(register __a0 struct InputEvent *ev)
  6216. + {
  6217. +   struct InputEvent *ep, *laste;
  6218. +   static struct InputEvent retkey;
  6219. +   ULONG lock = LockIBase(0);
  6220. + 
  6221. +   if (emacs_win && IntuitionBase->ActiveWindow == emacs_win)
  6222. +     {
  6223. +       laste = 0;
  6224. + 
  6225. +       /* run down the list of events to see if they pressed the magic key */
  6226. +       for (ep = ev; ep; laste = ep, ep = ep->ie_NextEvent)
  6227. +     if (ep->ie_Class == IECLASS_RAWKEY &&
  6228. +         (ep->ie_Qualifier & 0xff) == intkey_qualifier &&
  6229. +         ep->ie_Code == intkey_code)
  6230. +       {
  6231. +         /* Remove this key from input sequence */
  6232. +         if (laste) laste->ie_NextEvent = ep->ie_NextEvent;
  6233. +         else ev = ep->ie_NextEvent;
  6234. + 
  6235. +         Vquit_flag = Qt;
  6236. +         Signal(_us, SIGBREAKF_CTRL_C);
  6237. +       }
  6238. +     }
  6239. +   UnlockIBase(lock);
  6240. + 
  6241. +   /* pass on the pointer to the event */
  6242. +   return (long)ev;
  6243. + }
  6244. + 
  6245. + DEFUN ("amiga-mouse-events", Famiga_mouse_events, Samiga_mouse_events, 0, 0, 0,
  6246. +        "Return number of pending mouse events from Intuition.")
  6247. +      ()
  6248. + {
  6249. +   register Lisp_Object tem;
  6250. + 
  6251. +   check_intuition ();
  6252. + 
  6253. +   XSET (tem, Lisp_Int, event_num);
  6254. + 
  6255. +   return tem;
  6256. + }
  6257. + 
  6258. + DEFUN ("amiga-proc-mouse-event", Famiga_proc_mouse_event, Samiga_proc_mouse_event,
  6259. +        0, 0, 0,
  6260. +        "Pulls a mouse event out of the mouse event buffer and dispatches\n\
  6261. + the appropriate function to act upon this event.")
  6262. + ()
  6263. + {
  6264. +   register Lisp_Object mouse_cmd;
  6265. +   register char com_letter;
  6266. +   register char key_mask;
  6267. +   register Lisp_Object tempx;
  6268. +   register Lisp_Object tempy;
  6269. +   extern Lisp_Object get_keyelt ();
  6270. +   extern int meta_prefix_char;
  6271. +   struct event *ev;
  6272. +   int posx, posy;
  6273. + 
  6274. +   check_intuition ();
  6275. + 
  6276. +   if (event_num) {
  6277. +     ev = &events[event_out];
  6278. +     event_out = (event_out + 1) % EVENTSIZE;
  6279. +     event_num--;
  6280. +     if (ev->class == MOUSEBUTTONS)
  6281. +       {
  6282. +     switch (ev->code)
  6283. +       {
  6284. +       case SELECTDOWN: com_letter = 2; break;
  6285. +       case SELECTUP: com_letter = 6; break;
  6286. +       case MIDDLEDOWN: com_letter = 1; break;
  6287. +       case MIDDLEUP: com_letter = 5; break;
  6288. +       case MENUDOWN: com_letter = 0; break;
  6289. +       case MENUUP: com_letter = 4; break;
  6290. +       default: com_letter = 3; break;
  6291. +       }
  6292. +     posx = amiga_pos_x(ev->x);
  6293. +     posy = amiga_pos_y(ev->y);
  6294. +     XSET (tempx, Lisp_Int, min (screen_width-1, max (0, posx)));
  6295. +     XSET (tempy, Lisp_Int, min (screen_height-1, max (0, posy)));
  6296. +       }
  6297. +     else
  6298. +       {
  6299. +     /* Must be Menu Pick or Help */
  6300. +     com_letter = ev->class == IDCMP_MENUPICK ? 3 : 7;
  6301. + 
  6302. +     /* The parameters passed describe the selected item */
  6303. +     XSET (tempx, Lisp_Int, MENUNUM(ev->code));
  6304. +     XSET (tempy, Lisp_Int, ITEMNUM(ev->code));
  6305. +       }
  6306. +     if (ev->qual & META_MASK) com_letter |= 0x20;
  6307. +     if (ev->qual & SHIFT_MASK) com_letter |= 0x10;
  6308. +     if (ev->qual & CONTROL_MASK) com_letter |= 0x40;
  6309. + 
  6310. +     Vamiga_mouse_pos = Fcons (tempx, Fcons (tempy, Qnil));
  6311. +     Vamiga_mouse_item = make_number (com_letter);
  6312. +     mouse_cmd = get_keyelt (access_keymap (MouseMap, com_letter));
  6313. +     if (NULL (mouse_cmd)) {
  6314. +       bell ();
  6315. +       Vamiga_mouse_pos = Qnil;
  6316. +     }
  6317. +     else return call1 (mouse_cmd, Vamiga_mouse_pos);
  6318. +   }
  6319. +   return Qnil;
  6320. + }
  6321. + 
  6322. + DEFUN ("amiga-get-mouse-event", Famiga_get_mouse_event, Samiga_get_mouse_event,
  6323. +        1, 1, 0,
  6324. +        "Get next mouse event out of mouse event buffer (com-letter (x y)).\n\
  6325. + ARG non-nil means return nil immediately if no pending event;\n\
  6326. + otherwise, wait for an event.")
  6327. + (arg)
  6328. + Lisp_Object arg;
  6329. + {
  6330. +   register char com_letter;
  6331. +   register char key_mask;
  6332. + 
  6333. +   register Lisp_Object tempx;
  6334. +   register Lisp_Object tempy;
  6335. +   struct event *ev;
  6336. +   int posx, posy;
  6337. + 
  6338. +   check_intuition ();
  6339. + 
  6340. +   if (NULL (arg))
  6341. +     {
  6342. +       amiga_consume_input();
  6343. +       while (!event_num)
  6344. +     {
  6345. +       int rfds = 1;
  6346. + 
  6347. +       select(1, &rfds, 0, 0, 0);
  6348. +       amiga_consume_input();
  6349. +     }
  6350. +     }
  6351. +   /*** ??? Surely you don't mean to busy wait??? */
  6352. + 
  6353. +   if (event_num) {
  6354. +     ev = &events[event_out];
  6355. +     event_out = (event_out + 1) % EVENTSIZE;
  6356. +     event_num--;
  6357. +     switch (ev->code)
  6358. +       {
  6359. +       case SELECTDOWN: com_letter = 2; break;
  6360. +       case SELECTUP: com_letter = 6; break;
  6361. +       case MIDDLEDOWN: com_letter = 1; break;
  6362. +       case MIDDLEUP: com_letter = 5; break;
  6363. +       case MENUDOWN: com_letter = 0; break;
  6364. +       case MENUUP: com_letter = 4; break;
  6365. +       default: com_letter = 3; break;
  6366. +       }
  6367. +     if (ev->qual & META_MASK) com_letter |= 0x20;
  6368. +     if (ev->qual & SHIFT_MASK) com_letter |= 0x10;
  6369. +     if (ev->qual & CONTROL_MASK) com_letter |= 0x40;
  6370. + 
  6371. +     posx = amiga_pos_x(ev->x);
  6372. +     posy = amiga_pos_y(ev->y);
  6373. +     XSET (tempx, Lisp_Int, min (screen_width-1, max (0, posx)));
  6374. +     XSET (tempy, Lisp_Int, min (screen_height-1, max (0, posy)));
  6375. + 
  6376. +     Vamiga_mouse_pos = Fcons (tempx, Fcons (tempy, Qnil));
  6377. +     Vamiga_mouse_item = make_number (com_letter);
  6378. +     return Fcons (com_letter, Fcons (Vamiga_mouse_pos, Qnil));
  6379. +   }
  6380. +   return Qnil;
  6381. + }
  6382. + 
  6383. + DEFUN ("amiga-get-wb-event", Famiga_get_wb_event, Samiga_get_wb_event,
  6384. +        1, 1, 0,
  6385. +        "Get next Workbench event out of workbench event buffer (a file name).\n\
  6386. + ARG non-nil means return nil immediately if no pending event;\n\
  6387. + otherwise, wait for an event.")
  6388. + (arg)
  6389. + Lisp_Object arg;
  6390. + {
  6391. +   Lisp_Object file;
  6392. +   struct wbevent *ev;
  6393. + 
  6394. +   check_intuition ();
  6395. + 
  6396. +   if (NULL (arg))
  6397. +     {
  6398. +       amiga_consume_input();
  6399. +       while (!wbevents)
  6400. +     {
  6401. +       int rfds = 1;
  6402. + 
  6403. +       select(1, &rfds, 0, 0, 0);
  6404. +       amiga_consume_input();
  6405. +     }
  6406. +     }
  6407. +   /*** ??? Surely you don't mean to busy wait??? */
  6408. + 
  6409. +   if (wbevents) {
  6410. +     file = build_string(wbevents->file);
  6411. +     ev = wbevents;
  6412. +     wbevents = wbevents->next;
  6413. +     free(ev);
  6414. +     return file;
  6415. +   }
  6416. +   return Qnil;
  6417. + }
  6418. + 
  6419. + DEFUN("amiga-set-foreground-color", Famiga_set_foreground_color,
  6420. +       Samiga_set_foreground_color, 1, 1, "nPen number: ",
  6421. +       "Use PEN as foreground color")
  6422. +      (pen)
  6423. + {
  6424. +   int fg;
  6425. + 
  6426. +   check_intuition();
  6427. +   CHECK_NUMBER(pen, 0);
  6428. + 
  6429. +   fg = XUINT (pen);
  6430. +   if (pen > 7) error("Pen colors must be between 0 & 7");
  6431. +   foreground = fg;
  6432. +   reset_window();
  6433. +   return Qnil;
  6434. + }
  6435. + 
  6436. + DEFUN("amiga-set-background-color", Famiga_set_background_color,
  6437. +       Samiga_set_background_color, 1, 1, "nPen number: ",
  6438. +       "Use PEN as background color")
  6439. +      (pen)
  6440. + {
  6441. +   int bg;
  6442. + 
  6443. +   check_intuition();
  6444. +   CHECK_NUMBER(pen, 0);
  6445. + 
  6446. +   bg = XUINT (pen);
  6447. +   if (pen > 7) error("Pen colors must be between 0 & 7");
  6448. +   background = bg;
  6449. +   reset_window();
  6450. +   return Qnil;
  6451. + }
  6452. + 
  6453. + DEFUN("amiga-set-inverse-fill-pen", Famiga_set_inverse_fill_pen,
  6454. +       Samiga_set_inverse_fill_pen, 1, 1, "nPen number: ",
  6455. +       "Use PEN's color for inverse fills (0-7 or 8 for reverse)")
  6456. +      (pen)
  6457. + {
  6458. +   int ifp = 8;
  6459. + 
  6460. +   check_intuition();
  6461. +   CHECK_NUMBER(pen, 0);
  6462. + 
  6463. +   ifp = XUINT (pen);
  6464. +   if (pen > 8)
  6465. +     error("choices are from 0 to 8");
  6466. +   inverse_fill_pen = ifp;
  6467. +   reset_window();
  6468. +   return Qnil;
  6469. + }
  6470. + 
  6471. + DEFUN("amiga-set-inverse-text-pen", Famiga_set_inverse_text_pen,
  6472. +       Samiga_set_inverse_text_pen, 1, 1, "nPen number: ",
  6473. +       "Use PEN's color for inverse fills (0-7 or 8 for reverse)")
  6474. +      (pen)
  6475. + {
  6476. +   int itp = 8;
  6477. + 
  6478. +   check_intuition();
  6479. +   CHECK_NUMBER(pen, 0);
  6480. + 
  6481. +   itp = XUINT (pen);
  6482. +   if (pen > 8)
  6483. +     error("choices are from 0 to 8");
  6484. +   inverse_text_pen = itp;
  6485. +   reset_window();
  6486. +   return Qnil;
  6487. + }
  6488. + 
  6489. + DEFUN("amiga-set-font", Famiga_set_font, Samiga_set_font, 2, 2,
  6490. +       "sFont: \n\
  6491. + nSize: ",
  6492. +       "Set font used for window to FONT with given HEIGHT.\n\
  6493. + The font used must be non-proportional.")
  6494. + (wfont, height)
  6495. + {
  6496. +   struct TextAttr attr;
  6497. +   struct TextFont *newfont;
  6498. +   char *fname;
  6499. +   struct Lisp_String *fstr;
  6500. +   WORD minw, minh, oldmw, oldmh;
  6501. + 
  6502. +   CHECK_STRING (wfont, 0);
  6503. +   CHECK_NUMBER (height, 0);
  6504. + 
  6505. +   check_intuition();
  6506. + 
  6507. +   fstr = XSTRING (wfont);
  6508. +   fname = (char *)alloca (fstr->size + 6);
  6509. +   strcpy (fname, fstr->data);
  6510. +   strcat (fname, ".font");
  6511. +   attr.ta_Name = fname;
  6512. +   attr.ta_YSize = XFASTINT (height);
  6513. +   attr.ta_Style = 0;
  6514. +   attr.ta_Flags = 0;
  6515. +   newfont = OpenDiskFont (&attr);
  6516. + 
  6517. +   if (!newfont)
  6518. +     error ("Font %s %d not found", fstr->data, XFASTINT (height));
  6519. +   if (newfont->tf_Flags & FPF_PROPORTIONAL)
  6520. +     {
  6521. +       CloseFont(newfont);
  6522. +       error ("Font %s %d is proportional", fstr->data, XFASTINT (height));
  6523. +     }
  6524. + 
  6525. +   if (emacs_win)
  6526. +     {
  6527. +       if (!set_min_size(emacs_win, newfont, &minw, &minh))
  6528. +     {
  6529. +       CloseFont(newfont);
  6530. +       if (!set_min_size(emacs_win, font, &oldmw, &oldmh))
  6531. +         _fail("Failed to restore old font, exiting.");
  6532. +       error("Window is too small for this font, need at least %d(w) by %d(h)",
  6533. +         minw, minh);
  6534. +     }
  6535. +       SetFont(emacs_win->RPort, newfont);
  6536. +     }
  6537. +   if (font_opened) CloseFont(font);
  6538. +   font_opened = TRUE;
  6539. +   font = newfont;
  6540. +   reset_window();
  6541. +   return Qnil;
  6542. + }
  6543. + 
  6544. + DEFUN("amiga-set-geometry", Famiga_set_geometry, Samiga_set_geometry, 4, MANY, 0,
  6545. +       "Set Emacs window geometry and screen.\n\
  6546. + First 4 parameters are the (X,Y) position of the top-left corner of the window\n\
  6547. + and its WIDTH and HEIGHT. These must be big enough for an 11x4 characters window.\n\
  6548. + If nil is given for any of these, that means to keep the same value as before.\n\
  6549. + The optional argument SCREEN specifies which screen to use, nil stands for the\n\
  6550. + same screen as the window is on, t stands for the default public screen (normally\n\
  6551. + the Workbench), a string specifies a given public screen.\n\
  6552. + If optional argument BACKDROP is t, a backdrop window is used.")
  6553. +   (nargs, args)
  6554. +     int nargs;
  6555. +     Lisp_Object *args;
  6556. + {
  6557. +   Lisp_Object x, y, w, h, scr = Qnil, backdrop = Qnil;
  6558. +   int opened;
  6559. +   WORD tempx, tempy, tempw, temph;
  6560. +   char *screen_name;
  6561. +   int use_backdrop;
  6562. + 
  6563. +   if (nargs > 6) error("Too many arguments to amiga-set-geometry");
  6564. +   x = args[0]; y = args[1]; w = args[2]; h = args[3];
  6565. +   if (nargs > 4)
  6566. +     {
  6567. +       scr = args[4];
  6568. +       if (nargs > 5) backdrop = args[5];
  6569. +     }
  6570. + 
  6571. +   check_intuition();
  6572. + 
  6573. +   if (!NULL (x))
  6574. +     {
  6575. +       CHECK_NUMBER(x, 0);
  6576. +       tempx = XUINT(x);
  6577. +     }
  6578. +   else tempx = EMACS_X();
  6579. +   if (!NULL (y))
  6580. +     {
  6581. +       CHECK_NUMBER(y, 0);
  6582. +       tempy = XUINT(y);
  6583. +     }
  6584. +   else tempy = EMACS_Y();
  6585. +   if (!NULL (w))
  6586. +     {
  6587. +       CHECK_NUMBER(w, 0);
  6588. +       tempw = XUINT(w);
  6589. +     }
  6590. +   else tempw = EMACS_W();
  6591. +   if (!NULL (h))
  6592. +     {
  6593. +       CHECK_NUMBER(h, 0);
  6594. +       temph = XUINT(h);
  6595. +     }
  6596. +   else temph = EMACS_H();
  6597. + 
  6598. +   use_backdrop = !NULL(backdrop);
  6599. + 
  6600. +   if (scr == Qt) screen_name = 0; /* set to zero for def. */
  6601. +   else if (!NULL (scr))
  6602. +     {
  6603. +       CHECK_STRING (scr, 0);
  6604. +       screen_name = XSTRING (scr)->data;
  6605. +     }
  6606. +   else screen_name = emacs_screen_name;
  6607. + 
  6608. +   if (emacs_win)
  6609. +     {
  6610. +       struct Window *old_win = emacs_win;
  6611. +       struct IOStdReq *old_console = emacs_console;
  6612. + 
  6613. +       suspend_menus();
  6614. +       opened = open_emacs_window(tempx, tempy, tempw, temph, use_backdrop,
  6615. +                  screen_name);
  6616. +       if (opened != ok)
  6617. +     {
  6618. +       resume_menus();
  6619. + 
  6620. +       if (opened == no_window) error("Failed to open desired window");
  6621. +       else if (screen_name)
  6622. +         error("Unknown public screen %s", screen_name);
  6623. +       else error("The default screen wasn't found !?");
  6624. +     }
  6625. + 
  6626. +       _device_close(old_console);
  6627. +       CloseWindow(old_win);
  6628. +       if (!resume_menus()) error("Failed to recover menus (No memory?)");
  6629. +     }
  6630. +   else /* No window, set defaults */
  6631. +     {
  6632. +       emacs_screen_name = screen_name;
  6633. +       if (screen_name)
  6634. +     {
  6635. +       emacs_screen_name_storage[MAXPUBSCREENNAME] = '\0';
  6636. +       strncpy(emacs_screen_name_storage, screen_name, MAXPUBSCREENNAME);
  6637. +     }
  6638. +       emacs_x = tempx;
  6639. +       emacs_y = tempy;
  6640. +       emacs_w = tempw;
  6641. +       emacs_h = temph;
  6642. +       emacs_backdrop = use_backdrop;
  6643. +     }
  6644. +   return Qnil;
  6645. + }
  6646. + 
  6647. + 
  6648. + /* The next 2 functions are very usefull for writing
  6649. +  * arexx/lisp functions that interact with other programs
  6650. +  * that will be sharing the same screen.  -ch3/19/93. */
  6651. + 
  6652. + DEFUN("amiga-get-window-geometry",
  6653. +       Famiga_get_window_geometry, Samiga_get_window_geometry, 0, 0, 0,
  6654. +       "Get Emacs window geometry.\n\
  6655. + a list returned is of the form:  (iconified x y width height backdrop)\n\
  6656. + where x, y, width, height are integers, backdrop is t or nil and iconified\n\
  6657. + is t if the window is iconified and nil otherwise")
  6658. + ()
  6659. + {
  6660. +   Lisp_Object x, y, w, h, b, i;
  6661. + 
  6662. +   XSET(x, Lisp_Int, EMACS_X());
  6663. +   XSET(y, Lisp_Int, EMACS_Y());
  6664. +   XSET(w, Lisp_Int, EMACS_W());
  6665. +   XSET(h, Lisp_Int, EMACS_H());
  6666. +   b = emacs_backdrop ? Qt : Qnil;
  6667. +   i = emacs_iconified ? Qt : Qnil;
  6668. + 
  6669. +   return Fcons(i, Fcons(x, Fcons(y, Fcons(w, Fcons(h, Fcons(b, Qnil))))));
  6670. + }
  6671. + 
  6672. + DEFUN("amiga-get-screen-geometry",
  6673. +       Famiga_get_screen_geometry, Samiga_get_screen_geometry, 0, 0, 0,
  6674. +       "Get geometry of the screen emacs window resides on.\n\
  6675. + a list returned is of the form:  (name x y width height)\n\
  6676. + where name is a string, x, y, width, height are integers.\n\
  6677. + Only the public screen name is returned if the window is not currently open.\n\
  6678. + In this last case, the name may be nil if the window will be opened on the\n\
  6679. + default public screen.")
  6680. + ()
  6681. + {
  6682. +   Lisp_Object name;
  6683. + 
  6684. +   if (emacs_screen_name) name = Qnil;
  6685. +   else name = build_string(emacs_screen_name);
  6686. + 
  6687. +   if(emacs_win)
  6688. +     {
  6689. +       struct Screen *s = emacs_win->WScreen;
  6690. +       Lisp_Object x, y, w, h;
  6691. + 
  6692. +       XSET(x, Lisp_Int, s->LeftEdge);
  6693. +       XSET(y, Lisp_Int, s->TopEdge);
  6694. +       XSET(w, Lisp_Int, s->Width);
  6695. +       XSET(h, Lisp_Int, s->Height);
  6696. + 
  6697. +       return Fcons(name, Fcons(x, Fcons(y, Fcons(w, Fcons(h, Qnil)))));
  6698. +     }
  6699. +   return Fcons(name, Qnil);
  6700. + }
  6701. + 
  6702. + DEFUN("amiga-iconify", Famiga_iconify, Samiga_iconify, 0, 0, "",
  6703. +       "Toggle the emacs iconification state.")
  6704. + ()
  6705. + {
  6706. +   check_intuition();
  6707. + 
  6708. +   if (emacs_iconified)
  6709. +     {
  6710. +       /* Deiconify */
  6711. + 
  6712. +       /* Reopen window */
  6713. +       if (open_emacs_window(emacs_x, emacs_y, emacs_w, emacs_h, emacs_backdrop,
  6714. +                 emacs_screen_name) != ok)
  6715. +     error("Failed to deiconify (No memory?)");
  6716. +       resume_menus();
  6717. + 
  6718. +       RemoveAppIcon(emacs_icon);
  6719. +       emacs_icon = 0;
  6720. +       emacs_iconified = 0;
  6721. +     }
  6722. +   else
  6723. +     if (emacs_icon = AddAppIconA(0, 0, "Emacs", wbport, 0, &emacs_icon_object, 0))
  6724. +       {
  6725. +     if (emacs_win)
  6726. +       {
  6727. +         /* Close window */
  6728. +         emacs_x = EMACS_X(); emacs_y = EMACS_Y();
  6729. +         emacs_w = EMACS_W(); emacs_h = EMACS_H();
  6730. +         suspend_menus();
  6731. +         close_emacs_window();
  6732. +       }
  6733. +     emacs_iconified = 1;
  6734. +       }
  6735. +     else error("Iconify attempt failed\n");
  6736. + 
  6737. +   return Qnil;
  6738. + }
  6739. + 
  6740. + DEFUN("amiga-set-icon-pos", Famiga_set_icon_pos, Samiga_set_icon_pos, 2, 2,
  6741. + "nX position: \n\
  6742. + nY position: ",
  6743. +       "Set the X Y position of the icon for emacs when iconified.")
  6744. +   (Lisp_Object x, Lisp_Object y)
  6745. + {
  6746. +   long xpos, ypos;
  6747. + 
  6748. +   if (NULL (x)) emacs_icon_object.do_CurrentX = NO_ICON_POSITION;
  6749. +   else
  6750. +     {
  6751. +       CHECK_NUMBER (x, 0);
  6752. +       emacs_icon_object.do_CurrentX = XINT(x);
  6753. +     }
  6754. +   if (NULL (y)) emacs_icon_object.do_CurrentY = NO_ICON_POSITION;
  6755. +   else
  6756. +     {
  6757. +       CHECK_NUMBER (y, 0);
  6758. +       emacs_icon_object.do_CurrentY = XINT(y);
  6759. +     }
  6760. + 
  6761. +   return Qnil;
  6762. + }
  6763. + 
  6764. + struct EClockVal scount[16], ecount[16];
  6765. + long total[16], counting[16], nb[16], susp[16];
  6766. + 
  6767. + void start_count(int n)
  6768. + {
  6769. +   nb[n]++;
  6770. +   if (counting[n]) printf("Restarted %d\n", n);
  6771. +   counting[n] = 1;
  6772. +   /*ReadEClock(&scount[n]);*/
  6773. + }
  6774. + 
  6775. + void stop_count(int n)
  6776. + {
  6777. +   if (counting[n])
  6778. +     {
  6779. +       /*ReadEClock(&ecount[n]);*/
  6780. +       counting[n] = 0;
  6781. + 
  6782. +       total[n] += ecount[n].ev_lo - scount[n].ev_lo;
  6783. +     }
  6784. + }
  6785. + 
  6786. + void suspend_count(int n)
  6787. + {
  6788. +   if (counting[n] && susp[n]++ == 0)
  6789. +     {
  6790. +       /*ReadEClock(&ecount[n]);*/
  6791. +       total[n] += ecount[n].ev_lo - scount[n].ev_lo;
  6792. +     }
  6793. + }
  6794. + 
  6795. + void resume_count(int n)
  6796. + {
  6797. +   if (counting[n] && --susp[n] == 0) /*ReadEClock(&scount[n])*/;
  6798. + }
  6799. + 
  6800. + disp_counts(void)
  6801. + {
  6802. +   int i;
  6803. + 
  6804. +   for (i = 0; i < 16; i++)
  6805. +     {
  6806. +       printf("%d(%d) ", total[i], nb[i]);
  6807. +       total[i] = nb[i] = 0;
  6808. +     }
  6809. +   printf("\n");
  6810. + }
  6811. + 
  6812. + void screen_puts(char *str, unsigned int len)
  6813. + {
  6814. +   if (emacs_win)
  6815. +     {
  6816. +       int i;
  6817. + 
  6818. +       emacs_console->io_Command = CMD_WRITE;
  6819. +       emacs_console->io_Data    = (APTR)str;
  6820. +       emacs_console->io_Length  = len;
  6821. + 
  6822. +       /*    start_count(0);
  6823. +         for (i = 1; i <= 6; i++) suspend_count(i);*/
  6824. +       DoIO(emacs_console);
  6825. +       /*    for (i = 1; i <= 6; i++) resume_count(i);
  6826. +         stop_count(0);*/
  6827. +     }
  6828. + }
  6829. + 
  6830. + DEFUN ("amiga-activate-window", Famiga_activate_window, Samiga_activate_window, 0, 0, 0,
  6831. +        "Makes emacs window the currently active one.")
  6832. +      ()
  6833. + {
  6834. +   if(emacs_win) {
  6835. +     ActivateWindow(emacs_win);
  6836. +     return Qnil;
  6837. +   }
  6838. +   error("No window to make active.");
  6839. +   return Qnil;
  6840. + }
  6841. + 
  6842. + DEFUN ("amiga-window-to-front", Famiga_window_to_front, Samiga_window_to_front, 0, 0, 0,
  6843. +        "Pulls the emacs window to the front (including screen)")
  6844. +      ()
  6845. + {
  6846. +   if(emacs_win) {
  6847. +     WindowToFront(emacs_win);
  6848. +     ScreenToFront(emacs_win->WScreen);
  6849. +     return Qnil;
  6850. +   }
  6851. +   error("No window to pull to the front.");
  6852. +   return Qnil;
  6853. + }
  6854. + 
  6855. + DEFUN ("amiga-window-to-back", Famiga_window_to_back, Samiga_window_to_back, 0, 0, 0,
  6856. +        "Pushes the emacs window to the back (including screen)")
  6857. +      ()
  6858. + {
  6859. +   if(emacs_win) {
  6860. +     WindowToBack(emacs_win);
  6861. +     ScreenToBack(emacs_win->WScreen);
  6862. +     return Qnil;
  6863. +   }
  6864. +   error("No window to push back.");
  6865. +   return Qnil;
  6866. + }
  6867. + 
  6868. + 
  6869. + void syms_of_amiga_screen(void)
  6870. + {
  6871. +   DEFVAR_LISP ("amiga-mouse-item", &Vamiga_mouse_item,
  6872. +            "Encoded representation of last mouse click, corresponding to\n\
  6873. + numerical entries in amiga-mouse-map.");
  6874. +   Vamiga_mouse_item = Qnil;
  6875. +   DEFVAR_LISP ("amiga-mouse-pos", &Vamiga_mouse_pos,
  6876. +            "Current x-y position of mouse by row, column as specified by font.");
  6877. +   Vamiga_mouse_pos = Qnil;
  6878. + 
  6879. +   DEFVAR_BOOL ("amiga-remap-bsdel", &amiga_remap_bsdel,
  6880. +            "*If true, map DEL to Ctrl-D and Backspace to DEL. \n\
  6881. + This is the most convenient (and default) setting. If nil, don't remap.");
  6882. +   amiga_remap_bsdel = 1;
  6883. + 
  6884. +   DEFVAR_BOOL ("amiga-remap-numeric-keypad", &amiga_remap_numeric_keypad,
  6885. +            "*If true, numeric keypad keys are prefixed with C-x C-^ K.\n\
  6886. + This enables you to remap them, but causes problems with functions like\n\
  6887. + isearch-forward-regexp on some keyboards. Default to true.");
  6888. +   amiga_remap_numeric_keypad = 1;
  6889. + 
  6890. +   DEFVAR_BOOL ("amiga-mouse-initialized", &amiga_mouse_initialized,
  6891. +            "Set to true once lisp has been setup to process mouse commands.\n\
  6892. + No mouse processing request (C-X C-^ M) will be queued while this is nil.");
  6893. +   amiga_mouse_initialized = 0;
  6894. + 
  6895. +   DEFVAR_BOOL ("amiga-wb-initialized", &amiga_wb_initialized,
  6896. +            "Set to true once lisp has been setup to process workbench commands.\n\
  6897. + No workbench processing request (C-X C-^ W) will be queued while this is nil.");
  6898. +   amiga_mouse_initialized = 0;
  6899. + 
  6900. +   defsubr (&Samiga_mouse_events);
  6901. +   defsubr (&Samiga_proc_mouse_event);
  6902. +   defsubr (&Samiga_get_mouse_event);
  6903. +   defsubr (&Samiga_get_wb_event);
  6904. +   defsubr (&Samiga_set_font);
  6905. +   defsubr (&Samiga_set_geometry);
  6906. +   defsubr (&Samiga_set_background_color);
  6907. +   defsubr (&Samiga_set_foreground_color);
  6908. +   defsubr (&Samiga_iconify);
  6909. +   defsubr (&Samiga_set_icon_pos);
  6910. + 
  6911. +   /* New functions  -ch3/19/93. */
  6912. +   defsubr (&Samiga_set_inverse_text_pen);
  6913. +   defsubr (&Samiga_set_inverse_fill_pen);
  6914. +   defsubr (&Samiga_window_to_front);
  6915. +   defsubr (&Samiga_window_to_back);
  6916. +   defsubr (&Samiga_activate_window);
  6917. +   defsubr (&Samiga_get_window_geometry);
  6918. +   defsubr (&Samiga_get_screen_geometry);
  6919. + 
  6920. + }
  6921. + 
  6922. + void init_amiga_screen(void)
  6923. + {
  6924. +   event_num = event_in = event_out = 0;
  6925. + 
  6926. +   if (!((IntuitionBase = (struct IntuitionBase *)
  6927. +      OpenLibrary("intuition.library", 37L)) &&
  6928. +     (GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 0L)) &&
  6929. +     (DiskfontBase = OpenLibrary("diskfont.library", 0L)) &&
  6930. +     (WorkbenchBase = OpenLibrary("workbench.library", 37)) &&
  6931. +     (KeymapBase = OpenLibrary("keymap.library", 36)) &&
  6932. +     (input_req = (struct IOStdReq *)_device_open("input.device", 0, 0, 0, 0,
  6933. +                              sizeof(struct IOStdReq)))))
  6934. +     _fail("Need version 2.04 and diskfont.library!");
  6935. + 
  6936. +   if (!(wbport = CreateMsgPort())) no_memory();
  6937. + 
  6938. +   /* Add Ctrl-G detector */
  6939. +   int_handler_hook.is_Data = 0;
  6940. +   int_handler_hook.is_Code = (void *)int_handler;
  6941. +   int_handler_hook.is_Node.ln_Pri = 100; /* 100 not 127 is the standard value
  6942. +                       * for input stream handlers.  -ch3/19/93. */
  6943. +   /* it is standard for interrupts to have names  -ch3/19/93.*/
  6944. +   int_handler_hook.is_Node.ln_Name = "GNU Emacs CTRL-G handler";
  6945. +   input_req->io_Command = IND_ADDHANDLER;
  6946. +   input_req->io_Data = (APTR)&int_handler_hook;
  6947. + 
  6948. +   /* wasn't checking for error. -ch3/19/93. */
  6949. +   if(0 == DoIO(input_req))
  6950. +     hooked = TRUE;
  6951. +   else
  6952. +     {
  6953. +       hooked = FALSE;
  6954. +       _fail("couldn't get input handler hook for CTRL-G");
  6955. +     }
  6956. + 
  6957. +   inputsig |= 1L << wbport->mp_SigBit;
  6958. + 
  6959. +   background_hook.h_Entry = (ULONG (*)()) fill_background; /* added cast. */
  6960. +   font = GfxBase->DefaultFont;
  6961. + 
  6962. +   init_amiga_menu();
  6963. + }
  6964. + 
  6965. + void cleanup_amiga_screen(void)
  6966. + {
  6967. +   if (hooked)
  6968. +     {
  6969. +       input_req->io_Command = IND_REMHANDLER;
  6970. +       input_req->io_Data = (APTR)&int_handler_hook;
  6971. +       DoIO(input_req);
  6972. +     }
  6973. +   close_app_win();
  6974. +   if (wbport) DeleteMsgPort(wbport);
  6975. +   cleanup_amiga_menu();
  6976. +   _device_close(emacs_console);
  6977. +   if (emacs_win) CloseWindow(emacs_win);
  6978. +   if (font_opened) CloseFont(font);
  6979. +   if (IntuitionBase) CloseLibrary(IntuitionBase);
  6980. +   if (GfxBase) CloseLibrary(GfxBase);
  6981. +   if (DiskfontBase) CloseLibrary(DiskfontBase);
  6982. +   if (WorkbenchBase) CloseLibrary(WorkbenchBase);
  6983. +   if (KeymapBase) CloseLibrary(KeymapBase);
  6984. +   _device_close(input_req);
  6985. + }
  6986. diff -rcP emacs-18.59-fsf/src/amiga_serial.c emacs-18.59-amiga/src/amiga_serial.c
  6987. *** emacs-18.59-fsf/src/amiga_serial.c    Thu Jan  1 00:00:00 1970
  6988. --- emacs-18.59-amiga/src/amiga_serial.c    Sat Jun  5 11:37:38 1993
  6989. ***************
  6990. *** 0 ****
  6991. --- 1,72 ----
  6992. + #include <exec/types.h>
  6993. + #include <devices/serial.h>
  6994. + #include <stdio.h>
  6995. + #include <internal/devices.h>
  6996. + 
  6997. + #include <proto/exec.h>
  6998. + #include <proto/dos.h>
  6999. + 
  7000. + #include "amiga.h"
  7001. + 
  7002. + static struct MsgPort  *SerReadPort;
  7003. + static struct IOExtSer *SerReadRequest, *SerWriteRequest;
  7004. + static char ser_inbuf[2];
  7005. + char *far serial_device = "serial.device";
  7006. + long far serial_unit;
  7007. + 
  7008. + void init_amiga_serial(void)
  7009. + {
  7010. +     if ((SerWriteRequest = (struct IOExtSer *)
  7011. +      _device_open(serial_device, serial_unit, 0L,
  7012. +               0L, 0, sizeof(struct IOExtSer))) &&
  7013. +     (SerReadPort = CreateMsgPort()) &&
  7014. +     (SerReadRequest  = (struct IOExtSer *)CreateIORequest(SerReadPort, sizeof (struct IOExtSer))))
  7015. +     {
  7016. +     SerReadRequest->IOSer.io_Device = SerWriteRequest->IOSer.io_Device;
  7017. +     SerReadRequest->IOSer.io_Unit = SerWriteRequest->IOSer.io_Unit;
  7018. +     ser_inbuf[1]=0;
  7019. +     SerReadRequest->IOSer.io_Command = CMD_READ;
  7020. +     SerWriteRequest->IOSer.io_Command = CMD_WRITE;
  7021. +     SerReadRequest->IOSer.io_Length = 1;
  7022. +     SerReadRequest->IOSer.io_Data = &ser_inbuf[0];
  7023. +     SendIO(SerReadRequest);
  7024. + 
  7025. +     inputsig |= 1L << SerReadPort->mp_SigBit;
  7026. +     }
  7027. +     else _fail("No memory or serial.device missing");
  7028. + }
  7029. + 
  7030. + void cleanup_amiga_serial(void)
  7031. + {
  7032. +     if (SerReadRequest)
  7033. +     {
  7034. +     AbortIO(SerReadRequest);
  7035. +     WaitIO(SerReadRequest);
  7036. +     DeleteIORequest(SerReadRequest);
  7037. +     }
  7038. +     if (SerReadPort) DeletePort(SerReadPort);
  7039. +     _device_close(SerWriteRequest);
  7040. + }
  7041. + 
  7042. + void check_serial(int force)
  7043. + {
  7044. +     while (CheckIO(SerReadRequest))
  7045. +     {
  7046. +     int c = ser_inbuf[0];
  7047. +     SendIO(SerReadRequest);
  7048. +     enque(c, FALSE);
  7049. +     }
  7050. + }
  7051. + 
  7052. + void serial_puts(char *str, int len)
  7053. + {
  7054. + 
  7055. +     SerWriteRequest->IOSer.io_Length = len;
  7056. +     SerWriteRequest->IOSer.io_Data = str;
  7057. +     DoIO(SerWriteRequest);
  7058. + }
  7059. + 
  7060. + unsigned long serial_baud_rate(void)
  7061. + {
  7062. +     return SerWriteRequest->io_Baud;
  7063. + }
  7064. diff -rcP emacs-18.59-fsf/src/amiga_sysdep.c emacs-18.59-amiga/src/amiga_sysdep.c
  7065. *** emacs-18.59-fsf/src/amiga_sysdep.c    Thu Jan  1 00:00:00 1970
  7066. --- emacs-18.59-amiga/src/amiga_sysdep.c    Sat Jun  5 11:39:12 1993
  7067. ***************
  7068. *** 0 ****
  7069. --- 1,375 ----
  7070. + /* Interfaces to system-dependent kernel and library entries.
  7071. + Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
  7072. + 
  7073. + This file is part of GNU Emacs.
  7074. + 
  7075. + GNU Emacs is distributed in the hope that it will be useful,
  7076. + but WITHOUT ANY WARRANTY.  No author or distributor
  7077. + accepts responsibility to anyone for the consequences of using it
  7078. + or for whether it serves any particular purpose or works at all,
  7079. + unless he says so in writing.  Refer to the GNU Emacs General Public
  7080. + License for full details.
  7081. + 
  7082. + Everyone is granted permission to copy, modify and redistribute
  7083. + GNU Emacs, but only under the conditions described in the
  7084. + GNU Emacs General Public License.   A copy of this license is
  7085. + supposed to have been given to you along with GNU Emacs so you
  7086. + can know your rights and responsibilities.  It should be in a
  7087. + file named COPYING.  Among other things, the copyright notice
  7088. + and this notice must be preserved on all copies.  */
  7089. + 
  7090. + #include <exec/types.h>
  7091. + #include <dos/dos.h>
  7092. + #include <dos/dosextens.h>
  7093. + #include <dos/var.h>
  7094. + #include <exec/execbase.h>
  7095. + #include <exec/tasks.h>
  7096. + #include <utility/tagitem.h>
  7097. + #include <workbench/startup.h>
  7098. + #include <workbench/workbench.h>
  7099. + #include <proto/exec.h>
  7100. + #include <proto/dos.h>
  7101. + #include <proto/icon.h>
  7102. + 
  7103. + #include <string.h>
  7104. + #include <ios1.h>
  7105. + #include <stdio.h>
  7106. + #include <sys/types.h>
  7107. + #include <sys/stat.h>
  7108. + #include <signal.h>
  7109. + #include <setjmp.h>
  7110. + #include <unistd.h>
  7111. + #include <internal/vars.h>
  7112. + 
  7113. + #undef LONGBITS
  7114. + #undef NULL
  7115. + #include "config.h"
  7116. + #include "lisp.h"
  7117. + #include "emacssignal.h"
  7118. + 
  7119. + #define min(x,y) ((x) > (y) ? (y) : (x))
  7120. + 
  7121. + #include "termhooks.h"
  7122. + #include "termchar.h"
  7123. + #include "termopts.h"
  7124. + #include "dispextern.h"
  7125. + #include "amiga.h"
  7126. + 
  7127. + #define EMACS_TOOL_SIZE 128    /* Room for path to emacs executable */
  7128. + 
  7129. + struct Library *IconBase;
  7130. + extern struct ExecBase *SysBase;
  7131. + 
  7132. + /*long __stack = 40000;*/        /* Minimum stack size, used by c.o */
  7133. + int amiga_process_stack_size;
  7134. + 
  7135. + int amiga_initialized;
  7136. + int amiga_create_icons;        /* If true, we create icons when saving files */
  7137. + enum exit_method amiga_fail_exit = use_xcexit;
  7138. + int selecting;
  7139. + 
  7140. + /* Emacs sysdep routines */
  7141. + /* --------------------- */
  7142. + 
  7143. + set_exclusive_use(int fd) {}
  7144. + 
  7145. + /* Suspend the Emacs process; give terminal to its superior.  */
  7146. + sys_suspend()
  7147. + {
  7148. +   /* This could have been iconify, but:
  7149. +      a) Not good for serial lines.
  7150. +      b) emacs stays active while iconified */
  7151. + }
  7152. + 
  7153. + char *get_system_name()
  7154. + {
  7155. +   static char sysname[32];
  7156. + 
  7157. +   gethostname(sysname, sizeof sysname);
  7158. +   return sysname;
  7159. + }
  7160. + 
  7161. + /*
  7162. +  *    flush any pending output
  7163. +  *      (may flush input as well; it does not matter the way we use it)
  7164. +  */
  7165. + 
  7166. + flush_pending_output (channel)
  7167. +      int channel;
  7168. + {
  7169. + }
  7170. + 
  7171. + wait_for_termination (pid)
  7172. +      int pid;
  7173. + {
  7174. +   while (1)
  7175. +     {
  7176. +       sigsetmask (sigmask (SIGCHLD));
  7177. +       if (0 > kill (pid, 0))
  7178. +         {
  7179. +       sigsetmask (SIGEMPTYMASK);
  7180. +       break;
  7181. +     }
  7182. +       sigpause (SIGEMPTYMASK);
  7183. +     }
  7184. + }
  7185. + 
  7186. + /* A few general amiga support routines */
  7187. + /* ------------------------------------ */
  7188. + 
  7189. + char *expand_path(char *path, char *buf, int len)
  7190. + {
  7191. +   BPTR dirlock;
  7192. +   APTR window;
  7193. + 
  7194. +   window = _us->pr_WindowPtr;
  7195. +   _us->pr_WindowPtr = (APTR)-1;
  7196. +   dirlock = Lock(path, ACCESS_READ);
  7197. +   _us->pr_WindowPtr = window;
  7198. +   if (dirlock)            /* Expand lock name */
  7199. +     {
  7200. +       if (!NameFromLock(dirlock, buf, len)) buf = 0;
  7201. +       UnLock(dirlock);
  7202. +       return buf;
  7203. +     }
  7204. +   return 0;
  7205. + }
  7206. + 
  7207. + #undef select
  7208. + int emacs_select(int nfds, int *rfds, int *wfds, int *efds, struct timeval *timeout)
  7209. + {
  7210. +   int ret;
  7211. + 
  7212. +   selecting = TRUE;
  7213. +   ret = select(nfds, rfds, wfds, efds, timeout);
  7214. +   selecting = FALSE;
  7215. +   return ret;
  7216. + }
  7217. + 
  7218. + void no_memory(void)
  7219. + {
  7220. +   _fail("No memory");
  7221. + }
  7222. + 
  7223. + char *amiga_path(void)
  7224. + {
  7225. +   char *path, *pp, name[128];
  7226. +   int pathsize;
  7227. +   struct CommandLineInterface *cli;
  7228. +   BPTR lock;
  7229. +   long l, *lp, nlen;
  7230. + 
  7231. +   pathsize = 128;
  7232. +   path = (char *)xmalloc(pathsize);
  7233. + 
  7234. +   strcpy(path, ".");
  7235. +   pp = path + 1;
  7236. + 
  7237. +   if (!(cli = (struct CommandLineInterface *)((long)_us->pr_CLI << 2)))
  7238. +     return path;
  7239. + 
  7240. +   l = (long)cli->cli_CommandDir;
  7241. +   while (l) {
  7242. +     *pp++ = ',';
  7243. +     l <<= 2;
  7244. +     lp = (long *)l;
  7245. +     lock = (BPTR)*(lp + 1);
  7246. +     NameFromLock(lock, name, 128);
  7247. +     nlen = strlen(name);
  7248. +     if (pp + nlen + 5 >= path + pathsize)
  7249. +       {
  7250. +     char *newpath;
  7251. + 
  7252. +     pathsize = 2 * pathsize + nlen;
  7253. +     newpath = (char *)xrealloc(path, pathsize);
  7254. +     pp = newpath + (pp - path);
  7255. +     path = newpath;
  7256. +       }
  7257. +     memcpy(pp, name, nlen);
  7258. +     pp += nlen;
  7259. +     l = *lp;
  7260. +   }
  7261. +   /* Use of +5 above guarantees that there is enough space for c: */
  7262. +   strcpy(pp, ",c:");
  7263. + 
  7264. +   return path;
  7265. + }
  7266. + 
  7267. + /* Some general amiga commands */
  7268. + /* --------------------------- */
  7269. + 
  7270. + #define emacs_file_icon_width 54
  7271. + #define emacs_file_icon_height 22
  7272. + #define emacs_file_icon_num_planes 2
  7273. + 
  7274. + static UWORD chip emacs_file_icon_data[2][22][4] = {
  7275. +     {
  7276. +         0x0000,0x0000,0x0000,0x0400,0x0000,0x0000,0x0000,0x0c00,
  7277. +         0x0000,0x0000,0x0000,0x0c00,0x07ff,0xffff,0xffe0,0x0c00,
  7278. +         0x0400,0x0000,0x0030,0x0c00,0x0400,0x0000,0x0028,0x0c00,
  7279. +         0x04ff,0xffff,0xfe24,0x0c00,0x0400,0x0000,0x0022,0x0c00,
  7280. +         0x04ff,0xffff,0xfe3f,0x0c00,0x0400,0x0000,0x0000,0x8c00,
  7281. +         0x04ff,0xffc0,0x0000,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  7282. +         0x0400,0x0000,0x0000,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  7283. +         0x04ff,0xffff,0xfe00,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  7284. +         0x04ff,0xffff,0xfe00,0x8c00,0x0400,0x0000,0x0000,0x8c00,
  7285. +         0x07ff,0xffff,0xffff,0x8c00,0x0000,0x0000,0x0000,0x0c00,
  7286. +         0x0000,0x0000,0x0000,0x0c00,0x7fff,0xffff,0xffff,0xfc00
  7287. +     },
  7288. +     {
  7289. +         0xffff,0xffff,0xffff,0xf800,0x8000,0x0000,0x0000,0x0000,
  7290. +         0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000,
  7291. +         0x83ff,0xffff,0xffc0,0x0000,0x83ff,0xffff,0xffd0,0x0000,
  7292. +         0x8300,0x0000,0x01d8,0x0000,0x83ff,0xffff,0xffdc,0x0000,
  7293. +         0x8300,0x0000,0x01c0,0x0000,0x83ff,0xffff,0xffff,0x0000,
  7294. +         0x8300,0x003f,0xffff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  7295. +         0x83ff,0xffff,0xffff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  7296. +         0x8300,0x0000,0x01ff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  7297. +         0x8300,0x0000,0x01ff,0x0000,0x83ff,0xffff,0xffff,0x0000,
  7298. +         0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000,
  7299. +         0x8000,0x0000,0x0000,0x0000,0x8000,0x0000,0x0000,0x0000
  7300. +     },
  7301. + };
  7302. + struct Image far emacs_file_icon_image = {
  7303. +   0, 0,
  7304. +   emacs_file_icon_width, emacs_file_icon_height, emacs_file_icon_num_planes,
  7305. +   (UWORD *)emacs_file_icon_data,
  7306. +   3, 0,
  7307. +   0
  7308. + };
  7309. + 
  7310. + static char *far emacs_file_tooltypes[] = {
  7311. +   "FILETYPE=TEXT",
  7312. +   0
  7313. + };
  7314. + 
  7315. + static char far emacs_tool[EMACS_TOOL_SIZE];
  7316. + 
  7317. + static struct DiskObject far emacs_file_icon_object = {
  7318. +   WB_DISKMAGIC, WB_DISKVERSION,
  7319. +   { 0, 0, 0, emacs_file_icon_width, emacs_file_icon_height,
  7320. +     GFLG_GADGIMAGE | GADGBACKFILL, GACT_IMMEDIATE | GACT_RELVERIFY, GTYP_BOOLGADGET,
  7321. +     (APTR)&emacs_file_icon_image },
  7322. +   WBPROJECT, emacs_tool, emacs_file_tooltypes,
  7323. +   NO_ICON_POSITION, NO_ICON_POSITION,
  7324. +   0, 0,
  7325. +   40000                /* Stack size for emacs */
  7326. + };
  7327. + 
  7328. + DEFUN ("amiga-put-icon", Famiga_put_icon, Samiga_put_icon, 2, 2, 0,
  7329. +        "Create an icon for FILE.\n\
  7330. + If FORCE is non-nil create it unconditionally, otherwise only if one doesn't exist.\n\
  7331. + Returns t if an icon was created, nil otherwise.")
  7332. +      (file, force)
  7333. + Lisp_Object file, force;
  7334. + {
  7335. +   char *fname;
  7336. +   struct DiskObject *obj;
  7337. + 
  7338. +   CHECK_STRING(file, 0);
  7339. +   fname = XSTRING(file)->data;
  7340. + 
  7341. +   if (NULL (force) && (obj = GetDiskObject(fname)))
  7342. +     {
  7343. +       /* Icon exists, don't overwrite */
  7344. +       FreeDiskObject(obj);
  7345. +       return Qnil;
  7346. +     }
  7347. +   emacs_file_icon_object.do_StackSize = _stack_size;
  7348. +   if (PutDiskObject(fname, &emacs_file_icon_object)) return Qt;
  7349. +   error("Icon for %s couldn't be created", fname);
  7350. + }
  7351. + 
  7352. + /* Amiga initialisation routines */
  7353. + /* ----------------------------- */
  7354. + 
  7355. + syms_of_amiga ()
  7356. + {
  7357. +   DEFVAR_BOOL("amiga-initialized", &amiga_initialized, "");
  7358. +   DEFVAR_INT("amiga-malloc-bytes-used", &malloc_bytes_used,
  7359. +          "Number of malloc bytes used when emacs was dumped");
  7360. +   DEFVAR_BOOL("amiga-create-icons", &amiga_create_icons,
  7361. +          "If non-nil, create icons when saving files.");
  7362. +   defsubr(&Samiga_put_icon);
  7363. +   amiga_process_stack_size = 0;
  7364. +   DEFVAR_INT("amiga-process-stack-size", &amiga_process_stack_size,
  7365. +      "Size of stack for called processes. 0 means same size as emacs stack.");
  7366. +   syms_of_amiga_tty();
  7367. +   syms_of_amiga_menu();
  7368. +   syms_of_amiga_clipboard();
  7369. + }
  7370. + 
  7371. + static void amiga_early_init(int *_argc, char ***_argv)
  7372. + {
  7373. +   int argc = *_argc;
  7374. +   char **argv = *_argv;
  7375. + 
  7376. +   if (argc > 2 && !strcmp(argv[1], "-pure"))
  7377. +     {
  7378. +       puresize = atoi(argv[2]);
  7379. +       argc -= 2; argv += 2;
  7380. +     }
  7381. +   if (argc > 2 && !strcmp(argv[1], "-malloc"))
  7382. +     {
  7383. +       malloc_hunk_size = atoi(argv[2]);
  7384. +       argc -= 2; argv += 2;
  7385. +     }
  7386. +   if (argc > 2 && !strcmp(argv[1], "-prealloc"))
  7387. +     {
  7388. +       pre_alloc = atoi(argv[2]);
  7389. +       argc -= 2; argv += 2;
  7390. +     }
  7391. +   /* Handle the -dev switch, which specifies device & unit to use as terminal */
  7392. +   if (argc > 3 && !strcmp (argv[1], "-dev"))
  7393. +     {
  7394. +       extern char *far serial_device;
  7395. +       extern long far serial_unit;
  7396. + 
  7397. +       serial_device = argv[2];
  7398. +       serial_unit = atoi(argv[3]);
  7399. +       fprintf (stderr, "Using %s (unit %d)\n", serial_device ,serial_unit);
  7400. +       argc -= 3; argv += 3;
  7401. +     }
  7402. +   /* Patch real argc, argv to hide arguments we used */
  7403. +   argv[0] = (*_argv)[0];
  7404. +   *_argv = argv;
  7405. +   *_argc = argc;
  7406. + 
  7407. +   expand_path(argv[0], emacs_tool, EMACS_TOOL_SIZE);
  7408. + }
  7409. + 
  7410. + void cleanup_amiga(void)
  7411. + {
  7412. +   cleanup_clipboard();
  7413. +   cleanup_amiga_tty();
  7414. +   if (IconBase) CloseLibrary(IconBase);
  7415. + }
  7416. + 
  7417. + void amiga_undump_reinit(void)
  7418. + /* Post-undump initialisation */
  7419. + {
  7420. +   extern struct WBStartup *_WBenchMsg;
  7421. + 
  7422. +   emacs_malloc_init();
  7423. +   early_amiga_tty();
  7424. +   early_clipboard();
  7425. + 
  7426. +   if (!onexit(cleanup_amiga)) _fail("Internal problem with onexit");
  7427. + 
  7428. +   make_environ();
  7429. +   IconBase = OpenLibrary("icon.library", 0);
  7430. +   if (!IconBase) _fail("Need icon.library");
  7431. +   amiga_create_icons = _WBenchMsg != 0;
  7432. + 
  7433. +   init_amiga_tty(); init_clipboard();
  7434. + }
  7435. + 
  7436. + #undef main
  7437. + main(int argc, char **argv)
  7438. + /* Effect: Call emacs_main after doing some early amiga initialisation for emacs.
  7439. + */
  7440. + {
  7441. +   /* This initialisation may steal some command line options */
  7442. +   amiga_early_init(&argc, &argv);
  7443. +   emacs_main(argc, argv);
  7444. + }
  7445. diff -rcP emacs-18.59-fsf/src/amiga_term.c emacs-18.59-amiga/src/amiga_term.c
  7446. *** emacs-18.59-fsf/src/amiga_term.c    Thu Jan  1 00:00:00 1970
  7447. --- emacs-18.59-amiga/src/amiga_term.c    Tue Mar 23 09:45:12 1993
  7448. ***************
  7449. *** 0 ****
  7450. --- 1,388 ----
  7451. + /* Amiga terminal control routines.
  7452. +    Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
  7453. + 
  7454. + This file is part of GNU Emacs.
  7455. + 
  7456. + GNU Emacs is free software; you can redistribute it and/or modify
  7457. + it under the terms of the GNU General Public License as published by
  7458. + the Free Software Foundation; either version 1, or (at your option)
  7459. + any later version.
  7460. + 
  7461. + GNU Emacs is distributed in the hope that it will be useful,
  7462. + but WITHOUT ANY WARRANTY; without even the implied warranty of
  7463. + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  7464. + GNU General Public License for more details.
  7465. + 
  7466. + You should have received a copy of the GNU General Public License
  7467. + along with GNU Emacs; see the file COPYING.  If not, write to
  7468. + the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  7469. + 
  7470. + 
  7471. + #include <stdio.h>
  7472. + #include <ctype.h>
  7473. + #include "config.h"
  7474. + #include "termhooks.h"
  7475. + #include "termchar.h"
  7476. + #include "termopts.h"
  7477. + 
  7478. + /* internal state */
  7479. + 
  7480. + /* nonzero means supposed to write text in standout mode.  */
  7481. + static int standout_requested;
  7482. + 
  7483. + static int standout_mode;    /* Nonzero when in standout mode.  */
  7484. + 
  7485. + static char tens[100] = {
  7486. +     '0', '0', '0', '0', '0', '0', '0', '0', '0', '0',
  7487. +     '1', '1', '1', '1', '1', '1', '1', '1', '1', '1',
  7488. +     '2', '2', '2', '2', '2', '2', '2', '2', '2', '2',
  7489. +     '3', '3', '3', '3', '3', '3', '3', '3', '3', '3',
  7490. +     '4', '4', '4', '4', '4', '4', '4', '4', '4', '4',
  7491. +     '5', '5', '5', '5', '5', '5', '5', '5', '5', '5',
  7492. +     '6', '6', '6', '6', '6', '6', '6', '6', '6', '6',
  7493. +     '7', '7', '7', '7', '7', '7', '7', '7', '7', '7',
  7494. +     '8', '8', '8', '8', '8', '8', '8', '8', '8', '8',
  7495. +     '9', '9', '9', '9', '9', '9', '9', '9', '9', '9',
  7496. + };
  7497. + 
  7498. + static char ones[100] = {
  7499. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7500. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7501. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7502. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7503. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7504. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7505. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7506. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7507. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7508. +     '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
  7509. + };
  7510. + 
  7511. + #define addnum(str, num) if (num < 100) \
  7512. +                              { *--str = ones[num]; *--str = tens[num]; } \
  7513. +                          else do { *--str = '0' + num % 10; num /= 10; } while (num != 0)
  7514. + 
  7515. + static background_highlight ();
  7516. + static turn_off_highlight ();
  7517. + 
  7518. + 
  7519. + /* Cursor motion stuff (from cm.c) */
  7520. + static int curX, curY;
  7521. + 
  7522. + /* Move to absolute position, specified origin 0 */
  7523. + 
  7524. + Amove_cursor (row, col)
  7525. + {
  7526. +   char buf[32], *pos = buf + 32;
  7527. + 
  7528. +   if (curY == row && curX == col)
  7529. +     return;
  7530. + 
  7531. +   curX = col; curY = row;
  7532. +   *--pos = 'H';
  7533. +   col = col + 1; row = row + 1;
  7534. +   addnum(pos, col);
  7535. +   *--pos = ';';
  7536. +   addnum(pos, row);
  7537. +   *--pos = 0x9b;
  7538. +   emacs_output(pos, buf + 32 - pos);
  7539. +   if (pos < buf) abort();
  7540. + }
  7541. + 
  7542. + 
  7543. + Aring_bell ()
  7544. + {
  7545. +   emacs_output("\07", 1);
  7546. + }
  7547. + 
  7548. + Aset_terminal_modes ()
  7549. + {
  7550. + }
  7551. + 
  7552. + Areset_terminal_modes ()
  7553. + {
  7554. +   turn_off_highlight ();
  7555. + }
  7556. + 
  7557. + Aupdate_begin ()
  7558. + {
  7559. +   /* Hide cursor */
  7560. +   emacs_output("\x9b\x30\x20\x70", 4);
  7561. + }
  7562. + 
  7563. + Aupdate_end ()
  7564. + {
  7565. +   background_highlight ();
  7566. +   standout_requested = 0;
  7567. +   emacs_output("\x9b\x20\x70", 3); /* Show cursor */
  7568. + }
  7569. + 
  7570. + 
  7571. + /* Handle highlighting when TN_standout_width (termcap sg) is not specified.
  7572. +    In these terminals, output is affected by the value of standout
  7573. +    mode when the output is written.
  7574. + 
  7575. +    These functions are called on all terminals, but do nothing
  7576. +    on terminals whose standout mode does not work that way.  */
  7577. + 
  7578. + static turn_off_highlight ()
  7579. + {
  7580. +   if (standout_mode)
  7581. +     {
  7582. +       extern int background, foreground;      
  7583. +       extern int inverse_fill_pen, inverse_text_pen;
  7584. +       int b = background + 40, f = foreground + 30;
  7585. +       if(inverse_fill_pen < 8 && inverse_text_pen < 8)
  7586. +     {
  7587. +       char buf[32], *pos = buf + 32;
  7588. +       /* UnDo inverse fill */
  7589. +       *--pos = '\0';
  7590. +       *--pos = 'm';
  7591. +       addnum(pos, b);
  7592. +       *--pos = ';';
  7593. +       /* UnDo inverse text */
  7594. +       addnum(pos, f);
  7595. +       *--pos = 0x9b;
  7596. +       emacs_output(pos, buf + 32 - pos);
  7597. +     }
  7598. +       else
  7599. +     {
  7600. +       emacs_output("\x9b""27m", 4);
  7601. +     }
  7602. +     }
  7603. +   standout_mode = 0;
  7604. + }
  7605. + 
  7606. + static turn_on_highlight ()
  7607. + {
  7608. +   if (!standout_mode)
  7609. +     {
  7610. +       extern int inverse_fill_pen, inverse_text_pen;
  7611. +       int b = inverse_fill_pen + 40, f = inverse_text_pen + 30;
  7612. +       if(inverse_fill_pen < 8 && inverse_text_pen < 8)
  7613. +     {
  7614. +       char buf[32], *pos = buf + 32;
  7615. +       /* Do inverse fill */
  7616. +       *--pos = '\0';
  7617. +       *--pos = 'm';
  7618. +       addnum(pos, b);
  7619. +       *--pos = ';';
  7620. + 
  7621. +       /* Do inverse text */
  7622. +       addnum(pos, f);
  7623. +       *--pos = 0x9b;
  7624. +       emacs_output(pos, buf + 32 - pos);
  7625. +     }
  7626. +       else
  7627. +     {
  7628. +       emacs_output("\x9b\x37m", 3);
  7629. +     }
  7630. +     }
  7631. +   standout_mode = 1;
  7632. + }
  7633. + 
  7634. + /* Set standout mode to the state it should be in for
  7635. +    empty space inside windows.  What this is,
  7636. +    depends on the user option inverse-video.  */
  7637. + 
  7638. + static background_highlight ()
  7639. + {
  7640. +   if (inverse_video)
  7641. +     turn_on_highlight ();
  7642. +   else
  7643. +     turn_off_highlight ();
  7644. + }
  7645. + 
  7646. + /* Set standout mode to the mode specified for the text to be output.  */
  7647. + 
  7648. + static
  7649. + highlight_if_desired ()
  7650. + {
  7651. +   if (!inverse_video == !standout_requested)
  7652. +     turn_off_highlight ();
  7653. +   else
  7654. +     turn_on_highlight ();
  7655. + }
  7656. + 
  7657. + /* External interface to control of standout mode.
  7658. +    Call this when about to modify line at position VPOS
  7659. +    and not change whether it is highlighted.  */
  7660. + 
  7661. + Areassert_line_highlight (highlight, vpos)
  7662. +      int highlight;
  7663. +      int vpos;
  7664. + {
  7665. +   standout_requested = highlight;
  7666. + }
  7667. + 
  7668. + /* Call this when about to modify line at position VPOS
  7669. +    and change whether it is highlighted.  */
  7670. + 
  7671. + Achange_line_highlight (new_highlight, vpos, first_unused_hpos)
  7672. +      int new_highlight, vpos, first_unused_hpos;
  7673. + {
  7674. +   standout_requested = new_highlight;
  7675. + 
  7676. +   move_cursor (vpos, 0);
  7677. + 
  7678. +   background_highlight ();
  7679. +   clear_end_of_line (first_unused_hpos);
  7680. +   reassert_line_highlight (new_highlight, curY);
  7681. + }
  7682. + 
  7683. + /* Erase operations */
  7684. + 
  7685. + /* clear from cursor to end of screen */
  7686. + Aclear_to_end ()
  7687. + {
  7688. +   background_highlight ();
  7689. +   emacs_output("\x9bJ", 2);
  7690. + }
  7691. + 
  7692. + /* Clear entire screen */
  7693. + 
  7694. + Aclear_screen ()
  7695. + {
  7696. +   background_highlight ();
  7697. +   emacs_output("\f", 1);
  7698. +   curX = curY = 0;
  7699. + }
  7700. + 
  7701. + /* Clear to end of line, but do not clear any standout marker.
  7702. +    Assumes that the cursor is positioned at a character of real text,
  7703. +    which implies it cannot be before a standout marker
  7704. +    unless the marker has zero width.
  7705. + 
  7706. +    Note that the cursor may be moved.  */
  7707. + 
  7708. + Aclear_end_of_line (first_unused_hpos)
  7709. +      int first_unused_hpos;
  7710. + {
  7711. +   if (curX >= first_unused_hpos)
  7712. +     return;
  7713. + 
  7714. +   background_highlight ();
  7715. +   emacs_output("\x9bK", 2);
  7716. + }
  7717. + 
  7718. + Aoutput_chars (string, len)
  7719. +      register char *string;
  7720. +      int len;
  7721. + {
  7722. +   highlight_if_desired ();
  7723. + 
  7724. +   curX += len;
  7725. +   emacs_output(string, len);
  7726. + }
  7727. + 
  7728. + /* If start is zero, insert blanks instead of a string at start */
  7729. + 
  7730. + Ainsert_chars (start, len)
  7731. +      register char *start;
  7732. +      int len;
  7733. + {
  7734. +   char buf[32], *pos = buf + 32;
  7735. + 
  7736. +   highlight_if_desired ();
  7737. + 
  7738. +   *--pos = '@';
  7739. +   addnum(pos, len);
  7740. +   *--pos = 0x9b;
  7741. +   emacs_output(pos, buf + 32 - pos);
  7742. +   if (pos < buf) abort();
  7743. +   if (start) emacs_output(start, len);
  7744. + }
  7745. + 
  7746. + Adelete_chars (n)
  7747. +      register int n;
  7748. + {
  7749. +   char buf[32], *pos = buf + 32;
  7750. + 
  7751. +   *--pos = 'P';
  7752. +   addnum(pos, n);
  7753. +   *--pos = 0x9b;
  7754. +   emacs_output(pos, buf + 32 - pos);
  7755. +   if (pos < buf) abort();
  7756. + }
  7757. + 
  7758. + /* Insert N lines at vpos VPOS.  If N is negative, delete -N lines.  */
  7759. + 
  7760. + Ains_del_lines (vpos, n)
  7761. +      int vpos, n;
  7762. + {
  7763. +   register int i = n > 0 ? n : -n;
  7764. +   char buf[32], *pos = buf + 32;
  7765. + 
  7766. +   if (n > 0)
  7767. +     {
  7768. +       i = n;
  7769. +       *--pos = 'L';
  7770. +     }
  7771. +   else
  7772. +     {
  7773. +       i = -n;
  7774. +       *--pos = 'M';
  7775. +     }
  7776. +   if (vpos + i >= screen_height) return;
  7777. + 
  7778. +   move_cursor (vpos, 0);
  7779. +   background_highlight ();
  7780. +   addnum(pos, i);
  7781. +   *--pos = 0x9b;
  7782. +   emacs_output(pos, buf + 32 - pos);
  7783. +   if (pos < buf) abort();
  7784. + }
  7785. + 
  7786. + Acalculate_costs (extra, costvec, ncostvec)
  7787. +      int extra;
  7788. +      int *costvec, *ncostvec;
  7789. + {
  7790. +   CalcLID(2, 40, extra, 0, costvec, ncostvec);
  7791. + }
  7792. + 
  7793. + Aset_terminal_window (size)
  7794. + int size;
  7795. + {
  7796. + }
  7797. + 
  7798. + 
  7799. + amiga_term_init ()
  7800. + {
  7801. +   must_write_spaces = FALSE;
  7802. +   min_padding_speed = 0;
  7803. +   memory_below_screen = FALSE;
  7804. +   meta_key = TRUE;
  7805. +   scroll_region_ok = FALSE;
  7806. +   line_ins_del_ok = FALSE;    /* much cleaner display when FALSE  -ch3/19/93. */
  7807. +   char_ins_del_ok = FALSE;
  7808. +   fast_clear_end_of_line = TRUE;
  7809. +   no_redraw_on_reenter = FALSE;
  7810. + 
  7811. +   clear_screen_hook = Aclear_screen;
  7812. +   clear_end_of_line_hook = Aclear_end_of_line;
  7813. +   clear_to_end_hook = Aclear_to_end;
  7814. +   ins_del_lines_hook = Ains_del_lines;
  7815. +   change_line_highlight_hook = Achange_line_highlight;
  7816. +   insert_chars_hook = Ainsert_chars;
  7817. +   output_chars_hook = Aoutput_chars;
  7818. +   delete_chars_hook = Adelete_chars;
  7819. +   ring_bell_hook = Aring_bell;
  7820. +   reset_terminal_modes_hook = Areset_terminal_modes;
  7821. +   set_terminal_modes_hook = Aset_terminal_modes;
  7822. +   update_begin_hook = Aupdate_begin;
  7823. +   update_end_hook = Aupdate_end;
  7824. +   set_terminal_window_hook = Aset_terminal_window;
  7825. +   move_cursor_hook = Amove_cursor;
  7826. +   reassert_line_highlight_hook = Areassert_line_highlight;
  7827. + 
  7828. +   dont_calculate_costs = 1;
  7829. +   calculate_costs_hook = Acalculate_costs;
  7830. + 
  7831. +   /* Get screen size from system, or else from somewhere ...  */
  7832. +   get_screen_size (&screen_width, &screen_height);
  7833. +   /* Random defaults to avoid any problems */
  7834. +   if (screen_width <= 0) screen_width = 80;
  7835. +   if (screen_height <= 0) screen_height = 23;
  7836. + 
  7837. +   init_baud_rate ();
  7838. + }
  7839. diff -rcP emacs-18.59-fsf/src/amiga_tty.c emacs-18.59-amiga/src/amiga_tty.c
  7840. *** emacs-18.59-fsf/src/amiga_tty.c    Thu Jan  1 00:00:00 1970
  7841. --- emacs-18.59-amiga/src/amiga_tty.c    Sat Jun  5 13:20:50 1993
  7842. ***************
  7843. *** 0 ****
  7844. --- 1,305 ----
  7845. + #include "config.h"
  7846. + #undef NULL
  7847. + #include "lisp.h"
  7848. + #include "termchar.h"
  7849. + 
  7850. + #include <stdio.h>
  7851. + #include <errno.h>
  7852. + #include <internal/files.h>
  7853. + #include <internal/vars.h>
  7854. + 
  7855. + #undef LONGBITS
  7856. + 
  7857. + #include <exec/types.h>
  7858. + #include <dos/dos.h>
  7859. + #include <proto/exec.h>
  7860. + 
  7861. + #include "amiga.h"
  7862. + #include "termhooks.h"
  7863. + 
  7864. + static int term_initialised;
  7865. + ULONG inputsig;
  7866. + 
  7867. + /* A few tty system dependent routines unused on the Amiga */
  7868. + 
  7869. + setpgrp_of_tty(int pid) {}
  7870. + init_sigio() {}
  7871. + reset_sigio() {}
  7872. + request_sigio() {}
  7873. + unrequest_sigio() {}
  7874. + 
  7875. + /* Return nonzero if safe to use tabs in output.
  7876. +    At the time this is called, init_sys_modes has not been done yet.  */
  7877. + 
  7878. + tabs_safe_p()
  7879. + {
  7880. +   if (noninteractive)
  7881. +     return 1;
  7882. + 
  7883. +   return 0;            /* Not safe on Amiga !? */
  7884. + }
  7885. + 
  7886. + /* Get terminal size from system.
  7887. +    Store number of lines into *heightp and width into *widthp.
  7888. +    If zero or a negative number is stored, the value is not valid.  */
  7889. + 
  7890. + get_screen_size (widthp, heightp)
  7891. +      int *widthp, *heightp;
  7892. + {
  7893. +     if (term_initialised && !inhibit_window_system)
  7894. +     get_window_size(widthp, heightp);
  7895. +     else /* We don't known what size the terminal is */
  7896. +     {
  7897. +     *widthp = 0;
  7898. +     *heightp = 0;
  7899. +     }
  7900. + }
  7901. + 
  7902. + init_baud_rate ()
  7903. + {
  7904. +   if (noninteractive || !term_initialised) baud_rate = 1200;
  7905. +   else if (!inhibit_window_system) baud_rate = 38400;
  7906. +   else baud_rate = serial_baud_rate();
  7907. + }
  7908. + 
  7909. + void check_intuition ()
  7910. + {
  7911. +     if (noninteractive || inhibit_window_system)
  7912. +         error ("You aren't using a window.");
  7913. + }
  7914. + 
  7915. + #define TTYBUFSIZE 256        /* Same size as kbd_buffer */
  7916. + static char ttybuf[TTYBUFSIZE];
  7917. + static int tty_count;
  7918. + #define TTYPUT(c) { if (tty_count < TTYBUFSIZE) ttybuf[tty_count++] = c; }
  7919. + 
  7920. + static int interrupt_char;
  7921. + 
  7922. + void enque(unsigned int c, int meta)
  7923. + /* place input keys in keyboard buffer
  7924. +    If high bit is set, precede character with ^Q (hack).
  7925. +    If meta is true, set high bit.
  7926. +    If both the high bit & meta are true, we have a problem. Ignore it.
  7927. +    If c == AMIGASEQ (256) enqueue the amiga sequence introducer (C-x C-^)
  7928. + */
  7929. + {
  7930. +   /* Hack CSI to be AMIGASEQ (to allow defining function keys, etc) */
  7931. +   if (c == 0233 || c == AMIGASEQ)
  7932. +     {
  7933. +       TTYPUT('x' & 037);
  7934. +       TTYPUT('^' & 037);
  7935. +     }
  7936. +   else if (c >= 0200)    /* Special character, precede with ^Q */
  7937. +     {
  7938. +       TTYPUT('q' & 037);
  7939. +       TTYPUT(c);
  7940. +     }
  7941. +   else
  7942. +     {
  7943. +       if (meta) c |= 0200;
  7944. +       if (c == interrupt_char) Signal(_us, SIGBREAKF_CTRL_C);
  7945. +       else TTYPUT(c);
  7946. +     }
  7947. + }
  7948. + 
  7949. + int get_ttycount(void)
  7950. + {
  7951. +   return tty_count;
  7952. + }
  7953. + 
  7954. + init_sys_modes ()
  7955. + {
  7956. +   extern int quit_char;
  7957. + 
  7958. +   if (noninteractive)
  7959. +     return;
  7960. + 
  7961. +   if (inhibit_window_system) clear_screen();
  7962. + 
  7963. +   interrupt_char = quit_char;
  7964. +   if (!inhibit_window_system) setup_intchar(interrupt_char);
  7965. + }
  7966. + 
  7967. + reset_sys_modes ()
  7968. + {
  7969. +   if (noninteractive)
  7970. +     {
  7971. +       fflush (stdout);
  7972. +       return;
  7973. +     }
  7974. +   move_cursor (screen_height - 1, 0);
  7975. +   clear_end_of_line (screen_width);
  7976. +   /* clear_end_of_line may move the cursor */
  7977. +   move_cursor (screen_height - 1, 0);
  7978. + }
  7979. + 
  7980. + void amiga_consume_input(void)
  7981. + {
  7982. +   extern int this_command_key_count;
  7983. +   int force = this_command_key_count == 0;
  7984. +   /* If force is TRUE & some non-keyboard (eg mouse events) input is pending,
  7985. +      insert the appropriate magic sequence in the input stream */
  7986. + 
  7987. +   if (term_initialised)
  7988. +     {
  7989. +       if (!inhibit_window_system) check_window(force);
  7990. +       else check_serial(force);
  7991. +       check_arexx(force, TRUE);
  7992. +     }
  7993. + }
  7994. + 
  7995. + discard_tty_input ()
  7996. + {
  7997. +   if (noninteractive)
  7998. +     return;
  7999. + 
  8000. +   amiga_consume_input();
  8001. +   tty_count = 0;
  8002. +   chkabort();
  8003. + }
  8004. + 
  8005. + /* Code for the fd describing the emacs input (terminal or window) */
  8006. + 
  8007. + static ULONG __regargs ttyin_select_start(void *userinfo, int rd, int wr)
  8008. + {
  8009. +   if (!inhibit_window_system) force_window();
  8010. + 
  8011. +   return tty_count ? -1 : inputsig;
  8012. + }
  8013. + 
  8014. + static void __regargs ttyin_select_poll(void *userinfo, int *rd, int *wr)
  8015. + {
  8016. +   amiga_consume_input();
  8017. +   if (!tty_count) *rd = 0;
  8018. + }
  8019. + 
  8020. + static int __regargs ttyin_read(void *userinfo, void *buffer, unsigned int length)
  8021. + {
  8022. +   amiga_consume_input();
  8023. +   if (length > tty_count) length = tty_count;
  8024. +   memcpy(buffer, ttybuf, length);
  8025. +   tty_count -= length;
  8026. +   if (tty_count) memmove(ttybuf, ttybuf + length, tty_count - length);
  8027. + 
  8028. +   return (int)length;
  8029. + }
  8030. + 
  8031. + static int __regargs ttyin_write(void *userinfo, void *buffer, unsigned int length)
  8032. + {
  8033. +   errno = EACCES;
  8034. +   return -1;
  8035. + }
  8036. + 
  8037. + static int __regargs ttyin_lseek(void *userinfo, long rpos, int mode)
  8038. + {
  8039. +   errno = ESPIPE;
  8040. +   return -1;
  8041. + }
  8042. + 
  8043. + static int __regargs ttyin_close(void *userinfo, int internal)
  8044. + {
  8045. +   return 0;
  8046. + }
  8047. + 
  8048. + static int __regargs ttyin_ioctl(void *userinfo, int request, void *data)
  8049. + {
  8050. +   errno = EINVAL;
  8051. +   return -1;
  8052. + }
  8053. + 
  8054. + #define CBUFSIZE 1024
  8055. + #undef fwrite
  8056. + #undef fflush
  8057. + 
  8058. + char cbuffer[CBUFSIZE + 16], *cbuffer_pos;
  8059. + 
  8060. + int emacs_fflush(FILE *f)
  8061. + {
  8062. +     if (noninteractive || f != stdout) return fflush(f);
  8063. +     else
  8064. +     {
  8065. +     int len;
  8066. + 
  8067. +     len = cbuffer_pos - cbuffer;
  8068. +     if (term_initialised)
  8069. +         if (!inhibit_window_system) screen_puts(cbuffer, len);
  8070. +         else serial_puts(cbuffer, len);
  8071. +     if (termscript) fwrite (cbuffer, 1, len, termscript);
  8072. +     cbuffer_pos = cbuffer;
  8073. + 
  8074. +     return 0;
  8075. +     }
  8076. + }
  8077. + 
  8078. + void emacs_putchar(int c)
  8079. + {
  8080. +     if (cbuffer_pos >= cbuffer + CBUFSIZE) emacs_fflush(stdout);
  8081. +     *cbuffer_pos++ = c;
  8082. + }
  8083. + 
  8084. + void emacs_output(char *str, int size)
  8085. + {
  8086. +     if (cbuffer_pos + size > cbuffer + CBUFSIZE) emacs_fflush(stdout);
  8087. +     if (size > CBUFSIZE)
  8088. +     {
  8089. +     if (term_initialised)
  8090. +         if (!inhibit_window_system) screen_puts(str, size);
  8091. +         else serial_puts(str, size);
  8092. +     }
  8093. +     else
  8094. +     {
  8095. +     memcpy(cbuffer_pos, str, size);
  8096. +     cbuffer_pos += size;
  8097. +     }
  8098. + }
  8099. + 
  8100. + void emacs_fwrite(char *str, unsigned int nblocks, unsigned int len, FILE *f)
  8101. + {
  8102. +     if (noninteractive || f != stdout) fwrite (str, nblocks, len, f);
  8103. +     else
  8104. +     {
  8105. +     unsigned int size;
  8106. + 
  8107. +     if (nblocks == 1) size = len; /* Emacs always uses 1 "block" */
  8108. +     else size = nblocks * len;
  8109. + 
  8110. +     emacs_output(str, size);
  8111. +     }
  8112. + }
  8113. + 
  8114. + void syms_of_amiga_tty(void)
  8115. + {
  8116. +   syms_of_amiga_screen();
  8117. +   syms_of_amiga_rexx();
  8118. + }
  8119. + 
  8120. + void init_amiga_tty()
  8121. + {
  8122. +   inputsig = 0;
  8123. +   term_initialised = FALSE;
  8124. +   init_amiga_rexx();
  8125. + }
  8126. + 
  8127. + void cleanup_amiga_tty()
  8128. + {
  8129. +   cleanup_amiga_rexx();
  8130. +   cleanup_amiga_serial();
  8131. +   cleanup_amiga_screen();
  8132. + }
  8133. + 
  8134. + void early_amiga_tty()
  8135. + {
  8136. +   cbuffer_pos = cbuffer;
  8137. +   tty_count = 0;
  8138. + }
  8139. + 
  8140. + void amiga_term_open(void)
  8141. + {
  8142. +   inhibit_window_system ? init_amiga_serial() : init_amiga_screen();
  8143. +   close(0);
  8144. +   if (_alloc_fd((void *)1, FI_READ, ttyin_select_start, ttyin_select_poll, ttyin_read,
  8145. +         ttyin_write, ttyin_lseek, ttyin_close, ttyin_ioctl) == 0)
  8146. +     term_initialised = TRUE;
  8147. +   else _fail("Failed to initialise I/O, no memory ?");
  8148. + }
  8149. + 
  8150. diff -rcP emacs-18.59-fsf/src/buffer.c emacs-18.59-amiga/src/buffer.c
  8151. *** emacs-18.59-fsf/src/buffer.c    Wed May 13 19:39:33 1992
  8152. --- emacs-18.59-amiga/src/buffer.c    Sun Nov 22 10:13:24 1992
  8153. ***************
  8154. *** 1137,1143 ****
  8155.   #ifndef VMS
  8156.     /* Maybe this should really use some standard subroutine
  8157.        whose definition is filename syntax dependent.  */
  8158. !   if (buf[strlen (buf) - 1] != '/')
  8159.       strcat (buf, "/");
  8160.   #endif /* not VMS */
  8161.     current_buffer->directory = build_string (buf);
  8162. --- 1137,1147 ----
  8163.   #ifndef VMS
  8164.     /* Maybe this should really use some standard subroutine
  8165.        whose definition is filename syntax dependent.  */
  8166. !   if (buf[strlen (buf) - 1] != '/'
  8167. ! #ifdef AMIGA
  8168. ! && buf[strlen (buf) -1] != ':'
  8169. ! #endif /*AMIGA  */
  8170. ! )
  8171.       strcat (buf, "/");
  8172.   #endif /* not VMS */
  8173.     current_buffer->directory = build_string (buf);
  8174. diff -rcP emacs-18.59-fsf/src/callproc.c emacs-18.59-amiga/src/callproc.c
  8175. *** emacs-18.59-fsf/src/callproc.c    Sun Jul 12 03:26:01 1992
  8176. --- emacs-18.59-amiga/src/callproc.c    Sun Nov 22 10:13:32 1992
  8177. ***************
  8178. *** 124,134 ****
  8179.     CHECK_STRING (args[0], 0);
  8180.   
  8181.     if (nargs <= 1 || NULL (args[1]))
  8182. ! #ifdef VMS
  8183. !     args[1] = build_string ("NLA0:");
  8184. ! #else
  8185. !     args[1] = build_string ("/dev/null");
  8186. ! #endif /* not VMS */
  8187.     else
  8188.       args[1] = Fexpand_file_name (args[1], current_buffer->directory);
  8189.   
  8190. --- 124,130 ----
  8191.     CHECK_STRING (args[0], 0);
  8192.   
  8193.     if (nargs <= 1 || NULL (args[1]))
  8194. !     args[1] = build_string (PATH_NULL);
  8195.     else
  8196.       args[1] = Fexpand_file_name (args[1], current_buffer->directory);
  8197.   
  8198. ***************
  8199. *** 177,186 ****
  8200.   
  8201.     if (XTYPE (buffer) == Lisp_Int)
  8202.   #ifdef VMS
  8203. !     fd[1] = open ("NLA0:", 0), fd[0] = -1;
  8204.   #else
  8205. !     fd[1] = open ("/dev/null", O_WRONLY), fd[0] = -1;
  8206. ! #endif /* not VMS */
  8207.     else
  8208.       {
  8209.         pipe (fd);
  8210. --- 173,181 ----
  8211.   
  8212.     if (XTYPE (buffer) == Lisp_Int)
  8213.   #ifdef VMS
  8214. !     fd[1] = open (PATH_NULL, 0), fd[0] = -1;
  8215.   #else
  8216. !     fd[1] = open (PATH_NULL, O_WRONLY), fd[0] = -1;
  8217.     else
  8218.       {
  8219.         pipe (fd);
  8220. ***************
  8221. *** 193,198 ****
  8222. --- 188,209 ----
  8223.     synch_process_death = 0;
  8224.     synch_process_retcode = 0;
  8225.   
  8226. + #ifdef AMIGA
  8227. +   {
  8228. +     register unsigned char *temp;
  8229. + 
  8230. +     if (XTYPE (current_buffer->directory) == Lisp_String)
  8231. +       {
  8232. +     register int i;
  8233. + 
  8234. +     i = XSTRING (current_buffer->directory)->size;
  8235. +     temp = (unsigned char *) alloca (i + 1);
  8236. +     bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  8237. +     temp[i] = 0;
  8238. +       }
  8239. +     pid = exec(new_argv[0], new_argv, filefd, fd[1], temp, amiga_process_stack_size);
  8240. +   }
  8241. + #else  
  8242.     {
  8243.       /* child_setup must clobber environ in systems with true vfork.
  8244.          Protect it from permanent change.  */
  8245. ***************
  8246. *** 230,235 ****
  8247. --- 241,247 ----
  8248.       close (filefd);
  8249.       close (fd1);
  8250.     }
  8251. + #endif /* not AMIGA */
  8252.   
  8253.     if (pid < 0)
  8254.       {
  8255. ***************
  8256. *** 302,308 ****
  8257.     register Lisp_Object filename_string, start, end, status;
  8258.     char tempfile[20];
  8259.   
  8260. !   strcpy (tempfile, "/tmp/emacsXXXXXX");
  8261.     mktemp (tempfile);
  8262.   
  8263.     filename_string = build_string (tempfile);
  8264. --- 314,320 ----
  8265.     register Lisp_Object filename_string, start, end, status;
  8266.     char tempfile[20];
  8267.   
  8268. !   strcpy (tempfile, PATH_TEMP);
  8269.     mktemp (tempfile);
  8270.   
  8271.     filename_string = build_string (tempfile);
  8272. ***************
  8273. *** 318,323 ****
  8274. --- 330,336 ----
  8275.     unlink (tempfile);
  8276.     return status;
  8277.   }
  8278. + #ifndef AMIGA
  8279.   
  8280.   /* This is the last thing run in a newly forked inferior
  8281.      either synchronous or asynchronous.
  8282. ***************
  8283. *** 425,430 ****
  8284. --- 438,444 ----
  8285.     write (1, new_argv[0], strlen (new_argv[0]));
  8286.     _exit (1);
  8287.   }
  8288. + #endif /* not AMIGA */
  8289.   
  8290.   init_callproc ()
  8291.   {
  8292. ***************
  8293. *** 437,442 ****
  8294. --- 451,465 ----
  8295.     Vexec_path = decode_env_path (0, PATH_EXEC);
  8296.     Vexec_directory = Ffile_name_as_directory (Fcar (Vexec_path));
  8297.     Vexec_path = nconc2 (decode_env_path ("PATH", ""), Vexec_path);
  8298. + #ifdef AMIGA
  8299. +   {
  8300. +     char *amiga_path(), *apath = amiga_path();
  8301. + 
  8302. +     Vexec_path = nconc2 (decode_env_path (0, apath), Vexec_path);
  8303. +     Vexec_path = nconc2 (decode_env_path (0, "GNUEmacs:c"), Vexec_path);
  8304. +     free(apath);
  8305. +   }
  8306. + #endif  
  8307.   
  8308.     execdir = Fdirectory_file_name (Vexec_directory);
  8309.     if (access (XSTRING (execdir)->data, 0) < 0)
  8310. ***************
  8311. *** 447,453 ****
  8312.       }
  8313.   
  8314.     sh = (char *) egetenv ("SHELL");
  8315. !   Vshell_file_name = build_string (sh ? sh : "/bin/sh");
  8316.   
  8317.   #ifndef MAINTAIN_ENVIRONMENT
  8318.     /* The equivalent of this operation was done
  8319. --- 470,476 ----
  8320.       }
  8321.   
  8322.     sh = (char *) egetenv ("SHELL");
  8323. !   Vshell_file_name = build_string (sh ? sh : PATH_SHELL);
  8324.   
  8325.   #ifndef MAINTAIN_ENVIRONMENT
  8326.     /* The equivalent of this operation was done
  8327. diff -rcP emacs-18.59-fsf/src/dired.c emacs-18.59-amiga/src/dired.c
  8328. *** emacs-18.59-fsf/src/dired.c    Mon Mar 23 04:16:41 1992
  8329. --- emacs-18.59-amiga/src/dired.c    Sun Nov 22 10:13:54 1992
  8330. ***************
  8331. *** 385,391 ****
  8332. --- 385,395 ----
  8333.   
  8334.     bcopy (XSTRING (dirname)->data, fullname, pos);
  8335.   #ifndef VMS
  8336. + #ifdef AMIGA
  8337. +   if ((fullname[pos - 1] != '/')&&(fullname[pos - 1] != ':'))
  8338. + #else
  8339.     if (fullname[pos - 1] != '/')
  8340. + #endif
  8341.       fullname[pos++] = '/';
  8342.   #endif
  8343.   
  8344. diff -rcP emacs-18.59-fsf/src/dispnew.c emacs-18.59-amiga/src/dispnew.c
  8345. *** emacs-18.59-fsf/src/dispnew.c    Fri Jul 24 19:31:36 1992
  8346. --- emacs-18.59-amiga/src/dispnew.c    Sun Nov 22 10:14:00 1992
  8347. ***************
  8348. *** 674,684 ****
  8349. --- 674,700 ----
  8350.     int preempt_count = baud_rate / 2400 + 1;
  8351.     extern input_pending;
  8352.   
  8353. +   start_count(0);
  8354. + 
  8355.     if (screen_height == 0) abort (); /* Some bug zeros some core */
  8356.   
  8357.     if (force_redisplay)
  8358.       force = 1;
  8359.   
  8360. + #ifdef FAST_DISPLAY
  8361. +   /* Don't compute for i/d line if just want cursor motion. */
  8362. +   /* Don't allow preemption, etc either */
  8363. +   for (i = 0; i < screen_height; i++)
  8364. +     if (new_screen->enable[i])
  8365. +       break;
  8366. + 
  8367. +   if (i >= screen_height)
  8368. +     {
  8369. +       update_begin();
  8370. +       goto update_done;
  8371. +     }
  8372. + #endif
  8373. + 
  8374.     if (!force)
  8375.       detect_input_pending ();
  8376.     if (!force
  8377. ***************
  8378. *** 695,704 ****
  8379.     if (!line_ins_del_ok)
  8380.       inhibit_hairy_id = 1;
  8381.   
  8382.     /* Don't compute for i/d line if just want cursor motion. */
  8383.     for (i = 0; i < screen_height; i++)
  8384. !     if (new_screen->enable)
  8385.         break;
  8386.   
  8387.     /* Try doing i/d line, if not yet inhibited.  */
  8388.     if (!inhibit_hairy_id && i < screen_height)
  8389. --- 711,722 ----
  8390.     if (!line_ins_del_ok)
  8391.       inhibit_hairy_id = 1;
  8392.   
  8393. + #ifndef FAST_DISPLAY
  8394.     /* Don't compute for i/d line if just want cursor motion. */
  8395.     for (i = 0; i < screen_height; i++)
  8396. !     if (new_screen->enable[i])
  8397.         break;
  8398. + #endif
  8399.   
  8400.     /* Try doing i/d line, if not yet inhibited.  */
  8401.     if (!inhibit_hairy_id && i < screen_height)
  8402. ***************
  8403. *** 742,747 ****
  8404. --- 760,768 ----
  8405.         update_line (i);
  8406.       }
  8407.       }
  8408. + #ifdef FAST_DISPLAY
  8409. + update_done:
  8410. + #endif
  8411.     pause = (i < screen_height - 1) ? i + 1 : 0;
  8412.   
  8413.     /* Now just clean up termcap drivers and set cursor, etc.  */
  8414. ***************
  8415. *** 781,786 ****
  8416. --- 802,808 ----
  8417.       }
  8418.   
  8419.     bzero (new_screen->enable, screen_height);
  8420. +   stop_count(0);
  8421.     return pause;
  8422.   }
  8423.   
  8424. ***************
  8425. *** 894,899 ****
  8426. --- 916,972 ----
  8427.     else
  8428.       reassert_line_highlight (new_screen->highlight[vpos], vpos);
  8429.   
  8430. + #ifdef FAST_DISPLAY
  8431. +   if (current_screen->enable[vpos])
  8432. +   {
  8433. +       obody = current_screen->contents[vpos];
  8434. +       olen = current_screen->used[vpos];
  8435. +   }
  8436. +   else olen = 0;
  8437. + 
  8438. +   nbody = new_screen->contents[vpos];
  8439. +   nlen = new_screen->used[vpos];
  8440. +   
  8441. +   /* Pretend trailing spaces are not there at all,
  8442. +      unless for one reason or another we must write all spaces.  */
  8443. +   /* We know that the previous character byte contains 0.  */
  8444. +   if (! new_screen->highlight[vpos])
  8445. +   {
  8446. +       if (!must_write_spaces)
  8447. +       while (nbody[nlen - 1] == ' ')
  8448. +           nlen--;
  8449. +   }
  8450. +   else
  8451. +   {
  8452. +       /* For an inverse-video line, give it extra trailing spaces
  8453. +      all the way to the screen edge
  8454. +      so that the reverse video extends all the way across.  */
  8455. +       while (nlen < screen_width - 1)
  8456. +       nbody[nlen++] = ' ';
  8457. +   }
  8458. +   
  8459. +   while (olen > 0 && nlen > 0 && *obody == *nbody)
  8460. +   {
  8461. +       olen--; nlen--; obody++; nbody++;
  8462. +   }
  8463. +   if (olen > 0 || nlen > 0)
  8464. +       move_cursor (vpos, nbody - new_screen->contents[vpos]);
  8465. +   if (nlen > 0) output_chars (nbody, nlen);
  8466. +   
  8467. +   if (olen > nlen && new_screen->used[vpos] != screen_width)
  8468. +       clear_end_of_line(current_screen->used[vpos]);
  8469. +   /* Exchange contents between current_screen and new_screen.  */
  8470. +   temp = new_screen->contents[vpos];
  8471. +   new_screen->contents[vpos] = current_screen->contents[vpos];
  8472. +   current_screen->contents[vpos] = temp;
  8473. +   
  8474. +   /* One way or another, this will enable the line being updated.  */
  8475. +   current_screen->enable[vpos] = 1;
  8476. +   current_screen->used[vpos] = new_screen->used[vpos];
  8477. +   current_screen->highlight[vpos] = new_screen->highlight[vpos];
  8478. + 
  8479. + #else /* not FAST_DISPLAY */
  8480. + 
  8481.     /* ??? */
  8482.     if (! current_screen->enable[vpos])
  8483.       {
  8484. ***************
  8485. *** 1172,1177 ****
  8486. --- 1245,1251 ----
  8487.     temp = new_screen->contents[vpos];
  8488.     new_screen->contents[vpos] = current_screen->contents[vpos];
  8489.     current_screen->contents[vpos] = temp;
  8490. + #endif /* not FAST_DISPLAY */
  8491.   }
  8492.   
  8493.   count_blanks (str)
  8494. ***************
  8495. *** 1577,1584 ****
  8496. --- 1651,1668 ----
  8497.     cursor_in_echo_area = 0;
  8498.     terminal_type = (char *) 0;
  8499.   
  8500. + #ifdef AMIGA
  8501. +   amiga_term_open();
  8502. + #endif
  8503.     if (!inhibit_window_system)
  8504.       {
  8505. + #ifdef AMIGA
  8506. +       amiga_term_init();
  8507. +       /* Using Intuition V2.04 */
  8508. +       Vwindow_system = intern ("intuition");
  8509. +       Vwindow_system_version = make_number (2);
  8510. +       goto term_init_done;
  8511. + #endif /* AMIGA */
  8512.   #ifdef HAVE_X_WINDOWS
  8513.         extern char *alternate_display;
  8514.         char *disp = (char *) egetenv ("DISPLAY");
  8515. diff -rcP emacs-18.59-fsf/src/doc.c emacs-18.59-amiga/src/doc.c
  8516. *** emacs-18.59-fsf/src/doc.c    Tue Jan  8 17:25:38 1991
  8517. --- emacs-18.59-amiga/src/doc.c    Sun Nov 22 10:14:02 1992
  8518. ***************
  8519. *** 21,26 ****
  8520. --- 21,27 ----
  8521.   #include "config.h"
  8522.   #include "lisp.h"
  8523.   #include "buffer.h"
  8524. + #include "paths.h"
  8525.   
  8526.   #include <sys/types.h>
  8527.   #include <sys/file.h>    /* Must be after sys/types.h for USG and BSD4_1*/
  8528. ***************
  8529. *** 188,194 ****
  8530.   
  8531.   #ifndef CANNOT_DUMP
  8532.     name = (char *) alloca (XSTRING (filename)->size + 8);
  8533. !   strcpy (name, "../etc/");
  8534.   #else /* CANNOT_DUMP */
  8535.     CHECK_STRING (Vexec_directory, 0);
  8536.     name = (char *) alloca (XSTRING (filename)->size +
  8537. --- 189,195 ----
  8538.   
  8539.   #ifndef CANNOT_DUMP
  8540.     name = (char *) alloca (XSTRING (filename)->size + 8);
  8541. !   strcpy (name, RELPATH_DOC);
  8542.   #else /* CANNOT_DUMP */
  8543.     CHECK_STRING (Vexec_directory, 0);
  8544.     name = (char *) alloca (XSTRING (filename)->size +
  8545. diff -rcP emacs-18.59-fsf/src/dostrip.c emacs-18.59-amiga/src/dostrip.c
  8546. *** emacs-18.59-fsf/src/dostrip.c    Thu Jan  1 00:00:00 1970
  8547. --- emacs-18.59-amiga/src/dostrip.c    Sun Nov 22 10:14:02 1992
  8548. ***************
  8549. *** 0 ****
  8550. --- 1,23 ----
  8551. + #include <stdio.h>
  8552. + 
  8553. + #define SIZE 2048
  8554. + 
  8555. + main(int argc, char **argv)
  8556. + {
  8557. +     char buf[SIZE];
  8558. + 
  8559. +     buf[SIZE - 1] = 0;
  8560. +     while (fgets(buf, SIZE - 1, stdin))
  8561. +     {
  8562. +     if (buf[0] != '#')
  8563. +     {
  8564. +         char *p = buf, *e;
  8565. + 
  8566. +         while (*p && *p == ' ') p++;
  8567. +         e = p + strlen(p);
  8568. +         while (e > p && (e[-1] == ' ' || e[-1] == '\t' || e[-1] == '\n')) e--;
  8569. +         *e = '\0';
  8570. +         if (*p) puts(p);
  8571. +     }
  8572. +     }
  8573. + }
  8574. diff -rcP emacs-18.59-fsf/src/emacs.c emacs-18.59-amiga/src/emacs.c
  8575. *** emacs-18.59-fsf/src/emacs.c    Sat Oct 17 03:51:00 1992
  8576. --- emacs-18.59-amiga/src/emacs.c    Sun Nov 22 10:14:08 1992
  8577. ***************
  8578. *** 78,83 ****
  8579. --- 78,87 ----
  8580.   #endif
  8581.   #endif
  8582.   
  8583. + #ifdef AMIGA_DUMP
  8584. + #define HAVE_SHM        /* Simplifies the ifdefs */
  8585. + #endif
  8586. + 
  8587.   #ifndef O_RDWR
  8588.   #define O_RDWR 2
  8589.   #endif
  8590. ***************
  8591. *** 323,328 ****
  8592. --- 327,333 ----
  8593.     xargc = argc;
  8594.   #endif
  8595.   
  8596. + #ifndef AMIGA
  8597.   /* Handle the -t switch, which specifies filename to use as terminal */
  8598.     if (skip_args + 2 < argc && !strcmp (argv[skip_args + 1], "-t"))
  8599.       {
  8600. ***************
  8601. *** 336,341 ****
  8602. --- 341,347 ----
  8603.         inhibit_window_system = 1;    /* -t => -nw */
  8604.   #endif
  8605.       }
  8606. + #endif
  8607.   #ifdef HAVE_X_WINDOWS
  8608.   /* Handle the -d switch, which means use a different display for X */
  8609.     if (skip_args + 2 < argc && (!strcmp (argv[skip_args + 1], "-d") ||
  8610. ***************
  8611. *** 717,723 ****
  8612. --- 723,733 ----
  8613.   #ifdef VMS
  8614.   #define SEPCHAR ','
  8615.   #else
  8616. + #ifdef AMIGA            /* Can't use : on Amiga */
  8617. + #define SEPCHAR ','
  8618. + #else
  8619.   #define SEPCHAR ':'
  8620. + #endif
  8621.   #endif
  8622.   
  8623.   Lisp_Object
  8624. diff -rcP emacs-18.59-fsf/src/exec.c emacs-18.59-amiga/src/exec.c
  8625. *** emacs-18.59-fsf/src/exec.c    Thu Jan  1 00:00:00 1970
  8626. --- emacs-18.59-amiga/src/exec.c    Sat Oct 24 12:59:54 1992
  8627. ***************
  8628. *** 0 ****
  8629. --- 1,138 ----
  8630. + #include "amiga.h"
  8631. + #include "processes.h"
  8632. + #include <amiga/ioctl.h>
  8633. + #include <exec/memory.h>
  8634. + #include <dos/dosextens.h>
  8635. + #include <dos/dostags.h>
  8636. + #include <string.h>
  8637. + 
  8638. + int eexec(char *program, char **argv, int input, int output, int error,
  8639. +       char *dir, int stacksize)
  8640. + /* input = -1 -> inherit Input()
  8641. +    output = -1 -> inherit Output()
  8642. +    error = -1 -> inherit pr_CES
  8643. +    error = -2 -> stderr = stdout */
  8644. + {
  8645. +   int index, comsize, close_input, close_output, close_error;
  8646. +   char *combuf, *bp;
  8647. +   BPTR in, out, err, dirlock;
  8648. +   int _pseudo_close(int fd);
  8649. + 
  8650. +   comsize = 256;
  8651. +   combuf = malloc(comsize);
  8652. + 
  8653. +   if (input == -1)
  8654. +     {
  8655. +       in = Input();
  8656. +       close_input = FALSE;
  8657. +     }
  8658. +   else
  8659. +     {
  8660. +       if (ioctl(input, _AMIGA_GET_FH, &in) == -1) in = 0;
  8661. +       close_input = TRUE;
  8662. +       _pseudo_close(input);
  8663. +     }
  8664. + 
  8665. +   if (output == -1)
  8666. +     {
  8667. +       out = Output();
  8668. +       close_output = FALSE;
  8669. +     }
  8670. +   else
  8671. +     {
  8672. +       if (ioctl(output, _AMIGA_GET_FH, &out) == -1) out = 0;
  8673. +       close_output = out != in;
  8674. +       _pseudo_close(output);
  8675. +     }
  8676. + 
  8677. +   if (error == -1)
  8678. +     {
  8679. +       err = _us->pr_CES;
  8680. +       close_error = FALSE;
  8681. +     }
  8682. +   else if (error == -2)
  8683. +     {
  8684. +       err = out;
  8685. +       close_error = FALSE;
  8686. +     }
  8687. +   else
  8688. +     {
  8689. +       if (ioctl(error, _AMIGA_GET_FH, &err) == -1) err = 0;
  8690. +       close_error = err != out && err != in;
  8691. +       _pseudo_close(error);
  8692. +     }
  8693. + 
  8694. +   /* pr_CES is not always defined */
  8695. +   if (in && out && (err || error == -1))
  8696. +     if (combuf)
  8697. +       {
  8698. +     bp = combuf;
  8699. +     for (index = 0; argv[index] != 0; index++)
  8700. +       {
  8701. +         /* Use program as argv[0]. This loses some information, but ... */
  8702. +         char *arg = index == 0 ? program : argv[index];
  8703. +         char *s;
  8704. +         int len;
  8705. + 
  8706. +         len = 3;
  8707. +         s = arg;
  8708. +         while (*s)
  8709. +           {
  8710. +         len++;
  8711. +         if (*s == '*' || *s == '"' || *s == '\n') len++;
  8712. +         s++;
  8713. +           }
  8714. +         if (bp + len + 1 >= combuf + comsize)
  8715. +           {
  8716. +         char *newbuf;
  8717. + 
  8718. +         comsize += comsize + len;
  8719. +         newbuf = realloc(combuf, comsize);
  8720. +         if (!newbuf) { errno = ENOMEM; goto error; }
  8721. +         bp = newbuf + (bp - combuf);
  8722. +         combuf = newbuf;
  8723. +           }
  8724. +         *bp++ = ' ';
  8725. +         *bp++ = '"';
  8726. +         s = arg;
  8727. +         while (*s)
  8728. +           {
  8729. +         if (*s == '"' || *s == '*') *bp++ = '*';
  8730. +         else if (*s == '\n') *bp++ = '+';
  8731. +         *bp++ = *s++;
  8732. +           }
  8733. +         *bp++ = '"';
  8734. +       }
  8735. +     *bp = '\0';
  8736. +     if (dir) dirlock = Lock(dir, SHARED_LOCK);
  8737. +     else dirlock = 0;
  8738. + 
  8739. +     if (dirlock || !dir)
  8740. +       {
  8741. +         int pid = _start_process(combuf, in, close_input, out, close_output,
  8742. +                      err, close_error, dirlock, stacksize);
  8743. + 
  8744. +         if (pid != -1)
  8745. +           {
  8746. +         free(combuf);
  8747. +         return pid;
  8748. +           }
  8749. +       }
  8750. +     else errno = convert_oserr(IoErr());
  8751. +     if (dirlock) UnLock(dirlock);
  8752. +       }
  8753. +     else errno = ENOMEM;
  8754. + 
  8755. +  error:
  8756. +   if (in && close_input) Close(in);
  8757. +   if (out && close_output) Close(out);
  8758. +   if (err && close_error) Close(err);
  8759. +   if (combuf) free(combuf);
  8760. +   return -1;
  8761. + }
  8762. + 
  8763. + int exec(char *program, char **argv, int input, int output, 
  8764. +       char *dir, int stacksize)
  8765. + {
  8766. +   return eexec(program, argv, input, output, -1, dir, stacksize);
  8767. + }
  8768. diff -rcP emacs-18.59-fsf/src/fileio.c emacs-18.59-amiga/src/fileio.c
  8769. *** emacs-18.59-fsf/src/fileio.c    Tue Oct  6 22:02:20 1992
  8770. --- emacs-18.59-amiga/src/fileio.c    Sun Nov 22 10:14:24 1992
  8771. ***************
  8772. *** 147,152 ****
  8773. --- 147,155 ----
  8774.     p = beg + XSTRING (file)->size;
  8775.   
  8776.     while (p != beg && p[-1] != '/'
  8777. + #ifdef    AMIGA
  8778. +          && p[-1] != ':'
  8779. + #endif    /* AMIGA */
  8780.   #ifdef VMS
  8781.        && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  8782.   #endif /* VMS */
  8783. ***************
  8784. *** 174,179 ****
  8785. --- 177,185 ----
  8786.     end = p = beg + XSTRING (file)->size;
  8787.   
  8788.     while (p != beg && p[-1] != '/'
  8789. + #ifdef    AMIGA
  8790. +          && p[-1] != ':'
  8791. + #endif    /* AMIGA */
  8792.   #ifdef VMS
  8793.        && p[-1] != ':' && p[-1] != ']' && p[-1] != '>'
  8794.   #endif /* VMS */
  8795. ***************
  8796. *** 248,256 ****
  8797. --- 254,268 ----
  8798.         out[size] = '\0';
  8799.       }
  8800.   #else /* not VMS */
  8801. + #ifdef    AMIGA
  8802. +   /* AmigaDOS syntax, append slash if the last char isn't a ':' or '/' */
  8803. +   if (out[size] != '/' && out[size] != ':' && size != 0)
  8804. +     strcat (out, "/");
  8805. + #else    /* not AMIGA */
  8806.     /* For Unix syntax, Append a slash if necessary */
  8807.     if (out[size] != '/')
  8808.       strcat (out, "/");
  8809. + #endif /* not AMIGA */
  8810.   #endif /* not VMS */
  8811.     return out;
  8812.   }
  8813. ***************
  8814. *** 464,469 ****
  8815. --- 476,585 ----
  8816.        (name, defalt)
  8817.        Lisp_Object name, defalt;
  8818.   {
  8819. + #ifdef AMIGA
  8820. +   unsigned char *nm, *tilde, *newdir, *colon, *t_pos, *target;
  8821. + 
  8822. +   CHECK_STRING (name, 0);
  8823. + 
  8824. +   nm = XSTRING (name)->data;
  8825. +   /* Find base directory */
  8826. +   if (NULL (defalt))
  8827. +       defalt = current_buffer->directory;
  8828. +   CHECK_STRING (defalt, 1);
  8829. +   newdir = XSTRING (defalt)->data;
  8830. + 
  8831. +   /* Concat newdir w/ nm and canonicalize */
  8832. +   /* newdir always contains at least the device name.
  8833. +      It is assumed canonical */
  8834. +   target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  8835. +   file_name_as_directory (target, newdir);
  8836. +   t_pos = target + strlen(target);
  8837. + 
  8838. +   while (*nm)
  8839. +   {
  8840. +       unsigned char *comp_end = nm;
  8841. +       int comp_len;
  8842. + 
  8843. +       /* Find next component of path (everything upto the next /) */
  8844. +       do comp_end++; while (comp_end[0] && comp_end[-1] != '/' && comp_end[-1] != ':');
  8845. +       comp_len = comp_end - nm;
  8846. + 
  8847. +       if (comp_len == 1 && nm[0] == '/' ||
  8848. +       nm[0] == '.' && nm[1] == '.' &&
  8849. +       (comp_len == 2 || comp_len == 3 && nm[2] == '/'))
  8850. +       {
  8851. +       /* Previous directory */
  8852. +       if (t_pos > target && t_pos[-1] != ':')
  8853. +       {
  8854. +           t_pos--; /* Back up over / */
  8855. +           while (t_pos > target &&
  8856. +              t_pos[-1] != ':' && t_pos[-1] != '/') t_pos--;
  8857. +       }
  8858. +       }
  8859. +       else if (comp_len == 2 && nm[0] == '.' && nm[1] == '/' ||
  8860. +            comp_len == 1 && nm[0] == '.') ; /* Ignore . */
  8861. +       else if (nm[0] == ':') /* Just keep disk name */
  8862. +       {
  8863. +       char *new_pos;
  8864. + 
  8865. +       *t_pos = 0; /* Limit search for : */
  8866. +       t_pos = index(target, ':');
  8867. +       if (t_pos) t_pos++;
  8868. +       else t_pos = target;
  8869. +       }
  8870. +       else if (nm[0] == '~' || index(nm, ':'))
  8871. +       {
  8872. +       char *exp_name;
  8873. + 
  8874. +       if (nm[0] == '~')
  8875. +           if (nm[1] == '/' || nm[1] == 0) /* Home directory */
  8876. +           {
  8877. +           newdir = (unsigned char *) egetenv ("HOME");
  8878. +           if (!newdir) newdir = (unsigned char *) "s:";
  8879. +           }
  8880. +           else
  8881. +           {
  8882. +           /* Handle ~ followed by user name.  */
  8883. +           char lastc = nm[comp_len - 1];
  8884. +           int len = comp_len - 1;
  8885. + 
  8886. +           if (lastc == ':' || lastc == '/') len--;
  8887. + 
  8888. +           /* ~name becomes name: */
  8889. +           newdir = (unsigned char *) alloca (len + 2);
  8890. +           bcopy((char *) nm + 1, newdir, len);
  8891. +           newdir[len] = ':';
  8892. +           newdir[len + 1] = 0;
  8893. +           }
  8894. +       else /* we have name: */
  8895. +       {
  8896. +           newdir = (char *)alloca(comp_len + 1);
  8897. +           bcopy(nm, newdir, comp_len);
  8898. +           newdir[comp_len] = 0;
  8899. +       }
  8900. +       exp_name = (char *)alloca(1024);
  8901. +       if (expand_path(newdir, exp_name, 1024))
  8902. +       {
  8903. +           char *colon = strchr(exp_name, ':');
  8904. + 
  8905. +           /* Detect paths with multiple colons (eg from PATH:) and
  8906. +          leave them alone. They create confusion. */
  8907. +           if (!(colon && strchr(colon + 1, ':'))) newdir = exp_name;
  8908. +       }
  8909. +       target = (unsigned char *)alloca(strlen(nm) + strlen(newdir) + 2);
  8910. +       file_name_as_directory (target, newdir);
  8911. +       t_pos = target + strlen(target);
  8912. +       }
  8913. +       else /* Copy component */
  8914. +       {
  8915. +       bcopy(nm, t_pos, comp_len);
  8916. +       t_pos += comp_len;
  8917. +       }
  8918. + 
  8919. +       nm = comp_end;
  8920. +   }
  8921. +   return make_string (target, t_pos - target);
  8922. + #else /* not AMIGA */
  8923.     unsigned char *nm;
  8924.     
  8925.     register unsigned char *newdir, *p, *o;
  8926. ***************
  8927. *** 795,800 ****
  8928. --- 911,917 ----
  8929.       }
  8930.   
  8931.     return make_string (target, o - target);
  8932. + #endif /* not AMIGA */
  8933.   }
  8934.   
  8935.   DEFUN ("substitute-in-file-name", Fsubstitute_in_file_name,
  8936. ***************
  8937. *** 825,830 ****
  8938. --- 942,964 ----
  8939.   
  8940.     for (p = nm; p != endp; p++)
  8941.       {
  8942. + #ifdef AMIGA
  8943. +       if (p[0] == '~' && p != nm && p[-1] == '/')
  8944. +     {
  8945. +         nm = p;
  8946. +         substituted = 1;
  8947. +     }
  8948. +       else if (p[0] == ':')
  8949. +     {
  8950. +           char *p2 = p;
  8951. +       while (p2 > nm && p2[-1] != ':' && p2[-1] != '/') p2--;
  8952. +       if (p2 != nm)
  8953. +         {
  8954. +           nm = p2;
  8955. +           substituted = 1;
  8956. +         }
  8957. +     }
  8958. + #else /* not AMIGA */
  8959.         if ((p[0] == '~' ||
  8960.   #ifdef APOLLO
  8961.          /* // at start of file name is meaningful in Apollo system */
  8962. ***************
  8963. *** 845,850 ****
  8964. --- 979,985 ----
  8965.         nm = p;
  8966.         substituted = 1;
  8967.       }
  8968. + #endif /* not AMIGA */
  8969.       }
  8970.   
  8971.   #ifdef VMS
  8972. ***************
  8973. *** 1353,1358 ****
  8974. --- 1488,1500 ----
  8975.   
  8976.     CHECK_STRING (filename, 0);
  8977.     ptr = XSTRING (filename)->data;
  8978. + #ifdef    AMIGA
  8979. +   /* An absolute filename has a non-leading ':' in it */
  8980. +   if (*ptr != ':')
  8981. +       while (*ptr)
  8982. +       if (*ptr++ == ':') return Qt;
  8983. +   return Qnil;
  8984. + #else    /* not AMIGA */
  8985.     if (*ptr == '/' || *ptr == '~'
  8986.   #ifdef VMS
  8987.   /* ??? This criterion is probably wrong for '<'.  */
  8988. ***************
  8989. *** 1364,1369 ****
  8990. --- 1506,1512 ----
  8991.       return Qt;
  8992.     else
  8993.       return Qnil;
  8994. + #endif /* not AMIGA */
  8995.   }
  8996.   
  8997.   DEFUN ("file-exists-p", Ffile_exists_p, Sfile_exists_p, 1, 1, 0,
  8998. diff -rcP emacs-18.59-fsf/src/firstfile.c emacs-18.59-amiga/src/firstfile.c
  8999. *** emacs-18.59-fsf/src/firstfile.c    Thu Jan  1 00:00:00 1970
  9000. --- emacs-18.59-amiga/src/firstfile.c    Sun Nov 22 10:14:28 1992
  9001. ***************
  9002. *** 0 ****
  9003. --- 1,4 ----
  9004. + int first_data = 1;
  9005. + int first_bss;
  9006. + 
  9007. + void first_function() { }
  9008. diff -rcP emacs-18.59-fsf/src/indent.c emacs-18.59-amiga/src/indent.c
  9009. *** emacs-18.59-fsf/src/indent.c    Sat Apr 18 16:01:07 1992
  9010. --- emacs-18.59-amiga/src/indent.c    Sun Nov 22 10:14:38 1992
  9011. ***************
  9012. *** 35,40 ****
  9013. --- 35,45 ----
  9014.   #define min(a, b) ((a) < (b) ? (a) : (b))
  9015.   #define max(a, b) ((a) > (b) ? (a) : (b))
  9016.   
  9017. + #ifdef EIGHT_BIT
  9018. + /* Visible characters */
  9019. + extern char visible[];
  9020. + #endif
  9021. + 
  9022.   /* These three values memoize the current column to avoid recalculation */
  9023.   /* Some things in set last_known_column_point to -1
  9024.     to mark the memoized value as invalid */
  9025. ***************
  9026. *** 115,121 ****
  9027. --- 120,130 ----
  9028.       }
  9029.   
  9030.         c = *--ptr;
  9031. + #ifdef EIGHT_BIT
  9032. +       if (visible[c])
  9033. + #else
  9034.         if (c >= 040 && c < 0177)
  9035. + #endif
  9036.       {
  9037.         col++;
  9038.       }
  9039. ***************
  9040. *** 326,332 ****
  9041. --- 335,345 ----
  9042.       }
  9043.         else if (ctl_arrow && (c < 040 || c == 0177))
  9044.           col++;
  9045. + #ifdef EIGHT_BIT
  9046. +       else if (!visible[c])
  9047. + #else
  9048.         else if (c < 040 || c >= 0177)
  9049. + #endif
  9050.           col += 3;
  9051.       }
  9052.   
  9053. ***************
  9054. *** 373,381 ****
  9055.         prev_hpos = hpos;
  9056.   
  9057.         c = FETCH_CHAR (pos);
  9058.         if (c >= 040 && c < 0177)
  9059. !     hpos++;
  9060. !       else if (c == '\t')
  9061.       {
  9062.         hpos += tab_width - ((hpos + tab_offset + hscroll - (hscroll > 0)
  9063.                   /* Add tab_width here to make sure positive.
  9064. --- 386,442 ----
  9065.         prev_hpos = hpos;
  9066.   
  9067.         c = FETCH_CHAR (pos);
  9068. + #ifdef EIGHT_BIT
  9069. +       if (visible[c])
  9070. + #else
  9071.         if (c >= 040 && c < 0177)
  9072. ! #endif
  9073. !         {
  9074. !       unsigned char *p;
  9075. !       int gap_pos;
  9076. !       int maxhpos;
  9077. ! 
  9078. !       if (vpos == tovpos)
  9079. !         {
  9080. !           maxhpos = tohpos;
  9081. !           if (maxhpos > width) maxhpos = width;
  9082. !         }
  9083. !       else maxhpos = width;
  9084. ! 
  9085. !       if (pos < GPT)
  9086. !         {
  9087. !           gap_pos = GPT;
  9088. !           p = BEG_ADDR + pos;
  9089. !         }
  9090. !       else
  9091. !         {
  9092. !           gap_pos = -1;
  9093. !           p = GAP_SIZE + BEG_ADDR + pos;
  9094. !         }
  9095. !       do
  9096. !         {
  9097. !           hpos++;
  9098. !           if (hpos >= maxhpos)
  9099. !           {
  9100. !           prev_hpos = hpos - 1;
  9101. !           if (hpos >= width) goto check_hpos;
  9102. !           /* We've reached the target pos */
  9103. !           pos++;
  9104. !           goto done;
  9105. !           }
  9106. !           pos++;
  9107. !           if (pos >= to)
  9108. !             {
  9109. !           prev_hpos = hpos - 1;
  9110. !           goto done;
  9111. !             }
  9112. !           if (gap_pos == pos) p += GAP_SIZE;
  9113. !           c = *p++;
  9114. !         }
  9115. !       while (visible[c]);
  9116. !       prev_hpos = hpos;
  9117. !         }
  9118. !       if (c == '\t')
  9119.       {
  9120.         hpos += tab_width - ((hpos + tab_offset + hscroll - (hscroll > 0)
  9121.                   /* Add tab_width here to make sure positive.
  9122. ***************
  9123. *** 433,438 ****
  9124. --- 494,500 ----
  9125.         else
  9126.       hpos += (ctl_arrow && c < 0200) ? 2 : 4;
  9127.   
  9128. + check_hpos:
  9129.         /* Handle right margin.  */
  9130.         if (hpos >= width
  9131.         && (hpos > width
  9132. ***************
  9133. *** 462,467 ****
  9134. --- 524,530 ----
  9135.   
  9136.       }
  9137.       }
  9138. +   done:
  9139.   
  9140.     val_compute_motion.bufpos = pos;
  9141.     val_compute_motion.hpos = hpos;
  9142. diff -rcP emacs-18.59-fsf/src/keyboard.c emacs-18.59-amiga/src/keyboard.c
  9143. *** emacs-18.59-fsf/src/keyboard.c    Sun May 17 06:57:15 1992
  9144. --- emacs-18.59-amiga/src/keyboard.c    Sun Nov 22 10:14:48 1992
  9145. ***************
  9146. *** 1313,1319 ****
  9147. --- 1313,1325 ----
  9148.   #endif
  9149.       fcntl (fileno (stdin), F_SETFL, 0);
  9150.   #else /* not USG */
  9151. + #ifdef    AMIGA    /* This is where the input work finally gets done */
  9152. +   /* Note, The nread != 0 case isn't handled as it doesn't arise on the Amiga.
  9153. +      (Look carefully at calls to read_avail_input) */
  9154. +   nread = read(0, buf, sizeof buf);
  9155. + #else  /* not AMIGA */
  9156.     you lose
  9157. + #endif /* not AMIGA */
  9158.   #endif /* not USG */
  9159.   #endif /* no FIONREAD */
  9160.   
  9161. diff -rcP emacs-18.59-fsf/src/keymap.c emacs-18.59-amiga/src/keymap.c
  9162. *** emacs-18.59-fsf/src/keymap.c    Sat Jul 27 17:43:27 1991
  9163. --- emacs-18.59-amiga/src/keymap.c    Sun Nov 22 10:14:52 1992
  9164. ***************
  9165. *** 29,34 ****
  9166. --- 29,38 ----
  9167.   
  9168.   /* Actually allocate storage for these variables */
  9169.   
  9170. + #ifdef AMIGA
  9171. + #define HAVE_X_WINDOWS        /* We want the mouse map too */
  9172. + #endif
  9173. + 
  9174.   #ifdef HAVE_X_WINDOWS
  9175.   Lisp_Object MouseMap;        /* Keymap for mouse commands */
  9176.   #endif /* HAVE_X_WINDOWS */
  9177. diff -rcP emacs-18.59-fsf/src/lastfile.c emacs-18.59-amiga/src/lastfile.c
  9178. *** emacs-18.59-fsf/src/lastfile.c    Sat Mar 30 23:05:55 1991
  9179. --- emacs-18.59-amiga/src/lastfile.c    Sat Dec  5 18:16:44 1992
  9180. ***************
  9181. *** 35,43 ****
  9182. --- 35,57 ----
  9183.    coming from libraries.
  9184.   */
  9185.   
  9186. + #ifdef AMIGA
  9187. + /* I need to find the end of initialised and unitialised data, as well as of
  9188. +    executable code.
  9189. + */
  9190. + int last_data = 1;
  9191. + int last_bss;
  9192. + 
  9193. + void last_function() { }
  9194. + 
  9195. + /* Some data that shouldn't be dumped */
  9196. + #include "amiga_data.c" 
  9197. + 
  9198. + #else /* not AMIGA */
  9199.   #ifdef VMS
  9200.   /* Prevent the file from being totally empty.  */
  9201.   static dummy () {}
  9202.   #endif
  9203.   
  9204.   char my_edata = 0;
  9205. + #endif /* not AMIGA */
  9206. diff -rcP emacs-18.59-fsf/src/lisp.h emacs-18.59-amiga/src/lisp.h
  9207. *** emacs-18.59-fsf/src/lisp.h    Thu Mar  5 23:11:31 1992
  9208. --- emacs-18.59-amiga/src/lisp.h    Sun Nov 22 10:14:58 1992
  9209. ***************
  9210. *** 287,293 ****
  9211.     (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  9212.   #else /* not HAVE_SHM */
  9213.   #ifdef DATA_SEG_BITS
  9214. ! /* This case is used for the rt-pc.
  9215.      In the diffs I was given, it checked for ptr = 0
  9216.      and did not adjust it in that case.
  9217.      But I don't think that zero should ever be found
  9218. --- 287,293 ----
  9219.     (XUINT (a) | (XUINT (a) > PURESIZE ? DATA_SEG_BITS : PURE_SEG_BITS))
  9220.   #else /* not HAVE_SHM */
  9221.   #ifdef DATA_SEG_BITS
  9222. ! /* This case is used for the rt-pc and the Amiga.
  9223.      In the diffs I was given, it checked for ptr = 0
  9224.      and did not adjust it in that case.
  9225.      But I don't think that zero should ever be found
  9226. ***************
  9227. *** 520,525 ****
  9228. --- 520,532 ----
  9229.     { if (XTYPE ((x)) == Lisp_Marker) XFASTINT (x) = marker_position (x); \
  9230.       else if (XTYPE ((x)) != Lisp_Int) x = wrong_type_argument (Qinteger_or_marker_p, (x)); }
  9231.   
  9232. + #ifdef AMIGA_DUMP
  9233. + #define CHECK_IMPURE(obj) \
  9234. +   { extern int *pure, puresize; \
  9235. +     if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + puresize) \
  9236. +     && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  9237. +       pure_write_error (); }
  9238. + #else /* not AMIGA_DUMP */
  9239.   #ifdef VIRT_ADDR_VARIES
  9240.   
  9241.   /* For machines like APOLLO where text and data can go anywhere
  9242. ***************
  9243. *** 529,535 ****
  9244.       if ((PNTR_COMPARISON_TYPE) XPNTR (obj) < (PNTR_COMPARISON_TYPE) ((char *) pure + PURESIZE) \
  9245.       && (PNTR_COMPARISON_TYPE) XPNTR (obj) >= (PNTR_COMPARISON_TYPE) pure) \
  9246.         pure_write_error (); }
  9247. - 
  9248.   #else /* not VIRT_ADDR_VARIES */
  9249.   #ifdef PNTR_COMPARISON_TYPE
  9250.   
  9251. --- 536,541 ----
  9252. ***************
  9253. *** 548,553 ****
  9254. --- 554,560 ----
  9255.   
  9256.   #endif /* PNTR_COMPARISON_TYPE */
  9257.   #endif /* VIRT_ADDRESS_VARIES */
  9258. + #endif /* not AMIGA_DUMP */
  9259.   
  9260.   /* Cast pointers to this type to compare them.  Some machines want int.  */
  9261.   #ifndef PNTR_COMPARISON_TYPE
  9262. diff -rcP emacs-18.59-fsf/src/lread.c emacs-18.59-amiga/src/lread.c
  9263. *** emacs-18.59-fsf/src/lread.c    Mon Mar 23 04:18:17 1992
  9264. --- emacs-18.59-amiga/src/lread.c    Sun Nov 22 10:15:02 1992
  9265. ***************
  9266. *** 240,250 ****
  9267. --- 240,254 ----
  9268.        Lisp_Object pathname;
  9269.   {
  9270.     register unsigned char *s = XSTRING (pathname)->data;
  9271. + #ifdef AMIGA
  9272. +   return (*s && index(s + 1, ':')); /* Non-leading : */
  9273. + #else
  9274.     return (*s == '~' || *s == '/'
  9275.   #ifdef VMS
  9276.         || index (s, ':')
  9277.   #endif /* VMS */
  9278.         );
  9279. + #endif /* not AMIGA */
  9280.   }
  9281.   
  9282.   /* Search for a file whose name is STR, looking in directories
  9283. ***************
  9284. *** 559,565 ****
  9285.   }
  9286.   
  9287.   static int read_buffer_size;
  9288. ! static char *read_buffer;
  9289.   
  9290.   static Lisp_Object
  9291.   read1 (readcharfun)
  9292. --- 563,569 ----
  9293.   }
  9294.   
  9295.   static int read_buffer_size;
  9296. ! char *read_buffer;
  9297.   
  9298.   static Lisp_Object
  9299.   read1 (readcharfun)
  9300. diff -rcP emacs-18.59-fsf/src/m-amiga.h emacs-18.59-amiga/src/m-amiga.h
  9301. *** emacs-18.59-fsf/src/m-amiga.h    Thu Jan  1 00:00:00 1970
  9302. --- emacs-18.59-amiga/src/m-amiga.h    Sun Nov 22 10:20:16 1992
  9303. ***************
  9304. *** 0 ****
  9305. --- 1,129 ----
  9306. + /* m- file for GNU Emacs running on AmigaDOS 2.04, SAS C compiler 5.10b
  9307. +    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  9308. + 
  9309. + This file is part of GNU Emacs.
  9310. + 
  9311. + GNU Emacs is distributed in the hope that it will be useful,
  9312. + but WITHOUT ANY WARRANTY.  No author or distributor
  9313. + accepts responsibility to anyone for the consequences of using it
  9314. + or for whether it serves any particular purpose or works at all,
  9315. + unless he says so in writing.  Refer to the GNU Emacs General Public
  9316. + License for full details.
  9317. + 
  9318. + Everyone is granted permission to copy, modify and redistribute
  9319. + GNU Emacs, but only under the conditions described in the
  9320. + GNU Emacs General Public License.   A copy of this license is
  9321. + supposed to have been given to you along with GNU Emacs so you
  9322. + can know your rights and responsibilities.  It should be in a
  9323. + file named COPYING.  Among other things, the copyright notice
  9324. + and this notice must be preserved on all copies.  */
  9325. + 
  9326. + 
  9327. + /* The following three symbols give information on
  9328. +  the size of various data types.  */
  9329. + /* lisp.h doesn't make any concessions for INTBITS = 16 and
  9330. +    NO_UNION_TYPE (use int as lisp object) defined.  The following is
  9331. +    assuming that the Manx 32 bit int. math package is faster than
  9332. +    bitfield implementation, overall.  If you want to use INTBITS = 16,
  9333. +    you *cannot* define NO_UNION_TYPE.    */
  9334. + 
  9335. + #define SHORTBITS 16        /* Number of bits in a short */
  9336. + 
  9337. + #define INTBITS 32        /* Number of bits in an int */
  9338. + 
  9339. + #define LONGBITS 32        /* Number of bits in a long */
  9340. + 
  9341. + #define VALBITS 26        /* Number of bits in an int or pointer offset */
  9342. + 
  9343. + #define GCTYPEBITS 5        /* Number of bits in a type. */
  9344. + 
  9345. + /* Define BIG_ENDIAN iff lowest-numbered byte in a word
  9346. +    is the most significant byte.  */
  9347. + 
  9348. + #define BIG_ENDIAN
  9349. + 
  9350. + /* Define NO_ARG_ARRAY if you cannot take the address of the first of a
  9351. +  * group of arguments and treat it as an array of the arguments.  */
  9352. + 
  9353. + /* #define NO_ARG_ARRAY */
  9354. + 
  9355. + /* Define WORD_MACHINE if addresses and such have
  9356. +  * to be corrected before they can be used as byte counts.  */
  9357. + 
  9358. + #define WORD_MACHINE
  9359. + 
  9360. + /* Define how to take a char and sign-extend into an int.
  9361. +    On machines where char is signed, this is a no-op.  */
  9362. + 
  9363. + #define SIGN_EXTEND_CHAR(c) (c)
  9364. + 
  9365. + /* Now define a symbol for the cpu type, if your compiler
  9366. +    does not define it automatically:
  9367. +    Ones defined so far include vax, m68000, ns16000, pyramid,
  9368. +    orion, tahoe, APOLLO and many others */
  9369. + 
  9370. + #ifndef    m68000
  9371. + #define m68000
  9372. + #endif
  9373. + 
  9374. + /* Use type int rather than a union, to represent Lisp_Object */
  9375. + /* This is desirable for most machines.  */
  9376. + 
  9377. + #define NO_UNION_TYPE
  9378. + /* Use a struct rather than an int. */
  9379. + 
  9380. + 
  9381. + /* Define EXPLICIT_SIGN_EXTEND if XINT must explicitly sign-extend
  9382. +    the 24-bit bit field into an int.  In other words, if bit fields
  9383. +    are always unsigned.
  9384. + 
  9385. +    If you use NO_UNION_TYPE, this flag does not matter.  */
  9386. + 
  9387. + #define EXPLICIT_SIGN_EXTEND
  9388. + 
  9389. + /* We don't have /dev/kmem, so LOAD_AVE_TYPE and LOAD_AVE_CVT are
  9390. +    not defined. */
  9391. + 
  9392. + /* Define CANNOT_DUMP on machines where unexec does not work.
  9393. +    Then the function dump-emacs will not be defined
  9394. +    and temacs will do (load "loadup") automatically unless told otherwise.  */
  9395. + 
  9396. + /* #define CANNOT_DUMP */
  9397. + 
  9398. + /* Define VIRT_ADDR_VARIES if the virtual addresses of
  9399. +    pure and impure space as loaded can vary, and even their
  9400. +    relative order cannot be relied on.
  9401. + 
  9402. +    Otherwise Emacs assumes that text space precedes data space,
  9403. +    numerically.  */
  9404. + 
  9405. + /* #define VIRT_ADDR_VARIES */
  9406. + /* I now rely on AMIGA_DUMP to make appropriate patches in the source */
  9407. + 
  9408. + /* Define C_ALLOCA if this machine does not support a true alloca
  9409. +    and the one written in C should be used instead.
  9410. +    Define HAVE_ALLOCA to say that the system provides a properly
  9411. +    working alloca function and it should be used.
  9412. +    Define neither one if an assembler-language alloca
  9413. +    in the file alloca.s should be used.  */
  9414. + 
  9415. + #define C_ALLOCA
  9416. + /* #define HAVE_ALLOCA */
  9417. + 
  9418. + /* Define STACK_DIRECTION for alloca.c */
  9419. + #define    STACK_DIRECTION    -1    /* Grows downward */
  9420. + 
  9421. + /* Define NO_REMAP if memory segmentation makes it not work well
  9422. +    to change the boundary between the text section and data section
  9423. +    when Emacs is dumped.  If you define this, the preloaded Lisp
  9424. +    code will not be sharable; but that's better than failing completely.  */
  9425. + 
  9426. + #define NO_REMAP
  9427. + 
  9428. + /* Set high (32 - VALBITS) = 6 bits of every pointer to the same as those of
  9429. +    &pure[0].
  9430. + */
  9431. + #ifdef emacs
  9432. + extern long far DataSegBits;
  9433. + #endif
  9434. + #define DATA_SEG_BITS DataSegBits
  9435. diff -rcP emacs-18.59-fsf/src/paths.h-dist emacs-18.59-amiga/src/paths.h-dist
  9436. *** emacs-18.59-fsf/src/paths.h-dist    Wed Sep 12 00:51:18 1990
  9437. --- emacs-18.59-amiga/src/paths.h-dist    Sun Nov 22 10:16:24 1992
  9438. ***************
  9439. *** 17,19 ****
  9440. --- 17,35 ----
  9441.   /* the name of the file !!!SuperLock!!! in the directory
  9442.    specified by PATH_LOCK.  Yes, this is redundant.  */
  9443.   #define PATH_SUPERLOCK "/usr/local/emacs/lock/!!!SuperLock!!!"
  9444. + 
  9445. + /* The path to the file containing the termcap descriptions */
  9446. + #define PATH_TERMCAP "/etc/termcap"
  9447. + 
  9448. + /* The relative path (while dumping) to the directory containing 
  9449. +    the DOC file */
  9450. + #define RELPATH_DOC "../etc/"
  9451. + 
  9452. + /* The path for a /dev/null-like device */
  9453. + #define PATH_NULL "/dev/null"
  9454. + 
  9455. + /* Path for temporary files (for call-process-region) */
  9456. + #define PATH_TEMP "/tmp/emacsXXXXXX"
  9457. + 
  9458. + /* Path to the shell (the one in shell-file-name) */
  9459. + #define PATH_SHELL "/bin/sh"
  9460. diff -rcP emacs-18.59-fsf/src/process.c emacs-18.59-amiga/src/process.c
  9461. *** emacs-18.59-fsf/src/process.c    Sun Oct 25 04:42:04 1992
  9462. --- emacs-18.59-amiga/src/process.c    Sun Nov 22 10:16:38 1992
  9463. ***************
  9464. *** 1203,1209 ****
  9465. --- 1203,1226 ----
  9466.        If fork fails, remove_process will clear the bit.  */
  9467.     FD_SET (inchannel, &input_wait_mask);
  9468.   
  9469. + #ifdef AMIGA
  9470.     {
  9471. +     register unsigned char *temp;
  9472. + 
  9473. +     if (XTYPE (current_buffer->directory) == Lisp_String)
  9474. +       {
  9475. +     register int i;
  9476. + 
  9477. +     i = XSTRING (current_buffer->directory)->size;
  9478. +     temp = (unsigned char *) alloca (i + 1);
  9479. +     bcopy (XSTRING (current_buffer->directory)->data, temp, i);
  9480. +     temp[i] = 0;
  9481. +       }
  9482. +     pid = exec(new_argv[0], new_argv, forkin, forkout, temp,
  9483. +            amiga_process_stack_size);
  9484. +   }
  9485. + #else /* not AMIGA */
  9486. +   {
  9487.       /* child_setup must clobber environ on systems with true vfork.
  9488.          Protect it from permanent change.  */
  9489.       char **save_environ = environ;
  9490. ***************
  9491. *** 1305,1310 ****
  9492. --- 1322,1328 ----
  9493.         }
  9494.       environ = save_environ;
  9495.     }
  9496. + #endif /* not AMIGA */
  9497.   
  9498.     if (pid < 0)
  9499.       {
  9500. ***************
  9501. *** 1314,1319 ****
  9502. --- 1332,1338 ----
  9503.   
  9504.     XFASTINT (XPROCESS (process)->pid) = pid;
  9505.   
  9506. + #ifndef AMIGA
  9507.     /* If the subfork execv fails, and it exits,
  9508.        this close hangs.  I don't know why.
  9509.        So have an interrupt jar it loose.  */
  9510. ***************
  9511. *** 1326,1331 ****
  9512. --- 1345,1351 ----
  9513.     start_polling ();
  9514.     if (forkin != forkout && forkout >= 0)
  9515.       close (forkout);
  9516. + #endif
  9517.   
  9518.   #ifdef SIGCHLD
  9519.   #ifdef BSD4_1
  9520. diff -rcP emacs-18.59-fsf/src/s-amiga.h emacs-18.59-amiga/src/s-amiga.h
  9521. *** emacs-18.59-fsf/src/s-amiga.h    Thu Jan  1 00:00:00 1970
  9522. --- emacs-18.59-amiga/src/s-amiga.h    Sat Oct  2 15:32:32 1993
  9523. ***************
  9524. *** 0 ****
  9525. --- 1,215 ----
  9526. + /* file for GNU Emacs running on AmigaDOS 2.04, SAS C compiler 5.10b
  9527. +    Copyright (C) 1985, 1986 Free Software Foundation, Inc.
  9528. + 
  9529. + This file is part of GNU Emacs.
  9530. + 
  9531. + GNU Emacs is distributed in the hope that it will be useful,
  9532. + but WITHOUT ANY WARRANTY.  No author or distributor
  9533. + accepts responsibility to anyone for the consequences of using it
  9534. + or for whether it serves any particular purpose or works at all,
  9535. + unless he says so in writing.  Refer to the GNU Emacs General Public
  9536. + License for full details.
  9537. + 
  9538. + Everyone is granted permission to copy, modify and redistribute
  9539. + GNU Emacs, but only under the conditions described in the
  9540. + GNU Emacs General Public License.   A copy of this license is
  9541. + supposed to have been given to you along with GNU Emacs so you
  9542. + can know your rights and responsibilities.  It should be in a
  9543. + file named COPYING.  Among other things, the copyright notice
  9544. + and this notice must be preserved on all copies.  */
  9545. + 
  9546. + 
  9547. + /*
  9548. +  *    Define symbols to identify the version of Unix this is.
  9549. +  *    Define all the symbols that apply correctly.
  9550. +  */
  9551. + 
  9552. + #ifndef AMIGA
  9553. + #define AMIGA
  9554. + #endif /* AMIGA */
  9555. + 
  9556. + /* SYSTEM_TYPE should indicate the kind of system you are using.
  9557. +  It sets the Lisp variable system-type.  */
  9558. + 
  9559. + #define SYSTEM_TYPE "amigados"
  9560. + 
  9561. + /* Define this if you want a faster redisplay. This saves a lot of CPU
  9562. +    time at the expense of more characters to be redrawn.
  9563. +    On a bitmapped display you win, with a serial line you probably lose.
  9564. + */
  9565. + #define FAST_DISPLAY
  9566. + 
  9567. + /* Define this to display eight bit characters. The actual characters
  9568. +    that are visible can be set in init_xdisp ().
  9569. + */
  9570. + #define EIGHT_BIT
  9571. + 
  9572. + /* nomultiplejobs should be defined if your system's shell
  9573. +  does not have "job control" (the ability to stop a program,
  9574. +  run some other program, then continue the first one).  */
  9575. + 
  9576. + #define NOMULTIPLEJOBS
  9577. + 
  9578. + /* Define this to include various patches that allow the Amiga to dump.
  9579. +    This *must* be defined on the Amiga!
  9580. + */
  9581. + #define AMIGA_DUMP
  9582. + 
  9583. + /* Do not use interrupt_input = 1 by default, because in 4.3
  9584. +    we can make noninterrupt input work properly.  */
  9585. + 
  9586. + /* #undef INTERRUPT_INPUT */    /* This file borrowed from s-bsd4-3.h */
  9587. + 
  9588. + /* First pty name is /dev/ptyp0.  */
  9589. + 
  9590. + /* #define FIRST_PTY_LETTER 'p' */
  9591. + /*
  9592. +  *    Define HAVE_TIMEVAL if the system supports the BSD style clock values.
  9593. +  *    Look in <sys/time.h> for a timeval structure.
  9594. +  */
  9595. + 
  9596. + #define HAVE_TIMEVAL
  9597. + #define USE_UTIME
  9598. + 
  9599. + /*
  9600. +  *    Define HAVE_SELECT if the system supports the `select' system call.
  9601. +  */
  9602. + 
  9603. + #define HAVE_SELECT
  9604. + 
  9605. + /*
  9606. +  *    Define HAVE_PTYS if the system supports pty devices.
  9607. +  */
  9608. + 
  9609. + /* #define HAVE_PTYS */
  9610. + 
  9611. + /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets.  */
  9612. + 
  9613. + /* #define HAVE_SOCKETS */
  9614. + 
  9615. + /* But we do have socket pairs for processes ... */
  9616. + #define SKTPAIR
  9617. + 
  9618. + /*
  9619. +  *    Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
  9620. +  *      The 4.2 opendir, etc., library functions.
  9621. +  */
  9622. + 
  9623. + /* #define NONSYSTEM_DIR_LIBRARY */
  9624. + #define SYSV_SYSTEM_DIR
  9625. + 
  9626. + /* Define this symbol if your system has the functions bcopy, etc. */
  9627. + 
  9628. + #define BSTRING        /* #define'ed later on */
  9629. + 
  9630. + /* subprocesses should be defined if you want to
  9631. +    have code for asynchronous subprocesses
  9632. +    (as used in M-x compile and M-x shell).
  9633. +    This is generally OS dependent, and not supported
  9634. +    under most USG systems. */
  9635. + 
  9636. + #define subprocesses
  9637. + 
  9638. + #define DID_REMOTE        /* Use 0 length write to send eof */
  9639. + 
  9640. + /* If your system uses COFF (Common Object File Format) then define the
  9641. +    preprocessor symbol "COFF". */
  9642. + 
  9643. + /* #define COFF */
  9644. + 
  9645. + /* define MAIL_USE_FLOCK if the mailer uses flock
  9646. +    to interlock access to /usr/spool/mail/$USER.
  9647. +    The alternative is that a lock file named
  9648. +    /usr/spool/mail/$USER.lock.  */
  9649. + 
  9650. + /* #define MAIL_USE_FLOCK */
  9651. + 
  9652. + /* Define CLASH_DETECTION if you want lock files to be written
  9653. +    so that Emacs can tell instantly when you try to modify
  9654. +    a file that someone else has modified in his Emacs.  */
  9655. + 
  9656. + /* #define CLASH_DETECTION */
  9657. + 
  9658. + /* We use the Berkeley (and usg5.2.2) interface to nlist.  */
  9659. + 
  9660. + /* #define NLIST_STRUCT */
  9661. + 
  9662. + /* The file containing the kernel's symbol table is called /vmunix.  */
  9663. + 
  9664. + /* #define KERNEL_FILE "/vmunix" */
  9665. + 
  9666. + /* The symbol in the kernel where the load average is found
  9667. +    is named _avenrun.  */
  9668. + 
  9669. + /* #define LDAV_SYMBOL "_avenrun" */
  9670. + 
  9671. + /* We use our own malloc for 2 reasons:
  9672. +      - To check that the 6 (INTBITS - VALBITS) of allocated data are
  9673. +        the same as &pure[0].
  9674. +      - To release unused memory to the system (SAS's malloc keeps it
  9675. +        till you quit)
  9676. + */
  9677. + 
  9678. + #define SYMS_SYSTEM syms_of_amiga()
  9679. + 
  9680. + #define SYSTEM_MALLOC        /* But I have replaced the system malloc ... */
  9681. + 
  9682. + #define DEF_PURESIZE 132000        /* Leave space for extra code for Amiga */
  9683. + #ifdef emacs
  9684. + extern int puresize;
  9685. + #endif
  9686. + #define PURESIZE puresize    /* Puresize is variable ... */
  9687. + 
  9688. + #ifdef emacs
  9689. + /* Stdio must be included before redefining putchar */
  9690. + #include <stdio.h>
  9691. + extern char cbuffer[], *cbuffer_pos;
  9692. + #define PENDING_OUTPUT_COUNT(x) (cbuffer_pos - cbuffer)
  9693. + #endif
  9694. + /* We divert some calls to our routines */
  9695. + #define putchar(c) do { extern int noninteractive; \
  9696. +              if (noninteractive) putc (c, stdout); \
  9697. +              else emacs_putchar(c); } while(0)
  9698. + #define fwrite emacs_fwrite
  9699. + #define fflush emacs_fflush
  9700. + #define random rand
  9701. + #define srandom srand
  9702. + #define main emacs_main
  9703. + #define select emacs_select
  9704. + 
  9705. + #ifdef emacs
  9706. + #include <string.h>
  9707. + #undef index
  9708. + #undef rindex
  9709. + #define index strchr
  9710. + #define rindex strrchr
  9711. + #endif
  9712. + 
  9713. + #define fsync(x) 0        /* Emulate fsync ... */
  9714. + 
  9715. + #ifdef emacs
  9716. + #include <sys/wait.h>        /* process.c doesn't have appropriate #ifdef's */
  9717. + extern int amiga_process_stack_size;
  9718. + #endif
  9719. + 
  9720. + /* Here are some symbols for ymakefile's benefit */
  9721. + 
  9722. + #define    LIB_STANDARD        //unix/src/unix.lib lib:sc.lib lib:amiga.lib
  9723. + #define    START_FILES        lib:c.o firstfile.o
  9724. + #define    C_DEBUG_SWITCH        debug s
  9725. + #define    C_OPTIMIZE_SWITCH    opt
  9726. + #define    LD_SWITCH_SYSTEM
  9727. + #define    C_SWITCH_SYSTEM
  9728. + #define    S_SWITCH_MACHINE    /* Nothing! */
  9729. + #define UNEXEC amiga_dump.o
  9730. + #define OBJECTS_SYSTEM        amiga_clipboard.o amiga_tty.o amiga_serial.o \
  9731. +                 amiga_screen.o amiga_menu.o amiga_malloc.o \
  9732. +                                 amiga_rexx.o simplerexx.o amiga_term.o
  9733. + 
  9734. + 
  9735. + /* Amiga window-specific stuff */
  9736. + 
  9737. + #define VERS "1.28DG Beta"
  9738. + 
  9739. + #define FALSE 0
  9740. + #define TRUE 1
  9741. diff -rcP emacs-18.59-fsf/src/scroll.c emacs-18.59-amiga/src/scroll.c
  9742. *** emacs-18.59-fsf/src/scroll.c    Tue Jan  8 18:04:52 1991
  9743. --- emacs-18.59-amiga/src/scroll.c    Sun Nov 22 10:17:30 1992
  9744. ***************
  9745. *** 55,60 ****
  9746. --- 55,61 ----
  9747.   int *ILncost;
  9748.   int *DLncost;
  9749.   
  9750. + #ifdef FAST_DISPLAY
  9751.   scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  9752.            draw_cost, old_hash, new_hash, free_at_end)
  9753.        int window_size, unchanged_at_top, unchanged_at_bottom;
  9754. ***************
  9755. *** 63,68 ****
  9756. --- 64,127 ----
  9757.        int *new_hash;
  9758.        int free_at_end;
  9759.   {
  9760. +   int lines, i;
  9761. +   int window_end = unchanged_at_top + window_size;
  9762. + 
  9763. +   /* Rebase arrays at line 0 */
  9764. +   old_hash -= unchanged_at_top - 1;
  9765. +   new_hash -= unchanged_at_top - 1;
  9766. +   draw_cost -= unchanged_at_top - 1;
  9767. + 
  9768. +   /* We can't allow un-enabled lines to be scrolled (they are not redrawable). 
  9769. +      Restrict window to the first set of contiguous enabled lines 
  9770. +      (an enabled line has draw_cost[x] != INFINITY) */
  9771. +   for (i = unchanged_at_top; i < window_end && draw_cost[i] != INFINITY; i++) ;
  9772. +   /*unchanged_at_bottom += window_size - i;*/
  9773. +   /*window_size = i - unchanged_at_top;*/
  9774. +   window_end = i;
  9775. + 
  9776. +   if (lines = calc_scroll(old_hash, new_hash, unchanged_at_top, window_end))
  9777. +       scroll_screen_lines(unchanged_at_top, window_end - lines, lines);
  9778. +   else if (lines = calc_scroll(new_hash, old_hash, unchanged_at_top, window_end))
  9779. +       scroll_screen_lines(unchanged_at_top + lines, window_end, -lines);
  9780. + }
  9781. + 
  9782. + int calc_scroll(int *old_hash, int *new_hash, int from, int to)
  9783. + /* For insert attempt, the parameters are correct.
  9784. +    For delete attempt, swap the old & new hash parameters
  9785. + */
  9786. + {
  9787. +     int try = from + 1, lines, i;
  9788. +     int hash1 = old_hash[from];
  9789. + 
  9790. +     do
  9791. +     {
  9792. +     if (hash1 == new_hash[try])
  9793. +     {
  9794. +         /* Check if other lines match too */
  9795. +         lines = try - from; /* Amount to insert */
  9796. +         for (i = try + 1; i < to; i++)
  9797. +         if (old_hash[i - lines] != new_hash[i]) break;
  9798. +         if (i == to) /* It works ! */
  9799. +         return lines;
  9800. +     }
  9801. +     try++;
  9802. +     }
  9803. +     while (try < to);
  9804. + 
  9805. +     return 0;
  9806. + }
  9807. + 
  9808. + #else /* not FAST_DISPLAY */
  9809. + 
  9810. + scrolling_1 (window_size, unchanged_at_top, unchanged_at_bottom,
  9811. +          draw_cost, old_hash, new_hash, free_at_end)
  9812. +      int window_size, unchanged_at_top, unchanged_at_bottom;
  9813. +      int *draw_cost;
  9814. +      int *old_hash;
  9815. +      int *new_hash;
  9816. +      int free_at_end;
  9817. + {
  9818.     struct matrix_elt *matrix;
  9819.     matrix = ((struct matrix_elt *)
  9820.           alloca ((window_size + 1) * (window_size + 1) * sizeof *matrix));
  9821. ***************
  9822. *** 320,325 ****
  9823. --- 379,385 ----
  9824.     if (window)
  9825.       set_terminal_window (0);
  9826.   }
  9827. + #endif /* not FAST_DISPLAY */
  9828.   
  9829.   /* Return number of lines in common between current screen contents
  9830.      and the text to be displayed,
  9831. diff -rcP emacs-18.59-fsf/src/simplerexx.c emacs-18.59-amiga/src/simplerexx.c
  9832. *** emacs-18.59-fsf/src/simplerexx.c    Thu Jan  1 00:00:00 1970
  9833. --- emacs-18.59-amiga/src/simplerexx.c    Mon May 10 14:35:42 1993
  9834. ***************
  9835. *** 0 ****
  9836. --- 1,416 ----
  9837. + /*
  9838. +  * Simple ARexx interface by Michael Sinz
  9839. +  *
  9840. +  * This is a very "Simple" interface to the world of ARexx...
  9841. +  * For more complex interfaces into ARexx, it is best that you
  9842. +  * understand the functions that are provided by ARexx.
  9843. +  * In many cases they are more powerful than what is presented
  9844. +  * here.
  9845. +  *
  9846. +  * This code is fully re-entrant and self-contained other than
  9847. +  * the use of SysBase/AbsExecBase and the ARexx RVI support
  9848. +  * library which is also self-contained...
  9849. +  */
  9850. + 
  9851. + #include    <exec/types.h>
  9852. + #include    <exec/nodes.h>
  9853. + #include    <exec/lists.h>
  9854. + #include    <exec/ports.h>
  9855. + #include    <exec/memory.h>
  9856. + 
  9857. + #include    <proto/exec.h>
  9858. + 
  9859. + #include    <rexx/storage.h>
  9860. + #include    <rexx/rxslib.h>
  9861. + 
  9862. + #include    <string.h>
  9863. + #include    <ctype.h>
  9864. + 
  9865. + /*
  9866. +  * The prototypes for the few ARexx functions we will call...
  9867. +  */
  9868. + struct RexxMsg *CreateRexxMsg(struct MsgPort *,char *,char *);
  9869. + void *CreateArgstring(char *,long);
  9870. + void DeleteRexxMsg(struct RexxMsg *);
  9871. + void DeleteArgstring(char *);
  9872. + BOOL IsRexxMsg(struct Message *);
  9873. + 
  9874. + /*
  9875. +  * Pragmas for the above functions...  (To make this all self-contained...)
  9876. +  * If you use RexxGlue.o, this is not needed...
  9877. +  *
  9878. +  * These are for Lattice C 5.x  (Note the use of RexxContext->RexxSysBase)
  9879. +  */
  9880. + #pragma libcall RexxContext->RexxSysBase CreateRexxMsg 90 09803
  9881. + #pragma libcall RexxContext->RexxSysBase CreateArgstring 7E 0802
  9882. + #pragma libcall RexxContext->RexxSysBase DeleteRexxMsg 96 801
  9883. + #pragma libcall RexxContext->RexxSysBase DeleteArgstring 84 801
  9884. + #pragma libcall RexxContext->RexxSysBase IsRexxMsg A8 801
  9885. + 
  9886. + /*
  9887. +  * Now, we have made the pragmas needed, let's get to work...
  9888. +  */
  9889. + 
  9890. + /*
  9891. +  * A structure for the ARexx handler context
  9892. +  * This is *VERY* *PRIVATE* and should not be touched...
  9893. +  */
  9894. + struct    ARexxContext
  9895. + {
  9896. + struct    MsgPort    *ARexxPort;    /* The port messages come in at... */
  9897. + struct    Library    *RexxSysBase;    /* We will hide the library pointer here... */
  9898. +     long    Outstanding;    /* The count of outstanding ARexx messages... */
  9899. +     char    PortName[24];    /* The port name goes here... */
  9900. +     char    ErrorName[28];    /* The name of the <base>.LASTERROR... */
  9901. +     char    Extension[8];    /* Default file name extension... */
  9902. + };
  9903. + 
  9904. + #define    AREXXCONTEXT    struct ARexxContext *
  9905. + 
  9906. + #include    "SimpleRexx.h"
  9907. + 
  9908. + /*
  9909. +  * This function returns the port name of your ARexx port.
  9910. +  * It will return NULL if there is no ARexx port...
  9911. +  *
  9912. +  * This string is *READ ONLY*  You *MUST NOT* modify it...
  9913. +  */
  9914. + char *ARexxName(AREXXCONTEXT RexxContext)
  9915. + {
  9916. +     register    char    *tmp=NULL;
  9917. + 
  9918. +     if (RexxContext) tmp=RexxContext->PortName;
  9919. +     return(tmp);
  9920. + }
  9921. + 
  9922. + /*
  9923. +  * This function returns the signal mask that the Rexx port is
  9924. +  * using.  It returns NULL if there is no signal...
  9925. +  *
  9926. +  * Use this signal bit in your Wait() loop...
  9927. +  */
  9928. + ULONG ARexxSignal(AREXXCONTEXT RexxContext)
  9929. + {
  9930. +     register    ULONG    tmp=NULL;
  9931. + 
  9932. +     if (RexxContext) tmp=1L << (RexxContext->ARexxPort->mp_SigBit);
  9933. +     return(tmp);
  9934. + }
  9935. + 
  9936. + /*
  9937. +  * This function returns a structure that contains the commands sent from
  9938. +  * ARexx or the results of commands you sent.  You will need to parse it 
  9939. +  * and return the structure back so that the memory can be freed.
  9940. +  *
  9941. +  * This returns NULL if there was no message.
  9942. +  */
  9943. + struct RexxMsg *GetARexxMsg(AREXXCONTEXT RexxContext)
  9944. + {
  9945. +     register    struct    RexxMsg    *tmp=NULL;
  9946. +     register        short    flag;
  9947. + 
  9948. +     if (RexxContext) tmp=(struct RexxMsg *)GetMsg(RexxContext->ARexxPort);
  9949. +     return(tmp);
  9950. + }
  9951. + 
  9952. + /* Use this to delete a message sent via SendARexxMsg and that has now been
  9953. +    returned to you.
  9954. + */
  9955. + void DeleteARexxMsg(AREXXCONTEXT RexxContext, struct RexxMsg *rmsg)
  9956. + {
  9957. +     /*
  9958. +      * Free the arguments and the message...
  9959. +      */
  9960. +     if(rmsg->rm_Action & RXFF_RESULT) {
  9961. +     if(rmsg->rm_Result1 == 0 && rmsg->rm_Result2) {
  9962. +         DeleteArgstring((STRPTR)rmsg->rm_Result2);
  9963. +     }
  9964. +     }
  9965. +     DeleteArgstring(rmsg->rm_Args[0]);
  9966. +     DeleteRexxMsg(rmsg);
  9967. +     RexxContext->Outstanding-=1;
  9968. + }
  9969. + 
  9970. + /*
  9971. +  * Use this to return a ARexx message...
  9972. +  *
  9973. +  * If you wish to return something, it must be in the RString.
  9974. +  * If you wish to return an Error, it must be in the Error.
  9975. +  * If there is an error, the RString is ignored.
  9976. +  */
  9977. + void ReplyARexxMsg(AREXXCONTEXT RexxContext,struct RexxMsg *rmsg,
  9978. +            char *RString,LONG Error)
  9979. + {
  9980. +     if (RexxContext) if (rmsg) if (rmsg!=REXX_RETURN_ERROR)
  9981. +     {
  9982. +     rmsg->rm_Result2=0;
  9983. +     if (!(rmsg->rm_Result1=Error))
  9984. +     {
  9985. +         /*
  9986. +          * if you did not have an error we return the string
  9987. +          */
  9988. +         if (rmsg->rm_Action & (1L << RXFB_RESULT)) if (RString)
  9989. +         {
  9990. +         rmsg->rm_Result2=(LONG)CreateArgstring(RString,
  9991. +                                (LONG)strlen(RString));
  9992. +         }
  9993. +     }
  9994. + 
  9995. +     /*
  9996. +      * Reply the message to ARexx...
  9997. +      */
  9998. +     ReplyMsg((struct Message *)rmsg);
  9999. +     }
  10000. + }
  10001. + 
  10002. + /*
  10003. +  * This function will set an error string for the ARexx
  10004. +  * application in the variable defined as <appname>.LASTERROR
  10005. +  *
  10006. +  * Note that this can only happen if there is an ARexx message...
  10007. +  *
  10008. +  * This returns TRUE if it worked, FALSE if it did not...
  10009. +  */
  10010. + short SetARexxLastError(AREXXCONTEXT RexxContext,struct RexxMsg *rmsg,
  10011. +             char *ErrorString)
  10012. + {
  10013. +     register    short    OkFlag=FALSE;
  10014. + 
  10015. +     if (RexxContext) if (rmsg) if (CheckRexxMsg(rmsg))
  10016. +     {
  10017. +     /*
  10018. +      * Note that SetRexxVar() has more than just a TRUE/FALSE
  10019. +      * return code, but for this "basic" case, we just care if
  10020. +      * it works or not.
  10021. +      */
  10022. +     if (!SetRexxVar(rmsg,RexxContext->ErrorName,ErrorString,
  10023. +             (long)strlen(ErrorString)))
  10024. +     {
  10025. +         OkFlag=TRUE;
  10026. +     }
  10027. +     }
  10028. +     return(OkFlag);
  10029. + }
  10030. + 
  10031. + /*
  10032. +  * This function will send a string to ARexx...
  10033. +  *
  10034. +  * The default host port will be that of your task...
  10035. +  *
  10036. +  * If you set StringFile to TRUE, it will set that bit for the message...
  10037. +  *
  10038. +  * Returns the message sent, or NULL in case of error.
  10039. +  */
  10040. + struct RexxMsg *SendARexxMsg(AREXXCONTEXT RexxContext,char *RString,
  10041. +                   short StringFile, short results)
  10042. + {
  10043. +     register    struct    MsgPort    *RexxPort;
  10044. +     register    struct    RexxMsg    *rmsg;
  10045. +     register        short    flag=FALSE;
  10046. + 
  10047. +     if (RexxContext) if (RString)
  10048. +     {
  10049. +     if (rmsg=CreateRexxMsg(RexxContext->ARexxPort,
  10050. +                    RexxContext->Extension,
  10051. +                    RexxContext->PortName))
  10052. +     {
  10053. +         rmsg->rm_Action=RXCOMM | (StringFile ?
  10054. +                       (1L << RXFB_STRING):0);
  10055. +         rmsg->rm_Action |= (results ? RXFF_RESULT : 0);
  10056. +         if (rmsg->rm_Args[0]=CreateArgstring(RString,
  10057. +                          (LONG)strlen(RString)))
  10058. +         {
  10059. +         /*
  10060. +          * We need to find the RexxPort and this needs
  10061. +          * to be done in a Forbid()
  10062. +          */
  10063. +         Forbid();
  10064. +         if (RexxPort=FindPort(RXSDIR))
  10065. +         {
  10066. +             /*
  10067. +              * We found the port, so put the
  10068. +              * message to ARexx...
  10069. +              */
  10070. +             PutMsg(RexxPort,(struct Message *)rmsg);
  10071. +             RexxContext->Outstanding+=1;
  10072. +             flag=TRUE;
  10073. +         }
  10074. +         else
  10075. +         {
  10076. +             /*
  10077. +              * No port, so clean up...
  10078. +              */
  10079. +             DeleteArgstring(rmsg->rm_Args[0]);
  10080. +             DeleteRexxMsg(rmsg);
  10081. +         }
  10082. +         Permit();
  10083. +         }
  10084. +         else DeleteRexxMsg(rmsg);
  10085. +     }
  10086. +     }
  10087. +     return flag ? rmsg : NULL;
  10088. + }
  10089. + 
  10090. + int PendingCommands(AREXXCONTEXT RexxContext)
  10091. + {
  10092. +     if (RexxContext) return RexxContext->Outstanding;
  10093. +     else return 0;
  10094. + }
  10095. + 
  10096. + /*
  10097. +  * This function closes down the ARexx context that was opened
  10098. +  * with InitARexx...
  10099. +  */
  10100. + void FreeARexx(AREXXCONTEXT RexxContext)
  10101. + {
  10102. +     register    struct    RexxMsg    *rmsg;
  10103. + 
  10104. +     if (RexxContext)
  10105. +     {
  10106. +     /*
  10107. +      * Clear port name so it can't be found...
  10108. +      */
  10109. +     RexxContext->PortName[0]='\0';
  10110. + 
  10111. +     /*
  10112. +      * Clean out any outstanding messages we had sent out...
  10113. +      */
  10114. +     while (RexxContext->Outstanding)
  10115. +     {
  10116. +         WaitPort(RexxContext->ARexxPort);
  10117. +         while (rmsg=GetARexxMsg(RexxContext))
  10118. +         {
  10119. +         if (rmsg!=REXX_RETURN_ERROR)
  10120. +         {
  10121. +             /*
  10122. +              * Any messages that come now are blown
  10123. +              * away...
  10124. +              */
  10125. +             SetARexxLastError(RexxContext,rmsg,
  10126. +                       "99: Port Closed!");
  10127. +             /* removed ReplyARexxMsg() this was a bug that would */
  10128. +             /* obviously cause a loop (we would continue to reply and */
  10129. +             /* then get the message.  It now deletes the message as */
  10130. +             /* should be done.  -ch5/10/93. */
  10131. +             DeleteARexxMsg(RexxContext,rmsg);
  10132. +         }
  10133. +         }
  10134. +     }
  10135. + 
  10136. +     /*
  10137. +      * Clean up the port and delete it...
  10138. +      */
  10139. +     if (RexxContext->ARexxPort)
  10140. +     {
  10141. +         while (rmsg=GetARexxMsg(RexxContext))
  10142. +         {
  10143. +         /*
  10144. +          * Any messages that still are coming in are
  10145. +          * "dead"  We just set the LASTERROR and
  10146. +          * reply an error of 100...
  10147. +          */
  10148. +         SetARexxLastError(RexxContext,rmsg,
  10149. +                   "99: Port Closed!");
  10150. +         ReplyARexxMsg(RexxContext,rmsg,NULL,100);
  10151. +         }
  10152. +         RemPort(RexxContext->ARexxPort);
  10153. +         DeleteMsgPort(RexxContext->ARexxPort);
  10154. +     }
  10155. + 
  10156. +     /*
  10157. +      * Make sure we close the library...
  10158. +      */
  10159. +     if (RexxContext->RexxSysBase)
  10160. +     {
  10161. +         CloseLibrary(RexxContext->RexxSysBase);
  10162. +     }
  10163. + 
  10164. +     /*
  10165. +      * Free the memory of the RexxContext
  10166. +      */
  10167. +     FreeMem(RexxContext,sizeof(struct ARexxContext));
  10168. +     }
  10169. + }
  10170. + 
  10171. + /*
  10172. +  * This routine initializes an ARexx port for your process
  10173. +  * This should only be done once per process.  You must call it
  10174. +  * with a valid application name and you must use the handle it
  10175. +  * returns in all other calls...
  10176. +  *
  10177. +  * NOTE:  The AppName should not have spaces in it...
  10178. +  *        Example AppNames:  "MyWord" or "FastCalc" etc...
  10179. +  *        The name *MUST* be less that 16 characters...
  10180. +  *        If it is not, it will be trimmed...
  10181. +  *        The name will also be UPPER-CASED...
  10182. +  *
  10183. +  * NOTE:  The Default file name extension, if NULL will be
  10184. +  *        "rexx"  (the "." is automatic)
  10185. +  */
  10186. + AREXXCONTEXT InitARexx(char *AppName,char *Extension)
  10187. + {
  10188. +     register    AREXXCONTEXT    RexxContext=NULL;
  10189. +     register    short        loop;
  10190. +     register    short        count;
  10191. +     register    char        *tmp;
  10192. + 
  10193. +     if (RexxContext=AllocMem(sizeof(struct ARexxContext),
  10194. +                  MEMF_PUBLIC|MEMF_CLEAR))
  10195. +     {
  10196. +     if (RexxContext->RexxSysBase=OpenLibrary("rexxsyslib.library", NULL))
  10197. +     {
  10198. +         /*
  10199. +          * Set up the extension...
  10200. +          */
  10201. +         if (!Extension) Extension="rexx";
  10202. +         tmp=RexxContext->Extension;
  10203. +         for (loop=0;(loop<7)&&(Extension[loop]);loop++)
  10204. +         {
  10205. +         *tmp++=Extension[loop];
  10206. +         }
  10207. +         *tmp='\0';
  10208. + 
  10209. +         /*
  10210. +          * Set up a port name...
  10211. +          */
  10212. +         tmp=RexxContext->PortName;
  10213. +         for (loop=0;(loop<16)&&(AppName[loop]);loop++)
  10214. +         {
  10215. +         *tmp++=toupper(AppName[loop]);
  10216. +         }
  10217. +         *tmp='\0';
  10218. + 
  10219. +         /*
  10220. +          * Set up the last error RVI name...
  10221. +          *
  10222. +          * This is <appname>.LASTERROR
  10223. +          */
  10224. +         strcpy(RexxContext->ErrorName,RexxContext->PortName);
  10225. +         strcat(RexxContext->ErrorName,".LASTERROR");
  10226. + 
  10227. +         /* We need to make a unique port name... */
  10228. +         Forbid();
  10229. +         for (count=1,RexxContext->ARexxPort=(VOID *)1;
  10230. +          RexxContext->ARexxPort;count++)
  10231. +         {
  10232. +         stci_d(tmp,count);
  10233. +         RexxContext->ARexxPort=
  10234. +             FindPort(RexxContext->PortName);
  10235. +         }
  10236. + 
  10237. +         /*RexxContext->ARexxPort=CreatePort(RexxContext->PortName,NULL);*/
  10238. +         RexxContext->ARexxPort=CreateMsgPort();
  10239. +         RexxContext->ARexxPort->mp_Node.ln_Name = RexxContext->PortName;
  10240. +         RexxContext->ARexxPort->mp_Node.ln_Pri = 0;
  10241. +         AddPort(RexxContext->ARexxPort);
  10242. +         Permit();
  10243. +     }
  10244. + 
  10245. +     if (!RexxContext->RexxSysBase || !RexxContext->ARexxPort)
  10246. +     {
  10247. +         FreeARexx(RexxContext);
  10248. +         RexxContext=NULL;
  10249. +     }
  10250. +     }
  10251. +     return(RexxContext);
  10252. + }
  10253. diff -rcP emacs-18.59-fsf/src/simplerexx.h emacs-18.59-amiga/src/simplerexx.h
  10254. *** emacs-18.59-fsf/src/simplerexx.h    Thu Jan  1 00:00:00 1970
  10255. --- emacs-18.59-amiga/src/simplerexx.h    Mon May 10 14:35:42 1993
  10256. ***************
  10257. *** 0 ****
  10258. --- 1,119 ----
  10259. + /*
  10260. +  * Simple ARexx interface by Michael Sinz
  10261. +  *
  10262. +  * This is a very "Simple" interface...
  10263. +  */
  10264. + 
  10265. + #ifndef    SIMPLE_REXX_H
  10266. + #define    SIMPLE_REXX_H
  10267. + 
  10268. + #include    <exec/types.h>
  10269. + #include    <exec/nodes.h>
  10270. + #include    <exec/lists.h>
  10271. + #include    <exec/ports.h>
  10272. + 
  10273. + #include    <rexx/storage.h>
  10274. + #include    <rexx/rxslib.h>
  10275. + 
  10276. + /*
  10277. +  * This is the handle that SimpleRexx will give you
  10278. +  * when you initialize an ARexx port...
  10279. +  *
  10280. +  * The conditional below is used to skip this if we have
  10281. +  * defined it earlier...
  10282. +  */
  10283. + #ifndef    AREXXCONTEXT
  10284. + 
  10285. + typedef void *AREXXCONTEXT;
  10286. + 
  10287. + #endif    /* AREXXCONTEXT */
  10288. + 
  10289. + /*
  10290. +  * The value of RexxMsg (from GetARexxMsg) if there was an error returned
  10291. +  */
  10292. + #define    REXX_RETURN_ERROR    ((struct RexxMsg *)-1L)
  10293. + #define    REXX_RETURN_OK            ((struct RexxMsg *)-3L)
  10294. + 
  10295. + /*
  10296. +  * This function closes down the ARexx context that was opened
  10297. +  * with InitARexx...
  10298. +  */
  10299. + void FreeARexx(AREXXCONTEXT);
  10300. + 
  10301. + /*
  10302. +  * This routine initializes an ARexx port for your process
  10303. +  * This should only be done once per process.  You must call it
  10304. +  * with a valid application name and you must use the handle it
  10305. +  * returns in all other calls...
  10306. +  *
  10307. +  * NOTE:  The AppName should not have spaces in it...
  10308. +  *        Example AppNames:  "MyWord" or "FastCalc" etc...
  10309. +  *        The name *MUST* be less that 16 characters...
  10310. +  *        If it is not, it will be trimmed...
  10311. +  *        The name will also be UPPER-CASED...
  10312. +  *
  10313. +  * NOTE:  The Default file name extension, if NULL will be
  10314. +  *        "rexx"  (the "." is automatic)
  10315. +  */
  10316. + AREXXCONTEXT InitARexx(char *,char *);
  10317. + 
  10318. + /*
  10319. +  * This function returns the port name of your ARexx port.
  10320. +  * It will return NULL if there is no ARexx port...
  10321. +  *
  10322. +  * This string is *READ ONLY*  You *MUST NOT* modify it...
  10323. +  */
  10324. + char *ARexxName(AREXXCONTEXT);
  10325. + 
  10326. + /*
  10327. +  * This function returns the signal mask that the Rexx port is
  10328. +  * using.  It returns NULL if there is no signal...
  10329. +  *
  10330. +  * Use this signal bit in your Wait() loop...
  10331. +  */
  10332. + ULONG ARexxSignal(AREXXCONTEXT);
  10333. + 
  10334. + /*
  10335. +  * This function returns a structure that contains the commands sent from
  10336. +  * ARexx...  You will need to parse it and return the structure back
  10337. +  * so that the memory can be freed...
  10338. +  *
  10339. +  * This returns NULL if there was no message...
  10340. +  */
  10341. + struct RexxMsg *GetARexxMsg(AREXXCONTEXT);
  10342. + 
  10343. + /* Use this to delete a message sent via SendARexxMsg and that has now been
  10344. +    returned to you.
  10345. + */
  10346. + void DeleteARexxMsg(AREXXCONTEXT RexxContext, struct RexxMsg *rmsg);
  10347. + 
  10348. + /*
  10349. +  * Use this to return a ARexx message...
  10350. +  *
  10351. +  * If you wish to return something, it must be in the RString.
  10352. +  * If you wish to return an Error, it must be in the Error.
  10353. +  */
  10354. + void ReplyARexxMsg(AREXXCONTEXT,struct RexxMsg *,char *,LONG);
  10355. + 
  10356. + /*
  10357. +  * This function will send a string to ARexx...
  10358. +  *
  10359. +  * The default host port will be that of your task...
  10360. +  *
  10361. +  * If you set StringFile to TRUE, it will set that bit for the message...
  10362. +  *
  10363. +  * Returns the message sent, or NULL in case of error.
  10364. +  */
  10365. + struct RexxMsg *SendARexxMsg(AREXXCONTEXT,char *,short,short);
  10366. + 
  10367. + /*
  10368. +  * This function will set an error string for the ARexx
  10369. +  * application in the variable defined as <appname>.LASTERROR
  10370. +  *
  10371. +  * Note that this can only happen if there is an ARexx message...
  10372. +  *
  10373. +  * This returns TRUE if it worked, FALSE if it did not...
  10374. +  */
  10375. + short SetARexxLastError(AREXXCONTEXT,struct RexxMsg *,char *);
  10376. + 
  10377. + #endif    /* SIMPLE_REXX_H */
  10378. diff -rcP emacs-18.59-fsf/src/smakefile emacs-18.59-amiga/src/smakefile
  10379. *** emacs-18.59-fsf/src/smakefile    Thu Jan  1 00:00:00 1970
  10380. --- emacs-18.59-amiga/src/smakefile    Sat Dec  5 16:43:56 1992
  10381. ***************
  10382. *** 0 ****
  10383. --- 1,45 ----
  10384. + CPP = /cpp/cpp -DAMIGA
  10385. + MAKE = smake  # BSD doesn't have it as a default.
  10386. + #Note: an alternative is  CPP = /lib/cpp
  10387. + 
  10388. + all: xmakefile doall
  10389. + 
  10390. + doall:
  10391. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} all
  10392. + 
  10393. + #This is used in making a distribution.
  10394. + #Do not use it on development directories!
  10395. + distclean:
  10396. +     -delete force paths.h config.h emacs-* temacs xemacs xmakefile \
  10397. +    *! @* *.o
  10398. + 
  10399. + clean:
  10400. +     -delete force temacs xemacs xmakefile @* *.o
  10401. + 
  10402. + xemacs: xmakefile doxemacs
  10403. + 
  10404. + doxemacs:
  10405. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} xemacs
  10406. + 
  10407. + temacs: xmakefile dotemacs
  10408. + 
  10409. + dotemacs:
  10410. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} temacs
  10411. + 
  10412. + demacs: xmakefile dodemacs
  10413. + 
  10414. + dodemacs:
  10415. +     $(MAKE) $(MAKEOVERRIDES) -f xmakefile ${MFLAGS} demacs
  10416. + 
  10417. + # If you have a problem with cc -E here, changing
  10418. + # the definition of CPP above may fix it.
  10419. + xmakefile: ymakefile config.h dostrip
  10420. +     -delete force xmakefile
  10421. +     ${CPP} ymakefile > t:ymkf
  10422. +     dostrip <t:ymkf >xmakefile
  10423. + 
  10424. + dostrip: dostrip.c
  10425. +     sc link dostrip
  10426. + 
  10427. + tags:
  10428. +     etags [a-z]*.h [a-z]*.c /lisp/[a-z]*.el
  10429. diff -rcP emacs-18.59-fsf/src/term.c emacs-18.59-amiga/src/term.c
  10430. *** emacs-18.59-fsf/src/term.c    Fri Jan  3 07:46:47 1992
  10431. --- emacs-18.59-amiga/src/term.c    Sun Nov 22 10:18:02 1992
  10432. ***************
  10433. *** 161,167 ****
  10434.      or'd with 0100.  Zero if no standout marker at all.  */
  10435.   /* used iff TN_standout_width >= 0. */
  10436.   char *chars_wasted;
  10437. ! static char *copybuf;
  10438.   
  10439.   /* nonzero means supposed to write text in standout mode.  */
  10440.   int standout_requested;
  10441. --- 161,167 ----
  10442.      or'd with 0100.  Zero if no standout marker at all.  */
  10443.   /* used iff TN_standout_width >= 0. */
  10444.   char *chars_wasted;
  10445. ! char *copybuf;
  10446.   
  10447.   /* nonzero means supposed to write text in standout mode.  */
  10448.   int standout_requested;
  10449. diff -rcP emacs-18.59-fsf/src/termcap.c emacs-18.59-amiga/src/termcap.c
  10450. *** emacs-18.59-fsf/src/termcap.c    Tue Jan  8 18:08:50 1991
  10451. --- emacs-18.59-amiga/src/termcap.c    Sun Nov 22 10:18:04 1992
  10452. ***************
  10453. *** 30,35 ****
  10454. --- 30,36 ----
  10455.   
  10456.   #ifdef emacs
  10457.   #include "config.h"
  10458. + #include "paths.h"
  10459.   #endif
  10460.   
  10461.   #ifndef BUFSIZE
  10462. ***************
  10463. *** 344,350 ****
  10464. --- 345,355 ----
  10465.   #ifdef VMS
  10466.     filep = tem && legal_filename_p (tem);
  10467.   #else
  10468. + #ifdef AMIGA
  10469. +   filep = tem != 0;            /* Always assume that it is a file */
  10470. + #else
  10471.     filep = tem && (*tem == '/');
  10472. + #endif
  10473.   #endif /* VMS */
  10474.   
  10475.     /* If tem is non-null and starts with / (in the un*x case, that is),
  10476. ***************
  10477. *** 374,384 ****
  10478.       indirect = (char *) 0;
  10479.   
  10480.     if (!tem)
  10481. ! #ifdef VMS
  10482. !     tem = "emacs_library:[etc]termcap.dat";
  10483. ! #else
  10484. !     tem = "/etc/termcap";
  10485. ! #endif
  10486.   
  10487.     /* Here we know we must search a file and tem has its name.  */
  10488.   
  10489. --- 379,385 ----
  10490.       indirect = (char *) 0;
  10491.   
  10492.     if (!tem)
  10493. !     tem = PATH_TERMCAP;
  10494.   
  10495.     /* Here we know we must search a file and tem has its name.  */
  10496.   
  10497. diff -rcP emacs-18.59-fsf/src/tparam.c emacs-18.59-amiga/src/tparam.c
  10498. *** emacs-18.59-fsf/src/tparam.c    Tue Jan  8 18:09:27 1991
  10499. --- emacs-18.59-amiga/src/tparam.c    Sun Nov 22 10:18:10 1992
  10500. ***************
  10501. *** 258,264 ****
  10502.     return outstring;
  10503.   }
  10504.   
  10505. ! #ifdef DEBUG
  10506.   
  10507.   main (argc, argv)
  10508.        int argc;
  10509. --- 258,264 ----
  10510.     return outstring;
  10511.   }
  10512.   
  10513. ! #ifdef TPARAM_DEBUG
  10514.   
  10515.   main (argc, argv)
  10516.        int argc;
  10517. ***************
  10518. *** 274,277 ****
  10519.     return 0;
  10520.   }
  10521.   
  10522. ! #endif /* DEBUG */
  10523. --- 274,277 ----
  10524.     return 0;
  10525.   }
  10526.   
  10527. ! #endif /* TPARAM_DEBUG */
  10528. diff -rcP emacs-18.59-fsf/src/xdisp.c emacs-18.59-amiga/src/xdisp.c
  10529. *** emacs-18.59-fsf/src/xdisp.c    Fri Jul 24 19:08:13 1992
  10530. --- emacs-18.59-amiga/src/xdisp.c    Sun Nov 22 10:19:14 1992
  10531. ***************
  10532. *** 31,36 ****
  10533. --- 31,47 ----
  10534.   #include "commands.h"
  10535.   #include "macros.h"
  10536.   
  10537. + #define MAX_WIN_LINE 64
  10538. + static int win_line_bufpos[MAX_WIN_LINE];
  10539. + static int win_line_modified;
  10540. + static struct buffer *win_line_buffer;
  10541. + #define CLEAR_WIN_LINE() (win_line_buffer = 0)
  10542. + 
  10543. + #ifdef EIGHT_BIT
  10544. + char visible[256];        /* visible[i] is true if character i is
  10545. +                    displayable */
  10546. + #endif
  10547. + 
  10548.   extern int interrupt_input;
  10549.   extern int command_loop_level;
  10550.   
  10551. ***************
  10552. *** 275,281 ****
  10553.       windows_or_buffers_changed++;
  10554.   
  10555.     if (EQ (minibuf_window, selected_window))
  10556. !     this_line_bufpos = 0;
  10557.   
  10558.     prev_echo_area_contents = echo_area_contents;
  10559.   }
  10560. --- 286,295 ----
  10561.       windows_or_buffers_changed++;
  10562.   
  10563.     if (EQ (minibuf_window, selected_window))
  10564. !     {
  10565. !       this_line_bufpos = 0;
  10566. !       CLEAR_WIN_LINE();
  10567. !     }
  10568.   
  10569.     prev_echo_area_contents = echo_area_contents;
  10570.   }
  10571. ***************
  10572. *** 327,332 ****
  10573. --- 341,348 ----
  10574.         must_finish = 1;
  10575.       }
  10576.   
  10577. +   if (windows_or_buffers_changed) CLEAR_WIN_LINE();
  10578. + 
  10579.     if (clip_changed || windows_or_buffers_changed)
  10580.       update_mode_lines++;
  10581.   
  10582. ***************
  10583. *** 453,458 ****
  10584. --- 469,475 ----
  10585.        Also, don't forget to check every line to update the arrow.  */
  10586.     if (pause)
  10587.       {
  10588. +       CLEAR_WIN_LINE();
  10589.         this_line_bufpos = 0;
  10590.         if (!NULL (last_arrow_position))
  10591.       {
  10592. ***************
  10593. *** 709,717 ****
  10594.         && (just_this_one || XFASTINT (w->width) == screen_width)
  10595.         && !EQ (window, minibuf_window))
  10596.       {
  10597. !       pos = *compute_motion (startp, 0, (hscroll ? 1 - hscroll : 0),
  10598.                   point, height + 1, 10000, width, hscroll,
  10599. !                 pos_tab_offset (w, startp));
  10600.   
  10601.         if (pos.vpos < height)
  10602.       {
  10603. --- 726,754 ----
  10604.         && (just_this_one || XFASTINT (w->width) == screen_width)
  10605.         && !EQ (window, minibuf_window))
  10606.       {
  10607. !       int *wlb;
  10608. !       int line, best_startp, best_vpos;
  10609. ! 
  10610. !       best_startp = startp; best_vpos = 0;
  10611. !       if (win_line_buffer && BUF_MODIFF(win_line_buffer) > win_line_modified)
  10612. !       CLEAR_WIN_LINE();
  10613. !       if (current_buffer == win_line_buffer && current_buffer == XBUFFER (w->buffer))
  10614. !         {
  10615. !       /* Try & find line to start from */
  10616. !       wlb = win_line_bufpos; line = 0;
  10617. !       while (line < MAX_WIN_LINE)
  10618. !         {
  10619. !           if (*wlb && point > *wlb && *wlb > best_startp)
  10620. !             {
  10621. !           best_startp = *wlb;
  10622. !           best_vpos = line;
  10623. !             }
  10624. !           line++; wlb++;
  10625. !         }
  10626. !         }
  10627. !       pos = *compute_motion (best_startp, best_vpos, (hscroll ? 1 - hscroll : 0),
  10628.                   point, height + 1, 10000, width, hscroll,
  10629. !                 pos_tab_offset (w, best_startp));
  10630.   
  10631.         if (pos.vpos < height)
  10632.       {
  10633. ***************
  10634. *** 843,848 ****
  10635. --- 880,887 ----
  10636.   
  10637.     struct position val;
  10638.   
  10639. +   if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  10640. + 
  10641.     Fset_marker (w->start, make_number (pos), Qnil);
  10642.   
  10643.     point_vpos = -1;
  10644. ***************
  10645. *** 908,913 ****
  10646. --- 947,954 ----
  10647.     int delta;
  10648.     int tab_offset, epto;
  10649.   
  10650. +   if (XBUFFER(w->buffer) == win_line_buffer) CLEAR_WIN_LINE();
  10651. + 
  10652.     if (GPT - BEG < beg_unchanged)
  10653.       beg_unchanged = GPT - BEG;
  10654.     if (Z - GPT < end_unchanged)
  10655. ***************
  10656. *** 1334,1339 ****
  10657. --- 1375,1381 ----
  10658.     pause = pos;
  10659.     while (p1 < endp)
  10660.       {
  10661. + restart:
  10662.         p1prev = p1;
  10663.         if (pos == pause)
  10664.       {
  10665. ***************
  10666. *** 1354,1366 ****
  10667.         p = &FETCH_CHAR (pos);
  10668.       }
  10669.         c = *p++;
  10670.         if (c >= 040 && c < 0177)
  10671. !     {
  10672.         if (p1 >= startp)
  10673. !         *p1 = c;
  10674. !       p1++;
  10675. !     }
  10676. !       else if (c == '\n')
  10677.       {
  10678.         invis = 0;
  10679.         while (pos < end
  10680. --- 1396,1439 ----
  10681.         p = &FETCH_CHAR (pos);
  10682.       }
  10683.         c = *p++;
  10684. + #ifdef EIGHT_BIT
  10685. +       if (visible[c])
  10686. + #else
  10687.         if (c >= 040 && c < 0177)
  10688. ! #endif
  10689. !       /* This optimises the frequent part (displayable characters) of
  10690. !      this inner loop. If the conditions aren't met, return to old
  10691. !      inner loop. */
  10692. !         {
  10693.         if (p1 >= startp)
  10694. !         {
  10695. !           do
  10696. !             {
  10697. !           *p1++ = c;
  10698. !           pos++;
  10699. !           if (p1 >= endp)
  10700. !             {
  10701. !               p1prev = p1 - 1;
  10702. !               goto done;
  10703. !             }
  10704. !           if (pos == pause) goto restart;
  10705. !           c = *p++;
  10706. !             }
  10707. ! #ifdef EIGHT_BIT
  10708. !           while (visible[c]);
  10709. ! #else
  10710. !           while (c >= 040 && c < 0177);
  10711. ! #endif
  10712. !           p1prev = p1;
  10713. !         }
  10714. !       else
  10715. !         {
  10716. !           p1++;
  10717. !           pos++;
  10718. !           goto restart;
  10719. !         }
  10720. !         }
  10721. !       if (c == '\n')
  10722.       {
  10723.         invis = 0;
  10724.         while (pos < end
  10725. ***************
  10726. *** 1434,1439 ****
  10727. --- 1507,1513 ----
  10728.       }
  10729.         pos++;
  10730.       }
  10731. + done:
  10732.   
  10733.     val.hpos = - XINT (w->hscroll);
  10734.     if (val.hpos)
  10735. ***************
  10736. *** 1525,1530 ****
  10737. --- 1599,1623 ----
  10738.           this_line_bufpos = 0;
  10739.       }
  10740.       }
  10741. +   /* Save positions of all lines of current window */
  10742. +   if (w == XWINDOW(selected_window) && vpos < MAX_WIN_LINE)
  10743. +   {
  10744. +       /* Line is not continued and did not start in middle of character */
  10745. +       if (hpos == (XINT (w->hscroll) ? 1 - XINT (w->hscroll) : 0)
  10746. +       && val.vpos)
  10747. +       {
  10748. +       if (current_buffer != win_line_buffer ||
  10749. +           !(win_line_modified >= MODIFF))
  10750. +       {
  10751. +           win_line_buffer = current_buffer;
  10752. +           win_line_modified = MODIFF;
  10753. +           bzero(win_line_bufpos, sizeof win_line_bufpos);
  10754. +       }
  10755. +       win_line_bufpos[vpos - XINT (w->top)] = start;
  10756. +       }
  10757. +       else
  10758. +       win_line_bufpos[vpos - XINT (w->top)] = 0;
  10759. +   }
  10760.   
  10761.     /* If hscroll and line not empty, insert truncation-at-left marker */
  10762.     if (hscroll && lastpos != start)
  10763. ***************
  10764. *** 1994,2000 ****
  10765. --- 2087,2097 ----
  10766.       {
  10767.         c = *string++;
  10768.         if (!c) break;
  10769. + #ifdef EIGHT_BIT
  10770. +       if (visible[c])
  10771. + #else
  10772.         if (c >= 040 && c < 0177)
  10773. + #endif
  10774.       {
  10775.         if (p1 >= start)
  10776.           *p1 = c;
  10777. ***************
  10778. *** 2109,2115 ****
  10779. --- 2206,2216 ----
  10780.     register
  10781.   #endif COMPILER_REGISTER_BUG
  10782.       struct window *mini_w;
  10783. + #ifdef EIGHT_BIT
  10784. +   int i;
  10785. + #endif
  10786.   
  10787. +   CLEAR_WIN_LINE();
  10788.     this_line_bufpos = 0;
  10789.   
  10790.     mini_w = XWINDOW (minibuf_window);
  10791. ***************
  10792. *** 2128,2131 ****
  10793. --- 2229,2238 ----
  10794.         XFASTINT (XWINDOW (root_window)->width) = screen_width;
  10795.         XFASTINT (mini_w->width) = screen_width;
  10796.       }
  10797. + #ifdef EIGHT_BIT
  10798. +   for (i = 040; i < 0177; i++) visible[i] = 1;
  10799. + #ifdef AMIGA
  10800. +   for (i = 0240; i <= 0377; i++) visible[i] = 1;
  10801. + #endif
  10802. + #endif
  10803.   }
  10804. diff -rcP emacs-18.59-fsf/src/ymakefile emacs-18.59-amiga/src/ymakefile
  10805. *** emacs-18.59-fsf/src/ymakefile    Tue Oct  6 18:44:28 1992
  10806. --- emacs-18.59-amiga/src/ymakefile    Thu Sep 30 20:52:04 1993
  10807. ***************
  10808. *** 18,24 ****
  10809. --- 18,32 ----
  10810.   the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  10811.   
  10812.   
  10813. + #ifdef amiga
  10814. + #undef amiga
  10815. + #endif
  10816. + 
  10817. + #ifdef AMIGA
  10818. + dot =
  10819. + #else
  10820.   dot = .
  10821. + #endif
  10822.   /* on Xenix, replace double-dot below with $(dot)$(dot) */
  10823.   lispdir = $(dot)$(dot)/lisp/
  10824.   etcdir = $(dot)$(dot)/etc/
  10825. ***************
  10826. *** 161,167 ****
  10827.   #define LINKER gcc -nostdlib
  10828.   #else
  10829.   #define LINKER ld
  10830. ! #endif 
  10831.   #endif /* not ORDINARY_LINK */
  10832.   #endif /* no LINKER */
  10833.   
  10834. --- 169,175 ----
  10835.   #define LINKER gcc -nostdlib
  10836.   #else
  10837.   #define LINKER ld
  10838. ! #endif
  10839.   #endif /* not ORDINARY_LINK */
  10840.   #endif /* no LINKER */
  10841.   
  10842. ***************
  10843. *** 191,197 ****
  10844. --- 199,209 ----
  10845.   SHORT= shortnames
  10846.   #endif /* SHORTNAMES */
  10847.   
  10848. + #ifdef AMIGA
  10849. + CFLAGS= C_DEBUG_SWITCH def emacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM
  10850. + #else
  10851.   CFLAGS= C_DEBUG_SWITCH -Demacs $(MYCPPFLAG) C_SWITCH_MACHINE C_SWITCH_SYSTEM C_SWITCH_X_MACHINE C_SWITCH_X_SYSTEM
  10852. + #endif
  10853.   /* DO NOT use -R.  There is a special hack described in lastfile.c
  10854.      which is used instead.  Some initialized data areas are modified
  10855.      at initial startup, then labeled as part of the text area when
  10856. ***************
  10857. *** 258,264 ****
  10858.   GNULIB_VAR = `if [ -f LIB_GCC ] ; then echo LIB_GCC; else echo; fi`
  10859.   #endif /* __GNUC__ <= 1 */
  10860.   #else
  10861. ! GNULIB_VAR = 
  10862.   #endif
  10863.   
  10864.   #ifdef MAINTAIN_ENVIRONMENT
  10865. --- 270,276 ----
  10866.   GNULIB_VAR = `if [ -f LIB_GCC ] ; then echo LIB_GCC; else echo; fi`
  10867.   #endif /* __GNUC__ <= 1 */
  10868.   #else
  10869. ! GNULIB_VAR =
  10870.   #endif
  10871.   
  10872.   #ifdef MAINTAIN_ENVIRONMENT
  10873. ***************
  10874. *** 270,280 ****
  10875.   #define UNEXEC unexec.o
  10876.   #endif
  10877.   
  10878.   /* lastfile must follow all files
  10879.      whose initialized data areas should be dumped as pure by dump-emacs. */
  10880.   obj=    dispnew.o scroll.o xdisp.o window.o \
  10881. !     term.o cm.o $(XOBJ) \
  10882. !     emacs.o keyboard.o macros.o keymap.o sysdep.o \
  10883.       buffer.o filelock.o insdel.o marker.o \
  10884.       minibuf.o fileio.o dired.o filemode.o \
  10885.       cmds.o casefiddle.o indent.o search.o regex.o undo.o \
  10886. --- 282,300 ----
  10887.   #define UNEXEC unexec.o
  10888.   #endif
  10889.   
  10890. + termobjs= term.o cm.o
  10891. + 
  10892. + #ifdef AMIGA
  10893. + SYSDEP= amiga_sysdep.o
  10894. + #else
  10895. + SYSDEP= sysdep.o
  10896. + #endif
  10897. + 
  10898.   /* lastfile must follow all files
  10899.      whose initialized data areas should be dumped as pure by dump-emacs. */
  10900.   obj=    dispnew.o scroll.o xdisp.o window.o \
  10901. !     $(termobjs) $(XOBJ) \
  10902. !     emacs.o keyboard.o macros.o keymap.o $(SYSDEP) \
  10903.       buffer.o filelock.o insdel.o marker.o \
  10904.       minibuf.o fileio.o dired.o filemode.o \
  10905.       cmds.o casefiddle.o indent.o search.o regex.o undo.o \
  10906. ***************
  10907. *** 360,376 ****
  10908. --- 380,422 ----
  10909.   #ifdef CANNOT_DUMP
  10910.       mv temacs xemacs
  10911.   #else
  10912. + #ifdef AMIGA
  10913. +     -delete ${etcdir}EMACS-DATA xemacs force
  10914. +     temacs -nl -batch -l inc-vers
  10915. +     temacs -nl -batch -l loadup.el dump
  10916. +     -touch xemacs
  10917. +     -delete /temacs force
  10918. +     makelink from /temacs temacs
  10919. + #else
  10920.       ./temacs -batch -l inc-vers
  10921.       ./temacs -batch -l loadup.el dump
  10922. + #endif /* not AMIGA */
  10923.   #endif /* not CANNOT_DUMP */
  10924.   #endif /* not HAVE_SHM */
  10925.   
  10926.   ${etcdir}DOC: ${etcdir}make-docfile ${obj} ${lisp}
  10927. + #ifdef AMIGA
  10928. + REDIRECT_IN= <
  10929. +     -delete force ${etcdir}DOC
  10930. +     ${etcdir}make-docfile >${etcdir}DOC $(REDIRECT_IN) < <
  10931. + ${obj}
  10932. + ${lisp}
  10933. + ${lispdir}version.el
  10934. + ${lispdir}amiga-menu.elc ${lispdir}amiga-init.elc ${lispdir}amiga-mouse.elc
  10935. + OBJECTS_SYSTEM
  10936. + <
  10937. + #else
  10938.       rm -f ${etcdir}DOC
  10939.       ${etcdir}make-docfile ${obj} ${lisp} ${lispdir}version.el > ${etcdir}DOC
  10940. + #endif
  10941.   
  10942. + #ifdef AMIGA
  10943. + ${etcdir}make-docfile: ${etcdir}make-docfile.c
  10944. +     sc link /etc/make-docfile
  10945. + #else
  10946.   ${etcdir}make-docfile:
  10947.       cd ${etcdir}; ${MAKE} ${MFLAGS} make-docfile
  10948. + #endif
  10949.   
  10950.   /* Some systems define this to cause parallel Make-ing.  */
  10951.   #ifndef MAKE_PARALLEL
  10952. ***************
  10953. *** 378,384 ****
  10954. --- 424,453 ----
  10955.   #endif
  10956.   
  10957.   temacs: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  10958. + #ifdef AMIGA
  10959. +     slink <with <
  10960. + from ${STARTFILES} $(obj) OBJECTS_SYSTEM OBJECTS_MACHINE $(otherobj)
  10961. + to temacs
  10962. + lib LIB_STANDARD
  10963. + nodebug
  10964. + batch
  10965. + <
  10966. + #endif
  10967. + 
  10968. + demacs: MAKE_PARALLEL $(LOCALCPP) $(SHORT) $(STARTFILES) $(OLDXMENU) ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE
  10969. + #ifdef AMIGA
  10970. +     slink <with <
  10971. + from ${STARTFILES} $(obj) OBJECTS_SYSTEM OBJECTS_MACHINE $(otherobj)
  10972. + to demacs
  10973. + lib LIB_STANDARD
  10974. + map ram:emacs.map,h,x
  10975. + addsym
  10976. + swidth 16
  10977. + batch
  10978. + <
  10979. + #else
  10980.       $(LD) ${STARTFLAGS} ${LDFLAGS} -o temacs ${STARTFILES} ${obj} ${otherobj} OBJECTS_SYSTEM OBJECTS_MACHINE ${LIBES}
  10981. + #endif
  10982.   
  10983.   /* These are needed for C compilation, on the systems that need them */
  10984.   #ifdef NEED_CPP
  10985. ***************
  10986. *** 460,510 ****
  10987.      it is so often changed in ways that do not require any recompilation
  10988.      and so rarely changed in ways that do require any.  */
  10989.   
  10990. ! abbrev.o : abbrev.c buffer.h commands.h config.h 
  10991. ! buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h 
  10992. ! callint.o : callint.c window.h commands.h buffer.h config.h 
  10993. ! callproc.o : callproc.c paths.h buffer.h commands.h config.h 
  10994. ! casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h 
  10995.   cm.o : cm.c cm.h termhooks.h config.h
  10996. ! cmds.o : cmds.c syntax.h buffer.h commands.h config.h 
  10997.   crt0.o : crt0.c config.h
  10998.       $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  10999.   dired.o : dired.c commands.h buffer.h config.h regex.h
  11000.   dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h lisp.h
  11001.   doc.o : doc.c buffer.h config.h paths.h
  11002.   doprnt.o : doprnt.c
  11003. ! editfns.o : editfns.c window.h buffer.h config.h 
  11004. ! emacs.o : emacs.c commands.h config.h 
  11005.   #ifdef MAINTAIN_ENVIRONMENT
  11006.   environ.o : environ.c buffer.h commands.h config.h
  11007.   #endif /* MAINTAIN_ENVIRONMENT */
  11008. ! fileio.o : fileio.c window.h buffer.h config.h 
  11009.   filelock.o : filelock.c buffer.h paths.h config.h
  11010. ! filemode.o : filemode.c 
  11011.   indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h
  11012. ! insdel.o : insdel.c window.h buffer.h config.h 
  11013. ! keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h 
  11014. ! keymap.o : keymap.c buffer.h commands.h config.h 
  11015. ! lastfile.o : lastfile.c 
  11016.   macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  11017.   malloc.o : malloc.c config.h
  11018. ! marker.o : marker.c buffer.h config.h 
  11019. ! minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h 
  11020.   mocklisp.o : mocklisp.c buffer.h config.h
  11021. ! process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h dispextern.h config.h 
  11022. ! regex.o : regex.c syntax.h buffer.h config.h regex.h 
  11023.   scroll.o : scroll.c termchar.h config.h dispextern.h termhooks.h
  11024. ! search.o : search.c regex.h commands.h buffer.h syntax.h config.h 
  11025. ! syntax.o : syntax.c syntax.h buffer.h commands.h config.h 
  11026.   sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  11027.   term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h
  11028.   termcap.o : termcap.c config.h
  11029.   terminfo.o : terminfo.c config.h
  11030.   tparam.o : tparam.c config.h
  11031. ! undo.o : undo.c buffer.h commands.h config.h 
  11032.   UNEXEC : config.h getpagesize.h
  11033.   window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h
  11034. ! xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h 
  11035.   xfns.o : xfns.c xterm.h window.h config.h
  11036.   xmenu.o : xmenu.c xterm.h window.h config.h
  11037.   xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  11038. --- 529,579 ----
  11039.      it is so often changed in ways that do not require any recompilation
  11040.      and so rarely changed in ways that do require any.  */
  11041.   
  11042. ! abbrev.o : abbrev.c buffer.h commands.h config.h
  11043. ! buffer.o : buffer.c syntax.h buffer.h commands.h window.h config.h
  11044. ! callint.o : callint.c window.h commands.h buffer.h config.h
  11045. ! callproc.o : callproc.c paths.h buffer.h commands.h config.h
  11046. ! casefiddle.o : casefiddle.c syntax.h commands.h buffer.h config.h
  11047.   cm.o : cm.c cm.h termhooks.h config.h
  11048. ! cmds.o : cmds.c syntax.h buffer.h commands.h config.h
  11049.   crt0.o : crt0.c config.h
  11050.       $(CC) -c $(CFLAGS) C_SWITCH_ASM crt0.c
  11051.   dired.o : dired.c commands.h buffer.h config.h regex.h
  11052.   dispnew.o : dispnew.c commands.h window.h buffer.h dispextern.h termchar.h termopts.h cm.h config.h lisp.h
  11053.   doc.o : doc.c buffer.h config.h paths.h
  11054.   doprnt.o : doprnt.c
  11055. ! editfns.o : editfns.c window.h buffer.h config.h
  11056. ! emacs.o : emacs.c commands.h config.h
  11057.   #ifdef MAINTAIN_ENVIRONMENT
  11058.   environ.o : environ.c buffer.h commands.h config.h
  11059.   #endif /* MAINTAIN_ENVIRONMENT */
  11060. ! fileio.o : fileio.c window.h buffer.h config.h
  11061.   filelock.o : filelock.c buffer.h paths.h config.h
  11062. ! filemode.o : filemode.c
  11063.   indent.o : indent.c window.h indent.h buffer.h config.h termchar.h termopts.h
  11064. ! insdel.o : insdel.c window.h buffer.h config.h
  11065. ! keyboard.o : keyboard.c termchar.h termhooks.h termopts.h buffer.h commands.h window.h macros.h config.h
  11066. ! keymap.o : keymap.c buffer.h commands.h config.h
  11067. ! lastfile.o : lastfile.c
  11068.   macros.o : macros.c window.h buffer.h commands.h macros.h config.h
  11069.   malloc.o : malloc.c config.h
  11070. ! marker.o : marker.c buffer.h config.h
  11071. ! minibuf.o : minibuf.c syntax.h window.h buffer.h commands.h config.h
  11072.   mocklisp.o : mocklisp.c buffer.h config.h
  11073. ! process.o : process.c process.h buffer.h window.h termhooks.h termopts.h commands.h dispextern.h config.h
  11074. ! regex.o : regex.c syntax.h buffer.h config.h regex.h
  11075.   scroll.o : scroll.c termchar.h config.h dispextern.h termhooks.h
  11076. ! search.o : search.c regex.h commands.h buffer.h syntax.h config.h
  11077. ! syntax.o : syntax.c syntax.h buffer.h commands.h config.h
  11078.   sysdep.o : sysdep.c config.h dispextern.h termhooks.h termchar.h termopts.h window.h
  11079.   term.o : term.c termchar.h termhooks.h termopts.h config.h cm.h
  11080.   termcap.o : termcap.c config.h
  11081.   terminfo.o : terminfo.c config.h
  11082.   tparam.o : tparam.c config.h
  11083. ! undo.o : undo.c buffer.h commands.h config.h
  11084.   UNEXEC : config.h getpagesize.h
  11085.   window.o : window.c indent.h commands.h window.h buffer.h config.h termchar.h
  11086. ! xdisp.o : xdisp.c macros.h commands.h indent.h buffer.h dispextern.h termchar.h window.h config.h
  11087.   xfns.o : xfns.c xterm.h window.h config.h
  11088.   xmenu.o : xmenu.c xterm.h window.h config.h
  11089.   xterm.o : xterm.c xterm.h termhooks.h termopts.h termchar.h \
  11090. ***************
  11091. *** 517,529 ****
  11092.   
  11093.   /* The files of Lisp proper */
  11094.   
  11095. ! alloc.o : alloc.c window.h buffer.h config.h 
  11096. ! bytecode.o : bytecode.c buffer.h config.h 
  11097. ! data.o : data.c buffer.h config.h 
  11098.   eval.o : eval.c commands.h config.h
  11099.   fns.o : fns.c buffer.h commands.h config.h
  11100. ! print.o : print.c process.h window.h buffer.h dispextern.h termchar.h config.h 
  11101. ! lread.o : lread.c buffer.h paths.h config.h 
  11102.   
  11103.   /* System-specific programs to be made.
  11104.      OTHER_FILES, OBJECTS_SYSTEM and OBJECTS_MACHINE
  11105. --- 586,598 ----
  11106.   
  11107.   /* The files of Lisp proper */
  11108.   
  11109. ! alloc.o : alloc.c window.h buffer.h config.h
  11110. ! bytecode.o : bytecode.c buffer.h config.h
  11111. ! data.o : data.c buffer.h config.h
  11112.   eval.o : eval.c commands.h config.h
  11113.   fns.o : fns.c buffer.h commands.h config.h
  11114. ! print.o : print.c process.h window.h buffer.h dispextern.h termchar.h config.h
  11115. ! lread.o : lread.c buffer.h paths.h config.h
  11116.   
  11117.   /* System-specific programs to be made.
  11118.      OTHER_FILES, OBJECTS_SYSTEM and OBJECTS_MACHINE
  11119. ***************
  11120. *** 533,535 ****
  11121. --- 602,619 ----
  11122.   
  11123.   ${etcdir}emacstool: ${etcdir}emacstool.c
  11124.       cd ${etcdir}; ${MAKE} ${MFLAGS} emacstool
  11125. + 
  11126. + SimpleRexx.o: SimpleRexx.c SimpleRexx.h
  11127. + amiga_clipboard.o: amiga_clipboard.c termchar.h amiga.h config.h
  11128. + amiga_dump.o: amiga_dump.c termchar.h buffer.h dispextern.h regex.h amiga.h config.h
  11129. + amiga_menu.o: amiga_menu.c amiga.h config.h
  11130. + amiga_processes.o: amiga_processes.c amiga.h config.h
  11131. + amiga_rexx.o: amiga_rexx.c SimpleRexx.h amiga.h config.h
  11132. + amiga_screen.o: amiga_screen.c termchar.h dispextern.h amiga.h config.h
  11133. + amiga_serial.o: amiga_serial.c amiga.h config.h
  11134. + amiga_sysdep.o: amiga_sysdep.c termopts.h termhooks.h termchar.h dispextern.h \
  11135. +         amiga.h config.h
  11136. + amiga_term.o: amiga_term.c termopts.h termhooks.h  termchar.h config.h
  11137. + amiga_tty.o: amiga_tty.c termhooks.h termchar.h amiga.h config.h
  11138. + amiga_malloc.o: amiga_malloc.c amiga.h config.h
  11139. +     $(CC) $(CFLAGS) parms=both amiga_malloc.c
  11140.