OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-09 13:22:24 +03:00
Code Activity

Integration of OCCT 6.5.0 from SVN

Browse Source
This commit is contained in:
bugmaster
2011-03-16 07:30:28 +00:00
committed by bugmaster
parent 4903637061
commit 7fd59977df
16375 changed files with 3882564 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/IncludeLibrary/FILES Executable file
View File

@@ -0,0 +1,20 @@
IncludeLibrary_Mode_Connect.h
IncludeLibrary_NTD_interface.h
IncludeLibrary_NTD_starter.h
IncludeLibrary_NTD_stsdef.h
IncludeLibrary_NTD_stsmsg.h
IncludeLibrary_buf_cmd_rsp_siz.h
IncludeLibrary_call_get_receiving.h
IncludeLibrary_comand.h
IncludeLibrary_debug.h
IncludeLibrary_inverse.h
IncludeLibrary_inverse_mimot.h
IncludeLibrary_max.h
IncludeLibrary_ntd.h
IncludeLibrary_osd.h
IncludeLibrary_osd_dlopen.h
IncludeLibrary_server_interface.h
IncludeLibrary_srvtyp.h
IncludeLibrary_status.h
IncludeLibrary_stsgrpdef.h
IncludeLibrary_typedef.h

17
src/IncludeLibrary/IncludeLibrary_Mode_Connect.h Executable file
View File

@@ -0,0 +1,17 @@
#define START_ONLY 0
#define START_CNX 1
#define START_MULT_CNX 2
#define NO_LOAD 256
#define ENGINE_NOTLOADED 0
#define ENGINE_LOADED 1
#define LOCAL_SELECTOR -1
#define LOCAL_ACCESS 0
#define SERVER_ACCESS 1
#define STARTER_CNX 1
#define STARTER_START 2
#define SERPC_CNX 3
#define SERPC_START 4
#define SERPC_MULT_CNX 5

382
src/IncludeLibrary/IncludeLibrary_NTD_interface.h Executable file
View File

@@ -0,0 +1,382 @@
#ifndef INCLUDELIBRARY_NTD_INTERFACE_H
#define INCLUDELIBRARY_NTD_INTERFACE_H
#if defined(__hpux) || defined(HPUX)
# include <dl.h>
#endif
#if defined(WNT) && !defined(HAVE_NO_DLL)
# ifndef __NTD_API
# if defined(__NTD_DLL)
# define __NTD_API __declspec( dllexport )
# else
# define __NTD_API __declspec( dllimport )
# endif
# endif
# ifndef __Engine_API
# if defined(__Engine_DLL)
# define __Engine_API __declspec( dllexport )
# else
# define __Engine_API __declspec( dllimport )
# endif
# endif
#else
# define __NTD_API
# define __Engine_API
#endif
#ifndef __INCLUDELIBRARY_SERVER_INTERFACE_H
#include <IncludeLibrary_server_interface.h>
#endif
#define ind_init_ntd 0
#define ind_movc3 1
#define ind_movc5 2
#define ind_ntd_connect 3
#define ind_ntd_disconnect 4
#define ind_ntd_free 5
#define ind_ntd_gravity 6
#define ind_ntd_read 7
#define ind_ntd_reada 8
#define ind_ntd_select 9
#define ind_ntd_write 10
#define ind_osd_dclast 11
#define ind_osd_exitodeb 12
#define ind_osd_go 13
#define ind_osd_host_addr 14
#define ind_osd_setimer 15
#define ind_osd_stop 16
#define ind_osd_synch 17
#define ind_srvsts 18
#define ind_osd_host_addr_tcp 19
#define ind_ntd_iserdisc 20
#define ind_Get_Engine_Path 21
#define ind_Act_Sigio_Handler 22
#define ind_Load_Engine 23
#define ind_osd_nodename_tcp 24
#define ind_strsts 25
#define ind_osd_getmsg 26
#define ind_osd_wpipe 27
#define ind_Env_Engine 28
#define nbr_address 29
#ifdef UNX
#define sigdeb sigdeb_
#define srvbck srvbck_
#define srvctl srvctl_
#define srwlnk srwlnk_
#define srwloc srwloc_
#define srvsts srvsts_
#define osd_getpid osd_getpid_
#define osd_getuic osd_getuic_
#define osd_geteuic osd_geteuic_
#define osd_nodename_tcp osd_nodename_tcp_
#define osd_host_addr osd_host_addr_
#define osd_host_addr_tcp osd_host_addr_tcp_
#define osd_host_addr_dec osd_host_addr_dec_
#define __fastcall
#endif
#ifdef WNT
#define BEGINTHREADEX( lpsa, cbStack, lpStartAddr, lpvThreadParm, fdwCreate, lpIDThread ) \
( ( HANDLE )_beginthreadex ( \
( void* )( lpsa ), \
( unsigned )( cbStack ), \
( PTHREAD_START )( lpStartAddr ), \
( void* )( lpvThreadParm ), \
( unsigned )( fdwCreate ), \
( unsigned* )( lpIDThread ) \
) \
)
#define osd_chown () 1
#endif
#if defined(sun) || defined(SOLARIS)
extern "C" int risc_return_() ;
#endif
extern int __NTD_API K_VERBOSE_INIT ;
extern char __NTD_API level_engine[81] ;
#ifdef WNT
extern OSVERSIONINFO __NTD_API NTD_OSVer;
#endif
extern void __NTD_API Get_Vector(int **K_VERBOSE ,
void (***vector_addr)() ,
int *nbr_addr ) ;
#if defined(__GNUC__) || defined(LIN)
#define Get_Vector_signatura "Get_Vector__FPPiPPPFv_vPi"
#define Get_Vector_signature "Get_Vector__FPPiPPPFv_vPi"
#elif defined(__osf__) || defined(DECOSF1)
#define Get_Vector_signatura "Get_Vector"
#define Get_Vector_signature "Get_Vector__XPPiPPPXv_vPi"
#elif defined(__sun) || defined(SOLARIS)
#define Get_Vector_signatura "Get_Vector"
#define Get_Vector_signature "__0FKGet_VectorPPiPPPFv_vPi"
#elif defined(__sgi) || defined(IRIX)
#define Get_Vector_signatura "Get_Vector__GPPiPPPGv_vPi"
#define Get_Vector_signature "Get_Vector__FPPiPPPFv_vPi"
#elif defined(__hpux) || defined(HPUX)
#define Get_Vector_signatura "Get_Vector"
#define Get_Vector_signature "Get_Vector__FPPiPPPFv_vPi"
#elif defined(WNT)
#define Get_Vector_signatura "Get_Vector"
#define Get_Vector_signature "?Get_Vector@@YAXPAPAHPAPAP6AXXZPAH@Z"
#elif defined(_AIX) || defined(AIX)
#define Get_Vector_signatura "Get_Vector"
#define Get_Vector_signature ".Get_Vector__FPPiPPPFv_vPi"
#endif
#ifndef WNT
extern void __NTD_API Act_Sigio_Handler() ;
#endif
extern void __NTD_API Set_Engine_Path(char *path);
#if defined(__Engine_DLL)
extern char __Engine_API *Get_Engine_Path(void);
#else
extern char __NTD_API *Get_Engine_Path(void);
#endif
extern int __NTD_API Env_Engine(int *lnk ,
int k_do_exec,
int K_START,
char *Engine_Path_Name,
char **Engine_Path ,
char **Engine_Name ) ;
extern int __NTD_API Load_Engine(char *Engine_Path,
char *Engine_Name,
int KVERBOSEINIT ,
int *nbr_ret_func ,
PVOID_FUNCTION *TABRETFUNC ,
int nbrptrfunc ,
PVOID_FUNCTION *TABFUNC ,
int nbrptr ,
void **TABPTR ,
int nbrval ,
int *TABVAL );
extern int __NTD_API init_ntd(PSRV_CTL srvctl,
int k_synch,
int **uic,
char **usr,
int **pid,
int k_serpc);
#ifdef WNT
extern void __NTD_API done_ntd( void );
#endif
extern int __NTD_API ntd_listener(int k_synch ,
char **server,
PREAD_AST_MBX read_ast_mbx,
PSTATUS sts,
int *lnk);
extern int __NTD_API ntd_confirm(int id,
int reply,
PAST_ADDR_V ast,
int param,
PSTATUS sts);
extern int __NTD_API ntd_connect(int prtcl,
char *node,
char *server,
int verbose,
int k_synch,
PAST_ADDR_PV astaddr,
void *param,
int *id,
PSTATUS sts);
extern int __NTD_API ntd_disconnect(int id,
int how,
PAST_ADDR_PV astaddr,
void *param,
PSTATUS sts);
extern int __NTD_API ntd_resume(int *id,
int k_free,
PSTATUS sts);
extern int __NTD_API ntd_chown(int id,
int pid,
PSTATUS sts);
extern int __NTD_API ntd_synch(int CHAN,
PSTATUS status_synch);
extern int __NTD_API ntd_stop(int CHAN);
extern int __NTD_API ntd_read(int CHAN,
int *BUFFER,
int LEN,
PAST_ADDR_PV rpc_intr_read_ast,
void *,
int *READLEN,
PSTATUS rpc_status);
extern int __NTD_API ntd_reada(int CHAN,
int *BUFFER,
int LEN,
PAST_ADDR_PV rpc_intr_read_ast,
void *,
int *READLEN,
PSTATUS rpc_status);
extern int __NTD_API ntd_iserdisc(PSTATUS status);
extern int __NTD_API ntd_dassign(int CHAN,
PSTATUS status);
extern int __NTD_API ntd_free(int *CHAN,
PSTATUS status);
extern int __NTD_API ntd_write(int CHAN,
int *BUFFER,
int LEN,
PAST_ADDR_PV rpc_write_ast,
void *,
int *LLEN,
PSTATUS rpc_statusa);
extern int __NTD_API ntd_select(int CHAN) ;
extern int __NTD_API do_lstr_a_synch(int k_synch) ;
extern int __NTD_API do_socket_a_synch(int sock_desc,int k_synch) ;
extern int __NTD_API ntd_go(int CHAN,
PSTATUS rpc_status);
extern int __NTD_API ntd_gravity(PSTATUS sts);
extern int __NTD_API ntd_message(void *numlnk,
PSTATUS sts,
char *msg,
int lmax,
int *lmsg);
#ifdef WNT
extern BOOL __NTD_API __fastcall ntd_ispipe ( int id ) ;
extern SOCKET __NTD_API ntd_sd ( int* id ) ;
#endif
extern int __NTD_API osd_dclast(PAST_ADDR_PV rpc_write_ast,
void *,
PSTATUS rpc_status);
extern int __NTD_API osd_dclastw(PAST_ADDR_PV rpc_write_ast,
void *,
PSTATUS rpc_statusa);
extern int __NTD_API osd_setimer(unsigned int delay,
PAST_ADDR_PV timer_ast,
void *,
PSTATUS sts);
extern char __NTD_API *osd_getsymbol(char *) ;
#ifdef WNT
extern const char __NTD_API *osd_getmsg ( int );
#endif
extern void __NTD_API osd_hiber();
extern char __NTD_API *osd_getuname();
extern void __NTD_API osd_exitodeb();
extern void __NTD_API osd_child(char *);
extern void __NTD_API osd_wpipe() ;
extern int __NTD_API osd_nodename_dec(char *nodloc,
int len,
PSTATUS rpc_status);
extern int __NTD_API osd_nodename_tcp(char *nodloc,
int len,
PSTATUS rpc_status);
extern int __NTD_API osd_host_addr_tcp(char *node,
unsigned char intadr[],
PSTATUS sts);
extern int __NTD_API osd_host_addr( char intadr[] ) ;
extern int __NTD_API osd_getuic(int *retuic,
PSTATUS sts);
extern int __NTD_API osd_getpid();
extern int __NTD_API osd_geteuic(int *reteuic);
extern int __NTD_API osd_setuic(int *setuic);
extern int __NTD_API osd_usruic(char *usrnam,
int retuic[],
PSTATUS status,
int lenusr);
#ifdef UNX
extern void osd_sigclrmask();
#endif
#if defined(UNX) || defined(WNT)
extern int __NTD_API osd_initsynch(PSTATUS sts);
extern void __NTD_API osd_go(PSYSSYNCH );
extern void __NTD_API osd_stop(PSYSSYNCH );
extern int __NTD_API osd_testsynch(PSYSSYNCH );
extern int __NTD_API osd_synch(PSYSSYNCH ,
PSTATUS );
extern void __NTD_API osd_disblast();
extern void __NTD_API osd_enblast();
#endif
extern void __NTD_API __fastcall rspreorder(PBUF_RSP buffer);
extern void __NTD_API __fastcall lreorder(unsigned int *hdr);
extern void __NTD_API __fastcall cmdreorder(PBUF BUFFER);
extern void __NTD_API __fastcall cnxassreorder(PCMD_BUFF BUFFER);
extern void __NTD_API __fastcall reorder(int l , char *p);
extern void __NTD_API __fastcall movc3(int srclen,
char *srcadr,
char *dstadr);
extern void __NTD_API __fastcall movc5(int srclen,
char *srcadr,
char fill,
int dstlen,
char *dstadr);
extern int __NTD_API srvsts(void *,
char *,
int,
PSTATUS sts,
int lg,
char *msg,
int *lgmsg);
extern int __NTD_API osd_realpath(char *path,
char *resolved_path,
int pathlen,
PSTATUS sts);
extern int __NTD_API strsts(void *numlnk,
char code[],
char stat,
PSTATUS status,
int lgmsg,
char msgerr[],
int *lenerr);
extern void __NTD_API osd_putoutput(char *msg);
#ifdef UNX
extern int osd_sigaction(int sig ,
struct sigaction *act ,
struct sigaction *oact ) ;
#endif
extern int __NTD_API srvctl_ast(void *param,
PSTATUS status,
int *msg,
int *msglen);
#ifndef UNX
extern int Dnet_listener(char *server,
int isrv,
PREAD_AST_MBX func,
PSTATUS sts);
#endif
extern int __NTD_API Inet_listener(char *server,
int isrv,
int k_synch ,
PREAD_AST_MBX func,
PSTATUS sts);
#if !defined(__hpux) && !defined(HPUX) && !defined(__osf__) && !defined(DECOSF1) && !defined(WNT) && !defined(LIN) && !defined(linux) && !defined(AIX) && !defined(_AIX) && !defined(__FreeBSD__)
extern
#ifdef CSF1
"C" {
#endif
int gethostname(char *, int) ;
#ifdef CSF1
}
#endif
#endif
#if DEBUG
extern void __NTD_API sigdeb() ;
extern void __NTD_API SIGDEB() ;
#endif
#ifdef WNT
extern void __NTD_API _debug_break ( char* );
#endif
#if DO_MALLOC
extern "C" {void __NTD_API *realloc(void *ptr_free , size_t byte_size);}
extern "C" {void __NTD_API *calloc(size_t nbr_elts,size_t byte_size);}
extern "C" {void __NTD_API *malloc(size_t byte_size);}
extern "C" {void __NTD_API free(void *pointer);}
#endif
#endif

31
src/IncludeLibrary/IncludeLibrary_NTD_starter.h Executable file
View File

@@ -0,0 +1,31 @@
#define HOSTLENGTH 20
#define ENGINELENGTH 131
#define SERVERLENGTH 80
#define MAXENGINE 32
struct START {
int lvl, func, narg ;
int prtcl ;
char hostname[HOSTLENGTH+1] ;
char engine[ENGINELENGTH+1] ;
} ;
struct STARTRSP {
int lvl, func, narg ;
char hostname[HOSTLENGTH+1] ;
char server[SERVERLENGTH+1] ;
char prtcl ;
char serverd[SERVERLENGTH+1] ;
char prtcld ;
} ;
//struct STARTED {
// int lvl, func, narg ;
// char engine[ENGINELENGTH+1] ;
// char server[SERVERLENGTH+1] ;
// int prtcl ;
//} ;
//struct STARTEDRSP {
// int lvl, func, narg ;
//} ;

417
src/IncludeLibrary/IncludeLibrary_NTD_stsdef.h Executable file
View File

@@ -0,0 +1,417 @@
/* stsdef.h */
/* ACS Error status */
/* Status non systeme de l'interface d'acces */
/* Error numbers */
#define STS_ACS_SEQ 1
/* Illegal call (sequences d'appel aux syntaxes) */
#define STS_ACS_ROO 2
/* No room (overflow) */
#define STS_ACS_ARG 3
/* Arguments incorrects */
#define STS_ACS_INT 4
/* Erreur interne */
#define STS_ACS_UNR 5
/* Node/server currently unreachable */
#define STS_ACS_LEV 6
/* Command level incompatible */
#define STS_ACS_BYT 7
/* Bytes pas dans l'ordre */
#define STS_ACS_LEN 8
/* Longueur incorrecte */
#define STS_ACS_RSP 9
/* numero de lien ou de commande incorrect
dans une reponse */
/* STSDEF_SRV : Valeurs des status SERVER */
#define STS_SRV_OK 1
/* Normal successful completion */
#define STS_SRV_BAD_CONF_CNEC_MBX 1
/* Fatal CONFIRM_MBX */
#define STS_SRV_BAD_LNK_MBX 2
/* Fatal DISCONNECT_MBX */
#define STS_SRV_BAD_MSG_TYP_MBX 3
/* Fatal READ_MBX */
#define STS_SRV_INIT_ACP_MBX 4
/* Fatal SERVER */
#define STS_SRV_RESTART_MBX 5
/* Fatal exit wanted */
#define STS_SRV_ABORT_LNK_DEA_CLT 1
/* Fatal SRVVMS_CLT */
#define STS_SRV_ALR_ERR_CLT 2
/* Fatal WRITE_CLT */
#define STS_SRV_ALR_READ_CLT_AST 3
/* Fatal READ_CLT */
#define STS_SRV_ALR_WRT_CLT 4
/* Fatal WRITE_CLT */
#define STS_SRV_BAD_CNX_LNK_CLT 5
/* Fatal DEALNK_CLT */
#define STS_SRV_BAD_DEST_CLT 6
/* Error ---> Client SRVCOM_CLT */
#define STS_SRV_BAD_ERR_WRITR_CLT 7
/* Fatal READ_CLT */
#define STS_SRV_BAD_ORG_CLT 8
/* Error ---> Client SRVCOM_CLT */
#define STS_SRV_BAD_STS_CLT 9
/* Fatal SRVCOM_CLT */
#define STS_SRV_BAD_WRITR_COM_CLT 10
/* Fatal WRITE_CLT */
#define STS_SRV_CLT_ALR_ABORT_CLT 11
/* Fatal SRVVMS_CLT */
#define STS_SRV_CLT_CHN_NZ_CLT 12
/* Fatal DEALNK_CLT */
#define STS_SRV_COM_BUFW_FREE_CLT 13
/* Fatal WRITE_CLT */
#define STS_SRV_DEST_CLT 14
/* Error ---> Client SRVCOM_CLT */
#define STS_SRV_DISC_NO_DISC_CLT 15
/* Fatal DISCONNECT_CLT */
#define STS_SRV_DISC_NO_EXPEC_CLT 16
/* Fatal DISCONNECT_CLT */
#define STS_SRV_DISC_NO_GOUT_CLT 17
/* Fatal DISCONNECT_CLT */
#define STS_SRV_FUNC_NUL_CLT 18
/* Error ---> Client READ_CLT */
#define STS_SRV_ILL_CMD_CLT 19
/* Error ---> Client SRVCOM_CLT */
#define STS_SRV_ILL_FUNC_CLT 20
/* Error ---> Client READ_CLT */
#define STS_SRV_ILL_SEQ_CAL_CLT 21
/* Error ---> Client READ_CLT */
#define STS_SRV_ILL_SEQ_CAL_EXI_CLT 22
/* Error ---> Client SRVCOM_CLT */
#define STS_SRV_LEN_READ_CLT 23
/* Error ---> Client READ_CLT */
#define STS_SRV_LNK_EXIST_CLT 24
/* Error ---> Client SRVEXI_CLT */
#define STS_SRV_NODE_NOABRT_CLT 25
/* Fatal SRVVMS_CLT */
#define STS_SRV_NODE_NOT_ABORT_CLT 26
/* Fatal SRVVMS_CLT */
#define STS_SRV_NO_ABR_EXP_CLT 27
/* Fatal DEALNK_CLT */
#define STS_SRV_NO_ABR_EXPC_CLT 28
/* Fatal DEALNK_CLT */
#define STS_SRV_NO_ABR_GOUT_CLT 29
/* Fatal DEALNK_CLT */
#define STS_SRV_NO_ABR_NBR_CLT 30
/* Fatal DEALNK_CLT */
#define STS_SRV_NO_LNK_CLT 31
/* Fatal SRVCOM_CLT */
#define STS_SRV_READ_ABORT_CLT 32
/* Informational READ_CLT */
#define STS_SRV_STS_ALR_READ_CLT 33
/* Fatal READ_CLT */
#define STS_SRV_STS_NO_CLT 34
/* Fatal READ_CLT */
#define STS_SRV_WRITE_BAD_CLT 35
/* Fatal WRITE_CLT */
#define STS_SRV_WRITE_BAD_R_CLT 36
/* Fatal WRITE_CLT */
#define STS_SRV_WRITE_R_BAD_CLT 37
/* Fatal WRITE_CLT */
#define STS_SRV_WRITE_R_BAD_W_CLT 38
/* Fatal WRITE_CLT */
#define STS_SRV_WRITR_0_CLT 39
/* Fatal WRITE_CLT */
#define STS_SRV_WRT_READ_FREE_CLT 40
/* Fatal WRITE_CLT */
#define STS_SRV_BAD_NOD_CLT 41
/* Informational CONNECT_CLT */
#define STS_SRV_NO_CLT 42
/* Error ---> Client READ_CLT */
#define STS_SRV_BAD_LEN_WRT_CLT 43
/* Fatal WRITE_CLT */
#define STS_SRV_ILL_LEV_PRO_CLT 44
/* Error ---> Client READ_CLT */
#define STS_SRV_ILL_SEQ_BYT_CLT 45
/* Error ---> Client SRVCOM_CLT */
#define STS_SRV_ILL_LG_CLT 46
/* Error ---> Client READ_CLT */
#define STS_SRV_NO_ACCES_APPL_CLT 47
/* Error ---> Client SRVCMD_CLT */
#define STS_SRV_RESTART_CLT 48
/* Fatal exit wanted */
#define STS_SRV_DLOPEN_CLT 49
/* Dlopen not allowed */
#define STS_SRV_ALR_READ_AST_LNK 1
/* Fatal READ_LNK */
#define STS_SRV_ALR_READ_CAL_LNK 2
/* Fatal READ_LNK */
#define STS_SRV_BAD_LNK_DISC_DEALNK_LNK 3
/* Fatal DEALNK_LNK */
#define STS_SRV_BAD_LNK_ORG_LNK 4
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_NOD_SRV_UNREACHABLE_LNK 5
/* Informational SRVVMS_LNK */
#define STS_SRV_CLT_ABRT_NO_COM_LNK 6
/* Fatal WRITE_LNK */
#define STS_SRV_CLT_ALR_ABORT_LNK 7
/* Fatal SRVVMS_LNK */
#define STS_SRV_CNX_NOD_NZ_LNK 8
/* Fatal DEALNK_LNK */
#define STS_SRV_DISC_NO_DISC_LNK 9
/* Fatal DEALNK_LNK */
#define STS_SRV_FREE_READ_LNK 10
/* Fatal READ_LNK */
#define STS_SRV_ILL_CMD_LNK 11
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_ILL_FUNC_LNK 12
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_ILL_SEQ_CAL_4_LNK 13
/* Fatal READ_LNK */
#define STS_SRV_ILL_SEQ_CAL_5_LNK 14
/* Fatal READ_LNK */
#define STS_SRV_ILL_SEQ_CAL_LNK 15
/* Fatal READ_LNK */
#define STS_SRV_ILL_SEQ_CAL_NO_ASN_LNK 16
/* Fatal READ_LNK */
#define STS_SRV_ILL_SEQ_CAL_NO_DAS_LNK 17
/* Fatal READ_LNK */
#define STS_SRV_ILL_SEQ_CAL_NO_RSP_LNK 18
/* Fatal READ_LNK */
#define STS_SRV_LESS_16_READ_FUNC_LNK 19
/* Fatal READ_LNK */
#define STS_SRV_NBRLNKS_NZ_DEALNK_LNK 20
/* Fatal DEALNK_LNK */
#define STS_SRV_NOCOM_BUFW_LNK 21
/* Fatal SRVCOM_LNK */
#define STS_SRV_NODABRT_NOSTA_RD_LNK 22
/* Informational READ_LNK */
#define STS_SRV_NODE_ALR_ABORT_LNK 23
/* Fatal SRVVMS_LNK */
#define STS_SRV_NOD_ABORT_BUFW_LNK 24
/* Fatal SRVVMS_LNK */
#define STS_SRV_NOT_16_READ_CMD_LNK 25
/* Fatal READ_LNK */
#define STS_SRV_NO_DAS_UNDEA_CMD_Z_LNK 26
/* Fatal READ_LNK */
#define STS_SRV_NO_DAS_UNDEA_LNK 27
/* Fatal READ_LNK */
#define STS_SRV_NO_DISC_DEALNK_LNK 28
/* Fatal DEALNK_LNK */
#define STS_SRV_NO_EXPEC_READ_LNK 29
/* Fatal DEALNK_LNK */
#define STS_SRV_NO_GOOUT_ABORT_DEA_LNK 30
/* Fatal DEALNK_LNK */
#define STS_SRV_PTC_LNK 31
/* Error ---> Client SRVASS_LNK */
#define STS_SRV_NO_STS_WRITE_LNK 32
/* Fatal WRITE_LNK */
#define STS_SRV_READ_AST_NO_DAS_LNK 33
/* Fatal READ_LNK */
#define STS_SRV_READ_AST_NUMCMD_LNK 34
/* Fatal READ_LNK */
#define STS_SRV_READ_AST_NUMCMD_Z_LNK 35
/* Fatal READ_LNK */
#define STS_SRV_ROO_NOD_LNK 36
/* Error ---> Client GETNODE_LNK */
#define STS_SRV_UNDAS_WRITE_LNK 37
/* Fatal WRITE_LNK */
#define STS_SRV_UNDEA_COM_NZ_LNK 38
/* Fatal WRITE_LNK */
#define STS_SRV_UNDEA_COM_Z_LNK 39
/* Fatal WRITE_LNK */
#define STS_SRV_WRT_LESS_8_LNK 40
/* Fatal WRITE_LNK */
#define STS_SRV_BAD_LNK_IND_NUL_LNK 41
/* Fatal WRITE_LNK */
#define STS_SRV_BAD_CLT_DEST_LNK 42
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_BAD_CLT_LNK 43
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_BAD_CLT_ORG_LNK 44
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_BAD_CNX_DEA_LNK 45
/* Fatal DEALNK_LNK */
#define STS_SRV_BAD_LNK_CLT_DEA_LNK 46
/* Fatal DEALNK_LNK */
#define STS_SRV_NO_LNK 47
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_BAD_CNEC_LNK 48
/* Fatal SRVASS_LNK */
#define STS_SRV_LNK_FREE_TIMR_LNK 49
/* Fatal READ/WRITE_LNK */
#define STS_SRV_BAD_DISC_NBR_QIO_LNK 50
/* Fatal DEALNK_LNK */
#define STS_SRV_BAD_NBRLNKS_LNK 51
/* Fatal ASSLNK_LNK */
#define STS_SRV_ILL_LEV_PRO_LNK 52
/* Error ---> Client READ_LNK */
#define STS_SRV_ILL_SEQ_BYT_LNK 53
/* Error ---> Client SRVCOM_LNK */
#define STS_SRV_ILL_LG_LNK 54
/* Error ---> Client READ_LNK */
#define STS_SRV_BAD_DEST_RSP 1
/* Fatal SRVCOM_RSP */
#define STS_SRV_BAD_LEN_WRT_RSP 2
/* Fatal WRITE_RSP */
#define STS_SRV_BAD_NUM_CMD_RSP 3
/* Fatal SRVCOM_RSP */
#define STS_SRV_ILL_CMD_RSP 4
/* Fatal SRVCOM_RSP */
#define STS_SRV_ILL_FUNC_RSP 5
/* Fatal SRVCOM_RSP */
#define STS_SRV_ILL_SEQ_CAL_RSP 6
/* Fatal SRVCOM_RSP */
#define STS_SRV_NOD_NO_ABRT_UNDAS_RSP 7
/* Fatal WRITE_RSP */
#define STS_SRV_NO_BUF_LNK_RSP 8
/* Fatal SRVCOM_RSP */
#define STS_SRV_NO_DAS0_WRITE_RSP 9
/* Fatal WRITE_RSP */
#define STS_SRV_NO_LNK_LNK_RSP 10
/* Fatal SRVCOM_RSP */
#define STS_SRV_BUF_NO_STS_RSP 11
/* Fatal SRVCOM_RSP */
#define STS_SRV_SRVDAS_NZ_WRITE_RSP 12
/* Fatal WRITE_RSP */
#define STS_SRV_UNDAS_DAS_WRITE_RSP 13
/* Fatal WRITE_RSP */
#define STS_SRV_UNDEA_DAS_WRITE_RSP 14
/* Fatal WRITE_RSP */
#define STS_SRV_UNDEA_NODAS_RSP 15
/* Fatal WRITE_RSP */
#define STS_SRV_BAD_LNK_CNEC_RSP 16
/* Fatal CONFIRM_RSP */
#define STS_SRV_NO_STS_RSP 17
/* Fatal SRVCOM_RSP */
#define STS_SRV_ALR_ERR_RSP 18
/* Fatal WRITE_RSP */
#define STS_SRV_ALR_WRT_RSP 19
/* Fatal WRITE_RSP */
#define STS_SRV_BAD_WRITR_COM_RSP 20
/* Fatal WRITE_RSP */
#define STS_SRV_COM_BUFW_FREE_RSP 21
/* Fatal WRITE_RSP */
#define STS_SRV_WRITE_BAD_RSP 22
/* Fatal WRITE_RSP */
#define STS_SRV_WRITE_BAD_R_RSP 23
/* Fatal WRITE_RSP */
#define STS_SRV_WRITE_R_BAD_RSP 24
/* Fatal WRITE_RSP */
#define STS_SRV_WRITE_R_BAD_W_RSP 25
/* Fatal WRITE_RSP */
#define STS_SRV_WRITR_0_RSP 26
/* Fatal WRITE_RSP */
#define STS_SRV_WRT_READ_FREE_RSP 27
/* Fatal WRITE_RSP */
#define STS_SRV_ALR_READ_SRV_AST 1
/* Fatal READ_SRV */
#define STS_SRV_ALR_WRT_SRV 2
/* Fatal WRITE_SRV */
#define STS_SRV_BAD_CNX_LIST_SRV 3
/* Fatal DEALNK_SRV */
#define STS_SRV_BAD_CNX_LNK_SRV 4
/* Fatal DEALNK_SRV */
#define STS_SRV_BAD_ERR_WRITR_SRV 5
/* Fatal READ_SRV */
#define STS_SRV_BAD_LNK_CLT_SRV 6
/* Fatal SRVCOM_SRV */
#define STS_SRV_BAD_LNK_DEST_SRV 7
/* Fatal SRVCOM_SRV */
#define STS_SRV_BAD_LNK_ORG_SRV 8
/* Fatal SRVCOM_SRV */
#define STS_SRV_BAD_NBRLNKS_SRV 9
/* Fatal DEALNK_SRV */
/*Error --> Client GETNODE_SRV */
#define STS_SRV_BAD_NBR_DEA_SRV 10
/* Fatal DEALNK_SRV */
#define STS_SRV_BAD_NODE_Z_SRV 11
/* Fatal SRVCOM_SRV */
#define STS_SRV_BAD_ORG_SRV 12
/* Fatal READ_SRV */
#define STS_SRV_BAD_READ_LEN_SRV 13
/* Fatal READ_SRV */
#define STS_SRV_BAD_STS_SRV 14
/* Fatal READ_SRV */
#define STS_SRV_CLT_SRV 15
/* Fatal READ_SRV */
#define STS_SRV_CNX_LNK_NZ_SRV 16
/* Fatal DEALNK_SRV */
#define STS_SRV_COM_BUFW_FREE_SRV 17
/* Fatal WRITE_SRV */
#define STS_SRV_DISC_NO_DISC_SRV 18
/* Fatal DEALNK_SRV */
#define STS_SRV_DISC_NO_EXPC_SRV 19
/* Fatal DEALNK_SRV */
#define STS_SRV_DISC_NO_GOUT_SRV 20
/* Fatal DEALNK_SRV */
#define STS_SRV_DUPL_NODE_SRV 21
/* Informational GETNODE_SRV */
#define STS_SRV_FUNC_NUL_SRV 22
/* Fatal READ_SRV */
#define STS_SRV_ILL_CMD_SRV 23
/* Fatal SRVCOM_SRV */
#define STS_SRV_ILL_FUNC_SRV 24
/* Fatal SRVCOM_SRV */
#define STS_SRV_ILL_SEQ_CAL_SRV 25
/* Fatal SRVCOM_SRV */
#define STS_SRV_LEN_READ_SRV 26
/* Fatal READ_SRV */
#define STS_SRV_LNK_ALR_ABRT_SRV 27
/* Fatal SRVVMS_SRV */
#define STS_SRV_NOD_ALR_ABORT_SRV 28
/* Fatal SRVVMS_SRV */
#define STS_SRV_NOLST_DISC_SRV 29
/* Fatal SRVDEA_SRV */
#define STS_SRV_NO_ABRT_EXPC_SRV 30
/* Fatal DEALNK_SRV */
#define STS_SRV_NO_ABRT_GOUT_SRV 31
/* Fatal DEALNK_SRV */
#define STS_SRV_NO_ABRT_NBR_SRV 32
/* Fatal DEALNK_SRV */
#define STS_SRV_NO_CNX_LNK_SRV 33
/* Fatal SRVDEA_SRV */
#define STS_SRV_NO_SAME_NODE_SRV 34
/* Fatal GETNODE_SRV */
/* Fatal SRVCOM_SRV */
#define STS_SRV_ROO_NOD_SRV 35
/* Error ---> Slave GETNODE_SRV */
#define STS_SRV_STS_NO_IN_SRV 36
/* Fatal GETNODE_SRV */
#define STS_SRV_STS_NO_SAME_NODE_SRV 37
/* Fatal GETNODE_SRV */
#define STS_SRV_STS_NO_SAME_TASK_SRV 38
/* Fatal GETNODE_SRV */
#define STS_SRV_WRITE_BAD_R_SRV 39
/* Fatal WRITE_SRV */
#define STS_SRV_WRITE_BAD_SRV 40
/* Fatal WRITE_SRV */
#define STS_SRV_WRITE_R_BAD_SRV 41
/* Fatal WRITE_SRV */
#define STS_SRV_WRITE_R_BAD_W_SRV 42
/* Fatal WRITE_SRV */
#define STS_SRV_WRITR_0_SRV 43
/* Fatal WRITE_SRV */
#define STS_SRV_WRT_READ_FREE_SRV 44
/* Fatal WRITE_SRV */
#define STS_SRV_DISC_NO_EXPEC_SRV 45
#define STS_SRV_DISC_NO_GOOUT_SRV 46
#define STS_SRV_ILL_LEV_PRO_SRV 47
/* Error ---> Client READ_SRV */
#define STS_SRV_ILL_SEQ_BYT_SRV 48
/* Error ---> Client SRVCOM_SRV */
#define STS_SRV_ILL_LG_SRV 49
/* Error ---> Client READ_SRV */
/* GET_CHAN */
#define STS_SRV_ROO_OLB 1
/* No room (overflow) Lnks */
#define STS_SRV_UNT_OLB 2
/* Unknown unit number. Fatal */
#define STS_RPC_BYT 1
#define STS_RPC_LEN 2
#define STS_RPC_DL 3

302
src/IncludeLibrary/IncludeLibrary_NTD_stsmsg.h Executable file
View File

@@ -0,0 +1,302 @@
#define MAX_OSD_VMS_MSG 6
static
char *OSDVMSMSG[MAX_OSD_VMS_MSG]=
{
"INVALIDLNK_NTD Invalid link value",
"LNKLIMIT Maximum number of links reached",
"INVALIDPRTCL",
"DISCONNECTED",
"READINPROGESS",
"LASTLINK"
};
#define MAX_OSD_UNIX_MSG 1
static
char *OSDUNIXMSG[MAX_OSD_UNIX_MSG]=
{
"XXX"
};
#define MAX_NTD_VMS_MSG 1
static
char *NTDVMSMSG[MAX_NTD_VMS_MSG]=
{
"XXX"
};
#define MAX_NTD_UNIX_MSG 1
static
char *NTDUNIXMSG[MAX_NTD_UNIX_MSG]=
{
"XXX"
};
#define MAX_ACS_MSG 9
static
char *ACSMSG[MAX_ACS_MSG]=
{
"SEQ Illegal sequence call.",
"ROO No room (queue overflow)",
"ARG Incorrect arguments",
"INT Internal error",
"UNR %d. Node/server currently unreachable",
"LEV Incompatible command level",
"BYT Incompatible bytes sequence",
"LEN Bad respons length",
"RSP Bad link or command number in respons"
};
#define MAX_SRV_MBX_MSG 5
static
char *SRVMBXMSG[MAX_SRV_MBX_MSG]=
{
"BAD_CONF_CNEC Confirm received for not connecting link",
"BAD_LNK Disconnect received for not CLT/LNK link",
"BAD_MSG_TYP Undefined mailbox message type",
"INIT_ACP Application initialization error",
"SRV_RESTART Server restarted by itself"
};
#define MAX_SRV_CLT_MSG 49
static
char *SRVCLTMSG[MAX_SRV_CLT_MSG]=
{
"ABORT_LNK_DEA Nbr_Qio/Buffer error when aborting a link",
"ALR_ERR Unsollicited error message already queued",
"ALR_READ_AST Read_ast buffer/status error",
"ALR_WRT Recursive buffer write",
"BAD_CNX_LNK Link not found in Clients list",
"BAD_DEST Bad remote link received",
"BAD_ERR_WRITR Read buffer overwriting",
"BAD_ORG Bad client link number",
"BAD_STS Bad client link status (not Client link)",
"BAD_WRITR_COM Bad client link status (not COMputing)",
"CLT_ALR_ABORT Abort of an aborted client link",
"CLT_CHN_NZ Disconnect of client link with lnks",
"COM_BUFW_FREE Overwrite of buffer",
"DEST Inconsistent remote link received",
"DISC_NO_DISC Inconsistent Disconnecting link status",
"DISC_NO_EXPEC Inconsistent expected disconnect link status",
"DISC_NO_GOUT Inconsistent initiated disconnect link status",
"FUNC_NUL Remote link and function inconsistency",
"ILL_CMD Illegal command code received",
"ILL_FUNC Illegal function code received",
"ILL_SEQ_CAL Command/function already active",
"ILL_SEQ_CAL_EXI Command/function for disconnecting link",
"LEN_READ Truncated command/function received",
"LNK_EXIST Exit function while link(s) are active",
"NODE_NOABRT Server link and node status inconsistency",
"NODE_NOT_ABORT Server link and node status inconsistency",
"NO_ABR_EXP Inconsistent client status while disconnecting",
"NO_ABR_EXPC Inconsistent client status while disconnecting",
"NO_ABR_GOUT Inconsistent client status while disconnecting",
"NO_ABR_NBR_CLT Expected disconnect inconsistency",
"NO_LNK Client link inconsistency",
"READ_ABORT Normal read status on aborted link",
"STS_ALR_READ Recursive read",
"STS_NO Client read on not client link",
"WRITE_BAD Inconsistent write buffer state",
"WRITE_BAD_R Inconsistent write/read buffer state",
"WRITE_R_BAD Inconsistent write/read buffer state",
"WRITE_R_BAD_W Inconsistent write/read buffer state",
"WRITR_0 Inconsistent write/read buffer state",
"WRT_READ_FREE Error message write inconsistency",
"BAD_NOD Local node name is unknown at remote node",
"NO_CLT Bad client lnk received",
"BAD_LEN_WRT Bad respons length",
"ILL_LEV_PRO Protocol level missmatch",
"ILL_SEQ_BYT Bad bytes sequence",
"ILL_LG Command length inconsistency",
"NO_ACCES_APPL Acces to application service is blocked",
"SRV_RESTART Server restart by client",
"SRV_DLOPEN Dynamic loading not allowed with Server."
};
#define MAX_SRV_LNK_MSG 54
static
char *SRVLNKMSG[MAX_SRV_LNK_MSG]=
{
"ALR_READ_AST Buffer read_ast state inconsistency",
"ALR_READ_CAL Buffer read state inconsistency",
"BAD_LNK_DISC_DEALNK Node/link status inconsistency",
"BAD_LNK_ORG Bad server link received",
"SRV_UNREA %d. EUCLID license server currently unreachable",
"CLT_ABRT_NO_COM Inconsistent client link status",
"CLT_ALR_ABORT Client link already aborted",
"CNX_NOD_NZ Inconsistent node index of disconnecting link",
"DISC_NO_DISC Node/slavelink disconnect inconsistent status",
"FREE_READ Read on freed slave link",
"ILL_CMD Illegal command received",
"ILL_FUNC Illegal function received",
"ILL_SEQ_CAL_4 Slave/master protocol error",
"ILL_SEQ_CAL_5 Slave/master protocol error",
"ILL_SEQ_CAL Slave/master protocol error",
"ILL_SEQ_CAL_NO_ASN Slave/master protocol error",
"ILL_SEQ_CAL_NO_DAS Slave/master protocol error",
"ILL_SEQ_CAL_NO_RSP Slave/master protocol error",
"LESS_16_READ_FUNC Slave/master protocol error",
"NBRLNKS_NZ_DEALNK Slave/master disconnect inconsistency",
"NOCOM_BUFW Status/buffer_write inconsistency",
"NODABRT_NOSTA_RD Node/slave_link status inconsistency",
"NODE_ALR_ABORT Node/slave_link abort status inconsistency",
"NOD_ABORT_BUFW Write buffer state inconsistency",
"NOT_16_READ_CMD Illegal command length",
"NO_DAS_UNDEA_CMD_Z Slave/master protocol error",
"NO_DAS_UNDEA Slave/master protocol error",
"NO_DISC_DEALNK Disconnecting status inconsistency",
"NO_EXPEC_READ Inconsistent slave link status",
"NO_GOOUT_ABORT_DEA Inconsistent slave link status",
"PTC Protocol not yet implemented",
"NO_STS_WRITE Inconsistent slave link status",
"READ_AST_NO_DAS Slave/master protocol error",
"READ_AST_NUMCMD Slave/master protocol error",
"READ_AST_NUMCMD_Z Slave/master protocol error",
"ROO_NOD Number of nodes overflow",
"UNDAS_WRITE Slave/master protocol error",
"UNDEA_COM_NZ Slave/master protocol error",
"UNDEA_COM_Z Slave/master protocol error",
"WRT_LESS_8 Bad command/function length",
"BAD_LNK_IND_NUL Bad write buffer index",
"BAD_CLT_DEST Bad Client destination link",
"BAD_CLT Bad Client link",
"BAD_CLT_ORG Bad origin lnk",
"BAD_CNX_DEA Inconsistent slave links list",
"BAD_LNK_CLT_DEA Inconsistent slave links list",
"NO_LNK Bad slave link number",
"BAD_CNEC Bad connect slave link",
"LNK_FREE_TIMR Inconsistent timer link status",
"BAD_DISC_NBR_QIO Inconsistent slave link status",
"BAD_NBRLNKS Bad connect slave link number",
"ILL_LEV_PRO Protocol level missmatch",
"ILL_SEQ_BYT Bad bytes sequence",
"ILL_LG Command length inconsistency"
};
#define MAX_SRV_SRV_MSG 49
static
char *SRVSRVMSG[MAX_SRV_SRV_MSG]=
{
"ALR_READ_AST Inconsistent master link status",
"ALR_WRT Inconsistent master link status",
"BAD_CNX_LIST Inconsistent master link list",
"BAD_CNX_LNK Bad master link list head",
"BAD_ERR_WRITR Inconsistent read buffer state",
"BAD_LNK_CLT Inconsistent master link status",
"BAD_LNK_DEST Inconsistent master link state",
"BAD_LNK_ORG Inconsistent master link state",
"BAD_NBRLNKS Bad Connect/disconnect link(s)/node state",
"BAD_NBR_DEA Inconsistent master link disconnecting state",
"BAD_NODE_Z Inconsistent master link state",
"BAD_ORG Slave/master protocol error",
"BAD_READ_LEN Inconsistent master link state",
"BAD_STS Inconsistent master link status",
"CLT_SRV Slave/master protocol error",
"CNX_LNK_NZ Inconsistent disconnecting master link state",
"COM_BUFW_FREE Inconsistent master link state",
"DISC_NO_DISC Inconsistent disconnecting master link status",
"DISC_NO_EXPC Inconsistent disconnecting master link status",
"DISC_NO_GOUT Inconsistent disconnecting master link status",
"DUPL_NODE Duplicate node/taskname connect",
"FUNC_NUL Slave/master protocol error",
"ILL_CMD Illegal command index",
"ILL_FUNC Illegal function index",
"ILL_SEQ_CAL Inconsistent master link status/buffer state",
"LEN_READ Slave/master protocol error",
"LNK_ALR_ABRT Inconsistent aborting master link status",
"NOD_ALR_ABORT Inconsistent aborting master link status",
"NOLST_DISC Inconsistent disconnecting master link(s) list",
"NO_ABRT_EXPC Inconsistent disconnecting master link status",
"NO_ABRT_GOUT Inconsistent disconnecting master link status",
"NO_ABRT_NBR Inconsistent disconnecting master link status",
"NO_CNX_LNK Inconsistent disconnecting master link(s) list",
"NO_SAME_NODE Inconsistent master link(s) list",
"ROO_NOD Node list overflow",
"STS_NO_IN Inconsistent master link/node index",
"STS_NO_SAME_NODE Inconsistent master link node name",
"STS_NO_SAME_TASK Inconsistent master link taskname",
"WRITE_BAD_R Inconsistent master link status/buffer state",
"WRITE_BAD Inconsistent master link status/buffer state",
"WRITE_R_BAD Inconsistent master link status/buffer state",
"WRITE_R_BAD_W Inconsistent master link status/buffer state",
"WRITR_0 Inconsistent master link status/buffer state",
"WRT_READ_FREE Inconsistent master link status/buffer state",
"DISC_NO_EXPEC Disconnect inconsistency",
"DISC_NO_GOOUT Disconnect inconsistency",
"ILL_LEV_PRO Protocol level missmatch",
"ILL_SEQ_BYT Bad bytes sequence",
"ILL_LG Command length inconsistency"
};
#define MAX_SRV_RSP_MSG 27
static
char *SRVRSPMSG[MAX_SRV_RSP_MSG]=
{
"BAD_DEST Bad client destination lnk",
"BAD_LEN_WRT Bad respons length",
"BAD_NUM_CMD Slave/master protocol error",
"ILL_CMD Bad command index",
"ILL_FUNC Bad function index",
"ILL_SEQ_CAL Slave/master protocol error",
"NOD_NO_ABRT_UNDAS Slave/master protocol error",
"NO_BUF_LNK Inconsistent link status",
"NO_DAS0_WRITE Slave/master protocol error",
"NO_LNK_LNK Inconsistent link status",
"BUF_NO_STS Inconsistent link status",
"SRVDAS_NZ_WRITE Master/slave protocol error",
"UNDAS_DAS_WRITE Master/slave protocol error",
"UNDEA_DAS_WRITE Master/slave protocol error",
"UNDEA_NODAS Master/slave protocol error",
"BAD_LNK_CNEC Inconsistent connect slave link status",
"NO_STS Inconsistent link status",
"ALR_ERR Unsollicited error message already queued",
"ALR_WRT Recursive buffer write",
"BAD_WRITR_COM Bad client link status (not COMputing)",
"COM_BUFW_FREE Overwrite of buffer",
"WRITE_BAD Inconsistent write buffer state",
"WRITE_BAD_R Inconsistent write/read buffer state",
"WRITE_R_BAD Inconsistent write/read buffer state",
"WRITE_R_BAD_W Inconsistent write/read buffer state",
"WRITR_0 Inconsistent write/read buffer state",
"WRT_READ_FREE Error message write inconsistency"
};
#define MAX_SRV_OLB_MSG 2
static
char *SRVOLBMSG[MAX_SRV_OLB_MSG]=
{
"ROO Master links overflow",
"UNT_OLB Unit/Channel number inconsistency"
};
#define MAX_TLI_LIB_MSG 1
static
char *TLILIBMSG[MAX_TLI_LIB_MSG]=
{
"XXX" /* Messages fournis par ntd_message */
};
#define MAX_OSD_WNT_MSG 1
static
char *OSDWNTMSG[MAX_TLI_LIB_MSG]=
{
"XXX" /* Messages fournis par ntd_message */
};
#define MAX_NTD_WNT_MSG 1
static
char *NTDWNTMSG[MAX_TLI_LIB_MSG]=
{
"XXX" /* Messages fournis par ntd_message */
};
#define MAX_SRV_RPC_MSG 3
static
char *SRVRPCMSG[MAX_SRV_RPC_MSG]=
{
"Incompatible byte sequence",
"Buffer length mismatch",
"Error occured while Engine loading"
};

16
src/IncludeLibrary/IncludeLibrary_buf_cmd_rsp_siz.h Executable file
View File

@@ -0,0 +1,16 @@
#ifndef __INCLUDE_LIBRARY_BUF_CMD_RSP_SIZ_H
# define __INCLUDE_LIBRARY_BUF_CMD_RSP_SIZ_H
#ifdef CSF1
#define BUF_CMD_SIZ_WRD 1000
#define BUF_RSP_SIZ_WRD 1000
#else
#define BUF_CMD_SIZ_WRD 640
#define BUF_RSP_SIZ_WRD 640
#endif
#define BUF_CMD_SIZ_BYT BUF_CMD_SIZ_WRD*4
#define BUF_RSP_SIZ_BYT BUF_RSP_SIZ_WRD*4
#endif /* __INCLUDE_LIBRARY_BUF_CMD_RSP_SIZ_H */

16
src/IncludeLibrary/IncludeLibrary_call_get_receiving.h Executable file
View File

@@ -0,0 +1,16 @@
int nbr_ret_func = 5 ;
PVOID_FUNCTION TABRETFUNC[5] ;
#define nbrptrfunc 0
PVOID_FUNCTION TABFUNC[1] ;
#define nbrptr 3
void *TABPTR[nbrptr] ;
#define nbrval 1
int TABVAL[nbrval] ;
TABFUNC[0] = NULL ;
TABPTR[0] = NULL ;
TABVAL[0] = *KVERBOSEINIT ;

258
src/IncludeLibrary/IncludeLibrary_comand.h Executable file
View File

@@ -0,0 +1,258 @@
#ifndef __INCLUDE_LIBRARY_COMAND_H
# define __INCLUDE_LIBRARY_COMAND_H
/* comand.h */
#define BUFFER_SIZE BUF_CMD_SIZ_BYT
/* Taille des buffers input/output pour les */
/* messages. */
#define SIZE_CMD_BUFF BUFFER_SIZE - 7 * sizeof(short)
/*------------------------ Macro definitions -------------------------------*/
/*---------- Pour entetes buffers commande et application ------------------*/
#define GETSEQ_HDR(H) (0x03030303 & (H))
#define GETLGR_HDR(H) ((H) >> 2 & 0x3f | (H) >> 4 & 0xfc0)
#define GETNARG_HDR(H) GETLGR_HDR(H)
#define GETLVL_HDR(H) ((H) >> 18 & 0x3f | (H) >> 20 & 0xfc0)
#define MAKE_HDR(S,LVL,X) ((S) \
| (X) << 2 & 0xfc | (X) << 4 & 0xfc00 \
| (LVL) << 18 & 0xfc0000 | (LVL) << 20 & 0xfc000000)
/* Format des requetes/reponses, longueurs structures et codes */
/* Codes des commandes serveur : */
#define COD_CMD_CTL -6
/* SRVCTL */
#define COD_CMD_CNX -5
/* SRVCNX */
#define COD_CMD_EXI -4
/* SRVEXI */
#define COD_CMD_ASS -3
/* SRVASS */
#define COD_CMD_ASN -2
/* SRVASN */
#define COD_CMD_DEA -1
/* SRVDEA */
#define COD_CMD_DAS 0
/* SRVDAS */
/* Les codes des fonctions service applicatif */
/* vont de 1 a n (n dependant du service */
/* applicatif). */
/* Codes des fonctions de service (srvctl) */
#define COD_CTL_PRT 0 /* Sortie de la sd du serveur */
#define COD_CTL_RESTART 1 /* Arret et Restart du serveur */
#define COD_CTL_ACT_RESTART 2 /* Arret et Restart du serveur s'il est actif
(k_func a TRUE) */
#define COD_CTL_STOP 3 /* Arret du serveur (non fait) */
#define COD_CTL_CPU 4 /* Rend le type de CPU du serveur */
#define COD_CTL_ERRMSG 5 /* Rend le message d'erreur <--> status */
#define COD_CTL_DYNLOAD 6 /* Requete de chargement dynamique d'un
partageable */
#define COD_CTL_STARTLOAD 7 /* Comme COD_CTL_DYNLOAD + Start_only ou
multi-connection dans le process fils cree
par Serpc */
#define COD_CTL_ETHADR 8 /* Permet de recuperer l'adresse Ethernet ou
le systeme identification */
#define COD_CTL_DYNNOLOAD 9 /* Requete de chargement dynamique d'un
partageable */
#define COD_CTL_STARTNOLOAD 10 /* Comme COD_CTL_DYNLOAD + Start_only ou
multi-connection dans le process fils cree
par Serpc */
/* Struct entete buffer application.
Commence sur le 2eme long du buffer de commande. */
typedef struct _buf_acp BUF_ACP, *PBUF_ACP ;
struct _buf_acp {
unsigned int level ;
int func ;
unsigned int narg ;
unsigned int arg[1] ;
} ;
typedef struct _cmd_buff CMD_BUFF, *PCMD_BUFF ;
struct _cmd_buff {
/* CMD_BUFF_OFF */
/* CMD_ARG_OFF = CMD_BUFF_OFF/4 */
/* Buffer commande/fonction SIZE_CMD_BUFF octets */
/* Buffer des arguments user */
/* SRVCNX/SRVASS : */
/* ACSRV --> SERVER : Node/Taskname Destinataire */
/* SERVR --> SERVER : Node/taskname Origine */
int siz_nod ; /* SIZ_NOD_OFF 12 */
/* Longueur node destinataire 4 octets */
char nam_nod[16] ; /* NAM_NOD_OFF 16 */
/* Nom node destinataire 16 octets */
int siz_tsk ; /* SIZ_TSK_OFF 32 */
/* Longueur task destinatrice 4 octets */
char nam_tsk[16] ; /* NAM_TSK_OFF 36 */
/* Nom task destinatrice 16 octets */
/* Node/Username/Pid Client : */
int siz_nod_org ; /* SIZ_NOD_ORG_OFF 52 */
/* Longueur node origine 4 octets */
char nam_nod_org[16] ; /* NAM_NOD_ORG_OFF 56 */
/* Nom node origine 16 octets */
int siz_usr_org ; /* SIZ_USR_ORG_OFF 72 */
/* Longueur Username origine 4 octets */
char nam_usr_org[16] ; /* NAM_USR_ORG_OFF 76 */
/* Username origine 16 octets */
int siz_pid_org ; /* SIZ_PID_ORG_OFF 92 */
/* 4 octets */
int val_pid_org ; /* VAL_PID_ORG_OFF 96 */
int val_pid_org_ext ;
/* Process identification PID 8 octets */
/* ACSRV --> SERVER : Protocole utilise (CNX) */
/* SERVR --> SERVER : Protocole a utiliser(ASS) */
int siz_ptc ; /* SIZ_PTC_OFF 104 */
/* 4 octets */
int val_ptc ; /* VAL_PTC_OFF 108 */
/* Protocole (DECNET/TCP-IP) 4 octets */
char dummy[SIZE_CMD_BUFF - 100] ;
/* zone remplissage jusqu a SIZE_CMD_BUFF */
} ;
typedef struct _buf BUF, *PBUF ;
struct _buf {
unsigned int lg_buff ; /* LG_BUFF_OFF 0 */
/* Longueur commande/reponse 4 octets */
/* LVL_OFF2 2 */
/* Level (apres la longueur ! ...) */
short lnkdest ; /* LNKDEST_OFF 4 */
/* Lnk destinataire 2 octets */
short lnkorg ; /* LNKORG_OFF 6 */
/* Lnk origine 2 octets */
short func ; /* FUNC_OFF 8 */
/* Index/numero de fonction 2 octets */
short numcmd ; /* NUMCMD_OFF 10 */
/* Numero de commande 2 octets */
CMD_BUFF cmd_buf ;
} ;
typedef struct _buf_rsp BUF_RSP, *PBUF_RSP ;
struct _buf_rsp {
unsigned int lg_buff ; /* LG_BUFF_OFF 0 %%%% */
/* Longueur commande/reponse 4 octets */
/* LVL_OFF 0 reference dans READ_CHAN */
/* Level (apres la longueur ! ...) */
/* LVL_OFF2 2 */
/* Level (apres la longueur ! ...) */
short lnkdest ; /* LNKDEST_OFF 4 */
/* Lnk destinataire 2 octets */
short lnkorg ; /* LNKORG_OFF 6 */
/* Lnk origine 2 octets */
short func ; /* FUNC_OFF 8 */
/* Index/numero de fonction 2 octets */
short numcmd ; /* NUMCMD_OFF 10 */
/* Numero de commande 2 octets */
STATUS status ; /* STATUS_OFF 12 */
/* Status 8 octets */
unsigned int rsp_buff[(BUFFER_SIZE - 20) / 4] ;
/* RSP_BUFF_OFF 20 */
/* Buffer reponse Fonctions ? octets */
} ;
/* Longueurs des commandes serveur : */
#define LG_CMD_SRV 12
/* Longueur entete des commandes/fonctions */
#define LG_CMD_CNX 112
/* Longueur commande SRVCNX */
#define LG_CMD_ASS 112
/* Longueur commande SRVASS */
#define LG_CMD_DEA 12
/* Longueur commande SRVDEA */
#define LG_CMD_EXI 12
/* Longueur commande SRVEXI */
#define LG_CMD_CTL 20
/* Longueur commande SRVCTL sans argument */
/* Longueurs des reponses serveur : */
#define LG_RSP_SRV 20
/* Longueur minimum reponse (avec status) */
#define LG_RSP_CNX 20
/* Longueur reponse SRVCNX */
#define LG_RSP_ASS 20
/* Longueur reponse SRVASS */
#define LG_RSP_DEA 20
/* Longueur reponse SRVDEA */
#define LG_RSP_EXI 20
/* Longueur reponse SRVEXI */
#define LG_RSP_CTL 20
/* Longueur reponse SRVCTL */
/* Longueur des arguments des commandes : */
#define LG_NOD 16
/* Nodes names */
#define HOSTNAMELEN 256
/* Nodes names (AccesServer-Unix-Domains) */
#define LG_TSK 80
/* Tasknames */
#define LG_USR 16
/* Usernames */
#define LG_PID 8
/* PID Process Identification */
#define LG_PID_DEC 4
/* 4 octets de PID sur VAX/VMS */
#define LG_PTC 4
/* Type de protocole (DECNET/TCP-IP) */
#define LVL_VAL0 0x1
/* Level des requetes ACSRV/serveur Macro */
#define LVL_VAL 0x2
/* Level des requetes ACSRV "C" */
/* Le serveur Macro sans NTD refuse ce level 1*/
/* Le serveur Macro+NTD accepte ces 2 levels*/
/* Le serveur C accepte ces 2 levels */
/* ACSRV "C" refuse le level 0 */
#define LVL_WRT_VAL 0x3
/* Level reponses serveurs Macro+NTD et C */
/* Type de format des requetes pour serveur */
/* Valeurs reelles des levels precedents */
/* cadres a droite */
#define SEQ_BYT_VAL 0x03020100
/* Ordre des octets (VAX) */
#define MSK_SEQ_BYT 0x03030303
/* Masque pour ordre des octets */
#define MSK_SEQ_BYT_VAL 0xFCFCFCFC
/* Complement masque pour ordre des octets */
/*
; LVL : Protocol level entre Client/Serveur et Serveur/Serveur
; SEQ : Sequence des octets : pour tout ce qui n'est pas commande/reponse
; (Longueur, Level, Lnkdest, Lnkorg, Cmd/Func,
; Numcmd et Status pour la reponse)
; ARG : Nombre d'arguments du buffer de commande. Il comporte aussi la
; sequence des octets du buffer de commande qui peut etre differente
; de celle des informations acces_serveur/serveur. Et enfin il comporte
; le niveau de protocole applicatif (Structure des commandes/reponses
; et type de dialogue application/service applicatif).
; Actuellement, dans la protection, chaque valeur d'argument est
; precedee de son type et de sa longueur et le type de protocole
; applicatif est nul.
; La reponse generee par le service applicatif doit suivre l'ordre des
; octets de l'application cliente (cet ordre etant connu du service
; applicatif dans la commande). La reponse ne comporte donc pas d'ordre
; des octets. Si le type de protocole applicatif n'est pas compatible
; avec le service applicatif, ce dernier rend un status. Sinon, il
; traite la commande et fournit une reponse. Il n'y a donc pas dans la
; reponse de type de protocole. Actuellement, dans la protection, la
; reponse est constituee uniquement des valeurs sans nombre d'arguments.
; Il serait souhaitable qu'elle comporte nombre d'arguments et
; type/longueur de chaque argument avant sa valeur comme dans les
; commandes.
*/
#endif /* __INCLUDE_LIBRARY_COMAND_H */

54
src/IncludeLibrary/IncludeLibrary_debug.h Executable file
View File

@@ -0,0 +1,54 @@
#ifdef UNX
#define DEBUG 0 /* false */
#elif defined(WNT)
#define DEBUG 0 /* false */
#else
#define DEBUG 0 /* false */
#endif
#if DEBUG /* AVEC DEBUG */
#ifdef CSF1
#define DO_MALLOC 0 /* True : Pas de malloc(libc) */
#define RPC_TRACE 0 /* True : Trace dans Serpc */
#define NTD_TRACE 0
#define OSD_TRACE 0
#define ACS_TRACE 0
#define FRONT_TRACE 0
#else /* Euclid */
#ifdef UNX
#define TKBD_TRACE 0 /* false */
#define NTD_TRACE 0
#define OSD_TRACE 0
#define RPC_TRACE 0
#define ACS_TRACE 0
#else
#define TKBD_TRACE 0 /* false */
#define NTD_TRACE 0
#define OSD_TRACE 0
#define RPC_TRACE 0
#define ACS_TRACE 0
#endif
#endif
#else /* Pas debug */
#ifdef CSF1
#define DO_MALLOC 0 /* True : Pas de malloc(libc) */
#define RPC_TRACE 0
#define NTD_TRACE 0
#define OSD_TRACE 0
#define ACS_TRACE 0
#else /* Euclid sans debug */
#define TKBD_TRACE 0
#define RPC_TRACE 0
#define NTD_TRACE 0
#define OSD_TRACE 0
#define ACS_TRACE 0
#endif
#endif

5
src/IncludeLibrary/IncludeLibrary_inverse.h Executable file
View File

@@ -0,0 +1,5 @@
#define inverse(a)\
(0 | (( a & 0x000000ff ) << 24 )\
| (( a & 0x0000ff00 ) << 8 )\
| (( a & 0x00ff0000 ) >> 8 )\
| (( a >> 24 ) & 0x000000ff ) )

6
src/IncludeLibrary/IncludeLibrary_inverse_mimot.h Executable file
View File

@@ -0,0 +1,6 @@
#define inverse_mimot(a)\
(0 | (( a & 0x000000ff ) << 8 )\
| (( a & 0x0000ff00 ) >> 8 )\
| (( a & 0x00ff0000 ) << 8 )\
| (( a & 0xff000000 ) >> 8 ) )

2
src/IncludeLibrary/IncludeLibrary_max.h Executable file
View File

@@ -0,0 +1,2 @@
#define MIN(a,b) (((a)<(b))?(a):(b))
#define MAX(a,b) (((a)>(b))?(a):(b))

43
src/IncludeLibrary/IncludeLibrary_ntd.h Executable file
View File

@@ -0,0 +1,43 @@
/*------------- Constantes necessaires au utilisateurs des ntd -------------*/
/* valeurs du parametre "reply" de ntd_confirm */
#define ACCEPT 1
#define REJECT 0
/* valeurs du parametre "how" de ntd_disconnect */
#define SYNCH 0
#define ABORT 1
#define SHUT 2
/* valeurs du parametre "prtcl" de ntd_connect */
#define DECNET 1
#define TCPIP 2
#define DUNIX 3
/* valeur de retour d'un numero de lien inexistant */
#define UNKNOWNLNK -1
/*-------------- Erreurs ----------------*/
/* Compte rendu de soumisson ou de fin de traitement d'une fonction */
/* valeurs du champ stat pour les erreurs internes */
#define INVALIDLNK 1
#define LNKLIMIT 2
#define INVALIDPRTCL 3
/* uniquement sous unix */
#define REMOTEDISC 4
#define READINPROGRESS 5
#define LASTFILEDESC 6
#define LOCALDISC 7
#define UNKNOWNNODE 8
#define ADDRESSINUSE 9 /* tli correspond a "addr. already in use" */
/* Messages mailbox Decnet */
#define MAILBOXWARNING 4
#define MAILBOXNETSHUT 5
#define MAILBOXBADMSG 6

72
src/IncludeLibrary/IncludeLibrary_osd.h Executable file
View File

@@ -0,0 +1,72 @@
/* Status des erreurs osd internes */
#define OSD_MAXASTS 1
#ifdef WNT
#define NUM_ASTS_DEF 32
#define MAXASTS 10
#define NTDNOTINIT 11
#endif
//#ifdef WNT
//#define errno GetLastError()
//#endif
typedef struct _syssynch SYSSYNCH, *PSYSSYNCH ;
struct _syssynch {
#ifdef UNX
int go ;
int wait ;
#elif defined(WNT)
HANDLE hObject;
#endif
} ;
typedef struct _dring DRING, *PDRING ;
struct _dring {
DRING *next ;
PAST_ADDR_PV ast ;
void *param ;
unsigned int time ;
} ;
#if defined(UNX) || defined(WNT)
#define STSCLR(X) ((X)->type = PENDING ,\
(X)->grp = 0 ,\
(X)->info = 0 ,\
(X)->stat = 0 )
#define STSSYSOSD(X) ((X)->type = SYS_CODE | SYSTEM | ERROR ,\
(X)->grp = GRP_OSD ,\
(X)->stat = errno)
#define STSSYSNTD(X) ((X)->type = SYS_CODE | SYSTEM | ERROR ,\
(X)->grp = GRP_NTD ,\
(X)->stat = errno)
#define STSINTOSD(X,Y) ((X)->type = INTERNAL | ERROR ,\
(X)->grp = GRP_OSD ,\
(X)->stat = (Y))
#define STSINTNTD(X,Y) ((X)->type = INTERNAL | ERROR ,\
(X)->grp = GRP_NTD ,\
(X)->stat = (Y))
#else
#define osd_initsynch(S) 1
#define osd_stop(X) ( (X)->go = 0 )
#define osd_go(X) ( ((X)->go == 0) ? ((X)->go = 1 , SYS$SETEF(0)) : 1 )
#define osd_synch(X,S) (SYS$SYNCH(0, (X)) , 1)
#define osd_disblast() SYS$SETAST(0)
#define osd_enblast() SYS$SETAST(1)
#define osd_exit(X) SYS$EXIT(X)
#endif

216
src/IncludeLibrary/IncludeLibrary_osd_dlopen.h Executable file
View File

@@ -0,0 +1,216 @@
#include <stdio.h>
#include <stdlib.h>
#ifndef WNT
#include <unistd.h>
#endif
#include <string.h>
#include <Standard_Stream.hxx>
#if defined(__hpux) || defined(HPUX)
//#include <cxxdl.h>
# include <dl.h>
#else
#ifndef WNT
# include <dlfcn.h>
#endif
#endif
typedef void (*voidfct)() ;
static char chartmp[512] ;
inline int osd_dlenv( char *Path )
{
char *engine_path = new char [ strlen( Path ) + 4 ] ;
char *ld_path = new char [ 4096 ] ;
int ret = 0 ;
#if defined (__hpux) || defined(HPUX)
strcpy( ld_path , "SHLIB_PATH=" ) ;
#elif defined(WNT)
strcpy( ld_path , "PATH=" ) ;
#elif defined(_AIX) || defined(AIX)
strcpy( ld_path , "LIBPATH=" ) ;
#else
strcpy( ld_path , "LD_LIBRARY_PATH=" ) ;
#endif
strcpy( engine_path , Path ) ;
strcat( engine_path , ".ld" ) ;
ifstream fileld( engine_path ) ;
if ( !fileld.bad() ) {
fileld.getline( &ld_path[ strlen( ld_path ) ] ,
4096 - strlen( ld_path ) ) ;
fileld.close() ;
if ( !putenv( ld_path ) )
ret = 1;
}
/* delete [] engine_path ; */
/* delete [] ld_path ; */
return ret ;
}
inline void *osd_dlopen( char *Path , int LazyMode )
{
void *handle ;
handle = NULL ;
#if defined (__hpux) || defined(HPUX)
if ( Path != NULL ) {
if ( LazyMode & 1 ) {
if ( LazyMode & 2 )
// handle = (void *) cxxshl_load( Path , BIND_FIRST | BIND_TOGETHER |
handle = (void *) shl_load( Path , BIND_FIRST | BIND_TOGETHER |
BIND_DEFERRED | BIND_VERBOSE |
DYNAMIC_PATH , 0L);
else
// handle = (void *) cxxshl_load( Path , BIND_DEFERRED | BIND_VERBOSE |
handle = (void *) shl_load( Path , BIND_DEFERRED | BIND_VERBOSE |
DYNAMIC_PATH , 0L);
}
else {
if ( LazyMode & 2 )
// handle = (void *) cxxshl_load( Path , BIND_FIRST | BIND_TOGETHER |
handle = (void *) shl_load( Path , BIND_FIRST | BIND_TOGETHER |
BIND_IMMEDIATE | BIND_VERBOSE |
DYNAMIC_PATH, 0L);
else
// handle = (void *) cxxshl_load( Path , BIND_IMMEDIATE | BIND_VERBOSE |
handle = (void *) shl_load( Path , BIND_IMMEDIATE | BIND_VERBOSE |
DYNAMIC_PATH , 0L);
}
}
// else
// return cxxshl_load( Path , BIND_IMMEDIATE ,0L);
// ===> findsym( &NULL ... for HP
#elif defined(sun) || defined(SOLARIS) || defined(IRIX) || defined(sgi) || defined(linux) || defined(LIN) || defined(__FreeBSD__)
if ( Path != NULL ) {
if ( LazyMode )
handle = dlopen( Path , RTLD_LAZY | RTLD_GLOBAL );
else
handle = dlopen( Path , RTLD_GLOBAL );
}
else
handle = dlopen( Path , RTLD_NOW );
#elif defined(WNT)
if ( Path != NULL )
handle = (void *) LoadLibraryEx( Path , NULL ,
LOAD_WITH_ALTERED_SEARCH_PATH );
else
handle = (void *) GetModuleHandle( NULL ) ;
#else
if ( Path != NULL ) {
if ( LazyMode )
handle = dlopen( Path , RTLD_LAZY );
else
handle = dlopen( Path , RTLD_NOW );
}
else
handle = dlopen( Path , RTLD_NOW );
#endif
// cout << "dlopen handle " << hex << handle << dec << endl ;
return handle ;
}
inline char *osd_dlopenerror( char *Path )
{
#if defined (__hpux) || defined(HPUX)
if ( Path != NULL && errno != 0 ) {
strcpy( chartmp , "dlopen(\"" ) ;
strcat( chartmp , Path ) ;
strcat( chartmp , "\") perror " ) ;
perror( chartmp ) ;
}
else
chartmp[0] = '\0' ;
#elif defined(WNT)
int i ;
strcpy( chartmp , "LoadLibraryEx(\"" ) ;
strcat( chartmp , Path ) ;
strcat( chartmp , "\") : " ) ;
i = strlen(chartmp) ;
FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError() ,
MAKELANGID( LANG_NEUTRAL, SUBLANG_NEUTRAL ), &chartmp[i] , 450, NULL);
//strcat( chartmp , GetLastError() ) ;
#else
strcpy( chartmp , "dlopen(\"" ) ;
strcat( chartmp , Path ) ;
strcat( chartmp , "\") : " ) ;
strcat( chartmp , dlerror() ) ;
#endif
return chartmp ;
}
inline voidfct osd_dlsym( void *handle , char *signature )
{
#if defined (__hpux) || defined(HPUX)
static voidfct adr_get ;
errno = 0 ;
adr_get = NULL ;
// cout << "dlsym handle *" << hex << &handle << " = " << handle << dec << endl ;
if ( shl_findsym( (shl_t *) &handle , signature , TYPE_PROCEDURE,
&adr_get) == -1 ) {
// cout << "shl_findsym error " << endl ;
adr_get = NULL ;
}
return adr_get ;
#elif defined(WNT)
return (voidfct ) GetProcAddress( (struct HINSTANCE__ *) handle ,
signature ) ;
#else
return (voidfct ) dlsym( handle , signature ) ;
#endif
}
inline voidfct osd_dlsymall( void *handle , char *signature )
{
#if defined (__hpux) || defined(HPUX)
handle = NULL ;
//#elif defined(WNT)
// handle = osd_dlopen( NULL , 0 ) ;
#else
// cout << "Search of " << signature << " with handle " << hex << handle << dec << endl ;
if ( handle == NULL )
handle = osd_dlopen( NULL , 0 ) ;
#endif
return osd_dlsym( handle , signature ) ;
}
inline char *osd_dlsymerror( char *signature )
{
#if defined (__hpux) || defined(HPUX)
if ( errno != 0 ) {
strcpy( chartmp , "shl_findsym(\"" ) ;
strcat( chartmp , signature ) ;
strcat( chartmp , "\") perror " ) ;
perror( chartmp ) ;
}
else
chartmp[0] = '\0' ;
#elif defined(WNT)
int i ;
strcpy( chartmp , "GetProcAddress(\"" ) ;
strcat( chartmp , signature ) ;
strcat( chartmp , "\") : " ) ;
i = strlen( chartmp ) ;
FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError() ,
MAKELANGID( LANG_NEUTRAL, SUBLANG_NEUTRAL ), &chartmp[i] , 450, NULL);
// strcat( chartmp , osd_getmsg( GetLastError() ) ) ;
#else
strcpy( chartmp , "dlsym(\"" ) ;
strcat( chartmp , signature ) ;
strcat( chartmp , "\") : " ) ;
strcat( chartmp , dlerror() ) ;
#endif
return chartmp ;
}

117
src/IncludeLibrary/IncludeLibrary_server_interface.h Executable file
View File

@@ -0,0 +1,117 @@
#ifndef __INCLUDE_LIBRARY_SERVER_INTERFACE_H
# define __INCLUDE_LIBRARY_SERVER_INTERFACE_H
# ifndef WNT
# include <signal.h>
# endif
# ifndef __INCLUDELIBRARY_TYPEDEF_H
# include <IncludeLibrary_typedef.h>
# endif
# if defined(WNT) && !defined(HAVE_NO_DLL)
# ifndef __server_API
# if defined(__Serpc_DLL) || defined(__Server_DLL)
# define __server_API __declspec( dllexport )
# else
# define __server_API __declspec( dllimport )
# endif
# endif
# ifndef __Engine_API
# if defined(__Engine_DLL)
# define __Engine_API __declspec( dllexport )
# else
# define __Engine_API __declspec( dllimport )
# endif
# endif
# else
# define __server_API
# define __Engine_API
# endif
extern int __server_API srv_error(int NUMLNK,
PSTATUS status);
extern int __server_API srv_init(PSTART_SERVER start_serpc,
void *param,
char *nodloc,
int phyadr[]);
extern int __Engine_API srv_receiving(int NUMLNK,
int seqbyt,
int *BUFACP,
int lg_func,
PSRV_RSP rpc_hdle,
void *,
PSTATUS status);
extern int __server_API srv_status(char *msg,
int param,
PSTATUS rpc_status,
int LEN,
char *msga);
# ifdef CSF1
extern int srvinfo_clt(void *vastprm,
char *username);
extern int srvuid_clt(void *astprm);
# if defined(__GNUC__) || defined(LIN)
#define get_receiving_signatura "get_receiving__FPiPPFv_viT1iPPviT0"
#define get_receiving_signature "get_receiving__FPiPPFv_viT1iPPviT0"
#define get_receiving_signatur0 "get_receiving__FPiPPFv_viT1iPPviT0"
#define get_receiving_signatur1 "get_receiving__FPiPPFv_viT1iPPviT0"
# elif defined(__osf__) || defined(DECOSF1)
#define get_receiving_signatura "get_receiving"
#define get_receiving_signature "get_receiving__XPiPPXv_viPPXv_viPPviPi"
#define get_receiving_signatur0 "get_receiving__XPPXiiPiiPXPvP6STATUSPiPi_iPvP6STATUS_iiPPXv_viPPviPi"
#define get_receiving_signatur1 "get_receiving__XPPXiiPiiPXPvP7_statusPiPi_iPvP7_status_iiPPXv_viPPviPi"
# elif defined(__sun) || defined(SOLARIS)
#define get_receiving_signatura "get_receiving"
#define get_receiving_signature "__0FNget_receivingPiPPFv_viTCTDPPvTDTB"
#define get_receiving_signatur0 "__0FNget_receivingPPFiTBPiTBPFPvP6GSTATUSPiTD_iPvP6GSTATUS_iiPPFv_vTCPPvTCPi"
#define get_receiving_signatur1 "__0FNget_receivingPPFiTBPiTBPFPvP6H_statusPiTD_iPvP6H_status_iiPPFv_vTCPPvTCPi"
# elif defined(__sgi) || defined(IRIX)
#define get_receiving_signatura "get_receiving__GPiPPGv_viT2T3PPvT3T1"
#define get_receiving_signature "get_receiving__FPiPPFv_viT2T3PPvT3T1"
#define get_receiving_signatur0 "get_receiving__FPPFiT1PiT1PFPvP6STATUSPiT3_iPvP6STATUS_iiPPFv_vT2PPvT2Pi"
#define get_receiving_signatur1 "get_receiving__FPPFiT1PiT1PFPvP7_statusPiT3_iPvP7_status_iiPPFv_vT2PPvT2Pi"
# elif defined(__hpux) || defined(HPUX)
#define get_receiving_signatura "get_receiving"
#define get_receiving_signature "get_receiving__FPiPPFv_viT2T3PPvT3T1"
#define get_receiving_signatur0 "get_receiving__FPPFiT1PiT1PFPvP6STATUSPiT3_iPvP6STATUS_iiPPFv_vT2PPvT2Pi"
#define get_receiving_signatur1 "get_receiving__FPPFiT1PiT1PFPvP7_statusPiT3_iPvP7_status_iiPPFv_vT2PPvT2Pi"
# elif defined(WNT)
#define get_receiving_signatura "get_receiving"
#define get_receiving_signature "?get_receiving@@YAXPAHPAP6AXXZH1HPAPAXH0@Z"
#define get_receiving_signatur0 "?get_receiving@@YAXPAP6AHHHPAHHP6AHPAXPAUSTATUS@@00@Z12@ZP6APADXZP6AXXZH@Z"
#define get_receiving_signatur1 "?get_receiving@@YAXPAP6AHHHPAHHP6AHPAXPAU_status@@00@Z12@ZHPAP6AXXZHPAPAXH0@Z"
# elif defined(_AIX) || defined(AIX)
#define get_receiving_signatura "get_receiving__FPiPPFv_viT2T3PPvT3T1"
#define get_receiving_signature "get_receiving__FPiPPFv_viT2T3PPvT3T1"
#define get_receiving_signatur0 "get_receiving__FPiPPFv_viT2T3PPvT3T1"
#define get_receiving_signatur1 "get_receiving__FPiPPFv_viT2T3PPvT3T1"
# endif
extern void __Engine_API get_receiving(int *nbr_ret_func ,
PVOID_FUNCTION *TABRETFUNC ,
int , // nbrfunc
#ifndef WNT
PVOID_FUNCTION * ,
#else
PVOID_FUNCTION *adr_func ,
#endif
int , // nbrptr
void **tabptr ,
int , // nbrval
int *tabval ) ;
/* PSRV_RECEIVING *srv_receiving,
int nbrfunc ,
void (**adr_func)() ,
int nbrptr ,
void **tabptr ,
int nbrval ,
int *tabval ) ;*/
# endif
#endif /* __INCLUDE_LIBRARY_SERVER_INTERFACE_H */

122
src/IncludeLibrary/IncludeLibrary_srvtyp.h Executable file
View File

@@ -0,0 +1,122 @@
/* srvtyp.h */
/* Types dans les commandes/fonctions serveurs/services applicatifs */
/*
; Type des arguments des commandes serveur et des fonctions services applicatifs
; Code hex. Type 4 octets (binaire)
;yxxx0000 : Skip n octets 1nnnnnnn nnnnnnnn 00000000 00000000
;xxxx0000 : Undefined xxxxxxxx xxxxxxxx 00000000 00000000
;00010001 : Byte 00000000 00000001 00000000 00000001
;00020001 : Integer*2 00000000 00000010 00000000 00000001
;00040001 : Integer*4 00000000 00000100 00000000 00000001
;00080001 : Integer*8 00000000 00001000 00000000 00000001
;00010002 : Logical*1 00000000 00000001 00000000 00000010
;00040002 : Logical*4 00000000 00000100 00000000 00000010
;00040004 : Real*4 00000000 00000100 00000000 00000100
;00080004 : Real*8 00000000 00001000 00000000 00000100
;00100004 : Real*16 00000000 00010000 00000000 00000100
;00040008 : Complex*4 00000000 00000100 00000000 00001000
;00080008 : Complex*8 00000000 00001000 00000000 00001000
;00100008 : Complex*16 00000000 00010000 00000000 00001000
;xxxx0010 : Character xxxxxxxx xxxxxxxx 00000000 00010000
;xxxx0011 : Extended Character xxxxxxxx xxxxxxxx 00000000 00010001
;------ Inutilises peut etre pris:
;00040020 : Entry point address 00000000 00000100 00000000 00100000
;00040040 : Etiquette/Instruction address 00000000 00000100 00000000 01000000
;00040080 : Data address 00000000 00000100 00000000 10000000
;------ fin des Inutilises
;00000100 : Adresse de datas a remplacer par la valeur dans ACSRV
;00000300 : Adresse de datas indexee a remplacer par la valeur dans ACSRV
; : (On a l'adresse suivie de l'adresse de l'index)
;00000400 : Indicateur mode de passage IN 00000000 00000000 00000100 00000000
;00000800 : Indicateur mode de passage OUT 00000000 00000000 00001000 00000000
Ces indicateurs ne sont pas des types mais sont codes dans le meme
mot que le type.
;xxxx1000 : Structure de xxxx champs xxxxxxxx xxxxxxxx 00010000 00000000
;xxxx2000 : Enumeration de xxxx arguments xxxxxxxx xxxxxxxx 00100000 00000000
;xxxx4000 : Handle de xxxx mots xxxxxxxx xxxxxxxx 01000000 00000000
;xxxx8000 : Tableau de xxxx elements xxxxxxxx xxxxxxxx 10000000 00000000
;
*/
#define TYPSKB 0x80000000 /* Skip n octets */
#define TYPUND 0x00000000 /* Undefined */
#define TYPIT1 0x00010001 /* Byte */
#define TYPIT2 0x00020001 /* Integer*2 */
#define TYPIT4 0x00040001 /* Integer*4 */
#define TYPIT8 0x00080001 /* Integer*8 */
#define TYPLO1 0x00010002 /* Logical*1 */
#define TYPLO4 0x00040002 /* Logical*4 */
#define TYPRE4 0x00040004 /* Real*4 */
#define TYPRE8 0x00080004 /* Real*8 */
#define TYPR16 0x00100004 /* Real*16 */
#define TYPCO4 0x00040008 /* Complex*4 */
#define TYPCO8 0x00080008 /* Complex*8 */
#define TYPC16 0x00100008 /* Complex*16 */
#define TYPCHR 0x00000010 /* Character */
#define TYPCHREXT 0x00000011 /* Character */
#define TYPINT 0x00000001 /* Integer */
#define TYPLOG 0x00000002 /* Logical */
#define TYPREAL 0x00000004 /* Real */
#define TYPCOMP 0x00000008 /* Complex */
#define MSK_TYPE 0x0000f3ff /* Masque isole le type */
#define TYPALONE(X) (unsigned int ) ((X) & MSK_TYPE) /* Macro */
#define MSK_LGR 0x7fff0000 /* Masque isole la longueur */
#define LGRALONE(X) (((X) & MSK_LGR) >> 16) /* Macro */
#define MSK_TYPCHR 0x0000ffff /* Masque pour TYPCHR */
#define MSK_LGCHR 0x7fff0000 /* Masque pour lg TYPCHR */
#define MSK_LGUND 0x7fff0000 /* Masque pour lg Undefined */
#define MSK_LGSTRUCT 0x7fff0000 /* Masque pour lg Structure */
#define MSK_LGHDLE 0x7fff0000 /* Masque pour lg Handle */
#define TYPENT 0x00040020 /* Entry point address */
#define TYPETI 0x00040040 /* Etiquette/Inst address */
#if defined (__osf__) || defined (DECOSF1)
#define TYPDAD 0x00080080 /* Data address */
#else
#define TYPDAD 0x00040080 /* Data address */
#endif
#define TYPADD 0x00000100 /* Adresse de data a remplacer
par la valeur dans ACSRV */
#define TYPADI 0x00000300 /* Adresse de datas indexee */
/* A remplacer par la valeur dans ACSRV. */
/* (On a l'adresse suivie de l'adresse de l'index) */
#define TYPSTRUCT 0x00001000 /* Structure */
/* 16 bits de poids forts : Nombre de champs de la structure */
/* Suivent les champs donnes par leur type et leur valeur */
#define TYPENUM 0x00002000 /* Enumeration */
/* 16 bits de poids forts : Nombre d'arguments la decrivant */
/* Suivent les arguments donnes par leur type et leur valeur */
#define TYPHDLE 0x00004000 /* Handle */
/* 16 bits de poids forts : Nombre de mots de 32 bits du handle */
#define TYPARR 0x00008000 /* Tableau */
/* 16 bits de poids forts : nombre d'elements du tableau */
/* Ce mot de type est suivi par un autre mot de type qui */
/* indique la longueur de l'element de tableau et son type */
/* Le mode de passage de l'argument */
/* Il est mis dans le type */
#define MODIN 0x00000400
#define MODOUT 0x00000800
#define MODINOUT 0x00000c00
#define MSKMOD (~MODINOUT)
#define MODALONE(X) ((X) & (~MSKMOD)) /* Macro */
/* Le protocole
*/
#define CCALLEVEL 1

102
src/IncludeLibrary/IncludeLibrary_status.h Executable file
View File

@@ -0,0 +1,102 @@
#ifndef __INCLUDE_LIBRARY_STATUS_H
# define __INCLUDE_LIBRARY_STATUS_H
#ifdef WNT
# define STRICT
# include <windows.h>
# include <stdio.h>
# include <process.h>
#else
#if !defined(__hpux) && !defined(HPUX) && !defined(__FreeBSD__)
# include <sys/select.h>
#endif
#endif
/* Structure du compte rendu */
/* +++++++ JPT JPT JPT
ATTENTION au mode d'adressage:
VMS et ULTRIX de la droite vers la gauche,
SUN et SGI de la gauche vers la droite.
Comme le compte rendu vient du FORTRAN qui est un tableau de 2
entiers, la structure du 1er mot de 32 bits est differente.
*/
#if defined (vax) || defined(VMS)
#define RIGHTLEFT
#elif defined(i386) || defined(LININTEL)
#define RIGHTLEFT
#elif defined(__i386)
#define RIGHTLEFT
#elif defined(__vms)
#define RIGHTLEFT
#elif defined(WNT)
#define RIGHTLEFT
#elif defined(__ia64) || defined(DS)
#define RIGHTLEFT
#elif defined(DS3)
#define RIGHTLEFT
#elif defined(__alpha) || defined(AO1)
#define RIGHTLEFT
#elif defined(__osf__) || defined(DECOSF1)
#define RIGHTLEFT
#elif defined(__sparc) || defined(SUN)
#define LEFTRIGHT
#elif defined(SOL)
#define LEFTRIGHT
#elif defined(__sparc9) || defined(SOLARIS)
#define LEFTRIGHT
#elif defined(__mips) || defined(SIL)
#define LEFTRIGHT
#elif defined(sgi) || defined(IRIX)
#define LEFTRIGHT
#elif defined(ppc)
#define LEFTRIGHT
#elif defined(__hpux) || defined(HPUX)
#define LEFTRIGHT
#elif defined(NEC)
#define LEFTRIGHT
#elif defined(_AIX) || defined(AIX)
#define LEFTRIGHT
#endif
#ifdef RIGHTLEFT
struct _status {
char type ;
char grp ;
short info ;
int stat ;
} ;
#elif defined(LEFTRIGHT)
struct _status {
short info ;
char grp ;
char type ;
int stat ;
} ;
#endif
typedef struct _status STATUS , *PSTATUS ;
#endif /* __INCLUDE_LIBRARY_STATUS_H */

148
src/IncludeLibrary/IncludeLibrary_stsgrpdef.h Executable file
View File

@@ -0,0 +1,148 @@
#ifndef __NTD_STSGRPDEF_H
# define __NTD_STSGRPDEF_H
/* valeurs du champ type (a combiner) */
/* issssntt : 8 bits avec i : interrupt
s : identifieur de systeme
n : internal / systeme
t : Normal/Error/Warning */
#define PENDING 0 /* 2 bits de droite */
#define NORMAL 1
# ifdef ERROR
# undef ERROR
# endif /* ERROR */
#define ERROR 2
#define WARNING 3
#define INTERNAL 0 /* 1 bit */
#define SYSTEM 4
#define SYS_MASK 120 /* 4 bits */
#define SYS_VMS 0
#define SYS_DS 8
#define SYS_SUN 16
#define SYS_SGI 24
#define SYS_NEC 32
#define SYS_HPU 40
#define SYS_SOL 48
#define SYS_AO1 56
#define SYS_IBM 64
#define SYS_WNT 72
#define SYS_LIN 80
#define SYS_AIX 88
#define SYS_BSD 96
#define SYS_MAC 104
#define INTERRUPT 128 /* 1 bit */
/* valeurs du champ grp */
#define GRP_OSD_VMS 1
#define GRP_OSD_UNX 2
#define GRP_NTD_VMS 3
#define GRP_NTD_UNX 4
#define GRP_ACS 5
#define GRP_SRV_MBX 6
#define GRP_SRV_CLT 7
#define GRP_SRV_LNK 8
#define GRP_SRV_RSP 9
#define GRP_SRV_SRV 10
#define GRP_SRV_OLB 11
#define GRP_TLI_LIB 12
#define GRP_OSD_WNT 13
#define GRP_NTD_WNT 14
#define GRP_SRV_RPC 15
#define GRP_OSD_LIN GRP_OSD_UNX
#define GRP_NTD_LIN GRP_NTD_UNX
#define GRP_SCS_PRC 16
#define GRP_SCS_ACP 17
#define GRP_SCS_SYN 18
#define GRP_SCS_PRS 19
#define GRP_SCS_ASP 20
#define GRP_SCS_ACA 21
#define GRP_BDS_LOC 32
#define GRP_BDS_REM 33
#define GRP_BDS_CNV 34
#define GRP_BDS_RCS 35
#define GRP_BDS_HDS 36
#define GRP_BDS_DBF 37
#define GRP_BDS_RMD 38
#define GRP_BDS_CLT 39
#define GRP_BDS_AST 40
#define GRP_BDS_ENT 41
#define GRP_BDS_ITM 42
#define GRP_BDS_ZNX 43
#define GRP_BDS_ACK 44
#define GRP_STARTER 64
#define GRP_FEI_CCA 65
#define GRP_FEI_SEL 66
#define GRP_FEI_ENG 67
#define GRP_FEI_CTL 68
#define GRP_FEI_SEGV 69
#define GRP_XXX 70
#define MAX_SRV_GRP GRP_SRV_RPC+1
#define MAX_DBS_GRP GRP_BDS_ACK-GRP_BDS_LOC+2
# if defined (__vms) || defined ( VMS )
#define SYS_CODE SYS_VMS
#define GRP_OSD GRP_OSD_VMS
#define GRP_NTD GRP_NTD_VMS
# elif defined (linux) || defined (LIN)
#define SYS_CODE SYS_LIN
#define GRP_OSD GRP_OSD_LIN
#define GRP_NTD GRP_NTD_LIN
# elif WNT
#define SYS_CODE SYS_WNT
#define GRP_OSD GRP_OSD_WNT
#define GRP_NTD GRP_NTD_WNT
# elif UNX
#define GRP_OSD GRP_OSD_UNX
#define GRP_NTD GRP_NTD_UNX
# ifdef DS3
#define SYS_CODE SYS_DS
# elif defined ( SUN )
#define SYS_CODE SYS_SUN
# elif defined (sgi) || defined (SIL) || defined (IRIX)
#define SYS_CODE SYS_SGI
# elif NEC
#define SYS_CODE SYS_NEC
# elif defined (__hpux) || defined (HPUX)
#define SYS_CODE SYS_HPU
# elif defined (sun) || defined ( SOLARIS ) || defined ( SOL )
#define SYS_CODE SYS_SOL
# elif defined (__osf__) || defined ( AO1 ) || defined (DECOSF1)
#define SYS_CODE SYS_AO1
# elif defined (_AIX) || defined (AIX)
#define SYS_CODE SYS_AIX
# elif IBM
#define SYS_CODE SYS_IBM
# elif defined(__FreeBSD__)
#define SYS_CODE SYS_BSD
# elif defined(__APPLE__)
#define SYS_CODE SYS_MAC
# endif
# endif
#endif /* __NTD_STSGRPDEF_H */

137
src/IncludeLibrary/IncludeLibrary_typedef.h Executable file
View File

@@ -0,0 +1,137 @@
#ifndef __INCLUDELIBRARY_TYPEDEF_H
#define __INCLUDELIBRARY_TYPEDEF_H
//#ifdef WNT
//#define LPARAM void*
//#endif
typedef void (*PVOID_FUNCTION)(void) ;
typedef void (*PUSR_SET_UIC)(char *usrnam,
int pid,
int *uic,
int *usruic,
int *k_chg_uic) ;
typedef int (*PSERVER) (PUSR_SET_UIC) ;
typedef int (*PSTART_SERVER)(void *astprm ,
PSTATUS status ,
int nbrtsk ,
char **server ,
int k_fork ,
char *cputype ,
short num_func_intr );
typedef int (*PSRV_RSP)(void *,
PSTATUS status,
int *buffrsp,
int *lgrsp) ;
typedef int (*PSRV_RECEIVING)(int NUMLNK,
int seqbyt,
int *BUFACP,
int lg_func,
PSRV_RSP rpc_hdle,
void *,
PSTATUS status);
typedef void (*PGET_RECEIVING)(int *nbr_ret_func ,
PVOID_FUNCTION *TABRETFUNC ,
int nbrfunc ,
PVOID_FUNCTION * ,
int nbrptr ,
void **tabptr ,
int nbrval ,
int *tabval ) ;
typedef int (*PSRV_CTL)(void *inum,
int func,
int *bufcmd,
int sizcmd,
int sizrspbuf,
int k_synch ,
PSRV_RSP astadr,
void *,
PSTATUS status,
int *bufrsp,
int *sizrsp) ;
typedef int (*PAST_ADDR_PV)(void *) ;
typedef int (*PAST_ADDR_V)(int ) ;
typedef int (*PREAD_AST_MBX)(int lnk,
int limit,
int *ptr_uic,
char *ptr_usrnam,
int *ptr_pid) ;
#ifdef WNT
typedef unsigned ( __stdcall *PTHREAD_START ) ( void* );
#endif
typedef void (*PVOID_FUNCTION)(void) ;
typedef char *(*PGET_ENGINE_PATH)(void) ;
typedef void (*PGET_VECTOR)(int **K_VERBOSE ,
PVOID_FUNCTION ** ,
int *nbr_addr ) ;
typedef void (*POSD_EXITODEB)(void) ;
typedef int (*POSD_HOST_ADDR_TCP)(char *node,
unsigned char *intadr,
PSTATUS sts) ;
typedef int (*PNTD_ISERDISC)(PSTATUS status) ;
typedef void (*PACT_SIGIO_HANDLER)(void) ;
typedef int (*PENV_ENGINE)(int *lnk ,
int k_do_exec,
int K_START,
char *Engine_Path_Name,
char **Engine_Path ,
char **Engine_Name ) ;
typedef int (*PLOAD_ENGINE)(char *Engine_Path,
char *Engine_Name,
int KVERBOSEINIT ,
int *nbr_ret_func ,
PVOID_FUNCTION *TABRETFUNC ,
int nbrptrfunc ,
PVOID_FUNCTION *TABFUNC ,
int nbrptr ,
void **TABPTR ,
int nbrval ,
int *TABVAL );
typedef int (*POSD_NODENAME_TCP)(char *nodloc,
int len,
PSTATUS rpc_status ) ;
typedef int (*PSTRSTS)(void *numlnk,
char *code,
char stat,
PSTATUS status,
int lgmsg,
char *msgerr,
int *lenerr ) ;
typedef const char (*POSD_GETMSG)( int ) ;
typedef int (*PENGINE_CATEGORY)(int Category ) ;
typedef int (*PENGINE_ARGUMENT)(unsigned int Type,
void* Value) ;
typedef int (*PENGINE_SELECTOR)() ;
typedef int (*PENGINE_RETURN)(int*& Position,
unsigned int*& Type,
int*& NbElem,
int*& Length,
int**& Value) ;
#endif