Home | History | Annotate | Download | only in vttests

Lines Matching refs:chr

427             my $ch = chr &codeOf($code);
697             my $chr   = chr hex $tmp;
702             if ( $chr =~ /^[`345678]$/ and ( $c & 4 ) != 0 ) {
704                     $map = 30      if ( $chr eq "`" );
705                     $map = ord "#" if ( $chr eq "3" );
706                     $map = ord '$' if ( $chr eq "4" );
707                     $map = ord "%" if ( $chr eq "5" );
708                     $map = 30      if ( $chr eq "6" );
709                     $map = ord "&" if ( $chr eq "7" );
710                     $map = ord "*" if ( $chr eq "8" );
713                     $map = 0   if ( $chr eq "`" );
714                     $map = 27  if ( $chr eq "3" );
715                     $map = 28  if ( $chr eq "4" );
716                     $map = 29  if ( $chr eq "5" );
717                     $map = 30  if ( $chr eq "6" );
718                     $map = 31  if ( $chr eq "7" );
719                     $map = 127 if ( $chr eq "8" );
726                     if ( $chr =~ /^[190:<=>.,+*()'&%\$#"!]$/ ) {
730                     elsif ( $chr =~ /^[2]$/ ) {
733                     elsif ( $chr =~ /^[:;]$/ ) {
736                     elsif ( $chr eq '-' ) {
739                     elsif ( $chr eq '/' ) {
743                     elsif ( $chr eq '?' ) {
751             $result[$c] = &VisibleChar( chr $map );