home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / amiga-magazin / visualengineer / ve-full.lha / arexx / SaveIT.rexx < prev    next >
OS/2 REXX Batch file  |  1999-07-15  |  2KB  |  102 lines
  1. /*
  2.  
  3.    v1.00 SaveIT
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11. address IMAGEENGINEER
  12.  
  13. Options results
  14. /* signal on error    */    /* Setup a place for errors to go */
  15.  
  16. if arg()=0 then exit
  17. pic=arg(1)
  18.  
  19.  
  20.  
  21. if exists("ie:prefs/vesaveit.cfg") == "1" then
  22.   do
  23.     call open("temp","ie:prefs/vesaveit.cfg","R")
  24.     values=readln("temp")
  25.     parse var values ok savedir basename fileformat .
  26.     call close("temp")
  27.   end
  28. else
  29.   do
  30.     savedir="ram:"
  31.     basename="picture"
  32.     fileformat=0
  33.   end
  34.  
  35. 'FORM "SaveIT" "Use|Cancel"',
  36. 'DIR,"Savedir",'savedir'',
  37. 'STRING,"Basename",'basename',25',
  38. 'CYCLE,"Fileformat","JPG|PNG|TIFF|TARGA",'fileformat''
  39.  
  40. values=result
  41. parse var values ok savedir basename fileformat .
  42.  
  43. if ok = 0 then exit
  44.  
  45. call open("temp","ie:prefs/vesaveit.cfg","W")
  46. res=writeln("temp",values)
  47. call close("temp")
  48.  
  49.  
  50.  
  51. savedir=strip(savedir,B,'"')
  52. basename=strip(basename,B,'"')
  53.  
  54. endpart=right(savedir,1)
  55. if endpart~=":" & endpart~="/" then savedir=savedir||"/"
  56.  
  57. if fileformat == "0" then suffix=".jpg"
  58. if fileformat == "1" then suffix=".png"
  59. if fileformat == "2" then suffix=".tif"
  60. if fileformat == "3" then suffix=".tga"
  61.  
  62.  
  63.  
  64.  
  65. tmp=1
  66. do until test==0
  67.   test=exists(savedir||basename||tmp||suffix)
  68.   if test=1 then tmp=tmp+1
  69. end
  70.  
  71. fullpath=savedir||basename||tmp||suffix
  72.  
  73.  
  74.  
  75. if fileformat == "0" then filetype="JPEG (IJG-JFIF)"
  76. if fileformat == "1" then filetype="PNG (PiNG)"
  77. if fileformat == "2" then filetype="Targa (TGA)"
  78. if fileformat == "3" then filetype="TIFF V5.0"
  79.  
  80. SAVE_DATA pic '"'fullpath'"' '"'filetype'"'
  81.  
  82. exit
  83.  
  84.  
  85. /*******************************************************************/
  86. /* This is where control goes when an error code is returned by IE */
  87. /* It puts up a message saying what happened and on which line     */
  88. /*******************************************************************/
  89. error:
  90. if RC=5 then do            /* Did the user just cancel us? */
  91.     IE_TO_FRONT
  92.     LAST_ERROR
  93.     'REQUEST "'||RESULT||'"'
  94.     exit
  95. end
  96. else do
  97.     IE_TO_FRONT
  98.     LAST_ERROR
  99.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  100.     exit
  101. end
  102.