1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- % Copyright (C) 1996-2003 Artifex Software, Inc. All rights reserved.
- %
- % This software is provided AS-IS with no warranty, either express or
- % implied.
- %
- % This software is distributed under license and may not be copied,
- % modified or distributed except as expressly authorized under the terms
- % of the license contained in the file LICENSE in this distribution.
- %
- % For more information about licensing, please refer to
- % http://www.ghostscript.com/licensing/. For information on
- % commercial licensing, go to http://www.artifex.com/licensing/ or
- % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
- % San Rafael, CA 94903, U.S.A., +1(415)492-9861.
- %
- % $Id: cat.ps 8331 2008-02-05 11:07:00Z kens $
- %
- % Appends one file to another. Primarily used to overcome the
- % 'copy' limitation of Windows command shell for ps2epsi
- %
- % the files to be appended are given by the environament
- % variables %infile% and %outfile%. %infile% is appended to
- % %outfile%
- %
-
- /datastring 1024 string def
-
- {
- (outfile) getenv
- {
- /outfilename exch def
- (infile) getenv
- {
- /infilename exch def
-
- infilename status
- {
- pop pop pop pop outfilename status
- {
- pop pop pop pop
- infilename (r) file /infile exch def
- outfilename (a+) file /outfile exch def
- {
- infile datastring readstring
- {
- outfile exch writestring
- }
- {
- dup length 0 gt
- {outfile exch writestring} {pop} ifelse
- exit
- } ifelse
- } loop
- infile closefile
- outfile closefile
- }
- {
- (Failed to find file ) print outfilename ==
- } ifelse
- }
- {
- (Failed to find file ) print infilename ==
- } ifelse
- }
- {
- (Couldn't find %infile% environment variable) ==
- } ifelse
- }
- {
- (Couldn't find %outfile% environment variable) ==
- }
- ifelse
- } bind
- exec
|