aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Made irssi_binary global and exported to perl as get_irssi_binary().

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3039 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-03 22:37:02 +00:00 committed by cras
parent 3c2aec1214
commit 439818bcf8
3 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/core/session.c
View File

@ -33,7 +33,7 @@
#include "nicklist.h"
static char *session_file;
static char *irssi_binary;
char *irssi_binary;
static char **session_args;
@ -354,7 +354,8 @@ void session_init(void)
{ NULL, '\0', 0, NULL }
};
session_file = NULL;
session_file = NULL;
irssi_binary = NULL;
args_register(options);
command_bind("upgrade", NULL, (SIGNAL_FUNC) cmd_upgrade);

2
src/core/session.h
View File

@ -1,6 +1,8 @@
#ifndef __SESSION_H
#define __SESSION_H
extern char *irssi_binary;
void session_set_binary(const char *path);
void session_upgrade(void);

8
src/perl/common/Core.xs
View File

@ -3,6 +3,7 @@
#include "core.h"
#include "pidwait.h"
#include "session.h"
#define DEFAULT_COMMAND_CATEGORY "Perl scripts' commands"
@ -548,6 +549,13 @@ CODE:
OUTPUT:
RETVAL
char *
get_irssi_binary()
CODE:
RETVAL = irssi_binary;
OUTPUT:
RETVAL
char *
version()
PREINIT: