zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-19 16:42:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

perl changes - values() method doesn't exist anymore, instead of

Browse source 
$server->values()->{...} you now use directly $server->{...}


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@972 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-12-06 05:03:11 +00:00 • committed by cras
commit e95f309b50
22 changed files with 412 additions and 326 deletions
Download patch file Download diff file Expand all files Collapse all files

50
src/perl/irc/IrcServer.xs
View file

@ -1,19 +1,5 @@
MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Server PREFIX = irc_server_
void
values(server)
Irssi::Irc::Server server
PREINIT:
HV *hv;
PPCODE:
hv = newHV();
perl_server_fill_hash(hv, (SERVER_REC *) server);
hv_store(hv, "real_address", 12, new_pv(server->real_address), 0);
hv_store(hv, "usermode", 8, new_pv(server->usermode), 0);
hv_store(hv, "userhost", 8, new_pv(server->userhost), 0);
XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));
char *
irc_server_get_channels(server)
Irssi::Irc::Server server
@ -41,20 +27,36 @@ send_raw_split(server, cmd, nickarg, max_nicks)
CODE:
irc_send_cmd_split(server, cmd, nickarg, max_nicks);
MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Connect PREFIX = irc_server_
void
values(conn)
Irssi::Irc::Connect conn
init(server)
Irssi::Irc::Server server
PREINIT:
HV *hv;
PPCODE:
hv = newHV();
perl_server_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn);
HV *hv;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
perl_server_fill_hash(hv, server);
hv_store(hv, "alternate_nick", 14, new_pv(conn->alternate_nick), 0);
XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));
hv_store(hv, "real_address", 12, new_pv(server->real_address), 0);
hv_store(hv, "usermode", 8, new_pv(server->usermode), 0);
hv_store(hv, "userhost", 8, new_pv(server->userhost), 0);
}
MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Connect PREFIX = irc_server_
Irssi::Irc::Server
irc_server_connect(conn)
Irssi::Irc::Connect conn
void
init(conn)
Irssi::Irc::Connect conn
PREINIT:
HV *hv;
CODE:
hv = hvref(ST(0));
if (hv != NULL) {
perl_connect_fill_hash(hv, conn);
hv_store(hv, "alternate_nick", 14, new_pv(conn->alternate_nick), 0);
}