/**************************************************************************
 *
 * Copyright (C) 1999 Mats Eirik Hansen (mats.hansen@triumph.no)
 *
 * $Id$
 *
 * $Log$
 *
 *************************************************************************/

#include <stdio.h>

#include <exec/types.h>
#include <exec/memory.h>

#include <inline/exec.h>
#include <inline/dos.h>

#ifdef POWERUP
#include <powerup/ppclib/memory.h>
#include <inline/ppc.h>
#endif

#include "main.h"
#include "file.h"
#include "osdepend.h"

#ifndef POWERUP
#define MAlloc(a) AllocVec(a,MEMF_PUBLIC|MEMF_CLEAR)
#define Free(a)   FreeVec(a)
#else
#define MAlloc(a) PPCAllocVec(a,MEMF_PUBLIC|MEMF_CLEAR|MEMF_NOCACHESYNCPPC|MEMF_NOCACHESYNCM68K)
#define Free(a)   PPCFreeVec(a)
#endif

struct File *OpenFile(const char *dir_name, const char *file_name, int mode)
{
  struct File *file;
  BPTR    lock;
  LONG    i;

  file = MAlloc(sizeof(struct File));
  
  if(file)
  {
    i = strlen(dir_name);

    if(i)
    {
      sprintf(file->Name, "%s/%s", dir_name, file_name);

      file->File  = Open(file->Name, mode);
      file->Type  = FILETYPE_NORMAL;
      
      if(!file->File && i && (mode == MODE_OLDFILE))
      {
        sprintf(&file->Name[i], ".zip");

        lock = Lock(file->Name, ACCESS_READ);
  
        if(lock)
        {
          file->File  = ~0;
          file->Type  = FILETYPE_ZIP;
        }
        else
        {
          sprintf(&file->Name[i], ".lha");

          lock = Lock(file->Name, ACCESS_READ);
  
          if(lock)
            sprintf(file->Name, "lha <>NIL: e %s.lha %s T:", dir_name, file_name);
          else
          {
            sprintf(&file->Name[i], ".lzx");

            lock = Lock(file->Name, ACCESS_READ);
  
            if(lock)
              sprintf(file->Name, "lzx <>NIL: x %s.lzx %s T:", dir_name, file_name);
          }

          if(lock)
          {
            System(file->Name, NULL);
          
            sprintf(file->Name,"T:%s", file_name);
          
            file->File  = Open(file->Name, mode);
            file->Type  = FILETYPE_TMP;
          }
        }

        if(lock)
          UnLock(lock);
      }
    }
    else
    {
      file->File  = Open((STRPTR) file_name, mode);
      file->Type  = FILETYPE_NORMAL;
    }
    
    if(!file->File)
    {
      Free(file);
      return(NULL);
    }
  }

  return(file);
}

struct File *OpenFileType(const char *dir_name, const char *file_name, int mode, int type)
{
  char    name[256];
  LONG    i;
  struct File *file;
  BPTR    lock;

  file = NULL;

  switch(type)
  {
    case OSD_FILETYPE_ROM:
#ifdef MESS
    case OSD_FILETYPE_ROM_CART:
    case OSD_FILETYPE_IMAGE:
#endif
      if(Config[CFG_ROMPATH])
      {
        i = strlen((char *) Config[CFG_ROMPATH]);
        
        if(i)
        {
          strcpy(name, (char *) Config[CFG_ROMPATH]);
          if((name[i - 1] != ':') && (name[i - 1] != '/'))
            name[i++] = '/';
          sprintf(&name[i], "%s", dir_name);
          file = OpenFile(name, file_name, mode);
          
          if(!file)
          {
            name[i] = 0;
            file = OpenFile(name, file_name, mode);
          }
        }
      }
      if(!file)
      {
        sprintf(name, "roms/%s", dir_name);
        file = OpenFile(name, file_name, mode);
      }
      if(!file)
      {
        file = OpenFile(dir_name, file_name, mode);
      }
      return(file);

    case OSD_FILETYPE_SAMPLE:
      if(Config[CFG_SAMPLEPATH])
      {
        i = strlen((char *) Config[CFG_SAMPLEPATH]);
        
        if(i)
        {
          strcpy(name, (char *) Config[CFG_SAMPLEPATH]);
          if((name[i - 1] != ':') && (name[i - 1] != '/'))
            name[i++] = '/';
          sprintf(&name[i], "%s", dir_name);
          file = OpenFile(name, file_name, mode);
        }
      }
      if(!file)
      {
        sprintf(name, "samples/%s", dir_name);
        file = OpenFile(name, file_name, mode);
      }
      if(Config[CFG_ROMPATH])
      {
        i = strlen((char *) Config[CFG_ROMPATH]);

        if(i)
        {
          strcpy(name, (char *) Config[CFG_ROMPATH]);
          if((name[i - 1] != ':') && (name[i - 1] != '/'))
            name[i++] = '/';
          sprintf(&name[i], "%s", dir_name);
          file = OpenFile(name, file_name, mode);
        }
      }
      if(!file)
      {
        sprintf(name, "roms/%s", dir_name);
        file = OpenFile(name, file_name, mode);
      }
      if(!file)
        file = OpenFile(dir_name, file_name, mode);
      if(!file)
        file = OpenFile("roms", file_name, mode);
      if(!file)
        file = OpenFile("", file_name, mode);
      return(file);

    case OSD_FILETYPE_HIGHSCORE:
      if(mode == MODE_NEWFILE)
      {
        lock = Lock("hi", ACCESS_READ);

        if(!lock)
          lock = CreateDir("hi");

        if(lock)
          UnLock(lock);       
      }
      sprintf(name, "%s.hi", dir_name);
      return(OpenFile("hi", name, mode));

    case OSD_FILETYPE_CONFIG:
      if(mode == MODE_NEWFILE)
      {
        lock = Lock("cfg", ACCESS_READ);
        
        if(!lock)
          lock = CreateDir("cfg");

        if(lock)
          UnLock(lock);
      }
      sprintf(name, "%s.cfg", dir_name);
      return(OpenFile("cfg", name, mode));

    case OSD_FILETYPE_INPUTLOG:
      sprintf(name, "%s.inp", file_name);
      return(OpenFile("", name, mode));

    default:
      return(NULL);
  }
}

void CloseFile(struct File *file)
{
  if(file->Type != FILETYPE_CUSTOM)
  {
    if(file->Type != FILETYPE_ZIP)
      Close(file->File);
  
    if(file->Type == FILETYPE_TMP)
      DeleteFile(file->Name);
  
    Free(file);
  }
}