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
|
/*------------------------------------------------------------------------
* Copyright (C) 1998-2000 Enpc/Jean-Philippe Chancelier
* jpc@cereve.enpc.fr
--------------------------------------------------------------------------*/
#include "../stack-c.h"
#define MAX_ENV 256
#ifdef NORANDLIB
C2F(randlib)()
{
int ilib=0;
static char name[MAX_ENV];
static char *names[]={ "randlib",(char *) 0};
static char *files[] = {
name,
(char *) 0
};
int nums[1];
static int Buildname=0;
static int randpos = -1;
if ( Buildname == 0) { BuildName(name,"rand.so"); Buildname++;}
CallDynInterf(&randpos,1,0,names,nums,files);
}
#endif
#ifdef NODCD
C2F(dcd)()
{
int ilib=0;
static char name[MAX_ENV];
static char *files[] = {
name,
(char *) 0
};
int nums[1];
static char *names[] = {"dcd",(char *)0};
static int Buildname=0;
static int randpos = -1;
if ( Buildname == 0) { BuildName(name,"dcd.so"); Buildname++;}
CallDynInterf(&randpos,1,0,names,nums,files);
}
#endif
#ifdef NOSCICOS
static char scicos_name[MAX_ENV];
static char *scicos_names[]={ "coselm","intcos",(char *) 0};
static char *scicos_files[] = {
scicos_name,
(char *) 0
};
int scicos_nums[2];
static int coselmpos=-1;
static int intcospos=-1;
void C2F(coselm) ()
{
static int Buildname=0;
if ( Buildname == 0) { BuildName(scicos_name,"scicos.so"); Buildname++;}
CallDynInterf(&coselmpos,2,0,scicos_names,scicos_nums,scicos_files);
}
void C2F(intcos) ()
{
static int Buildname=0;
if ( Buildname == 0) { BuildName(scicos_name,"scicos.so"); Buildname++;}
CallDynInterf(&intcospos,2,1,scicos_names,scicos_nums,scicos_files);
}
#endif
#ifdef NOSIGNAL
void C2F(sigelm) ()
{
int Error=9999;
sciprint("Scicos interface not loaded \n");
Error(9999);
return;
}
void C2F(datatf) ()
{
int Error=9999;
sciprint("Scicos interface not loaded \n");
Error(9999);
return;
}
#endif
#ifdef NOSOUND
C2F(soundi)()
{
int Error=9999;
sciprint("Sound and <<binary read>> interface not loaded \n");
Error(9999);
return;
}
#endif
#ifdef NOSPARSE
void C2F(spelm) ()
{
int Error=9999;
sciprint("Sparse interface not loaded \n");
Error(9999);
return;
}
void C2F(lspops) ()
{
int Error=9999;
sciprint("Sparse interface not loaded \n");
Error(9999);
return;
}
void C2F(spops) ()
{
int Error=9999;
sciprint("Sparse interface not loaded \n");
Error(9999);
return;
}
#endif
|
