home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / chip-cd_2000_05.zip / 05 / software / grafika / igrafx / data1.cab / FilterPsiImport / IMPSI2.FLT / PSIRC / STARTUP < prev    next >
Text File  |  1999-02-19  |  1KB  |  64 lines
  1. %
  2. %  Environment dependant variables
  3. %
  4.  
  5. /@sys_path (system.ps) def
  6.  
  7. %
  8. %  Initialize the PostScript machinery
  9. %
  10.  
  11. (Loading PSI...) print
  12. @sys_path run
  13. (Done\n) print
  14.  
  15. /printpath { /_str 16 string def
  16.    {(Move: )print exch _str cvs print( )print _str cvs print(\n)print}
  17.    {(Draw: )print exch _str cvs print( )print _str cvs print(\n)print}
  18.    {(Curv: )print 6 -2 roll exch _str cvs print( )print _str cvs print
  19.       ( )print 4 -2 roll exch _str cvs print( )print _str cvs print
  20.       ( )print exch _str cvs print( )print _str cvs print(\n)print}
  21.    {(Done:\n)print} pathforall } @bd
  22.  
  23. %
  24. %  Enter the normal flow
  25. %
  26.  
  27. /@inp (%stdin) (r) file def
  28.  
  29. /@pmt { /@buf 256 string def
  30.     { prompt @inp @buf readline pop cvx exec } loop
  31.       } def
  32.  
  33. /@execut false def
  34. /executive { /@execut true def stop
  35.        } @bd
  36.  
  37. start
  38.  
  39. %@args length 1 eq
  40. %{
  41. %   { @inp cvx stopped @execut { clear exit } if
  42. %     { /@execut false def errordict /handleerror get exec } if
  43. %   } loop
  44. %}
  45. %{
  46. %   1 1 @args length 1 sub
  47. %   { @args exch get run } for
  48. %} ifelse
  49. %@execut { @pmt } if
  50.  
  51. @args length 1 eq
  52. {
  53.    { @inp cvx stopped @execut { clear exit } if
  54.      { /@execut false def errordict /handleerror get exec } if
  55.    } loop
  56. }
  57. {
  58.    1 1 @args length 1 sub
  59.    { @args exch get {run} stopped
  60.      { errordict /handleerror get exec exit } if
  61.    } for
  62. } ifelse
  63. @execut { @pmt } if
  64.