home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / utility / gs333ini / gs3.33 / mergeini.ps < prev    next >
Text File  |  1995-12-09  |  4KB  |  160 lines
  1. %    Copyright (C) 1992, 1993, 1994 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. % If the program was invoked from the command line, run it now.
  126. % The various invocation methods are:
  127. %    mergeini.ps
  128. %    -sCfile=<C-file> mergeini.ps
  129. %    -- mergeini.ps <orig-init-file> <merged-init-file>
  130. %    -sCfile=<C-file> -- mergeini.ps <orig-init-file>
  131.  
  132. [ shellarguments
  133.  { counttomark dup 2 eq
  134.     { pop true false
  135.     }
  136.     { 1 eq /Cfile where { pop true } { false } ifelse and
  137.        { Cfile true true
  138.        }
  139.        { cleartomark
  140.      (Usage: gs [-sCfile=<C-file>] mergeini.ps\n) print
  141.      (   or: gs -sCfile=<C-file> -- mergeini.ps <orig-init-file>\n) print
  142.      (   or: gs -- mergeini.ps <orig-init-file> <merged-init-file>\n) print
  143.      flush quit
  144.        }
  145.       ifelse
  146.     }
  147.    ifelse
  148.  }
  149.  { /Cfile where
  150.     { pop (gs_init.ps) Cfile true true }
  151.     { (gs_init.ps) (gs_xinit.ps) true false }
  152.    ifelse
  153.  }
  154. ifelse
  155. (Merging ) print 3 index print
  156. ( to ) print 2 index print ( ... ) print flush
  157. merge pop
  158. (Done.\n) print flush
  159. quit
  160.