home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 September / PCWK996.iso / sharewar / 95 / narzedzi / ambra / ambr32a1.exe / FILE / ARCHIVE.Z / ACROBAT / VIEWER32.EXE / PSPROCSET / 3 < prev    next >
Text File  |  1996-02-22  |  979b  |  41 lines
  1. %%BeginFile: pdfutil.prc
  2. %%Copyright: Copyright 1993 Adobe Systems Incorporated. All Rights Reserved.
  3. % Basic utilities used by other PDF procsets
  4.  
  5. /bd {bind def} bind def
  6. /ld {load def} bd
  7.  
  8. % key value dd -
  9. /dd { PDFVars 3 1 roll put } bd
  10.  
  11. % value key xdd -
  12. /xdd { exch dd } bd
  13.  
  14. % return true if a language level >= 2
  15. /Level2?
  16.     /languagelevel where { pop languagelevel 2 ge } { false } ifelse
  17. def
  18. % /Level2? false def
  19.  
  20. % check if key found in the current dictionary
  21. % if so, put <value> true on the stack
  22. % else put false on the stack
  23. /here { 
  24.     dup currentdict exch known
  25.         { currentdict exch get true }
  26.         { pop false }
  27.     ifelse
  28. } bd
  29.  
  30. % return true if name is defined
  31. /isdefined? { where { pop true } { false } ifelse } bd
  32.  
  33. % Routines to perform level/product specific code isolation
  34. /StartLoad { dup dup not { /_save save dd } if } bd
  35. /EndLoad   { if not { _save restore } if } bd
  36.  
  37. % integer npop -
  38. /npop {    { pop } repeat } bd
  39.  
  40. %%EndFile
  41.