kb: по-возможности, называйте ваши биты

Александр Петросян (PAF) 22.11.2005 10:34 / 22.11.2005 10:40

#мы утверждаем, что этот объект можно читать
#если это не так, кидается exception
^object.allowed[READ]
...тут читаем что-то...

$RIGHTS[
   $.READ(1<<0)
   $.WRITE(1<<1)
   $.DELETE(1<<2)
]

#object.p
@allowed[right_name]
^if(!($rights & $RIGHTS.$right_name)){
   ^throw[access.denied;$right_name]
}