## template = class
#buffermode ( "logtalk" )
#prompt ( "Class name:" $classname )
#prompt ( "Metaclasses (comma separated):" $metaclasses )
#prompt ( "Superclasses (comma separated):" $superclasses )
#if ( !$metaclasses )
:- object($classname,
specializes($superclasses)).
#elseif ( !$superclasses )
instantiates($metaclasses)).
#else
instantiates($metaclasses),
#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_object.