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
|
/* Copyright INRIA/ENPC */
#include <string.h>
#if defined(THINK_C)||defined(__MWERKS__)
#include "::graphics:Math.h"
#else
#include "../graphics/Math.h"
#endif
#define MAXDATA 5
static char *dataStrings[] = {
"$MANCHAPTERS",
"exec('SCI/scilab.star',-1);", /* start_up instructions file */
"exec('SCI/demos/alldems.dem');", /* demos instructions file */
#ifdef WIN32
"home/history.scilab", /* history file */
#else
"home/.history.scilab", /* history file */
#endif
"home/scilab.save", /* on crash save file */
"exec('SCI/scilab.quit',-1);quit;" /* exit instructions file */
};
/******************************************
* get string associated with iopt
******************************************/
void C2F(inffic)(integer *iopt, char *name, integer *nc)
{
*nc=strlen(dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
strcpy(name,dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
}
/******************************************
* just get string length
******************************************/
void C2F(infficl)(integer *iopt, integer *nc)
{
*nc=strlen(dataStrings[Max(Min(*iopt-1,MAXDATA),0)]);
}
/******************************************
* get string .....
******************************************/
char *get_sci_data_strings(int n)
{
return dataStrings[Max(Min(n,MAXDATA),0)];
}
|
