home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_07_02 / v7n2096c.txt < prev    next >
Text File  |  1988-12-15  |  4KB  |  188 lines
  1. #include <stdio.h>
  2.  
  3. #include "fsm.h"
  4.  
  5. #define DEBUG 1
  6.  
  7. int state;
  8. int token;
  9. int lex_val;
  10. FILE *infile, *outfile;
  11.  
  12. int count; /* how many spaces have I seen */
  13.  
  14. void report(void)
  15. {
  16. printf("\nState=%d, input=%d char=",state,token);
  17. }
  18.  
  19. /* a nasty kludge to get end of line markers */
  20. void putcr(int c, FILE *stream)
  21. {
  22. switch (c){
  23.   case '\n': putc(0x0d,stream);
  24.              putc(0x0a,stream);
  25.              break;
  26.   case 0x0d: break;
  27.   default:   putc(c,stream);
  28.   }
  29. }
  30.  
  31. int next_token(void)
  32. {
  33. do {
  34.    switch (lex_val=getc(infile)){
  35.      case '-':  return CAP;
  36.      case ' ':  return SPACE;
  37.      case 0x0a: lex_val = '\n';
  38.                 return NL;
  39.      case 0x0d: break; 
  40.         /*avoids 0d 0d 0a output */
  41.      case EOF:  lex_val = 0x1a;
  42.                 return FEND;
  43.      default:   if (toupper(lex_val) == lex_val) return CAP;
  44.                 else return OTHER;
  45.      }
  46.    } while (lex_val == 0x0d);
  47. return FORBID;
  48. }
  49.  
  50.  
  51. void usage(void)
  52. {
  53. printf("\nUSAGE: demo1 infile outfile");
  54. exit();
  55. }
  56.  
  57. void skip(void)
  58. { return; }
  59.  
  60. void echo(void)
  61. {
  62. #ifdef DEBUG
  63. if ((lex_val < ' ') || (lex_val > 'z')) putchar ('.');
  64. else putchar(lex_val);
  65. printf(" %2.2x",lex_val);
  66. #endif
  67. putcr(lex_val,outfile);
  68. count = 0;
  69. }
  70.  
  71. void fault(void)
  72. {
  73. printf("\nInternal error ");
  74. report();
  75. putchar(lex_val);
  76. exit();
  77. }
  78.  
  79. void tally(void)
  80. {
  81. count += 1;
  82. }
  83.  
  84. void markg(void)
  85. {
  86. putcr('\n',outfile);
  87. putc(lex_val,outfile);
  88. count = 0;
  89. }
  90.  
  91. void smarkg(void)
  92. {
  93. putcr('\n',outfile);
  94. while(count--) putc(' ',outfile);
  95. putc(lex_val,outfile);
  96. count = 0;
  97. }
  98.  
  99. void zero(void)
  100. {
  101. count = 0;
  102. }
  103.  
  104.  
  105. void secho(void)
  106. {
  107. putc(' ',outfile);
  108. putcr(lex_val,outfile);
  109.  
  110. #ifdef DEBUG
  111. printf(" %x", lex_val);
  112. #endif
  113.  
  114. count = 0;
  115. }
  116.  
  117. void init_fsm(int argc, char **argv)
  118. { 
  119. if (argc < 3) { 
  120.     usage(); /* exit from there */
  121.     } 
  122. if ((infile = fopen(argv[1],"r"))== NULL){
  123.     printf("Can't open %s",argv[1]);
  124.     exit();
  125.     }
  126. if ((outfile = fopen(argv[2],"w")) == NULL){
  127.     printf("Can't open %s", argv[2]);
  128.     exit();
  129.     }
  130.  
  131. /*initialize counter*/
  132. count = 0;
  133.  
  134. }
  135.  
  136. void fini_fsm(int argc, char **argv)
  137. { 
  138. fclose(infile);
  139. fclose(outfile);
  140. }
  141.  
  142. struct trans s_table[][MAX_ALPH]={
  143.    { /*Start*/
  144.       { /*empty*/  FORBID,  fault},
  145.       { /*CAP   */ SETEXT , echo },
  146.       { /*space */ START  , skip },
  147.       { /*fend  */ END    , skip },
  148.       { /*NL    */ START  , skip },
  149.       { /*other */ SETEXT , echo } },
  150.    { /*setext*/
  151.       { /*empty*/  FORBID,  fault},
  152.       { /*CAP   */ SETEXT , echo },
  153.       { /*space */ SESPC  , skip },
  154.       { /*fend  */ END    , skip },
  155.       { /*NL    */ LNEWG  , echo },
  156.       { /*other */ SETEXT , echo } },
  157.    { /*sespc*/
  158.       { /*empty*/  FORBID,  fault},
  159.       { /*CAP   */ SETEXT , secho},
  160.       { /*space */ SESPC  , skip },
  161.       { /*fend  */ END    , skip },
  162.       { /*NL    */ LNEWG  , echo },
  163.       { /*other */ SETEXT , secho} },
  164.    { /*secode*/
  165.       { /*empty*/  FORBID,  fault},
  166.       { /*CAP   */ SECODE , echo },
  167.       { /*space */ SECODE , echo },
  168.       { /*fend  */ END    , skip },
  169.       { /*NL    */ LNEWG  , echo },
  170.       { /*other */ SECODE , echo } },
  171.    { /*lnewg*/
  172.       { /*empty*/  FORBID,  fault},
  173.       { /*CAP   */ SETEXT , echo },
  174.       { /*space */ NGMARK , tally},
  175.       { /*fend  */ END    , skip },
  176.       { /*NL    */ NGMARK , zero },
  177.       { /*other */ SETEXT , echo } },
  178.    { /*ngmark*/
  179.       { /*empty*/  FORBID,  fault},
  180.       { /*CAP   */ SETEXT , markg},
  181.       { /*space */ NGMARK , tally},
  182.       { /*fend  */ END    , skip },
  183.       { /*NL    */ NGMARK , zero },
  184.       { /*other */ SECODE , smarkg} }
  185.  
  186.    };
  187.  
  188.