Переопределение метода foreach класса hash в пользовательском классе ...

sergei v.2 16.07 09:57 / 16.07 10:29

В методе foreach не видит $code. Пробовал и через $caller.$code - тоже самое.
При этом видит $kkk (и похоже это не $MAIN:kkk)
Вернее оно переменную $code видит и выводит "FFFFF", но в этой переменной не видит обращение к $kkk
А если в конструкторе сделать $result[$h], то новые методы класса не видит. А если не вернуть, то надо переопределять все методы класса hash. Начал с foreach И не получается :(

@foreach[key;value;code][kk;vv]
^self.H.foreach[$key;$value]{$kkk}[,]

@main[]

$oHash[^Hash::create[$.x[$.y[aaaa]] $.z[SSSS]]]

^json:string[$oHash]

!!! ^oHash.foreach[kkk;vvv]{$kkk FFFFF} !!!

@CLASS
Hash


###########################################################################
@create[h]
$self.H[$h]


@GET[sMode]
$result[^hash::create[$self.H]]


@GET_DEFAULT[sName]
$result[$self.H.$sName]


@foreach[key;value;code][kk;vv]
^self.H.foreach[$key;$value]{$code}[,]

---