home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / wftopfa.ps < prev    next >
Text File  |  2000-03-09  |  9KB  |  306 lines
  1. %    Copyright (C) 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: wftopfa.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % wftopfa.ps
  20. % Convert a Wadalab base font to .PFA (or .PFB) format.
  21.  
  22. (gs_ksb_e.ps) runlibfile
  23. (wrfont.ps) runlibfile
  24.  
  25. /wftopfa_dict 100 dict def
  26. wftopfa_dict begin
  27.  
  28. /KanjiSubEncoding dup .findencoding def
  29.  
  30. % Initialize parameters.
  31. /init            % - init -
  32.  { /chars 256 dict def
  33.    /version (001.001) def
  34.    /highcode 0 def
  35.    /StdHW [32] def
  36.    /StdVW [32] def
  37.    /UniqueID 20000000 def
  38.    /FontBase (Wadalab) def
  39.    /StdEncMode false def
  40.    /CustomEncMode false def
  41.    /Binary false def
  42.    /Encrypt true def
  43.  } bind def
  44.  
  45. % Read definitions.
  46. /rdstring 5000 string def
  47. /readdefs        % <filename> readdefs -
  48.  { (r) file
  49.     { dup rdstring readline not { pop exit } if
  50.       dup length 15 ge
  51.        { dup dup length 7 sub 7 getinterval (> CompD) eq
  52.       { token pop exch token pop exch pop
  53.         dup 0 get /highcode exch def
  54.         exch chars 3 1 roll put
  55.       }
  56.       { pop
  57.       }
  58.      ifelse
  59.        }
  60.        { pop
  61.        }
  62.       ifelse
  63.     }
  64.    loop closefile
  65.  } bind def
  66.  
  67. % Write out the final font.
  68. /writepfa
  69.  { 4 string highcode 16#1000 add 16 2 index cvrs 0 (.r) putinterval
  70.      FontBase exch concatstrings /fullname exch def
  71.    UniqueID 20000000 eq { /UniqueID 4990000 highcode add def } if
  72.    /encoding CustomEncMode
  73.     { KanjiSubEncoding }
  74.     { StdEncMode { StandardEncoding } { ISOLatin1Encoding } ifelse }
  75.    ifelse def
  76.  
  77.    /Font 30 dict def
  78.    Font begin
  79.    /FontInfo 20 dict def
  80.    FontInfo begin
  81.  
  82.         % Write the clear text part.
  83.  
  84.    /CreationDate (%Calendar%) currentdevparams
  85.      dup /Weekday get {(Sun )(Mon )(Tue )(Wed )(Thu )(Fri )(Sat )} exch get
  86.      1 index /Month get 1 sub
  87.        {(Jan)(Feb)(Mar)(Apr)(May)(Jun)(Jul)(Aug)(Sep)(Oct)(Nov)(Dec)} exch get
  88.      concatstrings
  89.       {{/Day ( )} {/Hour ( )} {/Minute (:)} {/Second (:)} {/Year ( )}}
  90.       { dup 1 get 3 -1 roll exch concatstrings exch
  91.         0 get 2 index exch get
  92.         dup 10 lt { =string cvs (0) exch concatstrings } { =string cvs } ifelse
  93.         concatstrings
  94.       }
  95.      forall exch pop readonly def
  96.    /VMusage 100000 def
  97.    /version version readonly def
  98.    /Notice (No copyright on this font. Original available from moe.ipl.t.u-tokyo.ac.jp:/Font. Converted by wftopfa.ps (Aladdin Enterprises).) readonly def
  99.    /FullName fullname readonly def
  100.    /FamilyName FontBase readonly def
  101.    /Weight (Regular) readonly def
  102.    /ItalicAngle 0 def
  103.    /isFixedPitch true def
  104.    /UnderlinePosition 0 def
  105.    /UnderlineThickness 0 def
  106.  
  107.    end            % FontInfo
  108.  
  109.    /FontName fullname cvn def
  110.    /Encoding encoding def
  111.    /PaintType 0 def
  112.    /FontType 1 def
  113.    /FontMatrix [.001 0 0 .001 0 -0.16] readonly def
  114.    /UniqueID UniqueID def
  115.    /FontBBox [0 0 1000 1000] readonly def
  116.  
  117.    /Private 20 dict def
  118.    Private begin
  119.  
  120.    /-| {string currentfile exch readstring pop} readonly def
  121.    /|- {readonly def} readonly def
  122.    /| {readonly put} readonly def
  123.    /BlueValues [] readonly def
  124.    /OtherBlues [] readonly def
  125.    /MinFeature {16 16} readonly def
  126.    /StdHW StdHW def
  127.    /StdVW StdVW def
  128.    /ForceBold false def
  129.    /password 5839 def
  130.    /UniqueID UniqueID def
  131.    /OtherSubrs [] readonly def
  132.    /Subrs [
  133.      (\020\2771p|\020\024\020=-\223D\\\342R) readonly
  134.      (\020\2771py\274\366Uz) readonly
  135.      (\020\2771py\275\304\236i) readonly
  136.      (\020\2771p\371) readonly
  137.      (\020\2771p~\266+6\034\3446z) readonly
  138.    ] readonly def
  139.  
  140.    end            % Private
  141.  
  142.    /CharStrings 256 dict def
  143.    chars
  144.     { exch =string cvs
  145.       dup 0 get highcode eq
  146.        { 1 get encoding exch get exch CharStrings 3 1 roll put }
  147.        { pop pop }
  148.       ifelse
  149.     }
  150.    forall
  151.  
  152.    end            % Font
  153.  
  154.    Font /FontName get Font definefont setfont
  155.    (%stdout) (w) file writefont
  156.  } bind def
  157.  
  158. % Scan the command line and process files.
  159. /options mark
  160.   /version { 2 copy get /version exch def 1 add } bind
  161.   /StdHW { 2 copy get cvx exec /StdHW exch def 1 add } bind
  162.   /StdVW { 2 copy get cvx exec /StdVW exch def 1 add } bind
  163.   /UniqueId { 2 copy get cvi /UniqueID exch def 1 add } bind
  164.   /UniqueID 1 index
  165.   /FontBase { 2 copy get /FontBase exch def 1 add } bind
  166.   /StdEnc { /StdEncMode true def } bind
  167.   /CustomEnc { /CustomEncMode true def } bind
  168.   /Binary { /Binary true def } bind
  169.   /noEncrypt { /Encrypt false def } bind
  170. .dicttomark def
  171. /wftopfa        % [(arg1) ...] wftopfa -
  172.  { init dup 0
  173.     { dup 2 index length ge { exit } if
  174.       2 copy get exch 1 add exch
  175.       options 1 index .knownget { exch pop exec } { readdefs } ifelse
  176.     }
  177.    loop pop pop
  178.    wrfont_dict /binary_CharStrings Binary put
  179.    wrfont_dict /eexec_encrypt Encrypt put
  180.    wrfont_dict /name_all_Encodings CustomEncMode put
  181.    writepfa
  182.  } bind def
  183.  
  184. end                % wftopfa_dict
  185.  
  186. /wftopfa
  187.  { mark exch wftopfa_dict begin /saved save def { wftopfa } exec false%stopped
  188.     { cleartomark true } { cleartomark false } ifelse
  189.    saved end restore { stop } if
  190.  } bind def
  191.  
  192. [ shellarguments
  193.  { ] wftopfa }
  194.  { pop }
  195. ifelse
  196.  
  197. % ---------------- Root font ---------------- %
  198.  
  199. % Define the Encoding for the root font.
  200. /wfrootencoding
  201. % \x00-\x3F
  202.   0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
  203.   0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
  204.   0  1  2  3  4  5  6  7  8  0  0  0  0  0  0  0
  205.   9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  206. % \x40-\x7F
  207.  25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
  208.  41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
  209.  57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
  210.  73 74 75 76 77  0  0  0  0  0  0  0  0  0  0  0
  211. % \x80-\xFF
  212. 128 copy
  213. 256 packedarray def
  214.  
  215. % Define the template for the root font dictionary.
  216. /wfrootfontdict mark
  217.   /FontType 0
  218.   /FontMatrix [1 0 0 1 0 0]
  219.   /FMapType 2
  220.   /Encoding wfrootencoding
  221. .dicttomark def
  222.  
  223. % Define a dummy (placeholder) Type 1 font for the FDepVector.
  224. /type1dummyfont        % <fontname> type1dummyfont <font>
  225.  { mark /FontName 3 -1 roll
  226.    /FontType 1
  227.    /FontMatrix [.001 0 0 .001 0 0]
  228.    /FontBBox [0 0 1000 1000]
  229.    /Encoding /KanjiSubEncoding findencoding
  230.    /CharStrings 0 dict
  231.    /Private mark /BlueValues [] /password 5839 .dicttomark
  232.    .dicttomark dup /FontName get exch definefont
  233.  } bind def
  234.  
  235. % Write a root font.  Again, wrfont.ps does most of the work.
  236. /makerootfont        % <rootname> makerootfont <font>
  237.  { wfrootfontdict dup length 4 add    % FontName, FDepVector, PrefEnc, FID
  238.    dict copy begin
  239.    cvlit /FontName exch def
  240.    4 dict begin
  241.    /len FontName length def
  242.    /str len 4 add string def
  243.    FontName str cvs pop
  244.    str len (.r) putinterval
  245.    /FDepVector [ 16#21 1 16#74
  246.     { dup wfrootencoding exch get 0 eq
  247.        { pop
  248.        }
  249.        { 16 str len 2 add 2 getinterval cvrs pop
  250.          str cvn type1dummyfont
  251.        }
  252.       ifelse
  253.     }
  254.    for end counttomark -1 roll dup counttomark 2 roll
  255.    ] def
  256.    FontName currentdict end definefont
  257.  } bind def
  258. /writerootfont        % <rootname> writerootfont -
  259.  { save exch makerootfont setfont (%stdout) (w) file writefont restore
  260.  } bind def
  261.  
  262. % ---------------- Converting entire fonts ---------------- %
  263.  
  264. % Define the directory where the Wadalab fonts are stored.
  265. /wfdir (/home/ghost/kanji/w) def
  266.  
  267. % Convert an entire Wadalab font.
  268. /writeentirefont    % <fontname> <template*> writeentirefont -
  269.  { 2 dict begin
  270.    /templates exch def
  271.    /fontname exch def
  272.    [ templates
  273.       { wfdir (/) concatstrings exch concatstrings { copystring }
  274.     100 string filenameforall
  275.       }
  276.      forall
  277.      wfdir (/wadalab-sym/*.ps) concatstrings { copystring }
  278.        100 string filenameforall
  279.    ]
  280.    (%!\n) print
  281.     { /currentuserparams where
  282.        { pop currentuserparams /VMReclaim get -2 vmreclaim { vmreclaim } }
  283.        { { } }
  284.       ifelse
  285.     } == (exec\n) print
  286.    (/KanjiSubEncoding ) print /KanjiSubEncoding findencoding ==
  287.      (readonly def\n) print
  288.     { (%stderr) (w) file dup 2 index write== flushfile
  289.        mark exch (CustomEnc) (Binary) (noEncrypt)
  290.        (FontBase) fontname counttomark -1 roll ] wftopfa
  291.     }
  292.    forall
  293.    fontname cvn writerootfont
  294.    (exec\n) print
  295.    end
  296.  } def            % don't bind, so we can print the procedure
  297.  
  298. % Convert the Wadalab JIS 1&2 SaiMincho font.
  299. % To invoke this from the command line,
  300. %    gs -dNODISPLAY -q wftopfa.ps -c writeSaiMincho0 flush quit >wmin0.ps
  301. % To make the resulting font loadable on demand, add to the Fontmap file:
  302. %    /Wadalab-SaiMincho (wmin0.ps) ;
  303. /writeSaiMincho0
  304.  { (Wadalab-SaiMincho) [ (wadalab-mincho-0-8/*.ps) ] writeentirefont
  305.  } bind def
  306.