16 lines
406 B
Haskell
16 lines
406 B
Haskell
global G1
|
|
|
|
procedure main(arglist)
|
|
local ML1
|
|
static MS1
|
|
undeftest()
|
|
end
|
|
|
|
procedure undeftest(P1)
|
|
static S1
|
|
local L1,L2
|
|
every #write all local, parameter, static, and global variable names
|
|
write((localnames|paramnames|staticnames|globalnames)(¤t,0)) # ... visible in the current co-expression at this calling level (0)
|
|
return
|
|
end
|