blob: 2d741e9060f7a9edede8a7ec808486eee8418ae6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
use strict;
use Irssi;
use Irssi::TextUI; # for sbar_items_redraw
use Safe;
use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
authors => "shabble",
contact => 'shabble+irssi@metavore.org, shabble@#irssi/Freenode',
name => "",
description => "",
license => "Public Domain",
changed => ""
);
my $safe;
my $objs = {};
init();
sub _input {
return int rand 1000;
}
sub load {
my $file = shift;
my $obj;
if (-f $file) {
$obj = $safe->rdo($file);
}
$objs->{ref $obj} = $obj;
# print "Loading from file: $file";
# $funcs = do $file;
# }
# if (not defined $funcs) {
# if ($@) {
# print "failed to parse $file: $@";
# } elsif ($!) {
# print "failed to read $file: $!";
# }
# return;
# }
# my $ref = ref $funcs;
# if ($ref ne 'HASH') {
# print "$file didn't return a hashref: ", defined $ref ? $ref : 'undef';
# return;
# }
# foreach my $name (keys %$funcs) {
# my $func = $funcs->{$name};
# if (exists $functions->{$name}) {
# print "Redefining function $name";
# } else {
# print "adding function: $name";
# }
# $functions->{$name} = $func;
# }
# print "Loaded " . scalar(keys(%$funcs)) . " functions";
}
sub init {
Irssi::command_bind('subload', \&cmd_subload);
Irssi::command_bind('sublist', \&cmd_sublist);
Irssi::command_bind('subcall', \&cmd_subcall);
$safe = new Safe;
}
sub cmd_subload {
my $args = shift;
print "Going to load: $args";
load($args);
}
sub cmd_sublist {
foreach my $name (keys %$functions) {
my $func = $functions->{$name};
print "Function: $name => $func";
}
}
sub cmd_subcall {
my $args = shift;
my ($cmd, $cmdargs);
if ($args =~ m/^(\w+\b)(.*)$/) {
$cmd = $1; $cmdargs = $2;
} else {
print "Couldn't parse $args";
return;
}
my $fun = $functions->{$cmd};
if (ref $fun eq 'CODE') {
print "Calling $cmd with $cmdargs";
$fun->($cmdargs);
} else {
print "$cmd is not a coderef. cannot run";
}
}
|
