вот так компилиться...

Larrikin 21.12.2005 13:36

не знаю пока насчет работает или нет...
и вообще как-то нет увернности, что по-уму сделано...

@atm_init[atm_id]

^rem{ *** достаем данные о текущем документе *** }
	$current_object[
	  $.id($atm_id)
	  $.parent_id($atm_id)
	  $.irf[0]
	]

^rem{ *** достаем данные о текущем треде *** }
	$thread[
		^table::create{id	parent	irf
$atm_id	$atm_id	0
}
	]

^rem{ *** $auth - объект класса auth *** }
^rem{ *** достаем назначения прав текущему пользователю на все объекты треда *** }
	$acl[^auth.getFullACL[$thread]]

^rem{ *** определяем права авторизированного пользователя на объект *** }
	$right(^auth.getRightsToObject[$current_object;$thread;$acl])

---