zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-10 20:33:46 +02:00
Code Issues Projects Releases Packages Wiki Activity

fixes, perl should work correctly now :)

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@982 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-09 20:54:47 +00:00 • committed by cras
commit 5dcd683324
22 changed files with 407 additions and 415 deletions
Download patch file Download diff file Expand all files Collapse all files

17
src/perl/common/Channel.xs
View file

@ -62,12 +62,6 @@ PPCODE:
MODULE = Irssi PACKAGE = Irssi::Channel PREFIX = channel_
#*******************************
void
init(channel)
Irssi::Channel channel
CODE:
perl_channel_fill_hash(hvref(ST(0)), channel);
void
channel_destroy(channel)
Irssi::Channel channel
@ -119,14 +113,3 @@ PPCODE:
XPUSHs(sv_2mortal(irssi_bless((NICK_REC *) tmp->data)));
}
g_slist_free(list);
#*******************************
MODULE = Irssi PACKAGE = Irssi::Nick
#*******************************
void
init(nick)
Irssi::Nick nick
CODE:
perl_nick_fill_hash(hvref(ST(0)), nick);

16
src/perl/common/Core.xs
View file

@ -329,19 +329,3 @@ CODE:
signal = g_strconcat("command ", cmd, NULL);
perl_signal_remove(signal, func);
g_free(signal);
#*******************************
MODULE = Irssi PACKAGE = Irssi::Command PREFIX = command_
#*******************************
void
init(cmd)
Irssi::Command cmd
PREINIT:
HV *hv;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
hv_store(hv, "category", 8, new_pv(cmd->category), 0);
hv_store(hv, "cmd", 3, new_pv(cmd->cmd), 0);
}

27
src/perl/common/Ignore.xs
View file

@ -40,33 +40,6 @@ ignore_check(server, nick, host, channel, text, level)
MODULE = Irssi PACKAGE = Irssi::Ignore PREFIX = ignore_
#*******************************
void
init(ignore)
Irssi::Ignore ignore
PREINIT:
HV *hv;
AV *av;
char **tmp;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
hv_store(hv, "mask", 4, new_pv(ignore->mask), 0);
hv_store(hv, "servertag", 9, new_pv(ignore->servertag), 0);
av = newAV();
for (tmp = ignore->channels; *tmp != NULL; tmp++) {
av_push(av, new_pv(*tmp));
}
hv_store(hv, "channels", 8, newRV_noinc((SV*)av), 0);
hv_store(hv, "pattern", 7, new_pv(ignore->pattern), 0);
hv_store(hv, "level", 5, newSViv(ignore->level), 0);
hv_store(hv, "except_level", 12, newSViv(ignore->except_level), 0);
hv_store(hv, "regexp", 6, newSViv(ignore->regexp), 0);
hv_store(hv, "fullword", 8, newSViv(ignore->fullword), 0);
XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));
}
void
ignore_add_rec(rec)
Irssi::Ignore rec

43
src/perl/common/Log.xs
View file

@ -24,32 +24,6 @@ log_find(fname)
MODULE = Irssi PACKAGE = Irssi::Log PREFIX = log_
#*******************************
void
init(log)
Irssi::Log log
PREINIT:
HV *hv, *stash;
AV *av;
GSList *tmp;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
hv_store(hv, "fname", 5, new_pv(log->fname), 0);
hv_store(hv, "opened", 6, newSViv(log->opened), 0);
hv_store(hv, "level", 5, newSViv(log->level), 0);
hv_store(hv, "last", 4, newSViv(log->last), 0);
hv_store(hv, "autoopen", 8, newSViv(log->autoopen), 0);
hv_store(hv, "failed", 6, newSViv(log->failed), 0);
hv_store(hv, "temp", 4, newSViv(log->temp), 0);
stash = gv_stashpv("Irssi::LogItem", 0);
av = newAV();
for (tmp = log->items; tmp != NULL; tmp = tmp->next) {
av_push(av, sv_2mortal(new_bless(tmp->data, stash)));
}
hv_store(hv, "items", 4, newRV_noinc((SV*)av), 0);
}
void
log_item_add(log, type, name, server)
Irssi::Log log
@ -89,20 +63,3 @@ log_start_logging(log)
void
log_stop_logging(log)
Irssi::Log log
#*******************************
MODULE = Irssi PACKAGE = Irssi::LogItem
#*******************************
void
init(item)
Irssi::LogItem item
PREINIT:
HV *hv;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
hv_store(hv, "type", 4, newSViv(item->type), 0);
hv_store(hv, "name", 4, new_pv(item->name), 0);
hv_store(hv, "servertag", 9, new_pv(item->servertag), 0);
}

6
src/perl/common/Query.xs
View file

@ -43,12 +43,6 @@ query_find(server, nick)
MODULE = Irssi PACKAGE = Irssi::Query PREFIX = query_
#*******************************
void
init(query)
Irssi::Query query
CODE:
perl_query_fill_hash(hvref(ST(0)), query);
void
query_destroy(query)
Irssi::Query query

20
src/perl/common/Rawlog.xs
View file

@ -31,26 +31,6 @@ rawlog_redirect(rawlog, str)
MODULE = Irssi PACKAGE = Irssi::Rawlog PREFIX = rawlog_
#*******************************
void
init(rawlog)
Irssi::Rawlog rawlog
PREINIT:
HV *hv;
AV *av;
GSList *tmp;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
hv_store(hv, "logging", 7, newSViv(rawlog->logging), 0);
hv_store(hv, "nlines", 6, newSViv(rawlog->nlines), 0);
av = newAV();
for (tmp = rawlog->lines; tmp != NULL; tmp = tmp->next) {
av_push(av, new_pv(tmp->data));
}
hv_store(hv, "lines", 5, newRV_noinc((SV*)av), 0);
}
void
rawlog_destroy(rawlog)
Irssi::Rawlog rawlog

29
src/perl/common/Server.xs
View file

@ -39,12 +39,6 @@ server_find_chatnet(chatnet)
MODULE = Irssi PACKAGE = Irssi::Server PREFIX = server_
#*******************************
void
init(server)
Irssi::Server server
CODE:
perl_server_fill_hash(hvref(ST(0)), server);
Irssi::Server
server_connect(conn)
Irssi::Connect conn
@ -140,29 +134,6 @@ CODE:
MODULE = Irssi PACKAGE = Irssi::Connect PREFIX = server_
#*******************************
void
init(conn)
Irssi::Connect conn
CODE:
perl_connect_fill_hash(hvref(ST(0)), conn);
Irssi::Server
server_connect(conn)
Irssi::Connect conn
#*******************************
MODULE = Irssi PACKAGE = Irssi::Reconnect
#*******************************
void
init(reconnect)
Irssi::Reconnect reconnect
PREINIT:
HV *hv;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
perl_reconnect_fill_hash(hv, reconnect->conn);
hv_store(hv, "tag", 3, newSViv(reconnect->tag), 0);
hv_store(hv, "next_connect", 12, newSViv(reconnect->next_connect), 0);
}

27
src/perl/common/Window.xs
View file

@ -105,8 +105,8 @@ void
print(server, channel, str, level)
Irssi::Server server
char *channel
int level
char *str
int level
CODE:
printtext(server, channel, level, str);
@ -131,31 +131,6 @@ window_find_closest(server, name, level)
MODULE = Irssi PACKAGE = Irssi::Window PREFIX=window_
#*******************************
void
init(window)
Irssi::Window window
PREINIT:
HV *hv;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
hv_store(hv, "refnum", 6, newSViv(window->refnum), 0);
hv_store(hv, "name", 4, new_pv(window->name), 0);
if (window->active)
hv_store(hv, "active", 6, irssi_bless(window->active), 0);
if (window->active_server)
hv_store(hv, "active_server", 13, irssi_bless(window->active_server), 0);
hv_store(hv, "lines", 5, newSViv(window->lines), 0);
hv_store(hv, "level", 5, newSViv(window->level), 0);
hv_store(hv, "new_data", 8, newSViv(window->new_data), 0);
hv_store(hv, "last_color", 10, newSViv(window->last_color), 0);
hv_store(hv, "last_timestamp", 14, newSViv(window->last_timestamp), 0);
hv_store(hv, "last_line", 9, newSViv(window->last_line), 0);
}
void
items(window)
Irssi::Window window

26
src/perl/common/typemap
View file

@ -2,19 +2,19 @@ TYPEMAP
Irssi::Chatnet T_IrssiObj
Irssi::Server T_IrssiObj
Irssi::Connect T_IrssiObj
Irssi::Reconnect T_PTROBJ
Irssi::Reconnect T_PlainObj
Irssi::Channel T_IrssiObj
Irssi::Query T_IrssiObj
Irssi::Command T_PTROBJ
Irssi::Command T_PlainObj
Irssi::Nick T_IrssiObj
Irssi::Ignore T_PTROBJ
Irssi::Log T_PTROBJ
Irssi::LogItem T_PTROBJ
Irssi::Rawlog T_PTROBJ
Irssi::Module T_PTROBJ
Irssi::Theme T_PTROBJ
Irssi::Keyinfo T_PTROBJ
Irssi::Window T_PTROBJ
Irssi::Ignore T_PlainObj
Irssi::Log T_PlainObj
Irssi::LogItem T_PlainObj
Irssi::Rawlog T_PlainObj
Irssi::Module T_PlainObj
Irssi::Theme T_PlainObj
Irssi::Keyinfo T_PlainObj
Irssi::Window T_PlainObj
Irssi::Windowitem T_IrssiObj
INPUT
@ -22,8 +22,14 @@ INPUT
T_IrssiObj
$var = irssi_ref_object($arg)
T_PlainObj
$var = irssi_ref_object($arg)
OUTPUT
T_IrssiObj
$arg = irssi_bless((SERVER_REC *)$var);
T_PlainObj
$arg = irssi_bless_plain(\"$type\", $var);