XEmacs 21.2-b1

[chise/xemacs-chise.git.1] / tests / tooltalk / simple.el

diff --git a/tests/tooltalk/simple.el b/tests/tooltalk/simple.el
new file mode 100644 (file)
index 0000000..c8ebffc
--- /dev/null
+++ b/tests/tooltalk/simple.el
@@ -0,0 +1,38 @@
+;;; Example of Sending Messages
+
+(defun tooltalk-random-query-handler (msg pat)
+  (let ((state (get-tooltalk-message-attribute msg 'state)))
+    (cond
+      ((eq state 'TT_HANDLED)
+       (message (get-tooltalk-message-attribute msg arg_val 0)))
+      ((memq state '(TT_FAILED TT_REJECTED))
+       (message "Random query turns up nothing")))))
+
+(setq random-query-message
+  '(   class TT_REQUEST
+       scope TT_SESSION
+     address TT_PROCEDURE
+         op "random-query"
+        args ((TT_INOUT "?" "string"))
+    callback tooltalk-random-query-handler))
+
+(let ((m (make-tooltalk-message random-query-message)))
+      (send-tooltalk-message m))
+
+;;; Example of Receiving Messaegs
+
+(defun tooltalk-display-string-handler (msg pat)
+  (return-tooltalk-message msg 'reply)
+  (describe-tooltalk-message msg)
+  (message (get-tooltalk-message-attribute msg 'arg_val 0)))
+
+(setq display-string-pattern
+  '(category TT_HANDLE
+       scope TT_SESSION
+         op "emacs-eval"
+       args ((TT_IN "filename" "string"))
+    callback tooltalk-display-string-handler))
+
+(let ((p (make-tooltalk-pattern display-string-pattern)))
+  (register-tooltalk-pattern p))
+