"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/host-ocaml/rlhc-ocaml.lm" between
ragel-7.0.0.11.tar.gz and ragel-7.0.0.12.tar.gz

About: Ragel compiles executable finite state machines from regular languages (C, C++, Obj-C, C#, D, Java, Go and Ruby). Development version.

rlhc-ocaml.lm  (ragel-7.0.0.11)	:	rlhc-ocaml.lm  (ragel-7.0.0.12)
skipping to change at line 143		skipping to change at line 143
send Parser		send Parser
"[I].( [ expr( Expr ) ] )"		"[I].( [ expr( Expr ) ] )"
}		}
else {		else {
send Parser		send Parser
"[I].\[[ expr( Expr ) ]\]"		"[I].\[[ expr( Expr ) ]\]"
}		}
}		}
case [T: `TRUE]		case [T: `TRUE]
{		{
T.data = '1'		T.data = 'true'
send Parser [T]		send Parser [T]
}		}
case [F: `FALSE]		case [F: `FALSE]
{		{
F.data = '0'		F.data = 'false'
send Parser [F]		send Parser [F]
}		}
case [N: `nil]		case [N: `nil]
{		{
N.data = '0'		N.data = '0'
send Parser [N]		send Parser [N]
}		}
case [Number: number]		case [Number: number]
{		{
number( Number )		number( Number )
skipping to change at line 517		skipping to change at line 517
{		{
send Parser		send Parser
"| _ ->		"| _ ->
"[stmt_list( Stmt.default_block._repeat_stmt )]		"[stmt_list( Stmt.default_block._repeat_stmt )]
}		}
case [case_label]		case [case_label]
{		{
send Parser		send Parser
"case [expr( Stmt.case_label.expr )]:		"case [expr( Stmt.case_label.expr )]:
}		}
case [label_stmt]
{
send Parser
"[Stmt.label_stmt.ident]:
"[stmt_list( Stmt.label_stmt._repeat_stmt )]
}
case [entry_loop]
{
send Parser
[stmt_list( Stmt.entry_loop._repeat_stmt )]
}
case [AS: assign_stmt]		case [AS: assign_stmt]
{		{
switch AS.assign_op		switch AS.assign_op
case [`=]		case [`=]
{		{
switch AS.LValue		switch AS.LValue
case "stack\[[expr]\]" {		case "stack\[[expr]\]" {
send Parser "Array.set stack top.contents [expr(AS.expr)];"		send Parser "Array.set stack top.contents [expr(AS.expr)];"
}		}
default {		default {
End of changes. 3 change blocks.
13 lines changed or deleted		2 lines changed or added

---