Remove references to MALLOC.lib + old useless Makefile.in
[scilab.git] / scilab / modules / call_scilab / examples / call_scilab / c / LabWindow / CallsciC.c
index d810872..267a055 100644 (file)
 /* Only For Windows */
 /*--------------------------------------------------------------------------*/
 #pragma comment(lib, "../../../../../../bin/libScilab.lib")
-#pragma comment(lib, "../../../../../../bin/MALLOC.lib")
 /*--------------------------------------------------------------------------*/
-#include <stdlib.h> 
-#include <stdio.h> 
+#include <stdlib.h>
+#include <stdio.h>
 #include <string.h>
-#include "CallScilab.h"
+#include "call_scilab.h"
 #include "stack-c.h"
 /*--------------------------------------------------------------------------*/
-/* See SCI/modules/core/includes/CallScilab.h */
+/* See SCI/modules/core/includes/call_scilab.h */
 /*--------------------------------------------------------------------------*/
 static int example1(void)
 {
-       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;
+    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 occurred 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;
 }
 /*--------------------------------------------------------------------------*/
 static int example2(void)
 {
-       int code=0;
-
-       char **JOBS = NULL;
-       const int SizeJOBS = 5;
-       int i=0;
-       int m = 0, n = 0;
-       double *cxtmp = NULL;
-
-       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[3],"+3;");
-    strcpy(JOBS[4],"C=A+B;"); /* C = 12 */
-
-       
-       for(i=0;i<SizeJOBS;i++)
-       {
-               printf("JOBS[%d] = %s\n",i,JOBS[i]);
-       }
-       
-       code=SendScilabJobs(JOBS,SizeJOBS);
-
-       if (code)
-       {
-               char lastjob[4096]; // bsiz in scilab 4096 max
-               if (GetLastJob(lastjob,4096))
-               {
-                       printf("Error %s\n",lastjob);
-               }
-       }
-       
-       m = 1; n = 1;
-       cxtmp = (double*)malloc((m*n)*sizeof(double));
-
-       ReadMatrix("C", &m, &n, cxtmp);
-
-       printf("Result :\n");
-       for(i=0;i<m*n;i++)
-       {
-               fprintf(stdout,"C[%d] = %5.2f\n",i,cxtmp[i]);
-       }
-
-       for (i=0;i<SizeJOBS;i++)
-       {
-               if (JOBS[i]) {free(JOBS[i]);JOBS[i]=NULL;}
-       }
-       return 1;
+    int code = 0;
+
+    char **JOBS = NULL;
+    const int SizeJOBS = 5;
+    int i = 0;
+    int m = 0, n = 0;
+    double *cxtmp = NULL;
+
+    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[3], "+3;");
+    strcpy(JOBS[4], "C=A+B;"); /* C = 12 */
+
+
+    for (i = 0; i < SizeJOBS; i++)
+    {
+        printf("JOBS[%d] = %s\n", i, JOBS[i]);
+    }
+
+    code = SendScilabJobs(JOBS, SizeJOBS);
+
+    if (code)
+    {
+        char lastjob[4096]; // bsiz in scilab 4096 max
+        if (GetLastJob(lastjob, 4096))
+        {
+            printf("Error %s\n", lastjob);
+        }
+    }
+
+    m = 1;
+    n = 1;
+    cxtmp = (double*)malloc((m * n) * sizeof(double));
+
+    ReadMatrix("C", &m, &n, cxtmp);
+
+    printf("Result :\n");
+    for (i = 0; i < m * n; i++)
+    {
+        fprintf(stdout, "C[%d] = %5.2f\n", i, cxtmp[i]);
+    }
+
+    for (i = 0; i < SizeJOBS; i++)
+    {
+        if (JOBS[i])
+        {
+            free(JOBS[i]);
+            JOBS[i] = NULL;
+        }
+    }
+    return 1;
 }
 /*--------------------------------------------------------------------------*/
 static int example3(void)
 {
-       SendScilabJob("plot3d();quit;");
-       printf("\nClose Graphical Windows to close this example.\n");
-       while( ScilabHaveAGraph() )
-       {
-               ScilabDoOneEvent();
-       }
-       return 1; 
+    SendScilabJob("plot3d();quit;");
+    printf("\nClose Graphical Windows to close this example.\n");
+    while ( ScilabHaveAGraph() )
+    {
+        ScilabDoOneEvent();
+    }
+    return 1;
 }
 /*--------------------------------------------------------------------------*/
 int main(void)
 /* int WINAPI WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,LPSTR szCmdLine, int iCmdShow) */
 {
-       if ( StartScilab(NULL,NULL,NULL) == FALSE ) printf("Error : StartScilab\n");
-       printf("\nexample 1\n");
-       example1();
-       printf("\npress return\n");
-       getchar();
-       
-       printf("\nexample 2\n");
-       example2();
-       printf("\npress return\n");
-       getchar();
-       
-       printf("\nexample 3\n");
-       example3();
-       printf("\npress return\n");
-       getchar();
-
-       
-       if ( TerminateScilab(NULL) == FALSE ) printf("Error : TerminateScilab\n");
-       return 0;
+    if ( StartScilab(NULL, NULL, NULL) == FALSE )
+    {
+        printf("Error : StartScilab\n");
+    }
+    printf("\nexample 1\n");
+    example1();
+    printf("\npress return\n");
+    getchar();
+
+    printf("\nexample 2\n");
+    example2();
+    printf("\npress return\n");
+    getchar();
+
+    printf("\nexample 3\n");
+    example3();
+    printf("\npress return\n");
+    getchar();
+
+
+    if ( TerminateScilab(NULL) == FALSE )
+    {
+        printf("Error : TerminateScilab\n");
+    }
+    return 0;
 }
 /*--------------------------------------------------------------------------*/