| 1 | #! perl # mandatory |
1 | #! perl # mandatory |
| 2 | |
2 | |
| 3 | # resource handling |
3 | # resource handling |
| 4 | |
4 | |
| 5 | cf::register_exticmd resource => sub { |
5 | cf::register_async_exticmd resource => sub { |
| 6 | my ($ns, @resnames) = @_; |
6 | my ($ns, $reply, @resnames) = @_; |
| 7 | |
7 | |
| 8 | $ns->send_face ($_ = cf::face::find "res/$_") |
8 | cf::async { |
| 9 | for @resnames; |
9 | my $guard = cf::lock_acquire "ext::resource"; |
| 10 | |
10 | |
| 11 | $ns->flush_fx; |
11 | $ns->send_face ($_ = cf::face::find "res/$_") |
|
|
12 | for @resnames; |
| 12 | |
13 | |
| 13 | @resnames |
14 | $ns->flush_fx; |
|
|
15 | $reply->(@resnames); |
|
|
16 | }; |
| 14 | }; |
17 | }; |
| 15 | |
18 | |
