zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-18 08:02:13 +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

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);
}