// VM  mapped files
// подгрузка ромов частями

//#include "..\mylib.h"
#include "shared.h"
//#define SEGA
//#include "swilib.h"
//#include "random.h"

//extern unsigned int randseed;
//extern unsigned char USERAM, SGOLD2;

#define k16
#ifndef k16
//32k
#define pagesize 0x8000
#define pagemask 0x7FFF
#define pageshift 15
#else
//16k
#define pagesize 0x4000
#define pagemask 0x3FFF
#define pageshift 14

#endif
/*
struct fmapst{
  FILE* f; //handle
  char **mem; //сюда помещ. рез-т 
  int pages; //всего страниц в файле
  int allocpages; //выделено памяти под страниц в файле
};
*/
struct fmapst fmap;


//extern int fmapopen(char *fname, struct fmapst *fmap, int freepages); //открыть файл и спроецировать на память страниц maxpages
//extern void fmapread(struct fmapst *fmap, int page); // "подгрузить" страницу
//extern void fmapclose(struct fmapst *fmap); //закрыть файл

#ifdef SEGA

//unsigned int aa;
//uint8 *yy;

uint8 READ_ROM(int a){ 
//	return READ_BYTE(cart_rom,a);
  a=a^1;
//  aa = (a>>pageshift);
  if(!fmap.mem[a>>pageshift])
    fmapread(&fmap,a>>pageshift);
  return fmap.mem[a>>pageshift][(a & pagemask)];//rom.bank
  //return READ_BYTE((uint8*)fmap.mem+aa,a & pagemask);
}
/*
uint8 READ2_ROM(int a){ 
	//return READ_BYTE(yy,a);
  //a=a^1;
  aa = (a>>pageshift);
  if(!fmap.mem[aa])
    fmapread(&fmap,aa);
  return fmap.mem[aa][(a & pagemask)];//rom.bank
  //return READ_BYTE((uint8*)fmap.mem+aa,a & pagemask);
}


uint16 READ_WROM(int a){ 
//  return READ_WORD(cart_rom,a);
	return (READ2_ROM(a+1)<<8) | READ2_ROM(a);
}
*/

uint16 READ_WROM(int a){ 
//  aa = (a>>pageshift);
  if(!fmap.mem[a>>pageshift])
    fmapread(&fmap,a>>pageshift);
  return *(uint16*)(fmap.mem[a>>pageshift]+(a & pagemask));//rom.bank
}


//#define READ_ROM(ADDR) (cart_rom)[(ADDR)^1]
//#define READ_WROM(ADDR) (((cart_rom)[(ADDR)+1]<<8) |   (cart_rom)[(ADDR)])

#endif

void xswap(char *mem, int length)
{
    int i;
	char temp;
    for(i = 0; i < length; i += 2)
    {
        temp = mem[i+0];
        mem[i+0] = mem[i+1];
        mem[i+1] = temp;
    }
}

//-------------------------------//
#define ffopen fopen
#define ffclose fclose
#define ffread fread
#define llseek lseek


extern int maxcnt; // Всего файлов в 7z архиве
extern int un7zinit(char *buf); // Иниц-я 
extern char *un7z(int num); // Получить файл номер num
extern void un7zexit(); // Выход
extern char *un7znext(); // Распаковать следующий un7z файл
        

//"Не могу открыть файл
//Файл пустой
//Нет памяти для map

int fmapopen(char *fname, struct fmapst *fmap, int freepages){ //открыть файл и спроецировать на память, оставить своб. free страниц
  int i, pages;
  int f;
  char **mem;
  if((fmap->f=f=ffopen(fname,A_ReadOnly+A_BIN,P_READ,&err))==0) return 2; //no open
  loadfilesize=llseek(f,0,2,&err,&err);
  llseek(f,0,0,&err,&err);
  if(!(pages=fmap->pages=loadfilesize>>pageshift)) return 3; //file empty
  if(!(mem=fmap->mem=(char**)malloc(pages<<2))) return 4; //no mem
  memset(mem,0,pages<<2);
  for(i=0;i<pages;i++)
//	  if(i>7){ *mem++=0; break;} else  ////////test - vary slow!!!
		  if(!(*mem++=(char*)malloc(pagesize))) break;
  if(i<pages)
    while(--freepages>=0){ mfree(*--mem); *mem=0; --i;}
  *mem=0;
  fmap->allocpages=i;
  //cache
  mem=fmap->mem;
  while(--i>=0){
    ffread(f,*mem,pagesize,&err);
#ifdef SEGA
	xswap(*mem,pagesize);//add
#endif
	mem++;
  }
  return 0;
}

void fmapclose(struct fmapst *fmap){ //закрыть файл
  char **mem=fmap->mem;
  int i=fmap->pages;
  while(--i>=0){
    if(*mem) mfree(*mem);
    ++mem;
  }
  mfree(fmap->mem);
  if(fmap->f>0) ffclose(fmap->f,&err);
//  memset(&fmap,0,sizeof(struct fmapst));
}

void readfile(int f, char *buf, int n){//читать сектор
  llseek(f,n<<pageshift,0,&err,&err);
  ffread(f,buf,pagesize,&err);
#ifdef SEGA
  xswap(buf,pagesize); //add
#endif
}


//int random(){ return 1;}//FAKE!!! //должен возвр. 2 байта!!!
extern unsigned int randint( int max );

void fmapread(struct fmapst *fmap, int page){ // "подгрузить" страницу
  int n;
  if(fmap->mem[page]) return;
  char **mem=fmap->mem+1;//+1 резерв!!!
  //получ. СЧ сектор или по частоте n=random/pageees
   n=randint(fmap->allocpages-1);
  while(n>=0) if(*mem++) --n; //>=0????
  //читать сектор
  readfile(fmap->f, fmap->mem[page]=*--mem, page);
  *mem=0; //освободить место
}


//пример чтения сектора
//  if(!mem[j=i>>pageshift]) fmapread(f,mem,j);
//  return mem[j][i&pagemask];

//проверка границ
//if((i&pagemask)<pagesize-4)

//открытие ф-а
//if((f=fmapopen(fname,getfreeram()*3/4))<0) error
//fmapclose();

//под буфер
//char *mem2[100]; //100 4 кб страниц
//ramalloc(mem2,100);

//////////

//void Killer(void){
//extern void *ELF_BEGIN;
//((void (*)(void *))(mfree_adr()))(&ELF_BEGIN);
//}