summaryrefslogtreecommitdiff
path: root/2.3-1/macros/ASTManagement/%operatio_string.sci
blob: 2a3554dc88b96acc487fb560e1e73bc6d01587ca (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
27
28
29
30
31
32
function txt=%operatio_string(O)
//overloading function for "operation" type tlist string function
//this is a node of the AST
//fields:
//     operands: a list
//     operator: a string
<<<<<<< HEAD
if O.operator <> 'rc' & O.operator <> 'cc'
=======
>>>>>>> 9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0
  txt=['Operation'
       '   Operands:'
       '      '+objectlist2string(O.operands)
       '   Operator: '+O.operator
       'EndOperation'
      ]
<<<<<<< HEAD
elseif O.operator == 'rc'
  txt=['   Operands:'
       '      '+objectlist2string(O.operands)
       'Endrc'
      ]
elseif O.operator == 'cc'
  txt=['   Begin:'
       '      '+objectlist2string(O.operands)
       'Endcc'
      ]
end
endfunction
=======
endfunction
>>>>>>> 9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0