diff options
| author | Akira TAGOH <akira@tagoh.org> | 2006-03-23 16:40:00 +0000 |
|---|---|---|
| committer | Akira TAGOH <akira@tagoh.org> | 2006-03-23 16:40:00 +0000 |
| commit | c2aa959bd682f4487997dfa23cfe944fa2cb1f67 (patch) | |
| tree | 949b40cb270a87d24ab2b3ed5320884df66c7ebb /lib | |
| parent | 46fe0b017e6e9a2b630bddee19d1c68a9a763e3d (diff) | |
* lib/hg_init.ps (run): defined.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/hg_init.ps | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index 15c3a0a..6e83627 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -27,7 +27,7 @@ true .setglobal } bind def %%% -%%% these aren't official operators/procedures +%%% these aren't official operators/procedures for PostScript % -file- any write=only - /write=only { .stringcvs writestring @@ -138,6 +138,10 @@ systemdict /.statementedit known { {2 index 2 index 3 -1 roll put 1 add} forall pop pop } bind def +% -string- run - +/run { + (r) file cvx exec +} bind def % stack - /stack { 0 1 count 3 sub {index =} for |