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