GPL + CeCILL Header change
[scilab.git] / scilab / modules / scicos / src / cpp / createblklist.hxx
1 /*  Scicos
2 *
3 *  Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
4 *  Copyright (C) DIGITEO - 2009 - Allan CORNET
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
19 *
20 * See the file ./license.txt
21 */
22 /*--------------------------------------------------------------------------*/
23 #ifndef __CREATEBLKLIST_HXX__
24 #define __CREATEBLKLIST_HXX__
25
26 #include "internal.hxx"
27
28 extern "C"
29 {
30 #include "scicos_block4.h"
31 }
32
33 /* createblklist : function to create a Typed List
34 *                 of a scicos_block structure
35 *                 at the top+1 postion of the stack
36 *
37 * needs/depends : var2sci, C2F(mklist), C2F(mtklist),
38 *                 vvtosci, itosci, string.h, C2F(scierr), str2sci
39 *
40 * input argument : Blocks :scicos_block  ptr on a scicos_block structure
41 *                  ierr : int ptr, an error flag
42 *                  flag_imp : if flag_imp>=0 then use
43 *                             import structure for x, xd and g.
44 *                             In this case flag_imp is the block number.
45 *                  kfun : the current indexe of the block in the compiled structure
46 *
47 * output argument : return 0 if failed, 1 else.
48 *
49 *
50 * 23/06/06, Alan : extracted from sciblk4 to be used
51 *                  in intgetscicosvars
52 *
53 * 26/06/06, Alan : Add flag_imp in input arguments.
54 *                  This is done to disable scilab crash with getscicosvars("blocks")
55 *                  because when calling at the beginning of the simulation, x, xd and
56 *                  g are not yet informed for all blocks with nx!=0 and ng!=0.
57 *                  (They are not yet called with callf in scicos.c)
58 *
59 * 09/02/07, Alan : Add kfun flag and oz/opar
60 *
61 */
62
63 types::InternalType* createblklist(const scicos_block* const Blocks, const int flag_imp, const int funtyp);
64
65 #endif /* __CREATEBLKLIST_HXX__ */
66 /*--------------------------------------------------------------------------*/
67