home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / GOFER2,03aBugFix.LHA / Gofer230a / src / amiga230a.diffs next >
Encoding:
Text File  |  1994-09-04  |  11.8 KB  |  354 lines
  1. diff --context orig/cmachine.c amiga/cmachine.c
  2. *** orig/cmachine.c    Thu Jun 23 17:00:00 1994
  3. --- amiga/cmachine.c    Thu Sep 01 08:13:33 1994
  4. ***************
  5. *** 23,28 ****
  6. --- 23,30 ----
  7.   #else
  8.   #if     RISCOS
  9.   #define GOFC_INCLUDE "\"Lib:h.gofc\""
  10. + #elif   (S_AMISAS | R_AMISAS | L_AMISAS)
  11. + #define GOFC_INCLUDE  "\"gofc.h\""
  12.   #else
  13.   #define GOFC_INCLUDE  "\"/usr/local/lib/Gofer/gofc.h\""
  14.   #endif
  15. diff --context orig/commonui.c amiga/commonui.c
  16. *** orig/commonui.c    Thu Jun 23 17:00:00 1994
  17. --- amiga/commonui.c    Mon Aug 22 14:56:25 1994
  18. ***************
  19. *** 273,279 ****
  20.       }
  21.       else
  22.       for (charCount=0; *what; charCount++)
  23. !         putchar(*what++);
  24.       fflush(stdout);
  25.   }
  26.   
  27. --- 273,279 ----
  28.       }
  29.       else
  30.       for (charCount=0; *what; charCount++)
  31. !         fputc(*what++, stdout);
  32.       fflush(stdout);
  33.   }
  34.   
  35. diff --context orig/machdep.c amiga/machdep.c
  36. *** orig/machdep.c    Thu Jun 23 17:00:00 1994
  37. --- amiga/machdep.c    Sun Sep 04 21:25:42 1994
  38. ***************
  39. *** 58,63 ****
  40. --- 58,78 ----
  41.   #include <sys/stat.h>
  42.   #endif
  43.   
  44. + #if (S_AMISAS | R_AMISAS | L_AMISAS)
  45. + #include <exec/types.h>
  46. + #include <stdlib.h>
  47. + #include <stdio.h>
  48. + #include <signal.h>
  49. + #include <fcntl.h>
  50. + #include <sys/types.h>
  51. + #include <sys/stat.h>
  52. + #include <dos.h>
  53. + #ifndef MACHDEP_RUNTIME
  54. + __near long __stack = 25000L;
  55. + unsigned char amigabreak = 0;
  56. + #endif
  57. + #endif
  58. + 
  59.   /* --------------------------------------------------------------------------
  60.    * Machine dependent code is used in each of:
  61.    *    - The gofer interpreter        MACHDEP_GOFER
  62. ***************
  63. *** 355,364 ****
  64. --- 370,478 ----
  65.   static Bool terminalEchoReqd = TRUE;
  66.   
  67.   #if (MACHDEP_GOFER | MACHDEP_GOFC)
  68. + #if (S_AMISAS | R_AMISAS | L_AMISAS)
  69. + Int getTerminalWidth() {
  70. +     int lm, rm;
  71. +     int c;
  72. +     static char *nosizecheck = NULL;
  73. +     static int check = 1;
  74. + 
  75. +     /* If the environment variable GOFERNOWIDTH exists,
  76. +      * Gofer will abstain from trying to determine the
  77. +      * width of the ternminal.
  78. +      * Use it if you run Gofer from inside GNU Emacs;
  79. +      * the FIFO device used to communicate lies to both
  80. +      * isatty() and rawcon() and claims it is interactive.
  81. +      */
  82. + 
  83. +     if (check) {
  84. +         /* Only the first time getTerminalWidth() is called */        
  85. +         nosizecheck = getenv("GOFERNOWIDTH");
  86. +         check = 0;
  87. +     }
  88. + 
  89. +     if (!nosizecheck && isatty(fileno(stdin)) > 0 && rawcon(1) == 0) {
  90. +         printf("%c%s",0x9B,"0 q");    /* Request window size report. */
  91. +     /*
  92. +      * Now read the size report.
  93. +      * <CSI>1;1;<bottom>;<right>r
  94. +      */
  95. +     c = getchar();
  96. +     for (;;) {
  97. +             if (c != 0x9B) {        /* <CSI>                       */
  98. +                 c = getchar();
  99. +                 continue;
  100. +             }
  101. +             if (!isdigit(c = getchar()))
  102. +             continue;        /* Top margin (not used).      */
  103. +         while (isdigit(c = getchar()))
  104. +             ;
  105. +         if (c != ';')
  106. +                 continue;        /* ';' seperator.              */
  107. +         if (!isdigit(c = getchar()))
  108. +             continue;        /* Left margin.                */
  109. +             lm = c - '0';
  110. +             while (isdigit(c = getchar()))
  111. +                 lm = lm * 10 + c - '0';
  112. +             if (c != ';')
  113. +                 continue;        /* ';' seperator.              */
  114. +             if (!isdigit(c = getchar()))
  115. +                 continue;        /* Bottom margin (not used).   */
  116. +             while (isdigit(c = getchar()))
  117. +                 ;
  118. +             if (c != ';')
  119. +                 continue;        /* ';' seperator.              */
  120. +             if (!isdigit(c = getchar()))
  121. +                 continue;        /* Right margin.               */
  122. +             rm = c - '0';
  123. +             while (isdigit(c = getchar()))
  124. +                 rm = rm * 10 + c - '0';
  125. +             if (c != ' ')
  126. +                 continue;        /* " r" terminator.            */
  127. +             if ((c = getchar()) != 'r')
  128. +                 continue;
  129. +         break;
  130. +         }
  131. +         if (terminalEchoReqd) rawcon(0);
  132. +         return rm - lm + 1;
  133. +     }
  134. +     else
  135. +         return 77;            /* Anybody's guess...           */
  136. + }
  137. + #else
  138.   Int getTerminalWidth() {        /* PC screen is fixed 80 chars       */
  139.       return 80;
  140.   }
  141.   #endif
  142. + #endif
  143. + 
  144. + #if (S_AMISAS | R_AMISAS | L_AMISAS)
  145. + 
  146. + Void normalTerminal() {            /* restore terminal initial state  */
  147. +     terminalEchoReqd = TRUE;
  148. +     rawcon(0);
  149. + }
  150. + 
  151. + Void noechoTerminal() {            /* turn terminal echo on/off       */
  152. +     terminalEchoReqd = FALSE;
  153. +     rawcon(1);
  154. + }
  155. + 
  156. + Int readTerminalChar() {        /* read character from terminal       */
  157. +     Int c = getchar();
  158. +     /*
  159. +      * This circumvents a problem with
  160. +      * Gofer code like  'run (map toUpper)'
  161. +      */
  162. +     if (c == 3) {            /* Ctrl-C is swallowed raw        */
  163. +         normalTerminal();        /* turn echo on                   */
  164. +     raise(SIGINT);
  165. +     c = '\n';            /* is this reasonable?            */
  166. +     }
  167. +     return c=='\r' ? '\n' : c;
  168. + }
  169. + 
  170. + #else
  171.   
  172.   Void normalTerminal() {            /* restore terminal initial state  */
  173.       terminalEchoReqd = TRUE;
  174. diff --context orig/prelude.h amiga/prelude.h
  175. *** orig/prelude.h    Thu Jun 23 17:00:00 1994
  176. --- amiga/prelude.h    Sun Sep 04 23:12:53 1994
  177. ***************
  178. *** 30,39 ****
  179.   #define OS2      0    /* For IBM OS/2 2.0 using EMX GCC           */
  180.   #define SUNOS    0      /* For Sun 3/Sun 4 running SunOs 4.x           */
  181.   #define MIPS     0    /* For MIPS RC6280/Sony machine NWS-3870    UN */
  182. ! #define NEXTSTEP 1      /* For NeXTstep 3.0 using NeXT cc           */
  183.   #define NEXTGCC  0    /* For NeXTstep with gcc 2.x, doesn't work w/ NS3.2*/
  184.   #define MINIX68K 0    /* For Minix68k with gcc            UN */
  185. ! #define AMIGA    0    /* For Amiga using gcc 2.2.2            UN */
  186.   #define HPUX     0      /* For HPUX using gcc                   */
  187.   #define LINUX    0      /* For Linux using gcc                UN */
  188.   #define RISCOS   0    /* For Acorn DesktopC and RISCOS2 or 3           */
  189. --- 30,42 ----
  190.   #define OS2      0    /* For IBM OS/2 2.0 using EMX GCC           */
  191.   #define SUNOS    0      /* For Sun 3/Sun 4 running SunOs 4.x           */
  192.   #define MIPS     0    /* For MIPS RC6280/Sony machine NWS-3870    UN */
  193. ! #define NEXTSTEP 0      /* For NeXTstep 3.0 using NeXT cc           */
  194.   #define NEXTGCC  0    /* For NeXTstep with gcc 2.x, doesn't work w/ NS3.2*/
  195.   #define MINIX68K 0    /* For Minix68k with gcc            UN */
  196. ! #define S_AMISAS 0      /* For Amiga using SAS/C 6.51 (16bit small)        */
  197. ! #define R_AMISAS 1      /* For Amiga using SAS/C 6.51 (32bit regular)      */
  198. ! #define L_AMISAS 0      /* For Amiga using SAS/C 6.51 (32bit large)        */
  199. ! #define AMIGAGCC 0      /* For Amiga using gcc 2.2.2                    UN */
  200.   #define HPUX     0      /* For HPUX using gcc                   */
  201.   #define LINUX    0      /* For Linux using gcc                UN */
  202.   #define RISCOS   0    /* For Acorn DesktopC and RISCOS2 or 3           */
  203. ***************
  204. *** 80,105 ****
  205.    *   FIXED_SUBST    to force a fixed size for the current substitution
  206.    *-------------------------------------------------------------------------*/
  207.   
  208. ! #define UNIX        (SUNOS  | NEXTSTEP | HPUX | NEXTGCC | LINUX | AMIGA | \
  209.                MINIX68K | ALPHA | OS2 | SVR4 | ULTRIX | AIX | MIPS |\
  210.                SGI4 | NETBSD)
  211. ! #define SMALL_GOFER    (TURBOC | BCC)
  212. ! #define REGULAR_GOFER    (RISCOS | DJGPP | ZTC | ATARI)
  213. ! #define LARGE_GOFER    (UNIX   | WATCOM)
  214.   #define JMPBUF_ARRAY    (UNIX   | DJGPP | RISCOS | ZTC | ATARI)
  215. ! #define DOS_IO        (TURBOC | BCC | DJGPP | ZTC | WATCOM | ATARI)
  216.   #define TERMIO_IO    (LINUX  | HPUX | OS2 | SVR4 | SGI4)
  217. ! #define SGTTY_IO    (SUNOS  | NEXTSTEP | NEXTGCC | AMIGA | MINIX68K | \
  218.                ALPHA  | ULTRIX | AIX | MIPS)
  219.   #define TERMIOS_IO      (NETBSD)
  220. ! #define BREAK_FLOATS    (TURBOC | BCC)
  221.   #define HAS_FLOATS    (REGULAR_GOFER | LARGE_GOFER | BREAK_FLOATS)
  222.   
  223.   #define HASKELL_ARRAYS    (REGULAR_GOFER | LARGE_GOFER)
  224.   #define IO_MONAD    (REGULAR_GOFER | LARGE_GOFER)
  225.   #define IO_DIALOGUE    1 /* Warning: This may become 0 in future versions */
  226.   #define NPLUSK        1 /* Warning: This may become 0 in future versions */
  227. ! #define DO_COMPS    0 /* Warning: This may become 1 in future versions */
  228.   #define FIXED_SUBST    0 /* Warning: This may not be appropriate for PCs  */
  229.   
  230.   /*---------------------------------------------------------------------------
  231. --- 83,109 ----
  232.    *   FIXED_SUBST    to force a fixed size for the current substitution
  233.    *-------------------------------------------------------------------------*/
  234.   
  235. ! #define UNIX        (SUNOS  | NEXTSTEP | HPUX | NEXTGCC | LINUX | AMIGAGCC | \
  236.                MINIX68K | ALPHA | OS2 | SVR4 | ULTRIX | AIX | MIPS |\
  237.                SGI4 | NETBSD)
  238. ! #define SMALL_GOFER    (TURBOC | BCC | S_AMISAS)
  239. ! #define REGULAR_GOFER    (RISCOS | DJGPP | ZTC | R_AMISAS | ATARI)
  240. ! #define LARGE_GOFER    (UNIX   | WATCOM | L_AMISAS)
  241.   #define JMPBUF_ARRAY    (UNIX   | DJGPP | RISCOS | ZTC | ATARI)
  242. ! #define DOS_IO        (TURBOC | BCC | DJGPP | ZTC | WATCOM | ATARI | \
  243. !                          S_AMISAS | R_AMISAS | L_AMISAS)
  244.   #define TERMIO_IO    (LINUX  | HPUX | OS2 | SVR4 | SGI4)
  245. ! #define SGTTY_IO    (SUNOS  | NEXTSTEP | NEXTGCC | AMIGAGCC | MINIX68K | \
  246.                ALPHA  | ULTRIX | AIX | MIPS)
  247.   #define TERMIOS_IO      (NETBSD)
  248. ! #define BREAK_FLOATS    (TURBOC | BCC | S_AMISAS)
  249.   #define HAS_FLOATS    (REGULAR_GOFER | LARGE_GOFER | BREAK_FLOATS)
  250.   
  251.   #define HASKELL_ARRAYS    (REGULAR_GOFER | LARGE_GOFER)
  252.   #define IO_MONAD    (REGULAR_GOFER | LARGE_GOFER)
  253.   #define IO_DIALOGUE    1 /* Warning: This may become 0 in future versions */
  254.   #define NPLUSK        1 /* Warning: This may become 0 in future versions */
  255. ! #define DO_COMPS    1 /* Warning: This may become 1 in future versions */
  256.   #define FIXED_SUBST    0 /* Warning: This may not be appropriate for PCs  */
  257.   
  258.   /*---------------------------------------------------------------------------
  259. ***************
  260. *** 195,201 ****
  261.   #define farCalloc(n,s)    (Void *)valloc(((unsigned)n)*((unsigned)s))
  262.   #endif
  263.   
  264. ! #if     AMIGA
  265.   #include <stdlib.h>
  266.   #define    Main        int
  267.   #define    far
  268. --- 199,205 ----
  269.   #define farCalloc(n,s)    (Void *)valloc(((unsigned)n)*((unsigned)s))
  270.   #endif
  271.   
  272. ! #if     AMIGAGCC
  273.   #include <stdlib.h>
  274.   #define    Main        int
  275.   #define    far
  276. ***************
  277. *** 213,218 ****
  278. --- 217,233 ----
  279.   #define  far
  280.   #endif
  281.   
  282. + #if     (S_AMISAS | R_AMISAS | L_AMISAS)
  283. + #include <stdlib.h>
  284. + #define far
  285. + #define farCalloc(n,s)        (Void *)calloc ((unsigned)n, (unsigned)s)
  286. + /*
  287. +  * This allowBreak() only checks every 64 times it is called:
  288. +  */
  289. + extern unsigned char amigabreak;
  290. + #define allowBreak() if (!(amigabreak -= 4)) chkabort()
  291. + #endif
  292. + 
  293.   #if    RISCOS
  294.   #include <string.h>
  295.   #include <stdlib.h>
  296. ***************
  297. *** 256,262 ****
  298.   #define MainDone
  299.   #endif
  300.   
  301. ! #if (UNIX | DJGPP | RISCOS | ZTC | WATCOM | ATARI)
  302.   #define ctrlbrk(bh)       signal(SIGINT,bh)
  303.   #endif
  304.   
  305. --- 271,277 ----
  306.   #define MainDone
  307.   #endif
  308.   
  309. ! #if (UNIX | DJGPP | RISCOS | ZTC | S_AMISAS | R_AMISAS | L_AMISAS | WATCOM | ATARI)
  310.   #define ctrlbrk(bh)       signal(SIGINT,bh)
  311.   #endif
  312.   
  313. ***************
  314. *** 265,271 ****
  315. --- 280,290 ----
  316.    *-------------------------------------------------------------------------*/
  317.   
  318.   #define Void     void   /* older compilers object to: typedef void Void;   */
  319. + #if (S_AMISAS | R_AMISAS | L_AMISAS)
  320. + typedef int Bool;
  321. + #else
  322.   typedef unsigned Bool;
  323. + #endif
  324.   #define TRUE     1
  325.   #define FALSE    0
  326.   typedef char    *String;
  327. ***************
  328. *** 381,387 ****
  329.   #endif
  330.   #endif
  331.   
  332. ! #define DEF_EDITOR       "vi"            /* replace with ((char *)0)*/
  333. ! #define DEF_EDITLINE       "vi +%d %s"        /* if no default editor rqd*/
  334. ! 
  335.   /*-------------------------------------------------------------------------*/
  336. --- 400,416 ----
  337.   #endif
  338.   #endif
  339.   
  340. !   
  341. ! #if (S_AMISAS | R_AMISAS | L_AMISAS)
  342. ! /* I use vim, a nice vi clone    - Torsten
  343. !  * As far as I know, it's the best vi clone
  344. !  * available for AmigaDOS.
  345. !  * It's available in comp.sources.misc
  346. !  */
  347. ! #define DEF_EDITOR         "vim"
  348. ! #define DEF_EDITLINE       "vim +%d %s"
  349. ! #else
  350. ! #define DEF_EDITOR         "vi"                 /* replace with ((char *)0)*/
  351. ! #define DEF_EDITLINE       "vi +%d %s"          /* if no default editor rqd*/
  352. ! #endif
  353.   /*-------------------------------------------------------------------------*/
  354.