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