| … | |
… | |
| 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; |
| 999 | } |
999 | } |
| 1000 | } else { |
1000 | } else { |
|
|
1001 | $pattern =~ s/\.$/.*/g; |
| 1001 | urxvt::log sprintf " %-31s %s\n", "$pattern:", $type; |
1002 | urxvt::log sprintf " %-31s %s\n", "$pattern:", $type; |
| 1002 | } |
1003 | } |
| 1003 | } |
1004 | } |
| 1004 | } |
1005 | } |
| 1005 | |
1006 | |
| … | |
… | |
| 1360 | |
1361 | |
| 1361 | while (<$fh>) { |
1362 | while (<$fh>) { |
| 1362 | if (/^#:META:X_RESOURCE:(.*)/) { |
1363 | if (/^#:META:X_RESOURCE:(.*)/) { |
| 1363 | my ($pattern, $type, $desc) = split /:/, $1; |
1364 | my ($pattern, $type, $desc) = split /:/, $1; |
| 1364 | $pattern =~ s/^%(?:\.|$)/$ext./g; # % in pattern == extension name |
1365 | $pattern =~ s/^%(?:\.|$)/$ext./g; # % in pattern == extension name |
| 1365 | if ($pattern =~ /[^a-zA-Z\.]/) { |
1366 | if ($pattern =~ /[^a-zA-Z0-9\-\.]/) { |
| 1366 | warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; |
1367 | warn "$dir/$ext: meta resource '$pattern' contains illegal characters (not alphanumeric nor . nor *)\n"; |
| 1367 | } else { |
1368 | } else { |
| 1368 | $meta{resource}{$pattern} = [$ext, $type, $desc]; |
1369 | $meta{resource}{$pattern} = [$ext, $type, $desc]; |
| 1369 | } |
1370 | } |
| 1370 | } elsif (/^\s*(?:#|$)/) { |
1371 | } elsif (/^\s*(?:#|$)/) { |
