summaryrefslogtreecommitdiff
path: root/2.3-1/macros/ASTManagement/_funcall_string.sci
blob: 7c0b0abf1a86f6f93aa587f306d3d951ede8e14a (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
function txt=%funcall_string(F)
//overloading function for "funcall" type tlist string function
//this is a node of the AST
//fields:
//    rhs  : a list
//    name : string, the name of the function
//    lhsnb: number, the number of function lhs
// Modified By: Ukasha Noor

if F.name <> 'disp'
txt=['Funcall  : '+F.name
     '  #lhs   : '+string(F.lhsnb)
     '  Rhs    : '
     '      '+objectlist2string(F.rhs)
     'EndFuncall'
    ]
else
txt=['Funcall  : '+F.name
     '  #lhs   : '+'0'
     '  Rhs    : '
     '      '+objectlist2string(F.rhs)
     'EndFuncall'
    ]
end
endfunction