Home | History | Annotate | Download | only in vttests

Lines Matching refs:reply

78     my $reply = <TTY>;
81     if ( defined $reply ) {
82         die("^C received\n") if ( "$reply" eq "\003" );
84     return $reply;
107     my $reply = &get_reply( "\x1bP+Q" . join( ';', @query_params ) . "\x1b\\" );
109     return unless defined $reply;
110     while ( $reply =~ /\x1bP1\+R[[:xdigit:]]+[=;][[:xdigit:]]*.*\x1b\\/ ) {
114         $reply =~ s/^\x1bP1\+R//;
115         $parse = $reply;
116         $reply =~ s/\x1b\\.*$//;
117         $parse = substr( $parse, length($reply) );
124         for ( $n = 0 ; $n < length($reply) ; ) {
125             my $c = substr( $reply, $n, 1 );
149                 my $k = hex substr( $reply, $n, 2 );
172         $reply = $parse;