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
|
#include "../../routines/machine.h"
#include <malloc.h>
/*************************************************************
* Example of a dynamically allocated array of character created here.
* Its size is sent back as an output.
* It is converted into Scilab variable in the interface program.
* The allocated array is freed.
* the Scilab variable is of type stringmat and is not in the argument list of the scilab
* function. The Fortran type is Cstringv
*************************************************************/
C2F(ccalc6b)(a,m,n,err)
char ***a;
int *m,*n,*err;
{
int i,nstring;
*m=3;
*n=2;
nstring= (*m)*(*n);
*a =(char **) malloc((unsigned) (nstring * sizeof(char *)));
if ( *a ==0)
{
sciprint("No more space\r\n");
*err=1;
return;
}
for ( i=0 ; i< nstring ; i++)
{
(*a)[i] = (char *) malloc ((8)*sizeof(char));
sprintf((*a)[i],"char %d",i);
*err=0;
}
}
/*************************************************************
* This example shows how a Scilab argument of type stringmat
* (which is in the calling list of the Scilab function )
* is transmited to a C program.
* a is a stringmat Scilab argument and a Cstringv Fortran argument
* a is allocated in the interface
*************************************************************/
C2F(ccalc6a)(a,m,n)
char ***a;
int *m,*n;
{
int i,j;
for ( i = 0 ; i < *m*(*n) ; i++)
{
char *loc = (*a)[i];
for ( j = 0 ; j < strlen(loc); j++)
if ( loc[j] =='a' ) loc[j] ='o';
}
}
|
