Added support for single dimensional arrays.

Author: DaveAldon

Foreach.cls

@@ -1,35 +1,47 @@
 Class User.Foreach
- {
- // TODO: Add support for multi-dimensional arrays
+{
+// TODO: Add support for multi-dimensional arrays
 
- ClassMethod thing(pMes) as %Status {
- try {
- write "It worked!" _ pMes
- }
- catch(e) {
- write "thing error" _e.Name
- }
- return $$$OK
- }
+// Example of how to use the foreach functionality
+ClassMethod SampleMethod() as %Status {
+try {
+set message(1) = "Hey there"
+set message(2) = "Hey thereeee"
+do ..Foreach($this, "Action", .message)
+}
+catch(e) {
+write "SampleMethod error" _e.Name
+}
+return $$$OK
+}
 
- ClassMethod X() as %Status {
- try {
- set message = "Hey there"
- do ..Foreach($this, "thing", message)
- }
- catch(e) {
- write "X error" _e.Name
- }
- return $$$OK
- }
+// A method that is called on each iteration
+ClassMethod Action(pMes) as %Status {
+try {
+write pMes, !
+}
+catch(e) {
+write "Action error " _e.Name
+}
+return $$$OK
+}
 
- ClassMethod Foreach(pClass, pFunc, pVal) As %Status {
- try {
- do $CLASSMETHOD(pClass, pFunc, pVal)
- }
- catch (e) {
- write "Foreach error" _e.Name
- }
- return $$$OK
- }
+// Iteration over an object
+ClassMethod Foreach(pClass, pFunc, ByRef pVal) As %Status {
+try {
+ // Element position init
+ set tStruct=""
+ // Loop through the array
+ for {
+ set tStruct=$order(pVal(tStruct))
+ quit:tStruct=""
+ // Perform our action method on each element
+ do $CLASSMETHOD(pClass, pFunc, pVal(tStruct))
+}
+}
+catch (e) {
+write "Foreach error " _e.Name
+}
+return $$$OK
+}
 }