|
Revision 4572, 1.1 KB
(checked in by pmoura, 2 weeks ago)
|
|
Updated the Logtalk version number to 2.33.3 in preparation for the next release.
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
| Line | |
|---|
| 1 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|---|
| 2 | % |
|---|
| 3 | % Logtalk - Open source object-oriented logic programming language |
|---|
| 4 | % Release 2.33.3 |
|---|
| 5 | % |
|---|
| 6 | % Copyright (c) 1998-2008 Paulo Moura. All Rights Reserved. |
|---|
| 7 | % Logtalk is free software. You can redistribute it and/or modify |
|---|
| 8 | % it under the terms of the "Artistic License 2.0" as published by |
|---|
| 9 | % The Perl Foundation. Consult the "LICENSE.txt" file for details. |
|---|
| 10 | % |
|---|
| 11 | % |
|---|
| 12 | % integration code for XPCE 6.6.21 and later versions supporting Logtalk |
|---|
| 13 | % message sending goals as call-backs goals by using the syntax: |
|---|
| 14 | % |
|---|
| 15 | % logtalk(Object, MessageFunctor, MessageArg1, MessageArg2, ...) |
|---|
| 16 | % |
|---|
| 17 | % as an alternative to XPCE's message(...) call-backs |
|---|
| 18 | % |
|---|
| 19 | % last updated: October 20, 2006 |
|---|
| 20 | % |
|---|
| 21 | %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | |
|---|
| 25 | :- use_module(library(pce)). |
|---|
| 26 | |
|---|
| 27 | |
|---|
| 28 | :- pce_begin_class(logtalk, message). |
|---|
| 29 | |
|---|
| 30 | initialise(Msg, Obj:prolog, Functor:prolog, Args:unchecked ...) :-> |
|---|
| 31 | Pred =.. [Functor| Args], |
|---|
| 32 | SuperMsg =.. [initialise, @prolog, call, prolog(Obj::Pred)], |
|---|
| 33 | send_super(Msg, SuperMsg). |
|---|
| 34 | |
|---|
| 35 | :- pce_end_class. |
|---|
