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
|
/* Copyright ENPC */
#ifdef WIN32
#include "wmen_scilab.h"
#else
#include "men_scilab.h"
#endif
#include "../os_specific/Os_specific.h"
#ifdef WIN32
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
#else
#include "../os_specific/sci_mem_alloc.h" /* MALLOC */
#endif
/****************************************************
* Scilab xgetfile command used to get a file name
* through a menu
* res is dynamically allocated in GetFileWindow
* and the routines which use xgetfile must
* clear the memory ( see xawelm.f )
* dirname is <<expanded>> using cluni0
**********************************************************/
#define MAX_PATH_STR 1024
void C2F(xgetfile)(char *filemask, char *dirname, char **res,
integer *ires, integer *ierr, integer *idir,
integer *desc, integer *ptrdesc, integer *nd)
{
static char dir_expanded[MAX_PATH_STR+1];
int flag=0,rep,out_n;
char *description;
*ierr=0;
ScilabMStr2C(desc,nd,ptrdesc,&description,ierr);
if ( *ierr == 1) return;
*ierr = 0;
if ( *idir == 1) flag =1 ;
C2F(cluni0)(dirname,dir_expanded,&out_n,strlen(dirname),MAX_PATH_STR);
rep = GetFileWindow(filemask,res,dir_expanded,flag,ierr,description);
FREE(description);
if ( *ierr >= 1 || rep == FALSE )
{
*ires = 0 ;
return;
}
else
{
*ires=strlen(*res);
}
}
|
