2009/11/18

PostScript file, ファイルIO

 

access string

% P.40 2.13 ファイル 2.13.2 ファイルのオープン
% /in (hoge.txt) (access string) file def

% access string
% r
% w
% a
% r+
% w+
% a+

 

% P.43 2.13.8 標準入出力のファイルオブジェクト
% 標準入力 %stdin
% 標準出力 %stdout
% 標準エラー %stderr
% /in (%stdin) (r) file def

 

IO関連オペレータ

% file
% closefile
% read
% readline
% readstring
% token
% write
% writestring
% print
% deletefile
% renamefile

 

読み込み

/cat {
    3 dict begin
        /path exch def
        /in path (r) file def
        /s 256 string def
        {
            in s readline not {
                pop exit
            } if
            =
        } loop
        in closefile
    end
} def

(c:/test.txt) cat
% test
% aaa
% bbb
% ccc

% c:/test.txt
% test
% aaa
% bbb
% ccc

 

コピー

/copy {
    4 dict begin
        /path2 exch def
        /path1 exch def
        /in path1 (r) file def
%         /out path2 (w) file def
        /out path2 (a+) file def
        {
            in read not {
                exit
            } if
            out exch write
        } loop
        in closefile
        out closefile
    end
} def

(c:/test.txt) (c:/test1.txt) copy

 

0 件のコメント:

コメントを投稿