diff options
Diffstat (limited to 'js/Misc/fortran_block.js')
| -rw-r--r-- | js/Misc/fortran_block.js | 603 |
1 files changed, 65 insertions, 538 deletions
diff --git a/js/Misc/fortran_block.js b/js/Misc/fortran_block.js index 3494457d..f9949646 100644 --- a/js/Misc/fortran_block.js +++ b/js/Misc/fortran_block.js @@ -1,538 +1,65 @@ -LexToken(EOL,'\n',1,10) -LexToken(EOL,'\n',1,13) -LexToken(EOL,'\n',1,73) -LexToken(EOL,'\n',1,76) -LexToken(EOL,'\n',1,148) -LexToken(EOL,'\n',1,220) -LexToken(EOL,'\n',1,289) -LexToken(EOL,'\n',1,328) -LexToken(EOL,'\n',1,331) -LexToken(EOL,'\n',1,398) -LexToken(EOL,'\n',1,464) -LexToken(EOL,'\n',1,529) -LexToken(EOL,'\n',1,577) -LexToken(EOL,'\n',1,580) -LexToken(EOL,'\n',1,649) -LexToken(EOL,'\n',1,712) -LexToken(EOL,'\n',1,794) -LexToken(EOL,'\n',1,797) -LexToken(EOL,'\n',1,828) -LexToken(EOL,'\n',1,831) -LexToken(EOL,'\n',1,832) -LexToken(FUNCTION,'function',1,833) -LexToken(OPENSQBRACKET,'[',1,842) -LexToken(VAR,'x',1,843) -LexToken(COMMA,',',1,844) -LexToken(VAR,'y',1,845) -LexToken(COMMA,',',1,846) -LexToken(VAR,'typ',1,847) -LexToken(CLOSESQBRACKET,']',1,850) -LexToken(ASSIGNMENT,'=',1,851) -LexToken(VAR,'fortran_block',1,852) -LexToken(OPENBRACKET,'(',1,865) -LexToken(VAR,'job',1,866) -LexToken(COMMA,',',1,869) -LexToken(VAR,'arg1',1,870) -LexToken(COMMA,',',1,874) -LexToken(VAR,'arg2',1,875) -LexToken(CLOSEBRACKET,')',1,879) -LexToken(EOL,'\n',1,880) -LexToken(EOL,'\n',1,887) -LexToken(VAR,'x',1,892) -LexToken(ASSIGNMENT,'=',1,893) -LexToken(OPENSQBRACKET,'[',1,894) -LexToken(CLOSESQBRACKET,']',1,895) -LexToken(EOL,'\n',1,896) -LexToken(VAR,'y',1,902) -LexToken(ASSIGNMENT,'=',1,903) -LexToken(OPENSQBRACKET,'[',1,904) -LexToken(CLOSESQBRACKET,']',1,905) -LexToken(EOL,'\n',1,906) -LexToken(VAR,'typ',1,912) -LexToken(ASSIGNMENT,'=',1,915) -LexToken(OPENSQBRACKET,'[',1,916) -LexToken(CLOSESQBRACKET,']',1,917) -LexToken(EOL,'\n',1,918) -LexToken(SELECT,'select',1,924) -LexToken(VAR,'job',1,931) -LexToken(EOL,'\n',1,934) -LexToken(CASE,'case',1,939) -LexToken(DQSTRING,'"set"',1,948) -LexToken(THEN,'then',1,950) -LexToken(EOL,'\n',1,954) -LexToken(VAR,'x',1,963) -LexToken(ASSIGNMENT,'=',1,964) -LexToken(VAR,'arg1',1,965) -LexToken(EOL,'\n',1,969) -LexToken(VAR,'model',1,979) -LexToken(ASSIGNMENT,'=',1,984) -LexToken(VAR,'arg1',1,985) -LexToken(DOT,'.',1,989) -LexToken(VAR,'model',1,990) -LexToken(EOL,'\n',1,995) -LexToken(VAR,'graphics',1,1005) -LexToken(ASSIGNMENT,'=',1,1013) -LexToken(VAR,'arg1',1,1014) -LexToken(DOT,'.',1,1018) -LexToken(VAR,'graphics',1,1019) -LexToken(EOL,'\n',1,1027) -LexToken(VAR,'label',1,1037) -LexToken(ASSIGNMENT,'=',1,1042) -LexToken(VAR,'graphics',1,1043) -LexToken(DOT,'.',1,1051) -LexToken(VAR,'exprs',1,1052) -LexToken(EOL,'\n',1,1057) -LexToken(WHILE,'while',1,1067) -LexToken(PREVAR_BOOLEAN,'%t',1,1073) -LexToken(DO,'do',1,1076) -LexToken(EOL,'\n',1,1078) -LexToken(OPENSQBRACKET,'[',1,1091) -LexToken(VAR,'ok',1,1092) -LexToken(COMMA,',',1,1094) -LexToken(VAR,'i',1,1095) -LexToken(COMMA,',',1,1096) -LexToken(VAR,'o',1,1097) -LexToken(COMMA,',',1,1098) -LexToken(VAR,'rpar',1,1099) -LexToken(COMMA,',',1,1103) -LexToken(VAR,'funam',1,1104) -LexToken(COMMA,',',1,1109) -LexToken(VAR,'lab',1,1110) -LexToken(CLOSESQBRACKET,']',1,1113) -LexToken(ASSIGNMENT,'=',1,1114) -LexToken(SCICOS_GETVALUE,'scicos_getvalue',1,1130) -LexToken(OPENBRACKET,'(',1,1145) -LexToken(DQSTRING,'"Set fortran_block parameters"',1,1175) -LexToken(COMMA,',',1,1176) -LexToken(OPENSQBRACKET,'[',1,1192) -LexToken(DQSTRING,'"input ports sizes"',1,1211) -LexToken(SEMICOLON,';\n',1,1212) -LexToken(DQSTRING,'"output port sizes"',1,1244) -LexToken(SEMICOLON,';\n',1,1245) -LexToken(DQSTRING,'"System parameters vector"',1,1284) -LexToken(SEMICOLON,';\n',1,1285) -LexToken(DQSTRING,'"function name"',1,1313) -LexToken(CLOSESQBRACKET,']',1,1314) -LexToken(COMMA,',',1,1315) -LexToken(VAR,'list',1,1331) -LexToken(OPENBRACKET,'(',1,1335) -LexToken(DQSTRING,'"vec"',1,1340) -LexToken(COMMA,',',1,1341) -LexToken(ADDITION,'-',1,1342) -LexToken(NUMBER,'1',1,1343) -LexToken(COMMA,',',1,1344) -LexToken(DQSTRING,'"vec"',1,1349) -LexToken(COMMA,',',1,1350) -LexToken(ADDITION,'-',1,1351) -LexToken(NUMBER,'1',1,1352) -LexToken(COMMA,',',1,1353) -LexToken(DQSTRING,'"vec"',1,1358) -LexToken(COMMA,',',1,1359) -LexToken(ADDITION,'-',1,1360) -LexToken(NUMBER,'1',1,1361) -LexToken(COMMA,',',1,1362) -LexToken(DQSTRING,'"str"',1,1367) -LexToken(COMMA,',',1,1368) -LexToken(ADDITION,'-',1,1369) -LexToken(NUMBER,'1',1,1370) -LexToken(CLOSEBRACKET,')',1,1371) -LexToken(COMMA,',',1,1372) -LexToken(VAR,'label',1,1373) -LexToken(OPENBRACKET,'(',1,1378) -LexToken(NUMBER,'1',1,1379) -LexToken(CLOSEBRACKET,')',1,1380) -LexToken(CLOSEBRACKET,')',1,1381) -LexToken(EOL,'\n',1,1382) -LexToken(IF,'if',1,1395) -LexToken(NOT,'~',1,1398) -LexToken(VAR,'ok',1,1399) -LexToken(THEN,'then',1,1402) -LexToken(EOL,'\n',1,1406) -LexToken(BREAK,'break',1,1423) -LexToken(EOL,'\n',1,1428) -LexToken(END,'end',1,1442) -LexToken(EOL,'\n',1,1445) -LexToken(IF,'if',1,1458) -LexToken(VAR,'funam',1,1461) -LexToken(COMPARISON,'==',1,1466) -LexToken(DQSTRING,'" "',1,1470) -LexToken(THEN,'then',1,1472) -LexToken(EOL,'\n',1,1476) -LexToken(BREAK,'break',1,1493) -LexToken(EOL,'\n',1,1498) -LexToken(END,'end',1,1512) -LexToken(EOL,'\n',1,1515) -LexToken(VAR,'label',1,1528) -LexToken(OPENBRACKET,'(',1,1533) -LexToken(NUMBER,'1',1,1534) -LexToken(CLOSEBRACKET,')',1,1535) -LexToken(ASSIGNMENT,'=',1,1536) -LexToken(VAR,'lab',1,1537) -LexToken(EOL,'\n',1,1540) -LexToken(VAR,'rpar',1,1553) -LexToken(ASSIGNMENT,'=',1,1557) -LexToken(VAR,'rpar',1,1558) -LexToken(OPENBRACKET,'(',1,1562) -LexToken(COLON,':',1,1563) -LexToken(CLOSEBRACKET,')',1,1564) -LexToken(EOL,'\n',1,1565) -LexToken(VAR,'i',1,1578) -LexToken(ASSIGNMENT,'=',1,1579) -LexToken(VAR,'int',1,1580) -LexToken(OPENBRACKET,'(',1,1583) -LexToken(VAR,'i',1,1584) -LexToken(OPENBRACKET,'(',1,1585) -LexToken(COLON,':',1,1586) -LexToken(CLOSEBRACKET,')',1,1587) -LexToken(CLOSEBRACKET,')',1,1588) -LexToken(EOL,'\n',1,1589) -LexToken(VAR,'ni',1,1603) -LexToken(ASSIGNMENT,'=',1,1605) -LexToken(VAR,'size',1,1606) -LexToken(OPENBRACKET,'(',1,1610) -LexToken(VAR,'i',1,1611) -LexToken(COMMA,',',1,1612) -LexToken(NUMBER,'1',1,1613) -LexToken(CLOSEBRACKET,')',1,1614) -LexToken(EOL,'\n',1,1615) -LexToken(VAR,'o',1,1629) -LexToken(ASSIGNMENT,'=',1,1630) -LexToken(VAR,'int',1,1631) -LexToken(OPENBRACKET,'(',1,1634) -LexToken(VAR,'o',1,1635) -LexToken(OPENBRACKET,'(',1,1636) -LexToken(COLON,':',1,1637) -LexToken(CLOSEBRACKET,')',1,1638) -LexToken(CLOSEBRACKET,')',1,1639) -LexToken(EOL,'\n',1,1640) -LexToken(VAR,'no',1,1654) -LexToken(ASSIGNMENT,'=',1,1656) -LexToken(VAR,'size',1,1657) -LexToken(OPENBRACKET,'(',1,1661) -LexToken(VAR,'o',1,1662) -LexToken(COMMA,',',1,1663) -LexToken(NUMBER,'1',1,1664) -LexToken(CLOSEBRACKET,')',1,1665) -LexToken(EOL,'\n',1,1666) -LexToken(VAR,'tt',1,1680) -LexToken(ASSIGNMENT,'=',1,1682) -LexToken(VAR,'label',1,1683) -LexToken(OPENBRACKET,'(',1,1688) -LexToken(NUMBER,'2',1,1689) -LexToken(CLOSEBRACKET,')',1,1690) -LexToken(EOL,'\n',1,1691) -LexToken(IF,'if',1,1705) -LexToken(VAR,'model',1,1708) -LexToken(DOT,'.',1,1713) -LexToken(VAR,'sim',1,1714) -LexToken(OPENBRACKET,'(',1,1717) -LexToken(NUMBER,'1',1,1718) -LexToken(CLOSEBRACKET,')',1,1719) -LexToken(COMPARISON,'<>',1,1720) -LexToken(VAR,'funam',1,1722) -LexToken(LOGICAL,'|',1,1727) -LexToken(VAR,'size',1,1728) -LexToken(OPENBRACKET,'(',1,1732) -LexToken(VAR,'model',1,1733) -LexToken(DOT,'.',1,1738) -LexToken(VAR,'in',1,1739) -LexToken(COMMA,',',1,1741) -LexToken(DQSTRING,'"*"',1,1744) -LexToken(CLOSEBRACKET,')',1,1745) -LexToken(COMPARISON,'<>',1,1746) -LexToken(VAR,'size',1,1748) -LexToken(OPENBRACKET,'(',1,1752) -LexToken(VAR,'i',1,1753) -LexToken(COMMA,',',1,1754) -LexToken(DQSTRING,'"*"',1,1757) -LexToken(CLOSEBRACKET,')',1,1758) -LexToken(LOGICAL,'|',1,1778) -LexToken(VAR,'size',1,1779) -LexToken(OPENBRACKET,'(',1,1783) -LexToken(VAR,'model',1,1784) -LexToken(DOT,'.',1,1789) -LexToken(VAR,'out',1,1790) -LexToken(COMMA,',',1,1793) -LexToken(DQSTRING,'"*"',1,1796) -LexToken(CLOSEBRACKET,')',1,1797) -LexToken(COMPARISON,'<>',1,1798) -LexToken(VAR,'size',1,1800) -LexToken(OPENBRACKET,'(',1,1804) -LexToken(VAR,'o',1,1805) -LexToken(COMMA,',',1,1806) -LexToken(DQSTRING,'"*"',1,1809) -LexToken(CLOSEBRACKET,')',1,1810) -LexToken(THEN,'then',1,1812) -LexToken(EOL,'\n',1,1816) -LexToken(VAR,'tt',1,1833) -LexToken(ASSIGNMENT,'=',1,1835) -LexToken(OPENSQBRACKET,'[',1,1836) -LexToken(CLOSESQBRACKET,']',1,1837) -LexToken(EOL,'\n',1,1838) -LexToken(END,'end',1,1851) -LexToken(EOL,'\n',1,1854) -LexToken(OPENSQBRACKET,'[',1,1867) -LexToken(VAR,'ok',1,1868) -LexToken(COMMA,',',1,1870) -LexToken(VAR,'tt',1,1871) -LexToken(CLOSESQBRACKET,']',1,1873) -LexToken(ASSIGNMENT,'=',1,1874) -LexToken(VAR,'FORTR',1,1875) -LexToken(OPENBRACKET,'(',1,1880) -LexToken(VAR,'funam',1,1881) -LexToken(COMMA,',',1,1886) -LexToken(VAR,'tt',1,1887) -LexToken(COMMA,',',1,1889) -LexToken(VAR,'i',1,1890) -LexToken(COMMA,',',1,1891) -LexToken(VAR,'o',1,1892) -LexToken(CLOSEBRACKET,')',1,1893) -LexToken(EOL,'\n',1,1894) -LexToken(IF,'if',1,1907) -LexToken(NOT,'~',1,1910) -LexToken(VAR,'ok',1,1911) -LexToken(THEN,'then',1,1914) -LexToken(EOL,'\n',1,1918) -LexToken(BREAK,'break',1,1935) -LexToken(EOL,'\n',1,1940) -LexToken(END,'end',1,1954) -LexToken(EOL,'\n',1,1957) -LexToken(OPENSQBRACKET,'[',1,1970) -LexToken(VAR,'model',1,1971) -LexToken(COMMA,',',1,1976) -LexToken(VAR,'graphics',1,1977) -LexToken(COMMA,',',1,1985) -LexToken(VAR,'ok',1,1986) -LexToken(CLOSESQBRACKET,']',1,1988) -LexToken(ASSIGNMENT,'=',1,1989) -LexToken(VAR,'check_io',1,1990) -LexToken(OPENBRACKET,'(',1,1998) -LexToken(VAR,'model',1,1999) -LexToken(COMMA,',',1,2004) -LexToken(VAR,'graphics',1,2005) -LexToken(COMMA,',',1,2013) -LexToken(VAR,'i',1,2014) -LexToken(COMMA,',',1,2015) -LexToken(VAR,'o',1,2016) -LexToken(COMMA,',',1,2017) -LexToken(OPENSQBRACKET,'[',1,2018) -LexToken(CLOSESQBRACKET,']',1,2019) -LexToken(COMMA,',',1,2020) -LexToken(OPENSQBRACKET,'[',1,2021) -LexToken(CLOSESQBRACKET,']',1,2022) -LexToken(CLOSEBRACKET,')',1,2023) -LexToken(EOL,'\n',1,2024) -LexToken(IF,'if',1,2037) -LexToken(VAR,'ok',1,2040) -LexToken(THEN,'then',1,2043) -LexToken(EOL,'\n',1,2047) -LexToken(VAR,'model',1,2064) -LexToken(DOT,'.',1,2069) -LexToken(VAR,'sim',1,2070) -LexToken(OPENBRACKET,'(',1,2073) -LexToken(NUMBER,'1',1,2074) -LexToken(CLOSEBRACKET,')',1,2075) -LexToken(ASSIGNMENT,'=',1,2076) -LexToken(VAR,'funam',1,2077) -LexToken(EOL,'\n',1,2082) -LexToken(VAR,'model',1,2099) -LexToken(DOT,'.',1,2104) -LexToken(VAR,'rpar',1,2105) -LexToken(ASSIGNMENT,'=',1,2109) -LexToken(VAR,'rpar',1,2110) -LexToken(EOL,'\n',1,2114) -LexToken(VAR,'label',1,2131) -LexToken(OPENBRACKET,'(',1,2136) -LexToken(NUMBER,'2',1,2137) -LexToken(CLOSEBRACKET,')',1,2138) -LexToken(ASSIGNMENT,'=',1,2139) -LexToken(VAR,'tt',1,2140) -LexToken(EOL,'\n',1,2142) -LexToken(VAR,'x',1,2159) -LexToken(DOT,'.',1,2160) -LexToken(VAR,'model',1,2161) -LexToken(ASSIGNMENT,'=',1,2166) -LexToken(VAR,'model',1,2167) -LexToken(EOL,'\n',1,2172) -LexToken(VAR,'graphics',1,2189) -LexToken(DOT,'.',1,2197) -LexToken(VAR,'exprs',1,2198) -LexToken(ASSIGNMENT,'=',1,2203) -LexToken(VAR,'label',1,2204) -LexToken(EOL,'\n',1,2209) -LexToken(VAR,'x',1,2226) -LexToken(DOT,'.',1,2227) -LexToken(VAR,'graphics',1,2228) -LexToken(ASSIGNMENT,'=',1,2236) -LexToken(VAR,'graphics',1,2237) -LexToken(EOL,'\n',1,2245) -LexToken(BREAK,'break',1,2262) -LexToken(EOL,'\n',1,2267) -LexToken(END,'end',1,2280) -LexToken(EOL,'\n',1,2283) -LexToken(END,'end',1,2292) -LexToken(EOL,'\n',1,2295) -LexToken(CASE,'case',1,2300) -LexToken(DQSTRING,'"define"',1,2312) -LexToken(THEN,'then',1,2314) -LexToken(EOL,'\n',1,2318) -LexToken(VAR,'model',1,2327) -LexToken(ASSIGNMENT,'=',1,2332) -LexToken(SCICOS_MODEL,'scicos_model',1,2333) -LexToken(OPENBRACKET,'(',1,2345) -LexToken(CLOSEBRACKET,')',1,2346) -LexToken(EOL,'\n',1,2347) -LexToken(VAR,'model',1,2356) -LexToken(DOT,'.',1,2361) -LexToken(VAR,'sim',1,2362) -LexToken(ASSIGNMENT,'=',1,2365) -LexToken(VAR,'list',1,2366) -LexToken(OPENBRACKET,'(',1,2370) -LexToken(DQSTRING,'" "',1,2373) -LexToken(COMMA,',',1,2374) -LexToken(NUMBER,'1001',1,2375) -LexToken(CLOSEBRACKET,')',1,2379) -LexToken(EOL,'\n',1,2380) -LexToken(VAR,'model',1,2389) -LexToken(DOT,'.',1,2394) -LexToken(VAR,'in',1,2395) -LexToken(ASSIGNMENT,'=',1,2397) -LexToken(NUMBER,'1',1,2398) -LexToken(EOL,'\n',1,2399) -LexToken(VAR,'model',1,2408) -LexToken(DOT,'.',1,2413) -LexToken(VAR,'out',1,2414) -LexToken(ASSIGNMENT,'=',1,2417) -LexToken(NUMBER,'1',1,2418) -LexToken(EOL,'\n',1,2419) -LexToken(VAR,'model',1,2428) -LexToken(DOT,'.',1,2433) -LexToken(VAR,'evtin',1,2434) -LexToken(ASSIGNMENT,'=',1,2439) -LexToken(OPENSQBRACKET,'[',1,2440) -LexToken(CLOSESQBRACKET,']',1,2441) -LexToken(EOL,'\n',1,2442) -LexToken(VAR,'model',1,2451) -LexToken(DOT,'.',1,2456) -LexToken(VAR,'evtout',1,2457) -LexToken(ASSIGNMENT,'=',1,2463) -LexToken(OPENSQBRACKET,'[',1,2464) -LexToken(CLOSESQBRACKET,']',1,2465) -LexToken(EOL,'\n',1,2466) -LexToken(VAR,'model',1,2475) -LexToken(DOT,'.',1,2480) -LexToken(VAR,'state',1,2481) -LexToken(ASSIGNMENT,'=',1,2486) -LexToken(OPENSQBRACKET,'[',1,2487) -LexToken(CLOSESQBRACKET,']',1,2488) -LexToken(EOL,'\n',1,2489) -LexToken(VAR,'model',1,2498) -LexToken(DOT,'.',1,2503) -LexToken(VAR,'dstate',1,2504) -LexToken(ASSIGNMENT,'=',1,2510) -LexToken(OPENSQBRACKET,'[',1,2511) -LexToken(CLOSESQBRACKET,']',1,2512) -LexToken(EOL,'\n',1,2513) -LexToken(VAR,'model',1,2522) -LexToken(DOT,'.',1,2527) -LexToken(VAR,'rpar',1,2528) -LexToken(ASSIGNMENT,'=',1,2532) -LexToken(OPENSQBRACKET,'[',1,2533) -LexToken(CLOSESQBRACKET,']',1,2534) -LexToken(EOL,'\n',1,2535) -LexToken(VAR,'model',1,2544) -LexToken(DOT,'.',1,2549) -LexToken(VAR,'ipar',1,2550) -LexToken(ASSIGNMENT,'=',1,2554) -LexToken(NUMBER,'0',1,2555) -LexToken(EOL,'\n',1,2556) -LexToken(VAR,'model',1,2565) -LexToken(DOT,'.',1,2570) -LexToken(VAR,'blocktype',1,2571) -LexToken(ASSIGNMENT,'=',1,2580) -LexToken(DQSTRING,'"c"',1,2583) -LexToken(EOL,'\n',1,2584) -LexToken(VAR,'model',1,2593) -LexToken(DOT,'.',1,2598) -LexToken(VAR,'firing',1,2599) -LexToken(ASSIGNMENT,'=',1,2605) -LexToken(OPENSQBRACKET,'[',1,2606) -LexToken(CLOSESQBRACKET,']',1,2607) -LexToken(EOL,'\n',1,2608) -LexToken(VAR,'model',1,2617) -LexToken(DOT,'.',1,2622) -LexToken(VAR,'dep_ut',1,2623) -LexToken(ASSIGNMENT,'=',1,2629) -LexToken(OPENSQBRACKET,'[',1,2630) -LexToken(PREVAR_BOOLEAN,'%t',1,2631) -LexToken(PREVAR_BOOLEAN,'%f',1,2634) -LexToken(CLOSESQBRACKET,']',1,2636) -LexToken(EOL,'\n',1,2637) -LexToken(VAR,'funam',1,2646) -LexToken(ASSIGNMENT,'=',1,2651) -LexToken(DQSTRING,'"forty"',1,2658) -LexToken(EOL,'\n',1,2659) -LexToken(VAR,'label',1,2668) -LexToken(ASSIGNMENT,'=',1,2673) -LexToken(VAR,'list',1,2674) -LexToken(OPENBRACKET,'(',1,2678) -LexToken(OPENSQBRACKET,'[',1,2679) -LexToken(VAR,'sci2exp',1,2680) -LexToken(OPENBRACKET,'(',1,2687) -LexToken(VAR,'model',1,2688) -LexToken(DOT,'.',1,2693) -LexToken(VAR,'in',1,2694) -LexToken(CLOSEBRACKET,')',1,2696) -LexToken(SEMICOLON,';',1,2697) -LexToken(VAR,'sci2exp',1,2698) -LexToken(OPENBRACKET,'(',1,2705) -LexToken(VAR,'model',1,2706) -LexToken(DOT,'.',1,2711) -LexToken(VAR,'out',1,2712) -LexToken(CLOSEBRACKET,')',1,2715) -LexToken(SEMICOLON,';',1,2716) -LexToken(VAR,'strcat',1,2728) -LexToken(OPENBRACKET,'(',1,2734) -LexToken(VAR,'sci2exp',1,2735) -LexToken(OPENBRACKET,'(',1,2742) -LexToken(VAR,'model',1,2743) -LexToken(DOT,'.',1,2748) -LexToken(VAR,'rpar',1,2749) -LexToken(CLOSEBRACKET,')',1,2753) -LexToken(CLOSEBRACKET,')',1,2754) -LexToken(SEMICOLON,';',1,2755) -LexToken(VAR,'funam',1,2756) -LexToken(CLOSESQBRACKET,']',1,2761) -LexToken(COMMA,',',1,2762) -LexToken(VAR,'list',1,2763) -LexToken(OPENBRACKET,'(',1,2767) -LexToken(OPENSQBRACKET,'[',1,2768) -LexToken(CLOSESQBRACKET,']',1,2769) -LexToken(CLOSEBRACKET,')',1,2770) -LexToken(CLOSEBRACKET,')',1,2771) -LexToken(EOL,'\n',1,2772) -LexToken(VAR,'gr_i',1,2781) -LexToken(ASSIGNMENT,'=',1,2785) -LexToken(OPENSQBRACKET,'[',1,2786) -LexToken(CLOSESQBRACKET,']',1,2787) -LexToken(EOL,'\n',1,2788) -LexToken(VAR,'x',1,2797) -LexToken(ASSIGNMENT,'=',1,2798) -LexToken(VAR,'standard_define',1,2799) -LexToken(OPENBRACKET,'(',1,2814) -LexToken(OPENSQBRACKET,'[',1,2815) -LexToken(NUMBER,'4',1,2816) -LexToken(NUMBER,'2',1,2818) -LexToken(CLOSESQBRACKET,']',1,2819) -LexToken(COMMA,',',1,2820) -LexToken(VAR,'model',1,2821) -LexToken(COMMA,',',1,2826) -LexToken(VAR,'label',1,2827) -LexToken(COMMA,',',1,2832) -LexToken(VAR,'gr_i',1,2833) -LexToken(CLOSEBRACKET,')',1,2837) -LexToken(EOL,'\n',1,2838) -LexToken(END,'end',1,2843) -LexToken(EOL,'\n',1,2846) -LexToken(ENDFUNCTION,'endfunction',1,2847) -LexToken(EOL,'\n',1,2858) +/* autogenerated from "macros/Misc/fortran_block.sci" */ +function fortran_block() { +fortran_block.prototype.get = function fortran_block() { +} +fortran_block.prototype.set = function fortran_block() { +x=arg1; +model=arg1.model; +graphics=arg1.graphics; +label=graphics.exprs; +while (true) { +[ok,i,o,rpar,funam,lab]=scicos_getvalue("Set fortran_block parameters",["input ports sizes","output port sizes","System parameters vector","function name"],list("vec",-1,"vec",-1,"vec",-1,"str",-1),label(1)); +if (!ok) { +break +} +if (funam==" ") { +break +} +label[1]=lab; +rpar=rpar.slice(); +i=int(i.slice()); +ni=size(i,1); +o=int(o.slice()); +no=size(o,1); +tt=label.slice(2-1); +if (model.sim(1)!=funam||size(model.in,"*")!=size(i,"*")||size(model.out,"*")!=size(o,"*")) { +tt=[]; +} +[ok,tt]=FORTR(funam,tt,i,o); +if (!ok) { +break +} +[model,graphics,ok]=check_io(model,graphics,i,o,[],[]); +if (ok) { +model.sim[1]=funam; +model.rpar=rpar; +label[2]=tt; +x.model=model; +graphics.exprs=label; +x.graphics=graphics; +break +} +} +} +fortran_block.prototype.define = function fortran_block() { +model=scicos_model(); +model.sim=list(" ",1001); +model.in=1; +model.out=1; +model.evtin=[]; +model.evtout=[]; +model.state=[]; +model.dstate=[]; +model.rpar=[]; +model.ipar=0; +model.blocktype="c"; +model.firing=[]; +model.dep_ut=[true,None]; +funam="forty"; +label=list([sci2exp(model.in),sci2exp(model.out),strcat(sci2exp(model.rpar)),funam],list([])); +gr_i=[]; +x=standard_define([4,2],model,label,gr_i); +} +fortran_block.prototype.details = function fortran_block() { +} +} |