Scicos Clean: Delete permutobj function.
[scilab.git] / scilab / modules / scicos_blocks / src / c / scoMisc.c
1 /*  Scicos
2 *
3 *  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
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., 675 Mass Ave, Cambridge, MA 02139, USA.
18 *
19 * See the file ./license.txt
20 */
21 /*--------------------------------------------------------------------------*/
22 /**
23    \file scoMisc.c
24    \author Benoit Bayol
25    \version 1.0
26    \date September 2006 - January 2007
27    \brief Source Code for Misc function (not only for the sco lib)
28 */
29 /*--------------------------------------------------------------------------*/
30 #include "scoBase.h"
31 #include "scoMisc.h"
32 #include "scoGetProperty.h"
33 #include "scoSetProperty.h"
34 #include "sciprint.h"
35 #include "HandleManagement.h"
36 #include "scicos.h"
37 #include "scicos_block4.h"
38 #include "localization.h"
39 /*--------------------------------------------------------------------------*/
40 void scoScopeError(ScopeMemory * pScopeMemory, int code_error)
41 {
42
43         scoGraphicalObject pScopeWindow;
44         scoInteger win_id;
45
46         switch(code_error)
47         {
48         case 0:
49                 sciprint(_("SCOPE ERROR : sciDrawObj cannot be performed, pShortDraw is NULL for unknown reason !\n Maybe you have destroyed the windows or any parent of curves\n"));
50                 break;
51         case 1:
52                 sciprint(_("SCOPE ERROR : Error during malloc - Check Memory\n"));
53                 break;
54         default:
55                 sciprint(_("SCOPE ERROR : Unknown code error !\n"));
56                 break;
57         }
58
59         pScopeWindow = scoGetPointerScopeWindow(pScopeMemory);
60         win_id = scoGetWindowID(pScopeMemory);
61         if (pScopeWindow != NULL )
62         {
63                 sciDeleteWindow(win_id );
64         }
65
66         set_block_error(-16);
67 }
68 /*--------------------------------------------------------------------------*/