diff --git a/Logtalk/wenv/jedit/templates/.DS_Store b/Logtalk/wenv/jedit/templates/.DS_Store new file mode 100755 index 000000000..9889145bd Binary files /dev/null and b/Logtalk/wenv/jedit/templates/.DS_Store differ diff --git a/Logtalk/wenv/jedit/templates/category.vm b/Logtalk/wenv/jedit/templates/category.vm new file mode 100644 index 000000000..08cd306d9 --- /dev/null +++ b/Logtalk/wenv/jedit/templates/category.vm @@ -0,0 +1,25 @@ +## template = category +#buffermode ( "logtalk" ) +#prompt ( "Category name:" $categoryname ) +#prompt ( "Implemented protocols (comma separated):" $protocols ) +#if ( $protocols ) +:- category($categoryname, + implements($protocols)). +#else +:- category($categoryname). +#end + +#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_category. diff --git a/Logtalk/wenv/jedit/templates/class.vm b/Logtalk/wenv/jedit/templates/class.vm new file mode 100644 index 000000000..68b2c1049 --- /dev/null +++ b/Logtalk/wenv/jedit/templates/class.vm @@ -0,0 +1,31 @@ +## 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 ) +:- object($classname, + instantiates($metaclasses)). +#else +:- object($classname, + instantiates($metaclasses), + specializes($superclasses)). +#end + +#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. diff --git a/Logtalk/wenv/jedit/templates/dynpredicate.vm b/Logtalk/wenv/jedit/templates/dynpredicate.vm new file mode 100644 index 000000000..cbae6a389 --- /dev/null +++ b/Logtalk/wenv/jedit/templates/dynpredicate.vm @@ -0,0 +1,21 @@ +## template = dynamic predicate +#prompt ( "Scope:" $scope "private" ) +#prompt ( "Functor:" $functor ) +#prompt ( "Arity:" $arity ) +#prompt ( "Comment:" $comment ) + :- $scope($functor/$arity). + :- dynamic($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 + diff --git a/Logtalk/wenv/jedit/templates/instance.vm b/Logtalk/wenv/jedit/templates/instance.vm new file mode 100644 index 000000000..697844e64 --- /dev/null +++ b/Logtalk/wenv/jedit/templates/instance.vm @@ -0,0 +1,21 @@ +## 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. diff --git a/Logtalk/wenv/jedit/templates/predicate.vm b/Logtalk/wenv/jedit/templates/predicate.vm new file mode 100644 index 000000000..a66c4c10f --- /dev/null +++ b/Logtalk/wenv/jedit/templates/predicate.vm @@ -0,0 +1,20 @@ +## 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 + diff --git a/Logtalk/wenv/jedit/templates/prototcol.vm b/Logtalk/wenv/jedit/templates/prototcol.vm new file mode 100644 index 000000000..bee894805 --- /dev/null +++ b/Logtalk/wenv/jedit/templates/prototcol.vm @@ -0,0 +1,25 @@ +## 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 "yy/MM/dd" ) + :- info([ + version is $version, + author is '$authorname', + date is $date, + comment is '$comment'). + + +#caret () + +:- end_protocol. diff --git a/Logtalk/wenv/jedit/templates/prototype.vm b/Logtalk/wenv/jedit/templates/prototype.vm new file mode 100644 index 000000000..0c13d22f6 --- /dev/null +++ b/Logtalk/wenv/jedit/templates/prototype.vm @@ -0,0 +1,23 @@ +## template = prototype +#buffermode ( "logtalk" ) +#prompt ( "Prototype name:" $prototypename ) +#prompt ( "Parents (comma separated):" $parents ) +#if ( $parents ) +:- object($prototypename, + extends($parents)). +#else +:- object($prototypename). +#end + +#prompt ( "Author name:" $authorname ) +#prompt ( "Comment:" $comment ) +#today ( $date "yy/MM/dd" ) + :- info([ + author is '$authorname', + date is $date, + comment is '$comment'). + + +#caret () + +:- end_object.