comparison src/tooltalk.h @ 440:8de8e3f6228a r21-2-28

Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
20 20
21 */ 21 */
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 INCLUDED_tooltalk_h_
26 #define _XEMACS_TOOLTALK_H_ 26 #define INCLUDED_tooltalk_h_
27 #include TT_C_H_PATH 27 #include TT_C_H_PATH
28 28
29 struct Lisp_Tooltalk_Message; 29 typedef struct Lisp_Tooltalk_Message Lisp_Tooltalk_Message;
30 DECLARE_LRECORD (tooltalk_message, struct Lisp_Tooltalk_Message); 30 DECLARE_LRECORD (tooltalk_message, Lisp_Tooltalk_Message);
31 #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, struct Lisp_Tooltalk_Message) 31 #define XTOOLTALK_MESSAGE(x) XRECORD (x, tooltalk_message, 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 CHECK_TOOLTALK_MESSAGE(x) CHECK_RECORD (x, tooltalk_message) 34 #define CHECK_TOOLTALK_MESSAGE(x) CHECK_RECORD (x, tooltalk_message)
35 35
36 struct Lisp_Tooltalk_Pattern; 36 typedef struct Lisp_Tooltalk_Pattern Lisp_Tooltalk_Pattern;
37 DECLARE_LRECORD (tooltalk_pattern, struct Lisp_Tooltalk_Pattern); 37 DECLARE_LRECORD (tooltalk_pattern, Lisp_Tooltalk_Pattern);
38 #define XTOOLTALK_PATTERN(x) XRECORD (x, tooltalk_pattern, struct Lisp_Tooltalk_Pattern) 38 #define XTOOLTALK_PATTERN(x) XRECORD (x, tooltalk_pattern, Lisp_Tooltalk_Pattern)
39 #define XSETTOOLTALK_PATTERN(x, p) XSETRECORD (x, p, tooltalk_pattern) 39 #define XSETTOOLTALK_PATTERN(x, p) XSETRECORD (x, p, tooltalk_pattern)
40 #define TOOLTALK_PATTERNP(x) RECORDP (x, tooltalk_pattern) 40 #define TOOLTALK_PATTERNP(x) RECORDP (x, tooltalk_pattern)
41 #define CHECK_TOOLTALK_PATTERN(x) CHECK_RECORD (x, tooltalk_pattern) 41 #define CHECK_TOOLTALK_PATTERN(x) CHECK_RECORD (x, tooltalk_pattern)
42 42
43 #define TOOLTALK_MESSAGE_KEY 100 43 #define TOOLTALK_MESSAGE_KEY 100
57 Lisp_Object box_tooltalk_message (Tt_message m); 57 Lisp_Object box_tooltalk_message (Tt_message m);
58 Tt_message unbox_tooltalk_message (Lisp_Object msg); 58 Tt_message unbox_tooltalk_message (Lisp_Object msg);
59 59
60 extern Lisp_Object Qtooltalk_error; 60 extern Lisp_Object Qtooltalk_error;
61 61
62 #endif /* _XEMACS_TOOLTALK_H_ */ 62 #endif /* INCLUDED_tooltalk_h_ */