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

include new apply_macros code from Erick Alphonse

Browse Source 
Acknowledge J. Schimpf


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@542 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-06-18 04:08:01 +00:00
parent 944d2e8aed
commit 06cd483055
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
docs/yap.tex
View File

@ -6486,13 +6486,14 @@ Library, Extensions, Builtins, Top
@section Apply Macros @section Apply Macros
@cindex macros @cindex macros
This library provides a set of utilities to apply a predicate to all This library provides a set of utilities for applying a predicate to
elements of a list or to all sub-terms of a term. They allow one to all elements of a list or to all sub-terms of a term. They allow to
easily perform the most common do-loop constructs in Prolog. To avoid easily perform the most common do-loop constructs in Prolog. To avoid
performance degradation due to @code{apply/2}, each call creates an performance degradation due to apply/2, each call creates an
equivalent Prolog program, without meta-calls, which is executed by the equivalent Prolog program, without meta-calls, which is executed by
Prolog engine instead. Note that if the equivalent Prolog program the Prolog engine instead. Note that if the equivalent Prolog program
already exists, it will be simply used. already exists, it will be simply used. The library is based on code
by Joachim Schimpf.
The following routines are available once included with the The following routines are available once included with the
@code{use_module(library(apply_macros))} command. @code{use_module(library(apply_macros))} command.

7
library/apply_macros.yap
View File

@ -1,3 +1,9 @@
% File : apply_macros.yap
% Author : E. Alphonse from code by Joachim Schimpf
% Updated: 15 June 2002
% Purpose: Macros to apply a predicate to all elements
% of a list or to all sub-terms of a term.
:- module(apply_macros, []). :- module(apply_macros, []).
:- multifile user:goal_expansion/3. :- multifile user:goal_expansion/3.
@ -258,4 +264,3 @@ aux_args([Arg|Args], MVars, [Arg|PArgs], PVars, [Arg|ProtoArgs]) :-
pred_name(Macro, Proto, Name) :- pred_name(Macro, Proto, Name) :-
format_to_chars("'~a(~w)'.",[Macro, Proto], Chars), format_to_chars("'~a(~w)'.",[Macro, Proto], Chars),
read_from_chars(Chars, Name). read_from_chars(Chars, Name).