[:!let modifier [expr {[:pinfo get -default 0 bundle call-protected]?"protected":""}]] [:!let prefix [expr {[[:get_owning_partof] pinfo get -default 0 bundle ismetaclass] ? "cls": "obj"}]] [:!let depr [expr {[:!get @deprecated]?"deprecated":""}]]
$prefix ${:name} ?value?
value : $spec
If provided, the
attribute ${:name} is set to value. If omitted, the current attribute
value is returned.
[:? {[$owning_attribute @spec] ne ""} {[$owning_attribute @spec]}]
$prefix
${:name} add
value
value
[:?objvar $owning_attribute @spec {
[:? {[$owning_attribute @spec] ne ""} { : [$owning_attribute @spec]}]
}]
obj
${:name} delete
value
value
[:?objvar $owning_attribute @spec {
[:? {[$owning_attribute @spec] ne ""} { : [$owning_attribute @spec]}]
}]