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.309 by elmex, Mon Jul 16 15:27:06 2007 UTC vs.
Revision 1.310 by elmex, Mon Jul 16 15:43:49 2007 UTC

166=item cf::wait_for_tick, cf::wait_for_tick_begin 166=item cf::wait_for_tick, cf::wait_for_tick_begin
167 167
168These are functions that inhibit the current coroutine one tick. cf::wait_for_tick_begin only 168These are functions that inhibit the current coroutine one tick. cf::wait_for_tick_begin only
169returns directly I<after> the tick processing (and consequently, can only wake one process 169returns directly I<after> the tick processing (and consequently, can only wake one process
170per tick), while cf::wait_for_tick wakes up all waiters after tick processing. 170per tick), while cf::wait_for_tick wakes up all waiters after tick processing.
171
172=item @cf::INVOKE_RESULTS
173
174This array contains the results of the last C<invoke ()> call. When
175C<cf::override> is called C<@cf::INVOKE_RESULTS> is set to the parameters of
176that call.
171 177
172=back 178=back
173 179
174=cut 180=cut
175 181
866 "; 872 ";
867 die if $@; 873 die if $@;
868} 874}
869 875
870our $override; 876our $override;
871our @invoke_results = (); # referenced from .xs code. TODO: play tricks with reify and mortals? 877our @INVOKE_RESULTS = (); # referenced from .xs code. TODO: play tricks with reify and mortals?
872 878
873sub override { 879sub override {
874 $override = 1; 880 $override = 1;
875 @invoke_results = (@_); 881 @INVOKE_RESULTS = (@_);
876} 882}
877 883
878sub do_invoke { 884sub do_invoke {
879 my $event = shift; 885 my $event = shift;
880 my $callbacks = shift; 886 my $callbacks = shift;
881 887
882 @invoke_results = (); 888 @INVOKE_RESULTS = ();
883 889
884 local $override; 890 local $override;
885 891
886 for (@$callbacks) { 892 for (@$callbacks) {
887 eval { &{$_->[1]} }; 893 eval { &{$_->[1]} };
904 910
905Generate an object-specific event with the given arguments. 911Generate an object-specific event with the given arguments.
906 912
907This API is preliminary (most likely, the EVENT_CLASS_xxx prefix will be 913This API is preliminary (most likely, the EVENT_CLASS_xxx prefix will be
908removed in future versions), and there is no public API to access override 914removed in future versions), and there is no public API to access override
909results (if you must, access C<@cf::invoke_results> directly). 915results (if you must, access C<@cf::INVOKE_RESULTS> directly).
910 916
911=back 917=back
912 918
913=cut 919=cut
914 920

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines