## template = instance #buffermode ( "logtalk" ) #prompt ( "Instance name:" $instancename ) #prompt ( "Classes (comma separated):" $classes ) :- object($instancename, instantiates($classes)). #prompt ( "Version:" $version "1.0" ) #prompt ( "Author name:" $authorname ) #prompt ( "Comment:" $comment ) #today ( $date "yy/MM/dd" ) :- info([ version is $version, author is '$authorname', date is $date, comment is '$comment'). #caret () :- end_object.