You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.8 KiB
74 lines
2.8 KiB
% Copyright (C) 2001-2023 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.
|
|
%
|
|
% Refer to licensing information at http://www.artifex.com or contact
|
|
% Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco,
|
|
% CA 94129, USA, for further information.
|
|
%
|
|
%
|
|
% $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
|