zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-17 23:52:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

Lots of moving stuff around - hopefully I didn't break too much :)

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@632 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-08-26 15:39:44 +00:00 • committed by cras
commit e395e87ded
160 changed files with 3954 additions and 2959 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/perl/Makefile.am
View file

@ -1,4 +1,4 @@
noinst_LTLIBRARIES = libperl.la
noinst_LIBRARIES = libperl.a
irssi-perl.c: perl-signals.h
@ -8,7 +8,7 @@ INCLUDES = $(GLIB_CFLAGS) \
-I$(top_srcdir)/src \
-I$(top_srcdir)/src/core
libperl_la_SOURCES = \
libperl_a_SOURCES = \
irssi-perl.c \
xsinit.c

4
src/perl/xs/Irssi-query.xs
View file

@ -28,7 +28,7 @@ PPCODE:
}
Irssi::Query
query_create(server, nick, automatic)
irc_query_create(server, nick, automatic)
Irssi::Server server
char *nick
int automatic
@ -56,7 +56,7 @@ PPCODE:
stash = gv_stashpv("Irssi::Server", 0);
hv_store(hv, "server", 6, sv_bless(newRV_noinc(newSViv(GPOINTER_TO_INT(query->server))), stash), 0);
hv_store(hv, "nick", 4, new_pv(query->nick), 0);
hv_store(hv, "name", 4, new_pv(query->name), 0);
hv_store(hv, "new_data", 8, newSViv(query->new_data), 0);
hv_store(hv, "address", 7, new_pv(query->address), 0);

6
src/perl/xs/Irssi-window.xs
View file

@ -1,7 +1,7 @@
MODULE = Irssi PACKAGE = Irssi
void
command(cmd, server=active_win->active_server, item=active_win->active)
command(cmd, server=IRC_SERVER(active_win->active_server), item=active_win->active)
char *cmd
Irssi::Server server
Irssi::Windowitem item
@ -18,7 +18,7 @@ OUTPUT:
Irssi::Server
active_server()
CODE:
RETVAL = active_win->active_server;
RETVAL = IRC_SERVER(active_win->active_server);
OUTPUT:
RETVAL
@ -47,7 +47,7 @@ command(server, cmd, item=active_win->active)
Irssi::Server server
Irssi::Windowitem item
CODE:
if (item != NULL && item->server != server)
if (item != NULL && item->server != SERVER(server))
item = NULL;
signal_emit("send command", 3, cmd, server, item);

14
src/perl/xs/module.h
View file

@ -6,20 +6,20 @@
#include "common.h"
#include "network.h"
#include "commands.h"
#include "server.h"
#include "servers.h"
#include "log.h"
#include "rawlog.h"
#include "settings.h"
#include "masks.h"
#include "irc/core/bans.h"
#include "irc/core/channels.h"
#include "irc/core/query.h"
#include "irc/core/irc.h"
#include "irc/core/irc-server.h"
#include "irc/core/irc-servers.h"
#include "irc/core/server-reconnect.h"
#include "irc/core/server-setup.h"
#include "irc/core/nicklist.h"
#include "irc/core/masks.h"
#include "irc/core/irc-channels.h"
#include "irc/core/irc-queries.h"
#include "irc/core/irc-nicklist.h"
#include "irc/core/modes.h"
#include "irc/core/mode-lists.h"
#include "irc/core/netsplit.h"
@ -37,7 +37,7 @@ typedef COMMAND_REC *Irssi__Command;
typedef LOG_REC *Irssi__Log;
typedef RAWLOG_REC *Irssi__Rawlog;
typedef CHANNEL_REC *Irssi__Channel;
typedef IRC_CHANNEL_REC *Irssi__Channel;
typedef QUERY_REC *Irssi__Query;
typedef IRC_SERVER_REC *Irssi__Server;
typedef IRC_SERVER_CONNECT_REC *Irssi__Connect;