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

2
src/perl/irc/Bans.xs
View file

@ -28,7 +28,7 @@ MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Ban
#*******************************
void
values(ban)
init(ban)
Irssi::Irc::Ban ban
PREINIT:
HV *hv;

13
src/perl/irc/Dcc.xs
View file

@ -8,7 +8,7 @@ PREINIT:
PPCODE:
stash = gv_stashpv("Irssi::Irc::Dcc", 0);
for (tmp = dcc_conns; tmp != NULL; tmp = tmp->next) {
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash)));
push_bless(tmp->data, stash);
}
Irssi::Irc::Dcc
@ -23,9 +23,9 @@ dcc_find_by_port(nick, port)
int port
void
dcc_ctcp_message(target, server, chat, notice, msg)
char *target
dcc_ctcp_message(server, target, chat, notice, msg)
Irssi::Irc::Server server
char *target
Irssi::Irc::Dcc chat
int notice
char *msg
@ -48,7 +48,7 @@ dcc_chat_send(dcc, data)
char *data
void
values(dcc)
init(dcc)
Irssi::Irc::Dcc dcc
PREINIT:
HV *hv, *stash;
@ -57,12 +57,11 @@ PPCODE:
hv_store(hv, "type", 4, new_pv((char *) dcc_type2str(dcc->type)), 0);
hv_store(hv, "created", 7, newSViv(dcc->created), 0);
hv_store(hv, "server", 6, sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(dcc->server))),
irssi_get_stash(dcc->server)), 0);
hv_store(hv, "server", 6, irssi_bless(dcc->server), 0);
hv_store(hv, "nick", 4, new_pv(dcc->nick), 0);
stash = gv_stashpv("Irssi::Irc::Dcc", 0);
hv_store(hv, "chat", 4, sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(dcc->chat))), stash), 0);
hv_store(hv, "chat", 4, new_bless(dcc->chat, stash), 0);
hv_store(hv, "ircnet", 6, new_pv(dcc->ircnet), 0);
hv_store(hv, "mynick", 6, new_pv(dcc->mynick), 0);

2
src/perl/irc/Flood.xs
View file

@ -17,7 +17,7 @@ MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Autoignore
#*******************************
void
values(ai)
init(ai)
Irssi::Irc::Autoignore ai
PREINIT:
HV *hv;

4
src/perl/irc/IrcChannel.xs
View file

@ -9,7 +9,7 @@ PREINIT:
PPCODE:
stash = gv_stashpv("Irssi::Irc::Ban", 0);
for (tmp = channel->banlist; tmp != NULL; tmp = tmp->next) {
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash)));
push_bless(tmp->data, stash);
}
void
@ -21,7 +21,7 @@ PREINIT:
PPCODE:
stash = gv_stashpv("Irssi::Irc::Ban", 0);
for (tmp = channel->ebanlist; tmp != NULL; tmp = tmp->next) {
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash)));
push_bless(tmp->data, stash);
}
void

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

8
src/perl/irc/Netsplit.xs
View file

@ -6,7 +6,7 @@ netsplit_find(server, nick, address)
char *nick
char *address
Irssi::Nick
Irssi::Irc::Nick
netsplit_find_channel(server, nick, address, channel)
Irssi::Irc::Server server
char *nick
@ -19,7 +19,7 @@ MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Netsplit
#*******************************
void
values(netsplit)
init(netsplit)
Irssi::Irc::Netsplit netsplit
PREINIT:
HV *hv, *stash;
@ -30,7 +30,7 @@ PPCODE:
hv_store(hv, "destroy", 7, newSViv(netsplit->destroy), 0);
stash = gv_stashpv("Irssi::Irc::Netsplitserver", 0);
hv_store(hv, "server", 6, sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(netsplit->server))), stash), 0);
hv_store(hv, "server", 6, new_bless(netsplit->server, stash), 0);
/*FIXME: add GSList *channels;*/
XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));
@ -39,7 +39,7 @@ MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Netsplitserver
#*******************************
void
values(rec)
init(rec)
Irssi::Irc::Netsplitserver rec
PREINIT:
HV *hv;

4
src/perl/irc/Notifylist.xs
View file

@ -8,7 +8,7 @@ PREINIT:
PPCODE:
stash = gv_stashpv("Irssi::Irc::Notifylist", 0);
for (tmp = notifies; tmp != NULL; tmp = tmp->next) {
XPUSHs(sv_2mortal(sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(tmp->data))), stash)));
push_bless(tmp->data, stash);
}
Irssi::Irc::Notifylist
@ -46,7 +46,7 @@ MODULE = Irssi::Irc PACKAGE = Irssi::Irc::Notifylist PREFIX = notifylist_
#*******************************
void
values(notify)
init(notify)
Irssi::Irc::Notifylist notify
PREINIT:
HV *hv;

2
src/perl/irc/module.h
View file

@ -1,5 +1,6 @@
#include "../common/module.h"
#include "irc.h"
#include "irc-servers.h"
#include "irc-channels.h"
#include "irc-queries.h"
@ -17,6 +18,7 @@ typedef IRC_SERVER_REC *Irssi__Irc__Server;
typedef IRC_SERVER_CONNECT_REC *Irssi__Irc__Connect;
typedef IRC_CHANNEL_REC *Irssi__Irc__Channel;
typedef QUERY_REC *Irssi__Irc__Query;
typedef NICK_REC *Irssi__Irc__Nick;
typedef BAN_REC *Irssi__Irc__Ban;
typedef DCC_REC *Irssi__Irc__Dcc;

21
src/perl/irc/typemap
View file

@ -1,8 +1,10 @@
TYPEMAP
Irssi::Irc::Server T_PTROBJ
Irssi::Irc::Connect T_PTROBJ
Irssi::Irc::Channel T_PTROBJ
Irssi::Irc::Query T_PTROBJ
Irssi::Irc::Server T_IrssiObj
Irssi::Irc::Connect T_IrssiObj
Irssi::Irc::Channel T_IrssiObj
Irssi::Irc::Query T_IrssiObj
Irssi::Irc::Nick T_IrssiObj
Irssi::Irc::Ban T_PTROBJ
Irssi::Irc::Dcc T_PTROBJ
Irssi::Irc::Netsplit T_PTROBJ
@ -10,4 +12,13 @@ Irssi::Irc::Netsplitserver T_PTROBJ
Irssi::Irc::Autoignore T_PTROBJ
Irssi::Irc::Notifylist T_PTROBJ
Irssi::Nick T_PTROBJ
INPUT
T_IrssiObj
$var = irssi_ref_object($arg)
OUTPUT
T_IrssiObj
$arg = irssi_bless((SERVER_REC *)$var);