new 'debug' action

Salvador Abreu
1 parent c19f0d33
Showing 1 changed file with 2 additions and 0 deletions Show diff stats
fzn-parser/fznslurp.pl
@@ -12,6 +12,8 @@ main([]).
 action(load)   :- !, load_ast(AST), g_assign(ast, AST).
 action(dump)   :- !, g_read(ast, AST), dump_ast(AST).
 action(halt)   :- !, halt.
+action(debug)  :- g_read(ast_debug, true), !, g_write(ast_debug, false).
+action(debug)  :- !, g_write(ast_debug, true).
 action(ACTION) :- format("%w: unknown action.\n", [ACTION]).
	@@ -12,6 +12,8 @@ main([]).		@@ -12,6 +12,8 @@ main([]).
12	action(load) :- !, load_ast(AST), g_assign(ast, AST).	12	action(load) :- !, load_ast(AST), g_assign(ast, AST).
13	action(dump) :- !, g_read(ast, AST), dump_ast(AST).	13	action(dump) :- !, g_read(ast, AST), dump_ast(AST).
14	action(halt) :- !, halt.	14	action(halt) :- !, halt.
		15	+action(debug) :- g_read(ast_debug, true), !, g_write(ast_debug, false).
		16	+action(debug) :- !, g_write(ast_debug, true).
15	action(ACTION) :- format("%w: unknown action.\n", [ACTION]).	17	action(ACTION) :- format("%w: unknown action.\n", [ACTION]).
16		18
17		19