25 lines
604 B
Plaintext
25 lines
604 B
Plaintext
USES Common/Converters;
|
|
USES Common/ModelDataRetreive;
|
|
USES Common/DAUtil;
|
|
USES Common/CommonUtil;
|
|
USES Common/StringUtil;
|
|
USES Common/CSharpUtil;
|
|
USES Common/std;
|
|
|
|
proc main()
|
|
setOutput( "protecteddi.info" );
|
|
PrintSingleCharAttributes();
|
|
end proc
|
|
|
|
proc PrintSingleCharAttributes()
|
|
loop (Instances -> MClass WHERE GetStereoType([MClass]) == "Entity")
|
|
out = CheckAttributes( [MClass] );
|
|
end loop
|
|
end proc
|
|
|
|
template CheckAttributes(MClass as ENTITY)
|
|
[if (GetBaseClassName([ENTITY], "") == "DictionaryItemBase" && IsProtectedDictionaryItem([ENTITY])=="True")]
|
|
[ENTITY.name]
|
|
[end if]
|
|
end template
|