diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

support split on blank spaces (tab and spaces).

Browse Source
This commit is contained in:
Vítor Santos Costa 2008-12-17 14:46:39 +00:00
parent 14a162dc6a
commit f19db29647
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/lineutils.yap
View File

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