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
|
/****************************************************************
* *
* Copyright 2001, 2009 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 GTM_DESCRIPT_INCLUDED
#define GTM_DESCRIPT_INCLUDED
#include "gtm_sizeof.h"
int mumps_call();
typedef struct {
short len;
short type;
void *val;
} gtm_descriptor;
typedef struct {
unsigned int len;
unsigned int type;
void *val;
} gtm32_descriptor;
/* legal types */
#define DSC_K_DTYPE_T 1
#define GTM_ARRAY_OF_CHARS DSC_K_DTYPE_T
#define DSC_K_DTYPE_D 2
#define GTM_DOUBLE DSC_K_DTYPE_D
#define DSC_K_DTYPE_B 3
#define GTM_CHAR DSC_K_DTYPE_B
#define DSC_K_DTYPE_BU 4
#define GTM_UNSIGNED_CHAR DSC_K_DTYPE_BU
#define DSC_K_DTYPE_W 5
#define GTM_SHORT DSC_K_DTYPE_W
#define DSC_K_DTYPE_WU 6
#define GTM_UNSIGNED_SHORT DSC_K_DTYPE_WU
#define DSC_K_DTYPE_L 7
#define GTM_LONG DSC_K_DTYPE_L
#define DSC_K_DTYPE_LU 8
#define GTM_UNSIGNED_LONG DSC_K_DTYPE_LU
#define DSC_K_DTYPE_F 9
#define GTM_FLOAT DSC_K_DTYPE_F
#define GTM_MODE 10
#define GTM_DELIMITER 10
#define DESCRIPTOR(x,y) {x.type = GTM_ARRAY_OF_CHARS; x.len = SIZEOF(y) - 1; x.val = y;}
#define DESC_MODE(x,y) {x.type=GTM_MODE; x.len=SIZEOF(y); x.val=(void*)&y;}
#define DESC_CHAR(x,y) {x.type=GTM_ARRAY_OF_CHARS; x.len=SIZEOF(y)-1; x.val=y;}
#define DESC_ZERO(x) {x.type=0; x.len=0;}
#define DESC_LONG(x,y) {x.type=GTM_LONG; x.len=SIZEOF(y); x.val=&y;}
#define DESC_DELIM(x,y) {x.type=GTM_DELIMITER;x.len=SIZEOF(y);x.val=(void *)&y;}
#endif
|
