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
|
/* Copyright INRIA/ENPC */
#ifndef MACHINE_H
#define MACHINE_H
/* Define for using dld for sunos */
#undef SUNOSDLD
/* Define if leading underscores */
#undef WLU
/* Define if trailing underscores */
#undef WTU
/* Define if use sharpsigns */
#undef USE_SHARP_SIGN
/* Define if have exp10 */
#undef HAVE_EXP10
/* Define if have getwd */
#undef HAVE_GETWD
/* Define if have sleep: used in graphics/periX11.c */
#undef HAVE_SLEEP
/* Define if have strerror: used in fileio/misc.c */
#undef HAVE_STRERROR
/* Define if have termcap library: used in os_specific/zzledt.c */
#undef HAVE_TERMCAP
/* Define if have usleep: used in graphics/periX11.c */
#undef HAVE_USLEEP
/* Define if have limits.h header: used in routines/default/scimem.c */
#undef HAVE_LIMITS_H
/* Define if have values.h header: used in routines/default/scimem.c */
#undef HAVE_VALUES_H
/* Define if have finite */
#undef HAVE_FINITE
/* Define if have and use TCL/TK */
#undef WITH_TK
/* Define if have and use PVM */
#undef WITH_PVM
/* Define if have and use ocaml */
#undef WITH_OCAML
/* Define if have and use GTK */
#undef WITH_GTK
/* Define if have and use READLINE */
#undef WITH_READLINE
/* Define if we use f95 GNUFORTRAN */
#undef G95_FORTRAN
/* CNAME(x,y) ==> xy **/
#if defined(USE_SHARP_SIGN)
#define CNAME(name1,name2) name1##name2
#else
#define CNAME(name1,name2) name1/**/name2
#endif
/* Define C2F and F2C entry point conversion */
#if defined(WTU)
#if defined(USE_SHARP_SIGN)
#define C2F(name) name##_
#define F2C(name) name##_
#else
#define C2F(name) name/**/_
#define F2C(name) name/**/_
#endif
#else
#define C2F(name) name
#define F2C(name) name
#endif
/* Define some functions */
#if !defined(HAVE_EXP10)
#define exp10(x) pow((double) 10.0,x)
#endif
#if !defined(HAVE_GETWD)
#define getwd(x) getcwd(x,1024) /* you must define char x[1024] */
#endif
/*
Define integer C type which must fit Fortran integer
For Scilab to work, the rule is:
size of Fortran double precision = 2 * size of Fortran integer
At the present time, we suppose:
size of Fortran integer = 4 bytes
size of Fortran double precision = 8 bytes
size of C int = 4 bytes
*/
typedef int integer;
/* params.h */
#ifdef __STDC__
#ifndef __PARAMS
#define __PARAMS(paramlist) paramlist
#endif
#ifndef _PARAMS
#define _PARAMS(paramlist) paramlist
#endif
#else
#ifndef __PARAMS
#define __PARAMS(paramlist) ()
#endif
#ifndef _PARAMS
#define _PARAMS(paramlist) ()
#endif
#endif
/** Intel Blas library on win32 */
#ifdef MKL
#include "MKL.h"
#endif
#endif /* MACHINE_H */
|
