Все просто

G100m 13.10.2004 09:38 / 13.10.2004 09:40

... 
# хэш объектов
$OBJECTS[^hash::create[]]
...

@_objectInfo[param][object;objectCount;tmp]
^if(def $OBJECTS.[^param.objectID.int(0)]){
#	объект есть в кеше объектов
	$result[$OBJECTS.[$param.objectID]]
}{
#	извлечение объекта
	$object[^getObjects[$param]]

#	добавление в хэш объектов
	^if(def $object){
		$objectCount(^object.count[])
		^if($objectCount > 1){
			^object.menu{
#				хэш по id - result
				$tmp[$object.fields]
#				добавление в кэш
				$OBJECTS.[$tmp.id][$tmp]
			}
		}{
			$tmp[$object.fields]
			$OBJECTS.[$tmp.id][$tmp]
		}
		$result[$object]
	}{
		$result[]
	}
}
#end @objectInfo[]