test/stateact1.rl

   1 /*
   2  * @LANG: indep
   3  *
   4  * Test in and out state actions.
   5  */
   6 %%
   7 %%{
   8         machine state_act;
   9
  10         action a1 { prints "a1\n"; }
  11         action a2 { prints "a2\n"; }
  12         action b1 { prints "b1\n"; }
  13         action b2 { prints "b2\n"; }
  14         action c1 { prints "c1\n"; }
  15         action c2 { prints "c2\n"; }
  16         action next_again {fnext again;}
  17
  18         hi = 'hi';
  19         line = again:
  20                         hi
  21                                 >to b1
  22                                 >from b2
  23                         '\n'
  24                                 >to c1
  25                                 >from c2
  26                                 @next_again;
  27
  28         main := line*
  29                         >to a1
  30                         >from a2;
  31 }%%
  32
  33 /* _____INPUT_____
  34 "hi\nhi\n"
  35 _____INPUT_____ */
  36
  37 /* _____OUTPUT_____
  38 a2
  39 b2
  40 c1
  41 c2
  42 b1
  43 b2
  44 c1
  45 c2
  46 b1
  47 FAIL
  48 _____OUTPUT_____ */