Lines Matching refs:lows_string
8057 my $lows_string = ""; # The string representation of the 0-FF
8108 $lows_string .= '^';
8116 $lows_string .= sprintf "\\x00-\\x%02x",
8127 $lows_string .= sprintf "\\x%02x-\\x%02x",
8146 if ($lows_string ne "" && $char =~ /[[:alnum:]]/) {
8147 my $prev = substr($lows_string, -1);
8153 $lows_string .= $char;
8155 elsif ( length $lows_string > 1
8156 && substr($lows_string, -2, 1) eq '-')
8160 substr($lows_string, -1, 1) = $char;
8165 $lows_string .= "-$char";
8172 $lows_string .= '\\'
8174 $lows_string .= $char;
8177 $lows_string .= '\a';
8180 $lows_string .= '\b';
8183 $lows_string .= '\e';
8186 $lows_string .= '\f';
8189 $lows_string .= '\cK';
8192 $lows_string .= '\n';
8195 $lows_string .= '\r';
8198 $lows_string .= '\t';
8206 if ( length $lows_string >= 4
8207 && substr($lows_string, -4, 2) eq '\\x'
8208 && hex(substr($lows_string, -2)) + 1 == ord $char)
8210 if ( length $lows_string >= 5
8211 && substr($lows_string, -5, 1) eq '-'
8212 && ( length $lows_string == 5
8213 || substr($lows_string, -6, 1) ne '\\'))
8215 substr($lows_string, -2) = $hex_representation;
8218 $lows_string .= '-\\x' . $hex_representation;
8222 $lows_string .= '\\x' . $hex_representation;
8238 if ($range_count > (($lows_string eq "") ? $max_ranges : $max_ranges - 1)) {
8261 if ($lows_string ne "" || $string_range ne "") {
8262 if ($lows_string ne "") {
8263 $definition .= "[$lows_string]";