[Gd-chatter] r10814 - in trunk/libraries/xmpp: . xmpp-test

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Tue Jul  4 18:17:02 2006
New Revision: 10814

Removed:
   trunk/libraries/xmpp/generator.dylan
Modified:
   trunk/libraries/xmpp/query.dylan
   trunk/libraries/xmpp/xmpp-exports.dylan
   trunk/libraries/xmpp/xmpp-test/xmpp-test.dylan
   trunk/libraries/xmpp/xmpp.lid
Log:
Bug: 7313
* macro will come later, first get more features,
  compatibility and clean-up


Modified: trunk/libraries/xmpp/query.dylan
==============================================================================
--- trunk/libraries/xmpp/query.dylan	(original)
+++ trunk/libraries/xmpp/query.dylan	Tue Jul  4 18:17:02 2006
@@ -2,7 +2,7 @@
 synopsis: 
 author: 
 copyright: 
-
+    
 define element query () //("query")
 end element query;
 

Modified: trunk/libraries/xmpp/xmpp-exports.dylan
==============================================================================
--- trunk/libraries/xmpp/xmpp-exports.dylan	(original)
+++ trunk/libraries/xmpp/xmpp-exports.dylan	Tue Jul  4 18:17:02 2006
@@ -96,12 +96,4 @@
     type, type-setter,
     *default-language*,
     print-object;
-
-  export xmpp-element-definer;
-  export <foo-stanza>,
-    foo-id, foo-id-setter,
-    foo-from, foo-from-setter,
-    foo-to, foo-to-setter,
-    foo-type, foo-type-setter, 
-    foo-language, foo-language-setter;
 end module;

Modified: trunk/libraries/xmpp/xmpp-test/xmpp-test.dylan
==============================================================================
--- trunk/libraries/xmpp/xmpp-test/xmpp-test.dylan	(original)
+++ trunk/libraries/xmpp/xmpp-test/xmpp-test.dylan	Tue Jul  4 18:17:02 2006
@@ -220,7 +220,7 @@
   format-out("%=\n", test-document.node-children);
   
 */
-/*
+
   let callback1 = make(<callback>, reference: #"default", priority: 3, handler: method (client, message)
     format-out("CCC (1) %= %=\n", client, message);
     if (message.body)
@@ -228,7 +228,7 @@
     end if;
     #f;
   end);
-
+/*
   let callback2 = make(<callback>, reference: #"default", priority: 2, handler: method (client, element)
     format-out("CCC (2) %= %=\n", client, element);
     #t;
@@ -238,7 +238,7 @@
     format-out("CCC (3) %= %=\n", client, element);
     #f;
   end);
-
+*/
   let client = make(<xmpp-client>, jid: make(<jid>, node: "dylan", domain: "pentabarf.org", resource: "xmpp"));
 
   add-callback(client, <message>, callback1);
@@ -273,7 +273,7 @@
   exception (condition :: <condition>)
     format-out("xmpp-test: Error: %=\n", condition);
   end block;
-*/
+/*
   let foobar42 = make(<foo-stanza>);
   format-out("foo-id :: %=\n", object-class(foobar42.foo-id), foobar42.foo-id);
   foobar42.foo-id := "test";
@@ -294,7 +294,7 @@
   format-out("foo-language :: %=\n", object-class(foobar42.foo-language), foobar42.foo-language);
 
   format-out("foobar42 = %=\n", foobar42);
-
+*/
   exit-application(0);
 end function main;
 

Modified: trunk/libraries/xmpp/xmpp.lid
==============================================================================
--- trunk/libraries/xmpp/xmpp.lid	(original)
+++ trunk/libraries/xmpp/xmpp.lid	Tue Jul  4 18:17:02 2006
@@ -4,11 +4,11 @@
   stream
   jid
   stanza
+  query
   presence
   message
   iq
   x
-  query
   vcard
   version
   error
@@ -17,4 +17,3 @@
   connection
   client
   callback
-  generator