diff options
| author | Joel Martin <github@martintribe.org> | 2014-12-18 20:33:49 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-01-09 16:16:50 -0600 |
| commit | b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c (patch) | |
| tree | f4d977ed220e9a3f665cfbf4f68770a81e4c2095 /ps/printer.ps | |
| parent | aaba249304b184e12e2445ab22d66df1f39a51a5 (diff) | |
| download | mal-b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c.tar.gz mal-b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c.zip | |
All: add keywords.
Also, fix nth and count to match cloure.
Diffstat (limited to 'ps/printer.ps')
| -rw-r--r-- | ps/printer.ps | 25 |
1 files changed, 18 insertions, 7 deletions
diff --git a/ps/printer.ps b/ps/printer.ps index 3062e2d..52d6c1e 100644 --- a/ps/printer.ps +++ b/ps/printer.ps @@ -45,13 +45,24 @@ /slen obj 10 add log ceiling cvi def obj 10 slen string cvrs }{ /stringtype obj type eq { % if string - print_readably { - (") - obj (\\) (\\\\) replace - (") (\\") replace - (") concatenate concatenate - }{ - obj + obj length 0 gt { % if string length > 0 + obj 0 get 127 eq { %if starts with 0x7f (keyword) + obj dup length string copy + dup 0 58 put % 58 is ':' + }{ print_readably { + (") + obj (\\) (\\\\) replace + (") (\\") replace + (") concatenate concatenate + }{ + obj + } ifelse } ifelse + }{ % else empty string + print_readably { + ("") + }{ + obj + } ifelse } ifelse }{ null obj eq { % if nil (nil) |