386BSD 0.1 development

Work on file usr/othersrc/public/ghostscript-2.4.1/pcharstr.ps

Co-Authored-By: Lynne Greer Jolitz <ljolitz@cardio.ucsf.edu>
Synthesized-from: 386BSD-0.1

diff --git a/usr/othersrc/public/ghostscript-2.4.1/pcharstr.ps b/usr/othersrc/public/ghostscript-2.4.1/pcharstr.ps
new file mode 100644 (file)
index 0000000..5ff5810
--- /dev/null
+++ b/usr/othersrc/public/ghostscript-2.4.1/pcharstr.ps
@@ -0,0 +1,95 @@
+%    Copyright (C) 1990, 1992 Aladdin Enterprises.  All rights reserved.
+%    Distributed by Free Software Foundation, Inc.
+%
+% This file is part of Ghostscript.
+%
+% Ghostscript is distributed in the hope that it will be useful, but
+% WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
+% to anyone for the consequences of using it or for whether it serves any
+% particular purpose or works at all, unless he says so in writing.  Refer
+% to the Ghostscript General Public License for full details.
+%
+% Everyone is granted permission to copy, modify and redistribute
+% Ghostscript, but only under the conditions described in the Ghostscript
+% General Public License.  A copy of this license is supposed to have been
+% given to you along with Ghostscript so you can know your rights and
+% responsibilities.  It should be in a file named COPYING.  Among other
+% things, the copyright notice and this notice must be preserved on all
+% copies.
+
+% Print the CharStrings and Subrs (if present) from a Type 1 font,
+% in symbolic form.
+
+32 256 add array dup /csdict exch def
+0 [
+% base commands
+  null (hstem) null (vstem) (vmoveto) (rlineto) (hlineto) (vlineto)
+  (rrcurveto) (closepath) (callsubr) (return) null (hsbw) (endchar) null
+  null null null null null (rmoveto) (hmoveto) null
+  null null null null null null (vhcurveto) (hvcurveto)
+% escape commands
+  (dotsection) (vstem3) (hstem3) null null null (seac) (sbw)
+  null null null null (div) null null null
+  (callothersubr) (pop) null null null null null null
+  null null null null null null null null
+  null (setcurrentpoint)
+] putinterval
+
+/printcs
+ { dup type /stringtype eq
+    { printcs1 (\n) print }
+    { ( ) print == }
+   ifelse
+ } bind def
+/printcs1
+ { 4330 exch dup length string type1decrypt exch pop
+   dup /s exch def length /n exch def
+   /lenIV where { pop lenIV } { 4 } ifelse
+   1 sub
+    { 1 add dup n ge { exit } if
+      ( ) print dup s exch get
+      dup 31 le
+       { dup 12 eq { pop 1 add dup s exch get 32 add } if
+         dup csdict exch get dup null eq
+         { pop =only (?) print }
+         { print pop }
+        ifelse
+       }
+       { dup 247 lt
+                 { 139 sub }
+         { dup 255 eq
+            { pop 0 4
+               { exch 1 add exch
+                 8 bitshift s 2 index get add
+               } repeat
+            }
+            { 247 sub
+               { {108 add} {364 add} {620 add} {876 add}
+                 {108 add neg} {364 add neg} {620 add neg} {876 add neg}
+               } exch get
+              exch 1 add exch s 2 index get exch exec
+            }
+           ifelse
+         }
+        ifelse =only
+       }
+      ifelse
+    } loop
+   pop
+ } bind def
+
+/printfont
+ { currentfont begin Private begin 10 dict begin
+   CharStrings { exch ==only printcs } forall
+   Subrs where
+    { pop      % the dictionary
+      0 1 Subrs length 1 sub
+       { dup =only
+         Subrs exch get printcs
+       } for
+    } if
+   end end end
+ } bind def
+
+% /Times-Roman findfont setfont
+% printfont