home *** CD-ROM | disk | FTP | other *** search
- %
- % FSInit
- %
- % Version: 3.1J
- % Copyright (c) 1990, 1991, 1992, 1993 Canon Inc. and NeXT Inc. All rights reserved.
-
- currentshared true setshared
- shareddict begin
-
- /nil where {pop}{ /nil null def } ifelse
- /_@notdefchar (-) def
- /_@notdefchararray % EUC based undefine codes
- [ () () <a2a3> (-) (-) (--) () () () () () () () () () () () ]
- def
- /_@original_handleerror //errordict /handleerror get def
-
- /show {
- { show } stopped {
- $error /errorname get /rangecheck eq {
- % (%%[Warning: rangecheck; OffendingCommand: show ]%%\n) print flush
- count 0 ne {
- dup type /stringtype eq {
- rootfont setfont
- dup length 1 sub 0 exch getinterval show % for 2byte encoding only
- //_@notdefchararray currentfont /FMapType 2 copy known
- {get get}{pop pop pop //_@notdefchar } ifelse show
- }{
- //_@original_handleerror exec
- } ifelse
- }{
- //_@original_handleerror exec
- } ifelse
- }{
- //_@original_handleerror exec
- } ifelse
- } if
- } bind def
-
- currentdict /_@notdefchar undef
- currentdict /_@notdefchararray undef
- currentdict /_@original_handleerror undef
-
- % As an optimization, do findencoding in advance on frequently used encodings.
- /EUCEncoding findencoding pop
-
- % PGFInit must be run before any new font
- /PGFInit /Sys execresfile
- /PGFKeys /Sys execresfile
-
- (/NextLibrary/Fonts/Kanji/FS/FSInit_Hook.ps) {run} 128 string filenameforall
-
- end % shareddict
- setshared
-