comparison src/tooltalk.h @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents b8cc9ab3f761
children 11054d720c21
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
20 20
21 */ 21 */
22 22
23 /* Synched up with: Not in FSF. */ 23 /* Synched up with: Not in FSF. */
24 24
25 #ifndef INCLUDED_tooltalk_h_ 25 #ifndef _XEMACS_TOOLTALK_H_
26 #define INCLUDED_tooltalk_h_ 26 #define _XEMACS_TOOLTALK_H_
27 #include TT_C_H_FILE 27 #include TT_C_H_PATH
28 28
29 typedef struct Lisp_Tooltalk_Message Lisp_Tooltalk_Message; 29 struct Lisp_Tooltalk_Message;
30 DECLARE_LRECORD (tooltalk_message, Lisp_Tooltalk_Message); 30 DECLARE_LRECORD (tooltalk_message, struct Lisp_Tooltalk_Message);
31 #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, Lisp_Tooltalk_Message) 31 #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, struct Lisp_Tooltalk_Message)
32 #define XSETTOOLTALK_MESSAGE(x, p) XSETRECORD (x, p, tooltalk_message) 32 #define XSETTOOLTALK_MESSAGE(x, p) XSETRECORD (x, p, tooltalk_message)
33 #define TOOLTALK_MESSAGEP(x) RECORDP (x, tooltalk_message) 33 #define TOOLTALK_MESSAGEP(x) RECORDP (x, tooltalk_message)
34 #define GC_TOOLTALK_MESSAGEP(x) GC_RECORDP (x, tooltalk_message)
34 #define CHECK_TOOLTALK_MESSAGE(x) CHECK_RECORD (x, tooltalk_message) 35 #define CHECK_TOOLTALK_MESSAGE(x) CHECK_RECORD (x, tooltalk_message)
35 36
36 typedef struct Lisp_Tooltalk_Pattern Lisp_Tooltalk_Pattern; 37 struct Lisp_Tooltalk_Pattern;
37 DECLARE_LRECORD (tooltalk_pattern, Lisp_Tooltalk_Pattern); 38 DECLARE_LRECORD (tooltalk_pattern, struct Lisp_Tooltalk_Pattern);
38 #define XTOOLTALK_PATTERN(x) XRECORD (x, tooltalk_pattern, Lisp_Tooltalk_Pattern) 39 #define XTOOLTALK_PATTERN(x) XRECORD (x, tooltalk_pattern, struct Lisp_Tooltalk_Pattern)
39 #define XSETTOOLTALK_PATTERN(x, p) XSETRECORD (x, p, tooltalk_pattern) 40 #define XSETTOOLTALK_PATTERN(x, p) XSETRECORD (x, p, tooltalk_pattern)
40 #define TOOLTALK_PATTERNP(x) RECORDP (x, tooltalk_pattern) 41 #define TOOLTALK_PATTERNP(x) RECORDP (x, tooltalk_pattern)
42 #define GC_TOOLTALK_PATTERNP(x) GC_RECORDP (x, tooltalk_pattern)
41 #define CHECK_TOOLTALK_PATTERN(x) CHECK_RECORD (x, tooltalk_pattern) 43 #define CHECK_TOOLTALK_PATTERN(x) CHECK_RECORD (x, tooltalk_pattern)
42 44
43 #define TOOLTALK_MESSAGE_KEY 100 45 #define TOOLTALK_MESSAGE_KEY 100
44 #define TOOLTALK_PATTERN_KEY 101 46 #define TOOLTALK_PATTERN_KEY 101
45 47
57 Lisp_Object box_tooltalk_message (Tt_message m); 59 Lisp_Object box_tooltalk_message (Tt_message m);
58 Tt_message unbox_tooltalk_message (Lisp_Object msg); 60 Tt_message unbox_tooltalk_message (Lisp_Object msg);
59 61
60 extern Lisp_Object Qtooltalk_error; 62 extern Lisp_Object Qtooltalk_error;
61 63
62 #endif /* INCLUDED_tooltalk_h_ */ 64 #endif /* _XEMACS_TOOLTALK_H_ */