… | |
… | |
127 | .\} |
127 | .\} |
128 | .rm #[ #] #H #V #F C |
128 | .rm #[ #] #H #V #F C |
129 | .\" ======================================================================== |
129 | .\" ======================================================================== |
130 | .\" |
130 | .\" |
131 | .IX Title "rxvt 1" |
131 | .IX Title "rxvt 1" |
132 | .TH rxvt 1 "2005-02-17" "5.2" "RXVT-UNICODE" |
132 | .TH rxvt 1 "2005-02-18" "5.2" "RXVT-UNICODE" |
133 | .SH "NAME" |
133 | .SH "NAME" |
134 | rxvt\-unicode (ouR XVT, unicode) \- (a VT102 emulator for the X window system) |
134 | rxvt\-unicode (ouR XVT, unicode) \- (a VT102 emulator for the X window system) |
135 | .SH "SYNOPSIS" |
135 | .SH "SYNOPSIS" |
136 | .IX Header "SYNOPSIS" |
136 | .IX Header "SYNOPSIS" |
137 | \&\fB@@RXVT_NAME@@\fR [options] [\-e command [ args ]] |
137 | \&\fB@@RXVT_NAME@@\fR [options] [\-e command [ args ]] |
… | |
… | |
494 | .Vb 2 |
494 | .Vb 2 |
495 | \& use IO::Pty; |
495 | \& use IO::Pty; |
496 | \& use Fcntl; |
496 | \& use Fcntl; |
497 | .Ve |
497 | .Ve |
498 | .Sp |
498 | .Sp |
499 | .Vb 2 |
499 | .Vb 4 |
500 | \& my $pty = new IO::Pty; |
500 | \& my $pty = new IO::Pty; |
501 | \& fcntl $pty, F_SETFD, 0; # clear close-on-exec |
501 | \& fcntl $pty, F_SETFD, 0; # clear close-on-exec |
502 | .Ve |
|
|
503 | .Sp |
|
|
504 | .Vb 1 |
|
|
505 | \& system "@@RXVT_NAME@@ -pty-fd " . (fileno $pty) . "&"; |
502 | \& system "@@RXVT_NAME@@ -pty-fd " . (fileno $pty) . "&"; |
|
|
503 | \& close $pty; |
506 | .Ve |
504 | .Ve |
507 | .Sp |
505 | .Sp |
508 | .Vb 3 |
506 | .Vb 3 |
509 | \& # now communicate with rxvt |
507 | \& # now communicate with rxvt |
510 | \& my $slave = $pty->slave; |
508 | \& my $slave = $pty->slave; |