diff options
author | Timo Sirainen <cras@irssi.org> | 2000-11-21 23:26:07 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-11-21 23:26:07 +0000 |
commit | 8dd24a444461a1d174f4d57b0e0726899702c733 (patch) | |
tree | 22003b432d61c0e2b40e04fb13c194ed29615d6c /src/perl/common/Core.xs | |
parent | d62177df3ccf0ff19df1cd54bebf1b57c167dc19 (diff) | |
download | irssi-8dd24a444461a1d174f4d57b0e0726899702c733.zip |
Added input_add() / input_remove()
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@856 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common/Core.xs')
-rw-r--r-- | src/perl/common/Core.xs | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index bac9e90b..4be39a84 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -57,7 +57,39 @@ void timeout_remove(tag) int tag CODE: - perl_timeout_remove(tag); + perl_source_remove(tag); + + +int +INPUT_READ() +CODE: + RETVAL = G_INPUT_READ; +OUTPUT: + RETVAL + +int +INPUT_WRITE() +CODE: + RETVAL = G_INPUT_WRITE; +OUTPUT: + RETVAL + +int +input_add(source, condition, func, data) + int source + int condition + char *func + char *data +CODE: + RETVAL = perl_input_add(source, condition, func, data); +OUTPUT: + RETVAL + +void +input_remove(tag) + int tag +CODE: + perl_source_remove(tag); int level2bits(str) |