🚀 go-pugleaf

In <28678BF9.4393@maccs.dcss.mcmaster.ca> dan@maccs.dcss.mcmaster.ca (Dan Trottier) writes:
>I'm trying to write a postscript program to dump character width tables
>and print them on the printer. The following code segment works except
>I can't seem to print the numeric width:
>/prtchar
>{   char 0
>    3 -1 roll put char dup ==         - puts char to standard out
>    dup show                          - puts char to page 
>    stringwidth pop 300 mul 72 div    - calculate width
>    round cvi dup ==                  - round and put to stdout
>    dup cvs show                      - now how do I display width
> } def                                  to page???? Doesn't work!

The cvs operator must be given a string, which will be overwritten with the
result.  The usage is:  <any> <string> cvs  =>  <substring>
So in your code, you should preallocate a string buffer (outside of the
prtchar procedure):  /str 20 string def
then change the last line in prtchar to:  dup str cvs show
(the dup is needed only if prtchar is supposed to leave the width on the stack).
-- 
Gilles Detillieux			<Gilles@scrc.UManitoba.CA>
Spinal Cord Research Centre		or <grdetil@ccu.UManitoba.CA>
Dept. of Physiology, U. of Manitoba	Phone:  (204)788-6766
Winnipeg, MB  R3E 0W3  (Canada)		Fax:    (204)786-0932