aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/programs/xterm/vttests/tcapquery.pl
diff options
context:
space:
mode:
Diffstat (limited to 'nx-X11/programs/xterm/vttests/tcapquery.pl')
-rwxr-xr-xnx-X11/programs/xterm/vttests/tcapquery.pl162
1 files changed, 0 insertions, 162 deletions
diff --git a/nx-X11/programs/xterm/vttests/tcapquery.pl b/nx-X11/programs/xterm/vttests/tcapquery.pl
deleted file mode 100755
index 0cd5d9f64..000000000
--- a/nx-X11/programs/xterm/vttests/tcapquery.pl
+++ /dev/null
@@ -1,162 +0,0 @@
-#!/usr/bin/perl
-# $XFree86: xc/programs/xterm/vttests/tcapquery.pl,v 1.2 2005/09/18 23:48:14 dickey Exp $
-#
-# -- Thomas Dickey (2004/3/3)
-# Test the tcap-query option of xterm.
-
-use strict;
-
-use IO::Handle;
-
-sub write_tty {
- open TTY, "+</dev/tty" or die("Cannot open /dev/tty\n");
- autoflush TTY 1;
- print TTY @_;
- close TTY;
-}
-
-sub get_reply {
- open TTY, "+</dev/tty" or die("Cannot open /dev/tty\n");
- autoflush TTY 1;
- my $old=`stty -g`;
- system "stty raw -echo min 0 time 5";
-
- print TTY @_;
- my $reply=<TTY>;
- close TTY;
- system "stty $old";
- return $reply;
-}
-
-sub csi_field {
- my $first = @_[0];
- my $second = @_[1];
- $first =~ s/^[^0-9]+//;
- while ( --$second > 0 ) {
- $first =~ s/^[\d]+//;
- $first =~ s/^[^\d]+//;
- }
- $first =~ s/[^\d]+.*$//;
- return $first;
-}
-
-sub hexified {
- my $value = @_[0];
- my $result = "";
- my $n;
-
- for ( $n = 0; $n < length($value); ++$n) {
- $result .= sprintf("%02X", ord substr($value,$n,1));
- }
- return $result;
-}
-
-sub query_tcap {
- my $tcap = @_[0];
- my $tinfo = @_[1];
- my $param1 = hexified($tcap);
- my $param2 = hexified($tinfo);
-
- # uncomment one of the following lines
- my $reply=get_reply("\x1bP+q" . $param1 . ";" . $param2 . "\x1b\\");
- #my $reply=get_reply("\x1bP+q" . $param2 . "\x1b\\");
-
- if ( $reply =~ /\x1bP1\+r[[:xdigit:]]+=[[:xdigit:]]*.*/ ) {
- my $value = $reply;
- my $n;
-
- $value =~ s/^\x1bP1\+r//;
- $value =~ s/\x1b\\//;
-
- my $result = "";
- for ( $n = 0; $n < length($value); ) {
- my $c = substr($value,$n,1);
- # handle semicolon and equals
- if ( $c =~ /[[:punct:]]/ ) {
- $n += 1;
- $result .= $c;
- } else {
- # handle hex-data
- my $k = hex substr($value,$n,2);
- if ( $k == 0x1b ) {
- $result .= "\\E";
- } elsif ( $k == 0x7f ) {
- $result .= "^?";
- } elsif ( $k == 32 ) {
- $result .= "\\s";
- } elsif ( $k < 32 ) {
- $result .= sprintf("^%c", $k + 64);
- } elsif ( $k > 128 ) {
- $result .= sprintf("\\%03o", $k);
- } else {
- $result .= chr($k);
- }
- $n += 2;
- }
- }
-
- printf "$result\n";
- }
-}
-
-# See xtermcapKeycode()
-query_tcap( "#2", "kHOM");
-query_tcap( "#4", "kLFT");
-query_tcap( "%1", "khlp");
-query_tcap( "%i", "kRIT");
-query_tcap( "*6", "kslt");
-query_tcap( "*7", "kEND");
-query_tcap( "@0", "kfnd");
-query_tcap( "@7", "kend");
-query_tcap( "F1", "kf11");
-query_tcap( "F2", "kf12");
-query_tcap( "F3", "kf13");
-query_tcap( "F4", "kf14");
-query_tcap( "F5", "kf15");
-query_tcap( "F6", "kf16");
-query_tcap( "F7", "kf17");
-query_tcap( "F8", "kf18");
-query_tcap( "F9", "kf19");
-query_tcap( "FA", "kf20");
-query_tcap( "FB", "kf21");
-query_tcap( "FC", "kf22");
-query_tcap( "FD", "kf23");
-query_tcap( "FE", "kf24");
-query_tcap( "FF", "kf25");
-query_tcap( "FG", "kf26");
-query_tcap( "FH", "kf27");
-query_tcap( "FI", "kf28");
-query_tcap( "FJ", "kf29");
-query_tcap( "FK", "kf30");
-query_tcap( "FL", "kf31");
-query_tcap( "FM", "kf32");
-query_tcap( "FN", "kf33");
-query_tcap( "FO", "kf34");
-query_tcap( "FP", "kf35");
-query_tcap( "FQ", "kf36");
-query_tcap( "FR", "kf37");
-query_tcap( "K1", "ka1");
-query_tcap( "K4", "kc1");
-query_tcap( "k1", "kf1");
-query_tcap( "k2", "kf2");
-query_tcap( "k3", "kf3");
-query_tcap( "k4", "kf4");
-query_tcap( "k5", "kf5");
-query_tcap( "k6", "kf6");
-query_tcap( "k7", "kf7");
-query_tcap( "k8", "kf8");
-query_tcap( "k9", "kf9");
-query_tcap( "k;", "kf10");
-query_tcap( "kB", "kcbt");
-query_tcap( "kC", "kclr");
-query_tcap( "kD", "kdch1");
-query_tcap( "kI", "kich1");
-query_tcap( "kN", "knp");
-query_tcap( "kP", "kpp");
-query_tcap( "kb", "kbs");
-query_tcap( "kd", "kcud1");
-query_tcap( "kh", "khome");
-query_tcap( "kl", "kcub1");
-query_tcap( "kr", "kcuf1");
-query_tcap( "ku", "kcuu1");
-query_tcap( "Co", "colors");