/*EU :EndUser4gl 4GL V.2.A0 			                                 */
/* LES FONCTION EXTERNES  :                                          */
/* EMPILER : OPCF_Pile_Empile( int, void *);		                     */
/* DEPILER : OPCF_Pile_Depile( int, void *);		                     */
/* etc.                                                              */

//#ifdef WIN31
//#include <windows.h>
#include <stdio.h>
#include <sql.h>
#include "opcdefine.h"
//#endif

 
 
extern  void  OPC_ReturnUpdateTabSymbole(int , char  * ) ;     /* type, namevar*/
 /* with PRECISION : type */
extern  void  OPC_ReturnValuesTabSymbole(\
 short int ,               /* type   : P_FLOAT,P_STRING etc... */
 short int,                 /* local  : LOCAL ou GLOBAL ou CONTEXTE         */
 char  *,             /* Nom de la variable */
 short int *,                /* Taille de la structure : type P_STRUCT, */
 short int *,                /* nombre d'élément : type P_TABLE */
 short int *,                /* offsetDebut de la variable dans la structure : type P_STRUCT, */
 short int *,                 /* offsetFin de la variable dans la structure : type P_STRUCT, */
 short int  *,                 /* longueur decimale de la variable */
short int  *,                 /* longueur de la variable */
 void *);             /* valeur de la variable */
 /* with NO PRECISION : type */
extern  void  OPC_ReturnValuesTabSymboleII(\
 short int * ,               /* type   : P_FLOAT,P_STRING etc... */
 short int,                 /* local  : LOCAL ou GLOBAL ou CONTEXTE         */
 char  *,             /* Nom de la variable */
 short int *,                /* Taille de la structure : type P_STRUCT, */
 short int *,                /* nombre d'élément : type P_TABLE */
 short int *,                /* offsetDebut de la variable dans la structure : type P_STRUCT, */
 short int *,                 /* offsetFin de la variable dans la structure : type P_STRUCT, */
 short int *,                 /* longueur de la variable */
 void *);             /* valeur de la variable */
extern int OPC_ReturnValuesLenghtTabSymbole(short int type, short int local, char  *champ );

extern int     OPC_CreateGlobalVar_TableSymbole(int,char *,int);/* type, namvevar, longueur*/
extern int     OPC_CreateLocalVar_TableSymbole(int,int,char *,int);/* type, prototype,namvevar, longueur*/
extern int     OPC_DuplicateVar_TableSymbole(char *,char *,int,int) ;
			/* Struct Origin,Destinat,Globale ou locales ,declaration struct dans struct*/
extern int     OPC_DuplicateInitVar_TableSymbole(char *,char *,int ) ;
			   /* Struct Origin,Destinat,Globale ou locales */
extern void    OPC_FileREAD_Struct(char * ,int  ,char *)    ;  /* Name Struct, Local ou Global */
extern void  OPC_FileUpdate_Struct(char * ,FILE * ,char * )  ;
extern int     OPCF_Pile_Empile( int, void *);
extern int     OPCF_Pile_Depile( int, void *);
extern int     OPCF_Pile_DepileDown( int  , void *   ,int  )     ;
extern float   OPC_Depile_Numeric(void)  ;
extern void    OPC_Depile_All(void) ;

extern unsigned short int P_C_I  ; /* nombre élément dans la pile des INTEGER */
extern unsigned short int P_C_S  ; /* nombre élément dans la pile des STRING  */
extern unsigned short int P_C_F  ; /* nombre élément dans la pile des FLOAT   */
extern unsigned short int P_C_L   ; /* nombre élément dans la pile des LONG   */
extern unsigned short int P_C_NV  ; /* nombre élément dans la pile des VARIABLES */
extern unsigned short int   Global_Bloc  ; // bloc instruction
extern int     OPC_Update_TableSymbole(char *, void * )  ;
extern int     OPC_Update_TableSymboleLong(char *, long )  ;
extern int     OPC_Update_TableSymboleConstant(int type,char *, long,char * )  ;
extern int     OPC_ReturnValuesTabSymboleConstante(int type,char *nom);
extern HMENU  OPC_ReturnValuesTabSymboleHmenu(char *nom);
extern char * OPC_ReturnValuesTabSymboleString(char *nom);

extern int     OPC_Update_TableSymboleString(char *, const char * )  ;
extern int OPC_Free_TableSymboleString(char *nom);
  
extern char * OPCF_Pile_DepileStringValue(int longueur);
extern int OPC_Update_TableSymboleStringEditWin(char *nom );
extern char    OPC_Struct_Master [MAXBUFLEN];     /* struct maitre */
extern int     OPC_TableSymbole(char *, void *);
extern void    OPC_Display_Global_TableSymbole(void)  ;
extern void    OPC_Display_Local_TableSymbole(void)  ;

extern void    OPCExit_opencompiler(void) ;
extern int OPC_Update_TableSQL(char *,SQLHSTMT ,BOOL   );