| … | |
… | |
| 2 | |
2 | |
| 3 | rxvtperl - rxvt-unicode's embedded perl interpreter |
3 | rxvtperl - rxvt-unicode's embedded perl interpreter |
| 4 | |
4 | |
| 5 | =head1 SYNOPSIS |
5 | =head1 SYNOPSIS |
| 6 | |
6 | |
| 7 | * Put your scripts into F<@@RXVT_LIBDIR@@/urxvt/perl-ext/>, they will be loaded automatically. |
7 | * Put your scripts into F<@@RXVT_LIBDIR@@/urxvt/perl/>, they will be loaded automatically. |
| 8 | |
|
|
| 9 | * Each script will only be loaded once, even in urxvtd, and will be valid |
|
|
| 10 | globally. |
|
|
| 11 | |
8 | |
| 12 | * Scripts are evaluated in a 'use strict' and 'use utf8' environment, and |
9 | * Scripts are evaluated in a 'use strict' and 'use utf8' environment, and |
| 13 | thus must be encoded as UTF-8. |
10 | thus must be encoded as UTF-8. |
| 14 | |
11 | |
| 15 | sub on_sel_grab { |
12 | sub on_sel_grab { |
| … | |
… | |
| 19 | |
16 | |
| 20 | 1 |
17 | 1 |
| 21 | |
18 | |
| 22 | =head1 DESCRIPTION |
19 | =head1 DESCRIPTION |
| 23 | |
20 | |
|
|
21 | Everytime a terminal object gets created, scripts specified via the |
|
|
22 | C<perl> resource are associated with it. |
|
|
23 | |
|
|
24 | Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where |
|
|
25 | scripts will be shared (But not enabled) for all terminals. |
|
|
26 | |
|
|
27 | =head2 General API Considerations |
|
|
28 | |
|
|
29 | All objects (such as terminals, time watchers etc.) are typical |
|
|
30 | reference-to-hash objects. The hash can be used to store anything you |
|
|
31 | like. All members starting with an underscore (such as C<_ptr> or |
|
|
32 | C<_hook>) are reserved for internal uses and must not be accessed or |
|
|
33 | modified). |
|
|
34 | |
|
|
35 | When objects are destroyed on the C++ side, the perl object hashes are |
|
|
36 | emptied, so its best to store related objects such as time watchers and |
|
|
37 | the like inside the terminal object so they get destroyed as soon as the |
|
|
38 | terminal is destroyed. |
|
|
39 | |
| 24 | =head2 Hooks |
40 | =head2 Hooks |
| 25 | |
41 | |
| 26 | The following subroutines can be declared in loaded scripts, and will be called |
42 | The following subroutines can be declared in loaded scripts, and will be called |
| 27 | whenever the relevant event happens. |
43 | whenever the relevant event happens. |
| 28 | |
44 | |
| … | |
… | |
| 120 | costs! The only time this is acceptable is when the terminal process |
136 | costs! The only time this is acceptable is when the terminal process |
| 121 | starts up. |
137 | starts up. |
| 122 | |
138 | |
| 123 | =item urxvt::warn $string |
139 | =item urxvt::warn $string |
| 124 | |
140 | |
| 125 | Calls C<rxvt_warn> witht eh given string which should not include a |
141 | Calls C<rxvt_warn> with the given string which should not include a |
| 126 | newline. The module also overwrites the C<warn> builtin with a function |
142 | newline. The module also overwrites the C<warn> builtin with a function |
| 127 | that calls this function. |
143 | that calls this function. |
| 128 | |
144 | |
| 129 | Using this function has the advantage that its output ends up in the |
145 | Using this function has the advantage that its output ends up in the |
| 130 | correct place, e.g. on stderr of the connecting urxvtc client. |
146 | correct place, e.g. on stderr of the connecting urxvtc client. |
| 131 | |
|
|
| 132 | =item $cellwidth = urxvt::wcswidth $string |
|
|
| 133 | |
|
|
| 134 | Returns the number of screen-cells this string would need. Correctly |
|
|
| 135 | accounts for wide and combining characters. |
|
|
| 136 | |
147 | |
| 137 | =item $time = urxvt::NOW |
148 | =item $time = urxvt::NOW |
| 138 | |
149 | |
| 139 | Returns the "current time" (as per the event loop). |
150 | Returns the "current time" (as per the event loop). |
| 140 | |
151 | |
| … | |
… | |
| 158 | unless $msg =~ /\n$/; |
169 | unless $msg =~ /\n$/; |
| 159 | urxvt::warn ($msg); |
170 | urxvt::warn ($msg); |
| 160 | }; |
171 | }; |
| 161 | } |
172 | } |
| 162 | |
173 | |
|
|
174 | my @hook_count; |
| 163 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY} || 10; |
175 | my $verbosity = $ENV{URXVT_PERL_VERBOSITY}; |
| 164 | |
176 | |
| 165 | sub verbose { |
177 | sub verbose { |
| 166 | my ($level, $msg) = @_; |
178 | my ($level, $msg) = @_; |
| 167 | warn "$msg\n"; #d# |
179 | warn "$msg\n" if $level <= $verbosity; |
| 168 | } |
180 | } |
| 169 | |
181 | |
| 170 | my @invoke_cb; |
182 | # find on_xxx subs in the package and register them |
|
|
183 | # as hooks |
|
|
184 | sub register_package($) { |
|
|
185 | my ($pkg) = @_; |
|
|
186 | |
|
|
187 | for my $htype (0.. $#HOOKNAME) { |
|
|
188 | my $name = $HOOKNAME[$htype]; |
|
|
189 | |
|
|
190 | my $ref = $pkg->can ("on_" . lc $name) |
|
|
191 | or next; |
|
|
192 | |
|
|
193 | $term->{_hook}[$htype]{$ref*1} = $ref; |
|
|
194 | $hook_count[$htype]++ |
|
|
195 | or set_should_invoke $htype, 1; |
|
|
196 | } |
|
|
197 | } |
|
|
198 | |
|
|
199 | my $script_pkg = "script0000"; |
|
|
200 | my %script_pkg; |
|
|
201 | |
|
|
202 | # load a single script into its own package, once only |
|
|
203 | sub script_package($) { |
|
|
204 | my ($path) = @_; |
|
|
205 | |
|
|
206 | $script_pkg{$path} ||= do { |
|
|
207 | my $pkg = "urxvt::" . ($script_pkg++); |
|
|
208 | |
|
|
209 | verbose 3, "loading script '$path' into package '$pkg'"; |
|
|
210 | |
|
|
211 | open my $fh, "<:raw", $path |
|
|
212 | or die "$path: $!"; |
|
|
213 | |
|
|
214 | my $source = "package $pkg; use strict; use utf8;\n" |
|
|
215 | . "#line 1 \"$path\"\n{\n" |
|
|
216 | . (do { local $/; <$fh> }) |
|
|
217 | . "\n};\n1"; |
|
|
218 | |
|
|
219 | eval $source or die "$path: $@"; |
|
|
220 | |
|
|
221 | $pkg |
|
|
222 | } |
|
|
223 | } |
| 171 | |
224 | |
| 172 | # called by the rxvt core |
225 | # called by the rxvt core |
| 173 | sub invoke { |
226 | sub invoke { |
| 174 | local $term = shift; |
227 | local $term = shift; |
| 175 | my $htype = shift; |
228 | my $htype = shift; |
| 176 | |
229 | |
| 177 | my $cb = $invoke_cb[$htype]; |
230 | if ($htype == 0) { # INIT |
|
|
231 | my @dirs = ((split /:/, $term->resource ("perl_lib")), "$LIBDIR/perl"); |
|
|
232 | |
|
|
233 | for my $ext (split /:/, $term->resource ("perl_ext")) { |
|
|
234 | my @files = grep -f $_, map "$_/$ext", @dirs; |
|
|
235 | |
|
|
236 | if (@files) { |
|
|
237 | register_package script_package $files[0]; |
|
|
238 | } else { |
|
|
239 | warn "perl extension '$ext' not found in perl library search path\n"; |
|
|
240 | } |
|
|
241 | } |
|
|
242 | |
|
|
243 | } elsif ($htype == 1) { # DESTROY |
|
|
244 | if (my $hook = $term->{_hook}) { |
|
|
245 | for my $htype (0..$#$hook) { |
|
|
246 | $hook_count[$htype] -= scalar keys %{ $hook->[$htype] || {} } |
|
|
247 | or set_should_invoke $htype, 0; |
|
|
248 | } |
|
|
249 | } |
|
|
250 | } |
|
|
251 | |
|
|
252 | my $cb = $term->{_hook}[$htype] |
|
|
253 | or return; |
| 178 | |
254 | |
| 179 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $term, @_) . ")" |
255 | verbose 10, "$HOOKNAME[$htype] (" . (join ", ", $term, @_) . ")" |
| 180 | if $verbosity >= 10; |
256 | if $verbosity >= 10; |
| 181 | |
257 | |
| 182 | while (my ($k, $v) = each %$cb) { |
258 | while (my ($k, $v) = each %$cb) { |
| … | |
… | |
| 184 | } |
260 | } |
| 185 | |
261 | |
| 186 | 0 |
262 | 0 |
| 187 | } |
263 | } |
| 188 | |
264 | |
| 189 | # find on_xxx subs in the package and register them |
|
|
| 190 | # as hooks |
|
|
| 191 | sub register_package($) { |
|
|
| 192 | my ($pkg) = @_; |
|
|
| 193 | |
|
|
| 194 | for my $hook (0.. $#HOOKNAME) { |
|
|
| 195 | my $name = $HOOKNAME[$hook]; |
|
|
| 196 | |
|
|
| 197 | my $ref = $pkg->can ("on_" . lc $name) |
|
|
| 198 | or next; |
|
|
| 199 | |
|
|
| 200 | $invoke_cb[$hook]{$ref*1} = $ref; |
|
|
| 201 | set_should_invoke $hook, 1; |
|
|
| 202 | } |
|
|
| 203 | } |
|
|
| 204 | |
|
|
| 205 | my $script_pkg = "script0000"; |
|
|
| 206 | my %script_pkg; |
|
|
| 207 | |
|
|
| 208 | # load a single script into its own package, once only |
|
|
| 209 | sub load_script($) { |
|
|
| 210 | my ($path) = @_; |
|
|
| 211 | |
|
|
| 212 | $script_pkg{$path} ||= do { |
|
|
| 213 | my $pkg = $script_pkg++; |
|
|
| 214 | verbose 3, "loading script '$path' into package '$pkg'"; |
|
|
| 215 | |
|
|
| 216 | open my $fh, "<:raw", $path |
|
|
| 217 | or die "$path: $!"; |
|
|
| 218 | |
|
|
| 219 | eval "package $pkg; use strict; use utf8;\n" |
|
|
| 220 | . "#line 1 \"$path\"\n" |
|
|
| 221 | . do { local $/; <$fh> } |
|
|
| 222 | or die "$path: $@"; |
|
|
| 223 | |
|
|
| 224 | register_package $pkg; |
|
|
| 225 | |
|
|
| 226 | $pkg |
|
|
| 227 | }; |
|
|
| 228 | } |
|
|
| 229 | |
|
|
| 230 | load_script $_ for grep -f $_, <$LIBDIR/perl-ext/*>; |
|
|
| 231 | |
|
|
| 232 | |
|
|
| 233 | =back |
265 | =back |
| 234 | |
266 | |
| 235 | =head2 The C<urxvt::term> Class |
267 | =head2 The C<urxvt::term> Class |
| 236 | |
268 | |
| 237 | =over 4 |
269 | =over 4 |
|
|
270 | |
|
|
271 | =item $value = $term->resource ($name[, $newval]) |
|
|
272 | |
|
|
273 | Returns the current resource value associated with a given name and |
|
|
274 | optionally sets a new value. Setting values is most useful in the C<init> |
|
|
275 | hook. Unset resources are returned and accepted as C<undef>. |
|
|
276 | |
|
|
277 | The new value must be properly encoded to a suitable character encoding |
|
|
278 | before passing it to this method. Similarly, the returned value may need |
|
|
279 | to be converted from the used encoding to text. |
|
|
280 | |
|
|
281 | Resource names are as defined in F<src/rsinc.h>. Colours can be specified |
|
|
282 | as resource names of the form C<< color+<index> >>, e.g. C<color+5>. (will |
|
|
283 | likely change). |
|
|
284 | |
|
|
285 | Please note that resource strings will currently only be freed when the |
|
|
286 | terminal is destroyed, so changing options frequently will eat memory. |
|
|
287 | |
|
|
288 | Here is a a likely non-exhaustive list of resource names, not all of which |
|
|
289 | are supported in every build, please see the source to see the actual |
|
|
290 | list: |
|
|
291 | |
|
|
292 | answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont |
|
|
293 | borderLess color cursorBlink cursorUnderline cutchars delete_key |
|
|
294 | display_name embed ext_bwidth fade font geometry hold iconName |
|
|
295 | imFont imLocale inputMethod insecure int_bwidth intensityStyles |
|
|
296 | italicFont jumpScroll lineSpace loginShell mapAlert menu meta8 modifier |
|
|
297 | mouseWheelScrollPage name pastableTabs path perl_eval perl_ext |
|
|
298 | perl_lib pointerBlank pointerBlankDelay preeditType print_pipe pty_fd |
|
|
299 | reverseVideo saveLines scrollBar scrollBar_align scrollBar_floating |
|
|
300 | scrollBar_right scrollBar_thickness scrollTtyKeypress scrollTtyOutput |
|
|
301 | scrollWithBuffer scrollstyle secondaryScreen secondaryScroll selectstyle |
|
|
302 | shade term_name title transparent transparent_all tripleclickwords |
|
|
303 | utmpInhibit visualBell |
|
|
304 | |
|
|
305 | =cut |
|
|
306 | |
|
|
307 | sub urxvt::term::resource($$;$) { |
|
|
308 | my ($self, $name) = (shift, shift); |
|
|
309 | unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); |
|
|
310 | goto &urxvt::term::_resource; |
|
|
311 | } |
| 238 | |
312 | |
| 239 | =item ($row, $col) = $term->selection_mark ([$row, $col]) |
313 | =item ($row, $col) = $term->selection_mark ([$row, $col]) |
| 240 | |
314 | |
| 241 | =item ($row, $col) = $term->selection_beg ([$row, $col]) |
315 | =item ($row, $col) = $term->selection_beg ([$row, $col]) |
| 242 | |
316 | |
| … | |
… | |
| 264 | my ($self, $x, $y, $text) = @_; |
338 | my ($self, $x, $y, $text) = @_; |
| 265 | |
339 | |
| 266 | my @lines = split /\n/, $text; |
340 | my @lines = split /\n/, $text; |
| 267 | |
341 | |
| 268 | my $w = 0; |
342 | my $w = 0; |
| 269 | for (map urxvt::wcswidth $_, @lines) { |
343 | for (map $self->strwidth ($_), @lines) { |
| 270 | $w = $_ if $w < $_; |
344 | $w = $_ if $w < $_; |
| 271 | } |
345 | } |
| 272 | |
346 | |
| 273 | $self->scr_overlay_new ($x, $y, $w, scalar @lines); |
347 | $self->scr_overlay_new ($x, $y, $w, scalar @lines); |
| 274 | $self->scr_overlay_set (0, $_, $lines[$_]) for 0.. $#lines; |
348 | $self->scr_overlay_set (0, $_, $lines[$_]) for 0.. $#lines; |
| … | |
… | |
| 291 | position. |
365 | position. |
| 292 | |
366 | |
| 293 | =item $term->scr_overlay_set ($x, $y, $text) |
367 | =item $term->scr_overlay_set ($x, $y, $text) |
| 294 | |
368 | |
| 295 | Write a string at the given position into the overlay. |
369 | Write a string at the given position into the overlay. |
|
|
370 | |
|
|
371 | =item $cellwidth = $term->strwidth $string |
|
|
372 | |
|
|
373 | Returns the number of screen-cells this string would need. Correctly |
|
|
374 | accounts for wide and combining characters. |
|
|
375 | |
|
|
376 | =item $octets = $term->locale_encode $string |
|
|
377 | |
|
|
378 | Convert the given text string into the corresponding locale encoding. |
|
|
379 | |
|
|
380 | =item $string = $term->locale_decode $octets |
|
|
381 | |
|
|
382 | Convert the given locale-encoded octets into a perl string. |
|
|
383 | |
|
|
384 | =item $term->tt_write ($octets) |
|
|
385 | |
|
|
386 | Write the octets given in C<$data> to the tty (i.e. as program input). To |
|
|
387 | pass characters instead of octets, you should convetr you strings first to |
|
|
388 | the locale-specific encoding using C<< $term->locale_encode >>. |
| 296 | |
389 | |
| 297 | =back |
390 | =back |
| 298 | |
391 | |
| 299 | =head2 The C<urxvt::timer> Class |
392 | =head2 The C<urxvt::timer> Class |
| 300 | |
393 | |
| … | |
… | |
| 391 | |
484 | |
| 392 | Stop watching for events on the given filehandle. |
485 | Stop watching for events on the given filehandle. |
| 393 | |
486 | |
| 394 | =back |
487 | =back |
| 395 | |
488 | |
|
|
489 | =head1 ENVIRONMENT |
|
|
490 | |
|
|
491 | =head2 URXVT_PERL_VERBOSITY |
|
|
492 | |
|
|
493 | This variable controls the verbosity level of the perl extension. Higher |
|
|
494 | numbers indicate more verbose output. |
|
|
495 | |
|
|
496 | =over 4 |
|
|
497 | |
|
|
498 | =item 0 - only fatal messages |
|
|
499 | |
|
|
500 | =item 3 - script loading and management |
|
|
501 | |
|
|
502 | =item 10 - all events received |
|
|
503 | |
|
|
504 | =back |
|
|
505 | |
| 396 | =head1 AUTHOR |
506 | =head1 AUTHOR |
| 397 | |
507 | |
| 398 | Marc Lehmann <pcg@goof.com> |
508 | Marc Lehmann <pcg@goof.com> |
| 399 | http://software.schmorp.de/pkg/rxvt-unicode |
509 | http://software.schmorp.de/pkg/rxvt-unicode |
| 400 | |
510 | |
