Introduce for each for global traversing

[evshvarov]

instead of:

set key="" for {
set key=$O(^array(key)) q:iter=""
// do something
}

introduce:

foreach key in ^array {
// do something
}

[rcemper]

do you look for something like this ?

define foreach(%key,%arr,%do) set %key=$o(%arr("")) for set %key=$o(%arr(%key)) quit:%key="" do %do

using it: a $$$foreach(key,^rcc(27),b) quit b zwrite @$zr,! quit

[evshvarov]

Looks as what I'm looking for. Ideally to have a zpm module with all these macro related to Global traversing

On Tue, Feb 16, 2021 at 1:29 PM rcemper notifications@github.com wrote:

do you look for something like this ?

define foreach(%key,%arr,%do) set %key=$o(%arr("")) for set

%key=$o(%arr(%key)) quit:%key="" do %do

using it: a $$$foreach(key,^rcc(27),b) quit b zwrite @$zr,! quit

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/intersystems-community/ideas-and-innovations/issues/32#issuecomment-779742986, or unsubscribe https://github.com/notifications/unsubscribe-auth/AAVHEP2Z3BPQY4UCULRZRGLS7JCJLANCNFSM4ITCKCJA .

[rcemper]

Just a minor adjustment:

define foreach(%key,%arr,%do) set %key="" for set

%key=$o(%arr(%key)) quit:%key="" do %do

I'm trying it just now also as ZFOREACH()  in %ZLANGF00. It my take some time.

Robert

Am 16.02.2021 um 12:11 schrieb Evgeny Shvarov:

Looks as what I'm looking for. Ideally to have a zpm module with all these macro related to Global traversing

On Tue, Feb 16, 2021 at 1:29 PM rcemper notifications@github.com wrote:

do you look for something like this ?

define foreach(%key,%arr,%do) set %key=$o(%arr("")) for set

%key=$o(%arr(%key)) quit:%key="" do %do

using it: a $$$foreach(key,^rcc(27),b) quit b zwrite @$zr,! quit

— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub

https://github.com/intersystems-community/ideas-and-innovations/issues/32#issuecomment-779742986, or unsubscribe

https://github.com/notifications/unsubscribe-auth/AAVHEP2Z3BPQY4UCULRZRGLS7JCJLANCNFSM4ITCKCJA .

— You are receiving this because you commented. Reply to this email directly, view it on GitHub https://github.com/intersystems-community/ideas-and-innovations/issues/32#issuecomment-779766908, or unsubscribe https://github.com/notifications/unsubscribe-auth/AHOKEJL2OR6DLY64DRRKXDLS7JHF3ANCNFSM4ITCKCJA.

[rcemper]

It's done. available in OEX+ZPM for COS and ISOS FOREACH for ObjectScript

[rcemper]

same as issue #31

[evshvarov]

Closing as it is done