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

Perl updates. Lots of updates to perl documentation :)

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1081 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-01-06 21:59:28 +00:00 • committed by cras
commit 341cd55587
13 changed files with 748 additions and 459 deletions
Download patch file Download diff file Expand all files Collapse all files

40
src/perl/common/Themes.xs
View file

@ -50,24 +50,6 @@ CODE:
printformat_perl(&dest, format, arglist);
void
printformat_window(window, level, format, ...)
Irssi::Window window
int level
char *format
PREINIT:
TEXT_DEST_REC dest;
char *arglist[MAX_FORMAT_PARAMS];
int n;
CODE:
format_create_dest(&dest, NULL, NULL, level, window);
memset(arglist, 0, sizeof(arglist));
for (n = 3; n < 3+MAX_FORMAT_PARAMS; n++) {
arglist[n-3] = n < items ? SvPV(ST(n), PL_na) : "";
}
printformat_perl(&dest, format, arglist);
#*******************************
MODULE = Irssi PACKAGE = Irssi::Server
#*******************************
@ -91,6 +73,28 @@ CODE:
printformat_perl(&dest, format, arglist);
#*******************************
MODULE = Irssi PACKAGE = Irssi::Window
#*******************************
void
printformat(window, level, format, ...)
Irssi::Window window
int level
char *format
PREINIT:
TEXT_DEST_REC dest;
char *arglist[MAX_FORMAT_PARAMS];
int n;
CODE:
format_create_dest(&dest, NULL, NULL, level, window);
memset(arglist, 0, sizeof(arglist));
for (n = 3; n < 3+MAX_FORMAT_PARAMS; n++) {
arglist[n-3] = n < items ? SvPV(ST(n), PL_na) : "";
}
printformat_perl(&dest, format, arglist);
#*******************************
MODULE = Irssi PACKAGE = Irssi::Windowitem
#*******************************