home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 11 / AUCD11B.iso / LANGUAGES / WraithSet / AwkStuff / MawkSrc / rexp / c / rexpdb < prev   
Text File  |  1993-07-23  |  2KB  |  86 lines
  1.  
  2. /********************************************
  3. rexpdb.c
  4. copyright 1991, Michael D. Brennan
  5.  
  6. This is a source file for mawk, an implementation of
  7. the AWK programming language.
  8.  
  9. Mawk is distributed without warranty under the terms of
  10. the GNU General Public License, version 2, 1991.
  11. ********************************************/
  12.  
  13.  
  14. /*$Log: rexpdb.c,v $
  15.  * Revision 1.2  1993/07/23  13:21:51  mike
  16.  * cleanup rexp code
  17.  *
  18.  * Revision 1.1.1.1  1993/07/03  18:58:28  mike
  19.  * move source to cvs
  20.  *
  21.  * Revision 3.2  1991/08/13  09:10:09  brennan
  22.  * VERSION .9994
  23.  *
  24.  * Revision 3.1  91/06/07  10:33:30  brennan
  25.  * VERSION 0.995
  26.  * 
  27. */
  28.  
  29.  
  30. #include "rexp.h"
  31. #include <ctype.h>
  32.  
  33. /*  print a machine for debugging  */
  34.  
  35. static  char *xlat[] = {
  36. "M_STR"  ,
  37. "M_CLASS" ,
  38. "M_ANY" ,
  39. "M_START" ,
  40. "M_END" ,
  41. "M_U",
  42. "M_1J" ,
  43. "M_2JA" ,
  44. "M_2JB" ,
  45. "M_ACCEPT" } ;
  46.  
  47. void  REmprint(m, f)
  48.   PTR  m ; 
  49.   FILE *f ;
  50. { register STATE *p = (STATE *) m ;
  51.   char *end_on_string ;
  52.  
  53.   while ( 1 )
  54.   { 
  55.     if ( p->type >= END_ON ) 
  56.     { p->type -= END_ON ; end_on_string = "$" ; }
  57.     else end_on_string = "" ;
  58.  
  59.     if ( p->type < 0 || p->type >= END_ON )
  60.     { fprintf(f, "unknown STATE type\n") ; return ; }
  61.  
  62.     fprintf(f, "%-10s" , xlat[p->type]) ;
  63.     switch( p->type )
  64.     {
  65.      case M_STR : fprintf(f, "%s", p->data.str ) ;
  66.                   break ;
  67.  
  68.      case M_1J:
  69.      case M_2JA:  
  70.      case M_2JB : fprintf(f, "%d", p->data.jump) ;
  71.                  break ;
  72.      case M_CLASS:
  73.           { unsigned char *q = (unsigned char *) p->data.bvp ;
  74.             unsigned char *r = q +  sizeof(BV) ;
  75.             while ( q < r )  fprintf(f, "%x " , *q++) ;
  76.           }
  77.           break ;
  78.     }
  79.     fprintf(f, "%s\n" , end_on_string) ;
  80.     if ( end_on_string[0] )  p->type += END_ON ;
  81.     if ( p->type == M_ACCEPT )  return ;
  82.     p++ ;
  83.    }
  84. }
  85.  
  86.