home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / TEKST / FUNNEL_S / OS2 / PATCHES.OS2 < prev    next >
Encoding:
Text File  |  1992-12-10  |  12.6 KB  |  401 lines
  1. Only in .: analyse.c
  2. Only in .: analyse.h
  3. Only in .: as.c
  4. Only in .: as.h
  5. Only in .: clock.c
  6. Only in .: clock.h
  7. diff -w -C2 new/command.c ./command.c
  8. *** new/command.c    Sun Aug 23 14:31:20 1992
  9. --- ./command.c    Wed May 27 06:02:17 1992
  10. ***************
  11. *** 80,86 ****
  12.   /* copies of each argument.                                                   */
  13.   /* Note: The first argument is placed in arr_arg[0].                          */
  14. ! #define FW_ARG_MAX 5
  15.   LOCVAR uword arg_num;
  16. ! LOCVAR char *arg_arr[FW_ARG_MAX+1]; /* Is this +1 necessary? */
  17.   
  18.   /* The FunnelWeb command interpreter allows 10 substitution strings.          */
  19. --- 80,86 ----
  20.   /* copies of each argument.                                                   */
  21.   /* Note: The first argument is placed in arr_arg[0].                          */
  22. ! #define ARG_MAX 5
  23.   LOCVAR uword arg_num;
  24. ! LOCVAR char *arg_arr[ARG_MAX+1]; /* Is this +1 necessary? */
  25.   
  26.   /* The FunnelWeb command interpreter allows 10 substitution strings.          */
  27. ***************
  28. *** 222,226 ****
  29.   {
  30.    uword i;
  31. !  for (i=0;i<=FW_ARG_MAX;i++)
  32.       arg_arr[i]=(char *) mm_perm(sizeof(cl_t));
  33.   
  34. --- 222,226 ----
  35.   {
  36.    uword i;
  37. !  for (i=0;i<=ARG_MAX;i++)
  38.       arg_arr[i]=(char *) mm_perm(sizeof(cl_t));
  39.   
  40. ***************
  41. *** 284,288 ****
  42.   
  43.       /* Exit if we are already full up with arguments. */
  44. !     if (arg_num==FW_ARG_MAX) break;
  45.   
  46.       /* Copy the next argument. */
  47. --- 284,288 ----
  48.   
  49.       /* Exit if we are already full up with arguments. */
  50. !     if (arg_num==ARG_MAX) break;
  51.   
  52.       /* Copy the next argument. */
  53. Only in .: command.h
  54. Only in .: data.c
  55. Only in .: data.h
  56. Only in .: dump.c
  57. Only in .: dump.h
  58. diff -w -C2 new/environ.h ./environ.h
  59. *** new/environ.h    Sat Aug 22 12:39:04 1992
  60. --- ./environ.h    Wed May 27 06:00:18 1992
  61. ***************
  62. *** 94,104 ****
  63.   
  64.   #define MAC 0
  65. ! #define SUN 0
  66.   #define VMS 0
  67.   #define PC  0
  68. - #define OS2 1
  69.   
  70.   /* Ensure that exactly one environment has been selected.                     */
  71. ! #if MAC+SUN+VMS+PC+OS2 != 1
  72.      #error Error: You must choose exactly one machine in ENVIRON.H.
  73.   #endif
  74. --- 94,103 ----
  75.   
  76.   #define MAC 0
  77. ! #define SUN 1
  78.   #define VMS 0
  79.   #define PC  0
  80.   
  81.   /* Ensure that exactly one environment has been selected.                     */
  82. ! #if MAC+SUN+VMS+PC != 1
  83.      #error Error: You must choose exactly one machine in ENVIRON.H.
  84.   #endif
  85. ***************
  86. *** 141,150 ****
  87.   #define STDC 0
  88.   #endif
  89. - 
  90. - #ifdef __GNUC__
  91. - #undef STDC
  92. - #define STDC 1
  93. - #endif
  94. - 
  95.   
  96.   /* Note: If THINK_C is predefined, it is predefined to be 1. */
  97. --- 140,143 ----
  98. Only in new: funnel.rsp
  99. Only in new: fw.def
  100. Only in .: help.c
  101. Only in .: help.h
  102. Only in .: help_gnu.c
  103. Only in .: help_gnu.ctx
  104. Only in .: help_gnu.h
  105. Only in .: help_gnu.txt
  106. Only in .: list.c
  107. Only in .: list.h
  108. Only in .: lister.c
  109. Only in .: lister.h
  110. diff -w -C2 new/machin.c ./machin.c
  111. *** new/machin.c    Sat Aug 22 20:55:12 1992
  112. --- ./machin.c    Wed May 27 04:45:05 1992
  113. ***************
  114. *** 93,97 ****
  115.   /******************************************************************************/
  116.   
  117. ! #if MAC | SUN | PC | OS2
  118.   LOCAL void fn_split P_((p_fn_t,p_fn_t,p_fn_t,p_fn_t));
  119.   LOCAL void fn_split(p_fn,p_path,p_name,p_ext)
  120. --- 93,97 ----
  121.   /******************************************************************************/
  122.   
  123. ! #if MAC | SUN | PC
  124.   LOCAL void fn_split P_((p_fn_t,p_fn_t,p_fn_t,p_fn_t));
  125.   LOCAL void fn_split(p_fn,p_path,p_name,p_ext)
  126. ***************
  127. *** 142,146 ****
  128.   /******************************************************************************/
  129.   
  130. ! #if MAC | SUN | PC | OS2
  131.   LOCAL void fn_join P_((p_fn_t,p_fn_t,p_fn_t,p_fn_t));
  132.   LOCAL void fn_join(p_fn,p_path,p_name,p_ext)
  133. --- 142,146 ----
  134.   /******************************************************************************/
  135.   
  136. ! #if MAC | SUN | PC
  137.   LOCAL void fn_join P_((p_fn_t,p_fn_t,p_fn_t,p_fn_t));
  138.   LOCAL void fn_join(p_fn,p_path,p_name,p_ext)
  139. ***************
  140. *** 165,169 ****
  141.   /******************************************************************************/
  142.   
  143. ! #if MAC | SUN | PC | OS2
  144.   EXPORT void fn_ins(p_cur,p_add)
  145.   p_fn_t p_cur;
  146. --- 165,169 ----
  147.   /******************************************************************************/
  148.   
  149. ! #if MAC | SUN | PC
  150.   EXPORT void fn_ins(p_cur,p_add)
  151.   p_fn_t p_cur;
  152. ***************
  153. *** 269,273 ****
  154.   
  155.   /* The other systems work like Unix. */
  156. ! #if SUN | VMS | PC | OS2
  157.   argc2=argc;
  158.   argv2=argv;
  159. --- 269,273 ----
  160.   
  161.   /* The other systems work like Unix. */
  162. ! #if SUN | VMS | PC
  163.   argc2=argc;
  164.   argv2=argv;
  165. ***************
  166. *** 301,305 ****
  167.   
  168.   /* Macintosh, VMS, and PC have difftime. */
  169. ! #if MAC | VMS | PC | OS2
  170.    if (base == -1)
  171.       return 0.0;
  172. --- 301,305 ----
  173.   
  174.   /* Macintosh, VMS, and PC have difftime. */
  175. ! #if MAC | VMS | PC
  176.    if (base == -1)
  177.       return 0.0;
  178. diff -w -C2 new/machin.h ./machin.h
  179. *** new/machin.h    Sat Aug 22 13:39:26 1992
  180. --- ./machin.h    Wed May 27 05:51:02 1992
  181. ***************
  182. *** 63,74 ****
  183.   #include "style.h"
  184.   
  185. - #ifndef OS2
  186. -    #error machine.h: os2 is not defined
  187. - #endif
  188. - 
  189. - #if !OS2 
  190. -    #error machine.h: os2 is not defined to be 1
  191. - #endif
  192. - 
  193.   /******************************************************************************/
  194.   
  195. --- 63,66 ----
  196. ***************
  197. *** 93,97 ****
  198.   /* The VMS VAX doesn't care about alignment, but operates more efficiently on */
  199.   /* longword boundaries.                                                       */
  200. ! #if SUN | VMS | OS2
  201.   #define ALIGN_POWER (2L)
  202.   #endif
  203. --- 85,89 ----
  204.   /* The VMS VAX doesn't care about alignment, but operates more efficiently on */
  205.   /* longword boundaries.                                                       */
  206. ! #if SUN | VMS
  207.   #define ALIGN_POWER (2L)
  208.   #endif
  209. ***************
  210. *** 121,125 ****
  211.   #endif
  212.   
  213. ! #if PC | OS2
  214.   #define FN_DELIM '\\'
  215.   #endif
  216. --- 113,117 ----
  217.   #endif
  218.   
  219. ! #if PC
  220.   #define FN_DELIM '\\'
  221.   #endif
  222. ***************
  223. *** 178,186 ****
  224.   
  225.   /* On a PC, we assume this is enough. */
  226. ! #if PC | OS2
  227.   #define COMLINE_MAX 300
  228.   #endif
  229.   
  230. - 
  231.   /* Make sure that the value is not too low. */
  232.   /* The value 300 is guaranteed by the command interpreter. */
  233. --- 170,177 ----
  234.   
  235.   /* On a PC, we assume this is enough. */
  236. ! #if PC
  237.   #define COMLINE_MAX 300
  238.   #endif
  239.   
  240.   /* Make sure that the value is not too low. */
  241.   /* The value 300 is guaranteed by the command interpreter. */
  242. ***************
  243. *** 210,214 ****
  244.   /* to be non-Unix, as non-Unix will work on ALL systems (including Unix).     */
  245.   
  246. ! #if MAC | VMS | PC | OS2
  247.   /* These systems do NOT use Unix EOLs. */
  248.   #define UNIX_EOL 0
  249. --- 201,205 ----
  250.   /* to be non-Unix, as non-Unix will work on ALL systems (including Unix).     */
  251.   
  252. ! #if MAC | VMS | PC
  253.   /* These systems do NOT use Unix EOLs. */
  254.   #define UNIX_EOL 0
  255. Only in new: make.report
  256. Only in new: makefile
  257. Only in .: mapper.c
  258. Only in .: mapper.h
  259. Only in .: memory.c
  260. Only in .: memory.h
  261. diff -w -C2 new/misc.c ./misc.c
  262. *** new/misc.c    Sun Aug 23 14:33:02 1992
  263. --- ./misc.c    Wed May 27 04:45:06 1992
  264. ***************
  265. *** 51,59 ****
  266.   /******************************************************************************/
  267.   
  268. ! EXPORT void wr_s  (s) char *s; {wf_wr(&f_s,s); fflush(stdout); }
  269.   EXPORT void wr_j  (s) char *s; {wf_wr(&f_j,s);}
  270.   EXPORT void wr_l  (s) char *s; {wf_wr(&f_l,s);}
  271.   
  272. ! EXPORT void wl_s  (s) char *s; {wf_wr(&f_s,s); wf_wr(&f_s,"\n"); fflush(stdout);}
  273.   EXPORT void wl_j  (s) char *s; {wf_wr(&f_j,s); wf_wr(&f_j,"\n");}
  274.   EXPORT void wl_l  (s) char *s; {wf_wr(&f_l,s); wf_wr(&f_l,"\n");}
  275. --- 51,59 ----
  276.   /******************************************************************************/
  277.   
  278. ! EXPORT void wr_s  (s) char *s; {wf_wr(&f_s,s);}
  279.   EXPORT void wr_j  (s) char *s; {wf_wr(&f_j,s);}
  280.   EXPORT void wr_l  (s) char *s; {wf_wr(&f_l,s);}
  281.   
  282. ! EXPORT void wl_s  (s) char *s; {wf_wr(&f_s,s); wf_wr(&f_s,"\n");}
  283.   EXPORT void wl_j  (s) char *s; {wf_wr(&f_j,s); wf_wr(&f_j,"\n");}
  284.   EXPORT void wl_l  (s) char *s; {wf_wr(&f_l,s); wf_wr(&f_l,"\n");}
  285. Only in .: misc.h
  286. Only in .: new
  287. Only in .: obj
  288. Only in .: option.c
  289. Only in .: option.h
  290. Only in .: parser.c
  291. Only in .: parser.h
  292. Only in .: patches.os2
  293. Only in .: scanner.c
  294. Only in .: scanner.h
  295. Only in .: section.c
  296. Only in .: section.h
  297. diff -w -C2 new/style.h ./style.h
  298. *** new/style.h    Thu Dec 10 14:30:19 1992
  299. --- ./style.h    Wed May 27 04:45:08 1992
  300. ***************
  301. *** 247,286 ****
  302.   /* that I really wanted the function argument to be a character, while       */
  303.   /* actually supplying an integer.                                            */
  304. - 
  305.   typedef int intchar;
  306.   
  307. ! /*****************************************************************************/
  308. ! /* The toupper() and tolower() macros in the ctype.h file that comes with    */
  309. ! /* current gcc/2 distribution do not work properly with the code for funnel- */
  310. ! /* web, since they do not confine their action to lowercase or uppercase     */
  311. ! /* letters, as appropriate. The following macros fix the problem.            */
  312. ! /* WARNING: this fix depends on the fact that this header file is ALWAYS     */
  313. ! /* included AFTER ctype.h in the funnelweb source files. Change that order   */
  314. ! /* and the fix will fail. I do not think that this kludge is all that awful, */
  315. ! /* even so, since, sooner or later (one hopes sooner), the libc library for  */
  316. ! /* gcc/2 will be changed to glibc, which is a proper ANSI standard library.  */
  317. ! /* The fix is a temporary kludge because one expects the problem to be       */
  318. ! /* temporary. (Yeah, I know, "famous last words".)                           */
  319. ! 
  320. ! #ifdef OS2
  321. ! #ifdef toupper
  322. ! #undef toupper
  323. ! #define    toupper(c)    ((((c) >= 'a') && ((c) <= 'z')) ? ((c) - 'a' + 'A') : (c))
  324. ! #endif
  325. ! 
  326. ! #ifdef tolower
  327. ! #undef tolower
  328. ! #define    tolower(c)    ((((c) >= 'A') && ((c) <= 'Z')) ? ((c) - 'A' + 'a') : (c))
  329. ! #endif
  330. ! #endif
  331. ! 
  332. ! 
  333. ! /*****************************************************************************/
  334.   /* For #ifndef preventing multiple inclusion of the body of this header file.*/
  335.   #endif
  336.   
  337. ! 
  338. ! /*****************************************************************************/
  339.   /*                               End of STYLE.H                              */
  340. ! /*****************************************************************************/
  341.   
  342. --- 247,258 ----
  343.   /* that I really wanted the function argument to be a character, while        */
  344.   /* actually supplying an integer.                                             */
  345.   typedef int intchar;
  346.   
  347. ! /******************************************************************************/
  348.   /* For #ifndef preventing multiple inclusion of the body of this header file. */
  349.   #endif
  350.   
  351. ! /******************************************************************************/
  352.   /*                                End of STYLE.H                              */
  353. ! /******************************************************************************/
  354.   
  355. Only in .: table.c
  356. Only in .: table.h
  357. Only in .: tangle.c
  358. Only in .: tangle.h
  359. Only in .: texhead.c
  360. diff -w -C2 new/texhead.ctx ./texhead.ctx
  361. *** new/texhead.ctx    Sat Sep 12 21:12:15 1992
  362. --- ./texhead.ctx    Wed May 27 04:45:09 1992
  363. ***************
  364. *** 123,128 ****
  365.    WX("% so as to allow the user to fiddle this stuff to taste without having to");
  366.    WX("% modify the FunnelWeb C code.");
  367. !  WX("\\def\\fwodef{\\vskip0pt$\\lceil$\\parindent=20pt}");
  368. !  WX("\\def\\fwcdef{\\parindent=0pt\\vskip0pt$\\lfloor$}");
  369.    WX("\\def\\fwoquote{`}");
  370.    WX("\\def\\fwcquote{'}");
  371. --- 123,128 ----
  372.    WX("% so as to allow the user to fiddle this stuff to taste without having to");
  373.    WX("% modify the FunnelWeb C code.");
  374. !  WX("\\def\\fwodef{\\parindent=15pt\\vskip0pt$\\lbrace$\\parindent=20pt}");
  375. !  WX("\\def\\fwcdef{$\\rbrace$\\vskip0pt\\parindent=0pt}");
  376.    WX("\\def\\fwoquote{`}");
  377.    WX("\\def\\fwcquote{'}");
  378. Only in .: texhead.h
  379. diff -w -C2 new/texhead.tex ./texhead.tex
  380. *** new/texhead.tex    Sat Sep 12 21:10:15 1992
  381. --- ./texhead.tex    Wed May 27 04:45:09 1992
  382. ***************
  383. *** 123,128 ****
  384.   % so as to allow the user to fiddle this stuff to taste without having to
  385.   % modify the FunnelWeb C code.
  386. ! \def\fwodef{\vskip0pt$\lceil$\parindent=20pt}
  387. ! \def\fwcdef{\parindent=0pt\vskip0pt$\lfloor$}
  388.   \def\fwoquote{`}
  389.   \def\fwcquote{'}
  390. --- 123,128 ----
  391.   % so as to allow the user to fiddle this stuff to taste without having to
  392.   % modify the FunnelWeb C code.
  393. ! \def\fwodef{\parindent=15pt\vskip0pt$\lbrace$\parindent=20pt}
  394. ! \def\fwcdef{$\rbrace$\vskip0pt\parindent=0pt}
  395.   \def\fwoquote{`}
  396.   \def\fwcquote{'}
  397. Only in .: weave.c
  398. Only in .: weave.h
  399. Only in .: writfile.c
  400. Only in .: writfile.h
  401.