ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/lib/cf.pm
(Generate patch)

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.4 by root, Tue Feb 7 01:03:44 2006 UTC vs.
Revision 1.5 by root, Wed Feb 8 03:46:15 2006 UTC

… …
58# guessed hierarchies 58# guessed hierarchies
59 59
60@cf::object::player::ISA = 'cf::object'; 60@cf::object::player::ISA = 'cf::object';
61@cf::object::map::ISA = 'cf::object'; 61@cf::object::map::ISA = 'cf::object';
62 62
63my %ext_pkg;
63my @exts; 64my @exts;
64my @hook; 65my @hook;
65my %command; 66my %command;
66 67
67sub inject_event { 68sub inject_event {
68 my ($data) = @_; 69 my ($data) = @_;
69 70
71 my $cb = $hook[$data->{event_code}]{$data->{extension}}
72 or return;
73
74 $cb->($data)
75}
76
77sub inject_global_event {
78 my ($data) = @_;
79
70 my $cb = $hook[$data->{event_code}] 80 my $cb = $hook[$data->{event_code}]
71 or return; 81 or return;
72 82
73 $_->($data) for values %$cb; 83 $_->($data) for values %$cb;
74 84
… …
98 108
99sub load_extension { 109sub load_extension {
100 my ($path) = @_; 110 my ($path) = @_;
101 111
102 $path =~ /([^\/\\]+)\.ext$/ or die "$path"; 112 $path =~ /([^\/\\]+)\.ext$/ or die "$path";
113 my $base = $1;
103 my $pkg = $1; 114 my $pkg = $1;
104 $pkg =~ s/[^[:word:]]/_/g; 115 $pkg =~ s/[^[:word:]]/_/g;
105 $pkg = "cf::ext::$pkg"; 116 $pkg = "cf::ext::$pkg";
106 117
107 warn "loading '$path' into '$pkg'\n"; 118 warn "loading '$path' into '$pkg'\n";
… …
117 128
118 eval $source 129 eval $source
119 or die "$path: $@"; 130 or die "$path: $@";
120 131
121 push @exts, $pkg; 132 push @exts, $pkg;
133 $ext_pkg{$base} = $pkg;
122 134
123 no strict 'refs'; 135 no strict 'refs';
124 136
125# @{"$pkg\::ISA"} = cf::ext::; 137# @{"$pkg\::ISA"} = cf::ext::;
126 138
127 for my $idx (0 .. $#EVENT) { 139 for my $idx (0 .. $#EVENT) {
128 if (my $ref = $pkg->can ("on_$EVENT[$idx]")) { 140 if (my $ref = $pkg->can ("on_$EVENT[$idx]")) {
129 warn "registering $EVENT[$idx] hook\n"; 141 warn "registering $EVENT[$idx] hook\n";
130 $hook[$idx]{$pkg} = $ref; 142 $hook[$idx]{$base} = $ref;
131 } 143 }
132 } 144 }
133} 145}
134 146
135sub unload_extension { 147sub unload_extension {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines