diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-16 16:17:16 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-16 16:17:16 +0000 |
| commit | 8af17ef24cfb0410d4d2cc7fd86d15175266d5b6 (patch) | |
| tree | 5ffb340f0817a8be66e630d88ada08735138d7b3 | |
| parent | ec0f2f470606ce49eceb20a8417049e34c125264 (diff) | |
| download | irssi-8af17ef24cfb0410d4d2cc7fd86d15175266d5b6.zip | |
Added Irssi::version() for returning the IRSSI_VERSION_DATE, fixed get_irssi_dir() and get_irssi_config() not to complain about const char*.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2033 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | src/perl/common/Core.xs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 6c88be15..036deb32 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -1,4 +1,5 @@ #include "module.h" +#include "irssi-version.h" MODULE = Irssi::Core PACKAGE = Irssi PROTOTYPES: ENABLE @@ -378,9 +379,24 @@ OUTPUT: char * get_irssi_dir() +CODE: + RETVAL = (char *) get_irssi_dir(); +OUTPUT: + RETVAL char * get_irssi_config() +CODE: + RETVAL = (char *) get_irssi_config(); +OUTPUT: + RETVAL + +char * +version() +CODE: + RETVAL = IRSSI_VERSION_DATE; +OUTPUT: + RETVAL #******************************* MODULE = Irssi::Core PACKAGE = Irssi::Server |