/*! \file scol_plugin_linux.h
*	\brief Scol plugin definition API (GNU / Linux)
*   \author Sylvain HUET
*/
/*
        SCOLPLUGIN.H . 1996-99 . Sylvain HUET

         definitions pour les plugins Scol
*/


#ifndef SCOLPLUGIN_H
#define SCOLPLUGIN_H



#include <stdio.h>
#include <stdlib.h>

/* DEFINITIONS DE TYPES ET DE CONSTANTES
  ---------------------------------------*/
/* $iri  -> */
#define SizeWord 4
#define SizeHeader 3
/* <- $iri */

#define NIL -1

/* machine virtuelle Scol */
struct Mmachine
{
  int *tape;     /* pointeur vers la bande       */
  int sizetape;  /* taille de la bande (en mots) */
  int pp;        /* pointeur de pile             */
  int maxpp;     /* valeur max de pp             */
  int topheap;   /* sommet du tas                */
  int sigGC;     /* distance declenchant le GC   */
  int h;         /* position header courant      */
  int err;
  int *top;		 /* top of tape */ /* add by  $iri */
};
typedef struct Mmachine *mmachine;

extern mmachine mm;

/* masque pour MMmalloc : tableau d'objets ou buffer quelconque */
#define TYPETAB 1
#define TYPEBUF 0

/* definitions des erreurs */
#define MERREND     1
#define MERROK      0
#define MERRMEM    -1
#define MERRTYP    -2
#define MERRRET    -3
#define MERRNUL    -4
#define MERRNF     -5
#define MERRLINK   -6
#define MERRFULL   -7
#define MERRUNKNOWN -8
#define MERRTOOLARGE -9

/* definition des offsets objets */
#define OFFOBJMAG   0
#define OFFOBJCHN   1
#define OFFOBJTYP   2
#define OFFOBJHAND  3
#define OFFOBJTPERE 4
#define OFFOBJHPERE 5
#define OFFOBJREF0  6
#define OFFOBJUSER0 7

/* definitions des masques de message console */
#define MSKFOO     1
#define MSKRUNTIME 2
#define MSKWARNING 4
#define MSKTRACE   8
#define MSKDEBUG   16


/* types Scol predefinis */
#define TYPVAR    -1
#define TYPCONS   -2
#define TYPTYPE   -3
#define TYPFIELD  -4
#define TYPSTRUC  -5
#define TYPCONS0  -6
#define TYPCOM    -7
#define TYPCOMV   -8


/* GESTION DES FICHIERS EN SCOL
  ------------------------------*/

#define SIZESIGN 1024

struct Packdir
{
  char path[SIZESIGN];  /* se termine par '/' */
  int quota;   /* -1: read only, 0: unlimited */
  struct Packdir *next;
};
typedef struct Packdir *packdir;

#define TYPESNONE  0
#define TYPESLOGIC 1


/* FONCTIONS DU KERNEL EXPORTEES VERS LE PLUGIN
  ----------------------------------------------*/
#ifdef __cplusplus
extern "C" {
#endif
int  MMpush (mmachine m, int val);
int  MMpushNoGC (mmachine m, int val);
int  MMpull(mmachine m);
int  MMgetPP(mmachine m);
void MMsetPP(mmachine m,int i);
int  MMget(mmachine m,int i);
void MMset(mmachine m,int i,int v);
int  MMgetglobal(mmachine m,int i);
void MMsetglobal(mmachine m,int i,int v);
int  MMgetbase(mmachine m,int b,int i);
void MMsetbase(mmachine m,int b,int i,int v);
int  MMfetch(mmachine m,int s,int i);
void MMstore(mmachine m,int s,int i,int v);
int* MMstart(mmachine m,int s);
int  MMsize(mmachine m,int s);
int  MMtype(mmachine m,int s);
char* MMstartstr(mmachine m,int s);
int  MMsizestr(mmachine m,int s);
void MMsetsizestr(mmachine m,int s,int size);
int  MMmalloc(mmachine m, int size, int type);
int  MMmallocCLR(mmachine m, int size, int type);
int  Mpushstrbloc(mmachine m,char *buf);
int  MBdeftab(mmachine m);
int  MBstrcat(mmachine m);
void MMechostr(int i,char *buf,...);
int  SPfindfile(packdir p,char *sign,int *size,char *path);
int  SPaddfile(packdir p,char *sign,int size,char *path);
int  SCgetsocket(mmachine m, int channel);
int  SCgetsrvsocket(mmachine m, int server);
int  MBstrcatn(mmachine m);
int  Minterpreter(mmachine m);
int  PKhardpak(mmachine m, char *name,
                 int n, char **namefun, int (**fun)(mmachine z),
                 int *nargfun, char **typfun);
int  PKloader(mmachine m,char *name,char *simplename);

size_t fread(void* buf,size_t i,size_t j,FILE *f);

int MMneedMemory(mmachine m,int size,int realsize); /* $Iri */
#ifdef __cplusplus
}
#endif



int  Mcutting(char *comm, char **argv);

#ifdef __cplusplus
extern "C" {
#endif
int  OBJcreate(mmachine m,int typ,int handsys,int typpere,int handsyspere);
int  OBJaddreflex(mmachine m,int typ, int num);
int  OBJbeginreflex(mmachine m,int typ,int handsys,int num);
int  OBJdel(mmachine m,int p,int flag);
int  OBJdestroy(mmachine m, int typ,int handsys,int objm,int flag);
int  OBJdelTH(mmachine m,int typ,int handsys);
int  OBJcallreflex(mmachine m,int nbarg);
int  OBJregister(int nbrefl,int recrefl,int (*destroy)(mmachine m,int handsys,int objm),char *name);
int  OBJtypebyname(char *name);
int  OBJdefEvent(int event,int (*cbevent)(mmachine m,int hwnd, unsigned msg,
				            int wParam,int lParam,int *ret));
int  OBJgetUserEvent();


int  OBJdelTM(mmachine m,int typ,int q);
int  OBJfindTH(mmachine m,int typ,int handsys);
int  OBJfindTM(mmachine m,int typ,int objm);



extern int (*mt_start)(int per,int param,int (*fun)(int i,int param));
extern int (*mt_del)(int i);
#ifdef __cplusplus
}
#endif
char* stdloadJpg(char *name,int *w,int *h);
int  Mpushstrblocn(mmachine m,char *buf, int n);

int  Msearchinsyspak(mmachine m, char *name);

int  Buffer2texture(mmachine m, char *buffer, int width, int height);



void* objdd_get_buffer (mmachine m, int mobj);
int _CRbitmap (mmachine m);

/* old ones
int (*MMpush)(mmachine m, int val);
int (*MMpushNoGC)(mmachine m, int val);
int (*MMpull)(mmachine m);
int (*MMgetPP)(mmachine m);
void (*MMsetPP)(mmachine m,int i);
int (*MMget)(mmachine m,int i);
void (*MMset)(mmachine m,int i,int v);
int (*MMgetglobal)(mmachine m,int i);
void (*MMsetglobal)(mmachine m,int i,int v);
int (*MMgetbase)(mmachine m,int b,int i);
void (*MMsetbase)(mmachine m,int b,int i,int v);
int (*MMfetch)(mmachine m,int s,int i);
void (*MMstore)(mmachine m,int s,int i,int v);
int* (*MMstart)(mmachine m,int s);
int (*MMsize)(mmachine m,int s);
int (*MMtype)(mmachine m,int s);
char* (*MMstartstr)(mmachine m,int s);
int (*MMsizestr)(mmachine m,int s);
void (*MMsetsizestr)(mmachine m,int s,int size);
int (*MMmalloc)(mmachine m, int size, int type);
int (*MMmallocCLR)(mmachine m, int size, int type);
int (*Mpushstrbloc)(mmachine m,char *buf);
int (*MBdeftab)(mmachine m);
int (*MBstrcat)(mmachine m);
int (*PKhardpak)(mmachine m, char *name,
              int n, char **namefun, int (**fun)(mmachine z)
              , int *nargfun, char **typfun);
int (*PKloader)(mmachine m,char *name,char *simplename);
int (*SPfindfile)(packdir p,char *sign,int *size,char *path);
int (*SPaddfile)(packdir p,char *sign,int size,char *path);
int (*SCgetsrvsocket)(mmachine m, int server);
int (*SCgetsocket)(mmachine m, int channel);
int (*Mcutting)(char *comm, char **argv);
void (*MMechostr)(int i,char *buf,...);
int (*fread)(char* buf,int i,int j,FILE *f);
packdir Firstpack;
int (*OBJcreate)(mmachine m,int typ,int handsys,int typpere,int handsyspere);
int (*OBJaddreflex)(mmachine m,int typ, int num);
int (*OBJbeginreflex)(mmachine m,int typ,int handsys,int num);
int (*OBJdel)(mmachine m,int p,int flag);
int (*OBJdestroy)(mmachine m, int typ,int handsys,int objm,int flag);
int (*OBJdelTH)(mmachine m,int typ,int handsys);
int (*OBJcallreflex)(mmachine m,int nbarg);
int (*OBJregister)(int nbrefl,int recrefl,int (*destroy)(mmachine m,int handsys,int objm),char *name);
int (*OBJtypebyname)(char *name);
int (*OBJdefEvent)(int event,int (*cbevent)(mmachine m,HWND hwnd, unsigned msg,
				UINT wParam,LONG lParam,int *ret));
int (*OBJgetUserEvent)();
void* (*SCgetExtra)(char *funcname);
char* (*stdloadJpg)(char *name,int *w,int *h);
int (*OBJdelTM)(mmachine m,int typ,int q);
int (*OBJfindTH)(mmachine m,int typ,int handsys);
int (*OBJfindTM)(mmachine m,int typ,int objm);
int (*Mpushstrblocn)(mmachine m,char *buf, int n);
int (*Minterpreter)(mmachine m);
int (*Msearchinsyspak)(mmachine m, char *name);
int (*MBstrcatn)(mmachine m);
*/





#endif