Summary: | resourceforall fails to enumerate files on GenericResourceDIr path | ||
---|---|---|---|
Product: | Ghostscript | Reporter: | Ray Johnston <ray.johnston> |
Component: | PS Interpreter | Assignee: | Ray Johnston <ray.johnston> |
Status: | NOTIFIED FIXED | ||
Severity: | major | ||
Priority: | P2 | ||
Version: | master | ||
Hardware: | All | ||
OS: | All | ||
Customer: | Word Size: | --- |
Description
Ray Johnston
2004-08-31 13:18:18 UTC
Patch against 8.1x (similar to HEAD) is: diff -u -r1.33.2.1 gs_res.ps --- lib/gs_res.ps 12 Dec 2003 22:07:58 -0000 1.33.2.1 +++ lib/gs_res.ps 31 Aug 2004 20:18:53 -0000 @@ -457,9 +457,17 @@ 2 index 0 get % args [ (c/) (t) dup length 3 1 roll % args [ l (c/) (t) concatstrings % args [ l (c/t) - [ exch - /LIBPATH .systemvar exch - .generate_dir_list_templates ] % args [ l [(pt)] + [ + /LIBPATH .systemvar 2 index + .generate_dir_list_templates % args (t) [ l [(pt)] + % also add on the Resources as specified by the GenericResourceDir + [ currentsystemparams /GenericResourceDir get] + counttomark 1 add index .generate_dir_list_templates + % Resource files on OpenVMS requires a separate template (gs:[dir.*]*) + [ currentsystemparams /GenericResourceDir get] + counttomark 1 add index .file_name_separator (*) + concatstrings concatstrings .generate_dir_list_templates + ] exch pop { % args [ l (pt) dup length 2 index sub exch % args [ l Lp (pt) |