add new help pages and examples for CAPI
[scilab.git] / scilab / modules / core / examples / capi / print_list / print_list.c
1 #include <stack-c.h>
2 #include <sciprint.h>
3
4 int sci_print_list(char * fname)
5 {
6   int m_list_in, n_list_in, l_list_in;
7   int m_type,    n_type;
8   int m_var1,    n_var1,    l_var1;
9   int m_var2,    n_var2,    l_var2;
10   char ** LabelList = NULL;
11   
12   CheckRhs(1,1); // We accept only 1 parameter
13   
14   GetRhsVar(1,"m",&m_list_in,&n_list_in,&l_list_in); // Get a mlist
15   
16   // Get the type and the name of the variables (the first element of the mlist)
17   GetListRhsVar(1,1,"S",&m_type,&n_type,&LabelList);
18   
19   if (strcmp(LabelList[0],"mytype")!=0)
20     {
21       sciprint("error, you must ship a mlist or type mytype\n");
22       return 0;
23     }
24     
25   // Get the first variable (a string)
26   GetListRhsVar(1,2,"c",&m_var1,&n_var1,&l_var1);
27   sciprint("var1 = %s\n",cstk(l_var1));
28   
29   // Get the second variable (a double matrix)
30   GetListRhsVar(1,3,"d",&m_var2,&n_var2,&l_var2);
31   sciprint("var2 = [%f %f %f %f]\n",*stk(l_var2+0),
32                                     *stk(l_var2+1),
33                                     *stk(l_var2+2),
34                                     *stk(l_var2+3));
35     
36   return 0;
37 }