home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / packfile.ps < prev    next >
Text File  |  2000-03-09  |  11KB  |  336 lines
  1. %    Copyright (C) 1994, 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: packfile.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % packfile.ps
  20. % Pack groups of files together, with compression, for use in
  21. % storage-scarce environments.
  22.  
  23. % ****** NOTE: This file must be kept consistent with gs_pfile.ps.
  24.  
  25. % ---------------- Huffman coding utilities ---------------- %
  26.  
  27. % We count runs of zeros, and individual byte frequencies separately
  28. % depending on whether they follow or do not follow a run of zeros.
  29. /zruns 256 array def
  30. /zfreq 256 array def
  31. /nzfreq 256 array def
  32. /maxcode 13 def        % max code length, must be between 10 and 16
  33. /maxzrun 100 def    % max length of zero run, must be <= 100
  34. /statbuf 10000 string def
  35.  
  36. % Initialize statistics.
  37. /initstats        % - initstats -
  38.  { 0 1 255 { zruns exch 0 put } for
  39.    0 1 255 { zfreq exch 0 put } for
  40.    0 1 255 { nzfreq exch 0 put } for
  41.  } bind def
  42.  
  43. % Accumulate statistics from an individual file.
  44. /addstats        % <file> addstats -
  45.  { 0
  46.     { 1 index //statbuf readstring 3 1 roll
  47.     % Stack: file eof numzeros data
  48.        { dup 0 eq
  49.       { pop 1 add
  50.       }
  51.       { 1 index 0 ne
  52.          { exch 255 min
  53.            //zruns exch 2 copy get 1 add put
  54.            0 exch //zfreq
  55.          }
  56.          { //nzfreq
  57.          }
  58.         ifelse
  59.         exch 2 copy get 1 add put
  60.       }
  61.      ifelse
  62.        } forall
  63.       exch not { exit } if (.) print flush
  64.     } loop
  65.    pop closefile
  66.  } bind def
  67.  
  68. % Compute the Huffman codes from the statistics.
  69. /statcodes        % - statcodes <array>
  70.  { maxcode 1 add 256 add maxzrun 2 sub add 1 add array    % full array
  71.    dup maxcode 1 add dup 2 index length exch sub getinterval    % data
  72.     % Put statistics into array
  73.    dup 0 1 255
  74.     { zfreq 1 index get nzfreq 2 index get add put dup
  75.     } for
  76.    0 zruns 1 get put
  77.    256 zruns 2 maxzrun 2 sub getinterval putinterval
  78.    dup dup length 1 sub 1 put    % EOD
  79.    maxcode .computecodes
  80.  } bind def
  81.  
  82. % ---------------- File handling ---------------- %
  83.  
  84. % Copy one file to another.
  85. % Close the input file, but not the output file.
  86. /copyfile        % <infile> <outfile> copyfile <outfile> <length>
  87.  { 0 mark statbuf
  88.     { 4 index 1 index readstring
  89.       exch 5 index 1 index writestring
  90.       length 5 -1 roll add 4 1 roll
  91.       not { exit } if (.) print flush
  92.     } loop
  93.    cleartomark 3 -1 roll closefile dup == flush
  94.  } bind def
  95.  
  96. % Represent a Type 1 font in its most compressed format.
  97. % Requires -dWRITESYSTEMDICT to run.
  98. % Does not close the output file.
  99. (wrfont.ps) runlibfile
  100. /compressfont        % <fontname> <outfile> compressfont <outfile>
  101.  { exch save
  102.    systemdict /executeonly /readonly load put
  103.    systemdict /noaccess /readonly load put
  104.    systemdict readonly pop
  105.    wrfont_dict begin
  106.      /binary_CharStrings true def
  107.      /binary_tokens true def
  108.      /encrypt_CharStrings false def
  109.      /standard_only false def
  110.      /use_lenIV 0 def
  111.      /smallest_output true def
  112.    end
  113.    exch findfont setfont
  114.    1 index writefont
  115.    restore
  116.  } bind def
  117.  
  118. % ---------------- Main program ---------------- %
  119.  
  120. % Find the length of a file.
  121. /filelength        % <filename> filelength <length>
  122.  { status { pop pop exch pop } { -1 } ifelse
  123.  } bind def
  124.  
  125. % Define the header string for a compressed file.
  126. /beginfilestring
  127. ({dup token pop exch[/MaxCodeLength 2 index token pop/Tables 4 index token pop
  128. /EndOfData true/EncodeZeroRuns 256 .dicttomark
  129. /BoundedHuffmanDecode filter/MoveToFrontDecode filter
  130. [/BlockSize 4 -1 roll .dicttomark/BWBlockSortDecode filter
  131. }) readonly def
  132.  
  133. % Write a 16-bit big-endian non-negative integer on a file.
  134. /write16        % <file> <int> write16 -
  135.  { 2 copy -8 bitshift write 255 and write
  136.  } bind def
  137.  
  138. % Compress a group of files together.
  139. % Return a dictionary in which the keys are the input file names
  140. % and the values are [startpos length] in the uncompressed concatenation.
  141. % Does not open or close the output file.
  142. /tempname (t.em) def
  143. /packfiles        % <filenames> <outfile> packfiles <outfile> <posdict>
  144.  {    % Concatenate files to a temporary file.
  145.    tempname (w) file
  146.    dup /MoveToFrontEncode filter
  147.    dup <<
  148.     /BlockSize 1000000
  149.    >> /BWBlockSortEncode filter
  150.         % Stack: filenames outfile tempfile mtfe bwe
  151.    5 -1 roll dup length dict 0 6 2 roll
  152.     {        % Stack: outfile posdict pos tempfile mtfe bwe infilename
  153.       dup ==only dup (r) file 2 index copyfile exch pop
  154.       dup 7 index 4 2 roll 7 index exch 2 array astore put
  155.       5 -1 roll add 4 1 roll
  156.     } forall
  157.    closefile closefile closefile pop exch
  158.         % Stack: posdict outfile
  159.     % Compute an optimal Huffman code.
  160.    initstats
  161.    tempname (r) file addstats
  162.     % Actually compress the file.
  163.     % Write the decompression information on the output first.
  164.    dup tempname filelength write==
  165.    dup maxcode write==
  166.     % Write the code table as a homogenous number array.
  167.    statcodes exch
  168.      dup 149 write dup 32 write dup 2 index length write16
  169.      exch { 2 copy write16 pop } forall
  170.    dup <<
  171.     /MaxCodeLength maxcode
  172.     /EndOfData true
  173.     /EncodeZeroRuns 256
  174.     /Tables statcodes
  175.    >> /BoundedHuffmanEncode filter
  176.    tempname (r) file exch copyfile pop closefile
  177.    exch
  178.  } bind def
  179.  
  180. % Squeeze a font to a .cpf file in anticipation of compression.
  181. /squeezefont        % <fontname> squeezefont <filename.cpf>
  182.  { dup type /nametype ne { cvn } if
  183.    dup
  184.     { dup type /stringtype eq { exit } if
  185.       Fontmap exch get
  186.     }
  187.    loop
  188.         % Stack: fontname filename
  189.    dup dup
  190.     { (.) search not { exit } if
  191.       exch pop exch 3 -1 roll pop
  192.     }
  193.    loop
  194.         % Stack: fontname filename noextname extension
  195.    exch
  196.     { (/) search not { (\\) search not { exit } if } if
  197.       pop pop
  198.     }
  199.    loop
  200.         % If the font extension is anything other than
  201.         % .pfa or .pfb, we assume it can't be rewritten
  202.         % using compressfont.
  203.         % Stack: fontname filename extension basename
  204.    (.cpf) concatstrings dup 5 1 roll (w) file
  205.         % Stack: outfilename fontname filename extension outfile
  206.    exch dup (pfa) eq exch (pfb) eq or
  207.         % Stack: outfilename fontname filename outfile bool
  208.     { exch pop compressfont
  209.     }
  210.     { 3 -1 roll pop
  211.       exch findlibfile pop exch pop
  212.       exch copyfile pop
  213.     }
  214.    ifelse closefile
  215.  } bind def
  216.  
  217. % ---------------- Production code ---------------- %
  218.  
  219. % The following code constructs a packed version of the commercial-quality
  220. % fonts available from Aladdin Enterprises.  To use this code:
  221. %    - If desired, change the output file names below.
  222. %    - Make sure you have the synthetic font data (fontmap.shs and the
  223. %      *.ps files for the commercial fonts) in a directory that is on
  224. %      Ghostscript's search path.
  225. %    - Construct the packed fonts by running
  226. %        gs -dNODISPLAY -dWRITESYSTEMDICT packfile.ps
  227. %    - If desired, move the output files to the directory that will be
  228. %      used at run time.  You no longer need the *.pfb or *.ps files
  229. %      for the original fonts; however, you do still need the Fontmap
  230. %      for these fonts, because it defines the font name aliases.
  231. %    - Add the following line to the end of gs_fonts.ps:
  232. %        (ALL.cmp) run
  233. %      (substituting the definition of allmapname if you changed it).
  234.  
  235. % Define the output file names.  The extensions are arbitrary;
  236. % any legal file name is allowed.
  237. /allname (ALL.cff) def        % the compressed font file
  238. /allmapname (ALL.cmp) def    % the Fontmap override file
  239.  
  240. % Load an alternate Fontmap that references the synthetic oblique and
  241. % narrow fonts.
  242. true .setglobal
  243. (fontmap.shs) findlibfile pop exch pop .loadFontmap
  244. false .setglobal
  245.  
  246. % Define the packaging of fonts into font groups.
  247. % Fewer larger groups compress better, but make decompression slower.
  248. /Lists [
  249. [    % The oblique and narrow fonts are synthetic,
  250.     % and take very little space.
  251.   /AvantGarde-BookOblique /AvantGarde-DemiOblique
  252.   /Courier-Oblique /Courier-BoldOblique
  253.   /Helvetica-Oblique /Helvetica-BoldOblique
  254.   /Helvetica-Narrow /Helvetica-Narrow-Oblique
  255.   /Helvetica-Narrow-Bold /Helvetica-Narrow-BoldOblique
  256. ]
  257. [/AvantGarde-Book /AvantGarde-Demi
  258.  /Bookman-Light] [/Bookman-LightItalic
  259.  /Bookman-Demi /Bookman-DemiItalic
  260.  /Courier] [/Courier-Bold
  261.  /Helvetica /Helvetica-Bold]
  262. [/NewCenturySchlbk-Roman /NewCenturySchlbk-Italic
  263.  /NewCenturySchlbk-Bold /NewCenturySchlbk-BoldItalic]
  264. [/Palatino-Roman /Palatino-Italic
  265.  /Palatino-Bold /Palatino-BoldItalic]
  266. [/Times-Roman /Times-Italic
  267.  /Times-Bold /Times-BoldItalic]
  268. [/Symbol
  269.  /ZapfChancery-MediumItalic
  270.  /ZapfDingbats]
  271. ] def
  272.  
  273. % We need to register the fonts under their true names, not aliases.
  274. /Lists Lists mark exch
  275.  { mark exch
  276.     {  { Fontmap 1 index get dup type /nametype ne { pop exit } if
  277.      exch pop
  278.        }
  279.       loop
  280.     }
  281.    forall ]
  282.  }
  283. forall ] def
  284.  
  285. % Squeeze the fonts to their .cpf format.
  286. (Squeezing... ) print flush
  287. /fdict mark
  288. Lists
  289.  { { dup squeezefont } forall } forall
  290. .dicttomark def
  291. (done.\n) print flush
  292.  
  293. % Invert fdict.
  294. /f2dict fdict length dict def
  295. fdict { exch f2dict 3 1 roll put } forall
  296.  
  297. % Construct the compressed font file.
  298. (Creating ) print allname print (... ) print flush
  299. /posdict fdict length dict def
  300. /all allname (w) file def
  301. all beginfilestring writestring
  302. Lists
  303.  { dup == flush
  304.    /fbegin all fileposition def
  305.    mark exch { fdict exch get } forall ]
  306.    all packfiles exch pop
  307.    /flength all fileposition fbegin sub def
  308.     { fbegin flength 3 -1 roll aload pop 4 packedarray
  309.       exch f2dict exch get exch posdict 3 1 roll put
  310.     }
  311.    forall
  312.  }
  313. forall
  314. all closefile
  315. (done.\n) print flush
  316.  
  317. % Write the Fontmap addendum for accessing compressed fonts.
  318. (Writing ) print allmapname print (... ) print flush
  319. allmapname (w) file
  320. dup (%!
  321. /.runpackedlibfile where{pop}{(gs_pfile.ps)runlibfile}ifelse
  322. .currentglobal true .setglobal
  323. ) writestring
  324. posdict
  325.  { exch 2 index exch write==only exch dup ({) writestring
  326.    dup allname write==only
  327.    exch { 1 index dup ( ) writestring exch write==only } forall
  328.    dup ( .runpackedlibfile}bind .definefontmap
  329. ) writestring
  330.  }
  331. forall
  332. dup (.setglobal
  333. ) writestring
  334. closefile
  335. (done.\n) print flush
  336.