ForEach Macro

[Charles Pegge]

A very simple implementation of ForEach:

Code Select Expand

def ForEach
===========
scope
int i
for i=lbound(%1) to ubound(%1)
  %2
next
end scope
end def

'TEST
'====
int a[2]
ForEach a { a[i]=i }
ForEach a { print a[i] }
'ForEach obj { obj[i].id=i }