名前: b2ox 日時: 2006-08-29 23:45:05 IPアドレス: 220.213.74.*
>>44497 PostScriptのリファレンスを見たりしながら大文字小文字変換をする関数を作ってみました。 /downcase {/in_str exch def /in_str_len in_str length def /out_str in_str_len string def 0 1 in_str_len 1 sub {dup out_str 3 1 roll in_str exch get dup dup 65 ge exch 90 le and {32 add put} {put} ifelse } for out_str } def この定義をmkcidfm.psの/basenameの前(246行目)あたりに入れて、 /basenameの定義中のloopの後にdowncaseを入れてやるとファイル名が大文字でも認識されるようになりました。 /basename { % path -- subpath { dirsep search {pop pop} {exit} ifelse } loop downcase %% これを追加 } def
この書き込みへの返事: