home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / reviewed / volume03 / mawkpch3 / 2 < prev    next >
Encoding:
Internet Message Format  |  1993-03-13  |  52.9 KB
  1. From: Michael Brennan <brennan@atc.boeing.com>
  2.  
  3. #!/bin/sh
  4. # this is xxx.02 (part 2 of a multipart archive)
  5. # do not concatenate these parts, unpack them in order with /bin/sh
  6. # file patch3 continued
  7. #
  8. if test ! -r _shar_seq_.tmp; then
  9.     echo 'Please unpack part 1 first!'
  10.     exit 1
  11. fi
  12. (read Scheck
  13.  if test "$Scheck" != 2; then
  14.     echo Please unpack part "$Scheck" next!
  15.     exit 1
  16.  else
  17.     exit 0
  18.  fi
  19. ) < _shar_seq_.tmp || exit 1
  20. if test ! -f _shar_wnt_.tmp; then
  21.     echo 'x - still skipping patch3'
  22. else
  23. echo 'x - continuing file patch3'
  24. sed 's/^X//' << 'SHAR_EOF' >> 'patch3' &&
  25. --- 151,161 ----
  26. X    
  27. X  /*---------- types and defs for doing printf and sprintf----*/
  28. ! #define  PF_C        0   /* %c */
  29. ! #define  PF_S        1   /* %s */
  30. X  #define  PF_D        2   /* int conversion */
  31. ! #define  PF_F        3   /* float conversion */
  32. X  
  33. X  /* for switch on number of '*' and type */
  34. ! #define  AST(num,type)  ((PF_F+1)*(num)+(type))
  35. X  
  36. X  /* some picky ANSI compilers go berserk without this */
  37. ***************
  38. *** 166,171 ****
  39. X    int ast_cnt ;
  40. X    int ast[2] ;
  41. !   long lval ;
  42. !   int ival ;  /* caters to MSDOS */
  43. X    int num_conversion = 0 ; /* for error messages */
  44. X    char *who ; /*ditto*/
  45. --- 194,198 ----
  46. X    int ast_cnt ;
  47. X    int ast[2] ;
  48. !   long lval ;  /* hold integer values */
  49. X    int num_conversion = 0 ; /* for error messages */
  50. X    char *who ; /*ditto*/
  51. ***************
  52. *** 173,176 ****
  53. --- 200,207 ----
  54. X    PRINTER printer ; /* pts at fprintf() or sprintf() */
  55. X  
  56. + #ifdef   SHORT_INTS
  57. +   char xbuff[256] ; /* splice in l qualifier here */
  58. + #endif
  59. + 
  60. X    if ( fp == (FILE *) 0 ) /* doing sprintf */
  61. X    {
  62. ***************
  63. *** 220,223 ****
  64. --- 251,255 ----
  65. X         
  66. X  
  67. +     /* *q == '%' */
  68. X      num_conversion++ ;
  69. X    
  70. ***************
  71. *** 241,245 ****
  72. X      { 
  73. X        if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  74. !       ast[ast_cnt++] = (int) cp++ ->dval ;
  75. X        argcnt-- ; q++ ;
  76. X      }
  77. --- 273,277 ----
  78. X      { 
  79. X        if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  80. !       ast[ast_cnt++] = d_to_i(cp++ ->dval) ;
  81. X        argcnt-- ; q++ ;
  82. X      }
  83. ***************
  84. *** 253,257 ****
  85. X        {
  86. X      if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  87. !         ast[ast_cnt++] = (int) cp++ ->dval ;
  88. X          argcnt-- ; q++ ;
  89. X        }
  90. --- 285,289 ----
  91. X        {
  92. X      if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  93. !         ast[ast_cnt++] = d_to_i(cp++ ->dval) ;
  94. X          argcnt-- ; q++ ;
  95. X        }
  96. ***************
  97. *** 286,290 ****
  98. X          {
  99. X            case C_NOINIT :
  100. !             ival = 0 ;
  101. X              break ;
  102. X  
  103. --- 318,322 ----
  104. X          {
  105. X            case C_NOINIT :
  106. !             lval = 0 ;
  107. X              break ;
  108. X  
  109. ***************
  110. *** 291,299 ****
  111. X            case C_STRNUM :
  112. X            case C_DOUBLE :
  113. !             ival = (int) cp->dval ;
  114. X              break ;
  115. X  
  116. X            case  C_STRING :
  117. !             ival = string(cp)->str[0] ;
  118. X              break ;
  119. X  
  120. --- 323,331 ----
  121. X            case C_STRNUM :
  122. X            case C_DOUBLE :
  123. !             lval = (long) d_to_i(cp->dval) ;
  124. X              break ;
  125. X  
  126. X            case  C_STRING :
  127. !             lval = string(cp)->str[0] ;
  128. X              break ;
  129. X  
  130. ***************
  131. *** 300,305 ****
  132. X            case  C_MBSTRN :
  133. X              check_strnum(cp) ;
  134. !             ival = cp->type == C_STRING ?
  135. !             string(cp)->str[0] : (int) cp->dval ;
  136. X              break ;
  137. X            
  138. --- 332,337 ----
  139. X            case  C_MBSTRN :
  140. X              check_strnum(cp) ;
  141. !             lval = cp->type == C_STRING ?
  142. !             string(cp)->str[0] : (long) d_to_i(cp->dval) ;
  143. X              break ;
  144. X            
  145. ***************
  146. *** 318,325 ****
  147. X        case 'u' :
  148. X              if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  149. !             lval = (long) cp->dval ;
  150. !         if ( h_flag ) lval &= 0xffff ;
  151. X  
  152. !             pf_type = l_flag ? PF_LD : PF_D ;
  153. X              break ;
  154. X      
  155. --- 350,359 ----
  156. X        case 'u' :
  157. X              if ( cp->type != C_DOUBLE ) cast1_to_d(cp) ;
  158. !         if ( cp->dval > MAX__LONG ) lval = MAX__LONG ;
  159. !         else
  160. !         if ( cp->dval > -MAX__LONG ) lval = (long) cp->dval ;
  161. !         else lval = -MAX__LONG ;
  162. X  
  163. !             pf_type = PF_D ;
  164. X              break ;
  165. X      
  166. ***************
  167. *** 341,344 ****
  168. --- 375,407 ----
  169. X      *q = 0 ;
  170. X  
  171. + #ifdef  SHORT_INTS
  172. +     if ( pf_type == PF_D )
  173. +     {
  174. +       /* need to splice in long modifier */
  175. +       strcpy(xbuff, p) ;
  176. + 
  177. +       if ( l_flag ) /* do nothing */ ;
  178. +       else
  179. +       {
  180. +     int k = q - p ;
  181. + 
  182. +     if ( h_flag )
  183. +     {
  184. +       lval = (short) lval ;
  185. +       /* replace the 'h' with 'l' (really!) */
  186. +       xbuff[k-2] = 'l' ;
  187. +       if ( xbuff[k-1] != 'd' && xbuff[k-1] != 'i' ) lval &= 0xffff ;
  188. +     }
  189. +     else
  190. +     {
  191. +       /* the usual case */
  192. +       xbuff[k] = xbuff[k-1] ;
  193. +       xbuff[k-1] = 'l' ;
  194. +       xbuff[k+1] = 0 ;
  195. +     }
  196. +       }
  197. +     }
  198. + #endif
  199. + 
  200. X      /* ready to call printf() */
  201. X      switch( AST(ast_cnt, pf_type ) )
  202. ***************
  203. *** 345,357 ****
  204. X      {
  205. X        case AST(0, PF_C )  :
  206. !             (*printer)((PTR) target, p, ival) ;
  207. X              break ;
  208. X  
  209. X        case AST(1, PF_C ) :
  210. !             (*printer)((PTR) target, p, ast[0], ival) ;
  211. X              break ;
  212. X  
  213. X        case AST(2, PF_C ) :
  214. !             (*printer)((PTR) target, p, ast[0], ast[1], ival) ;
  215. X              break ;
  216. X  
  217. --- 408,420 ----
  218. X      {
  219. X        case AST(0, PF_C )  :
  220. !             (*printer)((PTR) target, p, (int) lval) ;
  221. X              break ;
  222. X  
  223. X        case AST(1, PF_C ) :
  224. !             (*printer)((PTR) target, p, ast[0], (int) lval) ;
  225. X              break ;
  226. X  
  227. X        case AST(2, PF_C ) :
  228. !             (*printer)((PTR) target, p, ast[0], ast[1], (int)lval) ;
  229. X              break ;
  230. X  
  231. ***************
  232. *** 365,394 ****
  233. X  
  234. X        case AST(2, PF_S) :
  235. !             (*printer)((PTR) target, p, ast[0], ast[1], string(cp)->str) ;
  236. X              break ;
  237. X  
  238. X        case AST(0, PF_D) :
  239. !             (*printer)((PTR) target, p, (int) lval) ;
  240. X              break ;
  241. X  
  242. X        case AST(1, PF_D) :
  243. !             (*printer)((PTR) target, p, ast[0], (int) lval) ;
  244. X              break ;
  245. X  
  246. X        case AST(2, PF_D) :
  247. !             (*printer)((PTR) target, p, ast[0], ast[1], (int) lval) ;
  248. !             break ;
  249. ! 
  250. !       case AST(0, PF_LD) :
  251. !             (*printer)((PTR) target, p,  lval) ;
  252. X              break ;
  253. X  
  254. !       case AST(1, PF_LD) :
  255. !             (*printer)((PTR) target, p, ast[0],  lval) ;
  256. !             break ;
  257. X  
  258. -       case AST(2, PF_LD) :
  259. -             (*printer)((PTR) target, p, ast[0], ast[1],  lval) ;
  260. -             break ;
  261. X  
  262. X        case AST(0, PF_F) :
  263. --- 428,453 ----
  264. X  
  265. X        case AST(2, PF_S) :
  266. !             (*printer)((PTR) target,p,ast[0],ast[1],string(cp)->str) ;
  267. X              break ;
  268. X  
  269. + #ifdef  SHORT_INTS
  270. + #define    FMT    xbuff     /* format in xbuff */
  271. + #else
  272. + #define FMT     p         /* p -> format */
  273. + #endif
  274. X        case AST(0, PF_D) :
  275. !             (*printer)((PTR) target, FMT, lval) ;
  276. X              break ;
  277. X  
  278. X        case AST(1, PF_D) :
  279. !             (*printer)((PTR) target, FMT, ast[0], lval) ;
  280. X              break ;
  281. X  
  282. X        case AST(2, PF_D) :
  283. !             (*printer)((PTR) target, FMT, ast[0], ast[1], lval) ;
  284. X              break ;
  285. X  
  286. ! #undef  FMT
  287. X  
  288. X  
  289. X        case AST(0, PF_F) :
  290. ***************
  291. *** 415,432 ****
  292. X    FILE *fp ;
  293. X  
  294. !   if ( (k = sp->type) < 0 )
  295. !   { if ( (--sp)->type < C_STRING ) cast1_to_s(sp) ;
  296. X      fp = (FILE *) file_find( string(sp), k ) ;
  297. X      free_STRING(string(sp)) ;
  298. X      k = (--sp)->type ;
  299. X    }
  300. X    else  fp = stdout ;
  301. X  
  302. !   sp -= k-- ; /* sp points at the format string */
  303. X    if ( sp->type < C_STRING )  cast1_to_s(sp) ;
  304. X    do_printf(fp, string(sp)->str, k, sp+1) ;
  305. - 
  306. X    free_STRING(string(sp)) ;
  307. !   for ( p = sp+1 ; k-- ; p++ )  cell_destroy(p) ;
  308. X    return --sp ;
  309. X  }
  310. --- 474,498 ----
  311. X    FILE *fp ;
  312. X  
  313. !   k = sp->type ;
  314. !   if ( k  < 0 )
  315. !   { 
  316. !     /* k has redirection */
  317. !     if ( (--sp)->type < C_STRING ) cast1_to_s(sp) ;
  318. X      fp = (FILE *) file_find( string(sp), k ) ;
  319. X      free_STRING(string(sp)) ;
  320. X      k = (--sp)->type ;
  321. +     /* k is now number of args including format */
  322. X    }
  323. X    else  fp = stdout ;
  324. X  
  325. !   sp -= k ; /* sp points at the format string */
  326. !   k-- ;
  327. ! 
  328. X    if ( sp->type < C_STRING )  cast1_to_s(sp) ;
  329. X    do_printf(fp, string(sp)->str, k, sp+1) ;
  330. X    free_STRING(string(sp)) ;
  331. ! 
  332. !   /* cleanup arguments on eval stack */
  333. !   for ( p = sp+1 ; k ; k--, p++ )  cell_destroy(p) ;
  334. X    return --sp ;
  335. X  }
  336. ***************
  337. *** 438,444 ****
  338. X    STRING *sval ;
  339. X  
  340. !   sp -= argcnt-- ; /* sp points at the format string */
  341. !   if ( sp->type != C_STRING )  cast1_to_s(sp) ;
  342. X  
  343. X    sval = do_printf((FILE *)0, string(sp)->str, argcnt, sp+1) ;
  344. X    free_STRING(string(sp)) ;
  345. --- 504,511 ----
  346. X    STRING *sval ;
  347. X  
  348. !   sp -= argcnt ; /* sp points at the format string */
  349. !   argcnt-- ;
  350. X  
  351. +   if ( sp->type != C_STRING )  cast1_to_s(sp) ;
  352. X    sval = do_printf((FILE *)0, string(sp)->str, argcnt, sp+1) ;
  353. X    free_STRING(string(sp)) ;
  354. ***************
  355. *** 445,449 ****
  356. X    sp->ptr = (PTR) sval ;
  357. X  
  358. !   for ( p = sp+1 ; argcnt-- ; p++ )  cell_destroy(p) ;
  359. X  
  360. X    return sp ;
  361. --- 512,517 ----
  362. X    sp->ptr = (PTR) sval ;
  363. X  
  364. !   /* cleanup */
  365. !   for (p = sp+1 ; argcnt ; argcnt--, p++ )  cell_destroy(p) ;
  366. X  
  367. X    return sp ;
  368. Index: packing.list
  369. *** 1.27    1992/08/27 04:06:08
  370. --- 1.32    1993/02/06 02:12:51
  371. ***************
  372. *** 1,5 ****
  373. X  
  374. X  ################################################
  375. ! # These files form the mawk distribution 1.1.2
  376. X  #
  377. X  # Mawk is an implementation of the AWK Programming Language as
  378. --- 1,7 ----
  379. X  
  380. + #$Id: packing.list,v 1.32 1993/02/06 02:12:51 mike Exp $
  381. + 
  382. X  ################################################
  383. ! # These files form the mawk distribution 1.1.2d
  384. X  #
  385. X  # Mawk is an implementation of the AWK Programming Language as
  386. ***************
  387. *** 69,72 ****
  388. --- 71,75 ----
  389. X  symtype.h
  390. X  types.h
  391. + vargs.h
  392. X  version.c
  393. X  zmalloc.c
  394. ***************
  395. *** 74,78 ****
  396. X  ########################
  397. X  # directory:  man
  398. ! man/mawk.1        troff input for unix style man pages
  399. X  man/mawk.doc        ascii man pages
  400. X  ########################
  401. --- 77,81 ----
  402. X  ########################
  403. X  # directory:  man
  404. ! man/mawk.1        troff source for unix style man pages
  405. X  man/mawk.doc        ascii man pages
  406. X  ########################
  407. ***************
  408. *** 114,117 ****
  409. --- 117,124 ----
  410. X  config/convex.h
  411. X  config/aix.h
  412. + config/coherent.h
  413. + config/linux.h
  414. + config/386bsd.h
  415. + config/ztc_dos.h
  416. X  #######################
  417. X  # directory:  test      testing and benchmarking directory
  418. ***************
  419. *** 154,162 ****
  420. X  msdos/xdosexec.see        hex dump of xdosexec.obj
  421. X  msdos/see2obj.c            recovers xdosexec.obj 
  422. ! msdos/reargv.c            example (works with PolyShell)
  423. ! msdos/Makefile.tcc        for TCC and Borland make
  424. X  msdos/Makefile.MSC        nmake and MSC 6.0A
  425. X  msdos/mawkmsc.lnk
  426. X  msdos/bmawkmsc.lnk
  427. X  #####################
  428. X  # directory macintosh
  429. --- 161,182 ----
  430. X  msdos/xdosexec.see        hex dump of xdosexec.obj
  431. X  msdos/see2obj.c            recovers xdosexec.obj 
  432. ! msdos/argvpoly.c        for polyshell
  433. ! msdos/argvmks.c            for MKS Korn Shell
  434. ! msdos/Makefile.tcc        for [TB]CC and Borland make
  435. X  msdos/Makefile.MSC        nmake and MSC 6.0A
  436. + msdos/makefile.ztc            
  437. X  msdos/mawkmsc.lnk
  438. X  msdos/bmawkmsc.lnk
  439. + #####################
  440. + # directory msdos/examples    awk programs for msdos
  441. + msdos/examples/add_cr.awk
  442. + msdos/examples/doslist.awk
  443. + msdos/examples/objstat.awk
  444. + msdos/examples/shell.awk
  445. + msdos/examples/srcstat.awk
  446. + msdos/examples/srcstat2.awk
  447. + msdos/examples/texttest.awk
  448. + msdos/examples/winexe.awk
  449. + msdos/examples/winobj.awk
  450. X  #####################
  451. X  # directory macintosh
  452. Index: scan.c
  453. *** 5.3    1992/07/08 15:43:41
  454. --- 5.4.1.1    1993/01/15 03:33:50
  455. ***************
  456. *** 13,16 ****
  457. --- 13,23 ----
  458. X  
  459. X  /* $Log: scan.c,v $
  460. +  * Revision 5.4.1.1  1993/01/15  03:33:50  mike
  461. +  * patch3: safer double to int conversion
  462. +  *
  463. +  * Revision 5.4  1992/11/29  18:57:50  mike
  464. +  * field expressions convert to long so 16 bit and 32 bit
  465. +  * systems behave the same
  466. +  *
  467. X   * Revision 5.3  1992/07/08  15:43:41  brennan
  468. X   * patch2: length returns.  I am a wimp
  469. ***************
  470. *** 471,482 ****
  471. X                  else  yylval.cp = &field[0] ;
  472. X              else
  473. !             { int k = (int) d ;
  474. ! 
  475. !               if ( k > MAX_FIELD )
  476. X                { compile_error(
  477. X                     "$%g exceeds maximum field(%d)" , d, MAX_FIELD) ;
  478. !                 k = MAX_FIELD ;
  479. X                }
  480. !               yylval.cp = field_ptr(k) ;
  481. X              }
  482. X  
  483. --- 478,488 ----
  484. X                  else  yylval.cp = &field[0] ;
  485. X              else
  486. !             { 
  487. !               if ( d > MAX_FIELD )
  488. X                { compile_error(
  489. X                     "$%g exceeds maximum field(%d)" , d, MAX_FIELD) ;
  490. !                 d = MAX_FIELD ;
  491. X                }
  492. !               yylval.cp = field_ptr((int)d) ;
  493. X              }
  494. X  
  495. Index: config/tcc_dos.h
  496. *** 4.2    1991/10/29 09:37:54
  497. --- 4.3    1992/12/17 02:48:01
  498. ***************
  499. *** 14,17 ****
  500. --- 14,20 ----
  501. X  
  502. X  /* $Log: tcc_dos.h,v $
  503. +  * Revision 4.3  1992/12/17  02:48:01  mike
  504. +  * 1.1.2d changes for DOS
  505. +  *
  506. X   * Revision 4.2  1991/10/29  09:37:54  brennan
  507. X   * changes for 1.09
  508. ***************
  509. *** 36,39 ****
  510. --- 39,43 ----
  511. X  #define   HAVE_STDARG_H         1
  512. X  #define   HAVE_STDLIB_H        1
  513. + #define   HAVE_TIME_H        1
  514. X  
  515. X  
  516. Index: execute.c
  517. *** 5.5    1992/08/11 15:24:55
  518. --- 5.7.1.1    1993/01/15 03:33:39
  519. ***************
  520. *** 12,15 ****
  521. --- 12,25 ----
  522. X  
  523. X  /* $Log: execute.c,v $
  524. +  * Revision 5.7.1.1  1993/01/15  03:33:39  mike
  525. +  * patch3: safer double to int conversion
  526. +  *
  527. +  * Revision 5.7  1992/12/17  02:48:01  mike
  528. +  * 1.1.2d changes for DOS
  529. +  *
  530. +  * Revision 5.6  1992/11/29  18:57:50  mike
  531. +  * field expressions convert to long so 16 bit and 32 bit
  532. +  * systems behave the same
  533. +  *
  534. X   * Revision 5.5  1992/08/11  15:24:55  brennan
  535. X   * patch2: F_PUSHA and FE_PUSHA
  536. ***************
  537. *** 48,56 ****
  538. X  #include <math.h>
  539. X  
  540. - /* static functions */
  541. X  static int PROTO( compare, (CELL *) ) ;
  542. ! static void PROTO( eval_overflow, (void) ) ;
  543. X  
  544. - 
  545. X  #if   NOINFO_SIGFPE
  546. X  static char dz_msg[] = "division by zero" ;
  547. --- 58,64 ----
  548. X  #include <math.h>
  549. X  
  550. X  static int PROTO( compare, (CELL *) ) ;
  551. ! static int PROTO( d_to_index, (double)) ;
  552. X  
  553. X  #if   NOINFO_SIGFPE
  554. X  static char dz_msg[] = "division by zero" ;
  555. ***************
  556. *** 58,61 ****
  557. --- 66,71 ----
  558. X  
  559. X  #ifdef   DEBUG
  560. + static void PROTO( eval_overflow, (void) ) ;
  561. + 
  562. X  #define  inc_sp()   if( ++sp == eval_stack+EVAL_STACK_SIZE )\
  563. X                           eval_overflow()
  564. ***************
  565. *** 235,241 ****
  566. X  
  567. X          case  FE_PUSHA :
  568. X              if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  569. !             if ( (t = (int) sp->dval) < 0 )
  570. !                 rt_error( "negative field index $%d", t) ;
  571. X              if ( t && nf < 0 )  split_field0() ;
  572. X              sp->ptr = (PTR) field_ptr(t) ;
  573. --- 245,252 ----
  574. X  
  575. X          case  FE_PUSHA :
  576. + 
  577. X              if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  578. ! 
  579. !         t = d_to_index(sp->dval) ;
  580. X              if ( t && nf < 0 )  split_field0() ;
  581. X              sp->ptr = (PTR) field_ptr(t) ;
  582. ***************
  583. *** 252,259 ****
  584. X  
  585. X          case  FE_PUSHI :
  586. X              if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  587. X  
  588. !             if ( (t = (int) sp->dval) < 0 )
  589. !                   rt_error( "negative field index $%d", t) ;
  590. X  
  591. X              if ( nf < 0)  split_field0() ;
  592. --- 263,270 ----
  593. X  
  594. X          case  FE_PUSHI :
  595. + 
  596. X              if ( sp->type != C_DOUBLE )  cast1_to_d(sp) ;
  597. X  
  598. !         t = d_to_index(sp->dval) ;
  599. X  
  600. X              if ( nf < 0)  split_field0() ;
  601. ***************
  602. *** 915,919 ****
  603. X          case  _EXIT  :
  604. X              if ( sp->type != C_DOUBLE ) cast1_to_d(sp) ;
  605. !             exit_code = (int) sp-- -> dval ;
  606. X              /* fall thru */
  607. X  
  608. --- 926,931 ----
  609. X          case  _EXIT  :
  610. X              if ( sp->type != C_DOUBLE ) cast1_to_d(sp) ;
  611. !             exit_code = d_to_i(sp->dval) ;
  612. !         sp-- ;
  613. X              /* fall thru */
  614. X  
  615. ***************
  616. *** 1112,1115 ****
  617. --- 1124,1128 ----
  618. X        bozo("bad cell type in call to test") ;
  619. X    }
  620. +   return 0 ; /*can't get here: shutup */
  621. X  }
  622. X  
  623. ***************
  624. *** 1163,1166 ****
  625. --- 1176,1180 ----
  626. X              bozo("bad cell type passed to compare") ;
  627. X    }
  628. +   return 0 ; /* shut up */
  629. X  }
  630. X  
  631. ***************
  632. *** 1230,1231 ****
  633. --- 1244,1263 ----
  634. X  
  635. X  #endif
  636. + 
  637. + 
  638. + 
  639. + /* convert a double d to a field index  $d -> $i */
  640. + static int
  641. + d_to_index( d ) 
  642. +   double d ;
  643. + {
  644. + 
  645. +   if ( d > MAX_FIELD ) 
  646. +         rt_overflow("maximum number of fields", MAX_FIELD) ;
  647. +   
  648. +   if ( d >= 0.0 )  return (int) d ;
  649. +   
  650. +   /* might include nan */
  651. +   rt_error("negative field index $%.6g", d) ;
  652. +   return 0 ; /* shutup */
  653. + }
  654. Index: msdos/NOTES
  655. *** 1.5    1992/07/10 16:32:02
  656. --- 1.6    1992/12/17 02:48:01
  657. ***************
  658. *** 1,3 ****
  659. --- 1,29 ----
  660. + Notes for 1.1.2d
  661. X  
  662. +   Three changes specific to DOS.
  663. + 
  664. +   (1) Internal conversions from doubles to strings that are integers
  665. +   use internal conversion to long so DOS and unix now give the same
  666. +   output.  E.g.
  667. + 
  668. +       '{ print 2^30 }'
  669. + 
  670. +            1073741824  (instead of  ).
  671. + 
  672. +   (2) Large model uses 8K as opposed to 4K I/O buffers.
  673. + 
  674. +   (3) MAWKSHELL is no longer required.  If not set in the 
  675. +   environment, MAWKSHELL defaults to %COMSPEC% /c, e.g., if
  676. +   comspec is
  677. + 
  678. +        c:\system\command.com
  679. + 
  680. +   then this has the effect of setting MAWKSHELL to
  681. + 
  682. +        c:\system\command.com /c
  683. + 
  684. +   Comspec should give a full drive-path specification.
  685. + 
  686. + 
  687. X  Notes for MsDOS (mawk 1.1)
  688. X  ---------------
  689. ***************
  690. *** 38,41 ****
  691. --- 64,68 ----
  692. X  The trailing backslash is required.  You have to set MAWKSHELL,
  693. X  MAWKTMPDIR is optional -- defaulting to the current directory.
  694. + 
  695. X  
  696. X  For compatibility with Unix, CR are silently stripped from input and LF 
  697. Index: fin.c
  698. *** 5.5    1992/07/28 15:11:30
  699. --- 5.6    1992/12/17 02:48:01
  700. ***************
  701. *** 12,15 ****
  702. --- 12,18 ----
  703. X  
  704. X  /*$Log: fin.c,v $
  705. +  * Revision 5.6  1992/12/17  02:48:01  mike
  706. +  * 1.1.2d changes for DOS
  707. +  *
  708. X   * Revision 5.5  1992/07/28  15:11:30  brennan
  709. X   * minor change in finding eol, needed for MsDOS
  710. ***************
  711. *** 284,287 ****
  712. --- 287,300 ----
  713. X    unsigned r ;
  714. X    unsigned oldsize = fin->nbuffs*BUFFSZ+1 ;
  715. + 
  716. + #if  LM_DOS
  717. +   /* I'm not sure this can really happen:
  718. +      avoid "16bit wrap" */
  719. +   if ( fin->nbuffs == MAX_BUFFS )
  720. +   {
  721. +     errmsg(0, "out of input buffer space") ;
  722. +     mawk_exit(1) ;
  723. +   }
  724. + #endif
  725. X  
  726. X    fin->buffp = 
  727. Index: cast.c
  728. *** 5.2    1992/08/17 14:19:45
  729. --- 5.3.1.4    1993/01/22 15:05:19
  730. ***************
  731. *** 13,16 ****
  732. --- 13,33 ----
  733. X  
  734. X  /*   $Log: cast.c,v $
  735. +  * Revision 5.3.1.4  1993/01/22  15:05:19  mike
  736. +  * pow2->mpow2 for linux
  737. +  *
  738. +  * Revision 5.3.1.3  1993/01/22  14:18:33  mike
  739. +  * const for strtod and ansi picky compilers
  740. +  *
  741. +  * Revision 5.3.1.2  1993/01/20  12:53:06  mike
  742. +  * d_to_l()
  743. +  *
  744. +  * Revision 5.3.1.1  1993/01/15  03:33:37  mike
  745. +  * patch3: safer double to int conversion
  746. +  *
  747. +  * Revision 5.3  1992/11/28  23:48:42  mike
  748. +  * For internal conversion numeric->string, when testing
  749. +  * if integer, use longs instead of ints so 16 and 32 bit
  750. +  * systems behave the same
  751. +  *
  752. X   * Revision 5.2  1992/08/17  14:19:45  brennan
  753. X   * patch2: After parsing, only bi_sprintf() uses string_buff.
  754. ***************
  755. *** 30,34 ****
  756. X  #include "repl.h"
  757. X  
  758. ! int pow2[NUM_CELL_TYPES] = {1,2,4,8,16,32,64,128,256,512} ;
  759. X  
  760. X  void cast1_to_d( cp )
  761. --- 47,51 ----
  762. X  #include "repl.h"
  763. X  
  764. ! int mpow2[NUM_CELL_TYPES] = {1,2,4,8,16,32,64,128,256,512} ;
  765. X  
  766. X  void cast1_to_d( cp )
  767. ***************
  768. *** 133,137 ****
  769. X    register CELL *cp ;
  770. X  { 
  771. !   register int ival ;
  772. X    char xbuff[260] ;
  773. X  
  774. --- 150,154 ----
  775. X    register CELL *cp ;
  776. X  { 
  777. !   register long lval ;
  778. X    char xbuff[260] ;
  779. X  
  780. ***************
  781. *** 144,149 ****
  782. X      case C_DOUBLE  :
  783. X      
  784. !     if ( (double) (ival = (int) cp->dval) == cp->dval )
  785. !         (void) sprintf(xbuff, "%d", ival) ;
  786. X      else
  787. X              (void) sprintf(xbuff , string(CONVFMT)->str, cp->dval) ;
  788. --- 161,167 ----
  789. X      case C_DOUBLE  :
  790. X      
  791. !     lval = d_to_l(cp->dval) ;
  792. !     if ( lval == cp->dval )
  793. !         (void) sprintf(xbuff, INT_FMT, lval) ;
  794. X      else
  795. X              (void) sprintf(xbuff , string(CONVFMT)->str, cp->dval) ;
  796. ***************
  797. *** 165,169 ****
  798. X    register CELL *cp ;
  799. X  { 
  800. !   register int ival ;
  801. X    char xbuff[260] ;
  802. X  
  803. --- 183,187 ----
  804. X    register CELL *cp ;
  805. X  { 
  806. !   register long lval ;
  807. X    char xbuff[260] ;
  808. X  
  809. ***************
  810. *** 175,180 ****
  811. X  
  812. X      case C_DOUBLE  :
  813. !     if ( (double) (ival = (int) cp->dval) == cp->dval )
  814. !         (void) sprintf(xbuff, "%d", ival) ;
  815. X      else
  816. X              (void) sprintf(xbuff , string(CONVFMT)->str, cp->dval) ;
  817. --- 193,200 ----
  818. X  
  819. X      case C_DOUBLE  :
  820. ! 
  821. !     lval = d_to_l(cp->dval) ;
  822. !     if ( lval == cp->dval )
  823. !         (void) sprintf(xbuff, INT_FMT, lval) ;
  824. X      else
  825. X              (void) sprintf(xbuff , string(CONVFMT)->str, cp->dval) ;
  826. ***************
  827. *** 202,207 ****
  828. X  
  829. X      case C_DOUBLE  :
  830. !     if ( (double) (ival = (int) cp->dval) == cp->dval )
  831. !         (void) sprintf(xbuff, "%d", ival) ;
  832. X      else
  833. X              (void) sprintf(xbuff , string(CONVFMT)->str, cp->dval) ;
  834. --- 222,229 ----
  835. X  
  836. X      case C_DOUBLE  :
  837. ! 
  838. !     lval = d_to_l(cp->dval) ;
  839. !     if ( lval == cp->dval )
  840. !         (void) sprintf(xbuff, INT_FMT, lval) ;
  841. X      else
  842. X              (void) sprintf(xbuff , string(CONVFMT)->str, cp->dval) ;
  843. ***************
  844. *** 324,327 ****
  845. --- 346,364 ----
  846. X  
  847. X  
  848. + /* convert a double to long (this is not as simple as a
  849. +    cast because the results are undefined if it won't fit).
  850. +    Truncate large values to +MAX__LONG or -MAX__LONG
  851. +    Send nans to -MAX__LONG
  852. + */
  853. + 
  854. + long
  855. + d_to_l(d)
  856. +   double d ;
  857. + {
  858. +   if ( d >= MAX__LONG )  return MAX__LONG ;
  859. +   if ( d >  -MAX__LONG ) return (int) d ;
  860. +   return -MAX__LONG ;
  861. + }
  862. + 
  863. X  #if   HAVE_STRTOD==0
  864. X  
  865. ***************
  866. *** 331,336 ****
  867. X  */
  868. X  
  869. X  double strtod(s, endptr)
  870. !   char *s , **endptr ;
  871. X  {
  872. X    register unsigned char *p ; 
  873. --- 368,378 ----
  874. X  */
  875. X  
  876. + #if __STDC__ == 0
  877. + #define const
  878. + #endif
  879. + 
  880. X  double strtod(s, endptr)
  881. !   const char *s ;
  882. !   char  **endptr ;
  883. X  {
  884. X    register unsigned char *p ; 
  885. Index: ACKNOWLEDGMENT
  886. *** 1.6    1992/08/27 03:47:37
  887. --- 1.9    1993/02/05 02:09:25
  888. ***************
  889. *** 11,26 ****
  890. X  
  891. X  Ports to new systems:
  892. -     Layne Lommen        ApolloSR10.3
  893. X      Ed Ferguson        MIPS M2000 C2.20 OS4.52
  894. X      Jwahar R. Bammi        Atari ST
  895. X      Berry Kercheval        SGI IRIX 4.0.1
  896. !     Andy Mason        Next 2.1
  897. X      Mike Carlton        Next 2.1
  898. X      Elliot Jaffe        AIX 3.1
  899. X      Jeremy Martin        Convex 9.1
  900. X  
  901. X  The DOS version is a lot better thanks to suggestions and testing
  902. X  from Ed Ferguson, Jack Fitts, Nadav Horesh, Michael Golan and
  903. ! Conny Ohstrom.
  904. X  
  905. X  Arnold Robbins kept me current on POSIX standards for AWK, and
  906. --- 11,30 ----
  907. X  
  908. X  Ports to new systems:
  909. X      Ed Ferguson        MIPS M2000 C2.20 OS4.52
  910. X      Jwahar R. Bammi        Atari ST
  911. X      Berry Kercheval        SGI IRIX 4.0.1
  912. !     Andy Newman        Next 2.1
  913. X      Mike Carlton        Next 2.1
  914. X      Elliot Jaffe        AIX 3.1
  915. X      Jeremy Martin        Convex 9.1
  916. +     Scott Hunziker        Coherent 4.0
  917. +     Ken Poulton        Hpux
  918. +     Onno van der Linden    386bsd 0.1
  919. +     Bob Hutchinson        Linux 0.98p14
  920. X  
  921. X  The DOS version is a lot better thanks to suggestions and testing
  922. X  from Ed Ferguson, Jack Fitts, Nadav Horesh, Michael Golan and
  923. ! Conny Ohstrom. The DOS additions for 1.1.2d are all ideas of
  924. ! Ben Myers; much of the code is his too.
  925. X  
  926. X  Arnold Robbins kept me current on POSIX standards for AWK, and
  927. Index: config/think_c.h
  928. *** 4.1    1991/09/25 11:42:00
  929. --- 4.2    1992/12/17 02:48:01
  930. ***************
  931. *** 20,23 ****
  932. --- 20,25 ----
  933. X  #define   HAVE_STDARG_H         1
  934. X  #define   HAVE_STDLIB_H        1
  935. + #define   HAVE_TIME_H        1
  936. + #define   HAVE_STRERROR        1
  937. X  
  938. X  #define   HAVE_MATHERR        0
  939. ***************
  940. *** 26,29 ****
  941. --- 28,33 ----
  942. X  
  943. X  #define   SIZE_T(x)        (size_t)(x)
  944. + 
  945. + #define   SET_PROGNAME()  progname = "MacMAWK"
  946. X  
  947. X  #include ":config:Idefault.h"
  948. Index: error.c
  949. *** 5.1    1991/12/05 07:55:48
  950. --- 5.3    1993/01/22 14:55:46
  951. ***************
  952. *** 2,6 ****
  953. X  /********************************************
  954. X  error.c
  955. ! copyright 1991, Michael D. Brennan
  956. X  
  957. X  This is a source file for mawk, an implementation of
  958. --- 2,6 ----
  959. X  /********************************************
  960. X  error.c
  961. ! copyright 1991, 1992 Michael D. Brennan
  962. X  
  963. X  This is a source file for mawk, an implementation of
  964. ***************
  965. *** 13,16 ****
  966. --- 13,22 ----
  967. X  
  968. X  /* $Log: error.c,v $
  969. +  * Revision 5.3  1993/01/22  14:55:46  mike
  970. +  * trivial change for unexpected_char()
  971. +  *
  972. +  * Revision 5.2  1992/10/02  23:26:04  mike
  973. +  * using vargs.h
  974. +  *
  975. X   * Revision 5.1  1991/12/05  07:55:48  brennan
  976. X   * 1.1 pre-release
  977. ***************
  978. *** 22,26 ****
  979. --- 28,34 ----
  980. X  #include  "scan.h"
  981. X  #include  "bi_vars.h"
  982. + #include  "vargs.h"
  983. X  
  984. + 
  985. X  #ifndef  EOF
  986. X  #define  EOF  (-1)
  987. ***************
  988. *** 27,31 ****
  989. X  #endif
  990. X  
  991. - /* statics */
  992. X  static void  PROTO( rt_where, (void) ) ;
  993. X  static void  PROTO( unexpected_char, (void) ) ;
  994. --- 35,38 ----
  995. ***************
  996. *** 33,36 ****
  997. --- 40,55 ----
  998. X  static char *PROTO( type_to_str, (int) ) ;
  999. X  
  1000. + #if HAVE_STRERROR == 0
  1001. + #define strerror(n) ((n)>0&&(n)<sys_nerr?sys_errlist[n]:(char*)0)
  1002. + extern int sys_nerr ;
  1003. + extern char *sys_errlist[];
  1004. + #endif
  1005. + 
  1006. + 
  1007. + #ifdef  USE_SIMPLE_VFPRINTF
  1008. + #define  vfprintf  simple_vfprintf
  1009. + #endif
  1010. + 
  1011. + 
  1012. X  extern int NR_flag ; /* on if tracking NR */
  1013. X  
  1014. ***************
  1015. *** 176,189 ****
  1016. X  }
  1017. X  
  1018. - /* system provided errnos and messages */
  1019. - #ifndef MSDOS_MSC       /* don't need the declarations */
  1020. - #ifndef THINK_C         /* don't WANT the declarations */
  1021. - extern int sys_nerr ;
  1022. - extern char *sys_errlist[] ;
  1023. - #endif
  1024. - #endif
  1025. - 
  1026. - #if  HAVE_STDARG_H
  1027. - #include <stdarg.h>
  1028. X  
  1029. X  /* generic error message with a hook into the system error 
  1030. --- 195,198 ----
  1031. ***************
  1032. *** 190,212 ****
  1033. X     messages if errnum > 0 */
  1034. X  
  1035. ! void  errmsg(int errnum, char *format, ...)
  1036. ! { va_list args ;
  1037. X  
  1038. X    fprintf(stderr, "%s: " , progname) ;
  1039. !   va_start(args, format) ;
  1040. X    (void) vfprintf(stderr, format, args) ;
  1041. X    va_end(args) ;
  1042. ! #ifdef THINK_C
  1043. !   if ( errnum > 0 )
  1044. !     fprintf(stderr, " (%s)" , strerror(errnum) ) ;
  1045. ! #else
  1046. !   if ( errnum > 0 && errnum < sys_nerr )
  1047. !     fprintf(stderr, " (%s)" , sys_errlist[errnum]) ;
  1048. ! #endif
  1049. X    fprintf( stderr, "\n") ;
  1050. X  }
  1051. X  
  1052. ! void  compile_error(char *format, ...)
  1053. ! { va_list args ;
  1054. X    char *s0, *s1 ;
  1055. X  
  1056. --- 199,218 ----
  1057. X     messages if errnum > 0 */
  1058. X  
  1059. ! void  errmsg VA_ALIST2(int , errnum, char *, format)
  1060. !   va_list args ;
  1061. X  
  1062. X    fprintf(stderr, "%s: " , progname) ;
  1063. ! 
  1064. !   VA_START2(args, int, errnum, char *, format) ;
  1065. X    (void) vfprintf(stderr, format, args) ;
  1066. X    va_end(args) ;
  1067. ! 
  1068. !   if ( errnum > 0 ) fprintf(stderr, " (%s)" , strerror(errnum) ) ;
  1069. ! 
  1070. X    fprintf( stderr, "\n") ;
  1071. X  }
  1072. X  
  1073. ! void  compile_error  VA_ALIST(char *, format)
  1074. !   va_list args ;
  1075. X    char *s0, *s1 ;
  1076. X  
  1077. ***************
  1078. *** 219,281 ****
  1079. X  
  1080. X    fprintf(stderr, "%s: %s%sline %u: " , progname, s0, s1,token_lineno) ;
  1081. !   va_start(args, format) ;
  1082. !   vfprintf(stderr, format, args) ;
  1083. !   va_end(args) ;
  1084. !   fprintf(stderr, "\n") ;
  1085. !   if ( ++compile_error_count == MAX_COMPILE_ERRORS ) mawk_exit(1) ;
  1086. ! }
  1087. ! 
  1088. ! void  rt_error( char *format, ...)
  1089. ! { va_list args ;
  1090. ! 
  1091. !   fprintf(stderr, "%s: run time error: " , progname ) ;
  1092. !   va_start(args, format) ;
  1093. !   vfprintf(stderr, format, args) ;
  1094. !   va_end(args) ;
  1095. !   putc('\n',stderr) ;
  1096. !   rt_where() ;
  1097. !   mawk_exit(1) ;
  1098. ! }
  1099. ! 
  1100. ! #else
  1101. ! 
  1102. ! #include <varargs.h>
  1103. ! 
  1104. ! /*  void errmsg(errnum, format, ...) */
  1105. ! 
  1106. ! void  errmsg( va_alist)
  1107. !   va_dcl
  1108. ! { va_list ap ;
  1109. !   int errnum ;
  1110. !   char *format ;
  1111. ! 
  1112. !   fprintf(stderr, "%s: " , progname) ;
  1113. !   va_start(ap) ;
  1114. !   errnum = va_arg(ap, int) ;
  1115. !   format = va_arg(ap, char *) ;
  1116. !   (void) vfprintf(stderr, format, ap) ;
  1117. ! #ifdef THINK_C
  1118. !   if ( errnum > 0 )
  1119. !     fprintf(stderr, " (%s)" , strerror(errnum) ) ;
  1120. ! #else
  1121. !   if ( errnum > 0 && errnum < sys_nerr )
  1122. !     fprintf(stderr, " (%s)" , sys_errlist[errnum]) ;
  1123. ! #endif
  1124. !   fprintf( stderr, "\n") ;
  1125. ! }
  1126. ! 
  1127. ! void compile_error( va_alist )
  1128. !   va_dcl
  1129. ! { va_list args ;
  1130. !   char *format ;
  1131. !   char *s0, *s1 ;
  1132. ! 
  1133. !   if ( pfile_name ) /* print program filename too */
  1134. !   { s0 = pfile_name ; s1 = ": " ; }
  1135. !   else s0 = s1 = "" ;
  1136. ! 
  1137. !   fprintf(stderr, "%s: %s%sline %u: " , progname, s0, s1,token_lineno) ;
  1138. !   va_start(args) ;
  1139. !   format = va_arg(args, char *) ;
  1140. X    vfprintf(stderr, format, args) ;
  1141. X    va_end(args) ;
  1142. --- 225,229 ----
  1143. X  
  1144. X    fprintf(stderr, "%s: %s%sline %u: " , progname, s0, s1,token_lineno) ;
  1145. !   VA_START(args, char *, format) ;
  1146. X    vfprintf(stderr, format, args) ;
  1147. X    va_end(args) ;
  1148. ***************
  1149. *** 284,295 ****
  1150. X  }
  1151. X  
  1152. ! void  rt_error( va_alist )
  1153. !   va_dcl
  1154. ! { va_list args ;
  1155. !   char *format ;
  1156. X  
  1157. X    fprintf(stderr, "%s: run time error: " , progname ) ;
  1158. !   va_start(args) ;
  1159. !   format = va_arg(args, char *) ;
  1160. X    vfprintf(stderr, format, args) ;
  1161. X    va_end(args) ;
  1162. --- 232,240 ----
  1163. X  }
  1164. X  
  1165. ! void  rt_error VA_ALIST( char *, format)
  1166. !   va_list args ;
  1167. X  
  1168. X    fprintf(stderr, "%s: run time error: " , progname ) ;
  1169. !   VA_START(args, char *, format) ;
  1170. X    vfprintf(stderr, format, args) ;
  1171. X    va_end(args) ;
  1172. ***************
  1173. *** 299,312 ****
  1174. X  }
  1175. X  
  1176. - #endif
  1177. X  
  1178. X  void bozo(s)
  1179. X    char *s ;
  1180. ! { errmsg(0, "bozo: %s" , s) ; mawk_exit(1) ; }
  1181. X  
  1182. X  void overflow(s, size)
  1183. X    char *s ; unsigned size ;
  1184. ! { errmsg(0 , "program limit exceeded: %s size=%u", s, size) ;
  1185. !   mawk_exit(1) ; }
  1186. X  
  1187. X  
  1188. --- 244,261 ----
  1189. X  }
  1190. X  
  1191. X  
  1192. X  void bozo(s)
  1193. X    char *s ;
  1194. ! { 
  1195. !   errmsg(0, "bozo: %s" , s) ; 
  1196. !   mawk_exit(1) ;
  1197. ! }
  1198. X  
  1199. X  void overflow(s, size)
  1200. X    char *s ; unsigned size ;
  1201. ! { 
  1202. !   errmsg(0 , "program limit exceeded: %s size=%u", s, size) ;
  1203. !   mawk_exit(1) ; 
  1204. ! }
  1205. X  
  1206. X  
  1207. ***************
  1208. *** 338,342 ****
  1209. X  
  1210. X    fprintf(stderr, "%s: %u: ", progname, token_lineno) ;
  1211. !   if ( c > ' ')
  1212. X        fprintf(stderr, "unexpected character '%c'\n" , c) ;
  1213. X    else
  1214. --- 287,291 ----
  1215. X  
  1216. X    fprintf(stderr, "%s: %u: ", progname, token_lineno) ;
  1217. !   if ( c > ' ' && c < 127 )
  1218. X        fprintf(stderr, "unexpected character '%c'\n" , c) ;
  1219. X    else
  1220. ***************
  1221. *** 366,369 ****
  1222. --- 315,390 ----
  1223. X      type_to_str(p->type) , p->name) ;
  1224. X  }
  1225. + 
  1226. + 
  1227. + 
  1228. + 
  1229. + #ifdef  USE_SIMPLE_VFPRINTF
  1230. + 
  1231. + /* a minimal vfprintf  */
  1232. + int simple_vfprintf( fp, format, argp)
  1233. +   FILE *fp ;
  1234. +   char *format ; 
  1235. +   va_list  argp ;
  1236. + { 
  1237. +   char *q , *p, *t ;
  1238. +   int l_flag ;
  1239. +   char xbuff[64] ;
  1240. + 
  1241. +   q = format ;
  1242. +   xbuff[0] = '%' ;
  1243. + 
  1244. +   while ( *q != 0 )
  1245. +   { 
  1246. +     if ( *q != '%' )
  1247. +     {
  1248. +       putc(*q, fp) ; q++ ; continue ;
  1249. +     }
  1250. + 
  1251. +     /* mark the start with p */
  1252. +     p = ++q ;  t = xbuff + 1 ;
  1253. + 
  1254. +     if ( *q == '-' )  *t++ = *q++ ;
  1255. +     while ( scan_code[*(unsigned char*)q] == SC_DIGIT ) *t++ = *q++ ;
  1256. +     if ( *q == '.' )
  1257. +     { *t++ = *q++ ;
  1258. +       while ( scan_code[*(unsigned char*)q] == SC_DIGIT ) *t++ = *q++ ;
  1259. +     }
  1260. + 
  1261. +     if ( *q == 'l' )  { l_flag = 1 ; *t++ = *q++ ; }
  1262. +     else l_flag = 0 ;
  1263. + 
  1264. +     
  1265. +     *t = *q++ ; t[1] = 0 ;
  1266. + 
  1267. +     switch( *t )
  1268. +     {
  1269. +       case 'c' :  
  1270. +       case 'd' :
  1271. +       case 'o' :
  1272. +       case 'x' :
  1273. +       case 'u' :
  1274. +            if ( l_flag )  fprintf(fp, xbuff, va_arg(argp,long) ) ;
  1275. +            else  fprintf(fp, xbuff, va_arg(argp, int)) ;
  1276. +            break ;
  1277. + 
  1278. +       case  's' :
  1279. +            fprintf(fp, xbuff, va_arg(argp, char*)) ;
  1280. +            break ;
  1281. + 
  1282. +       case  'g' :
  1283. +       case  'f' :
  1284. +            fprintf(fp, xbuff, va_arg(argp, double)) ;
  1285. +            break ;
  1286. + 
  1287. +       default:
  1288. +            putc('%', fp) ; 
  1289. +            q = p ;
  1290. +            break ;
  1291. +     }
  1292. +   }
  1293. +   return 0 ; /* shut up */
  1294. + }
  1295. + 
  1296. + #endif  /* USE_SIMPLE_VFPRINTF */
  1297. X  
  1298. X  
  1299. Index: files.c
  1300. *** 5.4    1992/07/10 16:10:30
  1301. --- 5.5    1992/12/17 02:48:01
  1302. ***************
  1303. *** 12,15 ****
  1304. --- 12,18 ----
  1305. X  
  1306. X  /*$Log: files.c,v $
  1307. +  * Revision 5.5  1992/12/17  02:48:01  mike
  1308. +  * 1.1.2d changes for DOS
  1309. +  *
  1310. X   * Revision 5.4  1992/07/10  16:10:30  brennan
  1311. X   * patch2
  1312. ***************
  1313. *** 77,98 ****
  1314. X  static FILE_NODE *file_list ;
  1315. X  
  1316. - void set_stderr()
  1317. - {
  1318. -   file_list = ZMALLOC(FILE_NODE) ;
  1319. -   file_list->link = (FILE_NODE*) 0 ;
  1320. -   file_list->type = F_TRUNC ;
  1321. -   file_list->name = new_STRING("/dev/stderr") ;
  1322. -   file_list->ptr = (PTR) stderr ;
  1323. - }
  1324. - 
  1325. - /* fopen() but no buffering to ttys */
  1326. - static FILE *tfopen(name, mode)
  1327. -   char *name, *mode ;
  1328. - {
  1329. -   FILE *retval = fopen(name,mode) ;
  1330. - 
  1331. -   if ( retval && isatty(fileno(retval)) )  setbuf(retval, (char*)0) ;
  1332. -   return retval ;
  1333. - }
  1334. X  
  1335. X  /* find a file on file_list */
  1336. --- 80,83 ----
  1337. ***************
  1338. *** 238,243 ****
  1339. X  #endif
  1340. X  #if  HAVE_FAKE_PIPES
  1341. !                 (void) unlink(tmp_file_name(p->pid)) ;
  1342. X          retval = p->inpipe_exit ;
  1343. X  #endif
  1344. X                  break ;
  1345. --- 223,231 ----
  1346. X  #endif
  1347. X  #if  HAVE_FAKE_PIPES
  1348. !           { 
  1349. !         char xbuff[100] ;
  1350. !                 (void) unlink(tmp_file_name(p->pid,xbuff)) ;
  1351. X          retval = p->inpipe_exit ;
  1352. +           }
  1353. X  #endif
  1354. X                  break ;
  1355. ***************
  1356. *** 276,279 ****
  1357. --- 264,268 ----
  1358. X  void  close_fake_pipes()
  1359. X  { register FILE_NODE *p = file_list ;
  1360. +   char xbuff[100] ;
  1361. X  
  1362. X    /* close input pipes first to free descriptors for children */
  1363. ***************
  1364. *** 282,286 ****
  1365. X      if ( p->type == PIPE_IN )
  1366. X      { FINclose((FIN *) p->ptr) ;
  1367. !       (void) unlink(tmp_file_name(p->pid)) ; 
  1368. X      }
  1369. X      p = p->link ;
  1370. --- 271,275 ----
  1371. X      if ( p->type == PIPE_IN )
  1372. X      { FINclose((FIN *) p->ptr) ;
  1373. !       (void) unlink(tmp_file_name(p->pid,xbuff)) ; 
  1374. X      }
  1375. X      p = p->link ;
  1376. ***************
  1377. *** 298,303 ****
  1378. X    }
  1379. X  }
  1380. ! #endif
  1381. ! #endif
  1382. X  
  1383. X  /* hardwire to /bin/sh for portability of programs */
  1384. --- 287,292 ----
  1385. X    }
  1386. X  }
  1387. ! #endif /* HAVE_FAKE_PIPES */
  1388. ! #endif /* ! HAVE_REAL_PIPES */
  1389. X  
  1390. X  /* hardwire to /bin/sh for portability of programs */
  1391. ***************
  1392. *** 428,429 ****
  1393. --- 417,468 ----
  1394. X          
  1395. X  #endif  /* HAVE_REAL_PIPES */
  1396. + void set_stderr()
  1397. + {
  1398. +   file_list = ZMALLOC(FILE_NODE) ;
  1399. +   file_list->link = (FILE_NODE*) 0 ;
  1400. +   file_list->type = F_TRUNC ;
  1401. +   file_list->name = new_STRING("/dev/stderr") ;
  1402. +   file_list->ptr = (PTR) stderr ;
  1403. + }
  1404. + 
  1405. + /* fopen() but no buffering to ttys */
  1406. + static FILE *tfopen(name, mode)
  1407. +   char *name, *mode ;
  1408. + {
  1409. +   FILE *retval = fopen(name,mode) ;
  1410. + 
  1411. +   if ( retval )
  1412. +   {
  1413. +     if ( isatty(fileno(retval)) )  setbuf(retval, (char*)0) ;
  1414. +     else
  1415. +     {
  1416. + #if  LM_DOS
  1417. +        enlarge_output_buffer(retval) ;
  1418. + #endif
  1419. +     }
  1420. +   }
  1421. +   return retval ;
  1422. + }
  1423. + 
  1424. + #if  LM_DOS
  1425. + void enlarge_output_buffer( fp )
  1426. +   FILE *fp ;
  1427. + {
  1428. +   if ( setvbuf(fp, (char*) 0, _IOFBF, BUFFSZ) < 0 )
  1429. +   {
  1430. +     errmsg(errno, "setvbuf failed on fileno %d", fileno(fp)) ;
  1431. +     mawk_exit(1) ;
  1432. +   }
  1433. + }
  1434. + #endif
  1435. + 
  1436. + #if  MSDOS
  1437. + void
  1438. + stdout_init()
  1439. + {
  1440. + #if  LM_DOS
  1441. +    if ( ! isatty(1) )  enlarge_output_buffer(stdout) ;
  1442. + #endif
  1443. +    if ( binmode() & 2 ) { setmode(1,O_BINARY) ; setmode(2,O_BINARY) ; }
  1444. + }
  1445. + #endif /* MSDOS */
  1446. Index: build_mawk
  1447. *** 1.13    1992/07/08 16:41:06
  1448. --- 1.16    1993/02/05 01:56:33
  1449. ***************
  1450. *** 11,14 ****
  1451. --- 11,15 ----
  1452. X  #
  1453. X  
  1454. + #$Id: build_mawk,v 1.16 1993/02/05 01:56:33 mike Exp $
  1455. X  
  1456. X  progname=`basename $0`
  1457. ***************
  1458. *** 59,62 ****
  1459. --- 60,66 ----
  1460. X      config=bsd43_vax.h ;;
  1461. X  
  1462. + 386bsd)
  1463. +     config=386bsd.h ;;
  1464. + 
  1465. X  ultrix41_mips)
  1466. X      config=generic.h  ;;
  1467. ***************
  1468. *** 94,99 ****
  1469. X      ranlib=: ;;
  1470. X  
  1471. ! apolloSR10.3)
  1472. !     config=apollo.h  ;;
  1473. X  
  1474. X  dynix)
  1475. --- 98,103 ----
  1476. X      ranlib=: ;;
  1477. X  
  1478. ! #apolloSR10.3)  #does not work anymore
  1479. ! #    config=apollo.h  ;;
  1480. X  
  1481. X  dynix)
  1482. ***************
  1483. *** 125,128 ****
  1484. --- 129,145 ----
  1485. X      cflags='-O2 -std' ;;
  1486. X  
  1487. + hpux)
  1488. +     config=generic.h ;;
  1489. + 
  1490. + coherent)
  1491. +     echo Coherent will not pass fpe_test
  1492. +     echo overflow cannot be detected
  1493. +     echo
  1494. +         config=coherent.h
  1495. +         cflags='-O -f' ;;
  1496. + 
  1497. + linux)
  1498. +     config=linux.h
  1499. +     CC=gcc ;;
  1500. X  
  1501. X  MF)  ;;
  1502. ***************
  1503. *** 165,169 ****
  1504. X     echo touching parse.c  ; touch parse.c
  1505. X  fi
  1506. - rm -f  config.h
  1507. X  
  1508. X  
  1509. --- 182,185 ----
  1510. ***************
  1511. *** 171,174 ****
  1512. --- 187,195 ----
  1513. X  
  1514. X  
  1515. + if [ -f config.h ]
  1516. +   then
  1517. +      echo moving config.h to config.h.old
  1518. +      mv  config.h  config.h.old
  1519. + fi
  1520. X  echo linking config/$config to config.h
  1521. X  ln   config/$config  config.h
  1522. Index: zmalloc.c
  1523. *** 5.1    1991/12/05 07:56:35
  1524. --- 5.1.1.1    1993/02/06 11:12:19
  1525. ***************
  1526. *** 12,15 ****
  1527. --- 12,19 ----
  1528. X  
  1529. X  /*$Log: zmalloc.c,v $
  1530. +  * Revision 5.1.1.1  1993/02/06  11:12:19  mike
  1531. +  * fix bug in reuse of parser table memory
  1532. +  * for most users ifdef the mess out
  1533. +  *
  1534. X   * Revision 5.1  1991/12/05  07:56:35  brennan
  1535. X   * 1.1 pre-release
  1536. ***************
  1537. *** 84,101 ****
  1538. X  
  1539. X    if ( blocks > amt_avail )
  1540. !   { if ( amt_avail ) /* free avail */
  1541. !     { avail->link = pool[--amt_avail] ; pool[amt_avail] = avail ; }
  1542. X  
  1543. X      /* use parser tables first */
  1544. !     if ( yacc_memp->zblocks >= blocks )
  1545. !     { avail = (ZBLOCK *) yacc_memp->mem ;
  1546. X        amt_avail = yacc_memp++ -> zblocks ;
  1547. X        /* make sure its -- aligned */
  1548. !       if ( (int) avail & 7 )
  1549. !       { avail = (ZBLOCK*)((char *)avail + 8 - ((int)avail&7)) ;
  1550. !     amt_avail-- ;
  1551. X        }
  1552. X      }
  1553. X      else
  1554. X      if ( !(avail = (ZBLOCK *) malloc(SIZE_T(CHUNK*ZBLOCKSZ))) )
  1555. X      { /* if we get here, almost out of memory */
  1556. --- 88,121 ----
  1557. X  
  1558. X    if ( blocks > amt_avail )
  1559. !   { 
  1560. !     if ( amt_avail != 0 ) /* free avail */
  1561. !     { 
  1562. !       avail->link = pool[--amt_avail] ;
  1563. !       pool[amt_avail] = avail ;
  1564. !     }
  1565. X  
  1566. + #if MSDOS || HAVE_SMALL_MEMORY
  1567. + /* this hack is dangerous (I've blown it twice), not portable,
  1568. +    and counts on byacc not changing, but it is a big win on
  1569. +    DOS.  On paged vmem systems it is a nop so ifdef it out.
  1570. + */
  1571. X      /* use parser tables first */
  1572. !     if ( yacc_memp->zblocks > blocks )
  1573. !     { 
  1574. !       avail = (ZBLOCK *) yacc_memp->mem ;
  1575. X        amt_avail = yacc_memp++ -> zblocks ;
  1576. X        /* make sure its -- aligned */
  1577. !       {
  1578. !     int k = (int) avail & 7 ;
  1579. !         if ( k )
  1580. !         { 
  1581. !       avail = (ZBLOCK*)((char *)avail + (8-k)) ;
  1582. !       amt_avail-- ;
  1583. !     }
  1584. X        }
  1585. X      }
  1586. X      else
  1587. + #endif
  1588. + 
  1589. X      if ( !(avail = (ZBLOCK *) malloc(SIZE_T(CHUNK*ZBLOCKSZ))) )
  1590. X      { /* if we get here, almost out of memory */
  1591. Index: main.c
  1592. *** 5.1    1991/12/05 07:56:14
  1593. --- 5.2.1.1    1993/01/15 03:33:44
  1594. ***************
  1595. *** 12,15 ****
  1596. --- 12,21 ----
  1597. X  
  1598. X  /* $Log: main.c,v $
  1599. +  * Revision 5.2.1.1  1993/01/15  03:33:44  mike
  1600. +  * patch3: safer double to int conversion
  1601. +  *
  1602. +  * Revision 5.2  1992/12/17  02:48:01  mike
  1603. +  * 1.1.2d changes for DOS
  1604. +  *
  1605. X   * Revision 5.1  1991/12/05  07:56:14  brennan
  1606. X   * 1.1 pre-release
  1607. ***************
  1608. *** 30,69 ****
  1609. X  #include <stdio.h>
  1610. X  
  1611. - #if  MSDOS 
  1612. - void  reargv(int *, char ***) ;
  1613. - #endif
  1614. - 
  1615. - #if LM_DOS && __TURBOC__
  1616. - extern unsigned  _stklen = 16 * 1024U ;
  1617. -    /*  4K of stack is enough for a user function call 
  1618. -        nesting depth of 75 so this is enough for 300 */
  1619. - #endif
  1620. - 
  1621. X  
  1622. - 
  1623. - extern int program_fd ;
  1624. - char *progname ;
  1625. X  short mawk_state ; /* 0 is compiling */
  1626. X  int  exit_code ;
  1627. X  
  1628. ! 
  1629. X  main(argc , argv )
  1630. X    int argc ; char **argv ;
  1631. X  { 
  1632. - 
  1633. - #if   MSDOS
  1634. -   progname = "mawk" ;
  1635. - #if      HAVE_REARGV
  1636. -   reargv(&argc, &argv) ;
  1637. - #endif
  1638. - #else    /* MSDOS */
  1639. - #ifdef THINK_C
  1640. -   progname = "MacMAWK";
  1641. - #else    /* THINK_C */
  1642. -   { char *strrchr() ;
  1643. -     char *p = strrchr(argv[0], '/') ;
  1644. -     progname = p ? p+1 : argv[0] ; }
  1645. - #endif
  1646. - #endif
  1647. X  
  1648. X    initialize(argc, argv) ;
  1649. --- 36,47 ----
  1650. X  #include <stdio.h>
  1651. X  
  1652. X  
  1653. X  short mawk_state ; /* 0 is compiling */
  1654. X  int  exit_code ;
  1655. X  
  1656. ! int
  1657. X  main(argc , argv )
  1658. X    int argc ; char **argv ;
  1659. X  { 
  1660. X  
  1661. X    initialize(argc, argv) ;
  1662. Index: msdos/Makefile.tcc
  1663. *** 1.2    1991/11/12 09:59:26
  1664. --- 1.4    1993/01/14 13:07:48
  1665. ***************
  1666. *** 3,12 ****
  1667. X  #  with Borland make
  1668. X  #
  1669. ! #   make    --  mawk.exe   DOS command line
  1670. ! #   make  -DLARGE   -- bmawk.exe   DOS  command line
  1671. ! #   make  -DREARGV  --  mawk.exe   unix command line
  1672. ! #   make  -DLARGE -DREARGV  -- bmawk.exe   unix  command line
  1673. X  
  1674. X  #$Log: Makefile.tcc,v $
  1675. X  #Revision 1.2  1991/11/12  09:59:26  brennan
  1676. X  #changed tcc to $(CC) and .o to .obj
  1677. --- 3,22 ----
  1678. X  #  with Borland make
  1679. X  #
  1680. ! #   make    --  mawk.exe
  1681. ! #   make  -DLARGE   -- bmawk.exe
  1682. X  
  1683. + #  for a unix style command line add
  1684. + #  -DREARV=your_reargv_file without the extension
  1685. + #
  1686. + #  e.g. -DREARGV=argvmks
  1687. + 
  1688. X  #$Log: Makefile.tcc,v $
  1689. + #Revision 1.4  1993/01/14  13:07:48  mike
  1690. + #RM macro
  1691. + #
  1692. + #Revision 1.3  1992/12/27  01:44:11  mike
  1693. + #have to use -G- to fit small model
  1694. + #a bunch of small changes
  1695. + #
  1696. X  #Revision 1.2  1991/11/12  09:59:26  brennan
  1697. X  #changed tcc to $(CC) and .o to .obj
  1698. ***************
  1699. *** 19,26 ****
  1700. X  
  1701. X  # user settable
  1702. X  CC=tcc   # bcc or ? 
  1703. ! TCCLIB =c:\lib
  1704. ! FLOATLIB=emu   #  or  fp87
  1705. ! WILDCARD=c:\lib\wildargs.obj
  1706. X  
  1707. X  # compiler flags
  1708. --- 29,49 ----
  1709. X  
  1710. X  # user settable
  1711. + # change here or override from command line e.g. -DCC=bcc
  1712. + 
  1713. + !if ! $d(CC)
  1714. X  CC=tcc   # bcc or ? 
  1715. ! !endif
  1716. ! 
  1717. ! !if ! $d(LIBDIR)
  1718. ! LIBDIR =c:\lib    # where are your Borland C libraries ?
  1719. ! !endif  
  1720. ! 
  1721. ! !if !  $d(FLOATLIB)
  1722. ! FLOATLIB=emu   #  or  fp87 if you have fp87 hardware
  1723. ! !endif
  1724. ! 
  1725. ! !if ! $d(WILDCARD)
  1726. ! WILDCARD=$(LIBDIR)\wildargs.obj
  1727. ! !endif
  1728. X  
  1729. X  # compiler flags
  1730. ***************
  1731. *** 29,35 ****
  1732. X  # -v- symbolic debugging off
  1733. X  # -O  optimize
  1734. ! CFLAGS = -c -d -v- -O -G
  1735. X  LFLAGS = /c  #case sensitive linking
  1736. X  
  1737. X  ##############################
  1738. X  # end of user settable
  1739. --- 52,76 ----
  1740. X  # -v- symbolic debugging off
  1741. X  # -O  optimize
  1742. ! CFLAGS = -c -d -v- -O 
  1743. ! 
  1744. ! !if $d(LARGE)
  1745. ! OPT = -G
  1746. ! !else
  1747. ! OPT = -G-  # opt for size (getting too big)
  1748. ! !endif
  1749. ! 
  1750. ! 
  1751. X  LFLAGS = /c  #case sensitive linking
  1752. X  
  1753. + # how to delete a file
  1754. + !if ! $d(RM)
  1755. + RM = del    # rm
  1756. + !endif
  1757. + 
  1758. + # how to rename a file
  1759. + !if ! $d(RENAME)
  1760. + RENAME = rename  # mv
  1761. + !endif
  1762. + 
  1763. X  ##############################
  1764. X  # end of user settable
  1765. ***************
  1766. *** 45,49 ****
  1767. X  !endif
  1768. X  
  1769. ! CFLAGS=-m$(MODEL) $(CFLAGS)
  1770. X  
  1771. X  
  1772. --- 86,90 ----
  1773. X  !endif
  1774. X  
  1775. ! CFLAGS=-m$(MODEL) $(OPT) $(CFLAGS)
  1776. X  
  1777. X  
  1778. ***************
  1779. *** 82,86 ****
  1780. X  
  1781. X  !if  $d(REARGV)  
  1782. ! OBS = $(OBS) reargv.obj
  1783. X  !endif
  1784. X  
  1785. --- 123,127 ----
  1786. X  
  1787. X  !if  $d(REARGV)  
  1788. ! OBS = $(OBS) $(REARGV).obj
  1789. X  !endif
  1790. X  
  1791. ***************
  1792. *** 95,104 ****
  1793. X  rexp3.obj
  1794. X  
  1795. ! LIBS = $(TCCLIB)\$(FLOATLIB) \
  1796. ! $(TCCLIB)\math$(MODEL) $(TCCLIB)\c$(MODEL)
  1797. X  
  1798. X  $(TARGET).exe : $(OBS)  $(REXP_OBS)
  1799. X      tlink $(LFLAGS) @&&!
  1800. !     $(TCCLIB)\c0$(MODEL) $(WILDCARD) $(OBS) $(REXP_OBS)
  1801. X      $(TARGET),$(TARGET)
  1802. X      $(LIBS)
  1803. --- 136,145 ----
  1804. X  rexp3.obj
  1805. X  
  1806. ! LIBS = $(LIBDIR)\$(FLOATLIB) \
  1807. ! $(LIBDIR)\math$(MODEL) $(LIBDIR)\c$(MODEL)
  1808. X  
  1809. X  $(TARGET).exe : $(OBS)  $(REXP_OBS)
  1810. X      tlink $(LFLAGS) @&&!
  1811. !     $(LIBDIR)\c0$(MODEL) $(WILDCARD) $(OBS) $(REXP_OBS)
  1812. X      $(TARGET),$(TARGET)
  1813. X      $(LIBS)
  1814. ***************
  1815. *** 112,117 ****
  1816. X      $(CC) makescan.c
  1817. X      makescan.exe > scancode.c
  1818. !     del makescan.obj  
  1819. !     del makescan.exe
  1820. X  
  1821. X  xdosexec.obj  :  msdos\xdosexec.see
  1822. --- 153,158 ----
  1823. X      $(CC) makescan.c
  1824. X      makescan.exe > scancode.c
  1825. !     $(RM) makescan.obj  
  1826. !     $(RM) makescan.exe
  1827. X  
  1828. X  xdosexec.obj  :  msdos\xdosexec.see
  1829. ***************
  1830. *** 118,122 ****
  1831. X      $(CC) msdos\see2obj.c
  1832. X      see2obj < msdos\xdosexec.see > xdosexec.obj
  1833. !     del see2obj.exe
  1834. X  
  1835. X  #xdosexec.obj  :  xdosexec.asm
  1836. --- 159,163 ----
  1837. X      $(CC) msdos\see2obj.c
  1838. X      see2obj < msdos\xdosexec.see > xdosexec.obj
  1839. !     $(RM) see2obj.exe
  1840. X  
  1841. X  #xdosexec.obj  :  xdosexec.asm
  1842. ***************
  1843. *** 132,137 ****
  1844. X  #    bison -dy parse.y
  1845. X  #    bmawk -f modbison.awk y_tab.c parse2.xc > parse.c
  1846. ! #    rename y_tab.h parse.h
  1847. ! #    del y_tab.c
  1848. X  ########################################
  1849. X  
  1850. --- 173,178 ----
  1851. X  #    bison -dy parse.y
  1852. X  #    bmawk -f modbison.awk y_tab.c parse2.xc > parse.c
  1853. ! #    $(RENAME) y_tab.h parse.h
  1854. ! #    $(RM) y_tab.c
  1855. X  ########################################
  1856. X  
  1857. ***************
  1858. *** 138,142 ****
  1859. X  
  1860. X  clean  :
  1861. !     del  *.obj
  1862. X  
  1863. X  
  1864. --- 179,183 ----
  1865. X  
  1866. X  clean  :
  1867. !     $(RM)  *.obj
  1868. X  
  1869. X  
  1870. Index: symtype.h
  1871. *** 5.2    1992/07/08 15:44:44
  1872. --- 5.3    1992/12/17 02:48:01
  1873. ***************
  1874. *** 12,15 ****
  1875. --- 12,18 ----
  1876. X  
  1877. X  /*$Log: symtype.h,v $
  1878. +  * Revision 5.3  1992/12/17  02:48:01  mike
  1879. +  * 1.1.2d changes for DOS
  1880. +  *
  1881. X   * Revision 5.2  1992/07/08  15:44:44  brennan
  1882. X   * patch2: length returns.  I am a wimp
  1883. ***************
  1884. *** 44,48 ****
  1885. X  struct anode *link , *ilink ;
  1886. X  STRING *sval ;
  1887. ! int     ival ;
  1888. X  CELL   *cp ;
  1889. X  }  ANODE ;
  1890. --- 47,51 ----
  1891. X  struct anode *link , *ilink ;
  1892. X  STRING *sval ;
  1893. ! long     ival ;
  1894. X  CELL   *cp ;
  1895. X  }  ANODE ;
  1896. Index: files.h
  1897. *** 5.1    1991/12/05 07:59:18
  1898. --- 5.2    1992/12/17 02:48:01
  1899. ***************
  1900. *** 12,15 ****
  1901. --- 12,18 ----
  1902. X  
  1903. X  /*$Log: files.h,v $
  1904. +  * Revision 5.2  1992/12/17  02:48:01  mike
  1905. +  * 1.1.2d changes for DOS
  1906. +  *
  1907. X   * Revision 5.1  1991/12/05  07:59:18  brennan
  1908. X   * 1.1 pre-release
  1909. ***************
  1910. *** 38,42 ****
  1911. X  void PROTO(close_fake_pipes, (void)) ;
  1912. X  int  PROTO(close_fake_outpipe, (char *,int)) ;
  1913. ! char *PROTO(tmp_file_name, (int)) ;
  1914. X  #endif
  1915. X  
  1916. --- 41,45 ----
  1917. X  void PROTO(close_fake_pipes, (void)) ;
  1918. X  int  PROTO(close_fake_outpipe, (char *,int)) ;
  1919. ! char *PROTO(tmp_file_name, (int, char*)) ;
  1920. X  #endif
  1921. X  
  1922. ***************
  1923. *** 45,48 ****
  1924. --- 48,52 ----
  1925. X  int  PROTO(binmode, (void)) ;
  1926. X  void PROTO(set_binmode, (int)) ;
  1927. + void PROTO(enlarge_output_buffer, (FILE*)) ;
  1928. X  #endif
  1929. X  
  1930. Index: config/msc_dos.h
  1931. *** 4.3    1992/01/09 08:54:09
  1932. --- 4.4    1992/12/17 02:48:01
  1933. ***************
  1934. *** 14,17 ****
  1935. --- 14,20 ----
  1936. X  
  1937. X  /*$Log: msc_dos.h,v $
  1938. +  * Revision 4.4  1992/12/17  02:48:01  mike
  1939. +  * 1.1.2d changes for DOS
  1940. +  *
  1941. X   * Revision 4.3  1992/01/09  08:54:09  brennan
  1942. X   * changed SAMESEG macro
  1943. ***************
  1944. *** 31,34 ****
  1945. --- 34,39 ----
  1946. X  #define   HAVE_STDARG_H         1
  1947. X  #define   HAVE_STDLIB_H        1
  1948. + #define   HAVE_TIME_H        1
  1949. + #define   HAVE_STRERROR        1
  1950. X  
  1951. X  #define   FPE_TRAPS_ON        1
  1952. Index: array.c
  1953. *** 5.2    1992/04/07 17:17:31
  1954. --- 5.3.1.1    1993/01/20 12:24:25
  1955. ***************
  1956. *** 12,15 ****
  1957. --- 12,23 ----
  1958. X  
  1959. X  /* $Log: array.c,v $
  1960. +  * Revision 5.3.1.1  1993/01/20  12:24:25  mike
  1961. +  * patch3: safer double to int conversions
  1962. +  *
  1963. +  * Revision 5.3  1992/11/28  23:48:42  mike
  1964. +  * For internal conversion numeric->string, when testing
  1965. +  * if integer, use longs instead of ints so 16 and 32 bit
  1966. +  * systems behave the same
  1967. +  *
  1968. X   * Revision 5.2  1992/04/07  17:17:31  brennan
  1969. X   * patch 2
  1970. ***************
  1971. *** 34,38 ****
  1972. X  
  1973. X  static ANODE *PROTO(find_by_sval, (ARRAY, STRING *, int) ) ;
  1974. ! static ANODE *PROTO(find_by_index, (ARRAY, int,int,int) ) ;
  1975. X  static ANODE *PROTO(find_by_dval, (ARRAY, double, int)) ;
  1976. X  static void PROTO(load_array_ov, (ARRAY) ) ;
  1977. --- 42,46 ----
  1978. X  
  1979. X  static ANODE *PROTO(find_by_sval, (ARRAY, STRING *, int) ) ;
  1980. ! static ANODE *PROTO(find_by_index, (ARRAY, int,long,int) ) ;
  1981. X  static ANODE *PROTO(find_by_dval, (ARRAY, double, int)) ;
  1982. X  static void PROTO(load_array_ov, (ARRAY) ) ;
  1983. ***************
  1984. *** 98,104 ****
  1985. X  
  1986. X  
  1987. X  static ANODE  *find_by_index(A, index, ival, flag)
  1988. X    ARRAY  A ;
  1989. !   int index, ival, flag ;
  1990. X  {
  1991. X    register ANODE *p = A[index].ilink ;
  1992. --- 106,119 ----
  1993. X  
  1994. X  
  1995. + /* find an array by (long) integer ival.
  1996. +    Caller has already computed the hash value index.
  1997. +    (This allows fast insertion for split())
  1998. + */
  1999. + 
  2000. X  static ANODE  *find_by_index(A, index, ival, flag)
  2001. X    ARRAY  A ;
  2002. !   int index; 
  2003. !   long ival; 
  2004. !   int flag ;
  2005. X  {
  2006. X    register ANODE *p = A[index].ilink ;
  2007. ***************
  2008. *** 116,123 ****
  2009. X     /* not there, still need to look by sval */
  2010. X     
  2011. !    { char xbuff[16] ;
  2012. X       STRING *sval ;
  2013. X       char *s = xbuff+14 ;
  2014. !      int x = ival ;
  2015. X  
  2016. X       xbuff[15] = 0 ;
  2017. --- 131,139 ----
  2018. X     /* not there, still need to look by sval */
  2019. X     
  2020. !    { /* convert to string */
  2021. !      char xbuff[16] ;
  2022. X       STRING *sval ;
  2023. X       char *s = xbuff+14 ;
  2024. !      long x = ival ;
  2025. X  
  2026. X       xbuff[15] = 0 ;
  2027. ***************
  2028. *** 143,148 ****
  2029. X    ARRAY A ;
  2030. X    double d ;
  2031. X  {
  2032. !   int ival ;
  2033. X    ANODE *p ;
  2034. X    char xbuff[260] ;
  2035. --- 159,165 ----
  2036. X    ARRAY A ;
  2037. X    double d ;
  2038. +   int flag ;
  2039. X  {
  2040. !   long lval ;
  2041. X    ANODE *p ;
  2042. X    char xbuff[260] ;
  2043. ***************
  2044. *** 150,159 ****
  2045. X    
  2046. X  
  2047. !   if ( (double)(ival = (int)d) == d ) /* integer valued */
  2048. X    {
  2049. !     if ( ival >= 0 )  
  2050. !             return  find_by_index(A, ival%A_HASH_PRIME, ival, flag) ;
  2051. !     
  2052. !     (void) sprintf(xbuff, "%d", ival) ;
  2053. X    } 
  2054. X    else (void) sprintf(xbuff, string(CONVFMT)->str, d) ;
  2055. --- 167,180 ----
  2056. X    
  2057. X  
  2058. !   lval = d_to_l(d) ;
  2059. !   if ( (double)lval == d ) /* integer valued */
  2060. X    {
  2061. !     if ( lval >= 0 )  
  2062. !     {
  2063. !             return 
  2064. !         find_by_index(A, (int)(lval%A_HASH_PRIME), lval, flag) ;
  2065. !     }
  2066. !     else
  2067. !     (void) sprintf(xbuff, INT_FMT, lval) ;
  2068. X    } 
  2069. X    else (void) sprintf(xbuff, string(CONVFMT)->str, d) ;
  2070. ***************
  2071. *** 202,207 ****
  2072. X      case C_DOUBLE :
  2073. X          ap = find_by_dval(A, cp->dval, NO_CREATE) ;
  2074. X          if ( ap && ap->ival >= 0 ) /* must be at front */
  2075. !                 A[ap->ival%A_HASH_PRIME].ilink = ap->ilink ;
  2076. X          break ;
  2077. X  
  2078. --- 223,229 ----
  2079. X      case C_DOUBLE :
  2080. X          ap = find_by_dval(A, cp->dval, NO_CREATE) ;
  2081. +     /* cut the ilink */
  2082. X          if ( ap && ap->ival >= 0 ) /* must be at front */
  2083. !                 A[(int)(ap->ival%A_HASH_PRIME)].ilink = ap->ilink ;
  2084. X          break ;
  2085. X  
  2086. ***************
  2087. *** 216,219 ****
  2088. --- 238,244 ----
  2089. X    }
  2090. X  
  2091. +   
  2092. +   /* delete -- leave the empty ANODE so for(i in A)
  2093. +      works */
  2094. X    if ( ap )
  2095. X    { free_STRING(ap->sval) ; ap->sval = (STRING *) 0 ;
  2096. ***************
  2097. *** 242,246 ****
  2098. X    while( 1 )
  2099. X    {
  2100. !     cp = find_by_index(A, index, cnt, NO_MOVE) ->cp ;
  2101. X      cell_destroy(cp) ;
  2102. X      cp->type = C_MBSTRN ;
  2103. --- 267,271 ----
  2104. X    while( 1 )
  2105. X    {
  2106. !     cp = find_by_index(A, index, (long)cnt, NO_MOVE) ->cp ;
  2107. X      cell_destroy(cp) ;
  2108. X      cp->type = C_MBSTRN ;
  2109. ***************
  2110. *** 316,320 ****
  2111. X    while ( cnt )
  2112. X    {
  2113. !     cp = find_by_index(A, index, cnt, NO_MOVE) ->cp  ;
  2114. X      cell_destroy(cp) ;
  2115. X      cp->type = C_MBSTRN ;
  2116. --- 341,345 ----
  2117. X    while ( cnt )
  2118. X    {
  2119. !     cp = find_by_index(A, index, (long) cnt, NO_MOVE) ->cp  ;
  2120. X      cell_destroy(cp) ;
  2121. X      cp->type = C_MBSTRN ;
  2122. ***************
  2123. *** 441,443 ****
  2124. X    }
  2125. X  }
  2126. - 
  2127. --- 466,467 ----
  2128. Index: version.c
  2129. *** 5.4    1992/08/27 11:50:38
  2130. --- 5.6.1.2    1993/01/20 12:53:13
  2131. ***************
  2132. *** 12,15 ****
  2133. --- 12,27 ----
  2134. X  
  2135. X  /*$Log: version.c,v $
  2136. +  * Revision 5.6.1.2  1993/01/20  12:53:13  mike
  2137. +  * d_to_l()
  2138. +  *
  2139. +  * Revision 5.6.1.1  1993/01/15  03:33:54  mike
  2140. +  * patch3: safer double to int conversion
  2141. +  *
  2142. +  * Revision 5.6  1992/12/17  02:48:01  mike
  2143. +  * 1.1.2d changes for DOS
  2144. +  *
  2145. +  * Revision 5.5  1992/12/02  03:18:12  mike
  2146. +  * coherent patch
  2147. +  *
  2148. X   * Revision 5.4  1992/08/27  11:50:38  mike
  2149. X   * patch2
  2150. ***************
  2151. *** 29,34 ****
  2152. X  #include "patchlev.h"
  2153. X  
  2154. X  #define  VERSION_STRING  \
  2155. !   "mawk 1.1%s%s Aug 1992, Copyright (C) Michael D. Brennan\n\n"
  2156. X  
  2157. X  #define  DOS_STRING     ""
  2158. --- 41,49 ----
  2159. X  #include "patchlev.h"
  2160. X  
  2161. + static char rcsid[] =
  2162. + "@(#) $Id: version.c,v 5.6.1.2 1993/01/20 12:53:13 mike Exp $" ;
  2163. + 
  2164. X  #define  VERSION_STRING  \
  2165. !   "mawk 1.1%s%s %s, Copyright (C) Michael D. Brennan\n\n"
  2166. X  
  2167. X  #define  DOS_STRING     ""
  2168. ***************
  2169. *** 64,76 ****
  2170. X  #endif
  2171. X  
  2172. X  /* print VERSION and exit */
  2173. X  void print_version()
  2174. ! { static char fmt[] = "%-14s%10u\n" ;
  2175. X  
  2176. !   printf(VERSION_STRING, PATCH_STRING, DOS_STRING) ;
  2177. X    fflush(stdout) ;
  2178. X    fprintf(stderr, "compiled limits:\n") ;
  2179. !   fprintf(stderr, fmt,  "largest field", MAX_FIELD) ;
  2180. !   fprintf(stderr, fmt,  "sprintf buffer",SPRINTF_SZ) ;
  2181. X    exit(0) ;
  2182. X  }
  2183. --- 79,178 ----
  2184. X  #endif
  2185. X  
  2186. + static char fmt[] = "%-14s%10lu\n" ;
  2187. + 
  2188. X  /* print VERSION and exit */
  2189. X  void print_version()
  2190. ! { 
  2191. X  
  2192. !   printf(VERSION_STRING, PATCH_STRING, DOS_STRING, DATE_STRING) ;
  2193. X    fflush(stdout) ;
  2194. + 
  2195. +   print_compiler_id() ;
  2196. X    fprintf(stderr, "compiled limits:\n") ;
  2197. !   fprintf(stderr, fmt,  "largest field", (long)MAX_FIELD) ;
  2198. !   fprintf(stderr, fmt,  "sprintf buffer", (long)SPRINTF_SZ) ;
  2199. !   print_aux_limits() ;
  2200. X    exit(0) ;
  2201. + }
  2202. + 
  2203. + 
  2204. + /*
  2205. +   Extra info for MSDOS.  This code contributed by
  2206. +   Ben Myers 
  2207. + */
  2208. + 
  2209. + #ifdef __TURBOC__
  2210. + #include <alloc.h>   /* coreleft() */
  2211. + #define  BORL
  2212. + #endif
  2213. + 
  2214. + #ifdef __BORLANDC__
  2215. + #include <alloc.h>   /* coreleft() */
  2216. + #define  BORL
  2217. + #endif
  2218. + 
  2219. + #ifdef  BORL 
  2220. + #if     LM_DOS
  2221. + extern unsigned  _stklen = 16 * 1024U ; 
  2222. +    /*  4K of stack is enough for a user function call 
  2223. +        nesting depth of 75 so this is enough for 300 */
  2224. + #endif
  2225. + #endif
  2226. + 
  2227. + #ifdef _MSC_VER
  2228. + #include <malloc.h>
  2229. + #endif
  2230. + 
  2231. + #ifdef __ZTC__
  2232. + #include <dos.h>              /* _chkstack */
  2233. + #endif
  2234. + 
  2235. + 
  2236. + int print_compiler_id()
  2237. + {
  2238. + 
  2239. + #ifdef  __TURBOC__
  2240. +   fprintf(stderr, "MsDOS Turbo C++ %d.%d\n",
  2241. +                 __TURBOC__>>8, __TURBOC__&0xff) ;
  2242. + #endif
  2243. +   
  2244. + #ifdef __BORLANDC__
  2245. +   fprintf (stderr, "MS-DOS Borland C++ __BORLANDC__ %x\n",
  2246. +         __BORLANDC__ );
  2247. + #endif
  2248. + 
  2249. + #ifdef _MSC_VER
  2250. +   fprintf (stderr, "MS-DOS Microsoft C/C++ _MSC_VER %u\n", _MSC_VER );
  2251. + #endif
  2252. + 
  2253. + #ifdef __ZTC__
  2254. +   fprintf (stderr, "MS-DOS Zortech C++ __ZTC__ %x\n", __ZTC__ );
  2255. + #endif
  2256. + 
  2257. +   return 0 ; /*shut up */
  2258. + }
  2259. + 
  2260. + 
  2261. + int  print_aux_limits()
  2262. + {
  2263. + #ifdef BORL
  2264. +   extern unsigned _stklen ;
  2265. +   fprintf(stderr, fmt,  "stack size", (unsigned long)_stklen) ;
  2266. +   fprintf(stderr, fmt,  "heap size",  (unsigned long) coreleft()) ;
  2267. + #endif
  2268. + 
  2269. + #ifdef _MSC_VER
  2270. +   fprintf(stderr, fmt,  "stack size", (unsigned long)_stackavail()) ;
  2271. + #if   SM_DOS
  2272. +   fprintf(stderr, fmt,  "heap size", (unsigned long) _memavl()) ;
  2273. + #endif
  2274. + #endif
  2275. + 
  2276. + #ifdef __ZTC__
  2277. + /* large memory model only with ztc */
  2278. +   fprintf(stderr, fmt,  "stack size??", (unsigned long)_chkstack()) ;
  2279. +   fprintf(stderr, fmt,  "heap size", farcoreleft()) ;
  2280. + #endif
  2281. + 
  2282. +   return 0 ;
  2283. X  }
  2284. DIFFGEN_EOF
  2285. SHAR_EOF
  2286. echo 'File patch3 is complete' &&
  2287. chmod 0640 patch3 ||
  2288. echo 'restore of patch3 failed'
  2289. Wc_c="`wc -c < 'patch3'`"
  2290. test 111555 -eq "$Wc_c" ||
  2291.     echo 'patch3: original size 111555, current size' "$Wc_c"
  2292. rm -f _shar_wnt_.tmp
  2293. fi
  2294. rm -f _shar_seq_.tmp
  2295. echo You have unpacked the last part
  2296. exit 0
  2297.