aboutsummaryrefslogtreecommitdiff
path: root/nx-X11/lib/dpstk/FSBwraps.psw
diff options
context:
space:
mode:
authorReinhard Tartler <siretart@tauware.de>2011-10-10 17:43:39 +0200
committerReinhard Tartler <siretart@tauware.de>2011-10-10 17:43:39 +0200
commitf4092abdf94af6a99aff944d6264bc1284e8bdd4 (patch)
tree2ac1c9cc16ceb93edb2c4382c088dac5aeafdf0f /nx-X11/lib/dpstk/FSBwraps.psw
parenta840692edc9c6d19cd7c057f68e39c7d95eb767d (diff)
downloadnx-libs-f4092abdf94af6a99aff944d6264bc1284e8bdd4.tar.gz
nx-libs-f4092abdf94af6a99aff944d6264bc1284e8bdd4.tar.bz2
nx-libs-f4092abdf94af6a99aff944d6264bc1284e8bdd4.zip
Imported nx-X11-3.1.0-1.tar.gznx-X11/3.1.0-1
Summary: Imported nx-X11-3.1.0-1.tar.gz Keywords: Imported nx-X11-3.1.0-1.tar.gz into Git repository
Diffstat (limited to 'nx-X11/lib/dpstk/FSBwraps.psw')
-rw-r--r--nx-X11/lib/dpstk/FSBwraps.psw491
1 files changed, 491 insertions, 0 deletions
diff --git a/nx-X11/lib/dpstk/FSBwraps.psw b/nx-X11/lib/dpstk/FSBwraps.psw
new file mode 100644
index 000000000..c36a0d78c
--- /dev/null
+++ b/nx-X11/lib/dpstk/FSBwraps.psw
@@ -0,0 +1,491 @@
+/*
+ * FSBwraps.psw
+ *
+ * (c) Copyright 1991-1994 Adobe Systems Incorporated.
+ * All rights reserved.
+ *
+ * Permission to use, copy, modify, distribute, and sublicense this software
+ * and its documentation for any purpose and without fee is hereby granted,
+ * provided that the above copyright notices appear in all copies and that
+ * both those copyright notices and this permission notice appear in
+ * supporting documentation and that the name of Adobe Systems Incorporated
+ * not be used in advertising or publicity pertaining to distribution of the
+ * software without specific, written prior permission. No trademark license
+ * to use the Adobe trademarks is hereby granted. If the Adobe trademark
+ * "Display PostScript"(tm) is used to describe this software, its
+ * functionality or for any other purpose, such use shall be limited to a
+ * statement that this software works in conjunction with the Display
+ * PostScript system. Proper trademark attribution to reflect Adobe's
+ * ownership of the trademark shall be given whenever any such reference to
+ * the Display PostScript system is made.
+ *
+ * ADOBE MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THE SOFTWARE FOR
+ * ANY PURPOSE. IT IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
+ * ADOBE DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
+ * IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ * NON- INFRINGEMENT OF THIRD PARTY RIGHTS. IN NO EVENT SHALL ADOBE BE LIABLE
+ * TO YOU OR ANY OTHER PARTY FOR ANY SPECIAL, INDIRECT, OR CONSEQUENTIAL
+ * DAMAGES OR ANY DAMAGES WHATSOEVER WHETHER IN AN ACTION OF CONTRACT,
+ * NEGLIGENCE, STRICT LIABILITY OR ANY OTHER ACTION ARISING OUT OF OR IN
+ * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ADOBE WILL NOT
+ * PROVIDE ANY TRAINING OR OTHER SUPPORT FOR THE SOFTWARE.
+ *
+ * Adobe, PostScript, and Display PostScript are trademarks of Adobe Systems
+ * Incorporated which may be registered in certain jurisdictions
+ *
+ * Author: Adobe Systems Incorporated
+ */
+
+defineps _DPSFClearWindow(DPSContext ctxt)
+ 1 setgray
+ 0 0 2000 2000 rectfill
+endps
+
+defineps _DPSFPreviewString(DPSContext ctxt; char *font; float size;
+ char *text; int height | boolean *bogus)
+ mark {
+ /font size selectfont
+ 0 height neg 5 div itransform
+ exch pop 5 exch moveto
+ 0 setgray
+ (text) show
+ } stopped bogus cleartomark
+endps
+
+defineps _DPSFReclip(DPSContext ctxt)
+ initclip
+ initviewclip
+endps
+
+defineps _DPSFUndefineFont(DPSContext ctxt; char *font; boolean oldServer)
+ currentshared true setshared % currentshared
+ {/font undefinefont} stopped % currentshared [font] stopped
+ {
+ false setshared % currentshared font
+ {undefinefont} stopped {
+ pop
+ } if
+ } if
+ setshared
+ oldServer { 2 vmreclaim } if
+endps
+
+defineps _DPSFDefineFontEnumFunctions(DPSContext ctxt)
+ $Adobe$DPS$Lib$Dict begin
+ /GetFontName { % int GetFontName string
+ $Adobe$DPS$Lib$Dict /FontDict get begin
+ dup maxItems div truncate cvi baseArray exch get
+ exch maxItems mod get
+ end
+ } bind def
+
+ % (str) x y SafeBBox left bottom right top
+ /SafeBBox {
+ 3 copy % (str) x y (str) x y
+ newpath
+ moveto % (str) x y (str)
+ {
+ mark exch false charpath flattenpath pathbbox
+ } stopped {
+ cleartomark
+ 3 -1 roll dup length dup % x y (str) len len
+ 1 le {
+ pop
+ % punt; we can't divide it any more
+ 0 0 moveto stringwidth pop % x y wx
+ dup 2 index add exch 3 index add exch
+ } {
+ 2 copy % x y (str) len (str) len
+ 2 idiv % x y (str) len (str) len/2
+ 0 exch % x y (str) len (str) 0 len/2
+ getinterval dup % x y (str) len (s1) (s1)
+ 5 index 5 index % x y (str) len (s1) (s1) x y
+ $Adobe$DPS$Lib$Dict /SafeBBox get exec
+ % x y (str) len (s1) l1 b1 r1 t1
+ 9 4 roll % l1 b1 r1 t1 x y (str) len (s1)
+ stringwidth % ... x y (str) len wx wy
+ 5 -1 roll add exch % ... x (str) len y+wy wx
+ 5 -1 roll add exch % ... (str) len x+wx y+wy
+ 4 2 roll % ... x+wx y+wy (str) len
+ dup 2 idiv % ... x+wx y+wy (str) len len/2
+ exch 2 div ceiling cvi
+ % ... x+wx y+wy (str) len/2 ceil(len/2)
+ getinterval % ... x+wx y+wy (s2)
+ 3 1 roll % ... (s2) x+wx y+wy
+ $Adobe$DPS$Lib$Dict /SafeBBox get exec
+ % l1 b1 r1 t1 l2 b2 r2 t2
+ 5 -1 roll 2 copy % l1 b1 r1 l2 b2 r2 t2 t1 t2 t1
+ gt {pop} {exch pop} ifelse % l1 b1 r1 l2 b2 r2 t
+ 7 1 roll % t l1 b1 r1 l2 b2 r2
+ 4 -1 roll 2 copy % t l1 b1 l2 b2 r2 r1 r2 r1
+ gt {pop} {exch pop} ifelse % t l1 b1 l2 b2 r
+ 6 1 roll % r t l1 b1 l2 b2
+ 3 -1 roll 2 copy % r t l1 l2 b2 b1 b2 b1
+ lt {pop} {exch pop} ifelse % r t l1 l2 b
+ 5 1 roll % b r t l1 l2
+ 2 copy % b r t l1 l2 l1 l2
+ lt {pop} {exch pop} ifelse % b r t l
+ 4 1 roll % l b r t
+ } ifelse
+ } { % mark (str) x y l b r t
+ 8 -4 roll pop pop pop pop
+ } ifelse
+ } bind def
+ /DownloadPS {
+ $Adobe$DPS$Lib$Dict /downloadSuccess false put
+ (%stdin) (r) file
+ cvx stopped
+ pop % always true
+ % Flush until you get the magic line
+ {
+ {currentfile 256 string readline} stopped
+ pop % don't care stopped result
+ pop % don't care readline bool result
+(Magic end of data line \)\)\)\)\)\)\)\)\)\) 99#2 2#99 <xyz> // 7gsad,32h4ghNmndFgj2)
+ eq
+ {exit} if
+ } loop
+ } bind def
+ end
+endps
+
+defineps _DPSFEnumFonts(DPSContext ctxt | int *count; int *totalLength)
+ $Adobe$DPS$Lib$Dict begin
+ /FontDict 5 dict def
+ FontDict begin
+ /currentItem 0 def
+ /maxItems 100 def
+ /maxArrays 20 def % This is the max index, not the array size!
+ /baseArray maxArrays 1 add array def
+ /currentArray 0 def
+ baseArray 0 maxItems array put
+ end
+
+ /AddFontName { % string AddFontName success
+ $Adobe$DPS$Lib$Dict /FontDict get begin
+ 1 { % provides enclosing loop for exit
+ currentItem maxItems eq
+ {
+ currentArray maxArrays eq {pop false exit} if
+ /currentArray currentArray 1 add def
+ baseArray currentArray maxItems array put
+ /currentItem 0 def
+ } if
+ dup length string copy
+ baseArray currentArray get currentItem 3 -1 roll put
+ /currentItem currentItem 1 add def
+ true
+ } repeat % provides enclosing loop for exit
+ end
+ } bind def
+
+ 3 dict begin
+ /$listString 256 string def
+ /countFonts 0 def
+ /totalLen 0 def
+
+ % Enumerate SharedFontDirectory
+ SharedFontDirectory { % forall
+ pop % /fontname
+ $listString cvs % (fontname)
+ dup AddFontName % (name) success
+ {
+ /countFonts countFonts 1 add def
+ length 1 add totalLen add /totalLen exch def
+ } {
+ pop
+ } ifelse
+ } forall
+
+ % Enumerate %font% storage device, if available.
+ /filenameforall where { % if
+ pop
+ (%font%*) { % filenameforall
+ % Check if name is something we really believe
+ % is a font. Leave either "false" or "(name) true"
+ % on stack
+
+ % Discard filenames containing "."
+ (.) search { % if
+ pop pop pop null false
+ } { % else
+ dup % (%font%name) (%font%name)
+ (%font%) anchorsearch { % if
+ % (%font%name) (name) (%font%)
+ pop exch pop % (name)
+ dup AddFontName % (name) success
+ } { % else
+ pop null false
+ } ifelse
+ } ifelse
+
+ % Stack is either "<something> false" or "(name) true"
+ {
+ /countFonts countFonts 1 add def
+ length 1 add totalLen add /totalLen exch def
+ } {
+ pop
+ } ifelse
+ } $listString filenameforall
+ } if
+ totalLen totalLength countFonts count
+ end
+ end
+
+ $Adobe$DPS$Lib$Dict /AddFontName undef
+endps
+
+defineps _DPSFGetAllFontNames(DPSContext ctxt; int fontCount; int arrLen |
+ char fontNames[arrLen])
+ $Adobe$DPS$Lib$Dict begin
+ FontDict begin
+ 0 1 fontCount 1 sub {
+ GetFontName fontNames
+ ( ) fontNames
+ } for
+ end
+ end
+endps
+
+defineps _DPSFGetFontInfo(DPSContext ctxt; int fontNum; boolean oldServer |
+ char *familyName; char *fullName; char *weight;
+ boolean *blendedFont, *undefineIt, *bogus)
+ fontNum $Adobe$DPS$Lib$Dict /GetFontName get exec
+
+ dup dup % fontname fontname fontname
+ SharedFontDirectory exch known % fontname fontname known
+ dup undefineIt exch % fontname known fontname
+ % (leave fontname and known on stack
+ % for the duration of this call
+ % even though I don't list them in
+ % the comments)
+ { % stopped
+ findfont dup % fontdir fontdir
+ /FontInfo known { % fontdir bool
+ /FontInfo get dup dup % fontinfo fontinfo fontinfo
+ /FamilyName known { % fontinfo fontinfo bool
+ /FamilyName get % fontinfo (familyname)
+ } {
+ pop ()
+ } ifelse
+ exch dup dup % (familyname) fontinfo fontinfo fontinfo
+ /FullName known { % (familyname) fontinfo fontinfo bool
+ /FullName get % (familyname) fontinfo (fullname)
+ } {
+ pop ()
+ } ifelse
+ exch dup dup % (familyname) (fullname) fontinfo*3
+ /Weight known { % (familyname) (fullname) fontinfo*2 bool
+ /Weight get % (familyname) (fullname) fontinfo (weight)
+ } {
+ pop (Medium)
+ } ifelse
+ exch % (familyname) (fullname) (weight) fontinfo
+ /BlendAxisTypes known % (familyname) (fullname) (weight) blendedFont
+
+ dup blendedFont % (familyname) (fullname) (weight) blendedFont
+ } {
+ pop () () ()
+ false false blendedFont
+ } ifelse % (familyname) (fullname) (weight) blendedFont
+ false bogus
+
+ } stopped {
+ () () ()
+ false false blendedFont
+ true bogus
+ } if
+
+ 4 1 roll % blendedFont (familyname) (fullname) (weight)
+ weight fullName familyName
+ % fontname known is still on the stack so...
+ % fontname known blendedFont
+
+ % if blendedFont (the bool on the stack) is true, don't undefine things
+ % just yet since we'll be coming back quite soon for more stuff
+
+ not and { % undefine font if we just defined
+ % it to get this information
+ currentshared true setshared
+ exch % currentshared fontname
+ {undefinefont} stopped % currentshared [fontname] stopped
+ {
+ false setshared % currentshared fontname
+
+ {undefinefont} stopped {
+ pop
+ } if
+ } if
+ setshared
+
+ oldServer {2 vmreclaim} if
+ } {
+ pop
+ } ifelse
+endps
+
+defineps _DPSFFreeFontInfo(DPSContext ctxt)
+ $Adobe$DPS$Lib$Dict /FontDict undef
+ $Adobe$DPS$Lib$Dict /GetFontName undef
+ 1 vmreclaim
+endps
+
+defineps _DPSFIsFontResident(DPSContext ctxt; char *name; | boolean *resident)
+ SharedFontDirectory /name known {
+ true resident
+ } {
+ /buf (name) length 6 add string def
+ buf 0 (%font%) putinterval
+ buf 6 (name) putinterval
+ buf status dup resident { pop pop pop pop } if
+ } ifelse
+endps
+
+defineps _DPSFGetBlendedFontInfo(DPSContext ctxt; int fontNum;
+ boolean undefineIt; boolean oldServer |
+ int *axes; int *designs;
+ char axisNames[256];
+ float blendPos[64]; int breakCount[4];
+ int blendBreak[48]; float blendBreakValue[48];
+ boolean *bogus)
+
+ fontNum $Adobe$DPS$Lib$Dict /GetFontName get exec
+ $Adobe$DPS$Lib$Dict /stringbuf 256 string put
+ dup % duplicate fontname; we'll need it later
+
+ findfont /FontInfo get dup % fontinfo fontinfo
+ /BlendAxisTypes get % fontinfo array
+ dup length axes % fontinfo array
+ { % Concatenate all the names into axisNames
+ $Adobe$DPS$Lib$Dict /stringbuf get cvs
+ axisNames
+ ( ) axisNames
+ } forall
+ dup dup % fontinfo fontinfo fontinfo
+ /BlendDesignPositions known { % fontinfo fontinfo known
+ /BlendDesignPositions get % fontinfo array
+ dup length designs % fontinfo array
+ { % enumerate the subarrays
+ {
+ blendPos
+ } forall
+ } forall
+ false
+ } {
+ pop true
+ } ifelse % fontinfo bool
+ exch dup % bool fontinfo fontinfo
+ /BlendDesignMap known { % bool fontinfo known
+ /BlendDesignMap get % bool array
+ {
+ dup length % bool subarray len
+ breakCount % bool subarray len
+ {
+ aload pop % bool break breakvalue
+ blendBreakValue
+ blendBreak
+ } forall
+ } forall
+ false
+ } {
+ pop true
+ } ifelse % bool bool
+
+ or bogus
+
+ undefineIt { % undefine font if we just defined
+ % it to get this information
+ currentshared true setshared
+ exch % currentshared fontname
+ {undefinefont} stopped % currentshared [fontname] stopped
+ {
+ false setshared % currentshared fontname
+
+ {undefinefont} stopped {
+ pop
+ } if
+ } if
+ setshared
+ oldServer { 2 vmreclaim } if
+ } {
+ pop
+ } ifelse
+ $Adobe$DPS$Lib$Dict /stringbuf undef
+endps
+
+defineps _DPSFShowText(DPSContext ctxt; char *text; char *font; float size;
+ int x, y | boolean *bogus)
+ mark {
+ /font size selectfont
+ x y moveto
+ (text) show
+ } stopped dup bogus cleartomark
+endps
+
+defineps _DPSFShowTextAndGetDimensions(DPSContext ctxt;
+ char *text; char *font; float size;
+ int x, y |
+ float *width, *left, *right,
+ *top, *bottom)
+ mark {
+ /font size selectfont
+ x y moveto
+ (text) show
+ (text) stringwidth pop width
+ (text) x y $Adobe$DPS$Lib$Dict /SafeBBox get exec
+ } stopped {0 0 0 0} if
+ top right bottom left
+ cleartomark
+endps
+
+defineps _DPSFGetTextDimensions(DPSContext ctxt;
+ char *text; char *font; float size;
+ float x, y |
+ float *width, *height,
+ *left, *right, *top, *bottom;
+ boolean *bogus)
+ mark {
+ /font size selectfont
+ (text) stringwidth height width
+
+ (text) x y $Adobe$DPS$Lib$Dict /SafeBBox get exec
+ } stopped dup bogus {0 0 0 0} if
+ top right bottom left
+ cleartomark
+endps
+
+defineps _DPSFGetCTM(DPSContext ctx | float ctm[6], invctm[6])
+ matrix currentmatrix dup ctm matrix invertmatrix invctm
+endps
+
+defineps _DPSFSetUpMM(DPSContext ctxt; char *font, *str; float size;
+ int height; float p[n]; int n | boolean *bogus)
+ userdict /fontDefined known {
+ /tempfont undefinefont
+ } if
+ mark {
+ /tempfont /font findfont p makeblendedfont definefont
+ size scalefont setfont
+ 0 height neg 5 div itransform
+ exch pop 5 exch moveto
+ (str) stringwidth pop pop
+ /fontDefined true def
+ } stopped bogus cleartomark
+endps
+
+defineps _DPSFDrawMM(DPSContext ctxt; char *str; int height)
+ 0 height neg 5 div itransform
+ exch pop 5 exch moveto
+ (str) show
+endps
+
+defineps _DPSFPrepareToDownload(DPSContext ctxt; boolean makeShared |
+ boolean *currShared)
+ $Adobe$DPS$Lib$Dict /DownloadPS get
+ currentshared currShared makeShared setshared
+endps
+
+defineps _DPSFFinishDownload(DPSContext ctxt; boolean shared | boolean *ok)
+ shared setshared
+ $Adobe$DPS$Lib$Dict /downloadSuccess get ok
+endps