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

--enable-perl* -> --with-perl*. Added a new libfe_perl which handles /SCRIPT

Browse source 
commands. /RUN -> /SCRIPT LOAD, /PERLFLUSH -> /SCRIPT FLUSH, /PERL ->
/SCRIPT EXEC. Added /SCRIPT UNLOAD, /SCRIPT LIST. Lots of cleanups.

filename_complete() has extra argument for "default directory" which is
searched if no path is given when completing.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1680 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-07-29 09:17:53 +00:00 • committed by cras
commit 6c2f9c685a
26 changed files with 1052 additions and 506 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -91,25 +91,9 @@ static void perl_unregister_theme(const char *package)
theme_unregister_module(package);
}
static void sig_script_destroy(const char *type, const char *name,
const char *package)
static void sig_script_destroy(PERL_SCRIPT_REC *script)
{
if (strcmp(type, "PERL") == 0)
perl_unregister_theme(package);
}
static void sig_perl_stop(void)
{
GSList *tmp;
char *package;
/* themes */
for (tmp = perl_scripts; tmp != NULL; tmp = tmp->next) {
package = g_strdup_printf("Irssi::Script::%s",
(char *) tmp->data);
perl_unregister_theme(package);
g_free(package);
}
perl_unregister_theme(script->package);
}
static PLAIN_OBJECT_INIT_REC fe_plains[] = {
@ -135,7 +119,6 @@ CODE:
irssi_add_plains(fe_plains);
signal_add("script destroy", (SIGNAL_FUNC) sig_script_destroy);
signal_add("perl stop", (SIGNAL_FUNC) sig_perl_stop);
INCLUDE: Themes.xs