← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to examples/interface-tour/intex6c.c

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
examples/interface-tour/intex6c.c
 
1
#include "stack-c.h"
 
2
 
 
3
extern int dblearrayc __PARAMS((double **a, int *m, int *n,int *err));
 
4
extern int intarrayc __PARAMS((int **a, int *m, int *n,int *err));
 
5
extern int crestrc __PARAMS((char **a, int *m,int *err));
 
6
 
 
7
int intex6c(fname)
 
8
  char* fname;
 
9
{ 
 
10
  char *l1;
 
11
  int *l2;
 
12
  double *l3;
 
13
 
 
14
  int m1,n1,m2,n2,m3,n3,ierr=0;
 
15
  int minlhs=1, minrhs=0, maxlhs=4, maxrhs=0;
 
16
 
 
17
  CheckRhs(minrhs,maxrhs) ;
 
18
  CheckLhs(minlhs,maxlhs) ;
 
19
 
 
20
  crestrc( &l1, &m1, &ierr);
 
21
  intarrayc( &l2, &m2, &n2, &ierr);
 
22
  dblearrayc( &l3, &m3, &n3, &ierr);
 
23
 
 
24
  if ( ierr > 0 ) 
 
25
    {
 
26
      Scierror(999,"%s: Internal error \r\n",fname);
 
27
      return 0;
 
28
    }
 
29
 
 
30
  n1=1;
 
31
  /* Creating variable #1 of type character and dimension m1 x n1 (m1=1) */
 
32
  CreateVarFromPtr( 1, "c", &m1, &n1, &l1);
 
33
  CreateVarFromPtr( 2, "i", &m2, &n2, &l2);
 
34
  CreateVarFromPtr( 3, "d", &m3, &n3, &l3);
 
35
 
 
36
  FreePtr(&l1);  FreePtr(&l2);   FreePtr(&l3);
 
37
 
 
38
  /* Returning 3 variables (#1, #2, #3) to Scilab  */
 
39
  LhsVar(1) = 1;
 
40
  LhsVar(2) = 2;
 
41
  LhsVar(3) = 3;
 
42
  return(0);
 
43
}