ekg2
 All Struktury Danych Pliki Funkcje Zmienne Definicje typów Wyliczenia Wartości wyliczeń Definicje Grupay Strony
perl_bless.h
Idź do dokumentacji tego pliku.
1 #ifndef PERL_BLESS_H
2 #define PERL_BLESS_H
3 
4 #ifndef __FreeBSD__
5 #define __EXTENSIONS__
6 #endif
7 
8 #ifdef bool
9 #define HAS_BOOL
10 #endif
11 
12 #include <EXTERN.h>
13 #include <perl.h>
14 #include <XSUB.h>
15 
16 typedef enum {
27 
30 
35 } perl_bless_t;
36 
37 SV *ekg2_bless(perl_bless_t flag, int flag2, void *object);
38 
39 // Ekg2
40 
41 #define bless_script(var)\
42  (SV *) ekg2_bless(BLESS_SCRIPT, 0, var)
43 
44 #define bless_variable(var)\
45  (SV *) ekg2_bless(BLESS_VARIABLE, 0, var)
46 
47 #define bless_session(session)\
48  (SV *) ekg2_bless(BLESS_SESSION, 0, session)
49 
50 #define bless_plugin(plugin)\
51  (SV *) ekg2_bless(BLESS_PLUGIN, 0, plugin)
52 
53 #define bless_window(window)\
54  (SV *) ekg2_bless(BLESS_WINDOW, 0, window)
55 
56 #define bless_watch(watch)\
57  (SV *) ekg2_bless(BLESS_WATCH, 0, watch)
58 
59 #define bless_command(command)\
60  (SV *) ekg2_bless(BLESS_COMMAND, 0, command)
61 
62 #define bless_session_param(param)\
63  (SV *) ekg2_bless(BLESS_SESSION_PARAM, 0, param)
64 
65 #define bless_timer(timer)\
66  (SV *) ekg2_bless(BLESS_TIMER, 0, timer)
67 
68 #define bless_user(user)\
69  (SV *) ekg2_bless(BLESS_USER, 0, user)
70 #define bless_list(ptr, id)\
71  (SV *) ekg2_bless(BLESS_LIST, id, ptr);
72 
73 // Ekg2::Irc
74 
75 #define bless_server(server)\
76  (SV *) ekg2_bless(BLESS_IRC_SERVER, 0, server)
77 
78 #define bless_channel(channel)\
79  (SV *) ekg2_bless(BLESS_IRC_CHANNEL, 0, channel)
80 
81 #define bless_person(person)\
82  (SV *) ekg2_bless(BLESS_IRC_USER, 0, person)
83 
84 #define bless_channperson(person)\
85  (SV *) ekg2_bless(BLESS_IRC_CHANNUSER, 0, person)
86 
87 #endif