/* ************************** */
/*EU 4GL V 1.0        */
/* Ph BERGOUGNOUX             */
/* phone//fax 00 33 2 47 28 58 19  */
 /* ************************** */

/* ****************** dictionnaire	*****************************  ***/
/* code jusqu'. huit chif = 0xffffffff */
#include <windows.h>

struct __dictBtree
{
  struct __dictBtree *gauche,*droite;
  char *nom;

};
typedef struct __dictBtree 	          	OPCt_dictBtree;
 

struct __dict
{

  long code;
  long codeBloc;
  struct __dict *gauche,*droite;
  
  char *nom;
 // char *nom2;

};
 

struct __dictLocalInt
{
  long code;
    short int typeconst;
	short int type;
 	 int  offsetdebut;
	 int  offsetfin;
     char *nom;

	 short     ValInteger;
	 short     NumDialog;
	 short Initialize; // transaction
	 short InitializeDialog; // Dialog
unsigned short GlobalBlocTrs; // Global_Bloc P/transaction
	 HWND WinEdit;
	 HMENU WinMenu;
     BOOL swapBmp;
	 BOOL swapText;
	 BOOL swapColor;
	 BOOL swapFont;
	
  struct __dictLocalInt  *gauche,*droite;
};

struct __dictLocalLong
{
  long code;
  short int typeconst;
    short int type;
 	  int  offsetdebut;
	  int  offsetfin;
  long   ValLong;
  HWND WinEdit;
  struct __dictLocalLong  *gauche,*droite;

	char *nom;

  };
struct __dictLocalDouble
{
  long code;
    short int type;
 	short decimale;
	  int  offsetdebut;
	  int  offsetfin;


  double  ValDouble;
  HWND WinEdit;
  struct __dictLocalDouble  *gauche,*droite;
  	char *nom;

};

struct __dictLocalFloat
{
  long code;
    short int type;
 		short decimale;
	  int  offsetdebut;
	 int  offsetfin;


  float  ValFloat;
  HWND WinEdit;
  struct __dictLocalFloat  *gauche,*droite;
  	char *nom;

};

struct __dictLocalChar
{
  long code;
   short int typeconst;
    short int type;
	  int longueur;
	  int  offsetdebut;
	  int  offsetfin;

	  int nbelem;
	  BOOL DCalloc ;
	  HWND WinEdit;
	  OPCt_dictBtree  *racineBtree;
	 struct __dictLocalChar  *gauche,*droite;
	 char *nom;

	 LPSTR  FAR	  ValAlphNum ;

};
typedef struct __dict 	          	OPCt_dict;
 
typedef struct __dictGlobalInt 	 	OPCt_dictGlobalInt;
typedef struct __dictGlobalLong	  	OPCt_dictGlobalLong;
typedef struct __dictGlobalFloat  	OPCt_dictGlobalFloat;
typedef struct __dictGlobalDouble  	OPCt_dictGlobalDouble;
typedef struct __dictGlobalChar     OPCt_dictGlobalChar;

typedef struct __dictLocalInt 	 	OPCt_dictLocalInt;
typedef struct __dictLocalLong	  	OPCt_dictLocalLong;
typedef struct __dictLocalFloat  	OPCt_dictLocalFloat;
typedef struct __dictLocalDouble 	OPCt_dictLocalDouble;
typedef struct __dictLocalChar      OPCt_dictLocalChar;




void OPCF_str_dict_init(void) ;	/* init arbre	*/


OPCt_dict *
OPCF_str_dict_ins_rel(char *,OPCt_dict *);

OPCt_dict *
OPCF_str_dict_ins_inser(char *,char * );

OPCt_dict *
OPCF_str_dict_lectKW(char *);

OPCt_dict *
OPCF_str_dict_lec_rel(char *,OPCt_dict *);

 


struct __dictGlobalInt
{
  long code;
 short int typeconst;
    short int type;
 	  int  offsetdebut;
	  int  offsetfin;
	  short     ValInteger;
	  short     NumDialog;
	  HWND WinEdit;
	  HMENU WinMenu;
	  short Initialize; // transaction
     short InitializeDialog; // Dialog
unsigned short GlobalBlocTrs; // Global_Bloc P/transaction

     BOOL swapBmp;
	 BOOL swapText;
	 BOOL swapColor;
	 BOOL swapFont;
	 
     struct __dictGlobalInt  *gauche,*droite;
  
	char *nom;

};

struct __dictGlobalLong
{
   long code;
    short int typeconst;
    short int type;
 	  int  offsetdebut;
	  int  offsetfin;

  HWND WinEdit;
  long  ValLong;

  struct __dictGlobalLong  *gauche,*droite;
  	char *nom;

};

struct __dictGlobalDouble
{
  long code;
	  short int type;
 	  	short decimale;
		int  offsetdebut;
		int  offsetfin;
		HWND WinEdit;
	double  ValDouble;
	  struct __dictGlobalDouble  *gauche,*droite;
     
	char *nom;


};
struct __dictGlobalFloat
{
  long code;
	  short int type;
 	  	short decimale;
		int  offsetdebut;
		int  offsetfin;

	 HWND WinEdit;
   float  ValFloat;
	  struct __dictGlobalFloat  *gauche,*droite;
			char *nom;
};


struct __dictGlobalChar
{
  long code;
     short int typeconst;
    short int type;
	  int longueur;
	  int  offsetdebut;
	  int  offsetfin;

	  int nbelem;
	    BOOL DCalloc;
	  HWND WinEdit;
	  OPCt_dictBtree  *racineBtree ;
  struct __dictGlobalChar  *gauche,*droite;
  char *nom;

  LPSTR   FAR   ValAlphNum ;

};




/* Table Symbole 2 */

void OPCF_str_dict_initGlobal(void) ;	/* init arbre	*/




/* Table Symbole GLOBAL DES INTEGER */

void OPCF_str_dict_initGlobalInt(void) ;	/* init arbre	*/


OPCt_dictGlobalInt *
OPCF_str_dict_ins_relGlobalInt(char *,OPCt_dictGlobalInt *);

OPCt_dictGlobalInt *
OPCF_str_dict_ins_inserGlobalInt(char *);

OPCt_dictGlobalInt *
OPCF_str_dict_lectGlobalInt(char *);

OPCt_dictGlobalInt *
OPCF_str_dict_lec_relGlobalInt(char *,OPCt_dictGlobalInt *);

/* Table Symbole GLOBAL DES LONG */

void OPCF_str_dict_initGlobalLong(void) ;	/* init arbre	*/


OPCt_dictGlobalLong *
OPCF_str_dict_ins_relGlobalLong(char *,OPCt_dictGlobalLong *);

OPCt_dictGlobalLong *
OPCF_str_dict_ins_inserGlobalLong(char *);

OPCt_dictGlobalLong *
OPCF_str_dict_lectGlobalLong(char *);

OPCt_dictGlobalLong *
OPCF_str_dict_lec_relGlobalLong(char *,OPCt_dictGlobalLong *);

/* Table Symbole GLOBAL DES DOUBLES */

void OPCF_str_dict_initGlobalDouble (void) ;	/* init arbre	*/


OPCt_dictGlobalDouble *
OPCF_str_dict_ins_relGlobalDouble(char *,OPCt_dictGlobalDouble *);

OPCt_dictGlobalDouble *
OPCF_str_dict_ins_inserGlobalDouble(char *);

OPCt_dictGlobalDouble *
OPCF_str_dict_lectGlobalDouble(char *);

OPCt_dictGlobalDouble *
OPCF_str_dict_lec_relGlobalDouble(char *,OPCt_dictGlobalDouble *);

/* Table Symbole GLOBAL DES FLOAT */

void OPCF_str_dict_initGlobalFloat (void) ;	/* init arbre	*/


OPCt_dictGlobalFloat *
OPCF_str_dict_ins_relGlobalFloat(char *,OPCt_dictGlobalFloat *);

OPCt_dictGlobalFloat *
OPCF_str_dict_ins_inserGlobalFloat(char *);

OPCt_dictGlobalFloat *
OPCF_str_dict_lectGlobalFloat(char *);

OPCt_dictGlobalFloat *
OPCF_str_dict_lec_relGlobalFloat(char *,OPCt_dictGlobalFloat *);

/* Table Symbole GLOBAL DES CHAR */
  
void OPCF_str_dict_initGlobalChar (void) ;	/* init arbre	*/


OPCt_dictGlobalChar *
OPCF_str_dict_ins_relGlobalChar(char *,OPCt_dictGlobalChar *);

OPCt_dictGlobalChar *
OPCF_str_dict_ins_inserGlobalChar(char *);

OPCt_dictGlobalChar *
OPCF_str_dict_lectGlobalChar(char *);

OPCt_dictGlobalChar *
OPCF_str_dict_lec_relGlobalChar(char *,OPCt_dictGlobalChar *);

void OPC_Display_Prt_Global_TableSymbole(OPCt_dictGlobalInt *,\
OPCt_dictGlobalLong *,OPCt_dictGlobalFloat *,OPCt_dictGlobalDouble *,OPCt_dictGlobalChar *);

/* Table Symbole 3 */

void OPCF_str_dict_initLocal(void) ;	/* init arbre	*/




/* Table Symbole LOCAL DES INTEGER */

void OPCF_str_dict_initLocalInt(void) ;	/* init arbre	*/


OPCt_dictLocalInt *
OPCF_str_dict_ins_relLocalInt(char *,OPCt_dictLocalInt *);

OPCt_dictLocalInt *
OPCF_str_dict_ins_inserLocalInt(char *);

OPCt_dictLocalInt *
OPCF_str_dict_lectLocalInt(char *);

OPCt_dictLocalInt *
OPCF_str_dict_lec_relLocalInt(char *,OPCt_dictLocalInt *);

/* Table Symbole LOCAL DES LONG */

void OPCF_str_dict_initLocalLong(void) ;	/* init arbre	*/


OPCt_dictLocalLong *
OPCF_str_dict_ins_relLocalLong(char *,OPCt_dictLocalLong *);

OPCt_dictLocalLong *
OPCF_str_dict_ins_inserLocalLong(char *);

OPCt_dictLocalLong *
OPCF_str_dict_lectLocalLong(char *);

OPCt_dictLocalLong *
OPCF_str_dict_lec_relLocalLong(char *,OPCt_dictLocalLong *);

/* Table Symbole LOCAL DES DOUBLES */

void OPCF_str_dict_initLocalDouble (void) ;	/* init arbre	*/


OPCt_dictLocalDouble *
OPCF_str_dict_ins_relLocalDouble(char *,OPCt_dictLocalDouble *);

OPCt_dictLocalDouble *
OPCF_str_dict_ins_inserLocalDouble(char *);

OPCt_dictLocalDouble *
OPCF_str_dict_lectLocalDouble(char *);

OPCt_dictLocalDouble *
OPCF_str_dict_lec_relLocalDouble(char *,OPCt_dictLocalDouble *);

/* Table Symbole LOCAL DES FLOAT */

void OPCF_str_dict_initLocalFloat (void) ;	/* init arbre	*/


OPCt_dictLocalFloat *
OPCF_str_dict_ins_relLocalFloat(char *,OPCt_dictLocalFloat *);

OPCt_dictLocalFloat *
OPCF_str_dict_ins_inserLocalFloat(char *);

OPCt_dictLocalFloat *
OPCF_str_dict_lectLocalFloat(char *);

OPCt_dictLocalFloat *
OPCF_str_dict_lec_relLocalFloat(char *,OPCt_dictLocalFloat *);

/* Table Symbole LOCAL DES CHAR */

void OPCF_str_dict_initLocalChar (void) ;	/* init arbre	*/


OPCt_dictLocalChar *
OPCF_str_dict_ins_relLocalChar(char *,OPCt_dictLocalChar *);

OPCt_dictLocalChar *
OPCF_str_dict_ins_inserLocalChar(char *);

OPCt_dictLocalChar *
OPCF_str_dict_lectLocalChar(char *);

OPCt_dictLocalChar *
OPCF_str_dict_lec_relLocalChar(char *,OPCt_dictLocalChar *);

void OPC_Display_Prt_Local_TableSymbole(OPCt_dictLocalInt *,\
OPCt_dictLocalLong *,OPCt_dictLocalFloat *,OPCt_dictLocalDouble *,OPCt_dictLocalChar *);

/* Affichage TABLES DES SYMBOLES GLOBALES : integer, long, float, char */
// OPCt_dictGlobal *
// OPCF_str_dict_lectTabSymGlobal(char *);

//OPCt_dictGlobal *
//OPCF_str_dict_lec_relTabSymGlobal(char *,OPCt_dictGlobal *) ;
/* Table Symbole 1 */