ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/urxvt.pm
(Generate patch)

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.72 by root, Mon Jan 9 23:30:01 2006 UTC vs.
Revision 1.84 by root, Thu Jan 12 02:20:56 2006 UTC

26thus must be encoded as UTF-8. 26thus must be encoded as UTF-8.
27 27
28Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where 28Each script will only ever be loaded once, even in @@RXVT_NAME@@d, where
29scripts will be shared (but not enabled) for all terminals. 29scripts will be shared (but not enabled) for all terminals.
30 30
31=head2 Prepackaged Extensions 31=head1 PREPACKAGED EXTENSIONS
32 32
33This section describes the extensiosn delivered with this version. You can 33This section describes the extensions delivered with this release. You can
34find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>. 34find them in F<@@RXVT_LIBDIR@@/urxvt/perl/>.
35 35
36You can activate them like this: 36You can activate them like this:
37 37
38 @@RXVT_NAME@@ -pe <extensionname> 38 @@RXVT_NAME@@ -pe <extensionname>
39 39
40=over 4 40=over 4
41 41
42=item selection (enabled by default) 42=item selection (enabled by default)
43 43
44Intelligent selection. This extension tries to be more intelligent when 44(More) intelligent selection. This extension tries to be more intelligent
45the user extends selections (double-click). Right now, it tries to select 45when the user extends selections (double-click). Right now, it tries to
46urls and complete shell-quoted arguments, which is very convenient, too, 46select urls and complete shell-quoted arguments, which is very convenient,
47if your F<ls> supports C<--quoting-style=shell>. 47too, if your F<ls> supports C<--quoting-style=shell>.
48 48
49It also offers the following bindable event: 49It also offers the following bindable keyboard command:
50 50
51=over 4 51=over 4
52 52
53=item rot13 53=item rot13
54 54
64runtime. 64runtime.
65 65
66=item selection-popup (enabled by default) 66=item selection-popup (enabled by default)
67 67
68Binds a popup menu to Ctrl-Button3 that lets you convert the selection 68Binds a popup menu to Ctrl-Button3 that lets you convert the selection
69text into various other formats/action. 69text into various other formats/action (such as uri unescaping, perl
70evalution, web-browser starting etc.), depending on content.
70 71
71=item searchable-scrollback (enabled by default) 72=item searchable-scrollback<hotkey> (enabled by default)
72 73
73Adds regex search functionality to the scrollback buffer, triggered by a 74Adds regex search functionality to the scrollback buffer, triggered
74hotkey (default: C<M-s>). When in search mode, terminal input/output is 75by a hotkey (default: C<M-s>). When in search mode, normal terminal
76input/output is suspended.
77
75suspended, C</> starts an incremental regex search, C<n> searches further, 78C</> starts an incremental regex search, C<n> searches further, C<p> or
76C<p> jumps to the previous match. C<enter> leaves search mode at the 79C<N> jump to the previous match, C<G> jumps to the bottom and clears the
77current position and C<escape> returns to the original position. 80history, C<enter> leaves search mode at the current position and C<escape>
81returns to the original position.
78 82
79=item digital-clock 83=item digital-clock
80 84
81Displays a digital clock using the built-in overlay. 85Displays a digital clock using the built-in overlay.
82 86
83=item mark-urls 87=item mark-urls
84 88
85Uses per-line display filtering (C<on_line_update>) to underline urls. 89Uses per-line display filtering (C<on_line_update>) to underline urls and
90make them clickable. When middle-clicked, the program specified in the
91resource C<urlLauncher> (default C<x-www-browser>) will be started.
86 92
87=item block-graphics-to-ascii 93=item block-graphics-to-ascii
88 94
89A not very useful example of filtering all text output to the terminal, 95A not very useful example of filtering all text output to the terminal,
90by replacing all line-drawing characters (U+2500 .. U+259F) by a 96by replacing all line-drawing characters (U+2500 .. U+259F) by a
95Displays a very simple digital clock in the upper right corner of the 101Displays a very simple digital clock in the upper right corner of the
96window. Illustrates overwriting the refresh callbacks to create your own 102window. Illustrates overwriting the refresh callbacks to create your own
97overlays or changes. 103overlays or changes.
98 104
99=back 105=back
106
107=head1 API DOCUMENTATION
100 108
101=head2 General API Considerations 109=head2 General API Considerations
102 110
103All objects (such as terminals, time watchers etc.) are typical 111All objects (such as terminals, time watchers etc.) are typical
104reference-to-hash objects. The hash can be used to store anything you 112reference-to-hash objects. The hash can be used to store anything you
117=over 4 125=over 4
118 126
119=item $text 127=item $text
120 128
121Rxvt-unicodes special way of encoding text, where one "unicode" character 129Rxvt-unicodes special way of encoding text, where one "unicode" character
122always represents one screen cell. See L<row_t> for a discussion of this format. 130always represents one screen cell. See L<ROW_t> for a discussion of this format.
123 131
124=item $string 132=item $string
125 133
126A perl text string, with an emphasis on I<text>. It can store all unicode 134A perl text string, with an emphasis on I<text>. It can store all unicode
127characters and is to be distinguished with text encoded in a specific 135characters and is to be distinguished with text encoded in a specific
337 345
338subwindow. 346subwindow.
339 347
340=back 348=back
341 349
342=head2 Variables in the C<urxvt> Package
343
344=over 4
345
346=item $urxvt::TERM
347
348The current terminal. This variable stores the current C<urxvt::term>
349object, whenever a callback/hook is executing.
350
351=back
352
353=head2 Functions in the C<urxvt> Package
354
355=over 4
356
357=item $term = new urxvt [arg...]
358
359Creates a new terminal, very similar as if you had started it with
360C<system $binfile, arg...>. Croaks (and probably outputs an error message)
361if the new instance couldn't be created. Returns C<undef> if the new
362instance didn't initialise perl, and the terminal object otherwise. The
363C<init> and C<start> hooks will be called during the call.
364
365=item urxvt::fatal $errormessage
366
367Fatally aborts execution with the given error message. Avoid at all
368costs! The only time this is acceptable is when the terminal process
369starts up.
370
371=item urxvt::warn $string
372
373Calls C<rxvt_warn> with the given string which should not include a
374newline. The module also overwrites the C<warn> builtin with a function
375that calls this function.
376
377Using this function has the advantage that its output ends up in the
378correct place, e.g. on stderr of the connecting urxvtc client.
379
380=item $is_safe = urxvt::safe
381
382Returns true when it is safe to do potentially unsafe things, such as
383evaluating perl code specified by the user. This is true when urxvt was
384started setuid or setgid.
385
386=item $time = urxvt::NOW
387
388Returns the "current time" (as per the event loop).
389
390=item urxvt::CurrentTime
391
392=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
393Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
394Button4Mask, Button5Mask, AnyModifier
395
396Various constants for use in X calls and event processing.
397
398=back
399
400=head2 RENDITION
401
402Rendition bitsets contain information about colour, font, font styles and
403similar information for each screen cell.
404
405The following "macros" deal with changes in rendition sets. You should
406never just create a bitset, you should always modify an existing one,
407as they contain important information required for correct operation of
408rxvt-unicode.
409
410=over 4
411
412=item $rend = urxvt::DEFAULT_RSTYLE
413
414Returns the default rendition, as used when the terminal is starting up or
415being reset. Useful as a base to start when creating renditions.
416
417=item $rend = urxvt::OVERLAY_RSTYLE
418
419Return the rendition mask used for overlays by default.
420
421=item $rendbit = urxvt::RS_Bold, RS_Italic, RS_Blink, RS_RVid, RS_Uline
422
423Return the bit that enabled bold, italic, blink, reverse-video and
424underline, respectively. To enable such a style, just logically OR it into
425the bitset.
426
427=item $foreground = urxvt::GET_BASEFG $rend
428
429=item $background = urxvt::GET_BASEBG $rend
430
431Return the foreground/background colour index, respectively.
432
433=item $rend = urxvt::SET_FGCOLOR ($rend, $new_colour)
434
435=item $rend = urxvt::SET_BGCOLOR ($rend, $new_colour)
436
437Replace the foreground/background colour in the rendition mask with the
438specified one.
439
440=item $value = urxvt::GET_CUSTOM ($rend)
441
442Return the "custom" value: Every rendition has 5 bits for use by
443extensions. They can be set and changed as you like and are initially
444zero.
445
446=item $rend = urxvt::SET_CUSTOM ($rend, $new_value)
447
448Change the custom value.
449
450=back
451
452=cut 350=cut
453 351
454package urxvt; 352package urxvt;
455 353
456use utf8; 354use utf8;
462our $VERSION = 1; 360our $VERSION = 1;
463our $TERM; 361our $TERM;
464our @HOOKNAME; 362our @HOOKNAME;
465our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME; 363our %HOOKTYPE = map +($HOOKNAME[$_] => $_), 0..$#HOOKNAME;
466our %OPTION; 364our %OPTION;
365
467our $LIBDIR; 366our $LIBDIR;
367our $RESNAME;
368our $RESCLASS;
369our $RXVTNAME;
370
371=head2 Variables in the C<urxvt> Package
372
373=over 4
374
375=item $urxvt::LIBDIR
376
377The rxvt-unicode library directory, where, among other things, the perl
378modules and scripts are stored.
379
380=item $urxvt::RESCLASS, $urxvt::RESCLASS
381
382The resource class and name rxvt-unicode uses to look up X resources.
383
384=item $urxvt::RXVTNAME
385
386The basename of the installed binaries, usually C<urxvt>.
387
388=item $urxvt::TERM
389
390The current terminal. This variable stores the current C<urxvt::term>
391object, whenever a callback/hook is executing.
392
393=back
394
395=head2 Functions in the C<urxvt> Package
396
397=over 4
398
399=item urxvt::fatal $errormessage
400
401Fatally aborts execution with the given error message. Avoid at all
402costs! The only time this is acceptable is when the terminal process
403starts up.
404
405=item urxvt::warn $string
406
407Calls C<rxvt_warn> with the given string which should not include a
408newline. The module also overwrites the C<warn> builtin with a function
409that calls this function.
410
411Using this function has the advantage that its output ends up in the
412correct place, e.g. on stderr of the connecting urxvtc client.
413
414Messages have a size limit of 1023 bytes currently.
415
416=item $is_safe = urxvt::safe
417
418Returns true when it is safe to do potentially unsafe things, such as
419evaluating perl code specified by the user. This is true when urxvt was
420started setuid or setgid.
421
422=item $time = urxvt::NOW
423
424Returns the "current time" (as per the event loop).
425
426=item urxvt::CurrentTime
427
428=item urxvt::ShiftMask, LockMask, ControlMask, Mod1Mask, Mod2Mask,
429Mod3Mask, Mod4Mask, Mod5Mask, Button1Mask, Button2Mask, Button3Mask,
430Button4Mask, Button5Mask, AnyModifier
431
432Various constants for use in X calls and event processing.
433
434=back
435
436=head2 RENDITION
437
438Rendition bitsets contain information about colour, font, font styles and
439similar information for each screen cell.
440
441The following "macros" deal with changes in rendition sets. You should
442never just create a bitset, you should always modify an existing one,
443as they contain important information required for correct operation of
444rxvt-unicode.
445
446=over 4
447
448=item $rend = urxvt::DEFAULT_RSTYLE
449
450Returns the default rendition, as used when the terminal is starting up or
451being reset. Useful as a base to start when creating renditions.
452
453=item $rend = urxvt::OVERLAY_RSTYLE
454
455Return the rendition mask used for overlays by default.
456
457=item $rendbit = urxvt::RS_Bold, RS_Italic, RS_Blink, RS_RVid, RS_Uline
458
459Return the bit that enabled bold, italic, blink, reverse-video and
460underline, respectively. To enable such a style, just logically OR it into
461the bitset.
462
463=item $foreground = urxvt::GET_BASEFG $rend
464
465=item $background = urxvt::GET_BASEBG $rend
466
467Return the foreground/background colour index, respectively.
468
469=item $rend = urxvt::SET_FGCOLOR $rend, $new_colour
470
471=item $rend = urxvt::SET_BGCOLOR $rend, $new_colour
472
473Replace the foreground/background colour in the rendition mask with the
474specified one.
475
476=item $value = urxvt::GET_CUSTOM $rend
477
478Return the "custom" value: Every rendition has 5 bits for use by
479extensions. They can be set and changed as you like and are initially
480zero.
481
482=item $rend = urxvt::SET_CUSTOM $rend, $new_value
483
484Change the custom value.
485
486=back
487
488=cut
468 489
469BEGIN { 490BEGIN {
470 urxvt->bootstrap; 491 urxvt->bootstrap;
471 492
472 # overwrite perl's warn 493 # overwrite perl's warn
475 $msg .= "\n" 496 $msg .= "\n"
476 unless $msg =~ /\n$/; 497 unless $msg =~ /\n$/;
477 urxvt::warn ($msg); 498 urxvt::warn ($msg);
478 }; 499 };
479 500
501 # %ENV is the original startup environment
480 delete $ENV{IFS}; 502 delete $ENV{IFS};
481 delete $ENV{CDPATH}; 503 delete $ENV{CDPATH};
482 delete $ENV{BASH_ENV}; 504 delete $ENV{BASH_ENV};
483 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin"; 505 $ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:/opt/bin:/opt/sbin";
484} 506}
593 } 615 }
594 616
595 $retval 617 $retval
596} 618}
597 619
620sub exec_async(@) {
621 my $pid = fork;
622
623 return
624 if !defined $pid or $pid;
625
626 %ENV = %{ $TERM->env };
627
628 exec @_;
629 _exit 255;
630}
631
598# urxvt::term::extension 632# urxvt::term::extension
599 633
600package urxvt::term::extension; 634package urxvt::term::extension;
601 635
602sub enable { 636sub enable {
668 702
669=head2 The C<urxvt::anyevent> Class 703=head2 The C<urxvt::anyevent> Class
670 704
671The sole purpose of this class is to deliver an interface to the 705The sole purpose of this class is to deliver an interface to the
672C<AnyEvent> module - any module using it will work inside urxvt without 706C<AnyEvent> module - any module using it will work inside urxvt without
673further work. The only exception is that you cannot wait on condition 707further programming. The only exception is that you cannot wait on
674variables, but non-blocking condvar use is ok. What this means is that you 708condition variables, but non-blocking condvar use is ok. What this means
675cannot use blocking APIs, but the non-blocking variant should work. 709is that you cannot use blocking APIs, but the non-blocking variant should
710work.
676 711
677=cut 712=cut
678 713
679our $VERSION = 1; 714our $VERSION = 1;
680 715
757 $proxy->enable ($name => $ref); 792 $proxy->enable ($name => $ref);
758 } 793 }
759 } 794 }
760} 795}
761 796
797=item $term = new urxvt::term $envhashref, $rxvtname, [arg...]
798
799Creates a new terminal, very similar as if you had started it with system
800C<$rxvtname, arg...>. C<$envhashref> must be a reference to a C<%ENV>-like
801hash which defines the environment of the new terminal.
802
803Croaks (and probably outputs an error message) if the new instance
804couldn't be created. Returns C<undef> if the new instance didn't
805initialise perl, and the terminal object otherwise. The C<init> and
806C<start> hooks will be called during this call.
807
808=cut
809
810sub new {
811 my ($class, $env, @args) = @_;
812
813 _new ([ map "$_=$env->{$_}", keys %$env ], @args);
814}
815
762=item $term->destroy 816=item $term->destroy
763 817
764Destroy the terminal object (close the window, free resources etc.). 818Destroy the terminal object (close the window, free resources
819etc.). Please note that @@RXVT_NAME@@ will not exit as long as any event
820watchers (timers, io watchers) are still active.
765 821
766=item $isset = $term->option ($optval[, $set]) 822=item $isset = $term->option ($optval[, $set])
767 823
768Returns true if the option specified by C<$optval> is enabled, and 824Returns true if the option specified by C<$optval> is enabled, and
769optionally change it. All option values are stored by name in the hash 825optionally change it. All option values are stored by name in the hash
819 my ($self, $name) = (shift, shift); 875 my ($self, $name) = (shift, shift);
820 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0); 876 unshift @_, $self, $name, ($name =~ s/\s*\+\s*(\d+)$// ? $1 : 0);
821 &urxvt::term::_resource 877 &urxvt::term::_resource
822} 878}
823 879
880=item $value = $term->x_resource ($pattern)
881
882Returns the X-Resource for the given pattern, excluding the program or
883class name, i.e. C<< $term->x_resource ("boldFont") >> should return the
884same value as used by this instance of rxvt-unicode. Returns C<undef> if no
885resource with that pattern exists.
886
887This method should only be called during the C<on_start> hook, as there is
888only one resource database per display, and later invocations might return
889the wrong resources.
890
824=item $success = $term->parse_keysym ($keysym_spec, $command_string) 891=item $success = $term->parse_keysym ($keysym_spec, $command_string)
825 892
826Adds a keymap translation exactly as specified via a resource. See the 893Adds a keymap translation exactly as specified via a resource. See the
827C<keysym> resource in the @@RXVT_NAME@@(1) manpage. 894C<keysym> resource in the @@RXVT_NAME@@(1) manpage.
828 895
1027 1094
1028=item $lines_in_scrollback = $term->nsaved 1095=item $lines_in_scrollback = $term->nsaved
1029 1096
1030Return various integers describing terminal characteristics. 1097Return various integers describing terminal characteristics.
1031 1098
1099=item $x_display = $term->display_id
1100
1101Return the DISPLAY used by rxvt-unicode.
1102
1032=item $lc_ctype = $term->locale 1103=item $lc_ctype = $term->locale
1033 1104
1034Returns the LC_CTYPE category string used by this rxvt-unicode. 1105Returns the LC_CTYPE category string used by this rxvt-unicode.
1035 1106
1036=item $x_display = $term->display_id 1107=item $env = $term->env
1037 1108
1038Return the DISPLAY used by rxvt-unicode. 1109Returns a copy of the environment in effect for the terminal as a hashref
1110similar to C<\%ENV>.
1111
1112=cut
1113
1114sub env {
1115 if (my $env = $_[0]->_env) {
1116 +{ map /^([^=]+)(?:=(.*))?$/s && ($1 => $2), @$env }
1117 } else {
1118 +{ %ENV }
1119 }
1120}
1039 1121
1040=item $modifiermask = $term->ModLevel3Mask 1122=item $modifiermask = $term->ModLevel3Mask
1041 1123
1042=item $modifiermask = $term->ModMetaMask 1124=item $modifiermask = $term->ModMetaMask
1043 1125
1283 $item->{render} ||= sub { $_[0]{text} }; 1365 $item->{render} ||= sub { $_[0]{text} };
1284 1366
1285 push @{ $self->{item} }, $item; 1367 push @{ $self->{item} }, $item;
1286} 1368}
1287 1369
1370=item $popup->add_title ($title)
1371
1372Adds a non-clickable title to the popup.
1373
1374=cut
1375
1376sub add_title {
1377 my ($self, $title) = @_;
1378
1379 $self->add_item ({
1380 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" },
1381 text => $title,
1382 activate => sub { },
1383 });
1384}
1385
1386=item $popup->add_separator ([$sepchr])
1387
1388Creates a separator, optionally using the character given as C<$sepchr>.
1389
1390=cut
1391
1288sub add_separator { 1392sub add_separator {
1289 my ($self, $sep) = @_; 1393 my ($self, $sep) = @_;
1290 1394
1291 $sep ||= "="; 1395 $sep ||= "=";
1292 1396
1296 render => sub { $sep x $self->{term}->ncol }, 1400 render => sub { $sep x $self->{term}->ncol },
1297 activate => sub { }, 1401 activate => sub { },
1298 }); 1402 });
1299} 1403}
1300 1404
1301sub add_title { 1405=item $popup->add_button ($text, $cb)
1302 my ($self, $title) = @_;
1303 1406
1304 $self->add_item ({ 1407Adds a clickable button to the popup. C<$cb> is called whenever it is
1305 rend => { normal => "\x1b[38;5;11;44m", hover => "\x1b[38;5;11;44m", active => "\x1b[38;5;11;44m" }, 1408selected.
1306 text => $title, 1409
1307 activate => sub { }, 1410=cut
1308 });
1309}
1310 1411
1311sub add_button { 1412sub add_button {
1312 my ($self, $text, $cb) = @_; 1413 my ($self, $text, $cb) = @_;
1313 1414
1314 $self->add_item ({ type => "button", text => $text, activate => $cb}); 1415 $self->add_item ({ type => "button", text => $text, activate => $cb});
1315} 1416}
1417
1418=item $popup->add_toggle ($text, $cb, $initial_value)
1419
1420Adds a toggle/checkbox item to the popup. Teh callback gets called
1421whenever it gets toggled, with a boolean indicating its value as its first
1422argument.
1423
1424=cut
1316 1425
1317sub add_toggle { 1426sub add_toggle {
1318 my ($self, $text, $cb, $value) = @_; 1427 my ($self, $text, $cb, $value) = @_;
1319 1428
1320 my $item; $item = { 1429 my $item; $item = {
1321 type => "button", 1430 type => "button",
1322 text => " $text", 1431 text => " $text",
1323 value => $value, 1432 value => $value,
1324 render => sub { ($_[0]{value} ? "* " : " ") . $text }, 1433 render => sub { ($_[0]{value} ? "* " : " ") . $text },
1325 activate => sub { $cb->($_[0]{value} = !$_[0]{value}); }, 1434 activate => sub { $cb->($_[1]{value} = !$_[1]{value}); },
1326 }; 1435 };
1327 1436
1328 $self->add_item ($item); 1437 $self->add_item ($item);
1329} 1438}
1439
1440=item $popup->show
1441
1442Displays the popup (which is initially hidden).
1443
1444=cut
1330 1445
1331sub show { 1446sub show {
1332 my ($self) = @_; 1447 my ($self) = @_;
1333 1448
1334 local $urxvt::popup::self = $self; 1449 local $urxvt::popup::self = $self;
1335 1450
1451 my $env = $self->{term}->env;
1452 # we can't hope to reproduce the locale algorithm, so nuke LC_ALL and set LC_CTYPE.
1453 delete $env->{LC_ALL};
1336 local $ENV{LC_ALL} = $self->{term}->locale; 1454 $env->{LC_CTYPE} = $self->{term}->locale;
1337 1455
1456 urxvt::term->new ($env, $self->{term}->resource ("name"),
1338 urxvt->new ("--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0, 1457 "--perl-lib" => "", "--perl-ext-common" => "", "-pty-fd" => -1, "-sl" => 0, "-b" => 0,
1339 "--transient-for" => $self->{term}->parent, 1458 "--transient-for" => $self->{term}->parent,
1340 "-display" => $self->{term}->display_id, 1459 "-display" => $self->{term}->display_id,
1341 "-pe" => "urxvt-popup") 1460 "-pe" => "urxvt-popup")
1342 or die "unable to create popup window\n"; 1461 or die "unable to create popup window\n";
1343} 1462}
1344 1463
1345sub DESTROY { 1464sub DESTROY {
1346 my ($self) = @_; 1465 my ($self) = @_;
1347 1466
1348 delete $self->{term}{_destroy}{$self}; 1467 delete $self->{term}{_destroy}{$self};
1349 $self->{term}->ungrab; 1468 $self->{term}->ungrab;
1350} 1469}
1470
1471=back
1351 1472
1352=head2 The C<urxvt::timer> Class 1473=head2 The C<urxvt::timer> Class
1353 1474
1354This class implements timer watchers/events. Time is represented as a 1475This class implements timer watchers/events. Time is represented as a
1355fractional number of seconds since the epoch. Example: 1476fractional number of seconds since the epoch. Example:

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines