/*
   ** ACE IFF commands.
   ** Copyright (C) 1998 David Benn
   ** 
   ** This program is free software; you can redistribute it and/or
   ** modify it under the terms of the GNU General Public License
   ** as published by the Free Software Foundation; either version 2
   ** of the License, or (at your option) any later version.
   **
   ** This program is distributed in the hope that it will be useful,
   ** but WITHOUT ANY WARRANTY; without even the implied warranty of
   ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   ** GNU General Public License for more details.
   **
   ** You should have received a copy of the GNU General Public License
   ** along with this program; if not, write to the Free Software
   ** Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
   **
   ** Author: David J Benn
   **   Date: 27th February 1994,
   **      10th,11th,19th August 1994
 */

#include "acedef.h"

/* externals */
extern int sym;
extern BOOL iffused;

/* functions */
void iff_open (void)
{
/* 
   ** IFF OPEN [#]channel,file-name
 */
  int itype;

  insymbol ();

  if (sym == hash)
    insymbol ();

  itype = expr ();

  if (itype == stringtype)
    _error (4);
  else
    {
      /* channel */
      if (make_integer (itype) == shorttype)
	make_long ();

      if (sym != comma)
	_error (16);
      else
	{
	  /* picture file name */
	  insymbol ();
	  if (expr () != stringtype)
	    _error (4);
	  else
	    {
	      /* call function */
	      gen ("jsr", "_IFFPicOpen", "  ");
	      gen ("addq", "#8", "sp");
	      enter_XREF ("_IFFPicOpen");
	    }
	}

    }
}

void iff_read (void)
{
/* 
   ** IFF READ [#]channel[,screen-id]
 */
  int itype;

  insymbol ();

  if (sym == hash)
    insymbol ();

  itype = expr ();

  if (itype == stringtype)
    _error (4);
  else
    {
      /* channel */
      if (make_integer (itype) == shorttype)
	make_long ();

      if (sym != comma)
	/* no screen-id */
	gen ("move.l", "#-1", "-(sp)");
      else
	{
	  /* screen-id */

	  insymbol ();

	  itype = expr ();

	  if (itype == stringtype)
	    _error (4);
	  else
	    {
	      if (make_integer (itype) == shorttype)
		make_long ();

	    }
	}

      /* call function */
      gen ("jsr", "_IFFPicRead", "  ");
      gen ("addq", "#8", "sp");
      enter_XREF ("_IFFPicRead");
    }
}

void iff_close (void)
{
/* 
   ** IFF CLOSE [#]channel
 */
  int itype;

  insymbol ();

  if (sym == hash)
    insymbol ();

  itype = expr ();

  if (itype == stringtype)
    _error (4);
  else
    {
      /* channel */
      if (make_integer (itype) == shorttype)
	make_long ();

      /* call function */
      gen ("jsr", "_IFFPicClose", "  ");
      gen ("addq", "#4", "sp");
      enter_XREF ("_IFFPicClose");
    }
}

void iff (void)
{
/* IFF OPEN | READ | CLOSE */

  insymbol ();

  switch (sym)
    {
    case opensym:
      iff_open ();
      break;
    case readsym:
      iff_read ();
      break;
    case closesym:
      iff_close ();
      break;
    }

  /* 
     ** All three require intuition.library.
   */
  enter_XREF ("_IntuitionBase");

  /*
     ** We need to tell ACE to create/delete ILBM.library.
   */
  iffused = TRUE;
}