… | |
… | |
953 | my $r = $term->{meta}{resource}; |
953 | my $r = $term->{meta}{resource}; |
954 | while (my ($pattern, $v) = each %$r) { |
954 | while (my ($pattern, $v) = each %$r) { |
955 | $name =~ y/-/./ if $isarg; |
955 | $name =~ y/-/./ if $isarg; |
956 | |
956 | |
957 | if ( |
957 | if ( |
958 | $pattern =~ s/\*$// |
958 | $pattern =~ /\.$/ |
959 | ? $pattern eq substr $name, 0, length $pattern |
959 | ? $pattern eq substr $name, 0, length $pattern |
960 | : $pattern eq $name |
960 | : $pattern eq $name |
961 | ) { |
961 | ) { |
962 | $name = "$urxvt::RESCLASS.$name"; |
962 | $name = "$urxvt::RESCLASS.$name"; |
963 | |
963 | |
… | |
… | |
988 | |
988 | |
989 | $desc .= " (-pe $ext)"; |
989 | $desc .= " (-pe $ext)"; |
990 | |
990 | |
991 | if ($usage_type == 1) { |
991 | if ($usage_type == 1) { |
992 | $pattern =~ y/./-/; |
992 | $pattern =~ y/./-/; |
993 | $pattern =~ s/\*/.../g; |
993 | $pattern =~ s/-$/-.../g; |
994 | |
994 | |
995 | if ($type eq "boolean") { |
995 | if ($type eq "boolean") { |
996 | urxvt::log sprintf " -%-30s %s\n", "/+$pattern", $desc; |
996 | urxvt::log sprintf " -%-30s %s\n", "/+$pattern", $desc; |
997 | } else { |
997 | } else { |
998 | urxvt::log sprintf " -%-30s %s\n", "$pattern $type", $desc; |
998 | urxvt::log sprintf " -%-30s %s\n", "$pattern $type", $desc; |
… | |
… | |
1359 | or next; |
1359 | or next; |
1360 | |
1360 | |
1361 | while (<$fh>) { |
1361 | while (<$fh>) { |
1362 | if (/^#:META:X_RESOURCE:(.*)/) { |
1362 | if (/^#:META:X_RESOURCE:(.*)/) { |
1363 | my ($pattern, $type, $desc) = split /:/, $1; |
1363 | my ($pattern, $type, $desc) = split /:/, $1; |
1364 | $pattern =~ s/^%\./$ext./g; # $$ in pattern == extension name |
1364 | $pattern =~ s/^%(?:\.|$)/$ext./g; # % in pattern == extension name |
1365 | if ($pattern =~ /[^a-zA-Z\*\.]/) { |
1365 | if ($pattern =~ /[^a-zA-Z\.]/) { |
1366 | warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; |
1366 | warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; |
1367 | } else { |
1367 | } else { |
1368 | $meta{resource}{$pattern} = [$ext, $type, $desc]; |
1368 | $meta{resource}{$pattern} = [$ext, $type, $desc]; |
1369 | } |
1369 | } |
1370 | } elsif (/^\s*(?:#|$)/) { |
1370 | } elsif (/^\s*(?:#|$)/) { |