1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
/****************************************************************
* *
* Copyright 2001, 2013 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#ifndef __FGNCALSP_H__
#define __FGNCALSP_H__
/* fgncalsp.h - UNIX foreign calls (d &package.label) */
#define MAX_NAME_LENGTH 255 /* Maximum length of file name */
#define PACKAGE_ENV_PREFIX "GTMXC" /* Prefix for environemnt variable containing
* external call table name */
#define CALLIN_ENV_NAME "GTMCI" /* Call-in table environment variable */
#define MAX_ERRSTR_LEN 1024 /* Maximum length of the error string returned
* by dlerror(). Couldn't find any system
* defined length, 1024 is just arbitrary */
#define MAX_TABLINE_LEN 1024 /* Maximum length of a line estimated to be sufficient
* to specify MAX_ACTUALS parameters in the
* callin/xcall table */
#define UNKNOWN_SYSERR "unknown system error"
#define COPY_DLLERR_MSG(err_ptr, err_buf) \
{ \
int len = 0; \
\
if ((err_ptr = dlerror()) != NULL) \
{ \
len = real_len(SIZEOF(err_buf) - 1, (uchar_ptr_t)err_ptr); \
strncpy(err_buf, err_ptr, len); \
err_buf[len] = '\0'; \
} else \
{ /* Ensure we will not overrun err_buf limits */ \
assert(ARRAYSIZE(UNKNOWN_SYSERR) < ARRAYSIZE(err_buf)); \
STRCPY(err_buf, UNKNOWN_SYSERR); \
} \
}
typedef int4 (*fgnfnc)();
typedef void (*clnupfptr)();
struct extcall_string
{
#ifdef __osf__
int len;
#else
long len;
#endif
char *addr;
};
/* A chain of packages, each package has a list of "entries", that is external routine entry points. */
struct extcall_package_list
{
struct extcall_package_list *next_package;
struct extcall_entry_list *first_entry;
void_ptr_t package_handle;
mstr package_name;
clnupfptr package_clnup_rtn;
};
enum gtm_types
{
gtm_notfound,
gtm_void,
gtm_status,
gtm_int,
gtm_uint,
gtm_long,
gtm_ulong,
gtm_float,
gtm_double,
gtm_int_star,
gtm_uint_star,
gtm_long_star,
gtm_ulong_star,
gtm_string_star,
gtm_float_star,
gtm_char_star,
gtm_char_starstar,
gtm_double_star,
gtm_pointertofunc,
gtm_pointertofunc_star,
gtm_jboolean,
gtm_jint,
gtm_jlong,
gtm_jfloat,
gtm_jdouble,
gtm_jstring,
gtm_jbyte_array,
gtm_jbig_decimal
};
enum callintogtm_fncs
{
gtmfunc_hiber_start,
gtmfunc_hiber_start_any,
gtmfunc_start_timer,
gtmfunc_cancel_timer,
gtmfunc_gtm_malloc,
gtmfunc_gtm_free,
gtmfunc_unknown_function
};
/* There is one of these for each external routine. Each is owned by a package. */
struct extcall_entry_list
{
struct extcall_entry_list *next_entry;
enum gtm_types return_type; /* function return value */
int ret_pre_alloc_val; /* amount of space to be pre-allocated for the return type */
uint4 input_mask; /* is it an input parameter lsb = 1st parm */
uint4 output_mask; /* is it an output parameter lsb = 1st parm */
int parmblk_size; /* size in bytes of parameter block to be allocated for call*/
int argcnt; /* number of arguments */
enum gtm_types *parms; /* pointer to parameter array */
int *param_pre_alloc_size; /* amount of space to be pre-allocated for the parameters */
fgnfnc fcn; /* address of runtime routine */
mstr entry_name; /* name of M entryref */
mstr call_name; /* corresponding name of C function */
};
/* A list of entries in the call-in table each indicating the signature of
a call-in routine */
typedef struct callin_entry_list
{
mstr label_ref; /* labelref name of M routine */
mstr call_name; /* corresponding name of C function */
uint4 input_mask; /* input parameter? LSB = 1st parm */
uint4 output_mask; /* output parameter? LSB = 1st parm */
unsigned short argcnt; /* number of arguments */
enum gtm_types return_type;
enum gtm_types *parms; /* parameter types */
struct callin_entry_list *next_entry;
} callin_entry_list;
/* parameter block that ci_restart uses to pass arguments to M routine */
typedef struct parmblk_struct
{
void (*ci_rtn)(void);
int4 argcnt;
void *rtnaddr, *labaddr, *retaddr;
int4 mask;
lv_val *args[MAX_ACTUALS];
} parmblk_struct;
#include <rtnhdr.h>
/* function prototypes */
void_ptr_t fgn_getpak(char *pak_name, int msgtype);
fgnfnc fgn_getrtn(void_ptr_t pak_handle, mstr *sym_name, int msgtype);
void fgn_closepak(void_ptr_t pak_handle, int msgtype);
int fgncal_getint(mstr *inp);
int fgncal_read_args(mstr *inp);
void fgncal_getstr(mstr *inp, mstr *str);
void fgncal_lkbind(mstr *inp);
void fgn_glopref(mval *v);
struct extcall_package_list *exttab_parse (mval *package);
callin_entry_list *citab_parse (void);
#endif
|
