Merge remote-tracking branch 'origin/master' into YaSp
[scilab.git] / scilab / modules / scicos / sci_gateway / c / sci_diffobjs.c
1 /*  Scicos
2 *
3 *  Copyright (C) INRIA - Allan CORNET
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13 * GNU General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18 *
19 * See the file ./license.txt
20 */
21
22 /*--------------------------------------------------------------------------*/
23 #include "gw_scicos.h"
24 #include "stack-c.h"
25 #include "MALLOC.h"
26 /*--------------------------------------------------------------------------*/
27 int sci_diffobjs(char *fname, unsigned long fname_len)
28 {
29 #if 0
30     int one = 1, l3 = 0, k = 0;
31     int size1 = 0;
32     int size2 = 0;
33     int *header1 = NULL;
34     int *header2 = NULL;
35
36     CheckRhs(2, 2);
37     CheckLhs(1, 1);
38
39     header1 = GetData(1);
40     header2 = GetData(2);
41
42     CreateVar(3, MATRIX_OF_DOUBLE_DATATYPE, &one, &one, &l3);
43
44     LhsVar(1) = 3;
45
46     size1 = 2 * (*Lstk(Top - Rhs + 2) - *Lstk(Top - Rhs + 1));
47     size2 = 2 * (*Lstk(Top - Rhs + 3) - *Lstk(Top - Rhs + 2));
48
49     if (size1 != size2)
50     {
51         *stk(l3) = 1;
52         PutLhsVar();
53         return 0;
54     }
55
56     for (k = 0; k < size1; k++)
57     {
58         if (header1[k] != header2[k])
59         {
60             *stk(l3) = 1;
61             PutLhsVar();
62             return 0;
63         }
64         *stk(l3) = 0;
65     }
66     PutLhsVar();
67 #endif
68     return 0;
69 }
70 /*--------------------------------------------------------------------------*/