1 files changed, 144 insertions, 0 deletions
diff --git a/test/ragel.d/erract5.rl b/test/ragel.d/erract5.rl
new file mode 100644
index 00000000..d9dca844
--- /dev/null
+++ b/test/ragel.d/erract5.rl
@@ -0,0 +1,144 @@
+/*
+ * @LANG: obj-c
+ */
+
+/*
+ * Test error actions.
+ */
+
+#include <stdio.h>
+#include <string.h>
+#include <Foundation/Foundation.h>
+
+@interface ErrAct : NSObject
+{
+@public
+	int cs;
+};
+
+// Initialize the machine. Invokes any init statement blocks. Returns 0
+// if the machine begins in a non-accepting state and 1 if the machine
+// begins in an accepting state.
+- (int) initFsm;
+
+// Execute the machine on a block of data. Returns -1 if after processing
+// the data, the machine is in the error state and can never accept, 0 if
+// the machine is in a non-accepting state and 1 if the machine is in an
+// accepting state.
+- (void) executeWithData:(const char *)data len:(int)len;
+
+// Indicate that there is no more data. Returns -1 if the machine finishes
+// in the error state and does not accept, 0 if the machine finishes
+// in any other non-accepting state and 1 if the machine finishes in an
+// accepting state.
+- (int) finish;
+
+@end
+
+@implementation ErrAct
+
+%%{
+	machine ErrAct;
+
+	action expect_digit_plus_minus { printf(" DIGIT PLUS MINUS\n"); } 
+	action expect_digit { printf(" DIGIT\n"); } 
+	action expect_digit_decimal { printf(" DIGIT DECIMAL\n"); }
+
+	float = (
+		( 
+			[\-+] >!expect_digit_plus_minus %!expect_digit |
+			""
+		)
+		( [0-9] [0-9]* $!expect_digit_decimal )
+		( '.' [0-9]+ $!expect_digit )? 
+	);
+
+	main := float '\n';
+}%%
+
+%% write data;
+
+- (int) initFsm;
+{
+	%% write init;
+	return 1;
+}
+
+- (void) executeWithData:(const char *)_data len:(int)_len;
+{
+	const char *p = _data;
+	const char *pe = _data + _len;
+	const char *eof = pe;
+	%% write exec;
+}
+
+- (int) finish;
+{
+	if ( cs == ErrAct_error )
+		return -1;
+	else if ( cs >= ErrAct_first_final )
+		return 1;
+	return 0;
+}
+
+
+@end
+
+#define BUFSIZE 1024
+
+void test( char *buf )
+{
+	ErrAct *errAct = [[ErrAct alloc] init];
+	[errAct initFsm];
+	[errAct executeWithData:buf len:strlen(buf)];
+	if ( [errAct finish] > 0 )
+		printf("ACCEPT\n");
+	else
+		printf("FAIL\n");
+}
+
+int main()
+{
+	test( "1\n" );
+	test( "+1\n" );
+	test( "-1\n" );
+	test( "1.1\n" );
+	test( "+1.1\n" );
+	test( "-1.1\n" );
+	test( "a\n" );
+	test( "-\n" );
+	test( "+\n" );
+	test( "-a\n" );
+	test( "+b\n" );
+	test( "1.\n" );
+	test( "1d\n" );
+	test( "1.d\n" );
+	test( "1.1d\n" );
+	return 0;
+}
+
+##### OUTPUT #####
+ACCEPT
+ACCEPT
+ACCEPT
+ACCEPT
+ACCEPT
+ACCEPT
+ DIGIT PLUS MINUS
+FAIL
+ DIGIT
+FAIL
+ DIGIT
+FAIL
+ DIGIT
+FAIL
+ DIGIT
+FAIL
+ DIGIT
+FAIL
+ DIGIT DECIMAL
+FAIL
+ DIGIT
+FAIL
+ DIGIT
+FAIL