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

document lineutils

Browse Source
This commit is contained in:
Vitor Santos Costa 2008-09-01 04:44:54 +01:00
parent 6062b1c738
commit 2a53a46d12
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/yap.tex
View File

@ -6801,7 +6801,6 @@ compound terms.
@node Profiling, Call Counting, Global Variables, Top
>>>>>>> 1.222
@section Profiling Prolog Programs
@cindex profiling
@ -11003,7 +11002,6 @@ Print trie @var{Trie} on standard output.
@node Cleanup, Timeout, Tries, Library
>>>>>>> 1.211
@section Call Cleanup
@cindex cleanup

13
library/lineutils.yap
View File

@ -1,14 +1,14 @@
:- module(line_utils,
[search_for/3,
[search_for/2,
search_for/3,
scan_natural/3,
scan_integer/3,
split/3,
glue/3,
copy_line/2,
filter/3,
file_filter/3,
process/2,
copy_line/2,
file_filter/3
]).
:- meta_predicate filter(+,+,:), file_filter(+,+,:), process(+,:).
@ -20,6 +20,8 @@
:- use_module(library(readutil),
[read_line_to_codes/2]).
search_for(C,L) :-
search_for(C, L, []).
search_for(C) --> [C], !.
search_for(C) --> [_],
@ -32,10 +34,13 @@ scan_integer(N) -->
scan_integer(N) -->
scan_natural(0, N).
scan_natural(N) -->
scan_natural(0, N).
scan_natural(N0,N) -->
[C],
{C >= 0'0, C =< 0'9 }, !,
{ N1 is N0*10+(C-0'0) },
{ N1 is N0*10+(C-0'0) }, %'
get_natural(N1,N).
scan_natural(N,N) --> [].