irssi/src/perl/common/Query.xs
Timo Sirainen 3819189ef4 Irssi::Irc::Dcc::* is now correctly blessed instead of using Irssi::Irc::Dcc
always. did s/irssi_bless/iobject_bless/, added simple_iobject_bless which
DCC uses.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2092 dbcabf3a-b0e7-0310-adc4-f8d773084564
2001-11-19 19:36:21 +00:00

58 lines
1013 B
Plaintext

#include "module.h"
MODULE = Irssi::Query PACKAGE = Irssi
PROTOTYPES: ENABLE
void
queries()
PREINIT:
GSList *tmp;
PPCODE:
for (tmp = queries; tmp != NULL; tmp = tmp->next) {
QUERY_REC *rec = tmp->data;
XPUSHs(sv_2mortal(iobject_bless(rec)));
}
Irssi::Query
query_find(nick)
char *nick
CODE:
RETVAL = query_find(NULL, nick);
OUTPUT:
RETVAL
#*******************************
MODULE = Irssi::Query PACKAGE = Irssi::Server
#*******************************
void
queries(server)
Irssi::Server server
PREINIT:
GSList *tmp;
PPCODE:
for (tmp = server->queries; tmp != NULL; tmp = tmp->next) {
QUERY_REC *rec = tmp->data;
XPUSHs(sv_2mortal(iobject_bless(rec)));
}
Irssi::Query
query_find(server, nick)
Irssi::Server server
char *nick
#*******************************
MODULE = Irssi::Query PACKAGE = Irssi::Query PREFIX = query_
#*******************************
void
query_destroy(query)
Irssi::Query query
void
query_change_server(query, server)
Irssi::Query query
Irssi::Server server