blob: 0ee97016be55317c08629757525eec7829326a7c (
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
|
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
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
|
