Inline Template

begin template inline (className, refAttrName)

{

refClass = element (

select a.attrType

from MetaAttribute a

where a.attrName = $refAttrName

and a.classDefinedIn = $className; )

define localAttrs(cName) as

select c.localAttrList

from MetaClass c

where c.metaClassName = cName;

for all attrs in localAttrs(refClass)

add_attribute ($className, attrs.attrName,

attrs.attrType, attrs.attrValue);

define extents(cName) as

select c from cName c;

for all obj in extents($className):

for all Attr in localAttrs(refClass)

obj.set (obj.Attr, valueOf(obj.refAttrName.Attr))

delete_attribute ($className, $refAttrName);

delete_class($refClass);

}

end template

Previous slide

Next slide

Back to first slide

View graphic version