Logtalk 2.29.4 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1800 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2007-02-19 19:05:42 +00:00
parent 46c8cfbeff
commit bd8cca2bde
42 changed files with 1243 additions and 0 deletions

View File

@@ -0,0 +1,21 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.29.4
Copyright (c) 1998-2007 Paulo Moura. All Rights Reserved.
=================================================================
This folder contains minimal support for using Exuberant Ctags
(http://ctags.sourceforge.net/) with Logtalk. There are two files
that you will need to rename and copy to your home directory:
ctags
Rename this file to "$HOME/.ctags" or append its contents to
the "$HOME/.ctags" file if it already exists
ctags.tmcodebrowser
Rename this file to "$HOME/.ctags.tmcodebrowser" or append its
contents to "$HOME/.ctags.tmcodebrowser" if it already exists
in order to use the MacOS X TextMate text editor and its
TmCodeBrowser plug-in (http://www.cocoabits.com/TmCodeBrowser/)

8
Logtalk/wenv/ctags/ctags Normal file
View File

@@ -0,0 +1,8 @@
--langdef=logtalk
--langmap=logtalk:.lgt
--regex-logtalk=/^[ \t]*:- object\(([a-z][a-zA-Z0-9_]*)/\1/Objects/
--regex-logtalk=/^[ \t]*:- protocol\(([a-z][a-zA-Z0-9_]*)/\1/Protocols/
--regex-logtalk=/^[ \t]*:- category\(([a-z][a-zA-Z0-9_]*)/\1/Categories/
--regex-logtalk=/^[ \t]*:- public\(([a-z][a-zA-Z0-9_]*)/\1/Public predicates/
--regex-logtalk=/^[ \t]*:- protected\(([a-z][a-zA-Z0-9_]*)/\1/Protected predicates/
--regex-logtalk=/^[ \t]*:- private\(([a-z][a-zA-Z0-9_]*)/\1/Private predicates/

View File

@@ -0,0 +1,8 @@
--langdef=logtalk
--langmap=logtalk:.lgt
--regex-logtalk=/^[ \t]*:- object\(([a-z][a-zA-Z0-9_]*)/\1/Objects/
--regex-logtalk=/^[ \t]*:- protocol\(([a-z][a-zA-Z0-9_]*)/\1/Protocols/
--regex-logtalk=/^[ \t]*:- category\(([a-z][a-zA-Z0-9_]*)/\1/Categories/
--regex-logtalk=/^[ \t]*:- public\(([a-z][a-zA-Z0-9_]*)/\1/Public predicates/
--regex-logtalk=/^[ \t]*:- protected\(([a-z][a-zA-Z0-9_]*)/\1/Protected predicates/
--regex-logtalk=/^[ \t]*:- private\(([a-z][a-zA-Z0-9_]*)/\1/Private predicates/

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- category(${1:Category},
implements(${2:Protocol})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_category.
</string>
<key>name</key>
<string> Category with protocol</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A263B8A-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,26 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- category(${1:Category}).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${2:Description}']).
$0
:- end_category.
</string>
<key>name</key>
<string>Category</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A2679C6-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,30 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Class},
implements(${2:Protocol}),
imports(${3:Category}),
instantiates(${4:Metaclass}),
specializes(${5:Superclass})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${6:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Class with all</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A26A112-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,28 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Class},
imports(${2:Category}),
specializes(${3:Superclass})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${4:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Class with category</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A26CCD5-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,28 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Class},
instantiates(${2:Metaclass}),
specializes(${3:Superclass})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${4:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Class with metaclass</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A270068-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,28 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Class},
implements(${2:Protocol}),
specializes(${3:Superclass})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${4:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Class with protocol</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A272A62-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Class},
specializes(${2:Superclass})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string>Class</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A275494-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- protocol(${1:Extended},
extends(${2:Minimal})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_protocol.
</string>
<key>name</key>
<string> Extended protocol</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A277A4C-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,29 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Instance},
implements(${2:Protocol}),
imports(${3:Category}),
instantiates(${4:Class})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${5:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Instance with all</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A27A016-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,28 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Instance},
imports(${2:Category}),
instantiates(${3:Class})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${4:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Instance with category</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A27C6D7-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,28 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Instance},
implements(${2:Protocol}),
instantiates(${3:Class})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${4:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Instance with protocol</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A27EAEC-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Instance},
instantiates(${2:Class})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string>Instance</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A2814B5-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string> :- private(${1:Functor}/0).
:- mode(${1:Functor}, ${2:Solutions}).
:- info(${1:Functor}/0, [
comment is '${3:Description}']).
$0</string>
<key>name</key>
<string> (with no arguments)</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>DBFDEDF5-7F59-11D9-BA7A-000A95DAA580</string>
</dict>
</plist>

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string> :- private(${1:Functor}/${2:Arity}).
:- mode(${1:Functor}(${3:Arguments}), ${4:Solutions}).
:- info(${1:Functor}/${2:Arity}, [
comment is '${5:Description}',
arguments is ['$6'-'$7']]).
$0</string>
<key>name</key>
<string>Private predicate</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A284660-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string> :- protected(${1:Functor}/0).
:- mode(${1:Functor}, ${2:Solutions}).
:- info(${1:Functor}/0, [
comment is '${3:Description}']).
$0</string>
<key>name</key>
<string> (with no arguments)</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>4A25F29C-7F59-11D9-BA7A-000A95DAA580</string>
</dict>
</plist>

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string> :- protected(${1:Functor}/${2:Arity}).
:- mode(${1:Functor}(${3:Arguments}), ${4:Solutions}).
:- info(${1:Functor}/${2:Arity}, [
comment is '${5:Description}',
arguments is ['$6'-'$7']]).
$0</string>
<key>name</key>
<string>Protected predicate</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A286F7E-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,26 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- protocol(${1:Protocol}).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${2:Description}']).
$0
:- end_protocol.
</string>
<key>name</key>
<string>Protocol</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A28B0F6-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,29 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Prototype},
implements(${2:Protocol}),
imports(${3:Category}),
extends(${4:Parent})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${5:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Prototype with all</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A28E048-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Prototype},
imports(${2:Category})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Prototype with category</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A290A27-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Prototype},
extends(${2:Parent})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Prototype with parent</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A292E31-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,27 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Prototype},
implements(${2:Protocol})).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${3:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string> Prototype with protocol</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A29547D-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,26 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string>
:- object(${1:Object}).
:- info([
version is 1.0,
author is '`niutil -readprop / /users/$USER realname`',
date is `date +%Y/%m/%d`,
comment is '${2:Description}']).
$0
:- end_object.
</string>
<key>name</key>
<string>Prototype</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A298BE0-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>

View File

@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string> :- public(${1:Functor}/0).
:- mode(${1:Functor}, ${2:Solutions}).
:- info(${1:Functor}/0, [
comment is '${3:Description}']).
$0</string>
<key>name</key>
<string> (with no arguments)</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>D96B0926-7F56-11D9-BA7A-000A95DAA580</string>
</dict>
</plist>

View File

@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>content</key>
<string> :- public(${1:Functor}/${2:Arity}).
:- mode(${1:Functor}(${3:Arguments}), ${4:Solutions}).
:- info(${1:Functor}/${2:Arity}, [
comment is '${5:Description}',
arguments is ['$6'-'$7']]).
$0</string>
<key>name</key>
<string>Public predicate</string>
<key>scope</key>
<string>source.logtalk</string>
<key>uuid</key>
<string>8A29B12E-73F7-11D9-8083-000D93589AF6</string>
</dict>
</plist>