43 lines
777 B
OpenEdge ABL
43 lines
777 B
OpenEdge ABL
/* DLIST python iteration code, to allow standard iteration over DLIST */
|
|
|
|
%extend DLIST
|
|
{
|
|
%pythoncode
|
|
{
|
|
class DLISTIter:
|
|
def __init__(self,aList):
|
|
self.last = aList
|
|
|
|
def next(self):
|
|
|
|
item = self.last
|
|
try:
|
|
item = item.Get()
|
|
except:
|
|
pass
|
|
|
|
if item is None:
|
|
raise StopIteration
|
|
else:
|
|
ret = None
|
|
|
|
# first item in list has "Get" as a DLIST
|
|
try:
|
|
ret = self.last.Get()
|
|
except:
|
|
ret = self.last #next items just not..
|
|
|
|
self.last = self.last.Next()
|
|
|
|
# when the iterated object can be casted down in inheritance, just do it..
|
|
if 'Cast' in dir(ret):
|
|
ret = ret.Cast()
|
|
|
|
return ret
|
|
|
|
def __iter__(self):
|
|
return self.DLISTIter(self)
|
|
|
|
}
|
|
}
|