diff options
| author | siddhu8990 | 2016-05-27 11:50:04 +0530 |
|---|---|---|
| committer | siddhu8990 | 2016-05-27 11:50:04 +0530 |
| commit | 49003250e69e4e500742614888e47db789bbe451 (patch) | |
| tree | 44bdcb9f8a4989789bbab2e10cd43d114fb237b4 /2.3-1/macros/ASTManagement | |
| parent | 18587a5f0cf86d636ac23a5be567437cd822bbc2 (diff) | |
| download | Scilab2C-49003250e69e4e500742614888e47db789bbe451.tar.gz Scilab2C-49003250e69e4e500742614888e47db789bbe451.tar.bz2 Scilab2C-49003250e69e4e500742614888e47db789bbe451.zip | |
Support for basic ODE function added
Diffstat (limited to '2.3-1/macros/ASTManagement')
| -rw-r--r-- | 2.3-1/macros/ASTManagement/AST_HandleEndGenFun.bin | bin | 87244 -> 88688 bytes | |||
| -rw-r--r-- | 2.3-1/macros/ASTManagement/AST_HandleEndGenFun.sci | 23 |
2 files changed, 14 insertions, 9 deletions
diff --git a/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.bin b/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.bin Binary files differindex 27c8880b..414942c3 100644 --- a/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.bin +++ b/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.bin diff --git a/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.sci b/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.sci index b08ab398..41c4cb40 100644 --- a/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.sci +++ b/2.3-1/macros/ASTManagement/AST_HandleEndGenFun.sci @@ -197,14 +197,18 @@ global STACKDEDUG //as it is passed as string to C function. Also enter this function in conversion list also. if(ASTFunName == 'ode') if NInArg == 4 - InArg(4).Scope = 'String'; - ODEFunName = InArg(4).Name; + //InArg(4).Scope = 'String'; + ODEFunName = InArg(4).Name; + InArg(4).Name = 'odefn'+ InArg(4).Name + //To differentiate functions containing differential equations, + //'odefn' is added at the beginning of the function name. + SharedInfo.ODElist($+1) = InArg(4).Name; + //Add ode function in list. this will be used to add corresponding + //header file in main function. end end - [InArg,SharedInfo] = ST_GetInArgInfo(InArg,NInArg,FileInfo,SharedInfo); - if(ASTFunName == 'ode') - disp(InArg(4).Name); - end + [InArg,SharedInfo] = ST_GetInArgInfo(InArg,NInArg,FileInfo,SharedInfo,ASTFunName); + end // #RNU_RES_B @@ -361,11 +365,12 @@ global STACKDEDUG ODE_InArg(1) = InArg(3) ODE_InArg(2) = InArg(1) ODE_OutArg(1) = OutArg(1) - ODE_CFunName = C_GenerateFunName(ODEFunName,ODE_InArg,2,ODE_OutArg,1); - + ODE_CFunName = C_GenerateFunName('odefn'+ODEFunName,ODE_InArg,2,ODE_OutArg,1); + //Functions containing differential equations that are used with 'ode' + //function need to be handled differently. + [FunFound, FunType, FunSize, FunValue, FunFindLike, FunDimension] = ... ST_Get(InArg(4).Name,FileInfo.GlobalVarFileName); - disp(FunFound); //ST_Del(InArg(4).Name,FileInfo.GlobalVarFileName); //ST_Set(ODE_CFunName, FunType, FunSize, FunValue, FunFindLike, FunDimension); end |