#include <stdio.h>
#include <string.h>
#include "../winuser.h"
#include "../../kernel/scolobj.h"


int OBJTYPFILE;
/* reflexes type FILE */
#define RFLFILE_NB      0


int _DLGOpenFile(mmachine m)
{ m->pp += 5; return MMpush(m, NIL); }

int _DLGOpenFileMulti(mmachine m)
{ m->pp += 5; return MMpush(m, NIL); }

int _DLGSaveFile(mmachine m)
{ m->pp += 5; return MMpush(m, NIL); }

int _DLGMessageBox(mmachine m)
{m->pp+=5;return MMpush(m,NIL); } 


int _DLGrflopen(mmachine m)
{ m->pp += 3; return MMpush(m, NIL); }

int _DLGrflopenMulti(mmachine m)
{ m->pp += 3; return MMpush(m, NIL); }

int _DLGrflsave(mmachine m)
{ m->pp += 3; return MMpush(m, NIL); }

int _DLGrflmessage(mmachine m)
{ m->pp += 3; return MMpush(m, NIL); }


/* File fun [Chn channel P filename] */
int _FILEOpen(mmachine m)
{
  int s;
  int filename;
  FILE *f;

  filename = MMpull(m);

  if ((MMget(m, 0) == NIL) || (filename == NIL))
  {
	  MMset(m, 0, NIL);
	  return 0;
  }
  
  f = fopen(MMstartstr(m, filename>>1), "rb");
  MMechostr(MSKDEBUG, "\nOpening the file %s : %d\n\n", MMstartstr(m, filename>>1), f);
  if (!f)
  {
	  MMset(m, 0, NIL);
	  return 0;
  }

  s = MMmalloc(m, 2, TYPEBUF); 
  if (s == NIL)
  	return MERRMEM;
  
  *(FILE**)MMstart(m, s) = f;
  if (MMpush(m, s+s+1))
  	return MERRMEM;

  return OBJcreate(m, OBJTYPFILE, (int)f, -1, 0);
}


int FILEdelete2(mmachine m, int handsys, int objm)
{
  FILE *f;
  
  if (objm == NIL)
  	return 0;
  
  f = *(FILE**)MMstart(m, objm>>1);
  
  fclose(f);
  
  *(FILE**)MMstart(m, objm>>1) = NULL;
  
  return 0;
}


int _FILEClose(mmachine m)
{
  int p;
  FILE *file;

  p = MMget(m, 0)>>1;
  if (p == NIL)
  	return 0;
  
  file = *(FILE**)MMstart(m, p);

  MMset(m, 0, NIL);
  if (file == NULL)
  	return 0;
  
  OBJdelTH(m, OBJTYPFILE, (int)file);
  MMset(m, 0, 0);
  
  return 0;
}


/* I fun [File f, I pos, I from] */
int _FILESeek(mmachine m)
{
  int p;
  FILE *file;
  int pos;
  int from;
  int res;

  from = MMpull(m)>>1;
  pos = MMpull(m)>>1;
  p = MMget(m,0)>>1;
  
  if (p == NIL)
  	return 0;
  
  file = *(FILE**)MMstart(m, p);

  MMset(m, 0, NIL);
  if (file == NULL)
  	return 0;
  
  res = fseek(file, pos, from);
  MMset(m, 0, res<<1);

  return 0;
}


int _FILETell(mmachine m)
{
  int p;
  FILE *file;
  int res;

  p = MMget(m, 0)>>1;
  if (p == NIL)
  	return 0;
  
  file = *(FILE**)MMstart(m, p);

  MMset(m, 0, NIL);
  if (file == NULL)
  	return 0;
  
  res = ftell(file);
  MMset(m, 0, res<<1);

  return 0;
}


int _FILESize(mmachine m)
{
  int p;
  FILE *file;
  int temp;
  int res;

  p = MMget(m, 0)>>1;
  if (p == NIL)
  	return 0;
  	
  file = *(FILE**)MMstart(m, p);

  MMset(m, 0, NIL);
  if (file == NULL) 
  	return 0;
  
  temp = ftell(file);
  fseek(file, 0, SEEK_END);
  res = ftell(file);
  fseek(file, temp, SEEK_SET);
  MMset(m, 0, res<<1);

  return 0;
}


/* S fun [File f,I size] */
int _FILERead(mmachine m)
{
  int p;
  FILE *file;
  int s;
  int size;
  int res;
  
  size = MMpull(m)>>1;
  p = MMget(m, 0)>>1;
  if (p == NIL) 
  	return 0;
  
  file = *(FILE**)MMstart(m, p);
  
  MMset(m, 0, NIL);
  
  if (size < 0) 
  	return 0;
  	
  if (file == NULL) 
  	return 0;
  
  s = MMmalloc(m, ((size+5)>>2)+1, TYPEBUF);
  if (s == NIL)
  	return MERRMEM;
  
  res = fread(MMstartstr(m, s), 1, size, file);
  MMstore(m, s, 0, res);

  //MMechostr(1,"\nRead %d bytes (%d requested) from a file [%X] (now at pos %d) \n\n",res,size,file,ftell(file));

  ((char*)MMstartstr(m, s))[size] = 0;
  MMset(m, 0, (s<<1)|1);
  
  return 0;
}


int _GetFileNameFromP(mmachine m)
{
  int filename;
  int len;
  int rlen;
  char *S;
  char buf[256];
  
  filename = MMpull(m)>>1;
  
  if (filename == NIL) 
  {
    MMpush(m, NIL);
    return 0;
  }
  
  rlen = MMsizestr(m, filename);
  len = rlen;
  S = MMstartstr(m, filename);
  
  while ((len >= 0) && (S[len] != '/') && (S[len] != '\\')) 
  	len--; 
  
  strcpy(buf, S+len+1);
  return Mpushstrbloc(m, buf);
}


int _PtoScol(mmachine m)
{ 
  packdir p;
  int q, i, l, k;
  char *s;
  char buf[1024];
  char file[1024];

  q = MMpull(m)>>1;
  if (q == NIL) 
  	return MMpush(m, NIL);
  	
  s = MMstartstr(m, q);
  l = strlen(s);
  if (l >= 1023) 
  	return MMpush(m, NIL);

  strcpy(file,s);

  for (i = 0; i < l; i++) 
  	if (file[i] == '\\') 
  		file[i] = '/';
  	else if ((file[i] >= 'a') && (file[i] <= 'z')) 
  		file[i] += 'A' - 'a';

  p = Firstpack;
  while(p)
  {
    strcpy(buf, p->path);
    k = strlen(buf);
    
    for(i = 0; i < k; i++) 
	    if (buf[i] == '\\') 
	    	buf[i] = '/';
	    else if ((buf[i] >= 'a') && (buf[i] <= 'z')) 
	    	buf[i] += 'A' - 'a';
    	
    if (!strncmp(buf, file, k))
    {
      strcpy(file, s);
			for(i = 0; i < l; i++) 
				if (file[i] == '\\') 
					file[i] = '/';
      return Mpushstrbloc(m, file+k);
    }
    
    p = p->next;
  }
  
  return MMpush(m, NIL);
}



#define NDLGPKG 22

char* DLGname[NDLGPKG]=
{
	"OpenBox",
	"OpenBoxMulti",
	"SaveBox",
	"MessageBox",
	"_DLGOpenFile",
	"_DLGOpenFileMulti",
	"_DLGSaveFile",
	"_DLGMessageBox",
	"_DLGrflopen",
	"_DLGrflopenMulti",
	"_DLGrflsave",
	"_DLGrflmessage",
	"_FILEOpen",
	"_FILEClose",
	"_FILESeek",
	"_FILETell",
	"_FILESize",
	"_FILERead",
	"_GetFileNameFromP",
	"_GetFileNameFromW",
	"_PtoScol",
	"File"
};

int (*DLGfun[NDLGPKG])(mmachine m)=
{
	NULL,
	NULL,
	NULL,
	NULL,
	_DLGOpenFile,
	_DLGOpenFileMulti,
	_DLGSaveFile,
	_DLGMessageBox,
	_DLGrflopen,
	_DLGrflopenMulti,
	_DLGrflsave,
	_DLGrflmessage,
	_FILEOpen,
	_FILEClose,
	_FILESeek,
	_FILETell,
	_FILESize,
	_FILERead,
	_GetFileNameFromP,
	_GetFileNameFromP,
	_PtoScol,
	NULL
};

int DLGnarg[NDLGPKG]=
{
	TYPTYPE,
	TYPTYPE,
	TYPTYPE,
	TYPTYPE,
	5,
	5,
	5,
	5,
	3,
	3,
	3,
	3,
	2,
	1,
	3,
	1,
	1,
	2,
	1,
	1,
	1,
	TYPTYPE
};

char* DLGtype[NDLGPKG]=
{
	NULL,
	NULL,
	NULL,
	NULL,
	"fun [Chn ObjWin S S S] OpenBox",
	"fun [Chn ObjWin S S S] OpenBoxMulti",
	"fun [Chn ObjWin S S S] SaveBox",
	"fun [Chn ObjWin S S I] MessageBox",
	"fun [OpenBox fun [OpenBox u0 P] u1 u0] OpenBox",
	"fun [OpenBoxMulti fun [OpenBoxMulti u0 [P r1]] u1 u0] OpenBoxMulti",
	"fun [SaveBox fun [SaveBox u0 W] u1 u0] SaveBox",
	"fun [MessageBox fun [MessageBox u0 I] u1 u0] MessageBox",
	"fun [Chn P] File",
	"fun [File] I",
	"fun [File I I] I",
	"fun [File] I",
	"fun [File] I",
	"fun [File I] S",
	"fun [P] S",
	"fun [W] S",
	"fun [P] S",
	NULL
};



int SCOLloadDLG(mmachine m)
{
  OBJTYPFILE = OBJregister(RFLFILE_NB, 0, FILEdelete2, "OBJTYPFILE");
  return PKhardpak(m, "DLG.pkg", NDLGPKG, DLGname, DLGfun, DLGnarg, DLGtype);
}