jEdit templates.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@759 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

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.

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.

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
+

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.

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
+

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.

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.