home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / mergeini.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  3.5 KB  |  131 lines
  1. %    Copyright (C) 1992, 1993 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. % mergeini.ps - utility for merging all the Ghostscript initialization files
  19. % (gs_*.ps) into a single file, optionally converting them to C data.
  20.  
  21. /infile { findlibfile { exch pop } { (r) file } ifelse } def
  22. /lstring =string length string def
  23. /rl { in lstring readline } def
  24. /wcstring 3 string def
  25. /wl
  26.  { toC
  27.     { 0 exch
  28.        { wcstring cvs out exch writestring out (,) writestring
  29.      1 add dup 20 eq { out (\n) writestring pop 0 } if
  30.        } forall
  31.       pop (10,)
  32.     }
  33.    if out exch writestring out (\n) writestring
  34.  } def
  35.  
  36. /merge            % <in_name> <out_name> <squash> <C>
  37.  { /C exch def
  38.    /squash exch def
  39.    exch infile /in exch def
  40.    (w) file /out exch def
  41.    /toC false def
  42.  
  43.         % Copy comments up to the first blank line,
  44.         % since this is the legal notice for the file.
  45.    C
  46.     { (/*) wl
  47.        { rl pop dup () eq { pop exit } if wl
  48.        }
  49.       loop
  50.       (*/) wl
  51.       () wl
  52.       (/* Pre-compiled initialization string for Ghostscript. */) wl
  53.       (#include "stdpre.h") wl
  54.       () wl
  55.       (const byte gs_ccinit_string[] = {) wl
  56.       /toC true def
  57.     }
  58.     {  { rl pop dup wl
  59.      () eq { exit } if
  60.        }
  61.       loop
  62.     }
  63.    ifelse
  64.  
  65.    in mergefile
  66.    C
  67.     { /toC false def
  68.       (10};) wl
  69.       (const uint gs_ccinit_string_sizeof = sizeof\(gs_ccinit_string\);) wl
  70.     }
  71.    if
  72.    out closefile
  73.  } def
  74.  
  75. /strip            % <string> strip <string>
  76.  {  { ( ) anchorsearch
  77.        { pop }
  78.        { (\t) anchorsearch { pop } { exit } ifelse }
  79.       ifelse
  80.     }
  81.    loop
  82.  } def
  83.  
  84. /doit            % <string> -> <string> true | false
  85.  {    % We use loop and exit to avoid deeply nested conditionals.
  86.     { squash not { true exit } if
  87.       strip dup () eq { pop false exit } if
  88.       dup (%END) anchorsearch { pop pop true exit } if pop
  89.       (%) anchorsearch { pop pop false exit } if
  90.       dup (%) search
  91.        { exch pop exch (\)) search
  92.           { pop pop pop }
  93.       { pop exch }
  94.      ifelse
  95.        }
  96.       if pop
  97.       true exit
  98.     } loop
  99.  } def
  100.  
  101. /mergefile        % <in_file>
  102.  { /in exch def
  103.     { rl not { pop exit } if
  104.       (%% Replace ) anchorsearch
  105.        { pop
  106.          in exch
  107.          token pop            % # of lines
  108.      exch token pop exch pop    % file name or list name
  109.      exch
  110.           { rl pop pop }
  111.      repeat
  112.      exec dup type /stringtype eq { [ exch ] } if
  113.       { infile mergefile
  114.       }
  115.      forall
  116.      /in exch def
  117.        }
  118.        { doit { wl } if
  119.        }
  120.       ifelse
  121.     } loop
  122.    in closefile
  123.  } def
  124.  
  125. % Check for C conversion requested from the command line.
  126. /Cfile where
  127.  { pop (gs_init.ps) Cfile true true merge }
  128.  { (gs_init.ps) (gs_xinit.ps) true false merge }
  129. ifelse
  130. quit
  131.