Scol » Lib2D GTK » Utils_g

/*! \file scol.h

*	\brief Scol plugin definition API

*   \author Sylvain HUET

*/

/*

// Modifications History

//

//$ LB (13/06/2002) : added the OBJgetNewHandler function to the cbmachine

// $ IRI (19/12/2010) : version windows

// $ IRI (31/01/2011) : add MMneedMemory

*/

#ifdef __cplusplus

extern "C" {

#endif

#ifndef SCOLPLUGIN_H

#define SCOLPLUGIN_H

#include <windows.h>

#include <stdio.h>

#include <stdlib.h>

/* DEFINITIONS DE TYPES ET DE CONSTANTES

  ---------------------------------------*/

#define SizeWord 4

#define SizeHeader 3

#define NIL -1

/* Scol virtual machine */

struct Mmachine

{

  int *tape;     /* tape pointer                */

  int sizetape;  /* size of the tape            */

  int pp;        /* stack pointer               */

  int maxpp;     /* max value of pp             */

  int topheap;   /* top of stack                */

  int sigGC;     /* GC activation distance      */

  int h;         /* current header position     */

  int err;

  int *top;		 /* top of tape */

  /*$BLG - v5.22: Add*/

  int lckdGC;	 /* Locked GC flag*/

};

typedef struct Mmachine *mmachine;

/* masq for MMmalloc : object table or other buffer */

#define TYPETAB 1

#define TYPEBUF 0

/* errors definition */

#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

#define MERREP        -10

#define MERRFILE      -11

#define MERRCLOSE     -12

/*$BLG - v5.22: Add*/

#define MERRCHNLDWN   -13

/* offsets object definition */

#define OFFSCCUR 0

#define OFFOBJMAG   0

#define OFFOBJCHN   1

#define OFFOBJTYP   2

#define OFFOBJHAND  3

#define OFFOBJTPERE 4

#define OFFOBJHPERE 5

#define OFFOBJREF0  6

#define OFFOBJUSER0 7

/* console messages mask definition */

#define MSKFOO     1

#define MSKRUNTIME 2

#define MSKWARNING 4

#define MSKTRACE   8

#define MSKDEBUG   16

/* predefined Scol types */

#define TYPVAR    -1

#define TYPCONS   -2

#define TYPTYPE   -3

#define TYPFIELD  -4

#define TYPSTRUC  -5

#define TYPCONS0  -6

#define TYPCOM    -7

#define TYPCOMV   -8

/* Files management in Scol

  ------------------------------*/

#define SIZESIGN 1024

struct Packdir

{

	char path[SIZESIGN];		/* end by '/'*/

	int quota;					/* -1: read only, 0: unlimited*/

	struct Packdir *next;

};

typedef struct Packdir *packdir;

#define TYPESNONE  0

#define TYPESLOGIC 1

/*

 * Exported Kernel functions to plugin

  ----------------------------------------------*/

struct CBmachine

{

  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,...);

  size_t (*fread)(void* buf,size_t i,size_t 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,int hwnd, unsigned msg,

				              int wParam,int 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);

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

  void (*MMputs)(int i, const char* text);

  /*$ LB (13/06/2002)*/

  int (*OBJgetNewHandler)();

int (*MMneedMemory)(mmachine m,int size,int realsize); /* $Iri */

};

typedef struct CBmachine *cbmachine;

extern cbmachine ww;

#define SCOLinitplugin(X) ww=X

#define MMpush (ww->MMpush)

#define MMpushNoGC (ww->MMpushNoGC)

#define MMpull (ww->MMpull)

#define MMgetPP (ww->MMgetPP)

#define MMsetPP (ww->MMsetPP)

#define MMget (ww->MMget)

#define MMset (ww->MMset)

#define MMgetglobal (ww->MMgetglobal)

#define MMsetglobal (ww->MMsetglobal)

#define MMgetbase (ww->MMgetbase)

#define MMsetbase (ww->MMsetbase)

#define MMfetch (ww->MMfetch)

#define MMstore (ww->MMstore)

#define MMstart (ww->MMstart)

#define MMsize (ww->MMsize)

#define MMtype (ww->MMtype)

#define MMstartstr (ww->MMstartstr)

#define MMsizestr (ww->MMsizestr)

#define MMsetsizestr (ww->MMsetsizestr)

#define MMmalloc (ww->MMmalloc)

#define MMmallocCLR (ww->MMmallocCLR)

#define Mpushstrbloc (ww->Mpushstrbloc)

#define MBdeftab (ww->MBdeftab)

#define MBstrcat (ww->MBstrcat)

#define PKhardpak (ww->PKhardpak)

#define PKloader (ww->PKloader)

#define SPfindfile (ww->SPfindfile)

#define SPaddfile (ww->SPaddfile)

#define SCgetsrvsocket (ww->SCgetsrvsocket)

#define SCgetsocket (ww->SCgetsocket)

#define Mcutting (ww->Mcutting)

#define MMechostr (ww->MMechostr)

/*#define fread (ww->fread)*/

#define Firstpack (ww->Firstpack)

#define OBJcreate (ww->OBJcreate)

#define OBJaddreflex (ww->OBJaddreflex)

#define OBJbeginreflex (ww->OBJbeginreflex)

#define OBJdel (ww->OBJdel)

#define OBJdestroy (ww->OBJdestroy)

#define OBJdelTH (ww->OBJdelTH)

#define OBJcallreflex (ww->OBJcallreflex)

#define OBJregister (ww->OBJregister)

#define OBJtypebyname (ww->OBJtypebyname)

#define OBJdefEvent (ww->OBJdefEvent)

#define OBJgetUserEvent (ww->OBJgetUserEvent)

#define SCgetExtra (ww->SCgetExtra)

#define stdloadJpg (ww->stdloadJpg)

#define OBJdelTM (ww->OBJdelTM)

#define OBJfindTH (ww->OBJfindTH)

#define OBJfindTM (ww->OBJfindTM)

#define Mpushstrblocn (ww->Mpushstrblocn)

#define Minterpreter (ww->Minterpreter)

#define Msearchinsyspak (ww->Msearchinsyspak)

#define MBstrcatn (ww->MBstrcatn)

#define Buf2Tex (ww->Buffer2texture)

#define MMputs (ww->MMputs)

/*$ LB (13/06/2002)*/

#define OBJgetNewHandler (ww->OBJgetNewHandler)

#define MMneedMemory (ww->MMneedMemory) /* $Iri */

#endif