diff options
| author | Akira TAGOH <akira@tagoh.org> | 2006-08-20 04:48:02 +0000 |
|---|---|---|
| committer | Akira TAGOH <akira@tagoh.org> | 2006-08-20 04:48:02 +0000 |
| commit | 1140d56474d8483b4cb27c35cd6cbbb41038deaf (patch) | |
| tree | d7b8dda4e8ada5c07585799ba3192806b7cbb81f /lib | |
| parent | 2c19b0be10496f735d47b1bdeda84fb0b1257de3 (diff) | |
2006-08-20 Akira TAGOH <at@gclab.org>
* hieroglyph/operator.c (_hg_operator_op_private_hg_quit):
new function.
* hieroglyph/vm.c (hg_vm_get_error_code): new function.
(hg_vm_set_error_code): likewise.
(hg_vm_shutdown): likewise.
* lib/hg_init.ps (quit): implemented in PostScript.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/hg_init.ps | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index 1cd8c60..f6da26a 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -191,6 +191,10 @@ systemdict /.statementedit known { {2 index 2 index 3 -1 roll put 1 add} forall pop pop } bind odef +% - quit - +/quit { + 0 .quit +} bind odef % -string- run - /run { (r) file cvx exec |