blob: ba9971d2f9b5257023e62ca2931b29bccef804a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
|
