support split on blank spaces (tab and spaces).

This commit is contained in:
Vítor Santos Costa 2008-12-17 14:46:39 +00:00
parent 14a162dc6a
commit f19db29647

View File

@ -3,6 +3,7 @@
search_for/3,
scan_natural/3,
scan_integer/3,
split/2,
split/3,
glue/3,
copy_line/2,
@ -44,6 +45,9 @@ scan_natural(N0,N) -->
get_natural(N1,N).
scan_natural(N,N) --> [].
split(String, Strings) :-
split_at_blank(" ", Strings, String, []).
split(String, SplitCodes, Strings) :-
split_at_blank(SplitCodes, Strings, String, []).