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 / VisualBatchProcess.dopus5 < prev    next >
Text File  |  1999-07-16  |  3KB  |  166 lines
  1. /*
  2.  
  3.    v1.01 BatchProcess (for Magellan)
  4.  
  5.    Marko Seppänen
  6.    marko.seppanen@wwnet.fi
  7.  
  8. */
  9.  
  10.  
  11.  
  12. options results
  13.  
  14. if show("P","DOPUS.1") then address "DOPUS.1"
  15. else Exit
  16.  
  17.  
  18.  
  19.  
  20. x=arg(1)
  21. parse var x sourcedir file .
  22.  
  23.  
  24.  
  25. /* DO WE HAVE IMAGE ENGINEER AVAILABLE?" */
  26.  
  27. if ~show('P',IMAGEENGINEER) then do
  28.  
  29.   if exists('IE:IE') then do
  30.  
  31.     address command 'Run >NIL: IE:IE'
  32.     do 30 while ~SHOW('P',IMAGEENGINEER)
  33.       address command 'wait >nil: 1'
  34.     end
  35.  
  36.     if ~show('P',IMAGEENGINEER) then do
  37.       say "Could not open Image Engineer's Arexx-port for some reason."
  38.       say "Exiting.."
  39.     end
  40.  
  41.   end
  42.   else do
  43.     say "But where's the Image Engineer?!"
  44.     say "Exiting.."
  45.     exit
  46.   end
  47.  
  48. end
  49.  
  50.  
  51.  
  52.  
  53. /* OK. LET'S CONTINUE */
  54.  
  55. address IMAGEENGINEER
  56. signal on error
  57.  
  58. IE_TO_FRONT
  59.  
  60. if ~exists(sourcedir||"processed") then address command "makedir "sourcedir"processed"
  61.  
  62.  
  63.  
  64.  
  65. /* LOAD FILE */
  66.  
  67. OPEN "'"sourcedir||file"'" COLOUR
  68. newfile=result
  69. PROJECT_SET newfile ZOOM "1:16"
  70.  
  71.  
  72.  
  73.  
  74. /* DO SOMETHING */
  75.  
  76. if exists("ie:arexx/VisualBorderDemo.rexx") then do
  77.   address command "Sys:Rexxc/rx ie:arexx/VisualBorderDemo.rexx" newfile ROUNDCORNER 90 13
  78. end
  79. else do
  80.   'REQUEST "VisualBorderDemo.rexx is missing!" "Sorry"'
  81. end
  82.  
  83.  
  84. PROJECT_LIST
  85. xyz=result
  86. newpic=subword(xyz,1,1)
  87.  
  88. CLOSE newfile
  89.  
  90.  
  91.  
  92.  
  93. /* SAVE FILE */
  94.  
  95. lastp=lastpos(".",file)
  96. if lastp ~== "0" then do
  97.   oldsuffix=right(file,length(file)-lastp)
  98.   basename=left(file,lastp-1)
  99. end
  100. else basename=strip(substr(file,1,27),B," ")
  101.  
  102.  
  103.  
  104. select
  105.  
  106.   when upper(oldsuffix) == "JPG" | upper(oldsuffix) == "JPEG" | upper(oldsuffix) == "JFIF" then do
  107.    filetype="JPEG (IJG-JFIF)"
  108.    suffix=".jpg"
  109.   end
  110.  
  111.   when upper(oldsuffix) == "PNG" upper(oldsuffix) == "PING" then do
  112.    filetype="PNG (PiNG)"
  113.    suffix=".png"
  114.   end
  115.  
  116.   when upper(oldsuffix) == "TGA" | upper(oldsuffix) == "TARGA" then do
  117.    filetype="Targa (TGA)"
  118.    suffix=".tga"
  119.   end
  120.  
  121.   when upper(oldsuffix) == "TIF" | upper(oldsuffix) == "TIFF" then do
  122.    filetype="TIFF V5.0"
  123.    suffix=".tif"
  124.   end
  125.  
  126.   otherwise do
  127.    filetype="JPEG (IJG-JFIF)"
  128.    suffix=".jpg"
  129.   end
  130.  
  131. end
  132.  
  133.  
  134.  
  135. endpart=right(sourcedir,1)
  136. if endpart~=":" & endpart~="/" then sourcedir=sourcedir||"/"
  137.  
  138. newdir="processed/"
  139. fullpath=sourcedir||newdir||basename||suffix
  140.  
  141.  
  142. SAVE_DATA newpic '"'fullpath'"' '"'filetype'"'
  143.  
  144. CLOSE newpic
  145.  
  146.  
  147.  
  148.  
  149. exit
  150.  
  151.  
  152.  
  153. error:
  154. if RC=5 then do
  155.     IE_TO_FRONT
  156.     LAST_ERROR
  157.     'REQUEST "'||RESULT||'"'
  158.     exit
  159. end
  160. else do
  161.     IE_TO_FRONT
  162.     LAST_ERROR
  163.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  164.     exit
  165. end
  166.