Stop using some useless helpers.
[scilab.git] / scilab / modules / graphics / src / c / getHandleProperty / set_segs_color_property.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2004-2006 - INRIA - Fabrice Leray
4  * Copyright (C) 2006 - INRIA - Allan Cornet
5  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
6  * Copyright (C) 2011 - DIGITEO - Manuel Juliachs
7  *
8  * This file must be used under the terms of the CeCILL.
9  * This source file is licensed as described in the file COPYING, which
10  * you should have received as part of this distribution.  The terms
11  * are also available at
12  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
13  *
14  */
15
16 /*------------------------------------------------------------------------*/
17 /* file: set_segs_color_property.c                                        */
18 /* desc : function to modify in Scilab the segs_color field of            */
19 /*        a handle                                                        */
20 /*------------------------------------------------------------------------*/
21
22 #include "setHandleProperty.h"
23 #include "SetProperty.h"
24 #include "getPropertyAssignedValue.h"
25 #include "SetPropertyStatus.h"
26 #include "GetProperty.h"
27 #include "Scierror.h"
28 #include "localization.h"
29 #include "MALLOC.h"
30
31 #include "getGraphicObjectProperty.h"
32 #include "setGraphicObjectProperty.h"
33 #include "graphicObjectProperties.h"
34
35 /*------------------------------------------------------------------------*/
36 int set_segs_color_property(void* _pvCtx, char* pobjUID, size_t stackPointer, int valueType, int nbRow, int nbCol )
37 {
38     BOOL status = FALSE;
39     int iNbSegs = 0;
40     int* piNbSegs = &iNbSegs;
41     int* segsColors = NULL;
42
43     if ( !( valueType == sci_matrix ) )
44     {
45         Scierror(999, _("Wrong type for '%s' property: Real matrix expected.\n"), "segs_color");
46         return SET_PROPERTY_ERROR;
47     }
48
49     getGraphicObjectProperty(pobjUID, __GO_NUMBER_ARROWS__, jni_int, (void**)&piNbSegs);
50
51     if (piNbSegs == NULL)
52     {
53         Scierror(999, _("'%s' property does not exist for this handle.\n"), "segs_color");
54         return SET_PROPERTY_ERROR;
55     }
56
57     if (nbRow*nbCol != 1 && nbRow*nbCol != iNbSegs)
58     {
59         Scierror(999, _("Wrong size for '%s' property: %d or %d elements expected.\n"), "segs_color", 1, iNbSegs);
60         return SET_PROPERTY_ERROR;
61     }
62
63     if ( nbRow * nbCol == 1 )
64     {
65         int value = (int) getDoubleFromStack( stackPointer );
66
67         /* 1-element array which is internally duplicated */
68         status = setGraphicObjectProperty(pobjUID, __GO_SEGS_COLORS__, &value, jni_int_vector, 1);
69     }
70     else if ( nbRow * nbCol == iNbSegs )
71     {
72         segsColors = (int*) MALLOC(iNbSegs * sizeof(int));
73
74         if (segsColors == NULL)
75         {
76             Scierror(999, _("%s: No more memory.\n"), "set_segs_colors_property");
77             return SET_PROPERTY_ERROR;
78         }
79
80         copyDoubleVectorToIntFromStack( stackPointer, segsColors, iNbSegs);
81         status = setGraphicObjectProperty(pobjUID, __GO_SEGS_COLORS__, segsColors, jni_int_vector, iNbSegs);
82
83         FREE(segsColors);
84     }
85
86     if (status == TRUE)
87     {
88         return SET_PROPERTY_SUCCEED;
89     }
90     else
91     {
92         Scierror(999, _("'%s' property does not exist for this handle.\n"), "segs_colors");
93         return SET_PROPERTY_ERROR;
94     }
95
96     return SET_PROPERTY_SUCCEED;
97 }
98 /*------------------------------------------------------------------------*/