diff options
author | Akira TAGOH <akira@tagoh.org> | 2006-08-18 17:41:08 +0000 |
---|---|---|
committer | Akira TAGOH <akira@tagoh.org> | 2006-08-18 17:41:08 +0000 |
commit | 583b3a8cb17adeeac94eaf728b99a6c7c1c90dee (patch) | |
tree | ec7bee1376c8da7c97c5181092af7592fbd44df6 /lib | |
parent | ede99b08e9da38d4bf33a66051fcbceab8b5b7a2 (diff) |
* hieroglyph/operator.c (_hg_operator_op_private_hg_undef):
implemented.
* lib/hg_init_lv2.ps (undef): defined.
* lib/hg_init.ps: undef .forceput and .odef.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/hg_init.ps | 4 | ||||
-rw-r--r-- | lib/hg_init_lv2.ps | 18 |
2 files changed, 8 insertions, 14 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index 62504b6..8a14425 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -39,8 +39,8 @@ true .setglobal .odef } bind .odef %% disable .forceput for security reason -/.forceput null def -/.odef null def +systemdict /.forceput .undef +systemdict /.odef .undef %%% %%% these aren't official operators/procedures for PostScript diff --git a/lib/hg_init_lv2.ps b/lib/hg_init_lv2.ps index 21d23ba..54f070c 100644 --- a/lib/hg_init_lv2.ps +++ b/lib/hg_init_lv2.ps @@ -15,9 +15,7 @@ true .setglobal } if % - currentglobal bool -/currentglobal { - .currentglobal -} bind odef +/currentglobal /.currentglobal load def % key font|cidfont definefont font|cidfont /definefont { /Font defineresource @@ -26,16 +24,12 @@ true .setglobal /findfont { /Font findresource } bind odef -/product { - .product -} bind odef -/revision { - .revision -} bind odef +/product /.product load def +/revision /.revision load def % bool setglobal - -/setglobal { - .setglobal -} bind odef +/setglobal /.setglobal load def +% dict key undef - +/undef /.undef load def % key undefinefont - /undefinefont { /Font undefineresource |