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

filter t def

Browse Source
This commit is contained in:
Vitor Santos Costa 2017-08-27 22:19:02 +01:00
parent 063806f2f3
commit 2add5f2971
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/lineutils.yap
View File

@ -25,6 +25,7 @@
fields/3, fields/3,
glue/3, glue/3,
copy_line/2, copy_line/2,
filter/1,
filter/3, filter/3,
file_filter/3, file_filter/3,
file_select/2, file_select/2,
@ -49,6 +50,7 @@ available by loading the
*/ */
:- meta_predicate :- meta_predicate
filter(v -2),
filter(+,+,2), filter(+,+,2),
file_filter(+,+,2), file_filter(+,+,2),
file_filter_with_initialization(+,+,2,+,:), file_filter_with_initialization(+,+,2,+,:),
@ -96,7 +98,7 @@ integer(N) -->
"-", !, "-", !,
natural(0, N0), natural(0, N0),
N is -N0. N is -N0.
integer(N) --> vzinteger(N) -->
natural(0, N). natural(0, N).
/** @pred scan_natural(? _Nat_,+ _Line_,+ _RestOfLine_) /** @pred scan_natural(? _Nat_,+ _Line_,+ _RestOfLine_)
@ -413,6 +415,9 @@ filter(StreamInp, StreamOut, Command) :-
fail fail
). ).
filter(G) :-
filter(user_input, user_output, G).
/** @pred process(+ _StreamInp_, + _Goal_) is meta /** @pred process(+ _StreamInp_, + _Goal_) is meta
For every line _LineIn_ in stream _StreamInp_, call For every line _LineIn_ in stream _StreamInp_, call
@ -430,6 +435,7 @@ process(StreamInp, Command) :-
fail fail
). ).
/** /**
* @pred file_filter(+ _FileIn_, + _FileOut_, + _Goal_) is meta * @pred file_filter(+ _FileIn_, + _FileOut_, + _Goal_) is meta
* *