summaryrefslogtreecommitdiffstats
path: root/scilab/modules/symbolic/sci_gateway
diff options
context:
space:
mode:
authorAllan Cornet <allan.cornet@scilab.org>2006-10-15 19:21:50 +0000
committerAllan Cornet <allan.cornet@scilab.org>2006-10-15 19:21:50 +0000
commit7fea6087966e987dcde0061c1a45073c0fcbe3a1 (patch)
treec6bedd1cb3b7139ed1a17d49aff303482291fdde /scilab/modules/symbolic/sci_gateway
parent39cee4f2b78bb523f51403cb3ecf1010869cd4b3 (diff)
downloadscilab-7fea6087966e987dcde0061c1a45073c0fcbe3a1.zip
scilab-7fea6087966e987dcde0061c1a45073c0fcbe3a1.tar.gz
add size of string in fortran prototype functions
example : int C2F(intclearglobal) _PARAMS((char *fname,unsigned long fname_len)); requires for linux fortran
Diffstat (limited to 'scilab/modules/symbolic/sci_gateway')
-rw-r--r--scilab/modules/symbolic/sci_gateway/c/sci_addsubf.c6
-rw-r--r--scilab/modules/symbolic/sci_gateway/c/sci_ldivf.c4
-rw-r--r--scilab/modules/symbolic/sci_gateway/c/sci_mulf.c4
-rw-r--r--scilab/modules/symbolic/sci_gateway/c/sci_rdivf.c4
4 files changed, 9 insertions, 9 deletions
diff --git a/scilab/modules/symbolic/sci_gateway/c/sci_addsubf.c b/scilab/modules/symbolic/sci_gateway/c/sci_addsubf.c
index 9444e36..4554ab1 100644
--- a/scilab/modules/symbolic/sci_gateway/c/sci_addsubf.c
+++ b/scilab/modules/symbolic/sci_gateway/c/sci_addsubf.c
@@ -5,17 +5,17 @@
5#include "machine.h" 5#include "machine.h"
6#include "stack-c.h" 6#include "stack-c.h"
7/*-----------------------------------------------------------------------------------*/ 7/*-----------------------------------------------------------------------------------*/
8extern int C2F(sciaddfsubf) _PARAMS((char *fname)); 8extern int C2F(sciaddfsubf) _PARAMS((char *fname,unsigned long fname_len));
9/*-----------------------------------------------------------------------------------*/ 9/*-----------------------------------------------------------------------------------*/
10int C2F(sci_addf) _PARAMS((char *fname,unsigned long fname_len)) 10int C2F(sci_addf) _PARAMS((char *fname,unsigned long fname_len))
11{ 11{
12 C2F(sciaddfsubf)(fname); 12 C2F(sciaddfsubf)(fname,fname_len);
13 return 0; 13 return 0;
14} 14}
15/*-----------------------------------------------------------------------------------*/ 15/*-----------------------------------------------------------------------------------*/
16int C2F(sci_subf) _PARAMS((char *fname,unsigned long fname_len)) 16int C2F(sci_subf) _PARAMS((char *fname,unsigned long fname_len))
17{ 17{
18 C2F(sciaddfsubf)(fname); 18 C2F(sciaddfsubf)(fname,fname_len);
19 return 0; 19 return 0;
20} 20}
21/*-----------------------------------------------------------------------------------*/ 21/*-----------------------------------------------------------------------------------*/
diff --git a/scilab/modules/symbolic/sci_gateway/c/sci_ldivf.c b/scilab/modules/symbolic/sci_gateway/c/sci_ldivf.c
index 37a0866..0346071 100644
--- a/scilab/modules/symbolic/sci_gateway/c/sci_ldivf.c
+++ b/scilab/modules/symbolic/sci_gateway/c/sci_ldivf.c
@@ -5,11 +5,11 @@
5#include "machine.h" 5#include "machine.h"
6#include "stack-c.h" 6#include "stack-c.h"
7/*-----------------------------------------------------------------------------------*/ 7/*-----------------------------------------------------------------------------------*/
8extern int C2F(scildivf) _PARAMS((char *fname)); 8extern int C2F(scildivf) _PARAMS((char *fname,unsigned long fname_len));
9/*-----------------------------------------------------------------------------------*/ 9/*-----------------------------------------------------------------------------------*/
10int C2F(sci_ldivf) _PARAMS((char *fname,unsigned long fname_len)) 10int C2F(sci_ldivf) _PARAMS((char *fname,unsigned long fname_len))
11{ 11{
12 C2F(scildivf)(fname); 12 C2F(scildivf)(fname,fname_len);
13 return 0; 13 return 0;
14} 14}
15/*-----------------------------------------------------------------------------------*/ 15/*-----------------------------------------------------------------------------------*/
diff --git a/scilab/modules/symbolic/sci_gateway/c/sci_mulf.c b/scilab/modules/symbolic/sci_gateway/c/sci_mulf.c
index 97aa759..b121b39 100644
--- a/scilab/modules/symbolic/sci_gateway/c/sci_mulf.c
+++ b/scilab/modules/symbolic/sci_gateway/c/sci_mulf.c
@@ -5,11 +5,11 @@
5#include "machine.h" 5#include "machine.h"
6#include "stack-c.h" 6#include "stack-c.h"
7/*-----------------------------------------------------------------------------------*/ 7/*-----------------------------------------------------------------------------------*/
8extern int C2F(scimulf) _PARAMS((char *fname)); 8extern int C2F(scimulf) _PARAMS((char *fname,unsigned long fname_len));
9/*-----------------------------------------------------------------------------------*/ 9/*-----------------------------------------------------------------------------------*/
10int C2F(sci_mulf) _PARAMS((char *fname,unsigned long fname_len)) 10int C2F(sci_mulf) _PARAMS((char *fname,unsigned long fname_len))
11{ 11{
12 C2F(scimulf)(fname); 12 C2F(scimulf)(fname,fname_len);
13 return 0; 13 return 0;
14} 14}
15/*-----------------------------------------------------------------------------------*/ 15/*-----------------------------------------------------------------------------------*/
diff --git a/scilab/modules/symbolic/sci_gateway/c/sci_rdivf.c b/scilab/modules/symbolic/sci_gateway/c/sci_rdivf.c
index e8ab873..355149c 100644
--- a/scilab/modules/symbolic/sci_gateway/c/sci_rdivf.c
+++ b/scilab/modules/symbolic/sci_gateway/c/sci_rdivf.c
@@ -5,11 +5,11 @@
5#include "machine.h" 5#include "machine.h"
6#include "stack-c.h" 6#include "stack-c.h"
7/*-----------------------------------------------------------------------------------*/ 7/*-----------------------------------------------------------------------------------*/
8extern int C2F(scirdivf) _PARAMS((char *fname)); 8extern int C2F(scirdivf) _PARAMS((char *fname,unsigned long fname_len));
9/*-----------------------------------------------------------------------------------*/ 9/*-----------------------------------------------------------------------------------*/
10int C2F(sci_rdivf) _PARAMS((char *fname,unsigned long fname_len)) 10int C2F(sci_rdivf) _PARAMS((char *fname,unsigned long fname_len))
11{ 11{
12 C2F(scirdivf)(fname); 12 C2F(scirdivf)(fname,fname_len);
13 return 0; 13 return 0;
14} 14}
15/*-----------------------------------------------------------------------------------*/ 15/*-----------------------------------------------------------------------------------*/