irssi/src/perl/irc/Netsplit.xs

#define PERL_NO_GET_CONTEXT
#include "module.h"

MODULE = Irssi::Irc::Netsplit	PACKAGE = Irssi::Irc::Server
PROTOTYPES: ENABLE

Irssi::Irc::Netsplit
netsplit_find(server, nick, address)
	Irssi::Irc::Server server
	char *nick
	char *address

Irssi::Irc::Netsplitchannel
netsplit_find_channel(server, nick, address, channel)
	Irssi::Irc::Server server
	char *nick
	char *address
	char *channel
Define PERL_NO_GET_CONTEXT in all perl source files This removes the calls to Perl_get_context() that get automatically added to XS code for ancient source code compatibility reasons. The result is about a ~60K size reduction in the binary (based on comparing two 64-bit stripped irssi binaries compiled --with-perl-staticlib). 2014-06-24 15:20:27 -04:00			`#define PERL_NO_GET_CONTEXT`
Dependencies finally work correctly in perl libraries (they're each compiled separately now). Added statusbar code to available to perl, it's now possible to create new statusbar items with perl scripts. statusbar_items_redraw(char *name) can now be used to easily redraw all named statusbar items in screen. Probably several other changes I've already forgotten :) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1861 dbcabf3a-b0e7-0310-adc4-f8d773084564 2001-10-20 15:52:07 -04:00			`#include "module.h"`

			`MODULE = Irssi::Irc::Netsplit PACKAGE = Irssi::Irc::Server`
			`PROTOTYPES: ENABLE`
Perl works again :) Split to Irssi and Irssi::Irc packages. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@705 dbcabf3a-b0e7-0310-adc4-f8d773084564 2000-10-01 16:48:48 -04:00
			`Irssi::Irc::Netsplit`
			`netsplit_find(server, nick, address)`
			`Irssi::Irc::Server server`
			`char *nick`
			`char *address`

Netsplit saved the NICK_REC, but didn't save the dynamically allocated strings which were part of it. Removed it now and replaced it with saving only op/halfop/voice status. Might have caused some crashes? (hopefully did :) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2234 dbcabf3a-b0e7-0310-adc4-f8d773084564 2001-12-10 18:32:46 -05:00			`Irssi::Irc::Netsplitchannel`
Perl works again :) Split to Irssi and Irssi::Irc packages. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@705 dbcabf3a-b0e7-0310-adc4-f8d773084564 2000-10-01 16:48:48 -04:00			`netsplit_find_channel(server, nick, address, channel)`
			`Irssi::Irc::Server server`
			`char *nick`
			`char *address`
			`char *channel`