[Xsb-commits] CVS: XSB/packages/xmc reader.P,1.1,1.2

[Michael K. <ki...@us...>]

Update of /cvsroot/xsb/XSB/packages/xmc
In directory usw-pr-cvs1:/tmp/cvs-serv23617/packages/xmc

Modified Files:
	reader.P 
Log Message:
added str_match.
Changed offsets in str_sub to start from 0


Index: reader.P
===================================================================
RCS file: /cvsroot/xsb/XSB/packages/xmc/reader.P,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- reader.P	2001/05/25 19:11:43	1.1
+++ reader.P	2001/06/29 22:54:11	1.2
@@ -102,12 +102,12 @@
 %---------------------------------------------------------
 
 prefix(Sub, Str) :- init_whitespaces(Str, W),
-		    N is W + 1, str_sub(Sub, Str, N).
+		    str_sub(Sub, Str, W).
 
 suffix(Sub, Str) :- end_whitespaces(Str, W),
 		    str_length(Str, LStr),
 		    str_length(Sub, LSub),
-		    N is LStr - W - LSub + 1,
+		    N is LStr - W - LSub,
 		    str_sub(Sub, Str, N).
 
 %---------------------------------------------------------
@@ -171,4 +171,4 @@
 tabled_declaration :-
 	read(PredList), assert_tabled(PredList).
 
-*/
\ No newline at end of file
+*/