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

Dependencies finally work correctly in perl libraries (they're each compiled

Browse source 
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
This commit is contained in:
Timo Sirainen 2001-10-20 19:52:07 +00:00 • committed by cras
commit 76c6e9ab83
48 changed files with 430 additions and 126 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/perl/ui/.cvsignore
View file

@ -1,7 +1,7 @@
Makefile
Makefile.PL
UI.c
UI.bs
*.c
*.o
pm_to_blib
blib

1
src/perl/ui/Makefile.PL.in
View file

@ -2,6 +2,7 @@ use ExtUtils::MakeMaker;
WriteMakefile('NAME' => 'Irssi::UI',
'LIBS' => '',
'OBJECT' => '$(O_FILES)',
'TYPEMAPS' => ['../common/typemap'],
'INC' => '-I../../.. -I@top_srcdir@/src -I@top_srcdir@/src/core -I@top_srcdir@/src/fe-common/core @GLIB_CFLAGS@',
'VERSION_FROM' => '@srcdir@/UI.pm');

10
src/perl/ui/Themes.xs
View file

@ -1,5 +1,7 @@
#include "module.h"
MODULE = Irssi::UI PACKAGE = Irssi
MODULE = Irssi::UI::Themes PACKAGE = Irssi
PROTOTYPES: ENABLE
void
theme_register(formats)
@ -53,7 +55,7 @@ CODE:
printformat_perl(&dest, format, arglist);
#*******************************
MODULE = Irssi::UI PACKAGE = Irssi::Server
MODULE = Irssi::UI::Themes PACKAGE = Irssi::Server
#*******************************
void
@ -77,7 +79,7 @@ CODE:
printformat_perl(&dest, format, arglist);
#*******************************
MODULE = Irssi::UI PACKAGE = Irssi::UI::Window
MODULE = Irssi::UI::Themes PACKAGE = Irssi::UI::Window
#*******************************
void
@ -100,7 +102,7 @@ CODE:
printformat_perl(&dest, format, arglist);
#*******************************
MODULE = Irssi::UI PACKAGE = Irssi::Windowitem
MODULE = Irssi::UI::Themes PACKAGE = Irssi::Windowitem
#*******************************
void

3
src/perl/ui/UI.pm
View file

@ -7,7 +7,7 @@ package Irssi::UI;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VERSION = "0.8";
$VERSION = "0.9";
require Exporter;
require DynaLoader;
@ -21,4 +21,3 @@ bootstrap Irssi::UI $VERSION;
Irssi::UI::init();
1;

16
src/perl/ui/UI.xs
View file

@ -104,12 +104,6 @@ static PLAIN_OBJECT_INIT_REC fe_plains[] = {
{ NULL, NULL }
};
static void sig_deinit(void)
{
signal_remove("script destroy", (SIGNAL_FUNC) sig_script_destroy);
signal_remove("perl scripts deinit", (SIGNAL_FUNC) sig_deinit);
}
MODULE = Irssi::UI PACKAGE = Irssi::UI
PROTOTYPES: ENABLE
@ -126,8 +120,12 @@ CODE:
irssi_add_plains(fe_plains);
signal_add("script destroy", (SIGNAL_FUNC) sig_script_destroy);
signal_add("perl scripts deinit", (SIGNAL_FUNC) sig_deinit);
void
deinit()
CODE:
signal_remove("script destroy", (SIGNAL_FUNC) sig_script_destroy);
INCLUDE: Themes.xs
INCLUDE: Window.xs
BOOT:
irssi_boot(UI__Themes);
irssi_boot(UI__Window);

11
src/perl/ui/Window.xs
View file

@ -1,4 +1,7 @@
MODULE = Irssi::UI PACKAGE = Irssi
#include "module.h"
MODULE = Irssi::UI::Window PACKAGE = Irssi
PROTOTYPES: ENABLE
void
windows()
@ -93,7 +96,7 @@ OUTPUT:
#*******************************
MODULE = Irssi::UI PACKAGE = Irssi::Server
MODULE = Irssi::UI::Window PACKAGE = Irssi::Server
#*******************************
void
@ -135,7 +138,7 @@ window_find_closest(server, name, level)
#*******************************
MODULE = Irssi::UI PACKAGE = Irssi::UI::Window PREFIX=window_
MODULE = Irssi::UI::Window PACKAGE = Irssi::UI::Window PREFIX=window_
#*******************************
void
@ -230,7 +233,7 @@ OUTPUT:
RETVAL
#*******************************
MODULE = Irssi::UI PACKAGE = Irssi::Windowitem PREFIX = window_item_
MODULE = Irssi::UI::Window PACKAGE = Irssi::Windowitem PREFIX = window_item_
#*******************************
void