From dae879e94c1e70171ce4bb3ba9717ed961466e46 Mon Sep 17 00:00:00 2001
From: thurston <thurston@052ea7fc-9027-0410-9066-f65837a77df0>
Date: Wed, 4 Apr 2007 21:18:38 +0000
Subject: [PATCH] Declaration of stacks now works.

git-svn-id: http://svn.complang.org/ragel/trunk@165 052ea7fc-9027-0410-9066-f65837a77df0
---
 test/langtrans_ruby.txl | 53 +++++++++++++++++++++++--------------------------
 1 file changed, 25 insertions(+), 28 deletions(-)

diff --git a/test/langtrans_ruby.txl b/test/langtrans_ruby.txl
index 7ab420c..82d6cc3 100644
--- a/test/langtrans_ruby.txl
+++ b/test/langtrans_ruby.txl
@@ -38,7 +38,7 @@ define ruby_term
 	|	[stringlit] [union]
 	|	[id] [repeat ruby_dot_id]
 	|	[SPOFF] [id] [repeat ruby_dot_id] '( [SPON] [ruby_args] ')
-	|	'new [ruby_type_decl] [union]
+	|	[union]
 end define
 
 define ruby_dot_id
@@ -82,60 +82,57 @@ redefine al_host_block
 	|	'{ [NL] [IN] [ruby_statements] [EX] '} [NL]
 end define
 
-function clearUnion Type [ruby_type_decl] Id [id] 
-	replace [opt union]
-		Union [union]
-	import ArrayInits [ruby_statements]
-		Stmts [repeat ruby_lang_stmt]
-	export ArrayInits 
-		Id '= 'new Type Union '; Stmts
-	by
-		'[]
-end function
-
-function initDecl1 Id [id] DeclType [al_type_decl]
-	deconstruct DeclType
-		'bool
+function initDecl1 VarDecl [al_variable_decl]
+	deconstruct VarDecl
+		'bool Id [id] ';
 	replace [repeat ruby_lang_stmt]
 	by
 		Id '= 'false ';
 end function
 
-function initDecl2 Id [id] DeclType [al_type_decl]
-	deconstruct DeclType
-		'char
+function initDecl2 VarDecl [al_variable_decl]
+	deconstruct VarDecl
+		'char Id [id] ';
 	replace [repeat ruby_lang_stmt]
 	by
 		Id '= ''c' ';
 end function
 
-function initDecl3 Id [id] DeclType [al_type_decl]
-	deconstruct DeclType
-		'int
+function initDecl3 VarDecl [al_variable_decl]
+	deconstruct VarDecl
+		'int Id [id] ';
 	replace [repeat ruby_lang_stmt]
 	by
 		Id '= '0 ';
 end function
 
-function initDecl4 Id [id] DeclType [al_type_decl]
-	deconstruct DeclType
-		'ptr
+function initDecl4 VarDecl [al_variable_decl]
+	deconstruct VarDecl
+		'ptr Id [id] ';
 	replace [repeat ruby_lang_stmt]
 	by
 		Id '= '-1 ';
 end function
 
+function initDecl5 VarDecl [al_variable_decl]
+	deconstruct VarDecl
+		'int Id [id] Union [union] ';
+	replace [repeat ruby_lang_stmt]
+	by
+		Id '= '[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] ';
+end function
+
+
 function alStmtToRuby1 AlStmt [action_lang_stmt]
 	deconstruct AlStmt
 		VarDecl [al_variable_decl]
 	deconstruct VarDecl
 		Type [al_type_decl] Id [id] OptUnion [opt union] ';
-	construct RubyType [ruby_type_decl]
-		Type
 	replace [repeat ruby_lang_stmt]
 	by
-		_ [initDecl1 Id Type] [initDecl2 Id Type] 
-			[initDecl3 Id Type] [initDecl4 Id Type] 
+		_ [initDecl1 VarDecl] [initDecl2 VarDecl] 
+			[initDecl3 VarDecl] [initDecl4 VarDecl]
+			[initDecl5 VarDecl]
 end function
 
 function alExprExtendToRuby AlExprExtend [repeat al_expr_extend]
-- 
2.7.4