/*
 * SaveBufferAs.ifx
 * Written by Thomas Krehbiel
 *
 * Save main buffer.
 *
 * Inputs:
 *    Word(Arg(1),1) = Frame number (1 - N)
 *    Word(Arg(1),2) = Main filename ("-" if not specified)
 *    Word(Arg(1),3) = Swap filename ("-" if not specified)
 *    Word(Arg(1),4) = Sequence number (?)
 *    Word(Arg(1),5) = Total number of frames (N)
 *
 * Returns:
 *    0 if successful, non-zero on failure
 *
 */

OPTIONS RESULTS

framenum = Word(Arg(1),1)
mainname = Word(Arg(1),2)
swapname = Word(Arg(1),3)
seqnum   = Word(Arg(1),4)
framemax = Word(Arg(1),5)

path = GETCLIP('Autofx_SaveRenderAsILBM_Path')
ext  = GETCLIP('Autofx_SaveRenderAsILBM_Ext')

i = POS('*', ext)
IF i > 0 THEN ext = LEFT(ext,i-1) || RIGHT('00000'||framenum,5) || SUBSTR(ext,i+1)

outfile = mainname||ext
IF path ~= "" THEN DO

   i = LASTPOS('/',mainname)
   IF i = 0 THEN i = LASTPOS(':',mainname)

   IF i = 0 THEN
      file = mainname
   ELSE
      file = SUBSTR(mainname,i+1)

   IF RIGHT(path,1) ~= ':' THEN path = path||'/'
   outfile = path||file||ext

   END

SaveRenderedAs ILBM '"'outfile'"'
EXIT rc