Lines Matching refs:GL
32 # show ISO-2022 characters, by default GL and GR, optionally G1/G2/G344 my $GL = "";48 $GL =61 $GL .= chr($n);62 $GL .= "\n" if ( ( ( $n - 31 ) % 16 ) == 0 );66 for my $n ( 0 .. ( length($GL) - 1 ) ) {67 my $c = substr( $GL, $n, 1 );76 $GL =~ s/([^\n])/ $1/g;79 printf "GL:\n%s\n", $GL;