CallsciC.c File Reference

#include <windows.h>
#include <math.h>
#include <stdio.h>
#include <string.h>
#include <conio.h>
#include "../../../../../../modules/core/includes/machine.h"
#include "../../../../../../modules/core/includes/stack-c.h"
#include "../../../../../../modules/core/includes/CallScilab.h"

Include dependency graph for CallsciC.c:

Go to the source code of this file.

Defines
#define	TRUE   1
#define	FALSE   0
Functions
static int	example1 (void)
static int	example2 (void)
static int	example3 (void)
int	main (void)

---

Define Documentation

#define FALSE   0

Definition at line 18 of file CallsciC.c.

#define TRUE   1

Definition at line 17 of file CallsciC.c.

---

Function Documentation

static int example1

(

void

)

[static]

Definition at line 22 of file CallsciC.c.

References A, b, free(), GetMatrixptr, i, lp, m, malloc(), mb, n, nb, NULL, ReadMatrix, SendScilabJob(), and WriteMatrix.

Referenced by main().

{
        static double A[]={1,2,3,4};  int mA=2,nA=2;
        static double b[]={4,5};  int mb=2,nb=1;


        /* Create Scilab matrices A and b */
        WriteMatrix("A", &mA, &nA, A);
        WriteMatrix("b", &mb, &nb, b);

        SendScilabJob("disp('A=');");
        SendScilabJob("disp(A);");
        SendScilabJob("disp('b=');");
        SendScilabJob("disp(b);");
        SendScilabJob("disp('x=A\\b');");

        if ( SendScilabJob("A,b,x=A\\b;") != 0) 
        {
                fprintf(stdout,"Error occured during scilab execution (SendScilabJob)\n");
        }
        else 
        {
                double *cxtmp=NULL;
                int m,n,lp,i;

                /* Get m and n */
                GetMatrixptr("x", &m, &n, &lp);

                cxtmp=(double*)malloc((m*n)*sizeof(double));

                ReadMatrix("x", &m, &n, cxtmp);

                for(i=0;i<m*n;i++)
                {
                        fprintf(stdout,"x[%d] = %5.2f\n",i,cxtmp[i]);
                }

                if (cxtmp) 
                {
                        free(cxtmp);
                        cxtmp=NULL;
                }
        }
        return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int example2

(

void

)

[static]

Definition at line 68 of file CallsciC.c.

References ScilabDoOneEvent(), ScilabHaveAGraph(), and SendScilabJob().

Referenced by main().

{
        SendScilabJob("plot3d();");
        printf("\nClose Graphical Windows to close this example.\n");
        while( ScilabHaveAGraph() )
        {
                ScilabDoOneEvent();
                Sleep(1);
        }
        return 1; 
}

Here is the call graph for this function:

Here is the caller graph for this function:

static int example3

(

void

)

[static]

Definition at line 80 of file CallsciC.c.

References code, free(), GetLastJob(), i, lastjob, malloc(), NULL, and SendScilabJobs().

Referenced by main().

{
        int code=0;

        char **JOBS=NULL;
        const int SizeJOBS=6;
        int i=0;

        JOBS=(char**)malloc(sizeof(char**)*SizeJOBS);

        for (i=0;i<SizeJOBS;i++)
        {
                JOBS[i]=(char*)malloc(sizeof(char*)*1024);
        }

        strcpy(JOBS[0],"A=1 ..");
        strcpy(JOBS[1],"+3;");
        strcpy(JOBS[2],"B = 8;");
        /* strcpy(JOBS[2],"b = V_NOT_EXIST;"); */
        strcpy(JOBS[3],"+3;");
        strcpy(JOBS[4],"disp('C=');");
        strcpy(JOBS[5],"C=A+B;disp(C);"); /* C = 12 */

        code=SendScilabJobs(JOBS,SizeJOBS);

        if (code)
        {
                char lastjob[4096]; // bsiz in scilab 4096 max
                if (GetLastJob(lastjob,4096))
                {
                        printf("Error %s\n",lastjob);
                }
        }

        for (i=0;i<SizeJOBS;i++)
        {
                if (JOBS[i]) {free(JOBS[i]);JOBS[i]=NULL;}
        }
        return 1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int main

(

void

)

Definition at line 121 of file CallsciC.c.

References example1(), example2(), example3(), FALSE, NULL, StartScilab(), and TerminateScilab().

{
        if ( StartScilab(NULL,NULL,NULL) == FALSE ) printf("Error : StartScilab \n");

        printf("\nexample 1\n");
        example1();
        system("pause");
        printf("\nexample 2\n");
        example2();
        system("pause");
        printf("\nexample 3\n");
        example3();
        system("pause");
        
        if ( TerminateScilab(NULL) == FALSE ) printf("Error : TerminateScilab \n");
        return 0;
}

Here is the call graph for this function:

---