aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

fixes

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2791 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-05-13 18:25:21 +00:00 committed by cras
parent a5f4fd43cc
commit b933f62111
6 changed files with 58 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/perl/common/Core.xs
View File

@ -452,7 +452,7 @@ PREINIT:
char *ret; char *ret;
PPCODE: PPCODE:
ret = bits2level(bits); ret = bits2level(bits);
xPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret); g_free(ret);
int int

2
src/perl/irc/Dcc.xs
View File

@ -65,7 +65,7 @@ PREINIT:
char *ret; char *ret;
PPCODE: PPCODE:
ret = dcc_get_download_path(fname); ret = dcc_get_download_path(fname);
xPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret); g_free(ret);
#******************************* #*******************************

4
src/perl/irc/Modes.xs
View File

@ -12,7 +12,7 @@ PREINIT:
char *ret; char *ret;
PPCODE: PPCODE:
ret = modes_join(old, mode, channel); ret = modes_join(old, mode, channel);
xPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret); g_free(ret);
#******************************* #*******************************
@ -28,7 +28,7 @@ PREINIT:
char *ret; char *ret;
PPCODE: PPCODE:
ret = ban_get_mask(channel, nick, ban_type); ret = ban_get_mask(channel, nick, ban_type);
xPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret); g_free(ret);
Irssi::Irc::Ban Irssi::Irc::Ban

2
src/perl/irc/Server.xs
View File

@ -52,7 +52,7 @@ PREINIT:
char *ret; char *ret;
PPCODE: PPCODE:
ret = irc_server_get_channels(server); ret = irc_server_get_channels(server);
xPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret); g_free(ret);
void void

71
src/perl/ui/Formats.xs
View File

@ -14,7 +14,28 @@ static MGVTBL vtbl_free_text_dest =
NULL, NULL, NULL, NULL, magic_free_text_dest NULL, NULL, NULL, NULL, magic_free_text_dest
}; };
MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::Window static SV *perl_format_create_dest(SERVER_REC *server, char *target,
int level, WINDOW_REC *window)
{
TEXT_DEST_REC *dest;
SV *sv, *ret_sv;
dest = g_new0(TEXT_DEST_REC, 1);
format_create_dest(dest, server, g_strdup(target), level, window);
ret_sv = plain_bless(dest, "Irssi::UI::TextDest");
sv = *hv_fetch(hvref(ret_sv), "_irssi", 6, 0);
sv_magic(sv, NULL, '~', NULL, 0);
SvMAGIC(sv)->mg_private = 0x1551; /* HF */
SvMAGIC(sv)->mg_virtual = &vtbl_free_text_dest;
SvMAGIC(sv)->mg_ptr = (char *) dest;
return ret_sv;
}
MODULE = Irssi::UI::Formats PACKAGE = Irssi
PROTOTYPES: ENABLE PROTOTYPES: ENABLE
int int
@ -33,9 +54,22 @@ PREINIT:
char *ret; char *ret;
PPCODE: PPCODE:
ret = strip_codes(input); ret = strip_codes(input);
xPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free(ret); g_free(ret);
void
format_create_dest(target, level=MSGLEVEL_CLIENTNOTICE, window=NULL)
char *target
int level
Irssi::UI::Window window
PPCODE:
XPUSHs(sv_2mortal(perl_format_create_dest(NULL, target, level, window)));
#*******************************
MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::Window
#*******************************
void void
format_get_text(window, module, server, target, formatnum, ...) format_get_text(window, module, server, target, formatnum, ...)
Irssi::UI::Window window Irssi::UI::Window window
@ -64,7 +98,20 @@ PPCODE:
XPUSHs(sv_2mortal(new_pv(ret))); XPUSHs(sv_2mortal(new_pv(ret)));
g_free_not_null(ret); g_free_not_null(ret);
MODULE = Irssi::UI::Formats PACKAGE = Irssi #*******************************
MODULE = Irssi::UI::Formats PACKAGE = Irssi::Window
#*******************************
void
format_create_dest(window=NULL, level=MSGLEVEL_CLIENTNOTICE)
Irssi::UI::Window window
int level
PPCODE:
XPUSHs(sv_2mortal(perl_format_create_dest(NULL, NULL, level, window)));
#*******************************
MODULE = Irssi::UI::Formats PACKAGE = Irssi::Server
#*******************************
void void
format_create_dest(server, target=NULL, level=MSGLEVEL_CLIENTNOTICE, window=NULL) format_create_dest(server, target=NULL, level=MSGLEVEL_CLIENTNOTICE, window=NULL)
@ -72,24 +119,12 @@ format_create_dest(server, target=NULL, level=MSGLEVEL_CLIENTNOTICE, window=NULL
char *target char *target
int level int level
Irssi::UI::Window window Irssi::UI::Window window
PREINIT:
TEXT_DEST_REC *dest;
SV *sv;
PPCODE: PPCODE:
dest = g_new0(TEXT_DEST_REC, 1); XPUSHs(sv_2mortal(perl_format_create_dest(server, target, level, window)));
format_create_dest(dest, server, g_strdup(target), level, window);
sv = plain_bless(dest, "Irssi::UI::TextDest");
XPUSHs(sv_2mortal(sv));
sv = *hv_fetch(hvref(sv), "_irssi", 6, 0);
sv_magic(sv, NULL, '~', NULL, 0);
SvMAGIC(sv)->mg_private = 0x1551; /* HF */
SvMAGIC(sv)->mg_virtual = &vtbl_free_text_dest;
SvMAGIC(sv)->mg_ptr = (char *) dest;
#*******************************
MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::TextDest MODULE = Irssi::UI::Formats PACKAGE = Irssi::UI::TextDest
#*******************************
void void
print(dest, str) print(dest, str)

1
src/perl/ui/Themes.xs
View File

@ -232,7 +232,6 @@ theme_get_format(theme, module, tag)
PREINIT: PREINIT:
MODULE_THEME_REC *modtheme; MODULE_THEME_REC *modtheme;
FORMAT_REC *formats; FORMAT_REC *formats;
char *ret;
int i; int i;
CODE: CODE:
formats = g_hash_table_lookup(default_formats, module); formats = g_hash_table_lookup(default_formats, module);