summaryrefslogtreecommitdiff
path: root/test/trans.d/case/next2_julia.rl
diff options
context:
space:
mode:
Diffstat (limited to 'test/trans.d/case/next2_julia.rl')
-rw-r--r--test/trans.d/case/next2_julia.rl68
1 files changed, 68 insertions, 0 deletions
diff --git a/test/trans.d/case/next2_julia.rl b/test/trans.d/case/next2_julia.rl
new file mode 100644
index 00000000..43ae242c
--- /dev/null
+++ b/test/trans.d/case/next2_julia.rl
@@ -0,0 +1,68 @@
+//
+// @LANG: julia
+// @GENERATED: true
+//
+
+
+%%{
+ machine next2;
+
+ unused := 'unused';
+
+ one := 'one' @{print( "one\n" );
+target = fentry(main);
+fnext *target;};
+
+ two := 'two' @{print( "two\n" );
+target = fentry(main);
+fnext *target;};
+
+ three := 'three' @{print( "three\n" );
+target = fentry(main);
+fnext *target;};
+
+ main := (
+ '1' @{target = fentry(one);
+fnext *target;last = 1;
+} |
+
+ '2' @{target = fentry(two);
+fnext *target;last = 2;
+} |
+
+ # This one is conditional based on the last.
+ '3' @{if ( last == 2 )
+ target = fentry(three);
+fnext *target;
+end
+last = 3;
+} 'x' |
+
+ '\n'
+ )*;
+}%%
+
+
+
+%% write data;
+
+function m( data::AbstractString )
+ p = 0
+ pe = length(data)
+ eof = length(data)
+ cs = 0
+ buffer = ""
+target = 0;
+last = 0;
+
+ %% write init;
+ %% write exec;
+
+ if ( cs >= next2_first_final )
+ println( "ACCEPT" );
+ else
+ println( "FAIL" );
+ end
+end
+
+ m( "1one3x2two3three\n" );