diff options
| author | siddhu8990 | 2017-04-19 14:57:49 +0530 |
|---|---|---|
| committer | siddhu8990 | 2017-04-19 14:57:49 +0530 |
| commit | 1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f (patch) | |
| tree | 34e52b33707a829c1d8484428c96d3f1f6ce2b3a /macros/ASTManagement/_cste_string.sci | |
| parent | 9e506f48291533cba7b4c555b0d2e98f234bfbe3 (diff) | |
| download | scilab2c-1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f.tar.gz scilab2c-1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f.tar.bz2 scilab2c-1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f.zip | |
Merged Shamik's work
Diffstat (limited to 'macros/ASTManagement/_cste_string.sci')
| -rw-r--r-- | macros/ASTManagement/_cste_string.sci | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/macros/ASTManagement/_cste_string.sci b/macros/ASTManagement/_cste_string.sci new file mode 100644 index 00000000..ba9971d2 --- /dev/null +++ b/macros/ASTManagement/_cste_string.sci @@ -0,0 +1,26 @@ +function txt=%cste_string(c) +//overloading function for "cste" type tlist string function +//this is a leaf of the AST +//fields: +// value : a number or a string +//NUT: added cste I also need "" for strings in order to be sure that the blanks are +//NUT: correctly considered and not mistaken with additional blanks present in the ast text file. + stringcvalue = string(c.value); + if (stringcvalue == "%T" | ... + stringcvalue == "%t" | ... + stringcvalue == "%F" | ... + stringcvalue == "%f" | ... + stringcvalue == "%nan" | ... + stringcvalue == "%inf" | ... + stringcvalue == "%e" | ... + stringcvalue == "%pi") + txt=['Number_x: '+stringcvalue]; + elseif (isnum(stringcvalue)) + //NUT needed to convert format 1D-14 into 1d-14 + txt=['Number_x: '+strsubst(stringcvalue,'D','e')]; + elseif (stringcvalue == "%i") + txt=['Number_X: '+stringcvalue]; + else + txt=['String: ""'+stringcvalue+'""']; + end +endfunction
\ No newline at end of file |