Mercurial > hg > xemacs-beta

comparison src/tooltalk.h @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 376386a54a3c
children 74fd4e045ea6
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
22 22
23 /* Synched up with: Not in FSF. */ 23 /* Synched up with: Not in FSF. */
24 24
25 #ifndef _XEMACS_TOOLTALK_H_ 25 #ifndef _XEMACS_TOOLTALK_H_
26 #define _XEMACS_TOOLTALK_H_ 26 #define _XEMACS_TOOLTALK_H_
27 #include TT_C_H_PATH
27 28
28 struct Lisp_Tooltalk_Message; 29 struct Lisp_Tooltalk_Message;
29 DECLARE_LRECORD (tooltalk_message, struct Lisp_Tooltalk_Message); 30 DECLARE_LRECORD (tooltalk_message, struct Lisp_Tooltalk_Message);
30 #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, struct Lisp_Tooltalk_Message) 31 #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, struct Lisp_Tooltalk_Message)
31 #define XSETTOOLTALK_MESSAGE(x, p) XSETRECORD (x, p, tooltalk_message) 32 #define XSETTOOLTALK_MESSAGE(x, p) XSETRECORD (x, p, tooltalk_message)
42 #define CHECK_TOOLTALK_PATTERN(x) CHECK_RECORD (x, tooltalk_pattern) 43 #define CHECK_TOOLTALK_PATTERN(x) CHECK_RECORD (x, tooltalk_pattern)
43 44
44 #define TOOLTALK_MESSAGE_KEY 100 45 #define TOOLTALK_MESSAGE_KEY 100
45 #define TOOLTALK_PATTERN_KEY 101 46 #define TOOLTALK_PATTERN_KEY 101
46 47
47 #define CHECK_TOOLTALK_CONSTANT(x) \ 48 #define CHECK_TOOLTALK_CONSTANT(x) do { \
48 { if ((!INTP (x)) && (!SYMBOLP (x))) x = wrong_type_argument (Qsymbolp, (x)); } 49 if (!(INTP (x) || SYMBOLP (x))) \
50 dead_wrong_type_argument (Qsymbolp, (x)); \
51 } while (0)
49 52
50 #define VALID_TOOLTALK_MESSAGEP(m) \ 53 #define VALID_TOOLTALK_MESSAGEP(m) \
51 (m && (tt_ptr_error (m) == TT_OK)) 54 (m && (tt_ptr_error (m) == TT_OK))
52 55
53 #define VALID_TOOLTALK_PATTERNP(p) \ 56 #define VALID_TOOLTALK_PATTERNP(p) \
54 (p && (tt_ptr_error (p) == TT_OK)) 57 (p && (tt_ptr_error (p) == TT_OK))
55 58
56 extern Lisp_Object box_tooltalk_message (Tt_message m); 59 Lisp_Object box_tooltalk_message (Tt_message m);
57 extern Tt_message unbox_tooltalk_message (Lisp_Object msg); 60 Tt_message unbox_tooltalk_message (Lisp_Object msg);
58 61
59 extern Lisp_Object Qtooltalk_error; 62 extern Lisp_Object Qtooltalk_error;
60 63
61 #endif /* _XEMACS_TOOLTALK_H_ */ 64 #endif /* _XEMACS_TOOLTALK_H_ */