[Xsb-commits] CVS: XSB/cmplib parse.H, 1.48, 1.49 parse.P, 1.115, 1.116 parse.xwam, 1.105, 1.106

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/cmplib
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv19289

Modified Files:
	parse.H parse.P parse.xwam 
Log Message:
Added a cut I noticed was missing (actually an if-then-else)


Index: parse.H
===================================================================
RCS file: /cvsroot/xsb/XSB/cmplib/parse.H,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -r1.48 -r1.49
--- parse.H	7 Oct 2010 05:16:48 -0000	1.48
+++ parse.H	8 Oct 2010 18:03:42 -0000	1.49
@@ -28,6 +28,7 @@
 	register_xsb_preprocessor/2,
 	unregister_xsb_preprocessor/1,
 	xppdump_is_on/0,
+	xpp_is_off/0,
 	set_xpp_off/0,
 	check_xpp_process_status/2, check_xpp_process_status/3,
 	make_gpp_command/4,

Index: parse.P
===================================================================
RCS file: /cvsroot/xsb/XSB/cmplib/parse.P,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -r1.115 -r1.116
--- parse.P	7 Oct 2010 01:21:40 -0000	1.115
+++ parse.P	8 Oct 2010 18:03:42 -0000	1.116
@@ -241,11 +241,11 @@
 	setup_make_xpp_command_call(File,
 				    XPP_name,XPP_Options,
 				    Make_XPP_Cmd_Call),
-	(xpp_process_file(InPort,XPP_process,OutPort,Make_XPP_Cmd_Call),
-	    stat_set_flag(CURRENT_INPUT, OutPort)
-	; XPP_process = error,
-	    preprocessing_error((File, ': Preprocessor "', XPP_name,
-				 '" failed to execute. Perhaps a syntax error.'))
+	(xpp_process_file(InPort,XPP_process,OutPort,Make_XPP_Cmd_Call)
+	 ->	stat_set_flag(CURRENT_INPUT, OutPort)
+	 ;	XPP_process = error,
+		preprocessing_error((File, ': Preprocessor "', XPP_name,
+				     '" failed to execute. Perhaps a syntax error.'))
 	).
 
 

Index: parse.xwam
===================================================================
RCS file: /cvsroot/xsb/XSB/cmplib/parse.xwam,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -r1.105 -r1.106
Binary files /tmp/cvst7FJZG and /tmp/cvsSEUD3l differ