home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / pc / source / mawk.lzh / mawk.6 < prev   
Text File  |  1991-05-19  |  58KB  |  2,327 lines
  1.                           else\
  2.                           { stackp->m=mx;stackp->s=sx;stackp->u=ux;}
  3. #endif
  4.  
  5.  
  6. #define   CASE_UANY(x)  case  x + U_OFF :  case  x + U_ON
  7.  
  8.  
  9. int  REtest( str, machine)
  10.   char *str ;
  11.   VOID *machine ;
  12. { register STATE *m = (STATE *) machine ;
  13.   register char *s = str ;
  14.   register RT_STATE *stackp ;
  15.   int u_flag ;
  16.   char *str_end ;
  17.   char *ts ; /*convenient temps */
  18.   STATE *tm ;
  19.  
  20.   /* handle the easy case quickly */
  21.   if ( (m+1)->type == M_ACCEPT && m->type == M_STR )
  22.         return  (int ) str_str(s, m->data.str, m->len) ;
  23.   else
  24.   { u_flag = U_ON ; str_end = (char *) 0 ;
  25.     stackp = RE_run_stack_base - 1 ;
  26.     goto  reswitch ;
  27.   }
  28.  
  29. refill :
  30.   if ( stackp < RE_run_stack_base )  return  0 ;
  31.   m = stackp->m ;
  32.   s = stackp->s ;
  33.   u_flag  = stackp-- -> u ;
  34.  
  35.  
  36. reswitch  :
  37.  
  38.   switch( m->type + u_flag )
  39.   {
  40.     case M_STR + U_OFF + END_OFF :
  41.             if ( strncmp(s, m->data.str, m->len) ) goto refill ;
  42.             s += m->len ;  m++ ;
  43.             goto reswitch ;
  44.  
  45.     case M_STR + U_OFF + END_ON :
  46.             if ( strcmp(s, m->data.str) ) goto refill ;
  47.             s += m->len ;  m++ ;
  48.             goto reswitch ;
  49.  
  50.     case M_STR + U_ON + END_OFF :
  51.             if ( !(s = str_str(s, m->data.str, m->len)) ) goto refill ;
  52.             push(m, s+1, U_ON) ;
  53.             s += m->len ; m++ ; u_flag = U_OFF ;
  54.             goto reswitch ;
  55.  
  56.     case M_STR + U_ON + END_ON :
  57.             if ( !str_end )  str_end = strchr(s, 0) ;
  58.             ts = str_end - m->len ;
  59.             if (ts < s || memcmp(ts,m->data.str,m->len+1)) goto refill ; 
  60.             s = str_end ; m++ ; u_flag = U_OFF ;
  61.             goto reswitch ;
  62.  
  63.     case M_CLASS + U_OFF + END_OFF :
  64.             if ( !ison(*m->data.bvp, s[0] ) )  goto refill ;
  65.             s++ ; m++ ;
  66.             goto reswitch ;
  67.  
  68.     case M_CLASS + U_OFF + END_ON :
  69.             if ( s[1] || !ison(*m->data.bvp,s[0]) )  goto refill ;
  70.             s++ ; m++ ;
  71.             goto reswitch ;
  72.  
  73.     case M_CLASS + U_ON + END_OFF :
  74.             while ( !ison(*m->data.bvp,s[0]) )
  75.                 if ( s[0] == 0 )  goto refill ;
  76.                 else  s++ ;
  77.             s++ ;
  78.             push(m, s, U_ON) ;
  79.             m++ ; u_flag = U_OFF ;
  80.             goto reswitch ;
  81.  
  82.     case M_CLASS + U_ON + END_ON :
  83.             if ( ! str_end )  str_end = strchr(s,0) ;
  84.             if ( ! ison(*m->data.bvp, str_end[-1]) ) goto refill ;
  85.             s = str_end ; m++ ; u_flag = U_OFF ;
  86.             goto reswitch ;
  87.  
  88.     case M_ANY + U_OFF + END_OFF :
  89.             if ( s[0] == 0 )  goto refill ;
  90.             s++ ; m++ ;
  91.             goto  reswitch ;
  92.  
  93.     case M_ANY + U_OFF + END_ON :
  94.             if ( s[0] == 0 || s[1] != 0 )  goto refill ;
  95.             s++ ; m++ ;
  96.             goto reswitch ;
  97.  
  98.     case M_ANY + U_ON + END_OFF :
  99.             if ( s[0] == 0 )  goto refill ;
  100.             s++ ; 
  101.             push(m, s, U_ON) ;
  102.             m++ ; u_flag = U_OFF ;
  103.             goto  reswitch ;
  104.  
  105.     case M_ANY + U_ON + END_ON :
  106.             if ( s[0] == 0 )  goto refill ;
  107.             if ( ! str_end )  str_end = strchr(s,0) ;
  108.             s = str_end ; m++ ; u_flag = U_OFF ;
  109.             goto reswitch ;
  110.  
  111.     case  M_START + U_OFF + END_OFF :
  112.     case  M_START + U_ON  + END_OFF :
  113.             if ( s != str )  goto  refill ;
  114.             m++ ;  u_flag = U_OFF ;
  115.             goto  reswitch ;
  116.  
  117.     case  M_START + U_OFF + END_ON :
  118.     case  M_START + U_ON  + END_ON :
  119.             if ( s != str || s[0] != 0 )  goto  refill ;
  120.             m++ ; u_flag = U_OFF ;
  121.             goto  reswitch ;
  122.  
  123.     case  M_END + U_OFF  :
  124.             if ( s[0]  != 0 )  goto  refill ;
  125.             m++ ; goto reswitch ;
  126.  
  127.     case  M_END + U_ON :
  128.             s = strchr(s, 0) ;
  129.             m++ ; u_flag = U_OFF ;
  130.             goto reswitch ;
  131.  
  132.     CASE_UANY(M_U) :
  133.             u_flag = U_ON ; m++ ;
  134.             goto reswitch ;
  135.  
  136.     CASE_UANY(M_1J) :
  137.             m += m->data.jump ;
  138.             goto reswitch ;
  139.  
  140.     CASE_UANY(M_2JA) : /* take the non jump branch */
  141.             /* don't stack an ACCEPT */
  142.             if ( (tm = m + m->data.jump)->type == M_ACCEPT ) return 1 ;
  143.             push(tm, s, u_flag) ;
  144.             m++ ;
  145.             goto reswitch ;
  146.  
  147.     CASE_UANY(M_2JB) : /* take the jump branch */
  148.             /* don't stack an ACCEPT */
  149.             if ( (tm = m + 1)->type == M_ACCEPT ) return 1 ;
  150.             push(tm, s, u_flag) ;
  151.             m += m->data.jump ;
  152.             goto reswitch ;
  153.  
  154.     CASE_UANY(M_ACCEPT) :
  155.             return 1 ;
  156.  
  157.     default :
  158.             RE_panic("unexpected case in REtest") ;
  159.   }
  160. }
  161.  
  162.   
  163.  
  164. #ifdef  MAWK
  165.  
  166. char *is_string_split( p, lenp )
  167.   register STATE *p ;
  168.   unsigned *lenp ;
  169. {
  170.   if ( p[0].type == M_STR && p[1].type == M_ACCEPT )
  171.   { *lenp = p->len ;
  172.     return  p->data.str ;
  173.   }
  174.   else   return  (char *) 0 ;
  175. }
  176. #else /* mawk provides its own str_str */
  177.  
  178. char *str_str(target, key, klen)
  179.   register char *target ;
  180.   register char *key ;
  181.   unsigned klen ;
  182. { int c = key[0] ;
  183.  
  184.   switch( klen )
  185.   { case 0 :  return (char *) 0 ;
  186.     case 1 :  return strchr(target, c) ;
  187.     case 2 :  
  188.               while ( target = strchr(target, c) )
  189.                     if ( target[1] == key[1] ) return target ;
  190.                     else target++ ;
  191.               break ;
  192.  
  193.     default :
  194.               klen-- ; key++ ;
  195.               while ( target = strchr(target, c) )
  196.                     if ( memcmp(target+1,key,klen) == 0 ) return target ;
  197.                     else target++ ;
  198.               break ;
  199.   }
  200.   return (char *) 0 ;
  201. }
  202.               
  203.  
  204. #endif  /* MAWK */
  205. @//E*O*F mawk0.97/rexp/rexp2.c//
  206. chmod u=rw,g=r,o=r mawk0.97/rexp/rexp2.c
  207.  
  208. echo x - mawk0.97/rexp/rexp3.c
  209. sed 's/^@//' > "mawk0.97/rexp/rexp3.c" <<'@//E*O*F mawk0.97/rexp/rexp3.c//'
  210.  
  211. /********************************************
  212. rexp3.c
  213. copyright 1991, Michael D. Brennan
  214.  
  215. This is a source file for mawk an implementation of
  216. the Awk programming language as defined in
  217. Aho, Kernighan and Weinberger, The AWK Programming Language,
  218. Addison-Wesley, 1988.
  219.  
  220. See the accompaning file, LIMITATIONS, for restrictions
  221. regarding modification and redistribution of this
  222. program in source or binary form.
  223. ********************************************/
  224.  
  225. /*  rexp3.c   */
  226.  
  227. /*  match a string against a machine   */
  228.  
  229. #include "rexp.h"
  230. #include <string.h>
  231.  
  232.  
  233. /*  check that a bit is on  */
  234. #define  ison(b,x) ( (b)[(x)>>3] & ( 1 << ((x)&7)  ))
  235.  
  236.  
  237. extern RT_STATE *RE_run_stack_base; 
  238. extern RT_STATE *RE_run_stack_limit ;
  239. RT_STATE  *RE_new_run_stack() ;
  240.  
  241.  
  242. #define  push(mx,sx,ssx,ux)   if (++stackp == RE_run_stack_limit)\
  243.                                 stackp = RE_new_run_stack() ;\
  244.                stackp->m=mx;stackp->s=sx;stackp->ss=ssx;stackp->u=ux;
  245.  
  246.  
  247. #define   CASE_UANY(x)  case  x + U_OFF :  case  x + U_ON
  248.  
  249. /* returns start of first longest match and the length by
  250.    reference.  If no match returns NULL and length zero */
  251.  
  252. char *REmatch(str, machine, lenp)
  253.   char *str ;
  254.   VOID   *machine ;
  255.   unsigned *lenp ;
  256. { register STATE *m = (STATE *) machine ;
  257.   register char *s = str ;
  258.   char *ss ;
  259.   register RT_STATE *stackp ;
  260.   int u_flag ;
  261.   char *str_end, *ts ;
  262.  
  263.   /* state of current best match stored here */
  264.   char *cb_ss ;  /* the start */
  265.   char *cb_e  ;  /* the end , pts at first char not matched */
  266.  
  267.   *lenp = 0 ;
  268.  
  269.   /* check for the easy case */
  270.   if ( (m+1)->type == M_ACCEPT && m->type == M_STR )
  271.   { if ( ts = str_str(s, m->data.str, m->len) ) *lenp = m->len ;
  272.     return ts ;
  273.   }
  274.     
  275.   u_flag = U_ON ; cb_ss = ss = str_end = (char *) 0 ;
  276.   stackp = RE_run_stack_base - 1 ;
  277.   goto  reswitch ;
  278.  
  279. refill :
  280.   if ( stackp < RE_run_stack_base )  /* empty stack */
  281.   { if ( cb_ss )  *lenp = cb_e - cb_ss ;
  282.     return cb_ss ;
  283.   }
  284.   ss = stackp->ss ;
  285.   s = stackp-- -> s ;
  286.   if ( cb_ss )  /* does new state start too late ? */
  287.       if ( ss )
  288.       { if ( cb_ss < ss )  goto refill ; }
  289.       else
  290.       if ( cb_ss < s ) goto refill ;
  291.  
  292.   m = (stackp+1)->m ;
  293.   u_flag  = (stackp+1)->u ;
  294.  
  295.  
  296. reswitch  :
  297.  
  298.   switch( m->type + u_flag )
  299.   {
  300.     case M_STR + U_OFF + END_OFF :
  301.             if ( strncmp(s, m->data.str, m->len) ) goto refill ;
  302.         if ( !ss )  
  303.             if ( cb_ss && s > cb_ss ) goto refill ;
  304.         else ss = s ;
  305.             s += m->len ;  m++ ;
  306.             goto reswitch ;
  307.  
  308.     case M_STR + U_OFF + END_ON :
  309.             if ( strcmp(s, m->data.str) ) goto refill ;
  310.         if ( !ss )  
  311.             if ( cb_ss && s > cb_ss ) goto refill ;
  312.         else ss = s ;
  313.             s += m->len ;  m++ ;
  314.             goto reswitch ;
  315.  
  316.     case M_STR + U_ON + END_OFF :
  317.             if ( !(s = str_str(s, m->data.str, m->len)) ) goto refill ;
  318.             push(m, s+1,ss, U_ON) ;
  319.         if ( !ss )  
  320.             if ( cb_ss && s > cb_ss ) goto refill ;
  321.         else ss = s ;
  322.             s += m->len ; m++ ; u_flag = U_OFF ;
  323.             goto reswitch ;
  324.  
  325.     case M_STR + U_ON + END_ON :
  326.             if ( !str_end )  str_end = strchr(s, 0) ;
  327.             ts = str_end - m->len ;
  328.             if (ts < s || memcmp(ts,m->data.str,m->len+1)) goto refill ; 
  329.         if ( !ss )  
  330.         if ( cb_ss && ts > cb_ss )  goto refill ;
  331.         else  ss = ts ;
  332.             s = str_end ; m++ ; u_flag = U_OFF ;
  333.             goto reswitch ;
  334.  
  335.     case M_CLASS + U_OFF + END_OFF :
  336.             if ( !ison(*m->data.bvp, s[0] ) )  goto refill ;
  337.         if ( !ss )
  338.         if ( cb_ss && s > cb_ss )  goto refill ;
  339.         else  ss = s ;
  340.             s++ ; m++ ;
  341.             goto reswitch ;
  342.  
  343.     case M_CLASS + U_OFF + END_ON :
  344.             if ( s[1] || !ison(*m->data.bvp,s[0]) )  goto refill ;
  345.         if ( !ss )
  346.         if ( cb_ss && s > cb_ss )  goto refill ;
  347.         else  ss = s ;
  348.             s++ ; m++ ;
  349.             goto reswitch ;
  350.  
  351.     case M_CLASS + U_ON + END_OFF :
  352.             while ( !ison(*m->data.bvp,s[0]) )
  353.                 if ( s[0] == 0 )  goto refill ;
  354.                 else  s++ ;
  355.  
  356.             s++ ;
  357.             push(m, s, ss, U_ON) ;
  358.         if ( !ss )
  359.         if ( cb_ss && s-1 > cb_ss )  goto refill ;
  360.         else  ss = s-1 ;
  361.             m++ ; u_flag = U_OFF ;
  362.             goto reswitch ;
  363.  
  364.     case M_CLASS + U_ON + END_ON :
  365.             if ( ! str_end )  str_end = strchr(s,0) ;
  366.             if ( ! ison(*m->data.bvp, str_end[-1]) ) goto refill ;
  367.         if ( !ss )
  368.         if ( cb_ss && str_end-1 > cb_ss )  goto refill ;
  369.         else  ss = str_end-1 ;
  370.             s = str_end ; m++ ; u_flag = U_OFF ;
  371.             goto reswitch ;
  372.  
  373.     case M_ANY + U_OFF + END_OFF :
  374.             if ( s[0] == 0 )  goto refill ;
  375.         if ( !ss )
  376.         if ( cb_ss && s > cb_ss )  goto refill ;
  377.         else ss = s ;
  378.             s++ ; m++ ;
  379.             goto  reswitch ;
  380.  
  381.     case M_ANY + U_OFF + END_ON :
  382.             if ( s[0] == 0 || s[1] != 0 )  goto refill ;
  383.         if ( !ss )
  384.         if ( cb_ss && s > cb_ss )  goto refill ;
  385.         else ss = s ;
  386.             s++ ; m++ ;
  387.             goto reswitch ;
  388.  
  389.     case M_ANY + U_ON + END_OFF :
  390.             if ( s[0] == 0 )  goto refill ;
  391.             s++ ; 
  392.             push(m, s, ss, U_ON) ;
  393.         if ( !ss )
  394.         if ( cb_ss && s-1 > cb_ss )  goto refill ;
  395.         else  ss = s-1 ;
  396.             m++ ; u_flag = U_OFF ;
  397.             goto  reswitch ;
  398.  
  399.     case M_ANY + U_ON + END_ON :
  400.             if ( s[0] == 0 )  goto refill ;
  401.             if ( ! str_end )  str_end = strchr(s,0) ;
  402.         if ( !ss )
  403.         if ( cb_ss && str_end-1 > cb_ss )  goto refill ;
  404.         else  ss = str_end - 1 ;
  405.             s = str_end ; m++ ; u_flag = U_OFF ;
  406.             goto reswitch ;
  407.  
  408.     case  M_START + U_OFF + END_OFF :
  409.     case  M_START + U_ON  + END_OFF :
  410.             if ( s != str )  goto  refill ;
  411.         ss = s ;
  412.             m++ ;  u_flag = U_OFF ;
  413.             goto  reswitch ;
  414.  
  415.     case  M_START + U_OFF + END_ON :
  416.     case  M_START + U_ON  + END_ON :
  417.             if ( s != str || s[0] != 0 )  goto  refill ;
  418.         ss = s ;
  419.             m++ ; u_flag = U_OFF ;
  420.             goto  reswitch ;
  421.  
  422.     case  M_END + U_OFF  :
  423.             if ( s[0]  != 0 )  goto  refill ;
  424.         if ( !ss ) 
  425.         if ( cb_ss && s > cb_ss )  goto refill ;
  426.         else  ss = s ;
  427.             m++ ; goto reswitch ;
  428.  
  429.     case  M_END + U_ON :
  430.         s = str_end ? str_end : (str_end =  strchr(s,0)) ;
  431.         if ( !ss ) 
  432.         if ( cb_ss && s > cb_ss )  goto refill ;
  433.         else  ss = s ;
  434.             m++ ; u_flag = U_OFF ;
  435.             goto reswitch ;
  436.  
  437.     CASE_UANY(M_U) :
  438.         if ( !ss ) 
  439.         if ( cb_ss && s > cb_ss )  goto refill ;
  440.         else  ss = s ;
  441.             u_flag = U_ON ; m++ ;
  442.             goto reswitch ;
  443.  
  444.     CASE_UANY(M_1J) :
  445.             m += m->data.jump ;
  446.             goto reswitch ;
  447.  
  448.     CASE_UANY(M_2JA) : /* take the non jump branch */
  449.             push(m+m->data.jump, s, ss, u_flag) ;
  450.             m++ ;
  451.             goto reswitch ;
  452.  
  453.     CASE_UANY(M_2JB) : /* take the jump branch */
  454.             push(m+1, s, ss, u_flag) ;
  455.             m += m->data.jump ;
  456.             goto reswitch ;
  457.  
  458.     case M_ACCEPT + U_OFF :
  459.         if ( !ss )  ss = s ;
  460.         if ( !cb_ss || ss < cb_ss || ss == cb_ss && s > cb_e )
  461.         { /* we have a new current best */
  462.           cb_ss = ss ; cb_e = s ;
  463.         }
  464.         goto  refill ;
  465.  
  466.     case  M_ACCEPT + U_ON :
  467.         if ( !ss )  ss = s ;
  468.         else
  469.         s = str_end ? str_end : (str_end = strchr(s,0)) ;
  470.  
  471.         if ( !cb_ss || ss < cb_ss || ss == cb_ss && s > cb_e )
  472.         { /* we have a new current best */
  473.           cb_ss = ss ; cb_e = s ;
  474.         }
  475.         goto  refill ;
  476.  
  477.     default :
  478.             RE_panic("unexpected case in REmatch") ;
  479.   }
  480. }
  481.  
  482. @//E*O*F mawk0.97/rexp/rexp3.c//
  483. chmod u=rw,g=r,o=r mawk0.97/rexp/rexp3.c
  484.  
  485. echo x - mawk0.97/rexp/rexpdb.c
  486. sed 's/^@//' > "mawk0.97/rexp/rexpdb.c" <<'@//E*O*F mawk0.97/rexp/rexpdb.c//'
  487.  
  488. /********************************************
  489. rexpdb.c
  490. copyright 1991, Michael D. Brennan
  491.  
  492. This is a source file for mawk an implementation of
  493. the Awk programming language as defined in
  494. Aho, Kernighan and Weinberger, The AWK Programming Language,
  495. Addison-Wesley, 1988.
  496.  
  497. See the accompaning file, LIMITATIONS, for restrictions
  498. regarding modification and redistribution of this
  499. program in source or binary form.
  500. ********************************************/
  501.  
  502.  
  503. /* rexpdb.c */
  504.  
  505.  
  506. #include "rexp.h"
  507. #include <ctype.h>
  508.  
  509. /*  print a machine for debugging  */
  510.  
  511. static  char *xlat[] = {
  512. "M_STR"  ,
  513. "M_CLASS" ,
  514. "M_ANY" ,
  515. "M_START" ,
  516. "M_END" ,
  517. "M_U",
  518. "M_1J" ,
  519. "M_2JA" ,
  520. "M_2JB" ,
  521. "M_ACCEPT" } ;
  522.  
  523. void  REmprint(m, f)
  524.   VOID *m ; FILE *f ;
  525. { register STATE *p = (STATE *) m ;
  526.   char *end_on_string ;
  527.  
  528.   while ( 1 )
  529.   { 
  530.     if ( p->type >= END_ON ) 
  531.     { p->type -= END_ON ; end_on_string = "$" ; }
  532.     else end_on_string = "" ;
  533.  
  534.     if ( p->type < 0 || p->type >= END_ON )
  535.     { fprintf(f, "unknown STATE type\n") ; return ; }
  536.  
  537.     fprintf(f, "%-10s" , xlat[p->type]) ;
  538.     switch( p->type )
  539.     {
  540.      case M_STR : fprintf(f, "%s", p->data.str ) ;
  541.                   break ;
  542.  
  543.      case M_1J:
  544.      case M_2JA:  
  545.      case M_2JB : fprintf(f, "%d", p->data.jump) ;
  546.                  break ;
  547.      case M_CLASS:
  548.           { unsigned char *q = (unsigned char *) p->data.bvp ;
  549.             unsigned char *r = q +  sizeof(BV) ;
  550.             while ( q < r )  fprintf(f, "%x " , *q++) ;
  551.           }
  552.           break ;
  553.     }
  554.     fprintf(f, "%s\n" , end_on_string) ;
  555.     if ( end_on_string[0] )  p->type += END_ON ;
  556.     if ( p->type == M_ACCEPT )  return ;
  557.     p++ ;
  558.    }
  559. }
  560.  
  561. @//E*O*F mawk0.97/rexp/rexpdb.c//
  562. chmod u=rw,g=r,o=r mawk0.97/rexp/rexpdb.c
  563.  
  564. echo mkdir - mawk0.97/test
  565. mkdir mawk0.97/test
  566. chmod u=rwx,g=rx,o=rx mawk0.97/test
  567.  
  568. echo x - mawk0.97/test/README
  569. sed 's/^@//' > "mawk0.97/test/README" <<'@//E*O*F mawk0.97/test/README//'
  570.  
  571. Some benchmarks of Mawk and other (new) awks are in the file
  572. benchmarks.
  573.  
  574. Most of the programs are one liners, but a few are interesting
  575. and duplicated in examples directory.
  576.  
  577. To run these tests or others yourself, use the
  578. shell script test.sh
  579.  
  580. ----------------------------------------------------
  581.  
  582. One area mawk needs to improve is array[expr] access when
  583. expr is numeric (see primes and qsort).
  584. Mawk always converts numeric expressions to string for
  585. array access which leads to a lot of redundant conversions.
  586. Better array access will be added for release 1.0.
  587.  
  588. -------------------------------------------
  589.  
  590. run wfrq0.awk or words0.awk to see how much RS as a 
  591. regular expression can speed up some programs
  592.  
  593. @//E*O*F mawk0.97/test/README//
  594. chmod u=r,g=r,o=r mawk0.97/test/README
  595.  
  596. echo x - mawk0.97/test/benchmarks
  597. sed 's/^@//' > "mawk0.97/test/benchmarks" <<'@//E*O*F mawk0.97/test/benchmarks//'
  598. The following are some timing tests of Mawk versus three
  599. other (new) awks.  Times are user + sys in seconds. First
  600. col is mawk time, second col is other awk time and last
  601. col is the ratio.
  602.  
  603.  
  604. Mawk vs.  Awk  on Stardent 3000, SysV 3.0
  605.     cat           4.0    4.8   1.20
  606.     wc            8.1    6.1   0.75
  607.     fields       20.8   26.3   1.26
  608.     reg0          4.7    6.0   1.28
  609.     reg1          5.6    6.0   1.07
  610.     reg2         18.1    6.0   0.33
  611.     loops         6.0   12.6   2.10
  612.     words        18.1   18.4   1.02
  613.     newton *      0.9    1.7   1.89
  614.     concat       14.1   15.0   1.06
  615.     primes *      2.6    3.1   1.19
  616.     squeeze       5.3    2.9   0.55
  617.     qsort         6.8   21.3   3.13
  618.     wfrq          8.9   10.0   1.12
  619.     deps **       3.1    5.2   1.68
  620.                    1.15 #
  621.  
  622. Mawk vs.  Gawk 2.11.1  on Sun3, SunOS 4.0
  623.     cat           6.1    8.1   1.33
  624.     wc           12.6   40.6   3.22
  625.     fields       35.7  117.6   3.29
  626.     reg0          6.7   11.0   1.64
  627.     reg1          8.5   12.6   1.48
  628.     reg2         34.3   55.5   1.62
  629.     loops        40.4  214.6   5.31
  630.     words        31.3  110.8   3.54
  631.     newton        6.7   25.4   3.79
  632.     concat       20.9   65.7   3.14
  633.     primes       38.8   28.3   0.73
  634.     squeeze       2.2    4.6   2.09
  635.     qsort        36.1   42.3   1.17
  636.     wfrq         66.5  199.4   3.00
  637.     deps         16.2   42.9   2.65
  638.                    2.24 #
  639.  
  640. Mawk vs.  Nawk  on  VAX  3600  Ultrix 4.1
  641.     cat           5.7    7.7   1.35
  642.     wc           12.8   12.4   0.97
  643.     fields       34.1   58.9   1.73
  644.     reg0          7.1    8.6   1.21
  645.     reg1          8.9   21.8   2.45
  646.     reg2         36.7   58.4   1.59
  647.     loops        30.5  117.7   3.86
  648.     words        31.0   58.7   1.89
  649.     newton        5.6   11.9   2.12
  650.     concat       21.3   28.9   1.36
  651.     primes       36.3   17.2   0.47
  652.     squeeze       2.2    3.1   1.41
  653.     qsort        39.3   29.5   0.75
  654.     wfrq         76.2  173.9   2.28
  655.     deps         18.1   32.4   1.79
  656.                    1.50 #
  657.  
  658. * newton , primes and loops take no input. 
  659. Newton computed the square roots of 1 to 1000 by Newtons method 
  660. and primes was a sieve for primes < 5000.  Loops was three nested
  661. loops 100 x 50 x 50 with a sum on the inside.
  662.  
  663. ** deps input was *.c on mawk source
  664.  
  665. The other programs read a file of 20000+ C source lines.
  666. The input files were blownup by 4 (80000+) on the Stardent.
  667.  
  668. # geometric mean of col 3 --  (a1 * a2 * ... an ) ^ (1/n) .
  669.  
  670. @//E*O*F mawk0.97/test/benchmarks//
  671. chmod u=r,g=r,o=r mawk0.97/test/benchmarks
  672.  
  673. echo x - mawk0.97/test/cat.awk
  674. sed 's/^@//' > "mawk0.97/test/cat.awk" <<'@//E*O*F mawk0.97/test/cat.awk//'
  675. { print } 
  676. @//E*O*F mawk0.97/test/cat.awk//
  677. chmod u=r,g=r,o=r mawk0.97/test/cat.awk
  678.  
  679. echo x - mawk0.97/test/concat.awk
  680. sed 's/^@//' > "mawk0.97/test/concat.awk" <<'@//E*O*F mawk0.97/test/concat.awk//'
  681.  
  682.  
  683. # test concatenation
  684. #
  685.  
  686. { print $NF  $( (NF+1)/2 )  $1 }
  687. @//E*O*F mawk0.97/test/concat.awk//
  688. chmod u=r,g=r,o=r mawk0.97/test/concat.awk
  689.  
  690. echo x - mawk0.97/test/fields.awk
  691. sed 's/^@//' > "mawk0.97/test/fields.awk" <<'@//E*O*F mawk0.97/test/fields.awk//'
  692.  
  693. # print each field
  694. # one per line
  695. #
  696.  
  697. { for(i=1;i<=NF;i++) print $i}
  698. @//E*O*F mawk0.97/test/fields.awk//
  699. chmod u=r,g=r,o=r mawk0.97/test/fields.awk
  700.  
  701. echo x - mawk0.97/test/loops.awk
  702. sed 's/^@//' > "mawk0.97/test/loops.awk" <<'@//E*O*F mawk0.97/test/loops.awk//'
  703.  
  704. # test looping speed
  705. #
  706.  
  707. BEGIN {
  708.  
  709. for(i=1; i<=100 ; i++)
  710. { 
  711.   j = i ;
  712.   while ( j >= 0 ) 
  713.   {
  714.     k = 0 
  715.     do  
  716.     { sum += k + j + i
  717.       k++
  718.     }
  719.     while ( k <= j )
  720.     j--
  721.   }
  722. }
  723.  
  724. print sum
  725. }
  726. @//E*O*F mawk0.97/test/loops.awk//
  727. chmod u=r,g=r,o=r mawk0.97/test/loops.awk
  728.  
  729. echo x - mawk0.97/test/newton.awk
  730. sed 's/^@//' > "mawk0.97/test/newton.awk" <<'@//E*O*F mawk0.97/test/newton.awk//'
  731.  
  732.  
  733. # compute square root by newton's method
  734. #
  735. function SQRT(x)
  736. { new = x/2
  737.   do  
  738.   { old = new
  739.     new = (old*old+x)/(2*old)
  740.   }
  741.   while ( abs(new-old) > 1e-6 )
  742.  
  743.   return  (new+old)/2
  744. }
  745.  
  746. function abs(x)
  747. { return x>=0?x:-x }
  748.  
  749.   
  750. BEGIN {
  751.   for(i = 1 ; i <= 1000 ; i++) print i, SQRT(i)
  752. }
  753. @//E*O*F mawk0.97/test/newton.awk//
  754. chmod u=r,g=r,o=r mawk0.97/test/newton.awk
  755.  
  756. echo x - mawk0.97/test/primes.awk
  757. sed 's/^@//' > "mawk0.97/test/primes.awk" <<'@//E*O*F mawk0.97/test/primes.awk//'
  758.  
  759. # find all primes 
  760. #  <= ARGV[1]
  761. #
  762. BEGIN {  stop = ARGV[1]
  763.    prime[ p_cnt = 1 ] =  3
  764.  
  765. # keep track of integer part of square root by adding
  766. # odd integers 
  767.    odd = test = 5
  768.    root = 2
  769.    squares = 9
  770.  
  771.    
  772. while ( test <= stop )
  773. {
  774.    if ( test >= squares )
  775.    { root++
  776.      odd += 2
  777.      squares += odd 
  778.    }
  779.  
  780.    flag = 1
  781.    for ( i = 1 ; prime[i] <= root ; i++ )
  782.        if ( test % prime[i] == 0 )  #  not prime
  783.     { flag = 0 ; break }
  784.  
  785.    if ( flag )  prime[ ++p_cnt ] = test
  786.  
  787.    test += 2
  788. }
  789.  
  790. prime[0] = 2
  791.  
  792. for(i = 0 ; i <= p_cnt ; i++ )  print prime[i]
  793.  
  794. }
  795.  
  796.  
  797.      
  798. @//E*O*F mawk0.97/test/primes.awk//
  799. chmod u=r,g=r,o=r mawk0.97/test/primes.awk
  800.  
  801. echo x - mawk0.97/test/qsort.awk
  802. sed 's/^@//' > "mawk0.97/test/qsort.awk" <<'@//E*O*F mawk0.97/test/qsort.awk//'
  803.  
  804.  
  805. # qsort text files
  806. #
  807.  
  808. function middle(x,y,z)  #return middle of 3
  809. {
  810.   if ( x <= y )  
  811.   { if ( z >= y )  return y
  812.     if ( z <  x )  return x
  813.     return z
  814.   }
  815.  
  816.   if ( z >= x )  return x
  817.   if ( z <  y )  return y
  818.   return z
  819. }
  820.  
  821.  
  822. function  isort(A , n,    i, j, hold)
  823. {
  824.   # if needed a sentinal at A[0] will be created
  825.  
  826.   for( i = 2 ; i <= n ; i++)
  827.   {
  828.     hold = A[ j = i ]
  829.     while ( A[j-1] > hold )
  830.     { j-- ; A[j+1] = A[j] }
  831.  
  832.     A[j] = hold
  833.   }
  834. }
  835.  
  836.  
  837. # recursive quicksort
  838. function  qsort(A, left, right    ,i , j, pivot, hold)
  839. {
  840.   
  841.   pivot = middle(A[left], A[int((left+right)/2)], A[right])
  842.  
  843.   i = left
  844.   j = right
  845.  
  846.   while ( i <= j )
  847.   {
  848.     while ( A[i] < pivot )  i++ 
  849.     while ( A[j] > pivot )  j--
  850.  
  851.     if ( i <= j )
  852.     { hold = A[i]
  853.       A[i++] = A[j]
  854.       A[j--] = hold
  855.     }
  856.   }
  857.  
  858.   if ( j - left > BLOCK )  qsort(A,left,j)
  859.   if ( right - i > BLOCK )  qsort(A,i,right)
  860. }
  861.  
  862. BEGIN { BLOCK = 5 }
  863.  
  864.  
  865. { line[NR] = $0 ""   # sort as string
  866. }
  867.  
  868. END  {
  869.  
  870.   if ( NR > BLOCK )  qsort(line, 1, NR)
  871.  
  872.   isort(line, NR)
  873.  
  874.   for(i = 1 ; i <= NR ; i++) print line[i]
  875. }
  876.   
  877.  
  878.  
  879.  
  880.     
  881. @//E*O*F mawk0.97/test/qsort.awk//
  882. chmod u=r,g=r,o=r mawk0.97/test/qsort.awk
  883.  
  884. echo x - mawk0.97/test/reg0.awk
  885. sed 's/^@//' > "mawk0.97/test/reg0.awk" <<'@//E*O*F mawk0.97/test/reg0.awk//'
  886.  
  887. /return/ {cnt++}  END{print cnt}
  888. @//E*O*F mawk0.97/test/reg0.awk//
  889. chmod u=r,g=r,o=r mawk0.97/test/reg0.awk
  890.  
  891. echo x - mawk0.97/test/reg1.awk
  892. sed 's/^@//' > "mawk0.97/test/reg1.awk" <<'@//E*O*F mawk0.97/test/reg1.awk//'
  893.  
  894. /return|switch/ {cnt++}  END{print cnt}
  895. @//E*O*F mawk0.97/test/reg1.awk//
  896. chmod u=r,g=r,o=r mawk0.97/test/reg1.awk
  897.  
  898. echo x - mawk0.97/test/reg2.awk
  899. sed 's/^@//' > "mawk0.97/test/reg2.awk" <<'@//E*O*F mawk0.97/test/reg2.awk//'
  900.  
  901. /[A-Za-z_][A-Za-z0-9_]*\[.*\][ \t]*=/ {cnt++}  END{print cnt}
  902. @//E*O*F mawk0.97/test/reg2.awk//
  903. chmod u=r,g=r,o=r mawk0.97/test/reg2.awk
  904.  
  905. echo x - mawk0.97/test/sample
  906. sed 's/^@//' > "mawk0.97/test/sample" <<'@//E*O*F mawk0.97/test/sample//'
  907. dump  cat.awk  ../TB  mawk gawk awk
  908. out   wc.awk ../TB  mawk gawk awk
  909. dump  fields.awk ../TB mawk gawk awk
  910. out  reg0.awk ../TB mawk gawk awk
  911. out  reg1.awk ../TB mawk gawk awk
  912. out  reg2.awk ../TB mawk gawk awk
  913. out  words0.awk  ../TB  mawk gawk
  914. out  words1.awk  ../TB  mawk
  915. dump newton.awk  /dev/null  mawk  gawk
  916. dump concat.awk  ../TB  mawk gawk awk
  917. dump primes.awk  5000   mawk gawk
  918. dump squeeze.awk  ../parse.y mawk gawk
  919. dump qsort.awk  ../parse.y  mawk  gawk
  920. @//E*O*F mawk0.97/test/sample//
  921. chmod u=r,g=r,o=r mawk0.97/test/sample
  922.  
  923. echo x - mawk0.97/test/squeeze.awk
  924. sed 's/^@//' > "mawk0.97/test/squeeze.awk" <<'@//E*O*F mawk0.97/test/squeeze.awk//'
  925.  
  926. # test gsub
  927. #
  928. # squeeze space to single space
  929.  
  930.  
  931. { gsub( /[ \t]+/, " ") ; print }
  932. @//E*O*F mawk0.97/test/squeeze.awk//
  933. chmod u=r,g=r,o=r mawk0.97/test/squeeze.awk
  934.  
  935. echo x - mawk0.97/test/test.sh
  936. sed 's/^@//' > "mawk0.97/test/test.sh" <<'@//E*O*F mawk0.97/test/test.sh//'
  937. #! /bin/sh
  938.  
  939. ###############
  940. #  shell script for timing mawk and other awks
  941. #
  942. #  reads input file of the form
  943. #  dump_or_not  program_file  input_file  list of awks
  944. #
  945. #  usage:  test.sh < input_file
  946. #
  947.  
  948.  
  949. if [ $# != 0 ]
  950. then
  951.   name=`basename $0`
  952.   echo "usage: $name < input_file"  1>&2
  953.   exit 1
  954. fi
  955.  
  956.  
  957. while  read  direct program file  awk_list
  958. do
  959.  
  960. echo 
  961. echo
  962.  
  963. if [ $direct = dump ]
  964. then
  965. for i in $awk_list
  966. do
  967. echo "$i -f $program $file"
  968. /bin/time $i -f $program $file >/dev/null
  969. done
  970.  
  971. else
  972. for i in $awk_list
  973. do
  974. echo "$i -f $program $file"
  975. /bin/time $i -f $program $file 
  976. done
  977. fi
  978.  
  979. done   2>&1    # send the timing to stdout
  980. @//E*O*F mawk0.97/test/test.sh//
  981. chmod u=rx,g=rx,o=rx mawk0.97/test/test.sh
  982.  
  983. echo x - mawk0.97/test/wc.awk
  984. sed 's/^@//' > "mawk0.97/test/wc.awk" <<'@//E*O*F mawk0.97/test/wc.awk//'
  985.  
  986. {sum += NF}
  987. END{ print NR, sum}
  988. @//E*O*F mawk0.97/test/wc.awk//
  989. chmod u=r,g=r,o=r mawk0.97/test/wc.awk
  990.  
  991. echo x - mawk0.97/test/wfrq.awk
  992. sed 's/^@//' > "mawk0.97/test/wfrq.awk" <<'@//E*O*F mawk0.97/test/wfrq.awk//'
  993.  
  994.  
  995. # wfrq.awk 
  996. # find the twenty most frequent words in a document
  997. # 
  998. # counts words in   array   cnt[ word ]
  999. #
  1000. # uses a heap to select the twenty most frequent
  1001. #
  1002. #
  1003.  
  1004.  
  1005. BEGIN { FS = "[^a-zA-Z]+" ;  BIG = 999999 }
  1006.  
  1007. { for( i = 1 ; i <= NF ; i++ )  cnt[$i]++ }
  1008.  
  1009. END { delete  cnt[ "" ]
  1010.  
  1011. # load twenty values
  1012. # into the heap   word[1..20] and count[1..20]
  1013. #
  1014. #   heap condition --
  1015. #   count[i] <= count[2*i] and count[i] <= count[2*i+1]
  1016.  
  1017. j = 1
  1018.  
  1019. # remove twenty values from cnt[] , put in the heap
  1020.  
  1021. for( i in cnt )
  1022. {
  1023.   word[j] = i  ; count[j] = cnt[i] 
  1024.   delete cnt[i] ;
  1025.   if ( ++j == 21 )  break ;
  1026. }
  1027.  
  1028. # make some sentinals
  1029. # to stop down_heap()
  1030. #
  1031.  
  1032. for( i = j ; i < 43 ; i++ )  count[i] = BIG
  1033.  
  1034. h_empty = j  # save the first empty slot
  1035. # make a heap with the smallest in slot 1
  1036. for( i = h_empty - 1 ; i > 0 ; i-- )  down_heap(i) 
  1037.  
  1038. # examine the rest of the values
  1039. for ( i in cnt )
  1040.   if ( (j = cnt[i]) > count[1] )
  1041.   { # its bigger
  1042.     # take the smallest out of the heap and readjust
  1043.     word[1] = i ; count[1] = j
  1044.     down_heap(1)
  1045.   }
  1046.  
  1047. h_empty-- ;
  1048.  
  1049. # what's left are the twenty largest
  1050. # smallest at the top
  1051. #
  1052.  
  1053. i = 20
  1054. while ( h_empty > 1 )
  1055. {
  1056.   buffer[i--] = sprintf ("%3d %s"  , count[1], word[1])
  1057.   count[1] = count[h_empty] ; word[1] = word[h_empty]
  1058.   count[h_empty] = BIG
  1059.   down_heap(1)
  1060.   h_empty--
  1061. }
  1062.   buffer[i--] = sprintf ("%3d %s"  , count[1], word[1])
  1063.  
  1064.   for(j = 1 ; j <= 20 ; j++ )  print buffer[j]
  1065. }
  1066.  
  1067. # let the i th element drop to its correct position
  1068.  
  1069. function down_heap(i,       k) 
  1070. {
  1071.   while ( 1 )
  1072.   {
  1073.       if ( count[2*i] <= count[2*i+1] )  k = 2*i
  1074.       else  k = 2*i + 1 
  1075.  
  1076.       if ( count[i] <= count[k] )  return
  1077.  
  1078.       hold = word[k] ; word[k] = word[i] ; word[i] = hold
  1079.       hold = count[k] ; count[k] = count[i] ; count[i] = hold
  1080.       i = k
  1081.    }
  1082. }
  1083.  
  1084. @//E*O*F mawk0.97/test/wfrq.awk//
  1085. chmod u=r,g=r,o=r mawk0.97/test/wfrq.awk
  1086.  
  1087. echo x - mawk0.97/test/wfrq0.awk
  1088. sed 's/^@//' > "mawk0.97/test/wfrq0.awk" <<'@//E*O*F mawk0.97/test/wfrq0.awk//'
  1089.  
  1090. #  this program is the same as wfrq.awk except it runs
  1091. #  about twice as fast because it uses RS as a regular 
  1092. #  expression
  1093. #
  1094.  
  1095. function down_heap(i,  k) 
  1096. {
  1097.   while ( 1 )
  1098.   {
  1099.       if ( count[2*i] <= count[2*i+1] )  k = 2*i
  1100.       else  k = 2*i + 1 
  1101.  
  1102.       if ( count[i] <= count[k] )  return
  1103.  
  1104.       hold = word[k] ; word[k] = word[i] ; word[i] = hold
  1105.       hold = count[k] ; count[k] = count[i] ; count[i] = hold
  1106.       i = k
  1107.    }
  1108. }
  1109.  
  1110.  
  1111. BEGIN { RS = "[^a-zA-Z]+" ;  BIG = 999999 }
  1112.  
  1113. { cnt[$0]++ }
  1114.  
  1115. END { delete  cnt[ "" ]
  1116.  
  1117. # load twenty values
  1118. j = 1
  1119. for( i in cnt )
  1120. {
  1121.   word[j] = i  ; count[j] = cnt[i] 
  1122.   delete cnt[i] ;
  1123.   if ( ++j == 21 )  break ;
  1124. }
  1125.  
  1126. # make some sentinals
  1127. for( i = j ; i < 43 ; i++ )  count[i] = BIG
  1128.  
  1129. h_empty = j  # save the first empty slot
  1130. # make a heap with the smallest in slot 1
  1131. for( i = h_empty - 1 ; i > 0 ; i-- )  down_heap(i) 
  1132.  
  1133. # examine the rest of the values
  1134. for ( i in cnt )
  1135.   if ( (j = cnt[i]) > count[1] )
  1136.   { # its bigger
  1137.     # take the smallest out of the heap and readjust
  1138.     word[1] = i ; count[1] = j
  1139.     down_heap(1)
  1140.   }
  1141.  
  1142. h_empty-- ;
  1143.  
  1144. # what's left are the twenty largest
  1145. # smallest at the top
  1146. #
  1147.  
  1148. i = 20
  1149. while ( h_empty > 1 )
  1150. {
  1151.   buffer[i--] = sprintf ("%3d %s"  , count[1], word[1])
  1152.   count[1] = count[h_empty] ; word[1] = word[h_empty]
  1153.   count[h_empty] = BIG
  1154.   down_heap(1)
  1155.   h_empty--
  1156. }
  1157.   buffer[i--] = sprintf ("%3d %s"  , count[1], word[1])
  1158.  
  1159.   for(j = 1 ; j <= 20 ; j++ )  print buffer[j]
  1160. }
  1161. @//E*O*F mawk0.97/test/wfrq0.awk//
  1162. chmod u=r,g=r,o=r mawk0.97/test/wfrq0.awk
  1163.  
  1164. echo x - mawk0.97/test/words.awk
  1165. sed 's/^@//' > "mawk0.97/test/words.awk" <<'@//E*O*F mawk0.97/test/words.awk//'
  1166.  
  1167. # words0.awk
  1168.  
  1169. # find real words
  1170. # i.e contigous letters
  1171.  
  1172. BEGIN { FS = "[^A-Za-z]+" } # split fields on not letters
  1173.  
  1174. {
  1175. # $1 and $NF  might be  empty
  1176.  
  1177.   if ( NF > 0 )
  1178.   {
  1179.     cnt += NF
  1180.  
  1181.     if ( $NF == "" )  cnt--
  1182.     if ( NF > 1 && $1 == "" ) cnt--
  1183.   }
  1184. }
  1185.  
  1186. END { print cnt}
  1187.  
  1188.  
  1189. @//E*O*F mawk0.97/test/words.awk//
  1190. chmod u=r,g=r,o=r mawk0.97/test/words.awk
  1191.  
  1192. echo x - mawk0.97/test/words0.awk
  1193. sed 's/^@//' > "mawk0.97/test/words0.awk" <<'@//E*O*F mawk0.97/test/words0.awk//'
  1194.  
  1195.  
  1196. # use non letters as RS
  1197. #
  1198. #
  1199.  
  1200. BEGIN { RS = "[^A-Za-z][^A-Za-z]*" 
  1201.     getline
  1202.     if ( $0 == "" )  NR = 0
  1203. }
  1204.  
  1205. END { print NR }
  1206. @//E*O*F mawk0.97/test/words0.awk//
  1207. chmod u=r,g=r,o=r mawk0.97/test/words0.awk
  1208.  
  1209. echo mkdir - mawk0.97/examples
  1210. mkdir mawk0.97/examples
  1211. chmod u=rwx,g=rx,o=rx mawk0.97/examples
  1212.  
  1213. echo x - mawk0.97/examples/decl.awk
  1214. sed 's/^@//' > "mawk0.97/examples/decl.awk" <<'@//E*O*F mawk0.97/examples/decl.awk//'
  1215.  
  1216. # parse a C declaration by recursive descent
  1217. # based on a C program in KR ANSI edition
  1218. #
  1219. # run on a C file it finds the declarations
  1220. #
  1221. # restrictions: one declaration per line
  1222. #               doesn't understand struct {...}
  1223. #               makes assumptions about type names
  1224. #
  1225. #
  1226. #  some awks need double escapes on strings used as
  1227. #  regular expressions.  If not run on mawk, use gdecl.awk
  1228.  
  1229.  
  1230. ################################################
  1231. #   lexical scanner -- gobble()
  1232. #   input : string s -- treated as a regular expression
  1233. #   gobble eats SPACE, then eats longest match of s off front
  1234. #   of global variable line.
  1235. #   Cuts the matched part off of line
  1236. #
  1237.  
  1238.  
  1239. function gobble(s,  x)  
  1240. {
  1241.   sub( /^ /, "", line)  # eat SPACE if any
  1242.  
  1243.   # surround s with parenthesis to make sure ^ acts on the
  1244.   # whole thing
  1245.  
  1246.   match(line, "^" "(" s ")")
  1247.   x = substr(line, 1, RLENGTH)
  1248.   line = substr(line, RLENGTH+1)
  1249.   return x 
  1250. }
  1251.  
  1252.  
  1253. function ptr_to(n,  x)  # print "pointer to" , n times
  1254. { n = int(n)
  1255.   if ( n <= 0 )  return ""
  1256.   x = "pointer to" ; n--
  1257.   while ( n-- )  x = x " pointer to"
  1258.   return x
  1259. }
  1260.  
  1261.  
  1262. #recursively get a decl
  1263. # returns an english description of the declaration or
  1264. # "" if not a C declaration.
  1265.  
  1266. function  decl(   x, t, ptr_part)
  1267. {
  1268.  
  1269.   x = gobble("[* ]+")   # get list of *** ...
  1270.   gsub(/ /, "", x)   # remove all SPACES
  1271.   ptr_part = ptr_to( length(x) )
  1272.  
  1273.   # We expect to see either an identifier or '('
  1274.   #
  1275.  
  1276.   if ( gobble("\(") )
  1277.   { 
  1278.     # this is the recursive descent part
  1279.     # we expect to match a declaration and closing ')'
  1280.     # If not return "" to indicate  failure
  1281.  
  1282.       if ( (x = decl()) == "" || gobble( "\)" ) == "" ) return ""
  1283.  
  1284.   }
  1285.   else  #  expecting an identifier
  1286.   {
  1287.     if ( (x = gobble(id)) == "" )  return ""
  1288.     x = x ":"
  1289.   }
  1290.  
  1291.   # finally look for ()
  1292.   # or  [ opt_size ]
  1293.  
  1294.   while ( 1 )
  1295.      if ( gobble( funct_mark ) )  x = x " function returning"
  1296.      else
  1297.      if ( t = gobble( array_mark ) )
  1298.      { gsub(/ /, "", t)
  1299.        x = x " array" t " of"
  1300.      }
  1301.      else  break
  1302.  
  1303.  
  1304.    x = x " "  ptr_part
  1305.    return x
  1306. }
  1307.     
  1308.  
  1309. BEGIN { id = "[_A-Za-z][_A-Za-z0-9]*" 
  1310.         funct_mark = "\([ \t]*\)"
  1311.     array_mark = "\[[ \t]*[_A-Za-z0-9]*[ \t]*\]"
  1312.  
  1313. # I've assumed types are keywords or all CAPS or end in _t
  1314. # Other conventions could be added.
  1315.  
  1316.     type0 = "int|char|short|long|double|float|void" 
  1317.     type1 = "[_A-Z][_A-Z0-9]*"  #  types are CAPS
  1318.     type2 = "[_A-Za-z][_A-Za-z0-9]*_t"  # end in _t
  1319.  
  1320.     types = "(" type0 "|" type1 "|" type2 ")"
  1321. }
  1322.  
  1323.  
  1324. {   
  1325.  
  1326.     gsub( "/\*([^*]|\*[^/])*(\*/|$)" , " ") # remove comments
  1327.     gsub( /[ \t]+/, " ")  # squeeze white space to a single space
  1328.  
  1329.  
  1330.     line = $0
  1331.  
  1332.     scope = gobble( "extern|static" )
  1333.  
  1334.     if ( type = gobble("(struct|union|enum) ") )
  1335.             type = type gobble(id)  #  get the tag
  1336.     else
  1337.     {
  1338.  
  1339.        type = gobble("(un)?signed ") gobble( types )
  1340.  
  1341.     }
  1342.     
  1343.     if ( ! type )  next
  1344.     
  1345.     if ( (x = decl()) && gobble( ";") )
  1346.     {
  1347.       x  =  x " " type
  1348.       if ( scope )  x = x " (" scope ")"
  1349.       gsub( /  +/, " ", x)  # 
  1350.       print x
  1351.     }
  1352.  
  1353. }
  1354.  
  1355.  
  1356.  
  1357.  
  1358. @//E*O*F mawk0.97/examples/decl.awk//
  1359. chmod u=rx,g=rx,o=rx mawk0.97/examples/decl.awk
  1360.  
  1361. echo x - mawk0.97/examples/deps.awk
  1362. sed 's/^@//' > "mawk0.97/examples/deps.awk" <<'@//E*O*F mawk0.97/examples/deps.awk//'
  1363.  
  1364. # find include dependencies in C source
  1365. #
  1366. # mawk -f deps.awk  C_source_files
  1367. #         -- prints a dependency list suitable for make
  1368. #         -- ignores   #include <   >
  1369. #
  1370.  
  1371.  
  1372. BEGIN {  stack_index = 0 # stack[] holds the input files
  1373.  
  1374.   for(i = 1 ; i < ARGC ; i++)
  1375.   { 
  1376.     file = ARGV[i]
  1377.     if ( file !~ /\.c$/ )  continue  # skip it
  1378.     outfile = substr(file, 1, length(file)-2) ".o"
  1379.  
  1380.     # INCLUDED[] stores the set of included files
  1381.     # -- start with the empty set
  1382.     for( j in INCLUDED ) delete INCLUDED[j]
  1383.  
  1384.     while ( 1 )
  1385.     {
  1386.         if ( getline line < file <= 0 )  # no open or EOF
  1387.     { close(file)
  1388.       if ( stack_index == 0 )  break # empty stack
  1389.       else  
  1390.       { file = stack[ stack_index-- ]
  1391.         continue
  1392.       }
  1393.         }
  1394.  
  1395.     if ( line ~ /^#include[ \t]+".*"/ )
  1396.     {
  1397.       split(line, X, "\"")  # filename is in X[2]
  1398.  
  1399.       if ( X[2] in INCLUDED ) # we've already included it
  1400.         continue
  1401.  
  1402.       #push current file 
  1403.       stack[ ++stack_index ] = file
  1404.       INCLUDED[ file = X[2] ] = ""
  1405.         }
  1406.     }  # end of while
  1407.     
  1408.    # test if INCLUDED is empty
  1409.    flag = 0 # on once the front is printed 
  1410.    for( j in INCLUDED )
  1411.       if ( ! flag )  
  1412.       { printf "%s : %s" , outfile, j ; flag = 1 }
  1413.       else  printf " %s" , j
  1414.  
  1415.    if ( flag )  print ""
  1416.  
  1417.   }# end of loop over files in ARGV[i]
  1418.  
  1419. }
  1420. @//E*O*F mawk0.97/examples/deps.awk//
  1421. chmod u=rx,g=rx,o=rx mawk0.97/examples/deps.awk
  1422.  
  1423. echo x - mawk0.97/examples/gdecl.awk
  1424. sed 's/^@//' > "mawk0.97/examples/gdecl.awk" <<'@//E*O*F mawk0.97/examples/gdecl.awk//'
  1425.  
  1426. # parse a C declaration by recursive descent
  1427. # 
  1428. #  decl.awk with extra escapes \
  1429.  
  1430. ################################################
  1431. ############################################
  1432.  
  1433.  
  1434. #   lexical scanner -- gobble()
  1435. #   input : string s -- treated as a regular expression
  1436. #   gobble eats SPACE, then eats longest match of s off front
  1437. #   of global variable line.
  1438. #   Cuts the matched part off of line
  1439. #
  1440.  
  1441.  
  1442. function gobble(s,  x)  
  1443. {
  1444.   sub( /^ /, "", line)  # eat SPACE if any
  1445.  
  1446.   # surround s with parenthesis to make sure ^ acts on the
  1447.   # whole thing
  1448.  
  1449.   match(line, "^" "(" s ")")
  1450.   x = substr(line, 1, RLENGTH)
  1451.   line = substr(line, RLENGTH+1)
  1452.   return x 
  1453. }
  1454.  
  1455.  
  1456. function ptr_to(n,  x)  # print "pointer to" , n times
  1457. { n = int(n)
  1458.   if ( n <= 0 )  return ""
  1459.   x = "pointer to" ; n--
  1460.   while ( n-- )  x = x " pointer to"
  1461.   return x
  1462. }
  1463.  
  1464.  
  1465. #recursively get a decl
  1466. # returns an english description of the declaration or
  1467. # "" if not a C declaration.
  1468.  
  1469. function  decl(   x, t, ptr_part)
  1470. {
  1471.  
  1472.   x = gobble("[* ]+")   # get list of *** ...
  1473.   gsub(/ /, "", x)   # remove all SPACES
  1474.   ptr_part = ptr_to( length(x) )
  1475.  
  1476.   # We expect to see either an identifier or '('
  1477.   #
  1478.  
  1479.   if ( gobble("\\(") )
  1480.   { 
  1481.     # this is the recursive descent part
  1482.     # we expect to match a declaration and closing ')'
  1483.     # If not return "" to indicate  failure
  1484.  
  1485.       if ( (x = decl()) == "" || gobble( "\\)" ) == "" ) return ""
  1486.  
  1487.   }
  1488.   else  #  expecting an identifier
  1489.   {
  1490.     if ( (x = gobble(id)) == "" )  return ""
  1491.     x = x ":"
  1492.   }
  1493.  
  1494.   # finally look for ()
  1495.   # or  [ opt_size ]
  1496.  
  1497.   while ( 1 )
  1498.      if ( gobble( funct_mark ) )  x = x " function returning"
  1499.      else
  1500.      if ( t = gobble( array_mark ) )
  1501.      { gsub(/ /, "", t)
  1502.        x = x " array" t " of"
  1503.      }
  1504.      else  break
  1505.  
  1506.  
  1507.    x = x " "  ptr_part
  1508.    return x
  1509. }
  1510.     
  1511.  
  1512. BEGIN { id = "[_A-Za-z][_A-Za-z0-9]*" 
  1513.         funct_mark = "\\([ \t]*\\)"
  1514.     array_mark = "\\[[ \t]*[_A-Za-z0-9]*[ \t]*\\]"
  1515.  
  1516. # I've assumed types are keywords or all CAPS or end in _t
  1517. # Other conventions could be added.
  1518.  
  1519.     type0 = "int|char|short|long|double|float|void" 
  1520.     type1 = "[_A-Z][_A-Z0-9]*"  #  types are CAPS
  1521.     type2 = "[_A-Za-z][_A-Za-z0-9]*_t"  # end in _t
  1522.  
  1523.     types = "(" type0 "|" type1 "|" type2 ")"
  1524. }
  1525.  
  1526.  
  1527. {   
  1528.  
  1529.     gsub( /\/\*([^*]|\*[^\/])*(\*\/|$)/ , " ") # remove comments
  1530.     gsub( /[ \t]+/, " ")  # squeeze white space to a single space
  1531.  
  1532.  
  1533.     line = $0
  1534.  
  1535.     scope = gobble( "extern|static" )
  1536.  
  1537.     if ( type = gobble("(struct|union|enum) ") )
  1538.             type = type gobble(id)  #  get the tag
  1539.     else
  1540.     {
  1541.  
  1542.        type = gobble("(un)?signed ") gobble( types )
  1543.  
  1544.     }
  1545.     
  1546.     if ( ! type )  next
  1547.     
  1548.     if ( (x = decl()) && gobble( ";") )
  1549.     {
  1550.       x  =  x " " type
  1551.       if ( scope )  x = x " (" scope ")"
  1552.       gsub( /  +/, " ", x)  # 
  1553.       print x
  1554.     }
  1555.  
  1556. }
  1557.  
  1558.  
  1559.  
  1560.  
  1561. @//E*O*F mawk0.97/examples/gdecl.awk//
  1562. chmod u=rx,g=rx,o=rx mawk0.97/examples/gdecl.awk
  1563.  
  1564. echo x - mawk0.97/examples/nocomment.awk
  1565. sed 's/^@//' > "mawk0.97/examples/nocomment.awk" <<'@//E*O*F mawk0.97/examples/nocomment.awk//'
  1566.  
  1567. # remove C comments
  1568. #
  1569.  
  1570. BEGIN {
  1571.  RS = "/\*([^*]|\*[^/])*\*/"
  1572.  ORS = " "
  1573.  getline hold
  1574. }
  1575.  
  1576. { # hold one record because we don't want ORS on the last
  1577.   # record
  1578.  
  1579.   print hold
  1580.   hold = $0
  1581. }
  1582.  
  1583. END { printf "%s", hold }
  1584. @//E*O*F mawk0.97/examples/nocomment.awk//
  1585. chmod u=r,g=r,o=r mawk0.97/examples/nocomment.awk
  1586.  
  1587. echo mkdir - mawk0.97/msdos
  1588. mkdir mawk0.97/msdos
  1589. chmod u=rwx,g=rx,o=rx mawk0.97/msdos
  1590.  
  1591. echo x - mawk0.97/msdos/INSTALL
  1592. sed 's/^@//' > "mawk0.97/msdos/INSTALL" <<'@//E*O*F mawk0.97/msdos/INSTALL//'
  1593.  
  1594. how to make mawk under MsDOS
  1595. ---------------------------
  1596.  
  1597. Read the DOS section in the manual first.
  1598.  
  1599. In addition to a C compiler, you will need an
  1600. assembler and a yacc compatable parser generator.
  1601.  
  1602. Assuming you keep the same directory structure:
  1603.  
  1604. 1)  run  mklib.bat in this directory to create msdos.lib
  1605.  
  1606. 2)  move the makefile and mawk.dep  to ..
  1607.     ( The supplied dos makefile is for Borland's make.  I used to
  1608.       make mawk with MS make -- which make you use is no big deal.)
  1609.  
  1610. 3)  If you want a Unix style command line for mawk, you'll need to
  1611.     write a function called reargv(int *, char ***) which passes
  1612.     mawk the modified argc and argv.  Compile and add to
  1613.     msdos.lib.
  1614.  
  1615.     The supplied reargv.c works with POLYSHELL by Polytron; for a
  1616.     different shell you could use it as an example.
  1617.  
  1618.     If this made sense and all went well, go to machine.h
  1619.     and
  1620.       #define  HAVE_REARGV   1
  1621.  
  1622.     If ! (sense || well ) , don't worry HAVE_REARGV is 0 by
  1623.     default.
  1624.  
  1625. 4)  YACC --
  1626. On the PC I use bison.1.14, it works fine and is easy to find.
  1627. Surely easier to get than mawk.  Unfortunately I cannot distribute
  1628. the generated parse.c file.
  1629.  
  1630.     If you use bison, I suggest #if 0  in parse.c
  1631.     on the part that grows the parser stack.
  1632.     Then you won't need alloca().
  1633.     ( For mawk programs if the parser stack needs to grow, something
  1634.       is fatally wrong.)
  1635.     Also unless you are debugging the grammar, you don't need
  1636.     the tables yyrhs[] or yyprhs[] -- cut them out and save some data
  1637.     space.
  1638.  
  1639. You can make parse.c under unix with bison or another yacc and
  1640. move it to dos.
  1641.  
  1642. 5)  The rand48.asm is hardwired for small model.  I've never made
  1643. a large model mawk, but as far as I can tell I think the only problem
  1644. is in rand48.asm.  The stack machine instructions (INST) assume a
  1645. pointer is a pointer is a pointer, so if you change to far data
  1646. pointers you'll also need to change to far code pointers.
  1647.  
  1648. Rand48 is overkill, you could use another random number generator
  1649. although the one supplied with your compiler is a near 
  1650. certainty to be poor.
  1651.  
  1652. On small model, you have about 40K of free data space which is plenty
  1653. except for programs that hold a medium or larger data file entirely
  1654. in memory.
  1655.  
  1656. ==================================================================
  1657.  
  1658. The reason system() and pipes are missing is I haven't decided
  1659. entirely how to handle the runaway loop problem.  Dos makes
  1660. asynchronous termination of a program difficult, because DOS
  1661. itself might not be able to handle exit().
  1662.  
  1663. Hooking int 0x1a forces me to deal with cleanup and makes ^C
  1664. a pain.  What is the effect of my 0x1a on children? (That's why
  1665. no system() or pipes yet).  What do I have to check after a child
  1666. terminates, children can muck up the state of the parent process.
  1667.  
  1668.  
  1669. I have used mawk as is on DOS for about 6 months, what's missing
  1670. I rarely use  except to emit error messages and I use
  1671. errmsg() for that.  If I stall about fixing this stuff, DOS
  1672. might go away and I'll never have to deal with it.
  1673. @//E*O*F mawk0.97/msdos/INSTALL//
  1674. chmod u=r,g=r,o=r mawk0.97/msdos/INSTALL
  1675.  
  1676. echo x - mawk0.97/msdos/makefile
  1677. sed 's/^@//' > "mawk0.97/msdos/makefile" <<'@//E*O*F mawk0.97/msdos/makefile//'
  1678.  
  1679. #  this is a makefile for mawk 
  1680. #  using Borland's make v3.0
  1681. #  and CFLAGS for TurboC
  1682.  
  1683. @.SWAP
  1684.  
  1685. CFLAGS = -c -ms -f -wnod -wpro -A
  1686. LINKFLAGS = /c/m
  1687.  
  1688. !if $d(DEBUG)
  1689. CFLAGS = $(CFLAGS) -DDEBUG
  1690. LINKFLAGS = $(LINKFLAGS)/v
  1691. !else
  1692. #  optimize
  1693. CFLAGS = $(CFLAGS) -v- -O -DHAVE_REARGV=1
  1694. !endif
  1695.  
  1696.  
  1697. ####################
  1698. #  user tuned macros
  1699. ####################
  1700.  
  1701. # location of your C library
  1702. CLIB=c:\lib
  1703.  
  1704. # if you have a 80x87 coprocessor
  1705. #FLOATLIB=fp87
  1706. # otherwise
  1707. FLOATLIB=emu
  1708.  
  1709. #take this out if you don't need it, i.e.,
  1710. # if you have a reargv()
  1711. WILDARGS=\lib\wildargs.obj  #expand filenames
  1712.  
  1713. #  You'll need a yacc like parser
  1714. YACC = bison -dyv
  1715.  
  1716. ######################  end of tuneable macros
  1717.  
  1718.  
  1719. OBS = parse.obj \
  1720. array.obj \
  1721. bi_funct.obj \
  1722. bi_vars.obj \
  1723. cast.obj \
  1724. code.obj \
  1725. da.obj \
  1726. error.obj \
  1727. execute.obj \
  1728. fcall.obj \
  1729. field.obj \
  1730. files.obj \
  1731. fin.obj \
  1732. hash.obj \
  1733. init.obj \
  1734. jmp.obj \
  1735. kw.obj \
  1736. main.obj \
  1737. matherr.obj \
  1738. memory.obj \
  1739. print.obj \
  1740. re_cmpl.obj \
  1741. scan.obj \
  1742. scancode.obj \
  1743. split.obj \
  1744. zmalloc.obj
  1745.  
  1746. REXP_C = rexp\rexp.c \
  1747. rexp\rexp0.c \
  1748. rexp\rexp1.c \
  1749. rexp\rexp2.c  \
  1750. rexp\rexpdb.c
  1751.  
  1752.  
  1753. LIBS = msdos\msdos.lib \
  1754. rexp\rexp.lib \
  1755. $(CLIB)\$(FLOATLIB) \
  1756. $(CLIB)\maths \
  1757. $(CLIB)\cs
  1758.  
  1759. mawk.exe : $(OBS)  rexp\rexp.lib
  1760.     tlink $(LINKFLAGS) @&&!
  1761.     $(CLIB)\c0s $(WILDARGS) $(OBS)
  1762.     mawk,mawk
  1763.     $(LIBS)
  1764. !
  1765.  
  1766. rexp\rexp.lib : $(REXP_C)
  1767.     cd rexp
  1768.     del *.obj
  1769.     make
  1770.  
  1771. @.c.obj :
  1772.     tcc $(CFLAGS) $*.c 
  1773.  
  1774. parse.c :  parse.y
  1775.     $(YACC)  parse.y
  1776.     rename y_tab.c parse.c
  1777.     rename  y_tab.h parse.h
  1778.  
  1779. scancode.c :  makescan.c  scan.h
  1780.     tcc makescan.c
  1781.     makescan.exe > scancode.c
  1782.     rm makescan.obj  makescan.exe
  1783.  
  1784.  
  1785.  
  1786. # the dependencies of the obj's on h's
  1787. # you can make this with mawk -f deps.awk *.c
  1788.  
  1789. array.o : bi_vars.h sizes.h zmalloc.h memory.h types.h machine.h mawk.h symtype.h
  1790. bi_funct.o : fin.h bi_vars.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h repl.h files.h bi_funct.h mawk.h symtype.h init.h
  1791. bi_vars.o : bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h mawk.h symtype.h init.h
  1792. cast.o : parse.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h repl.h mawk.h symtype.h
  1793. code.o : sizes.h memory.h zmalloc.h types.h machine.h code.h mawk.h init.h
  1794. da.o : sizes.h memory.h zmalloc.h types.h machine.h field.h repl.h code.h bi_funct.h mawk.h symtype.h
  1795. error.o : parse.h bi_vars.h sizes.h types.h machine.h scan.h mawk.h symtype.h
  1796. execute.o : sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h code.h repl.h bi_funct.h mawk.h symtype.h
  1797. fcall.o : sizes.h memory.h zmalloc.h types.h machine.h code.h mawk.h symtype.h
  1798. field.o : parse.h bi_vars.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h scan.h repl.h mawk.h symtype.h init.h
  1799. files.o : fin.h sizes.h memory.h zmalloc.h types.h machine.h files.h mawk.h
  1800. fin.o : parse.h fin.h bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h mawk.h symtype.h
  1801. hash.o : sizes.h memory.h zmalloc.h types.h machine.h mawk.h symtype.h
  1802. init.o : bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h code.h mawk.h symtype.h init.h
  1803. jmp.o : sizes.h memory.h zmalloc.h types.h machine.h code.h jmp.h mawk.h init.h
  1804. kw.o : parse.h sizes.h types.h machine.h mawk.h symtype.h init.h
  1805. main.o : fin.h bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h code.h files.h mawk.h init.h
  1806. makescan.o : parse.h scan.h symtype.h
  1807. matherr.o : sizes.h types.h machine.h mawk.h
  1808. memory.o : sizes.h memory.h zmalloc.h types.h machine.h mawk.h
  1809. parse.o : bi_vars.h sizes.h memory.h zmalloc.h types.h machine.h field.h code.h files.h bi_funct.h mawk.h jmp.h symtype.h
  1810. print.o : bi_vars.h parse.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h files.h bi_funct.h mawk.h symtype.h
  1811. re_cmpl.o : parse.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h scan.h repl.h mawk.h symtype.h
  1812. scan.o : parse.h fin.h sizes.h memory.h zmalloc.h types.h machine.h field.h scan.h repl.h files.h mawk.h symtype.h init.h
  1813. split.o : bi_vars.h parse.h sizes.h memory.h zmalloc.h regexp.h types.h machine.h field.h scan.h bi_funct.h mawk.h symtype.h
  1814. zmalloc.o : sizes.h zmalloc.h types.h machine.h mawk.h
  1815. @//E*O*F mawk0.97/msdos/makefile//
  1816. chmod u=r,g=r,o=r mawk0.97/msdos/makefile
  1817.  
  1818. echo x - mawk0.97/msdos/mklib.bat
  1819. sed 's/^@//' > "mawk0.97/msdos/mklib.bat" <<'@//E*O*F mawk0.97/msdos/mklib.bat//'
  1820.  
  1821. masm /mx /z  rand48.asm ;
  1822. tcc -c -f -O -v-  rand48_0.c
  1823.  
  1824. lib  msdos.lib  -+rand48.obj -+rand48_0.obj  ;
  1825.  
  1826.  
  1827.  
  1828. @//E*O*F mawk0.97/msdos/mklib.bat//
  1829. chmod u=r,g=r,o=r mawk0.97/msdos/mklib.bat
  1830.  
  1831. echo x - mawk0.97/msdos/rand48.asm
  1832. sed 's/^@//' > "mawk0.97/msdos/rand48.asm" <<'@//E*O*F mawk0.97/msdos/rand48.asm//'
  1833.  
  1834. ;**************************************************
  1835. ;  rand.asm
  1836. ;  PC versions of the rand48 family
  1837. ;  1988 Michael D. Brennan
  1838. ;  
  1839. ;
  1840. ;  rand.asm  and rand0.c  are the source files
  1841. ;     for rand.lib  (see also rand48.h)
  1842. ;**************************************************
  1843.  
  1844.  
  1845. public   _srand48, _seed48 , _lcong48
  1846. public     _mrand48, _jrand48 ; uniform on [0,2^32)
  1847. public   _lrand48, _nrand48 ; uniform on [0,2^31)
  1848. public   _urand48, _vrand48 ; uniform on [0,2^16)
  1849.  
  1850. ;  rand.asm
  1851.  
  1852. standard_scale0 = 0e66dh
  1853. standard_scale1 = 0deech
  1854. standard_scale2 = 5h
  1855. standard_shift  = 0bh
  1856.  
  1857. @.model  small
  1858.  
  1859. @.data
  1860. prod   dw   3 dup(?)  ;  build  scale*seed here
  1861. seed   dw   3 dup(?)  ;  default seed storage for drand, lrand etc
  1862. scale  dw   standard_scale0
  1863.        dw   standard_scale1
  1864.        dw   standard_scale2
  1865. shift  dw   standard_shift
  1866. seedbuf    dw    3 dup(?)  ;  place old seed  for seed48()
  1867.  
  1868. @.code
  1869.  
  1870.  
  1871. ;****************************************
  1872. ;  rgen -- the basic linear congruence
  1873. ;  call with  bx->the seed
  1874. ;*************************************
  1875.  
  1876. rgen    proc    near
  1877.      ;   seed <- scale * seed + shift  with overflow
  1878.  
  1879.      ;  first get  scale*seed into prod
  1880.  
  1881.     mov    ax, scale   ;  0,0
  1882.     mul    word ptr [bx]
  1883.     mov    prod, ax
  1884.     mov    cx, dx     ;   save the overflow in cx
  1885.  
  1886.     mov    ax, scale+2    ; 1,0
  1887.     mul    word ptr [bx]
  1888.     add    ax, cx
  1889.     adc    dx, 0
  1890.     mov    prod+2, ax
  1891.     mov    cx, dx
  1892.  
  1893.     mov    ax, scale+4   ;  2,0
  1894.     mul    word ptr [bx]
  1895.     add    ax, cx
  1896.     mov    prod+4, ax
  1897.  
  1898.     mov    ax, scale     ;  0,1
  1899.     mul    word ptr [bx+2]
  1900.     add    ax, prod+2
  1901.     adc    dx, 0
  1902.     mov    prod+2, ax
  1903.     mov    cx, dx
  1904.  
  1905.     mov    ax, scale+2   ;   1,1
  1906.     mul    word ptr [bx+2]
  1907.     add    ax, cx
  1908.     add    prod+4, ax
  1909.  
  1910.     mov    ax, scale   ;  0,2
  1911.     mul    word ptr [bx+4]
  1912.     add     ax, prod+4
  1913.                      ;  move product to seed
  1914.     mov    word ptr [bx+4], ax
  1915.     mov    ax, prod+2
  1916.     mov    word ptr [bx+2], ax
  1917.     mov    ax, prod
  1918.     mov    word ptr [bx], ax
  1919.               ;   add shift to seed
  1920.     mov    ax, shift
  1921.     add    word ptr [bx], ax
  1922.     adc    word ptr [bx+2], 0
  1923.     adc    word ptr [bx+4], 0
  1924.  
  1925.     ret
  1926. rgen    endp
  1927.  
  1928. set_scale    proc   near ;  set scale and shift to standard
  1929.     mov    scale, standard_scale0
  1930.     mov    scale+2, standard_scale1
  1931.     mov    scale+4, standard_scale2
  1932.     mov    shift, standard_shift
  1933.     ret
  1934. set_scale    endp
  1935.  
  1936. ;  void  srand48(long seedval)
  1937.  
  1938. _srand48    proc    near
  1939.     push    bp
  1940.     mov    bp, sp
  1941.     mov    seed, 330eh ;
  1942.     mov    ax, [bp+4]
  1943.     mov    seed+2, ax
  1944.     mov    ax, [bp+6]
  1945.     mov    seed+4, ax
  1946.     call    set_scale
  1947.     pop    bp
  1948.     ret
  1949. _srand48    endp
  1950.  
  1951.  
  1952. ;  short  *seed48( short  newseed[3] )
  1953.  
  1954. _seed48        proc   near
  1955.     push    bp
  1956.     mov    bp, sp
  1957.     push    si
  1958.     push    di
  1959.     push    ds
  1960.     pop    es
  1961.     cld
  1962.     mov    di, offset seedbuf  ;  save old seed
  1963.     mov    si, offset seed
  1964.     mov    cx, 3
  1965.     rep    movsw
  1966.     mov    si, [bp+4]   ;  load the new seed
  1967.     mov    di, offset seed
  1968.     mov    cx, 3
  1969.     rep    movsw
  1970.     call    set_scale
  1971.     mov    ax, offset seedbuf
  1972.     pop    di
  1973.     pop    si
  1974.     pop    bp
  1975.     ret
  1976. _seed48    endp
  1977.  
  1978.  
  1979. ;  long  mrand48()
  1980. ;  long  jrand48(short seed[3])
  1981.  
  1982. _mrand48    proc    near
  1983.     mov    bx, offset seed
  1984.     call    rgen
  1985.     mov    dx, seed+4
  1986.     mov    ax, seed+2
  1987.     ret
  1988. _mrand48    endp
  1989.  
  1990. _jrand48    proc    near
  1991.     push    bp
  1992.     mov    bp, sp
  1993.     mov    bx, [bp+4]
  1994.     call    rgen
  1995.     mov    dx, word ptr [bx+4]
  1996.     mov    ax, word ptr [bx+2]
  1997.     pop    bp
  1998.     ret
  1999. _jrand48    endp
  2000.  
  2001. _nrand48    proc     near
  2002.     push    bp
  2003.     mov    bp, sp
  2004.     mov    bx, [bp+4]
  2005.     call    rgen
  2006.     mov    dx, [bx+4]
  2007.     mov    ax, [bx+2]
  2008.     shr    dx, 1
  2009.     rcr    ax, 1
  2010.     pop    bp
  2011.     ret
  2012. _nrand48    endp
  2013.  
  2014. _lrand48    proc    near
  2015.     mov    bx, offset seed
  2016.     call    rgen
  2017.     mov    dx, seed+4
  2018.     mov    ax, seed+2
  2019.     shr     dx, 1
  2020.     rcr     ax, 1
  2021.     ret
  2022. _lrand48    endp
  2023.  
  2024. _vrand48    proc   near
  2025.     push    bp
  2026.     mov    bp, sp
  2027.     mov    bx, [bp+4]
  2028.     call    rgen
  2029.     mov    ax, [bx+4]
  2030.     pop    bp
  2031.     ret
  2032. _vrand48    endp
  2033.  
  2034. _urand48    proc    near
  2035.     mov    bx, offset seed
  2036.     call    rgen
  2037.     mov    ax, seed+4
  2038.     ret
  2039. _urand48    endp
  2040.  
  2041. _lcong48    proc     near
  2042.     push    bp
  2043.     mov    bp, sp
  2044.     push    si
  2045.     push    di
  2046.     push    ds
  2047.     pop    es
  2048.     cld
  2049.     mov    si, [bp+4]
  2050.     mov    di, offset seed
  2051.     mov    cx, 7
  2052.     rep    movsw
  2053.     pop    di
  2054.     pop    si
  2055.     pop    bp
  2056.     ret
  2057. _lcong48    endp
  2058.  
  2059. end
  2060. @//E*O*F mawk0.97/msdos/rand48.asm//
  2061. chmod u=r,g=r,o=r mawk0.97/msdos/rand48.asm
  2062.  
  2063. echo x - mawk0.97/msdos/rand48.h
  2064. sed 's/^@//' > "mawk0.97/msdos/rand48.h" <<'@//E*O*F mawk0.97/msdos/rand48.h//'
  2065.  
  2066. /*  rand48.h  */
  2067. /*  see Unix drand(3) for expansive discussion */
  2068.  
  2069. double  drand48(void) ;
  2070. double  erand48(unsigned short[3]) ;
  2071.  
  2072. long   mrand48(void) ;
  2073. long   jrand48(unsigned short[3]) ;
  2074. /* uniform on [-2^31, 2^31)  or
  2075.    [0,2^32)  depending on how you interpret the sign bit */
  2076.  
  2077. long  lrand48(void) ;
  2078. long  nrand48(unsigned short[3]) ;
  2079. /* uniform on [0,2^31)
  2080.    lrand48() == mrand48()>>1   */
  2081.  
  2082. unsigned  urand48(void) ;
  2083. unsigned  vrand48(unsigned short[3]) ;
  2084. /*  for 16bit machines uniform on [0,2^16)  */
  2085.  
  2086. /* SEEDING  */
  2087. void  srand48(long seedval) ;
  2088. unsigned short *seed48(unsigned short seedv[3]) ;
  2089. void  lcong(unsigned short[7] ) ;
  2090.  
  2091.  
  2092. void  srand48() ;
  2093. long  mrand48(), jrand48(), lrand48(), nrand48() ;
  2094. unsigned urand48(), vrand48() ;
  2095. double  drand48(), erand48() ;
  2096. @//E*O*F mawk0.97/msdos/rand48.h//
  2097. chmod u=r,g=r,o=r mawk0.97/msdos/rand48.h
  2098.  
  2099. echo x - mawk0.97/msdos/rand48_0.c
  2100. sed 's/^@//' > "mawk0.97/msdos/rand48_0.c" <<'@//E*O*F mawk0.97/msdos/rand48_0.c//'
  2101.  
  2102.  
  2103. /*   rand0.c    */
  2104.  
  2105. unsigned long  mrand48() ;
  2106. unsigned long  jrand48(short [3]) ;
  2107.  
  2108. double  drand48()
  2109. { return  (double) mrand48() / 4294967296.0 ; }
  2110.  
  2111. double  erand48(short x[3])
  2112. { return  (double) jrand48(x) /  4294967296.0 ; }
  2113. @//E*O*F mawk0.97/msdos/rand48_0.c//
  2114. chmod u=r,g=r,o=r mawk0.97/msdos/rand48_0.c
  2115.  
  2116. echo x - mawk0.97/msdos/reargv.c
  2117. sed 's/^@//' > "mawk0.97/msdos/reargv.c" <<'@//E*O*F mawk0.97/msdos/reargv.c//'
  2118.  
  2119. /*  reargv.c
  2120.     --  set arguments via POLYSHELL
  2121.     --  no errors, don't change anything if
  2122.     --  it seems shell is not activated   */
  2123.  
  2124. char *strchr(), *getenv() ;
  2125.  
  2126. static  char *basename(char *s)
  2127. /* strip path and extension , upcase the rest */
  2128. { 
  2129.   register char *p ;
  2130.  
  2131.   for ( p = strchr(s,0) ; p > s ; p-- )
  2132.     switch( p[-1] )
  2133.      { case '\\' :
  2134.        case ':'  :
  2135.        case '/'  :  return p ;
  2136.        case '.'  :  p[-1] = 0 ;  break ;
  2137.        default   :
  2138.         if ( p[-1] >= 'a' && p[-1] <= 'z' )   p[-1] -= 32 ;
  2139.         break ;
  2140.      }
  2141.  
  2142.   return  p ;
  2143. }
  2144.  
  2145. /*---------------------
  2146.   reargv  --  recompute  argc and argv for PolyShell
  2147.     if not under shell do nothing
  2148.  *-------------------------------  */
  2149.  
  2150. extern  char *progname ;
  2151. extern  unsigned char _osmajor ;
  2152.  
  2153. void  reargv(int *argcp , char ***argvp)
  2154. { register char *p ;
  2155.   char **v , *q, *cmdline, **vx ;
  2156.   int cnt, cntx ;
  2157.  
  2158.   if ( _osmajor == 2 )  /* ugh */
  2159.      (*argvp)[0] = progname ;
  2160.   else { (*argvp)[0] = basename( (*argvp)[0] ) ;
  2161.      progname = (*argvp)[0] ; }
  2162.  
  2163.   if ( ! (cmdline = getenv("CMDLINE")) )  return ;
  2164.  
  2165.   if ( *(q = strchr(cmdline,0) - 1) != 0xff )
  2166.       return ;  /*  shexpand set wrong */
  2167.  
  2168.   for ( *q = 0, cnt = 1 , p = cmdline ; p < q ; p++ )
  2169.      if ( *p == 0xff ) { cnt++ ; *p = 0 ; }
  2170.  
  2171.   if ( ! (v = (char **) malloc((cnt+1)*sizeof(char*))) )
  2172.        return ;  /* shouldn't happen */
  2173.  
  2174.   p = cmdline ;
  2175.   vx = v ; cntx = cnt ;
  2176.   while ( cnt )
  2177.    { *v++ = p ;
  2178.      cnt-- ;
  2179.      while ( *p )  p++ ;
  2180.      p++ ;
  2181.    }
  2182.   *v = (char *) 0 ;
  2183.   v = vx ;
  2184.  
  2185.   v[0] = basename( v[0] ) ;
  2186.   if ( strcmp(v[0], (*argvp)[0]) )  return  ;/* running under command
  2187.     and sh earlier  */
  2188.   /* running under PolyShell  */
  2189.   *argcp = cntx ;  *argvp = v ;
  2190.   progname = v[0] ;
  2191. }
  2192. @//E*O*F mawk0.97/msdos/reargv.c//
  2193. chmod u=r,g=r,o=r mawk0.97/msdos/reargv.c
  2194.  
  2195. echo Inspecting for damage in transit...
  2196. temp=/tmp/shar$$; dtemp=/tmp/.shar$$
  2197. trap "rm -f $temp $dtemp; exit" 0 1 2 3 15
  2198. cat > $temp <<\!!!
  2199.      110     194    1897 packing.list
  2200.       21      66     407 README
  2201.       38     203    1246 LIMITATIONS
  2202.       78     450    3560 Makefile
  2203.      639    3453   20668 mawk.manual
  2204.      235    1062    5676 array.c
  2205.      781    2886   17818 bi_funct.c
  2206.       68     279    1720 bi_funct.h
  2207.       87     284    1910 bi_vars.c
  2208.       61     193    1374 bi_vars.h
  2209.      354    1074    7389 cast.c
  2210.      102     361    2538 code.c
  2211.      141     407    3421 code.h
  2212.      386    1119    9666 da.c
  2213.      345    1188    7739 error.c
  2214.      927    3424   26735 execute.c
  2215.      365    1360    9733 fcall.c
  2216.      404    1378    9426 field.c
  2217.       65     199    1432 field.h
  2218.      299    1085    7060 files.c
  2219.       41     132    1006 files.h
  2220.      368    1464    8781 fin.c
  2221.       48     185    1167 fin.h
  2222.      169     622    3566 hash.c
  2223.      202     718    4475 init.c
  2224.       44     160    1143 init.h
  2225.      217     864    5679 jmp.c
  2226.       35     122     876 jmp.h
  2227.       83     270    1572 kw.c
  2228.      160     584    4357 machine.h
  2229.      151     453    3001 main.c
  2230.      107     378    2495 makescan.c
  2231.      106     285    2019 matherr.c
  2232.      142     567    3652 mawk.h
  2233.       95     312    2268 memory.c
  2234.       50     129    1088 memory.h
  2235.     1076    3677   30281 parse.y
  2236.      285    1176    7197 print.c
  2237.      321    1215    7100 re_cmpl.c
  2238.       32     112     793 regexp.h
  2239.       37     128     898 repl.h
  2240.      694    2586   18298 scan.c
  2241.      107     315    2906 scan.h
  2242.       23      36     832 scancode.c
  2243.       56     201    1446 sizes.h
  2244.      174     644    3952 split.c
  2245.      162     633    4106 symtype.h
  2246.      112     344    2840 types.h
  2247.      129     537    3196 zmalloc.c
  2248.       44     118     905 zmalloc.h
  2249.       26      72     446 Makefile
  2250.      186     815    5015 rexp.c
  2251.      153     565    3636 rexp.h
  2252.      423    1718   10188 rexp0.c
  2253.      183     708    3987 rexp1.c
  2254.      282    1139    7507 rexp2.c
  2255.      272    1335    7457 rexp3.c
  2256.       74     252    1649 rexpdb.c
  2257.       23     106     710 README
  2258.       72     343    2430 benchmarks
  2259.        1       3      11 cat.awk
  2260.        6      12      59 concat.awk
  2261.        6      13      69 fields.awk
  2262.       23      49     201 loops.awk
  2263.       22      53     286 newton.awk
  2264.       40     129     564 primes.awk
  2265.       78     234    1076 qsort.awk
  2266.        2       4      34 reg0.awk
  2267.        2       4      41 reg1.awk
  2268.        2       5      63 reg2.awk
  2269.       13      71     461 sample
  2270.        7      19      82 squeeze.awk
  2271.       43     111     621 test.sh
  2272.        3       7      33 wc.awk
  2273.       91     363    1765 wfrq.awk
  2274.       72     297    1433 wfrq0.awk
  2275.       23      64     275 words.awk
  2276.       12      29     127 words0.awk
  2277.      143     546    3030 decl.awk
  2278.       57     241    1284 deps.awk
  2279.      136     493    2776 gdecl.awk
  2280.       18      44     213 nocomment.awk
  2281.       80     522    3002 INSTALL
  2282.      137     553    4067 makefile
  2283.        8      16     107 mklib.bat
  2284.      227     620    3670 rand48.asm
  2285.       31     106     774 rand48.h
  2286.       12      33     231 rand48_0.c
  2287.       74     333    1727 reargv.c
  2288.    13839   51659  344417 total
  2289. !!!
  2290. wc mawk0.97/packing.list mawk0.97/README mawk0.97/LIMITATIONS \
  2291.  mawk0.97/Makefile mawk0.97/mawk.manual mawk0.97/array.c \
  2292.  mawk0.97/bi_funct.c mawk0.97/bi_funct.h mawk0.97/bi_vars.c \
  2293.  mawk0.97/bi_vars.h mawk0.97/cast.c mawk0.97/code.c \
  2294.  mawk0.97/code.h mawk0.97/da.c mawk0.97/error.c mawk0.97/execute.c \
  2295.  mawk0.97/fcall.c mawk0.97/field.c mawk0.97/field.h \
  2296.  mawk0.97/files.c mawk0.97/files.h mawk0.97/fin.c mawk0.97/fin.h \
  2297.  mawk0.97/hash.c mawk0.97/init.c mawk0.97/init.h mawk0.97/jmp.c \
  2298.  mawk0.97/jmp.h mawk0.97/kw.c mawk0.97/machine.h mawk0.97/main.c \
  2299.  mawk0.97/makescan.c mawk0.97/matherr.c mawk0.97/mawk.h \
  2300.  mawk0.97/memory.c mawk0.97/memory.h mawk0.97/parse.y \
  2301.  mawk0.97/print.c mawk0.97/re_cmpl.c mawk0.97/regexp.h \
  2302.  mawk0.97/repl.h mawk0.97/scan.c mawk0.97/scan.h mawk0.97/scancode.c \
  2303.  mawk0.97/sizes.h mawk0.97/split.c mawk0.97/symtype.h \
  2304.  mawk0.97/types.h mawk0.97/zmalloc.c mawk0.97/zmalloc.h \
  2305.  mawk0.97/rexp/Makefile mawk0.97/rexp/rexp.c mawk0.97/rexp/rexp.h \
  2306.  mawk0.97/rexp/rexp0.c mawk0.97/rexp/rexp1.c mawk0.97/rexp/rexp2.c \
  2307.  mawk0.97/rexp/rexp3.c mawk0.97/rexp/rexpdb.c mawk0.97/test/README \
  2308.  mawk0.97/test/benchmarks mawk0.97/test/cat.awk mawk0.97/test/concat.awk \
  2309.  mawk0.97/test/fields.awk mawk0.97/test/loops.awk mawk0.97/test/newton.awk \
  2310.  mawk0.97/test/primes.awk mawk0.97/test/qsort.awk mawk0.97/test/reg0.awk \
  2311.  mawk0.97/test/reg1.awk mawk0.97/test/reg2.awk mawk0.97/test/sample \
  2312.  mawk0.97/test/squeeze.awk mawk0.97/test/test.sh mawk0.97/test/wc.awk \
  2313.  mawk0.97/test/wfrq.awk mawk0.97/test/wfrq0.awk mawk0.97/test/words.awk \
  2314.  mawk0.97/test/words0.awk mawk0.97/examples/decl.awk \
  2315.  mawk0.97/examples/deps.awk mawk0.97/examples/gdecl.awk \
  2316.  mawk0.97/examples/nocomment.awk mawk0.97/msdos/INSTALL \
  2317.  mawk0.97/msdos/makefile mawk0.97/msdos/mklib.bat mawk0.97/msdos/rand48.asm \
  2318.  mawk0.97/msdos/rand48.h mawk0.97/msdos/rand48_0.c mawk0.97/msdos/reargv.c \
  2319.  | sed 's=[^ ]*/==' | diff -b $temp - >$dtemp
  2320. if [ -s $dtemp ]
  2321. then echo "Ouch [diff of wc output]:" ; cat $dtemp
  2322. else echo "No problems found."
  2323. fi
  2324. exit 0
  2325.  
  2326.  
  2327.