File: java1.rl

package info (click to toggle)
ragel 6.8-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 4,760 kB
  • ctags: 5,054
  • sloc: cpp: 46,722; ansic: 5,143; sh: 1,628; makefile: 225; ruby: 189
file content (48 lines) | stat: -rw-r--r-- 722 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
/*
 * @LANG: java
 */

class java1
{
	%%{
		machine java1;

		one := 'one\n';
		two := 'two\n';
		four := 'four\n';

		main := 
			( 'hello' | 'there' | 'friend' ) 
			'\n' @{int s = fentry(one); fgoto *s; char c = fc;}
			( 'one' | 'two' | 'four' ) '\n';
	}%%

	%% write data;

	static void test( char data[] )
	{
		int cs, p = 0, pe = data.length;
		int top;

		%% write init;
		%% write exec;

		if ( cs >= java1_first_final )
			System.out.println( "ACCEPT" );
		else
			System.out.println( "FAIL" );
	}

	public static void main( String args[] )
	{
		test( "hello\none\n".toCharArray() );
		test( "there\ntwo\n".toCharArray() );
		test( "friend\nfour\n".toCharArray() );
	}
}

/* _____OUTPUT_____
ACCEPT
FAIL
FAIL
*/