bb5f5accd7
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@759 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
21 lines
590 B
Plaintext
21 lines
590 B
Plaintext
## template = predicate
|
|
#prompt ( "Scope:" $scope "public" )
|
|
#prompt ( "Functor:" $functor )
|
|
#prompt ( "Arity:" $arity )
|
|
#prompt ( "Comment:" $comment )
|
|
:- $scope($functor/$arity).
|
|
#prompt ( "Number of solutions:" $solutions "zero_or_one" )
|
|
#if ( $arity == "0" )
|
|
:- mode($functor, $solutions).
|
|
:- info($functor/$arity,
|
|
[comment is '$comment']).
|
|
#else
|
|
#prompt ( "Arguments (comma separated):" $args )
|
|
#prompt ( "Argument names (comma separated):" $argnames )
|
|
:- mode($functor($args), $solutions).
|
|
:- info($functor/$arity, [
|
|
comment is '$comment',
|
|
argnames is [$argnames]]).
|
|
#end
|
|
|