git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1357 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
		
			
				
	
	
		
			389 lines
		
	
	
		
			5.2 KiB
		
	
	
	
		
			Tcl
		
	
	
	
	
	
			
		
		
	
	
			389 lines
		
	
	
		
			5.2 KiB
		
	
	
	
		
			Tcl
		
	
	
	
	
	
!TCL=6209, Version 1
 | 
						|
!TITLE=Logtalk templates
 | 
						|
!SORT=Y
 | 
						|
 | 
						|
!TEXT=Prototype
 | 
						|
:- object(Object).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!		
 | 
						|
 | 
						|
 | 
						|
!TEXT=Prototype with parent
 | 
						|
:- object(Prototype,
 | 
						|
	extends(Parent)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
!TEXT=Prototype with protocol
 | 
						|
:- object(Prototype,
 | 
						|
	implements(Protocol)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Prototype with category
 | 
						|
:- object(Prototype,
 | 
						|
	imports(Category)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Prototype with all
 | 
						|
:- object(Prototype,
 | 
						|
	implements(Protocol),
 | 
						|
	imports(Category),
 | 
						|
	extends(Parent)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Class
 | 
						|
:- object(Class,
 | 
						|
	specializes(Superclass)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Class with protocol
 | 
						|
:- object(Class,
 | 
						|
	implements(Protocol),
 | 
						|
	specializes(Superclass)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Class with category
 | 
						|
:- object(Class,
 | 
						|
	imports(Category),
 | 
						|
	specializes(Superclass)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Class with metaclass
 | 
						|
:- object(Class,
 | 
						|
	instantiates(Metaclass),
 | 
						|
	specializes(Superclass)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Class with all
 | 
						|
:- object(Class,
 | 
						|
	implements(Protocol),
 | 
						|
	imports(Category),
 | 
						|
	instantiates(Metaclass),
 | 
						|
	specializes(Superclass)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is '${6:Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Instance
 | 
						|
:- object(Instance,
 | 
						|
	instantiates(Class)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Instance with protocol
 | 
						|
:- object(Instance,
 | 
						|
	implements(Protocol),
 | 
						|
	instantiates(Class)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Instance with category
 | 
						|
:- object(Instance,
 | 
						|
	imports(Category),
 | 
						|
	instantiates(Class)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Instance with all
 | 
						|
:- object(Instance,
 | 
						|
	implements(Protocol),
 | 
						|
	imports(Category),
 | 
						|
	instantiates(Class)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_object.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Protocol
 | 
						|
:- protocol(Protocol).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_protocol.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Protocol (extended)
 | 
						|
:- protocol(Extended,
 | 
						|
	extends(Minimal)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_protocol.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Category
 | 
						|
:- category(Category).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_category.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Category with protocol
 | 
						|
:- category(Category,
 | 
						|
	implements(Protocol)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_category.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Category with category
 | 
						|
:- category(Category,
 | 
						|
	imports(Category)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_category.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Category with all
 | 
						|
:- category(Category,
 | 
						|
	implements(Protocol),
 | 
						|
	imports(Category)).
 | 
						|
 | 
						|
	:- info([
 | 
						|
		version is 1.0,
 | 
						|
		author is 'Author',
 | 
						|
		date is Year/Month/Day,
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
\^
 | 
						|
 | 
						|
:- end_category.
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Public predicate
 | 
						|
	:- public(Functor/Arity).
 | 
						|
	:- mode(Functor(Arguments), Solutions).
 | 
						|
	:- info(Functor/Arity, [
 | 
						|
		comment is 'Description',
 | 
						|
		arguments is ['Arg'-'Description']]).
 | 
						|
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Public predicate (with no arguments)
 | 
						|
	:- public(Functor/0).
 | 
						|
	:- mode(Functor, Solutions).
 | 
						|
	:- info(Functor/0, [
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Protected predicate
 | 
						|
	:- protected(Functor/Arity).
 | 
						|
	:- mode(Functor(Arguments), Solutions).
 | 
						|
	:- info(Functor/Arity, [
 | 
						|
		comment is 'Description',
 | 
						|
		arguments is ['Arg'-'Description']]).
 | 
						|
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Protected predicate (with no arguments)
 | 
						|
	:- protected(Functor/0).
 | 
						|
	:- mode(Functor, Solutions).
 | 
						|
	:- info(Functor/0, [
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Private predicate
 | 
						|
	:- private(Functor/Arity).
 | 
						|
	:- mode(Functor(Arguments), Solutions).
 | 
						|
	:- info(Functor/Arity, [
 | 
						|
		comment is 'Description',
 | 
						|
		arguments is ['Arg'-'Description']]).
 | 
						|
 | 
						|
!
 | 
						|
 | 
						|
 | 
						|
!TEXT=Private predicate (with no arguments)
 | 
						|
	:- private(Functor/0).
 | 
						|
	:- mode(Functor, Solutions).
 | 
						|
	:- info(Functor/0, [
 | 
						|
		comment is 'Description']).
 | 
						|
 | 
						|
!
 |