update(add) packaging directory and spec file from OBSTF:Private, OBS
[external/ragel.git] / test / statechart1.rl
1 /*
2  * @LANG: c
3  */
4
5 /*
6  * Test in and out state actions.
7  */
8
9 #include <stdio.h>
10 #include <string.h>
11
12 struct state_chart
13 {
14         int cs;
15 };
16
17 %%{
18         machine state_chart;
19         variable cs fsm->cs;
20
21         action a { printf("a"); }
22         action b { printf("b"); }
23         action hexa { printf("a"); }
24         action hexb { printf("b"); }
25
26         hex_a = '0x' '0'* '61' @hexa;
27         hex_b = '0x' '0'* '62' @hexb;
28
29         a = 'a' @a | hex_a;
30         b = 'b' @b | hex_b;
31         ws = ' '+;
32
33         mach = 
34                 start: ( 
35                         a -> st1 |
36                         b -> st2 | 
37                         zlen -> final 
38                 ),
39                 st1: ( 
40                         a -> st1 | 
41                         ws -> start |
42                         zlen -> final 
43                 ),
44                 st2: ( 
45                         b -> st2 |
46                         ws -> start |
47                         zlen -> final
48                 );
49         
50         main := ( mach '\n' )*;
51 }%%
52
53 %% write data;
54
55 void state_chart_init( struct state_chart *fsm )
56 {
57         %% write init;
58 }
59
60 void state_chart_execute( struct state_chart *fsm, const char *_data, int _len )
61 {
62         const char *p = _data;
63         const char *pe = _data+_len;
64
65         %% write exec;
66 }
67
68 int state_chart_finish( struct state_chart *fsm )
69 {
70         if ( fsm->cs == state_chart_error )
71                 return -1;
72         if ( fsm->cs >= state_chart_first_final )
73                 return 1;
74         return 0;
75 }
76
77 struct state_chart sc;
78
79 void test( char *buf )
80 {
81         int len = strlen( buf );
82         state_chart_init( &sc );
83         state_chart_execute( &sc, buf, len );
84         state_chart_finish( &sc );
85         printf("\n");
86 }
87
88 int main()
89 {
90         test(
91                 "aa0x0061aa b\n"
92                 "bbb0x62b 0x61 0x000062\n"
93         );
94
95         return 0;
96 }
97
98 #ifdef _____OUTPUT_____
99 aaaaabbbbbbab
100 #endif