37 #define bless_script(var)\
38 (SV *) ekg2_bless(BLESS_SCRIPT, 0, var)
40 #define bless_variable(var)\
41 (SV *) ekg2_bless(BLESS_VARIABLE, 0, var)
43 #define bless_session(session)\
44 (SV *) ekg2_bless(BLESS_SESSION, 0, session)
46 #define bless_plugin(plugin)\
47 (SV *) ekg2_bless(BLESS_PLUGIN, 0, plugin)
49 #define bless_window(window)\
50 (SV *) ekg2_bless(BLESS_WINDOW, 0, window)
52 #define bless_watch(watch)\
53 (SV *) ekg2_bless(BLESS_WATCH, 0, watch)
55 #define bless_command(command)\
56 (SV *) ekg2_bless(BLESS_COMMAND, 0, command)
58 #define bless_session_param(param)\
59 (SV *) ekg2_bless(BLESS_SESSION_PARAM, 0, param)
61 #define bless_timer(timer)\
62 (SV *) ekg2_bless(BLESS_TIMER, 0, timer)
64 #define bless_user(user)\
65 (SV *) ekg2_bless(BLESS_USER, 0, user)
66 #define bless_list(ptr, id)\
67 (SV *) ekg2_bless(BLESS_LIST, id, ptr);
71 #define bless_server(server)\
72 (SV *) ekg2_bless(BLESS_IRC_SERVER, 0, server)
74 #define bless_channel(channel)\
75 (SV *) ekg2_bless(BLESS_IRC_CHANNEL, 0, channel)
77 #define bless_person(person)\
78 (SV *) ekg2_bless(BLESS_IRC_USER, 0, person)
80 #define bless_channperson(person)\
81 (SV *) ekg2_bless(BLESS_IRC_CHANNUSER, 0, person)
Definition: perl_bless.h:28
Definition: perl_bless.h:17
Definition: perl_bless.h:15
Definition: perl_bless.h:25
Definition: perl_bless.h:18
Definition: perl_bless.h:30
Definition: perl_bless.h:16
SV * ekg2_bless(perl_bless_t flag, int flag2, void *object)
Definition: perl_bless.c:197
Definition: perl_bless.h:14
Definition: perl_bless.h:19
Definition: perl_bless.h:29
Definition: perl_bless.h:13
Definition: perl_bless.h:20
Definition: perl_bless.h:21
Definition: perl_bless.h:22
Definition: perl_bless.h:27
Definition: perl_bless.h:24
perl_bless_t
Definition: perl_bless.h:12