## template = protocol #buffermode ( "logtalk" ) #prompt ( "Protocol name:" $protocolname ) #prompt ( "Extended protocols (comma separated):" $protocols ) #if ( $protocols ) :- protocol($protocolname, extends($protocols)). #else :- protocol($protocolname). #end #prompt ( "Version:" $version "1.0" ) #prompt ( "Author name:" $authorname ) #prompt ( "Comment:" $comment ) #today ( $date "yyyy/MM/dd" ) :- info([ version is $version, author is '$authorname', date is $date, comment is '$comment']). #caret () :- end_protocol.