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

Moved the ISA defines from .pm to irssi code, so that non-irc protocols

Browse source 
would work also without a specific .pm file. Also you don't need to
use Irssi::Irc anymore if you don't need IRC specific functions.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@800 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-10-30 22:52:51 +00:00 • committed by cras
commit 5da6c63cdd
3 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/perl/perl-common.c
View file

@ -159,8 +159,13 @@ void perl_query_fill_hash(HV *hv, QUERY_REC *query)
static void perl_register_protocol(CHAT_PROTOCOL_REC *rec)
{
char *name, stash[100];
int type, chat_type;
static char *items[] = {
"Chatnet",
"Server", "ServerConnect", "ServerSetup",
"Channel", "Query"
};
char *name, stash[100], code[100];
int type, chat_type, n;
chat_type = chat_protocol_lookup(rec->name);
g_return_if_fail(chat_type >= 0);
@ -186,6 +191,13 @@ static void perl_register_protocol(CHAT_PROTOCOL_REC *rec)
g_snprintf(stash, sizeof(stash), "Irssi::%s::Connect", name);
irssi_add_stash(type, chat_type, stash);
/* register ISAs */
for (n = 0; n < sizeof(items)/sizeof(items[0]); n++) {
g_snprintf(code, sizeof(code),
"@Irssi::%s::%s::ISA = qw(Irssi::%s);",
name, items[n], items[n]);
perl_eval_pv(code, TRUE);
}
g_free(name);
}