Changeset 4472 for trunk/compiler

Timestamp:

09/22/08 12:13:54 (4 months ago)

Author:

pmoura

Message:

Added a syntax construct for easy access to parametric object proxies represented as Prolog facts when sending a message ({Proxy}::Message). Updated the "proxies" example to illustrate this new functionality.

Files:

• trunk/compiler/logtalk.pl (modified) (2 diffs)

trunk/compiler/logtalk.pl

@@ -2947 +2947 @@
     throw(error(instantiation_error, Obj::Pred, Sender)).
 
+'$lgt_send_to_object'({Proxy}, Pred, Sender) :-
+    !,
+    call(Proxy),
+    '$lgt_send_to_object_nv'(Proxy, Pred, Sender).
+
 '$lgt_send_to_object'(Obj, Pred, Sender) :-
     '$lgt_send_to_object_nv'(Obj, Pred, Sender).
@@ -3007 +3012 @@
     var(Pred),
     throw(error(instantiation_error, Obj::Pred, Sender)).
+
+'$lgt_send_to_object_ne'({Proxy}, Pred, Sender) :-
+    !,
+    call(Proxy),
+    '$lgt_send_to_object_ne_nv'(Proxy, Pred, Sender).
 
 '$lgt_send_to_object_ne'(Obj, Pred, Sender) :-