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
|
/* Library to add C-Functions to Scilab And/Or Matlab */
/* Bertrand Guiheneuf 1996 */
#ifndef INCLUDE_CSCIINTERF
#define INCLUDE_CSCIINTERF
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#ifndef MAX
#define MAX(a,b) (a > b ? a : b)
#endif
#ifndef MIN
#define MIN(a,b) (a < b ? a : b)
#endif
#include "../machine.h"
#include "../stack-def.h"
#ifndef integer
#define integer int
#endif
/* types definition */
typedef double Matrix;
struct {
int NbParamIn;
int NbParamOut;
int ReturnCounter;
int FuncIndex;
int ReturnIndex;
char Retour[1000];
int Err;
Matrix **Param;
Matrix **Return;
} Interf;
/****************************************** P R O T O T Y P E S *************************************/
void InterfError();
extern int MatrixMemSize();
extern Matrix *MatrixCreate();
extern int MatrixIsNumeric();
extern int MatrixIsReal();
extern int MatrixIsComplex();
extern int MatrixIsScalar();
extern int MatrixIsList();
extern Matrix *MatrixCreateString();
extern char *MatrixReadString();
extern Matrix *ListCreate();
extern Matrix *AppendList();
extern int ListGetSize();
extern Matrix *ListGetCell();
extern void MatrixFree();
extern double *MatrixGetPr();
extern double *MatrixGetPi();
extern int MatrixGetWidth();
extern int MatrixGetHeight();
extern double MatrixGetScalar();
extern void MatrixTranspose();
extern void MatrixCopy();
extern void ReturnParam();
extern void InterfInit();
extern void InterfDone();
#endif /*INCLUDE_CSCIINTERF*/
|
