Lines Matching refs:result
77 my $result = "";
81 $result .= sprintf( "%02X", ord substr( $value, $n, 1 ) );
83 return $result;
88 my $result = "";
96 $result = decode( &ReadUTF8 ? "utf-8" : "iso-8859-1", $octets );
99 $result = $value;
101 return $result;
110 my $result = "";
114 $result .= "\\\\";
117 $result .= "\\E";
120 $result .= "^?";
123 $result .= "\\s";
126 $result .= sprintf( "^%c", $c + 64 );
129 $result .= sprintf( "\\%03o", $c );
132 $result .= chr($c);
136 printf "%s\r\n", $result;
241 my $result;
244 $result = $cmd_buffer[ $cmd_index++ ];
247 $result = "q";
249 return $result;
253 my $result;
255 $result = &get_cmd();
256 if ( index( $result, "char:" ) == 0 ) {
257 $result = substr( $result, 5 );
260 $result = "q";
264 $result = ReadKey 0;
266 printf $log_fp "char:%s\n", $result if ($opt_l);
267 return $result;
271 my $result;
273 $result = &get_cmd();
274 if ( index( $result, "line:" ) == 0 ) {
275 $result = substr( $result, 5 );
278 $result = "";
283 $result = ReadLine 0;
284 chomp $result;
287 printf $log_fp "line:%s\n", $result if ($opt_l);
288 return $result;
293 my @result;
296 @result = <$fp>;
298 chomp @result;
300 return @result;
305 my $result = "";
307 $result .= "put" if ( ( $modes & 3 ) == 1 );
308 $result .= "get" if ( ( $modes & 3 ) == 2 );
309 $result .= "p/q" if ( ( $modes & 3 ) == 3 );
310 $result .= " hex";
314 $result .= "," unless ( $result eq "" );
315 $result .= "put" if ( ( $modes & 3 ) == 1 );
316 $result .= "get" if ( ( $modes & 3 ) == 2 );
317 $result .= "p/q" if ( ( $modes & 3 ) == 3 );
318 $result .= " utf";
320 $result = "default" if ( $result eq "" );
321 return $result;
327 my $result = "";
328 $result = "set window/icon labels using hexadecimal" if ( $mode == 0 );
329 $result = "query window/icon labels using hexadecimal" if ( $mode == 1 );
330 $result = "set window/icon labels using UTF-8" if ( $mode == 2 );
331 $result = "query window/icon labels using UTF-8" if ( $mode == 3 );
332 $result = "do not " . $result if ( $set == 0 and $result ne "" );
333 return $result;
339 my $result = "?";
340 while ( $result !~ /^[0123]$/ ) {
341 $result = &get_char;
342 if ( $result eq "q" ) {
343 $result = -1;
346 elsif ( $result eq "?" and not $help ) {
354 if ( $result >= 0 ) {
355 printf "[%s]\r\n\t:", &which_tmode( $set, $result );
357 return $result;
362 my $result = "";
363 $result = "both" if ( $code == 0 );
364 $result = "icon" if ( $code == 1 );
365 $result = "name" if ( $code == 2 );
366 return $result;
371 my $result = "";
372 $result = "both titles" if ( $code == 0 );
373 $result = "icon title" if ( $code == 1 );
374 $result = "window title" if ( $code == 2 );
375 return $result;
379 my $result = "?";
382 while ( $result !~ /^[012]$/ ) {
383 $result = &get_char;
384 if ( $result eq "q" ) {
385 $result = -1;
388 elsif ( $result eq "l" ) {
389 $result = 2;
391 elsif ( $result eq "L" ) {
392 $result = 1;
394 elsif ( $result eq "?" and not $help ) {
402 if ( $result >= 0 ) {
403 printf "[%s]\r\n\t:", &which_selector($result);
405 return $result;