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
|
/* Copyright INRIA */
#ifndef __CALLINTERF__
#define __CALLINTERF__
/********************************************************
* Table of hard coded Scilab interface
* to add a new interface add a declaration and a new entry
* at the end of the Interfaces array
* The maximum number of interfaces is bound to DynInterfStart
* ( file ../sun/addinter.h )
********************************************************/
extern void /* 01 */ C2F(matlu)(); /* for backward compatibility */
extern void /* 02 */ C2F(matdsr)();
extern void /* 03 */ C2F(matsvd)();/* for backward compatibility */
extern void /* 04 */ C2F(matqr)();/* for backward compatibility */
extern void /* 05 */ C2F(matio)();
extern void /* 06 */ C2F(matelm)();
extern void /* 07 */ C2F(matdes)();
extern void /* 08 */ C2F(matqz)();
extern void /* 09 */ C2F(matric)();
extern void /* 10 */ C2F(matnew)();
extern void /* 11 */ C2F(matopt)();
extern void /* 12 */ C2F(matode)();
extern void /* 13 */ C2F(matsys)();
extern void /* 14 */ C2F(matusr)();
extern void /* 15 */ C2F(metane)();
extern void /* 16 */ C2F(polelm)();
extern void /* 17 */ C2F(lstelm)();
extern void /* 18 */ C2F(sigelm)();
extern void /* 19 */ C2F(intinterp)();
extern void /* 20 */ C2F(polaut)();
extern void /* 21 */ C2F(strelm)();
extern void /* 22 */ C2F(fmlelm)();
extern void /* 23 */ C2F(logelm)();
extern void /* 24 */ C2F(matus2)();
extern void /* 25 */ C2F(xawelm)();
extern void /* 26 */ C2F(matimp)();
extern void /* 27 */ C2F(spelm)();
extern void /* 28 */ C2F(intscicos)();
extern void /* 29 */ C2F(matodc)();
extern void /* 30 */ C2F(defint)();
extern void /* 31 */ C2F(feval)();
extern void /* 32 */ C2F(bva)();
/* 33 */ /* FREE */
extern void /* 34 */ C2F(soundi)();
extern void /* 35 */ C2F(coselm)();
extern void /* 36 */ C2F(specfun)();
extern void /* 37 */ C2F(dcd)();
extern void /* 38 */ C2F(randlib)();
extern void /* 39 */ C2F(otherspfunlib)();
#ifdef WITH_TK
extern void /* 40 */ C2F(inttclsci)();
#define TCLINTERF C2F(inttclsci)
#else
#define TCLINTERF C2F(NoTclsci)
#endif
extern void /* 41 */ C2F(lstelmi)();
#ifdef WITH_PVM
extern void /* 42 */ C2F(intpvm)();
#define PVMINTERF C2F(intpvm)
#else
#define PVMINTERF C2F(NoPvm)
#endif
extern void /* 43 */ C2F(intelm)();
extern void /* 44 */ C2F(intlapack)();
extern void /* 45 */ C2F(intslicot)();
extern void /* 46 */ C2F(intarpack)();
extern void /* 47 */ C2F(intcscicos)();
extern void /* 48 */ C2F(intwintools)();
static OpTab Interfaces[] ={
/* 01 */ {C2F(matlu)},
/* 02 */ {C2F(matdsr)},
/* 03 */ {C2F(matsvd)},
/* 04 */ {C2F(matqr)},
/* 05 */ {C2F(matio)},
/* 06 */ {C2F(matelm)},
/* 07 */ {C2F(matdes)},
/* 08 */ {C2F(matqz)},
/* 09 */ {C2F(matric)},
/* 10 */ {C2F(matnew)},
/* 11 */ {C2F(matopt)},
/* 12 */ {C2F(matode)},
/* 13 */ {C2F(matsys)},
/* 14 */ {C2F(matusr)},
/* 15 */ {C2F(metane)},
/* 16 */ {C2F(polelm)},
/* 17 */ {C2F(lstelm)},
/* 18 */ {C2F(sigelm)},
/* 19 */ {C2F(intinterp)},
/* 20 */ {C2F(polaut)},
/* 21 */ {C2F(strelm)},
/* 22 */ {C2F(fmlelm)},
/* 23 */ {C2F(logelm)},
/* 24 */ {C2F(matus2)},
/* 25 */ {C2F(xawelm)},
/* 26 */ {C2F(matimp)},
/* 27 */ {C2F(spelm)},
/* 28 */ {C2F(intscicos)},
/* 29 */ {C2F(matodc)},
/* 30 */ {C2F(defint)},
/* 31 */ {C2F(feval)},
/* 32 */ {C2F(bva)},
/* 33 */ {C2F(matus2)}, /* free position may be used */
/* 34 */ {C2F(soundi)},
/* 35 */ {C2F(coselm)},
/* 36 */ {C2F(specfun)},
/* 37 */ {C2F(dcd)},
/* 38 */ {C2F(randlib)},
/* 39 */ {C2F(otherspfunlib)},
/* 40 */ {TCLINTERF},
/* 41 */ {C2F(lstelmi)},
/* 42 */ {PVMINTERF},
/* 43 */ {C2F(intelm)},
/* 44 */ {C2F(intlapack)},
/* 45 */ {C2F(intslicot)},
/* 46 */ {C2F(intarpack)},
/* 47 */ {C2F(intcscicos)},
/* 48 */ {C2F(intwintools)}
};
#endif /*__CALLINTERF__*/
|
