Mercurial > hg > xemacs-beta
comparison lisp/tooltalk/tooltalk-util.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:18:39 +0200 |
| parents | 131b0175ea99 |
| children |
comparison
equal
deleted
inserted
replaced
| 107:523141596bda | 108:360340f9fd5f |
|---|---|
| 73 | 73 |
| 74 (defun initialize-tooltalk-message-attributes (msg attributes) | 74 (defun initialize-tooltalk-message-attributes (msg attributes) |
| 75 "Initialize the tooltalk message attributes. The value of | 75 "Initialize the tooltalk message attributes. The value of |
| 76 attributes must be a property list in the same form as for | 76 attributes must be a property list in the same form as for |
| 77 make-tooltalk-message. This function can be used to reset | 77 make-tooltalk-message. This function can be used to reset |
| 78 an existing message or to initailize a new one. See | 78 an existing message or to initialize a new one. See |
| 79 initialize-tooltalk-message-args for a description of how | 79 initialize-tooltalk-message-args for a description of how |
| 80 arguments are initialized." | 80 arguments are initialized." |
| 81 (let ((args attributes) | 81 (let ((args attributes) |
| 82 (initfn 'initialize-tooltalk-message-arg)) | 82 (initfn 'initialize-tooltalk-message-arg)) |
| 83 (while (and args (cdr args)) | 83 (while (and args (cdr args)) |
| 119 semantics and uses of ToolTalk message arguments in chapter 4 of the | 119 semantics and uses of ToolTalk message arguments in chapter 4 of the |
| 120 Tooltalk Programmer's Guide. | 120 Tooltalk Programmer's Guide. |
| 121 | 121 |
| 122 The no-callback arg is a hack to prevent the registration of the | 122 The no-callback arg is a hack to prevent the registration of the |
| 123 C-level callback. This hack is needed by the current SPARCworks | 123 C-level callback. This hack is needed by the current SPARCworks |
| 124 tool startup mechanism. Yuchho." | 124 tool startup mechanism. Yucko." |
| 125 (let ((msg (create-tooltalk-message no-callback))) | 125 (let ((msg (create-tooltalk-message no-callback))) |
| 126 (initialize-tooltalk-message-attributes msg attributes) | 126 (initialize-tooltalk-message-attributes msg attributes) |
| 127 msg)) | 127 msg)) |
| 128 | 128 |
| 129 | 129 |
| 197 can either be a single value or a list of values. If a list of | 197 can either be a single value or a list of values. If a list of |
| 198 values is provided then the pattern will match messages with | 198 values is provided then the pattern will match messages with |
| 199 a corresponding attribute that matches any member of the list. | 199 a corresponding attribute that matches any member of the list. |
| 200 | 200 |
| 201 This function can be used to add attribute values to an existing | 201 This function can be used to add attribute values to an existing |
| 202 pattern or to initiallize a new one. See | 202 pattern or to initialize a new one. See |
| 203 `initialize-tooltalk-message/pattern-args' for a description of how | 203 `initialize-tooltalk-message/pattern-args' for a description of how |
| 204 arguments are initialized." | 204 arguments are initialized." |
| 205 (let ((args attributes) | 205 (let ((args attributes) |
| 206 (initfn 'initialize-tooltalk-pattern-arg)) | 206 (initfn 'initialize-tooltalk-pattern-arg)) |
| 207 (while (and args (cdr args)) | 207 (while (and args (cdr args)) |