Home | History | Annotate | Download | only in vttests

Lines Matching refs:charset

34 # Print GL and GR, with the same charset (if possible) for testing.
84     my %charset = %{ $_[0] };
85     printf "\033(%s", $charset{TAG} if ( $charset{HOW} == 0 );
89     my %charset = %{ $_[0] };
90     printf "\033)%s", $charset{TAG} if ( $charset{HOW} == 0 );
91     printf "\033-%s", $charset{TAG} if ( $charset{HOW} == 1 );
95     my %charset = %{ $_[0] };
96     printf "\033*%s", $charset{TAG} if ( $charset{HOW} == 0 );
97     printf "\033.%s", $charset{TAG} if ( $charset{HOW} == 1 );
101     my %charset = %{ $_[0] };
102     printf "\033+%s", $charset{TAG} if ( $charset{HOW} == 0 );
103     printf "\033/%s", $charset{TAG} if ( $charset{HOW} == 1 );
107     my %charset;
109     $charset{WHO}     = $mixed;
110     $charset{HOW}     = shift;
111     $charset{TAG}     = shift;
112     $charset{MIN}     = shift;
113     $charset{MAX}     = shift;
114     $charset{NRC}     = shift;
115     $charsets{$mixed} = \%charset;
116     my $lower = lc $charset{WHO};
117     $caseless{$lower} = $charset{WHO};
217     &failed("Unknown left-charset $gl_name")  unless &valid_name($gl_name);
218     &failed("Unknown right charset $gr_name") unless &valid_name($gr_name);
252  -l name    charset to map to GL
254  -r name    charset to map to GR
264         my %charset = %{ $charsets{$key} };
265         next if ( $charset{MAX} < $vt_level );
266         next if ( $charset{MIN} > $vt_level );