home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / reviewed / volume03 / mawkpch3 / 1 < prev    next >
Encoding:
Text File  |  1993-03-13  |  60.4 KB  |  2,455 lines
  1. From brennan@atc.boeing.com Mon Feb  8 14:18:21 1993
  2.  
  3. patch3 for mawk1.1 posted to volume1 follows in 2 parts (this+1)
  4. --------------------------------------------------------------
  5.  
  6. A script to patch mawk1.1.2 to mawk1.1.3 follows.
  7. Changes are:
  8.  
  9. 1) New configurations:
  10.    hpux coherent 386bsd linux
  11.  
  12. 2) Changed some ints to longs so that Unix and Dos versions
  13.    give same output.  E.g.,
  14.  
  15.    printf "%d" and printf "%ld" are now the same on Dos.
  16.  
  17.    msdos/examples directory with scripts by Ben Myers
  18.  
  19.    Infinity+1 large model pointer bug caused by modulo 2^16
  20.    arithmetic fixed.
  21.  
  22. 3) Grossly surprised to discover  (int) d causes a floating
  23.    point exception on hpux when d is a large double.
  24.    Integer casts are now done more carefully.  Thanks to
  25.    Ken Poulton for finding this bug.
  26.  
  27. 4) Removed ApolloSR10.3 from working configurations. Mawk will
  28.    not work if compiled with CC6.8.
  29.  
  30. 5) A few minor fixes and tweaks.  ($Logs$ contain more detail).
  31.  
  32.  
  33. #!/bin/sh
  34. # This is a shell archive (produced by shar 3.50)
  35. # To extract the files from this archive, save it to a file, remove
  36. # everything above the "!/bin/sh" line above, and type "sh file_name".
  37. #
  38. # made 02/08/1993 19:09 UTC by brennan@blacksmith
  39. # Source directory /a/bronte/users4/brennan/tmp/M
  40. #
  41. # existing files will NOT be overwritten unless -c is specified
  42. #
  43. # This is part 1 of a multipart archive                                    
  44. # do not concatenate these parts, unpack them in order with /bin/sh        
  45. #
  46. # This shar contains:
  47. # length  mode       name
  48. # ------ ---------- ------------------------------------------
  49. # 111555 -rw-r----- patch3
  50. #
  51. if test -r _shar_seq_.tmp; then
  52.     echo 'Must unpack archives in sequence!'
  53.     echo Please unpack part `cat _shar_seq_.tmp` next
  54.     exit 1
  55. fi
  56. # ============= patch3 ==============
  57. if test -f 'patch3' -a X"$1" != X"-c"; then
  58.     echo 'x - skipping patch3 (File already exists)'
  59.     rm -f _shar_wnt_.tmp
  60. else
  61. > _shar_wnt_.tmp
  62. echo 'x - extracting patch3 (Text)'
  63. sed 's/^X//' << 'SHAR_EOF' > 'patch3' &&
  64. #!/bin/sh
  65. X
  66. # Execute this script to convert mawk1.1.2 to mawk1.1.3
  67. X
  68. X    rm -f msdos/reargv.c
  69. X    mkdir msdos/examples
  70. X
  71. X
  72. X    patch -s <<'DIFFGEN_EOF'
  73. X
  74. *** /dev/null    Sat Feb  6 02:07:00 1993
  75. --- msdos/examples/winobj.awk    Sat Dec  5 13:57:16 1992
  76. ***************
  77. *** 0 ****
  78. --- 1,81 ----
  79. + # Ben Myers <0003571400@mcimail.com>
  80. + 
  81. + # Sum up sizes of Windows OBJ files in current directory
  82. + # requires DOS 5.0 and Borland TDUMP
  83. + # A clumsy script to count Windows OBJs and sum up the CODE sizes
  84. + # run with
  85. + #       awk -fwinobj.awk work1
  86. + # where work1 is a work file
  87. + # You must have at least one filename as an arg, else awk will want to read
  88. + # from con:, hence the requirement for work1
  89. + BEGIN {
  90. + # redirection done by shelled command
  91. + ocount = 0  # obj module counter
  92. + otsize = 0  # text size accumulator
  93. + odsize = 0  # data size accumulator
  94. + system("del workfile.$%$") # Will probably cause a File Not Found message
  95. + # Generate a list of OBJs
  96. + system("dir *.obj /b >" ARGV[1])
  97. + while (getline < ARGV[1] > 0) {
  98. + # TDUMP selects only the SEGDEFs to speed things up a lot
  99. + # and keeps on piping to the workfile
  100. + system("tdump " $1 " -oiSEGDEF >>workfile.$%$")
  101. + ocount++
  102. + }
  103. + # Now read workfile back, processing lines that are module ids and SEGDEF info
  104. + # Print one line for each SEGDEF processed
  105. + j = 1
  106. + while (getline < "workfile.$%$" > 0) {
  107. + # module name
  108. + if($1 == "Display" && $2 == "of" && $3 == "File") { module_name = $4 }
  109. + # SEGDEF CODE
  110. + if($2 == "SEGDEF" && $9 =="'CODE'") {
  111. + decval = hexdec($11)
  112. + otsize += decval
  113. + printf ("%12s CODE %4s %7i\n", module_name, $11, decval)
  114. + j++ }
  115. + # SEGDEF DATA
  116. + if($2 == "SEGDEF" && $9 =="'DATA'") {
  117. + decval = hexdec($11)
  118. + odsize += decval
  119. + printf ("%12s DATA %4s %7i\n", module_name, $11, decval)
  120. + j++ }
  121. + } # while
  122. + } # end of BEGIN section
  123. + # no main loop at all!
  124. + END {
  125. + # print summary and delete work files
  126. + printf ("%i OBJ files\n", ocount)
  127. + printf ("Total CODE size   %04x %7li bytes\n", otsize, otsize)
  128. + printf ("Total DATA size   %04x %7li bytes\n", odsize, odsize)
  129. + system("del "ARGV[1])
  130. + system("del workfile.$%$")
  131. + }  # end of END section
  132. + 
  133. + # No scanf in awk, so convert hex string x to decimal the hard way
  134. + function hexdec (x) {
  135. + result = 0
  136. + for (i=1; i<=length(x); i++) {
  137. + thechar = substr(x,i,1)
  138. + # digits 0-9 and lower case hex produced by TDUMP
  139. + # use brute force
  140. + if (thechar == "0") {result = result*16}
  141. + if (thechar == "1") {result = result*16 + 1}
  142. + if (thechar == "2") {result = result*16 + 2}
  143. + if (thechar == "3") {result = result*16 + 3}
  144. + if (thechar == "4") {result = result*16 + 4}
  145. + if (thechar == "5") {result = result*16 + 5}
  146. + if (thechar == "6") {result = result*16 + 6}
  147. + if (thechar == "7") {result = result*16 + 7}
  148. + if (thechar == "8") {result = result*16 + 8}
  149. + if (thechar == "9") {result = result*16 + 9}
  150. + if (thechar == "a") {result = result*16 + 10}
  151. + if (thechar == "b") {result = result*16 + 11}
  152. + if (thechar == "c") {result = result*16 + 12}
  153. + if (thechar == "d") {result = result*16 + 13}
  154. + if (thechar == "e") {result = result*16 + 14}
  155. + if (thechar == "f") {result = result*16 + 15}
  156. + } # for (i=1;i<length(x);i++)
  157. + return result
  158. + } # function hexdec (x)
  159. + 
  160. *** /dev/null    Sat Feb  6 02:07:00 1993
  161. --- msdos/argvmks.c    Wed Dec 16 18:48:01 1992
  162. ***************
  163. *** 0 ****
  164. --- 1,106 ----
  165. + 
  166. + /*  argvmks.c
  167. + 
  168. +     for MKS Korn Shell
  169. + 
  170. +     If you use this file, add -DHAVE_REARGV=1 to your
  171. +     CFLAGS
  172. + 
  173. +     Contributed by Jack Fitts (fittsj%wmv009@bcsaic.boeing.com)
  174. + 
  175. + */
  176. + 
  177. + /*
  178. + $Log: argvmks.c,v $
  179. +  * Revision 1.2  1992/12/17  02:48:01  mike
  180. +  * 1.1.2d changes for DOS
  181. +  *
  182. +  * Revision 1.1  1992/12/05  22:38:41  mike
  183. +  * Initial revision
  184. +  *
  185. + */
  186. + 
  187. + 
  188. + /***********************************************************/
  189. + /*                                                         */
  190. + /* prototypes for reargv                                   */
  191. + /*                                                         */
  192. + /***********************************************************/
  193. + 
  194. + void *malloc(unsigned) ;
  195. + char * basename ( char * );
  196. + char *strcpy(char* , char*) ;
  197. + 
  198. + 
  199. + /***********************************************************/
  200. + /*                                                         */
  201. + /* reargv reset argc/argv from environment for MKS shell   */
  202. + /*                                                         */
  203. + /***********************************************************/
  204. + 
  205. + 
  206. + void reargv ( int *argcp, char *** argvp ) {
  207. + 
  208. +     int i = 0;
  209. +     int cnt ;
  210. +     char ** v;
  211. +     extern char **environ ;
  212. +     register char **pe = environ;
  213. + 
  214. + /* MKS Command line args are in the first n lines of the environment */
  215. + /* each arg is preceded with a tilde (~)*/
  216. + 
  217. +     while ( **(pe++) == '~' )
  218. +         i++;
  219. + 
  220. + /* if no tilde found then not running under MKS */
  221. + 
  222. +     if ( ! i )  return ;
  223. + 
  224. + /* malloc space for array of char pointers */
  225. + 
  226. +     if ( ! ( v = ( char ** ) malloc (( i + 1 ) * sizeof ( char* ))) )
  227. +         return 1;
  228. + 
  229. + /* set argc to number of args in environ */
  230. + 
  231. +     *argcp = cnt = i;
  232. + 
  233. + /* set char pointers to each command line arg */
  234. + /* jump over the tilde which is the first char in each string */
  235. + 
  236. +     for ( i = 0; i < cnt ; i++ )
  237. +         v[i] = environ[i]+1;
  238. + 
  239. +     /*set last arg to null*/
  240. + 
  241. +     v[cnt] = (char *) 0 ;
  242. +     
  243. +     /*strip leading directory stuff from argv[0] */
  244. + 
  245. +     v[0] = basename(v[0]);
  246. + 
  247. +     *argvp = v;
  248. + }
  249. + 
  250. + 
  251. + /***********************************************************/
  252. + /*                                                         */
  253. + /* basename                                                */
  254. + /*                                                         */
  255. + /***********************************************************/
  256. + 
  257. + static char * basename ( char * s ) {
  258. + 
  259. +     register char * p ;
  260. +     char *last ;
  261. +     
  262. +     /* find the last occurrence of ':' '\\' or '/' */
  263. +     p = s ;  last = (char *) 0 ;
  264. +     while ( *p ) {
  265. +     if ( *p == ':' || *p == '\\' || *p == '/' ) last = p ;
  266. +     p++ ;
  267. +     }
  268. + 
  269. +     return last ? last+1 : s ;
  270. + }
  271. *** /dev/null    Sat Feb  6 02:07:00 1993
  272. --- vargs.h    Fri Oct  2 16:23:41 1992
  273. ***************
  274. *** 0 ****
  275. --- 1,56 ----
  276. + 
  277. + /********************************************
  278. + vargs.h
  279. + copyright 1992 Michael D. Brennan
  280. + 
  281. + This is a source file for mawk, an implementation of
  282. + the AWK programming language.
  283. + 
  284. + Mawk is distributed without warranty under the terms of
  285. + the GNU General Public License, version 2, 1991.
  286. + ********************************************/
  287. + 
  288. + /*
  289. + $Log: vargs.h,v $
  290. +  * Revision 1.1  1992/10/02  23:23:41  mike
  291. +  * Initial revision
  292. +  *
  293. + */
  294. + 
  295. + /* provides common interface to <stdarg.h> or <varargs.h> 
  296. +    only used for error messages
  297. + */
  298. + 
  299. + 
  300. + #if   HAVE_STDARG_H == 0
  301. + #include <varargs.h>
  302. + 
  303. + #ifndef  VA_ALIST
  304. + 
  305. + #define  VA_ALIST(type, arg)  (va_alist) va_dcl { type arg ;
  306. + #define  VA_ALIST2(t1,a1,t2,a2) (va_alist) va_dcl { t1 a1 ; t2 a2 ;
  307. + 
  308. + #endif
  309. + 
  310. + #define  VA_START(p,type, last)  va_start(p) ;\
  311. +                                  last = va_arg(p,type)
  312. + 
  313. + 
  314. + #define  VA_START2(p,t1,a1,t2,a2)  va_start(p) ;\
  315. +                                   a1 = va_arg(p,t1);\
  316. +                                   a2 = va_arg(p,t2)
  317. + 
  318. + #else  /* HAVE_STDARG_H  */
  319. + #include <stdarg.h>
  320. + 
  321. + #ifndef  VA_ALIST
  322. + #define  VA_ALIST(type, arg)  (type arg, ...) {
  323. + #define  VA_ALIST2(t1,a1,t2,a2)  (t1 a1,t2 a2,...) {
  324. + #endif
  325. + 
  326. + #define  VA_START(p,type,last)   va_start(p,last)
  327. + 
  328. + #define  VA_START2(p,t1,a1,t2,a2)  va_start(p,a2)
  329. + 
  330. + #endif
  331. + 
  332. *** /dev/null    Sat Feb  6 02:07:00 1993
  333. --- msdos/examples/srcstat2.awk    Sat Dec  5 13:57:14 1992
  334. ***************
  335. *** 0 ****
  336. --- 1,28 ----
  337. + # Ben Myers <0003571400@mcimail.com>
  338. + 
  339. + # Sum up number, line count, and sizes of SOURCE files in current directory
  340. + # run with 
  341. + #       bmawk -fsrcsize.awk workfile
  342. + # or similar command syntax with your awk program
  343. + # where workfile is a work file
  344. + BEGIN {
  345. + # redirection done by shelled command
  346. + system("dir *.* >workfile")
  347. + ssize = 0   # size accumulator
  348. + slines = 0  # line counter
  349. + scount = 0  # obj counter
  350. + exit
  351. + }
  352. + END {
  353. + # Now read workfile back in
  354. +     while (getline < "workfile" > 0) {
  355. +     if ($2 == "C" || $2 == "H" || $2 == "CPP" || $2 == "HPP")  {
  356. +     filename = sprintf("%s.%s", $1, $2)
  357. +     ssize += $3
  358. +     while (getline < filename > 0) {slines++}
  359. +     scount++
  360. +     }
  361. +     }
  362. + print scount " files, " slines " lines, total size " ssize " bytes"
  363. + system("del workfile")
  364. + }
  365. *** /dev/null    Sat Feb  6 02:07:00 1993
  366. --- msdos/argvpoly.c    Thu Dec 17 20:09:43 1992
  367. ***************
  368. *** 0 ****
  369. --- 1,80 ----
  370. + 
  371. + /*  argvpoly.c
  372. +     --  set arguments via POLYSHELL (now Thompson Shell??)
  373. +     --  no errors, don't change anything if
  374. +     --  it seems shell is not activated   */
  375. + 
  376. + /* POLYSHELL puts the shell expanded command line
  377. +    in the environment variable CMDLINE.  Ascii 0 is
  378. +    replaced by \xff.
  379. + */
  380. + 
  381. + char *strchr(char *, int), *getenv(char *) ;
  382. + char *basename(char *) ;
  383. + void *malloc(unsigned) ;
  384. + int  strcmp(char *, char *) ;
  385. + 
  386. + static  char *basename(char *s)
  387. + /* strip path and extension , upcase the rest */
  388. + { 
  389. +   register char *p ;
  390. + 
  391. +   for ( p = strchr(s,0) ; p > s ; p-- )
  392. +     switch( p[-1] )
  393. +      { case '\\' :
  394. +        case ':'  :
  395. +        case '/'  :  return p ;
  396. +        case '.'  :  p[-1] = 0 ;  break ;
  397. +        default   :
  398. +         if ( p[-1] >= 'a' && p[-1] <= 'z' )   p[-1] -= 32 ;
  399. +         break ;
  400. +      }
  401. + 
  402. +   return  p ;
  403. + }
  404. + 
  405. + /*---------------------
  406. +   reargv  --  recompute  argc and argv for PolyShell
  407. +     if not under shell do nothing
  408. +  *-------------------------------  */
  409. + 
  410. + extern  char *progname ;
  411. + extern  unsigned char _osmajor ;
  412. + 
  413. + void  reargv(int *argcp , char ***argvp)
  414. + { register char *p ;
  415. +   char **v , *q, *cmdline, **vx ;
  416. +   int cnt, cntx ;
  417. + 
  418. +   if ( _osmajor == 2 )  /* ugh */
  419. +      (*argvp)[0] = progname ;
  420. +   else  (*argvp)[0] = basename( (*argvp)[0] ) ;
  421. + 
  422. +   if ( ! (cmdline = getenv("CMDLINE")) )  return ;
  423. + 
  424. +   if ( *(q = strchr(cmdline,0) - 1) != 0xff )
  425. +       return ;  /*  shexpand set wrong */
  426. + 
  427. +   for ( *q = 0, cnt = 1 , p = cmdline ; p < q ; p++ )
  428. +      if ( *p == 0xff ) { cnt++ ; *p = 0 ; }
  429. + 
  430. +   if ( ! (v = (char **) malloc((cnt+1)*sizeof(char*))) )
  431. +        return ;  /* shouldn't happen */
  432. + 
  433. +   p = cmdline ;
  434. +   vx = v ; cntx = cnt ;
  435. +   while ( cnt )
  436. +    { *v++ = p ;
  437. +      cnt-- ;
  438. +      while ( *p )  p++ ;
  439. +      p++ ;
  440. +    }
  441. +   *v = (char *) 0 ;
  442. +   v = vx ;
  443. + 
  444. +   v[0] = basename( v[0] ) ;
  445. +   if ( strcmp(v[0], (*argvp)[0]) )  return  ;/* running under command
  446. +     and sh earlier  */
  447. +   /* running under PolyShell  */
  448. +   *argcp = cntx ;  *argvp = v ;
  449. + }
  450. *** /dev/null    Sat Feb  6 02:07:00 1993
  451. --- config/ztc_dos.h    Sat Dec 26 17:42:50 1992
  452. ***************
  453. *** 0 ****
  454. --- 1,58 ----
  455. + 
  456. + /********************************************
  457. + ztc_dos.h
  458. + copyright 1992, Michael D. Brennan
  459. + 
  460. + This is a source file for mawk, an implementation of
  461. + the AWK programming language.
  462. + 
  463. + Mawk is distributed without warranty under the terms of
  464. + the GNU General Public License, version 2, 1991.
  465. + ********************************************/
  466. + 
  467. + /* Zortech C++ under MSDOS */
  468. + 
  469. + /* $Log: ztc_dos.h,v $
  470. +  * Revision 1.1  1992/12/27  01:42:50  mike
  471. +  * Initial revision
  472. +  *
  473. +  * Revision 4.2.1  92/06/01  00:00:00  bmyers
  474. +  * create Zortech C++ version from Borland C++ version
  475. +  * ZTC has matherr function and no info for floating point exceptions.
  476. +  *
  477. + */
  478. + 
  479. + #ifndef   CONFIG_H
  480. + #define   CONFIG_H      1
  481. + 
  482. + #define   MSDOS                 1
  483. + 
  484. + #define   HAVE_PROTOS           1
  485. + #define   HAVE_STDARG_H         1
  486. + #define   HAVE_STDLIB_H        1
  487. + #define   HAVE_TIME_H        1
  488. + #define   HAVE_STRERROR        1
  489. + 
  490. + #define   HAVE_MATHERR          0
  491. + 
  492. + 
  493. + 
  494. + 
  495. + #define  FPE_TRAPS_ON        1
  496. + #define  NOINFO_SIGFPE          1
  497. + 
  498. + 
  499. + #ifndef   HAVE_SMALL_MEMORY   /* allow large model override */
  500. + #define   HAVE_SMALL_MEMORY     1
  501. + #endif
  502. + 
  503. + #if  HAVE_SMALL_MEMORY==0
  504. + /* how to test far pointers have the same segment */
  505. + #include <dos.h>
  506. + #define  SAMESEG(p,q)    (FP_SEG(p)==FP_SEG(q))
  507. + #endif
  508. + 
  509. + #include "config/Idefault.h"
  510. + 
  511. + 
  512. + #endif  /* CONFIG_H  */
  513. *** /dev/null    Sat Feb  6 02:07:00 1993
  514. --- msdos/examples/objstat.awk    Sat Dec  5 13:57:12 1992
  515. ***************
  516. *** 0 ****
  517. --- 1,20 ----
  518. + # Ben Myers <0003571400@mcimail.com>
  519. + 
  520. + # Sum up sizes of OBJ files in current directory
  521. + # A clumsy script to count OBJs and sum up their sizes
  522. + # run with 
  523. + #       bmawk -fobjsize.awk workfile
  524. + # or similar command syntax with your awk program
  525. + # where workfile is a work file
  526. + BEGIN {
  527. + # redirection done by shelled command
  528. + system("dir *.obj >" ARGV[1])
  529. + osize = 0   # size accumulator
  530. + ocount = 0  # obj counter
  531. + }
  532. + # Now read workfile back, skipping lines that are not files
  533. + $2 == "OBJ" { osize += $3 ; ocount++ }
  534. + END {
  535. + print ocount " OBJs, total size " osize " bytes"
  536. + system("del "ARGV[1])
  537. + }
  538. *** /dev/null    Sat Feb  6 02:07:00 1993
  539. --- msdos/examples/add_cr.awk    Sat Dec  5 13:57:11 1992
  540. ***************
  541. *** 0 ****
  542. --- 1,93 ----
  543. + 
  544. + # add_cr.awk
  545. + # converts from Unix (LF only) text files to
  546. + # DOS (CRLF) text files
  547. + #
  548. + # works on both unix and dos 
  549. + # if used on unix change COPY and DEL in BEGIN section
  550. + #
  551. + # mawk -f add_cr.awk  [files]
  552. + 
  553. + # with no files reads stdin writes stdout
  554. + # otherwise the original is overwritten
  555. + #
  556. + # If a file of the form `@file', then arguments are read from
  557. + # `file', one per line
  558. + 
  559. + #
  560. + # To add cr's to the whole distribution
  561. + #
  562. + # mawk -f doslist.awk packing.lis | mawk "{print $2}" > list
  563. + # mawk -f add_cr.awk  @list
  564. + #
  565. + 
  566. + 
  567. + # read arguments for @file into ARGV[]
  568. + function reset_argv(T, i, j, flag, file) #all args local
  569. + {
  570. +   for( i = 1 ; i < ARGC ; i++ ) 
  571. +   {
  572. +     T[i] = ARGV[i]
  573. +     if ( T[i] ~ /^@/ ) flag = 1
  574. +   }
  575. + 
  576. +   if ( ! flag )  return
  577. + 
  578. +   # need to read from a @file into ARGV
  579. +   j = 1
  580. +   for( i = 1 ; i < ARGC ; i++ )
  581. +   {
  582. +     if ( T[i] !~ /^@/ ) ARGV[j++] = T[i]
  583. +     else
  584. +     {
  585. +       T[i] = substr(T[i],2)
  586. +       # read arguments from T[i]
  587. +       while ( (getline file < T[i]) > 0 ) ARGV[j++] = file
  588. +     }
  589. +   }
  590. +   ARGC = j
  591. + }
  592. +    
  593. +   
  594. + BEGIN {
  595. +   COPY = "copy"    # unix: "cp"
  596. +   DEL = "del"      # unix: "rm"
  597. + 
  598. +   tmpfile = ENVIRON["MAWKTMPDIR"] "MAWK.TMP"
  599. + 
  600. +   reset_argv()
  601. + }
  602. + 
  603. + 
  604. + FILENAME == "-" {
  605. +    # just write to stdout
  606. +    printf "%s\r\n" , $0
  607. +    next
  608. + }
  609. + 
  610. + FILENAME != filename {
  611. +    
  612. +    if ( filename )
  613. +    {
  614. +      close(tmpfile)
  615. +      syscmd = sprintf( "%s %s %s", COPY, tmpfile, filename )
  616. +      system(syscmd)
  617. +    }
  618. + 
  619. +    filename = FILENAME
  620. + }
  621. + 
  622. + { printf "%s\r\n" , $0 > tmpfile }
  623. + 
  624. + 
  625. + END {
  626. +   if ( filename )  
  627. +   {
  628. +     close(tmpfile)
  629. +     syscmd = sprintf( "%s %s %s", COPY, tmpfile, filename )
  630. +     system(syscmd)
  631. +     system(DEL " " tmpfile)
  632. +   }
  633. + }
  634. + 
  635. +    
  636. *** /dev/null    Sat Feb  6 02:07:00 1993
  637. --- msdos/examples/texttest.awk    Sat Dec  5 13:57:15 1992
  638. ***************
  639. *** 0 ****
  640. --- 1,11 ----
  641. + # Ben Myers <0003571400@mcimail.com>
  642. + 
  643. + /^#include/ {
  644. + # got #include, see if it has at least one quote. We don't want #include <>        
  645. +         z = gsub(/"/, "", $2)
  646. +         while ((z > 0) && (getline x <$2 > 0)) 
  647. + #        while (getline x <$2 > 0) 
  648. +                 print x
  649. +         next
  650. + }
  651. + { print }
  652. *** /dev/null    Sat Feb  6 02:07:00 1993
  653. --- msdos/makefile.ztc    Sat Dec 26 17:44:54 1992
  654. ***************
  655. *** 0 ****
  656. --- 1,28 ----
  657. + # Makefile for Zortech C
  658. + 
  659. + OBJ1=parse.obj scan.obj memory.obj main.obj hash.obj execute.obj code.obj\
  660. +   da.obj error.obj init.obj bi_vars.obj cast.obj print.obj bi_funct.obj\
  661. +   kw.obj jmp.obj array.obj field.obj  split.obj re_cmpl.obj zmalloc.obj\
  662. +   fin.obj files.obj  scancode.obj matherr.obj fcall.obj version.obj\
  663. +   dosexec.obj
  664. + 
  665. + #OBJ2=rexp\rexp.obj rexp\rexp0.obj rexp\rexp1.obj rexp\rexp2.obj\
  666. + #  rexp\rexp3.obj  rexp\rexpdb.obj
  667. + 
  668. + OBJ2=rexp.obj rexp0.obj rexp1.obj rexp2.obj\
  669. +   rexp3.obj rexpdb.obj
  670. + 
  671. + CFLAGS=-ml -bx -o -A- -DLARGE -DMAWK -DHAVE_SMALL_MEMORY=0
  672. + 
  673. + LFLAGS = -L/ST:32768
  674. + 
  675. + .c.obj:
  676. +     ztc -c $(CFLAGS) $<
  677. + 
  678. + bmawkztc.exe:    $(OBJ1) $(OBJ2)
  679. +     ztc $(LFLAGS) -obmawkztc $(OBJ1) $(OBJ2)
  680. + 
  681. + $(OBJ1): BI_FUNCT.H BI_VARS.H CODE.H FIELD.H FILES.H INIT.H JMP.H MEMORY.H\
  682. +   PARSE.H PATCHLEV.H REGEXP.H REPL.H SCAN.H SIZES.H SYMTYPE.H TYPES.H\
  683. +   ZMALLOC.H CONFIG.H FIN.H MAWK.H
  684. + $(OBJ2):    rexp.h
  685. *** /dev/null    Sat Feb  6 02:07:00 1993
  686. --- msdos/examples/doslist.awk    Sat Dec  5 13:57:11 1992
  687. ***************
  688. *** 0 ****
  689. --- 1,34 ----
  690. + 
  691. + # print truncated DOS file names
  692. + # from packing.list (packing.lis)
  693. + #
  694. + #  mawk -f doslist.awk packing.lis
  695. + 
  696. + 
  697. + # discard blanks and comments
  698. + /^#/ || /^[ \t]*$/ {next}
  699. + 
  700. + 
  701. + function dos_name(s,    n, front, X)
  702. + {
  703. +   #lowercase, split on extension and truncate pieces
  704. +   s = tolower(s)
  705. +   n = split(s, X, ".")
  706. + 
  707. +   front = substr(X[1],1,8)
  708. + 
  709. +   if ( n == 1 )  return front
  710. +   else return front "." substr(X[2], 1, 3)
  711. + }
  712. + 
  713. + {
  714. +   n = split($1, X, "/")
  715. +   new = dos_name(X[1])
  716. + 
  717. +   for( i = 2 ; i <= n ; i++ )
  718. +     new = new "\\" dos_name(X[i])
  719. + 
  720. +   printf "%-30s%s\n", $1, new
  721. + }
  722. + 
  723. + 
  724. *** /dev/null    Sat Feb  6 02:07:00 1993
  725. --- config/linux.h    Wed Jan 27 19:52:22 1993
  726. ***************
  727. *** 0 ****
  728. --- 1,24 ----
  729. + /*
  730. + 
  731. + linux.h
  732. + Sorta tested with Linux 0.98pl4 & gcc 2.2d7
  733. + Slapped together by Bob Hutchinson
  734. + Standard disclaimer: "Well, it worked for me..."
  735. + 
  736. + */
  737. + 
  738. + 
  739. + #ifndef   CONFIG_H
  740. + #define   CONFIG_H          1
  741. + 
  742. + #define HAVE_MATHERR        0
  743. + #define HAVE_STDLIB_H        1
  744. + 
  745. + #define  DONT_PROTO_OPEN
  746. + 
  747. + #define FPE_TRAPS_ON        1
  748. + #define NOINFO_SIGFPE        1
  749. + 
  750. + #include "config/Idefault.h"
  751. + 
  752. + #endif  /* CONFIG_H  */
  753. *** /dev/null    Sat Feb  6 02:07:00 1993
  754. --- config/coherent.h    Sun Nov 22 10:35:43 1992
  755. ***************
  756. *** 0 ****
  757. --- 1,58 ----
  758. + 
  759. + /********************************************
  760. + coherent.h
  761. + copyright 1992.  Michael D. Brennan
  762. + 
  763. + This is a source file for mawk, an implementation of
  764. + the AWK programming language.
  765. + 
  766. + Mawk is distributed without warranty under the terms of
  767. + the GNU General Public License, version 2, 1991.
  768. + ********************************************/
  769. + 
  770. + /* This is for COHERENT 4.0 */
  771. + 
  772. + /*
  773. + $Log: coherent.h,v $
  774. +  * Revision 1.1  1992/11/22  18:35:43  mike
  775. +  * Initial revision
  776. +  *
  777. + */
  778. + 
  779. + #ifndef  CONFIG_H
  780. + #define  CONFIG_H       1
  781. + 
  782. + #define HAVE_VOID_PTR   0
  783. + #define HAVE_MATHERR    0
  784. + #define HAVE_FMOD       0
  785. + #define HAVE_STDLIB_H   1
  786. + #define HAVE_STRERROR    1
  787. + 
  788. + #define USE_SIMPLE_VFPRINTF  /* no vfprintf() */
  789. + 
  790. + #define HAVE_STDARG_H   1
  791. + 
  792. +    /* but it not standard ! 
  793. +       so add  */
  794. + 
  795. + #define  VA_ALIST(type, arg) (arg) type arg; {
  796. + #define  VA_ALIST2(t1,a1,t2,a2)  (a1,a2) t1 a1; t2 a2; {
  797. + 
  798. + 
  799. + /* Until MWC improves floating point (December 1992, they tell me),
  800. +    or fixes the math library (log(-8) gives 0, for example), we'll
  801. +    have to put up with inconsistent handling. 
  802. +    
  803. +    Coherent 4.0 cannot be set up to pass fpe_test
  804. + */
  805. + 
  806. + #define FPE_TRAPS_ON    1
  807. + #define NOINFO_SIGFPE   1
  808. + 
  809. + 
  810. + int printf();
  811. + int sprintf();
  812. + 
  813. + #include "config/Idefault.h"
  814. + 
  815. + #endif
  816. *** /dev/null    Sat Feb  6 02:07:00 1993
  817. --- msdos/examples/shell.awk    Sat Dec  5 13:57:13 1992
  818. ***************
  819. *** 0 ****
  820. --- 1,16 ----
  821. + # Ben Myers <0003571400@mcimail.com>
  822. + 
  823. + # Test pipes under DOS. comment/uncomment print statements below
  824. + BEGIN {
  825. + # redirection done by shelled command
  826. + system("dir *.* /b >pippo.")
  827. + lcount = 0
  828. + }
  829. + {
  830. + # print
  831. + # Below is redirection done by mawk
  832. + # print >"pippo2."
  833. + print $0 | "sort"
  834. + lcount++
  835. + }
  836. + END { print "mawk NR line count=" NR " our line count=" lcount " lines in pippo"}
  837. *** /dev/null    Sat Feb  6 02:07:00 1993
  838. --- config/386bsd.h    Thu Feb  4 18:20:10 1993
  839. ***************
  840. *** 0 ****
  841. --- 1,36 ----
  842. + 
  843. + /********************************************
  844. + 386bsd.h
  845. + copyright 1993, Michael D. Brennan
  846. + 
  847. + This is a source file for mawk, an implementation of
  848. + the AWK programming language.
  849. + 
  850. + Mawk is distributed without warranty under the terms of
  851. + the GNU General Public License, version 2, 1991.
  852. + ********************************************/
  853. + 
  854. + 
  855. + /*
  856. + $Log: 386bsd.h,v $
  857. +  * Revision 1.1  1993/02/05  02:20:10  mike
  858. +  * Initial revision
  859. +  *
  860. + */
  861. + 
  862. + #ifndef   CONFIG_H
  863. + #define   CONFIG_H    1
  864. + 
  865. + #define   FPE_TRAPS_ON                1
  866. + #define   FPE_ZERODIVIDE   FPE_FLTDIV_TRAP
  867. + #define   FPE_OVERFLOW     FPE_FLTOVF_TRAP
  868. + 
  869. + #define   HAVE_STRTOD         0
  870. + 
  871. + #define   HAVE_MATHERR                0
  872. + 
  873. + #define   DONT_PROTO_OPEN
  874. + 
  875. + #include "config/Idefault.h"
  876. + 
  877. + #endif  /* CONFIG_H  */
  878. *** /dev/null    Sat Feb  6 02:07:00 1993
  879. --- msdos/examples/winexe.awk    Sat Dec  5 13:57:15 1992
  880. ***************
  881. *** 0 ****
  882. --- 1,106 ----
  883. + # Ben Myers <0003571400@mcimail.com>
  884. + 
  885. + # Sum up segment sizes of all Windows EXEs in current directory
  886. + # requires DOS 5.0 and Borland TDUMP
  887. + # run with
  888. + #       awk -fwinexe.awk work1
  889. + # where work1 is a work file
  890. + # You must have at least one filename as an arg, else awk will want to read
  891. + # from con:, hence the requirement for work1
  892. + BEGIN {
  893. + # redirection done by shelled command
  894. + system("del workfile.$%$") # Will probably cause a File Not Found message
  895. + # Generate a list of EXEs
  896. + system("dir *.exe /b > workfile.$%$")
  897. + while (getline < "workfile.$%$" > 0) {
  898. + # TDUMP keeps on piping to the workfile
  899. + system("tdump " $1 ">> " ARGV[1])
  900. + }
  901. + module_name = "" # initialize
  902. + # Now read workfile back, processing lines that:
  903. + # 1. contain EXE file name
  904. + # 2. contain segment type
  905. + # Print EXE name and stats for each segment type processed
  906. + # When there is a new EXE name, print summary for EXE just processed
  907. + j = 1
  908. + while (getline < ARGV[1] > 0) {
  909. + # module name
  910. + if($1 == "Display" && $2 == "of" && $3 == "File") {
  911. + # Print program summary for all but last program
  912. + if(module_name != "") { Print_Summary() }
  913. + otcount = 0 # text segment counter
  914. + odcount = 0 # data segment counter
  915. + otsize = 0  # text size accumulator
  916. + odsize = 0  # data size accumulator
  917. + module_name = $4 }
  918. + # File Size
  919. + if($1 == "DOS" && $2 == "File" && $3 == "Size") {
  920. + # 6+ digit file size with leading left paren
  921. + DOS_Size = substr($5,2,7)
  922. + # file size < 6 digits
  923. + if(DOS_Size == 0 || DOS_Size == "") { DOS_Size = $6 }
  924. + }
  925. + # CODE segment
  926. + if($1 == "Segment" && $2 == "Type:" && $3 =="CODE") {
  927. + decval = hexdec(substr($7,1,4))
  928. + otsize += decval
  929. + # printf ("%12s CODE %4s %7u\n", module_name, $7, decval)
  930. + otcount++ }
  931. + # DATA segment
  932. + if($1 == "Segment" && $2 == "Type:" && $3 =="DATA") {
  933. + decval = hexdec(substr($7,1,4))
  934. + odsize += decval
  935. + # printf ("%12s DATA %4s %7u\n", module_name, $7, decval)
  936. + odcount++ }
  937. + } # while
  938. + } # end of BEGIN section
  939. + # no main loop at all!
  940. + END {
  941. + # print record for last program
  942. + Print_Summary()
  943. + # delete work files
  944. + system("del "ARGV[1])
  945. + system("del workfile.$%$")
  946. + }  # end of END section
  947. + 
  948. + # No scanf in awk, so convert hex string x to decimal the hard way
  949. + function hexdec (x) {
  950. + result = 0
  951. + for (i=1; i<=length(x); i++) {
  952. + thechar = substr(x,i,1)
  953. + # digits 0-9 and lower case hex produced by TDUMP
  954. + # use brute force
  955. + if (thechar == "0") {result = result*16}
  956. + if (thechar == "1") {result = result*16 + 1}
  957. + if (thechar == "2") {result = result*16 + 2}
  958. + if (thechar == "3") {result = result*16 + 3}
  959. + if (thechar == "4") {result = result*16 + 4}
  960. + if (thechar == "5") {result = result*16 + 5}
  961. + if (thechar == "6") {result = result*16 + 6}
  962. + if (thechar == "7") {result = result*16 + 7}
  963. + if (thechar == "8") {result = result*16 + 8}
  964. + if (thechar == "9") {result = result*16 + 9}
  965. + if (thechar == "a") {result = result*16 + 10}
  966. + if (thechar == "b") {result = result*16 + 11}
  967. + if (thechar == "c") {result = result*16 + 12}
  968. + if (thechar == "d") {result = result*16 + 13}
  969. + if (thechar == "e") {result = result*16 + 14}
  970. + if (thechar == "f") {result = result*16 + 15}
  971. + if (thechar == "A") {result = result*16 + 10}
  972. + if (thechar == "B") {result = result*16 + 11}
  973. + if (thechar == "C") {result = result*16 + 12}
  974. + if (thechar == "D") {result = result*16 + 13}
  975. + if (thechar == "E") {result = result*16 + 14}
  976. + if (thechar == "F") {result = result*16 + 15}
  977. + } # for (i=1;i<length(x);i++)
  978. + return result
  979. + } # function hexdec (x)
  980. + 
  981. + function Print_Summary () {
  982. + # zero segment counts mean non-Windows EXE, so don't print
  983. + if (otcount+otcount != 0) {
  984. + printf ("%12s - %10.0f bytes\n", module_name, DOS_Size)
  985. + printf ("%5.0f TEXT segments with %10.0f bytes\n", otcount, otsize)
  986. + printf ("%5.0f DATA segments with %10.0f bytes\n", odcount, odsize)
  987. + }
  988. + }
  989. *** /dev/null    Sat Feb  6 02:07:00 1993
  990. --- msdos/examples/srcstat.awk    Sat Dec  5 13:57:14 1992
  991. ***************
  992. *** 0 ****
  993. --- 1,26 ----
  994. + # Ben Myers <0003571400@mcimail.com>
  995. + 
  996. + # Sum up number, line count, and sizes of SOURCE files in current directory
  997. + # run with 
  998. + #       bmawk -fsrcsize.awk workfile
  999. + # or similar command syntax with your awk program
  1000. + # where workfile is a work file
  1001. + BEGIN {
  1002. + # redirection done by shelled command
  1003. + # system("dir *.* >workfile")
  1004. + system("dir *.* >" ARGV[1])
  1005. + ssize = 0   # size accumulator
  1006. + slines = 0  # line counter
  1007. + scount = 0  # obj counter
  1008. + }
  1009. + # Now read workfile back in
  1010. + $2 == "C" || $2 == "H" || $2 == "CPP" || $2 == "HPP" {
  1011. +     filename = sprintf("%s.%s", $1, $2)
  1012. +     ssize += $3
  1013. +     while (getline < filename > 0) {slines++}
  1014. +     scount++
  1015. +     }
  1016. + END {
  1017. + print scount " files, " slines " lines, total size " ssize " bytes"
  1018. + system("del " ARGV[1])
  1019. + }
  1020. Index: rexp/rexp2.c
  1021. *** 3.7    1992/01/21 17:33:15
  1022. --- 3.8    1992/12/24 00:36:44
  1023. ***************
  1024. *** 12,18 ****
  1025. X  
  1026. X  /*$Log: rexp2.c,v $
  1027. !  * Revision 3.7  1992/01/21  17:33:15  brennan
  1028. !  * added some casts so that character classes work with signed chars
  1029. X   *
  1030. X   * Revision 3.6  91/10/29  10:54:03  brennan
  1031. X   * SIZE_T
  1032. --- 12,23 ----
  1033. X  
  1034. X  /*$Log: rexp2.c,v $
  1035. !  * Revision 3.8  1992/12/24  00:36:44  mike
  1036. !  * fixed major bozo for LMDOS when growing stack
  1037. !  * fixed potential LMDOS bozo with M_STR+U_ON+END_ON
  1038. !  * fixed minor bug in M_CLASS+U_ON+END_ON
  1039. X   *
  1040. +  * Revision 3.7  92/01/21  17:33:15  brennan
  1041. +  * added some casts so that character classes work with signed chars
  1042. +  * 
  1043. X   * Revision 3.6  91/10/29  10:54:03  brennan
  1044. X   * SIZE_T
  1045. ***************
  1046. *** 52,58 ****
  1047. X  #define  STACKGROWTH    16
  1048. X  
  1049. ! /* statics */
  1050. X  static RT_STATE *PROTO(slow_push,(RT_STATE *,STATE*,char*,int)); 
  1051. ! 
  1052. X  
  1053. X  
  1054. --- 57,63 ----
  1055. X  #define  STACKGROWTH    16
  1056. X  
  1057. ! #ifdef  DEBUG
  1058. X  static RT_STATE *PROTO(slow_push,(RT_STATE *,STATE*,char*,int)); 
  1059. ! #endif
  1060. X  
  1061. X  
  1062. ***************
  1063. *** 64,72 ****
  1064. X  RT_STATE *RE_run_stack_empty ;
  1065. X  
  1066. - /* for statistics and debug */
  1067. - static RT_STATE *stack_max ; 
  1068. - 
  1069. X  void RE_run_stack_init()
  1070. ! { if ( !RE_run_stack_base )
  1071. X    {
  1072. X      RE_run_stack_base = (RT_STATE *)
  1073. --- 69,75 ----
  1074. X  RT_STATE *RE_run_stack_empty ;
  1075. X  
  1076. X  void RE_run_stack_init()
  1077. ! { 
  1078. !   if ( !RE_run_stack_base )
  1079. X    {
  1080. X      RE_run_stack_base = (RT_STATE *)
  1081. ***************
  1082. *** 73,77 ****
  1083. X                   RE_malloc(sizeof(RT_STATE) * STACKGROWTH ) ;
  1084. X      RE_run_stack_limit = RE_run_stack_base + STACKGROWTH ;
  1085. !     RE_run_stack_empty = stack_max = RE_run_stack_base-1 ;
  1086. X    }
  1087. X  }
  1088. --- 76,80 ----
  1089. X                   RE_malloc(sizeof(RT_STATE) * STACKGROWTH ) ;
  1090. X      RE_run_stack_limit = RE_run_stack_base + STACKGROWTH ;
  1091. !     RE_run_stack_empty = RE_run_stack_base-1 ;
  1092. X    }
  1093. X  }
  1094. ***************
  1095. *** 84,88 ****
  1096. X  
  1097. X  RT_STATE  *RE_new_run_stack()
  1098. ! { int newsize = (RE_run_stack_limit - RE_run_stack_base) + STACKGROWTH ;
  1099. X  
  1100. X  #ifdef  LMDOS   /* large model DOS */
  1101. --- 87,93 ----
  1102. X  
  1103. X  RT_STATE  *RE_new_run_stack()
  1104. ! { 
  1105. !   int oldsize = RE_run_stack_limit - RE_run_stack_base ;
  1106. !   int newsize = oldsize + STACKGROWTH ;
  1107. X  
  1108. X  #ifdef  LMDOS   /* large model DOS */
  1109. ***************
  1110. *** 92,107 ****
  1111. X  #endif
  1112. X  
  1113. - #ifdef  __TURBOC__  
  1114. - /* turbo C's realloc() screws up when running out of mem  */
  1115. -   { RT_STATE *temp = (RT_STATE*)malloc(SIZE_T(newsize*sizeof(RT_STATE))) ;
  1116. -     if ( temp ) (void)memcpy(temp,RE_run_stack_base,
  1117. -         SIZE_T((newsize-STACKGROWTH)*sizeof(RT_STATE))) ;
  1118. -     free(RE_run_stack_base) ;
  1119. -     RE_run_stack_base = temp ;
  1120. -   }
  1121. - #else  /* normal case */
  1122. X    RE_run_stack_base = (RT_STATE *) realloc( RE_run_stack_base ,
  1123. X            SIZE_T(newsize * sizeof(RT_STATE)) ) ;
  1124. - #endif
  1125. X  
  1126. X    if ( ! RE_run_stack_base )
  1127. --- 97,102 ----
  1128. ***************
  1129. *** 115,121 ****
  1130. X    RE_run_stack_limit = RE_run_stack_base + newsize ;
  1131. X    RE_run_stack_empty = RE_run_stack_base - 1 ;
  1132. !   return  stack_max = RE_run_stack_base + newsize - STACKGROWTH ;
  1133. X  }
  1134. X  
  1135. X  static RT_STATE *slow_push(sp, m, s, u)
  1136. X    RT_STATE *sp ;
  1137. --- 110,119 ----
  1138. X    RE_run_stack_limit = RE_run_stack_base + newsize ;
  1139. X    RE_run_stack_empty = RE_run_stack_base - 1 ;
  1140. ! 
  1141. !   /* return the new stackp */
  1142. !   return  RE_run_stack_base + oldsize ;
  1143. X  }
  1144. X  
  1145. + #ifdef  DEBUG
  1146. X  static RT_STATE *slow_push(sp, m, s, u)
  1147. X    RT_STATE *sp ;
  1148. ***************
  1149. *** 124,139 ****
  1150. X    int   u ;
  1151. X  { 
  1152. !   if ( sp > stack_max )
  1153. !      if ( (stack_max = sp) == RE_run_stack_limit )
  1154. !              sp = RE_new_run_stack() ;
  1155. ! 
  1156. X    sp->m = m ; sp->s = s ; sp->u = u ;
  1157. X    return sp ;
  1158. X  }
  1159. - 
  1160. - #ifdef   DEBUG
  1161. - void  print_max_stack(f)
  1162. -   FILE *f ;
  1163. - { fprintf(f, "stack_max = %d\n", stack_max-RE_run_stack_base+1) ; }
  1164. X  #endif
  1165. X  
  1166. --- 122,129 ----
  1167. X    int   u ;
  1168. X  { 
  1169. !   if ( sp == RE_run_stack_limit ) sp = RE_new_run_stack() ;
  1170. X    sp->m = m ; sp->s = s ; sp->u = u ;
  1171. X    return sp ;
  1172. X  }
  1173. X  #endif
  1174. X  
  1175. ***************
  1176. *** 142,148 ****
  1177. X  #else
  1178. X  #define  push(mx,sx,ux)   if (++stackp == RE_run_stack_limit)\
  1179. !                                 stackp = slow_push(stackp,mx,sx,ux) ;\
  1180. !                           else\
  1181. !                           { stackp->m=mx;stackp->s=sx;stackp->u=ux;}
  1182. X  #endif
  1183. X  
  1184. --- 132,137 ----
  1185. X  #else
  1186. X  #define  push(mx,sx,ux)   if (++stackp == RE_run_stack_limit)\
  1187. !                                 stackp = RE_new_run_stack() ;\
  1188. !                           stackp->m=(mx);stackp->s=(sx);stackp->u=(ux)
  1189. X  #endif
  1190. X  
  1191. ***************
  1192. *** 161,165 ****
  1193. X    int u_flag ;
  1194. X    char *str_end ;
  1195. !   char *ts ; /*convenient temps */
  1196. X    STATE *tm ;
  1197. X  
  1198. --- 150,154 ----
  1199. X    int u_flag ;
  1200. X    char *str_end ;
  1201. !   int t ; /*convenient temps */
  1202. X    STATE *tm ;
  1203. X  
  1204. ***************
  1205. *** 166,170 ****
  1206. X    /* handle the easy case quickly */
  1207. X    if ( (m+1)->type == M_ACCEPT && m->type == M_STR )
  1208. !         return  (int ) str_str(s, m->data.str, m->len) ;
  1209. X    else
  1210. X    { u_flag = U_ON ; str_end = (char *) 0 ;
  1211. --- 155,159 ----
  1212. X    /* handle the easy case quickly */
  1213. X    if ( (m+1)->type == M_ACCEPT && m->type == M_STR )
  1214. !         return  str_str(s, m->data.str, m->len) != (char *) 0 ;
  1215. X    else
  1216. X    { u_flag = U_ON ; str_end = (char *) 0 ;
  1217. ***************
  1218. *** 202,207 ****
  1219. X      case M_STR + U_ON + END_ON :
  1220. X              if ( !str_end )  str_end = s + strlen(s) ;
  1221. !             ts = str_end - m->len ;
  1222. !             if (ts < s || memcmp(ts,m->data.str,SIZE_T(m->len+1))) goto refill ;
  1223. X              s = str_end ; m++ ; u_flag = U_OFF ;
  1224. X              goto reswitch ;
  1225. --- 191,197 ----
  1226. X      case M_STR + U_ON + END_ON :
  1227. X              if ( !str_end )  str_end = s + strlen(s) ;
  1228. !         t = (str_end - s) - m->len ;
  1229. !             if (t < 0 || memcmp(s+t,m->data.str,SIZE_T(m->len)))
  1230. !             goto refill ;
  1231. X              s = str_end ; m++ ; u_flag = U_OFF ;
  1232. X              goto reswitch ;
  1233. ***************
  1234. *** 216,220 ****
  1235. X              s++ ; m++ ;
  1236. X              goto reswitch ;
  1237. - 
  1238. X      case M_CLASS + U_ON + END_OFF :
  1239. X              while ( !ison(*m->data.bvp,s[0]) )
  1240. --- 206,209 ----
  1241. ***************
  1242. *** 228,232 ****
  1243. X      case M_CLASS + U_ON + END_ON :
  1244. X              if ( ! str_end )  str_end = s + strlen(s) ;
  1245. !             if ( ! ison(*m->data.bvp, str_end[-1]) ) goto refill ;
  1246. X              s = str_end ; m++ ; u_flag = U_OFF ;
  1247. X              goto reswitch ;
  1248. --- 217,222 ----
  1249. X      case M_CLASS + U_ON + END_ON :
  1250. X              if ( ! str_end )  str_end = s + strlen(s) ;
  1251. !             if ( s[0] == 0 || ! ison(*m->data.bvp, str_end[-1]) )
  1252. !                 goto refill ;
  1253. X              s = str_end ; m++ ; u_flag = U_OFF ;
  1254. X              goto reswitch ;
  1255. Index: sizes.h
  1256. *** 5.2    1992/08/27 03:20:08
  1257. --- 5.3    1992/12/17 02:48:01
  1258. ***************
  1259. *** 12,15 ****
  1260. --- 12,18 ----
  1261. X  
  1262. X  /* $Log: sizes.h,v $
  1263. +  * Revision 5.3  1992/12/17  02:48:01  mike
  1264. +  * 1.1.2d changes for DOS
  1265. +  *
  1266. X   * Revision 5.2  1992/08/27  03:20:08  mike
  1267. X   * patch2: increase A_HASH_PRIME
  1268. ***************
  1269. *** 51,54 ****
  1270. --- 54,65 ----
  1271. X    /* starting buffer size for input files, grows if 
  1272. X       necessary */
  1273. + 
  1274. + #if      LM_DOS
  1275. + /* trade some space for IO speed */
  1276. + #undef  BUFFSZ
  1277. + #define BUFFSZ        8192
  1278. + /* maximum input buffers that will fit in 64K */
  1279. + #define  MAX_BUFFS    ((int)(0x10000L/BUFFSZ) - 1)
  1280. + #endif
  1281. X  
  1282. X  #define  HASH_PRIME  53
  1283. Index: rexp/rexp3.c
  1284. *** 3.5    1992/01/21 17:33:20
  1285. --- 3.6    1992/12/24 00:44:53
  1286. ***************
  1287. *** 12,15 ****
  1288. --- 12,19 ----
  1289. X  
  1290. X  /*$Log: rexp3.c,v $
  1291. +  * Revision 3.6  1992/12/24  00:44:53  mike
  1292. +  * fixed potential LMDOS bozo with M_STR+U_ON+END_ON
  1293. +  * fixed minor bug in M_CLASS+U_ON+END_ON
  1294. +  *
  1295. X   * Revision 3.5  1992/01/21  17:33:20  brennan
  1296. X   * added some casts so that character classes work with signed chars
  1297. ***************
  1298. *** 47,51 ****
  1299. X  #define  push(mx,sx,ssx,ux)   if (++stackp == RE_run_stack_limit)\
  1300. X                                  stackp = RE_new_run_stack() ;\
  1301. !                stackp->m=mx;stackp->s=sx;stackp->ss=ssx;stackp->u=ux;
  1302. X  
  1303. X  
  1304. --- 51,56 ----
  1305. X  #define  push(mx,sx,ssx,ux)   if (++stackp == RE_run_stack_limit)\
  1306. X                                  stackp = RE_new_run_stack() ;\
  1307. !                stackp->m=(mx);stackp->s=(sx);stackp->ss=(ssx);\
  1308. !            stackp->u=(ux)
  1309. X  
  1310. X  
  1311. ***************
  1312. *** 63,67 ****
  1313. X    char *ss ;
  1314. X    register RT_STATE *stackp ;
  1315. !   int u_flag ;
  1316. X    char *str_end, *ts ;
  1317. X  
  1318. --- 68,72 ----
  1319. X    char *ss ;
  1320. X    register RT_STATE *stackp ;
  1321. !   int u_flag, t ;
  1322. X    char *str_end, *ts ;
  1323. X  
  1324. ***************
  1325. *** 130,135 ****
  1326. X      case M_STR + U_ON + END_ON :
  1327. X              if ( !str_end )  str_end = s + strlen(s) ;
  1328. !             ts = str_end - m->len ;
  1329. !             if (ts < s || memcmp(ts,m->data.str,SIZE_T(m->len+1))) goto refill ;
  1330. X          if ( !ss )  
  1331. X          if ( cb_ss && ts > cb_ss )  goto refill ;
  1332. --- 135,141 ----
  1333. X      case M_STR + U_ON + END_ON :
  1334. X              if ( !str_end )  str_end = s + strlen(s) ;
  1335. !             t  = (str_end - s) - m->len ;
  1336. !             if (t < 0 || memcmp(ts=s+t,m->data.str,SIZE_T(m->len)))
  1337. !                     goto refill ;
  1338. X          if ( !ss )  
  1339. X          if ( cb_ss && ts > cb_ss )  goto refill ;
  1340. ***************
  1341. *** 169,173 ****
  1342. X      case M_CLASS + U_ON + END_ON :
  1343. X              if ( ! str_end )  str_end = s + strlen(s) ;
  1344. !             if ( ! ison(*m->data.bvp, str_end[-1]) ) goto refill ;
  1345. X          if ( !ss )
  1346. X          if ( cb_ss && str_end-1 > cb_ss )  goto refill ;
  1347. --- 175,180 ----
  1348. X      case M_CLASS + U_ON + END_ON :
  1349. X              if ( ! str_end )  str_end = s + strlen(s) ;
  1350. !             if ( s[0] == 0 || ! ison(*m->data.bvp, str_end[-1]) )
  1351. !                     goto refill ;
  1352. X          if ( !ss )
  1353. X          if ( cb_ss && str_end-1 > cb_ss )  goto refill ;
  1354. Index: bi_funct.c
  1355. *** 5.2    1992/07/08 15:43:41
  1356. --- 5.3.1.2    1993/01/27 01:04:06
  1357. ***************
  1358. *** 12,15 ****
  1359. --- 12,24 ----
  1360. X  
  1361. X  /* $Log: bi_funct.c,v $
  1362. +  * Revision 5.3.1.2  1993/01/27  01:04:06  mike
  1363. +  * minor tuning to str_str()
  1364. +  *
  1365. +  * Revision 5.3.1.1  1993/01/15  03:33:35  mike
  1366. +  * patch3: safer double to int conversion
  1367. +  *
  1368. +  * Revision 5.3  1992/12/17  02:48:01  mike
  1369. +  * 1.1.2d changes for DOS
  1370. +  *
  1371. X   * Revision 5.2  1992/07/08  15:43:41  brennan
  1372. X   * patch2: length returns.  I am a wimp
  1373. ***************
  1374. *** 109,129 ****
  1375. X  
  1376. X  char *str_str(target, key , key_len)
  1377. !   register char *target, *key ;
  1378. X    unsigned key_len ;
  1379. X  { 
  1380. X    switch( key_len )
  1381. !   { case 0 :  return (char *) 0 ;
  1382. !     case 1 :  return strchr( target, *key) ;
  1383. X      case 2 :
  1384. !         while ( target = strchr(target, *key) )
  1385. !           if ( target[1] == key[1] )  return  target ;
  1386. !           else target++ ;
  1387. !         /*failed*/
  1388. !         return (char *) 0 ;
  1389. X    }
  1390. X    key_len-- ;
  1391. !   while ( target = strchr(target, *key) )
  1392. !         if ( memcmp(target+1, key+1, SIZE_T(key_len)) == 0 ) return target ;
  1393. X          else target++ ;
  1394. X    /*failed*/
  1395. X    return (char *) 0 ;
  1396. --- 118,148 ----
  1397. X  
  1398. X  char *str_str(target, key , key_len)
  1399. !   register char *target;
  1400. !   char *key ;
  1401. X    unsigned key_len ;
  1402. X  { 
  1403. +   register int k = key[0] ;
  1404. + 
  1405. X    switch( key_len )
  1406. !   {
  1407. !     case 0 :  return (char *) 0 ;
  1408. !     case 1 :  return strchr( target, k) ;
  1409. X      case 2 :
  1410. !     { int k1 = key[1] ;
  1411. !         while ( target = strchr(target, k) )
  1412. !           if ( target[1] == k1 )  return  target ;
  1413. !           else target++ ;
  1414. !         /*failed*/
  1415. !         return (char *) 0 ;
  1416. !     }
  1417. X    }
  1418. + 
  1419. X    key_len-- ;
  1420. !   while ( target = strchr(target, k) )
  1421. !   {
  1422. !         if ( memcmp(target+1, key+1, SIZE_T(key_len)) == 0 )
  1423. !          return target ;
  1424. X          else target++ ;
  1425. +   }
  1426. X    /*failed*/
  1427. X    return (char *) 0 ;
  1428. ***************
  1429. *** 185,191 ****
  1430. X    else
  1431. X    { if ( TEST2(sp+1) != TWO_DOUBLES ) cast2_to_d(sp+1) ;
  1432. !     n = (int) sp[2].dval ;
  1433. X    }
  1434. !   i = (int) sp[1].dval - 1 ; /* i now indexes into string */
  1435. X  
  1436. X    if ( i < 0 ) { n += i ; i = 0 ; }
  1437. --- 204,210 ----
  1438. X    else
  1439. X    { if ( TEST2(sp+1) != TWO_DOUBLES ) cast2_to_d(sp+1) ;
  1440. !     n = d_to_i(sp[2].dval) ;
  1441. X    }
  1442. !   i = d_to_i(sp[1].dval) - 1 ; /* i now indexes into string */
  1443. X  
  1444. X    if ( i < 0 ) { n += i ; i = 0 ; }
  1445. ***************
  1446. *** 423,431 ****
  1447. X  }
  1448. X  
  1449. ! #ifdef  __TURBOC__
  1450. ! long  biostime(int, long) ;
  1451. ! #define  time(x)  biostime(0,0L)
  1452. ! #else
  1453. ! #ifdef THINK_C
  1454. X  #include <time.h>
  1455. X  #else
  1456. --- 442,446 ----
  1457. X  }
  1458. X  
  1459. ! #ifdef  HAVE_TIME_H
  1460. X  #include <time.h>
  1461. X  #else
  1462. ***************
  1463. *** 432,436 ****
  1464. X  #include <sys/types.h>
  1465. X  #endif
  1466. - #endif
  1467. X  
  1468. X  
  1469. --- 447,450 ----
  1470. ***************
  1471. *** 467,471 ****
  1472. X    if ( c.type == C_NOINIT )  cast1_to_d(&c) ;
  1473. X  
  1474. !   seed =  c.type == C_DOUBLE ? ((int)c.dval & M) % M + 1 :
  1475. X                          hash(string(&c)->str) % M + 1 ;
  1476. X  
  1477. --- 481,485 ----
  1478. X    if ( c.type == C_NOINIT )  cast1_to_d(&c) ;
  1479. X  
  1480. !   seed =  c.type == C_DOUBLE ? (d_to_i(c.dval) & M) % M + 1 :
  1481. X                          hash(string(&c)->str) % M + 1 ;
  1482. X  
  1483. Index: test/fpe_test.bat
  1484. *** 1.1    1991/11/16 15:32:43
  1485. --- 1.2    1992/12/30 22:03:04
  1486. ***************
  1487. *** 127,129 ****
  1488. --- 127,139 ----
  1489. X  
  1490. X  :done
  1491. + set ret1=
  1492. + set ret2=
  1493. + set ret3=
  1494. + set same=
  1495. + if %exception% == 1 goto :done1
  1496. + set exception=
  1497. + exit 0
  1498. + :done1
  1499. + set exception=
  1500. + exit 1
  1501. X  exit %exception%
  1502. Index: UCONFIG
  1503. *** 1.7    1992/08/27 11:45:48
  1504. --- 1.9    1993/02/05 01:40:59
  1505. ***************
  1506. *** 28,32 ****
  1507. X  stardentVr3
  1508. X  
  1509. - apolloSR10.3
  1510. X  dynix
  1511. X  mips
  1512. --- 28,31 ----
  1513. ***************
  1514. *** 35,39 ****
  1515. --- 34,42 ----
  1516. X  aix
  1517. X  convex
  1518. + coherent
  1519. X  
  1520. + 386bsd
  1521. + linux
  1522. + 
  1523. X  atarist                cross compile with gcc
  1524. X  
  1525. ***************
  1526. *** 47,50 ****
  1527. --- 50,58 ----
  1528. X  V7:  This port is the work of Carl Mascott.  You'll need to read
  1529. X  his notes and use the .v7 Makefiles
  1530. + 
  1531. + 
  1532. + Apollo SR10.3: This used to work, but they changed compilers and
  1533. + mawk will no longer compile because  p++->f does not compile
  1534. + correctly.  The offending compiler is CC6.8.
  1535. X  
  1536. X  
  1537. Index: field.c
  1538. *** 5.3    1992/08/17 14:21:10
  1539. --- 5.4.1.2    1993/01/20 12:53:08
  1540. ***************
  1541. *** 12,15 ****
  1542. --- 12,26 ----
  1543. X  
  1544. X  /* $Log: field.c,v $
  1545. +  * Revision 5.4.1.2  1993/01/20  12:53:08  mike
  1546. +  * d_to_l()
  1547. +  *
  1548. +  * Revision 5.4.1.1  1993/01/15  03:33:42  mike
  1549. +  * patch3: safer double to int conversion
  1550. +  *
  1551. +  * Revision 5.4  1992/11/29  22:52:11  mike
  1552. +  * double->string conversions uses long ints for 16/32 bit
  1553. +  * compatibility.
  1554. +  * Fixed small LM_DOS bozo.
  1555. +  *
  1556. X   * Revision 5.3  1992/08/17  14:21:10  brennan
  1557. X   * patch2: After parsing, only bi_sprintf() uses string_buff.
  1558. ***************
  1559. *** 258,262 ****
  1560. X  
  1561. X  #if  LM_DOS
  1562. !   if ( !SAMESEG(fp,field) )  goto lm_dos_label ;
  1563. X  #endif
  1564. X  
  1565. --- 269,277 ----
  1566. X  
  1567. X  #if  LM_DOS
  1568. !   if ( !SAMESEG(fp,field) )
  1569. !   { 
  1570. !     i = -1 ;
  1571. !     goto lm_dos_label ;
  1572. !   }
  1573. X  #endif
  1574. X  
  1575. ***************
  1576. *** 270,274 ****
  1577. X          if ( c.type != C_DOUBLE )  cast1_to_d(&c) ;
  1578. X  
  1579. !         if ( (j = (int) c.dval) < 0 )
  1580. X              rt_error("negative value assigned to NF") ;
  1581. X  
  1582. --- 285,289 ----
  1583. X          if ( c.type != C_DOUBLE )  cast1_to_d(&c) ;
  1584. X  
  1585. !         if ( (j = d_to_i(c.dval)) < 0 )
  1586. X              rt_error("negative value assigned to NF") ;
  1587. X  
  1588. ***************
  1589. *** 408,420 ****
  1590. X        { /* use the string field temporarily */
  1591. X          if ( cp->type == C_NOINIT )
  1592. !     { cp->ptr = (PTR) &null_str ;
  1593. X        null_str.ref_cnt++ ;
  1594. X          }
  1595. X      else /* its a double */
  1596. !     { int ival ;
  1597. X        char xbuff[260] ;
  1598. X  
  1599. !       if ( (double)(ival = (int)cp->dval) == cp->dval )
  1600. !         (void) sprintf(xbuff, "%d", ival) ;
  1601. X        else
  1602. X          (void) sprintf(xbuff, string(CONVFMT)->str, cp->dval) ;
  1603. --- 423,438 ----
  1604. X        { /* use the string field temporarily */
  1605. X          if ( cp->type == C_NOINIT )
  1606. !     { 
  1607. !       cp->ptr = (PTR) &null_str ;
  1608. X        null_str.ref_cnt++ ;
  1609. X          }
  1610. X      else /* its a double */
  1611. !     { 
  1612. !       long ival ;
  1613. X        char xbuff[260] ;
  1614. X  
  1615. !       ival = d_to_l(cp->dval) ;
  1616. !       if ( ival == cp->dval )
  1617. !         (void) sprintf(xbuff, INT_FMT, ival) ;
  1618. X        else
  1619. X          (void) sprintf(xbuff, string(CONVFMT)->str, cp->dval) ;
  1620. ***************
  1621. *** 583,587 ****
  1622. X    
  1623. X    cast1_to_d(cellcpy(&c, BINMODE)) ;
  1624. !   return  (int) c.dval ;
  1625. X  }
  1626. X  
  1627. --- 601,605 ----
  1628. X    
  1629. X    cast1_to_d(cellcpy(&c, BINMODE)) ;
  1630. !   return  d_to_i(c.dval) ;
  1631. X  }
  1632. X  
  1633. Index: config/generic.h
  1634. *** 4.4    1992/03/03 16:40:54
  1635. --- 4.5    1992/11/22 18:30:29
  1636. ***************
  1637. *** 13,16 ****
  1638. --- 13,19 ----
  1639. X  
  1640. X  /* $Log: generic.h,v $
  1641. +  * Revision 4.5  1992/11/22  18:30:29  mike
  1642. +  * strerror()
  1643. +  *
  1644. X   * Revision 4.4  1992/03/03  16:40:54  brennan
  1645. X   * remove HAVE_PRINTF_HD
  1646. ***************
  1647. *** 54,57 ****
  1648. --- 57,61 ----
  1649. X     have strtod()
  1650. X     have fmod()
  1651. +    do not have strerror()
  1652. X  
  1653. X  
  1654. ***************
  1655. *** 70,82 ****
  1656. X  /*
  1657. X  
  1658. - /* tested and works on:
  1659. - 
  1660. - SunOS4.1  (sun 4.0.3 has a bug in strtod(), use sun_os40.h)
  1661. - 
  1662. - Ultrix4.1  on a MIPS
  1663. - Ultrix4.2  on a MIPS
  1664. - SysV3.02beta on a Stardent 3000
  1665. - 
  1666. - */
  1667. X  
  1668. X  #ifndef  CONFIG_H
  1669. --- 74,77 ----
  1670. Index: PATCHES
  1671. *** 1.5    1992/08/27 04:06:44
  1672. --- 1.6    1993/02/05 01:43:06
  1673. ***************
  1674. *** 1,2 ****
  1675. --- 1,25 ----
  1676. + patch3:  mawk1.1.2 -> mawk1.1.3   Jan 93
  1677. + 
  1678. + 1) New configurations:
  1679. +    hpux coherent 386bsd linux
  1680. + 
  1681. + 2) Changed some ints to longs so that Unix and Dos versions
  1682. +    give same output.  E.g.,
  1683. + 
  1684. +    printf "%d" and printf "%ld" are now the same on Dos.
  1685. + 
  1686. +    msdos/examples directory with scripts by Ben Myers
  1687. + 
  1688. +    Infinity+1 large model pointer bug caused by modulo 2^16
  1689. +    arithmetic fixed.
  1690. + 
  1691. + 3) Grossly surprised to discover  (int) d causes a floating
  1692. +    point exception on hpux when d is a large double.
  1693. +    Integer casts are now done more carefully.  Thanks to
  1694. +    Ken Poulton for finding this bug.
  1695. + 
  1696. + 4) Removed ApolloSR10.3 from working configurations. Mawk will
  1697. +    not work if compiled with CC6.8.
  1698. + 
  1699. X  
  1700. X  patch2:  mawk1.1.1 -> mawk1.1.2   26 Aug 92
  1701. Index: patchlev.h
  1702. *** 1.7    1992/08/27 11:50:38
  1703. --- 1.13    1993/02/03 09:25:40
  1704. ***************
  1705. *** 1,3 ****
  1706. X  /* mawk 1.1 */
  1707. ! #define  PATCHLEVEL    2
  1708. ! #define  PATCH_STRING    ".2"
  1709. --- 1,4 ----
  1710. X  /* mawk 1.1 */
  1711. ! #define  PATCHLEVEL    3
  1712. ! #define  PATCH_STRING    ".3"  
  1713. ! #define  DATE_STRING    "Jan 1993"
  1714. Index: init.c
  1715. *** 5.3    1992/07/10 16:17:10
  1716. --- 5.4    1992/12/24 01:58:19
  1717. ***************
  1718. *** 13,16 ****
  1719. --- 13,19 ----
  1720. X  
  1721. X  /* $Log: init.c,v $
  1722. +  * Revision 5.4  1992/12/24  01:58:19  mike
  1723. +  * 1.1.2d changes for MsDOS
  1724. +  *
  1725. X   * Revision 5.3  1992/07/10  16:17:10  brennan
  1726. X   * MsDOS: remove NO_BINMODE macro
  1727. ***************
  1728. *** 38,41 ****
  1729. --- 41,47 ----
  1730. X  #endif
  1731. X  
  1732. + #if MSDOS
  1733. + #include <fcntl.h>
  1734. + #endif
  1735. X  
  1736. X  static void PROTO( process_cmdline , (int, char **) ) ;
  1737. ***************
  1738. *** 46,56 ****
  1739. X  extern  int  PROTO( is_cmdline_assign, (char*)) ;
  1740. X  
  1741. ! #if 0
  1742. ! #if  MSDOS  &&  ! HAVE_REARGV
  1743. ! #include <fcntl.h>
  1744. ! static  void  PROTO(emit_prompt, (void) ) ;
  1745. X  #endif
  1746. X  #endif
  1747. X  
  1748. X  
  1749. X  void initialize(argc, argv)
  1750. --- 52,63 ----
  1751. X  extern  int  PROTO( is_cmdline_assign, (char*)) ;
  1752. X  
  1753. ! #if  MSDOS
  1754. ! void PROTO(stdout_init,(void)) ;
  1755. ! #if  HAVE_REARGV
  1756. ! void PROTO(reargv, (int*,char***)) ;
  1757. X  #endif
  1758. X  #endif
  1759. X  
  1760. + char *progname ;
  1761. X  
  1762. X  void initialize(argc, argv)
  1763. ***************
  1764. *** 57,60 ****
  1765. --- 64,69 ----
  1766. X    int argc ; char **argv ;
  1767. X  {
  1768. +   SET_PROGNAME() ;
  1769. + 
  1770. X    bi_vars_init() ; /* load the builtin variables */
  1771. X    bi_funct_init() ; /* load the builtin functions */
  1772. ***************
  1773. *** 81,84 ****
  1774. --- 90,97 ----
  1775. X    fpe_init() ;
  1776. X    set_stderr() ;
  1777. + 
  1778. + #if  MSDOS
  1779. +   stdout_init() ;
  1780. + #endif
  1781. X  }
  1782. X  
  1783. Index: mawk.h
  1784. *** 5.5    1992/07/06 20:15:49
  1785. --- 5.5.1.3    1993/01/22 15:04:50
  1786. ***************
  1787. *** 13,16 ****
  1788. --- 13,25 ----
  1789. X  
  1790. X  /*   $Log: mawk.h,v $
  1791. +  * Revision 5.5.1.3  1993/01/22  15:04:50  mike
  1792. +  * pow2->mpow2 for linux
  1793. +  *
  1794. +  * Revision 5.5.1.2  1993/01/20  12:53:10  mike
  1795. +  * d_to_l()
  1796. +  *
  1797. +  * Revision 5.5.1.1  1993/01/15  03:33:46  mike
  1798. +  * patch3: safer double to int conversion
  1799. +  *
  1800. X   * Revision 5.5  1992/07/06  20:15:49  brennan
  1801. X   * DONT_PROTO_OPEN macro
  1802. ***************
  1803. *** 63,66 ****
  1804. --- 72,77 ----
  1805. X  
  1806. X  
  1807. + 
  1808. + 
  1809. X  /*----------------
  1810. X   *  GLOBAL VARIABLES
  1811. ***************
  1812. *** 89,93 ****
  1813. X  
  1814. X  /* help with casts */
  1815. ! extern int pow2[] ;
  1816. X  
  1817. X  
  1818. --- 100,104 ----
  1819. X  
  1820. X  /* help with casts */
  1821. ! extern int mpow2[] ;
  1822. X  
  1823. X  
  1824. ***************
  1825. *** 112,116 ****
  1826. X  
  1827. X  /* macro to test the type of two adjacent cells */
  1828. ! #define TEST2(cp)  (pow2[(cp)->type]+pow2[((cp)+1)->type])
  1829. X  
  1830. X  /* macro to get at the string part of a CELL */
  1831. --- 123,127 ----
  1832. X  
  1833. X  /* macro to test the type of two adjacent cells */
  1834. ! #define TEST2(cp)  (mpow2[(cp)->type]+mpow2[((cp)+1)->type])
  1835. X  
  1836. X  /* macro to get at the string part of a CELL */
  1837. ***************
  1838. *** 136,139 ****
  1839. --- 147,153 ----
  1840. X  void  PROTO( check_strnum, (CELL *) ) ;
  1841. X  void  PROTO( cast_to_REPL, (CELL *) ) ;
  1842. + long  PROTO( d_to_l, (double)) ;
  1843. + 
  1844. + #define d_to_i(d)    ((int)d_to_l(d))
  1845. X  
  1846. X  int   PROTO( test, (CELL *) ) ; /* test for null non-null */
  1847. ***************
  1848. *** 183,190 ****
  1849. X  char *PROTO( find_kw_str, (int) ) ;
  1850. X  
  1851. - #if ! HAVE_STDLIB_H
  1852. X  double strtod() ;
  1853. - #endif
  1854. - 
  1855. X  double fmod() ;
  1856. X  
  1857. --- 197,201 ----
  1858. Index: config/Idefault.h
  1859. *** 3.15    1992/07/08 16:16:08
  1860. --- 3.18.1.1    1993/01/15 03:33:52
  1861. ***************
  1862. *** 13,68 ****
  1863. X  
  1864. X  /* $Log: Idefault.h,v $
  1865. !  * Revision 3.15  1992/07/08  16:16:08  brennan
  1866. !  * don't attempt any #def or #undef with __STDC__
  1867. X   *
  1868. !  * Revision 3.14  1992/03/31  13:39:00  brennan
  1869. !  * TURN_ON_FPE_TRAPS() macro
  1870. X   *
  1871. !  * Revision 3.13  92/03/03  16:40:56  brennan
  1872. !  * remove HAVE_PRINTF_HD
  1873. !  * 
  1874. !  * Revision 3.12  91/11/16  15:37:29  brennan
  1875. !  * add NO_BINMODE
  1876. !  * 
  1877. !  * Revision 3.11  91/10/29  10:48:40  brennan
  1878. !  * version 1.09
  1879. !  * 
  1880. !  * Revision 3.10  91/10/23  10:46:34  brennan
  1881. !  * MSDOS LM and SM
  1882. !  * 
  1883. !  * Revision 3.9  91/10/14  09:52:48  brennan
  1884. !  * added HAVE_PRINTF_HD
  1885. !  * 
  1886. !  * Revision 3.8  91/09/30  08:11:22  brennan
  1887. !  * added MAX__INT
  1888. !  * 
  1889. !  * Revision 3.7  91/08/16  08:49:51  brennan
  1890. !  * Carl's addition of SW_FP_CHECK for XNX23A
  1891. !  * 
  1892. !  * Revision 3.6  91/08/13  09:04:05  brennan
  1893. !  * VERSION .9994
  1894. !  * 
  1895. !  * Revision 3.5  91/08/03  06:10:46  brennan
  1896. !  * changed CHECK_DIVZERO macro
  1897. !  * 
  1898. !  * Revision 3.4  91/08/03  05:35:59  brennan
  1899. !  * changed name to Idefault.h 
  1900. !  * 
  1901. !  * Revision 3.3  91/06/28  04:36:28  brennan
  1902. !  * adjustments with __STDC__
  1903. !  * 
  1904. !  * Revision 3.3  91/06/19  10:21:37  brennan
  1905. !  * changes for xenix_r2.h and gcc
  1906. !  * 
  1907. !  * Revision 3.2  91/06/15  09:24:34  brennan
  1908. !  * Carl's diffs for V7
  1909. !  * 
  1910. !  * 06/11/91  C. Mascott        add default D2BOOL
  1911. X   *
  1912. -  * Revision 3.1  91/06/07  10:38:46  brennan
  1913. -  * VERSION 0.995
  1914. -  * 
  1915. X  */
  1916. X  
  1917. X  /* The most common configuration is defined here:
  1918. X   
  1919. --- 13,92 ----
  1920. X  
  1921. X  /* $Log: Idefault.h,v $
  1922. !  * Revision 3.18.1.1  1993/01/15  03:33:52  mike
  1923. !  * patch3: safer double to int conversion
  1924. !  *
  1925. !  * Revision 3.18  1992/12/17  02:48:01  mike
  1926. !  * 1.1.2d changes for DOS
  1927. !  *
  1928. !  * Revision 3.17  1992/11/26  15:35:52  mike
  1929. !  * don't assume __STDC__ implies HAVE_STRERROR
  1930. X   *
  1931. !  * Revision 3.16  1992/11/22  19:00:43  mike
  1932. !  * allow STDC assumptions to be overridden
  1933. X   *
  1934. !  * Revision 3.15  1992/07/08  16:16:08  brennan
  1935. !  * don't attempt any #def or #undef with __STDC__
  1936. X   *
  1937. X  */
  1938. X  
  1939. + 
  1940. + #ifdef __STDC__
  1941. + #if   __STDC__  
  1942. + 
  1943. + #undef  HAVE_PROTOS
  1944. + #define HAVE_PROTOS        1
  1945. + #undef  HAVE_VOID_PTR
  1946. + #define HAVE_VOID_PTR        1
  1947. + 
  1948. + /* these can be overidden */
  1949. + 
  1950. + #ifndef  HAVE_STDARG_H
  1951. + #define HAVE_STDARG_H        1
  1952. + #endif
  1953. + 
  1954. + #ifndef  HAVE_STRING_H
  1955. + #define HAVE_STRING_H        1
  1956. + #endif
  1957. + 
  1958. + #ifndef  HAVE_STDLIB_H
  1959. + #define HAVE_STDLIB_H        1
  1960. + #endif
  1961. + 
  1962. + #endif  
  1963. + #endif
  1964. + 
  1965. + #ifdef    MSDOS
  1966. + 
  1967. + #ifndef  HAVE_REARGV
  1968. + #define  HAVE_REARGV    0
  1969. + #endif
  1970. + 
  1971. + #if HAVE_REARGV
  1972. + #define  SET_PROGNAME()  reargv(&argc,&argv) ; progname = argv[0]
  1973. + #else
  1974. + #define  SET_PROGNAME()  progname = "mawk"
  1975. + #endif
  1976. + 
  1977. + #define  MAX__INT    0x7fff
  1978. + 
  1979. + #if  HAVE_SMALL_MEMORY==0
  1980. + #define  LM_DOS        1
  1981. + #else
  1982. + #define  LM_DOS        0
  1983. + #endif
  1984. + 
  1985. + #define   SM_DOS    (!LM_DOS)
  1986. + 
  1987. + #define HAVE_REAL_PIPES        0
  1988. + #define HAVE_FAKE_PIPES        1
  1989. + 
  1990. + #else /* not defined MSDOS */
  1991. + #define   MSDOS        0
  1992. + #define   LM_DOS    0
  1993. + #define   SM_DOS    0
  1994. + 
  1995. + #endif /* MSDOS */
  1996. + 
  1997. + 
  1998. X  /* The most common configuration is defined here:
  1999. X   
  2000. ***************
  2001. *** 121,124 ****
  2002. --- 145,152 ----
  2003. X  #endif
  2004. X  
  2005. + #ifndef  HAVE_STRERROR
  2006. + #define  HAVE_STRERROR        0
  2007. + #endif
  2008. + 
  2009. X  /* uses <varargs.h> instead of <stdarg.h> */
  2010. X  #ifndef  HAVE_STDARG_H    
  2011. ***************
  2012. *** 152,155 ****
  2013. --- 180,196 ----
  2014. X  #endif
  2015. X  
  2016. + /* don't have strerror() */
  2017. + #ifndef  HAVE_STRERROR
  2018. + #define  HAVE_STRERROR        0
  2019. + #endif
  2020. + 
  2021. + #ifndef  SET_PROGNAME
  2022. + #define  SET_PROGNAME()        { char *strrchr() , *p ;\
  2023. +                                   p = strrchr(argv[0],'/') ;\
  2024. +                   progname = p ? p+1 : argv[0] ; }
  2025. + #endif
  2026. +                   
  2027. +                   
  2028. + 
  2029. X  /*------------- machine ------------------------*/
  2030. X  
  2031. ***************
  2032. *** 157,162 ****
  2033. --- 198,214 ----
  2034. X  #ifndef  MAX__INT     
  2035. X  #define  MAX__INT    0x7fffffff
  2036. + #define  INT_FMT    "%d"
  2037. + #endif
  2038. + 
  2039. + #ifndef  MAX__LONG
  2040. + #define  MAX__LONG    0x7fffffff
  2041. X  #endif
  2042. X  
  2043. + #if  MAX__INT <= 0x7fff
  2044. + #define  SHORT_INTS
  2045. + #define  INT_FMT    "%ld"
  2046. + #endif
  2047. + 
  2048. + 
  2049. X  /* default is IEEE754 and data space is not scarce */
  2050. X  
  2051. ***************
  2052. *** 204,224 ****
  2053. X  
  2054. X  
  2055. - #ifdef __STDC__
  2056. - #if   __STDC__  
  2057. - #undef  HAVE_PROTOS
  2058. - #define HAVE_PROTOS        1
  2059. - #undef  HAVE_VOID_PTR
  2060. - #define HAVE_VOID_PTR        1
  2061. - #undef  HAVE_STDARG_H
  2062. - #define HAVE_STDARG_H        1
  2063. - #undef  HAVE_STRING_H
  2064. - #define HAVE_STRING_H        1
  2065. - #undef  HAVE_STDLIB_H
  2066. - #define HAVE_STDLIB_H        1
  2067. - #endif  
  2068. - #endif
  2069. X  
  2070. X  
  2071. - 
  2072. X  /* the painfull case: we need to catch fpe's and look at errno
  2073. X     after lib calls */
  2074. --- 256,261 ----
  2075. ***************
  2076. *** 226,272 ****
  2077. X  #define  STDC_MATHERR    ((SW_FP_CHECK || FPE_TRAPS_ON) && HAVE_MATHERR==0)
  2078. X  
  2079. - /*-------------------MSDOS---------------------------------*/
  2080. - 
  2081. - #ifdef    MSDOS
  2082. - 
  2083. - #ifndef  HAVE_REARGV
  2084. - #define  HAVE_REARGV    0
  2085. - #endif
  2086. - 
  2087. - #undef   MAX__INT
  2088. - #define  MAX__INT    0x7fff
  2089. - 
  2090. - #if  HAVE_SMALL_MEMORY==0
  2091. - #define  LM_DOS        1
  2092. - #else
  2093. - #define  LM_DOS        0
  2094. - #endif
  2095. - 
  2096. - #define   SM_DOS    (!LM_DOS)
  2097. - 
  2098. - #undef  HAVE_REAL_PIPES
  2099. - #define HAVE_REAL_PIPES        0
  2100. - #undef  HAVE_FAKE_PIPES
  2101. - #define HAVE_FAKE_PIPES        1
  2102. - 
  2103. - #if  SM_DOS 
  2104. - #ifdef  NO_BINMODE
  2105. - #undef  NO_BINMODE
  2106. - #define NO_BINMODE    1   /* hopefully no one needs this */
  2107. - #else
  2108. - #define NO_BINMODE    0
  2109. - #endif
  2110. - #else 
  2111. - #define NO_BINMODE    0
  2112. - #endif /* SM_DOS */
  2113. - 
  2114. - #else /* not defined MSDOS */
  2115. - #define   MSDOS        0
  2116. - #define   LM_DOS    0
  2117. - #define   SM_DOS    0
  2118. - 
  2119. - #endif /* MSDOS */
  2120. - 
  2121. - /*----------------------------------------------------------*/
  2122. X  
  2123. X  
  2124. --- 263,266 ----
  2125. Index: msdos/dosexec.c
  2126. *** 1.3    1992/07/10 16:21:57
  2127. --- 1.4    1992/12/05 22:29:43
  2128. ***************
  2129. *** 12,15 ****
  2130. --- 12,20 ----
  2131. X  
  2132. X  /*$Log: dosexec.c,v $
  2133. +  * Revision 1.4  1992/12/05  22:29:43  mike
  2134. +  * dos patch 112d:
  2135. +  * don't use string_buff
  2136. +  * check COMSPEC
  2137. +  *
  2138. X   * Revision 1.3  1992/07/10  16:21:57  brennan
  2139. X   * store exit code of input pipes
  2140. ***************
  2141. *** 43,56 ****
  2142. X    int len ;
  2143. X  
  2144. !   if ( !(s = getenv("MAWKSHELL")) )
  2145. X    {
  2146. !     errmsg(0, "MAWKSHELL not set in environment") ; exit(1) ;
  2147. X    }
  2148. -   p = s ;
  2149. -   while ( *p != ' ' && *p != '\t' ) p++ ;
  2150. -   len = p - s ;
  2151. -   shell = (char *) zmalloc( len + 1 ) ;
  2152. -   (void) memcpy(shell, s, len) ;  shell[len] = 0 ;
  2153. -   command_opt = p ;
  2154. X  }
  2155. X  
  2156. --- 48,74 ----
  2157. X    int len ;
  2158. X  
  2159. !   if ( s = getenv("MAWKSHELL") )
  2160. !   {
  2161. !     /* break into shell part and option part */
  2162. !     p = s ;
  2163. !     while ( *p != ' ' && *p != '\t' ) p++ ;
  2164. !     len = p - s ;
  2165. !     shell = (char *) zmalloc(len+1) ;
  2166. !     memcpy(shell, s, len) ; shell[len] = 0 ;
  2167. !     command_opt = p ;
  2168. !   }
  2169. !   else
  2170. !   if ( s = getenv("COMSPEC") )
  2171. !   {
  2172. !     shell = s ;
  2173. !     command_opt = " /c" ;
  2174. !     /* leading space needed because of bug in command.com */
  2175. !   }
  2176. !   else
  2177. X    {
  2178. !     errmsg(0,
  2179. !     "cannot exec(), must set MAWKSHELL or COMSPEC in environment" ) ;
  2180. !     exit(1) ;
  2181. X    }
  2182. X  }
  2183. X  
  2184. ***************
  2185. *** 104,117 ****
  2186. X  static int next_tmp ;  /* index for naming temp files */
  2187. X  static char *tmpdir ;  /* directory to hold temp files */
  2188. X  
  2189. X  
  2190. ! /* put the name of a temp file in string buff */
  2191. ! char *tmp_file_name( id )
  2192. X    int id ;
  2193. X  {
  2194. !   (void) sprintf(string_buff, "%sMAWK%04X.TMP", tmpdir, id) ;
  2195. !   return string_buff ;
  2196. X  }
  2197. X  
  2198. X  PTR  get_pipe( command, type, tmp_idp)
  2199. X    char *command ;
  2200. --- 122,156 ----
  2201. X  static int next_tmp ;  /* index for naming temp files */
  2202. X  static char *tmpdir ;  /* directory to hold temp files */
  2203. + static unsigned mawkid ; /* unique to this mawk process */
  2204. X  
  2205. X  
  2206. ! /* compute the unique temp file name associated with id */
  2207. ! char *tmp_file_name(id, buffer )
  2208. X    int id ;
  2209. +   char *buffer ;
  2210. X  {
  2211. !   if ( mawkid == 0 )
  2212. !   {
  2213. !     /* first time */
  2214. !     union {
  2215. !     void far *ptr ;
  2216. !     unsigned w[2] ;
  2217. !     } xptr ;
  2218. ! 
  2219. !     xptr.ptr = (void far*)&mawkid ;
  2220. !     mawkid = xptr.w[1] ;
  2221. ! 
  2222. !     tmpdir = getenv("MAWKTMPDIR") ;
  2223. !     if ( ! tmpdir || strlen(tmpdir) > 80 ) tmpdir = "" ;
  2224. !   }
  2225. ! 
  2226. !   (void) sprintf(buffer, "%sMAWK%04X.%03X",tmpdir, mawkid, id) ;
  2227. !   return buffer ;
  2228. X  }
  2229. X  
  2230. + /* open a pipe, returning a temp file identifier by
  2231. +    reference
  2232. + */
  2233. + 
  2234. X  PTR  get_pipe( command, type, tmp_idp)
  2235. X    char *command ;
  2236. ***************
  2237. *** 119,141 ****
  2238. X  {
  2239. X    PTR  retval ;
  2240. !   char *tmpfile ;
  2241. X  
  2242. -   if ( ! tmpdir )
  2243. -   {
  2244. -     tmpdir = getenv("MAWKTMPDIR") ;
  2245. -     if ( ! tmpdir )  tmpdir = "" ;
  2246. -   }
  2247. X  
  2248. X    *tmp_idp = next_tmp ;
  2249. !   tmpfile = tmp_file_name(next_tmp) ;
  2250. X  
  2251. X    if ( type == PIPE_OUT )  
  2252. !       retval = (PTR) fopen(tmpfile, (binmode()&2)? "wb":"w") ;
  2253. X    else
  2254. !   { char xbuff[256] ;
  2255. !     
  2256. !     sprintf(xbuff, "%s > %s" , command, tmpfile) ;
  2257. X      tmp_idp[1] = DOSexec(xbuff) ;
  2258. !     retval = (PTR) FINopen(tmpfile, 0) ;
  2259. X    }
  2260. X  
  2261. --- 158,177 ----
  2262. X  {
  2263. X    PTR  retval ;
  2264. !   char xbuff[256] ;
  2265. !   char *tmpname ;
  2266. X  
  2267. X  
  2268. X    *tmp_idp = next_tmp ;
  2269. !   tmpname = tmp_file_name(next_tmp, xbuff+163) ;
  2270. X  
  2271. X    if ( type == PIPE_OUT )  
  2272. !   {
  2273. !     retval = (PTR) fopen(tmpname, (binmode()&2)? "wb":"w") ;
  2274. !   }
  2275. X    else
  2276. !   { 
  2277. !     sprintf(xbuff, "%s > %s" , command, tmpname) ;
  2278. X      tmp_idp[1] = DOSexec(xbuff) ;
  2279. !     retval = (PTR) FINopen(tmpname, 0) ;
  2280. X    }
  2281. X  
  2282. ***************
  2283. *** 152,157 ****
  2284. X    int tid ; /* identifies the temp file */
  2285. X  {
  2286. -   char *tmpname = tmp_file_name(tid) ;
  2287. X    char xbuff[256] ;
  2288. X    int retval ;
  2289. X  
  2290. --- 188,193 ----
  2291. X    int tid ; /* identifies the temp file */
  2292. X  {
  2293. X    char xbuff[256] ;
  2294. +   char *tmpname = tmp_file_name(tid, xbuff+163) ;
  2295. X    int retval ;
  2296. X  
  2297. Index: print.c
  2298. *** 5.3    1992/08/17 14:23:21
  2299. --- 5.4.1.2    1993/01/20 12:53:11
  2300. ***************
  2301. *** 12,15 ****
  2302. --- 12,25 ----
  2303. X  
  2304. X  /* $Log: print.c,v $
  2305. +  * Revision 5.4.1.2  1993/01/20  12:53:11  mike
  2306. +  * d_to_l()
  2307. +  *
  2308. +  * Revision 5.4.1.1  1993/01/15  03:33:47  mike
  2309. +  * patch3: safer double to int conversion
  2310. +  *
  2311. +  * Revision 5.4  1992/11/29  18:03:11  mike
  2312. +  * when printing integers, convert doubles to
  2313. +  * longs so output is the same on 16bit systems as 32bit systems
  2314. +  *
  2315. X   * Revision 5.3  1992/08/17  14:23:21  brennan
  2316. X   * patch2: After parsing, only bi_sprintf() uses string_buff.
  2317. ***************
  2318. *** 48,52 ****
  2319. X    register CELL *p ;
  2320. X    register FILE *fp ;
  2321. ! { register int len ;
  2322. X    
  2323. X    switch( p->type )
  2324. --- 58,63 ----
  2325. X    register CELL *p ;
  2326. X    register FILE *fp ;
  2327. ! { 
  2328. !   int len ;
  2329. X    
  2330. X    switch( p->type )
  2331. ***************
  2332. *** 69,76 ****
  2333. X  
  2334. X      case C_DOUBLE :
  2335. !     if ( (double)(len = (int) p->dval) == p->dval )
  2336. !         fprintf(fp, "%d", len) ;
  2337. !     else
  2338. !         fprintf(fp, string(OFMT)->str, p->dval) ;
  2339. X          break ;
  2340. X  
  2341. --- 80,92 ----
  2342. X  
  2343. X      case C_DOUBLE :
  2344. !     {
  2345. !       long ival = d_to_l(p->dval) ;
  2346. ! 
  2347. !       /* integers print as "%[l]d" */ 
  2348. !       if ( (double) ival == p->dval )
  2349. !             fprintf(fp, INT_FMT, ival) ;
  2350. !       else
  2351. !           fprintf(fp, string(OFMT)->str, p->dval) ;
  2352. !     }
  2353. X          break ;
  2354. X  
  2355. ***************
  2356. *** 92,104 ****
  2357. X  CELL *bi_print(sp)
  2358. X    CELL *sp ; /* stack ptr passed in */
  2359. ! { register CELL *p ;
  2360. X    register int k ;
  2361. X    FILE *fp ;
  2362. X  
  2363. !   if ( (k = sp->type) < 0 )
  2364. !   { if ( (--sp)->type < C_STRING ) cast1_to_s(sp) ;
  2365. X      fp = (FILE *) file_find( string(sp), k ) ;
  2366. X      free_STRING(string(sp)) ;
  2367. X      k = (--sp)->type ;
  2368. X    }
  2369. X    else  fp = stdout ;
  2370. --- 108,125 ----
  2371. X  CELL *bi_print(sp)
  2372. X    CELL *sp ; /* stack ptr passed in */
  2373. ! { 
  2374. !   register CELL *p ;
  2375. X    register int k ;
  2376. X    FILE *fp ;
  2377. X  
  2378. !   k = sp->type ;
  2379. !   if ( k < 0 )
  2380. !   { 
  2381. !     /* k holds redirection */
  2382. !     if ( (--sp)->type < C_STRING ) cast1_to_s(sp) ;
  2383. X      fp = (FILE *) file_find( string(sp), k ) ;
  2384. X      free_STRING(string(sp)) ;
  2385. X      k = (--sp)->type ;
  2386. +     /* k now has number of arguments */
  2387. X    }
  2388. X    else  fp = stdout ;
  2389. ***************
  2390. *** 105,113 ****
  2391. X  
  2392. X    if ( k )  
  2393. !   { p = sp - k ; /* clear k variables off the stack */
  2394. X      sp = p - 1 ;
  2395. !     while ( k-- > 1 ) 
  2396. !     { print_cell(p,fp) ; print_cell(OFS,fp) ;
  2397. !       cell_destroy(p) ; p++ ; }
  2398. X      
  2399. X      print_cell(p, fp) ;  cell_destroy(p) ;
  2400. --- 126,140 ----
  2401. X  
  2402. X    if ( k )  
  2403. !   { 
  2404. !     p = sp - k ; /* clear k variables off the stack */
  2405. X      sp = p - 1 ;
  2406. !     k-- ;
  2407. ! 
  2408. !     while ( k > 0 ) 
  2409. !     { 
  2410. !       print_cell(p,fp) ; print_cell(OFS,fp) ;
  2411. !       cell_destroy(p) ; 
  2412. !       p++ ; k-- ;
  2413. !     }
  2414. X      
  2415. X      print_cell(p, fp) ;  cell_destroy(p) ;
  2416. ***************
  2417. *** 114,119 ****
  2418. X    }
  2419. X    else  
  2420. !   { sp-- ;
  2421. !     print_cell( &field[0], fp )  ; }
  2422. X  
  2423. X    print_cell(ORS , fp) ;
  2424. --- 141,148 ----
  2425. X    }
  2426. X    else  
  2427. !   { /* print $0 */
  2428. !     sp-- ;
  2429. !     print_cell( &field[0], fp )  ;
  2430. !   }
  2431. X  
  2432. X    print_cell(ORS , fp) ;
  2433. ***************
  2434. *** 122,133 ****
  2435. X    
  2436. X  /*---------- types and defs for doing printf and sprintf----*/
  2437. ! #define  PF_C        0
  2438. ! #define  PF_S        1
  2439. X  #define  PF_D        2   /* int conversion */
  2440. ! #define  PF_LD        3   /* long int */
  2441. ! #define  PF_F        4   /* float conversion */
  2442. X  
  2443. X  /* for switch on number of '*' and type */
  2444. ! #define  AST(num,type)  (5*(num)+(type))
  2445. X  
  2446. X  /* some picky ANSI compilers go berserk without this */
  2447. SHAR_EOF
  2448. true || echo 'restore of patch3 failed'
  2449. fi
  2450. echo 'End of  part 1'
  2451. echo 'File patch3 is continued in part 2'
  2452. echo 2 > _shar_seq_.tmp
  2453. exit 0
  2454.  
  2455.