## 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