scilab/modules/scicos/macros/scicos_scicos/scicos_sim.sci

   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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  18 //
  19 // See the file ../license.txt
  20 //
  21
  22 function sim=scicos_sim(v1,v2,v3,v4,v5,..
  23     v6,v7,v8,v9,v10,..
  24     v11,v12,v13,v14,v15,..
  25     v16,v17,v18,v19,v20,..
  26     v21,v22,v23,v24,v25,..
  27     v26,v27,v28,v29,v30,..
  28     v31,v32,v33,v34,v35,..
  29     v36,v37,v38,v39,v40)
  30     if exists("funs","local")==0 then funs=[],end
  31     if exists("xptr","local")==0 then xptr=[],end
  32     if exists("zptr","local")==0 then zptr=[],end
  33     if exists("ozptr","local")==0 then ozptr=[],end
  34     if exists("zcptr","local")==0 then zcptr=[],end
  35     if exists("inpptr","local")==0 then inpptr=[],end
  36     if exists("outptr","local")==0 then outptr=[],end
  37     if exists("inplnk","local")==0 then inplnk=[],end
  38     if exists("outlnk","local")==0 then outlnk=[],end
  39     if exists("rpar","local")==0 then rpar=[],end
  40     if exists("rpptr","local")==0 then rpptr=[],end
  41     if exists("ipar","local")==0 then ipar=[],end
  42     if exists("ipptr","local")==0 then ipptr=[],end
  43     if exists("opar","local")==0 then opar=list(),end
  44     if exists("opptr","local")==0 then opptr=[],end
  45     if exists("clkptr","local")==0 then clkptr=[],end
  46     if exists("ordptr","local")==0 then ordptr=[],end
  47     if exists("execlk","local")==0 then execlk=[],end
  48     if exists("ordclk","local")==0 then ordclk=[],end
  49     if exists("cord","local")==0 then cord=[],end
  50     if exists("oord","local")==0 then oord=[],end
  51     if exists("zord","local")==0 then zord=[],end
  52     if exists("critev","local")==0 then critev=[],end
  53     if exists("nb","local")==0 then nb=[],end
  54     if exists("ztyp","local")==0 then ztyp=[],end
  55     if exists("nblk","local")==0 then nblk=[],end
  56     if exists("ndcblk","local")==0 then ndcblk=[],end
  57     if exists("subscr","local")==0 then subscr=[],end
  58     if exists("funtyp","local")==0 then funtyp=[],end
  59     if exists("iord","local")==0 then iord=[],end
  60     if exists("labels","local")==0 then labels=[],end
  61     if exists("modptr","local")==0 then modptr=[],end
  62     sim=tlist(["scs","funs","xptr","zptr","ozptr",..
  63     "zcptr","inpptr","outptr","inplnk","outlnk","rpar",..
  64     "rpptr","ipar","ipptr","opar","opptr",..
  65     "clkptr","ordptr","execlk","ordclk","cord","oord","zord",..
  66     "critev","nb","ztyp","nblk","ndcblk","subscr","funtyp",..
  67     "iord","labels","modptr"],..
  68     funs,xptr,zptr,ozptr,zcptr,inpptr,..
  69     outptr,inplnk,outlnk,rpar,rpptr,ipar,ipptr,..
  70     opar,opptr,clkptr,ordptr,..
  71     execlk,ordclk,cord,oord,zord,..
  72     critev,nb,ztyp,nblk,ndcblk,..
  73     subscr,funtyp,iord,labels,modptr)
  74 endfunction
  75