Сегодня очередной раз допиливал свои скрипты и неожиданно понял, что наконец написал "язык", о котором "давно мечтал".
На котором "приятно" программировать.
Не нравится аксиоматика - меняем на лету.
Нужны тесты - делаем тесты.
Нужны предикаты - делаем предикаты.
Нужны примеси - вот тебе пожалуйста примеси.
Нужны контракты - вот тебе контракты.
Нужны прецеденты - пожалуйста прецеденты.
Нужен биндинг из UML - пожалуйста. Вот вам биндинг.
Всё на лету.
И всё в рамках минимальной аксиоматики. Из которой выводится любая другая аксиоматика.
Хочется дойти до отображения ТЗ на код.
Пример (из которого мало, что понятно):
https://bitbucket.org/lulinalex/mindstream/src/047093566707f5ea309c2d7ed46a45bafc96fe83/k2.script?at=EmbtTasks
На котором "приятно" программировать.
Не нравится аксиоматика - меняем на лету.
Нужны тесты - делаем тесты.
Нужны предикаты - делаем предикаты.
Нужны примеси - вот тебе пожалуйста примеси.
Нужны контракты - вот тебе контракты.
Нужны прецеденты - пожалуйста прецеденты.
Нужен биндинг из UML - пожалуйста. Вот вам биндинг.
Всё на лету.
И всё в рамках минимальной аксиоматики. Из которой выводится любая другая аксиоматика.
Хочется дойти до отображения ТЗ на код.
Пример (из которого мало, что понятно):
: WithTest
/*{ IMMEDIATE operator WordAliasByRef
^L IN aName
^ IN aCode
aCode DO aName |N Define
; // WordAliasByRef}*/
operator EVAL
^ IN aWhat
aWhat |^ DO
; // EVAL
VOID operator ASSURE
^ IN aCondition
^ IN aMessage
if NOT EVAL aCondition then
begin
VAR l_Msg
aMessage DO >>> l_Msg
if ( l_Msg IsArray ) then
( false l_Msg strings:Cat ASSERTS )
else
( false l_Msg ASSERTS )
end
; // ASSURE
VOID operator ASSURENOT
^ IN aCondition
^ IN aMessage
ASSURE
NOT EVAL aCondition
EVAL aMessage
; // ASSURENOT
^@ operator :::
^@ IN aSelf
^L IN aName
OBJECT VAR l_Self
aSelf |^ >>> l_Self
STRING VAR l_Name
aName |N >>> l_Name
OBJECT VAR l_Res
l_Self %% l_Name >>> l_Res
ASSURE NOT ( l_Res pop:object:IsNil ) [ 'Не найдено поле: ' l_Self |N '.' l_Name ]
l_Res >>> Result
; // :::
: A
: B
: C
'Hello' .
VAR Y
; // C
20 .
VAR Z
; // B
10 .
VAR X
; // A
A ::: X := 10
A ::: X .
A ::: B
//A ::: B := 10
A ::: B ::: C
A ::: B ::: C ::: Y := 1024
A ::: B ::: C ::: Y .
A ::: B ::: Z := 2048
A ::: B ::: Z .
A ::: B ::: Z .
//A ::: B ::: Z ::: abs
TRY
A ::: B ::: Z ::: abs
EXCEPT
for script:ExceptionStack .
END
:: A B ;
:: A B C ;
@ :: A B ; DO
@ :: A B C ; DO
( A ::: B ::: Z . )
@ ( A ::: B ::: Z ) DO .
WordAliasByRef theB @ :: A B ;
WordAliasByRef theC @ :: A B C ;
WordAliasByRef theZ @ ( A ::: B ::: Z )
theB
theC
theZ .
A ::: B ::: Z := 2048
A ::: B ::: Z .
theZ .
theB
theZ .
@SELF __DumpMembers
;
https://bitbucket.org/lulinalex/mindstream/src/047093566707f5ea309c2d7ed46a45bafc96fe83/k2.script?at=EmbtTasks
<<Library>> K2
%UID '4677E16A022A'
%DOCUMENTATION 'Библиотека описания и обработки структур тегов.'
%DEPENDS
U$ '4684F91300DD' /* Vcl */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
U$ '4E36644A0023' /* "Стандартные компоненты" */
; // %DEPENDS
%META
%upv "defines" 'k2Define.inc'
%upv "exec mode" 'concluded'
%upv "gui" false
%upv "is namespace" true
%upv "vendor" '/Garant'
; // %META
%TOBEINCLUDED
U$ '4684F91300DD' /* Vcl */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
U$ '4E36644A0023' /* "Стандартные компоненты" */
; // %TOBEINCLUDED
%CHILDREN
<<Interfaces>> k2Tags
%UID '47AC75550330'
%DOCUMENTATION 'Описание идентификаторов стандартных тегов и типов.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "is namespace" true
%upv "no hands" false
%upv "started" '05.05.1998 09:54'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%CHILDREN
<<Constants>> ExtTags
%UID '47AC759800AF'
%DOCUMENTATION 'вспомогательные тэги'
%META
%upv "spell names" false
; // %META
%ATTRIBUTES
<<Attribute>> k2_tiComplexBase
%UID '47AC75B1032A'
%DOCUMENTATION 'база для указания сложной сортировки.'
%VALUE 'High(Byte) + 1'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiComplexBase
; // %ATTRIBUTES
; // ExtTags
<<Enum>> Tk2TagID
%UID '47C69EBC00A8'
; // Tk2TagID
<<Range>> Tk2FontParam
%UID '47C68D850105'
%META
%upv "spell names" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47C69EBC00A8' /* Tk2TagID */
; // %INHERITS
%ATTRIBUTES
<<Attribute>> k2_tiName
%UID '47C68D980202'
%VALUE 'k2_tiName'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiName
<<Attribute>> k2_tiIndex
%UID '47C68DA70068'
%VALUE 'k2_tiIndex'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiIndex
; // %ATTRIBUTES
; // Tk2FontParam
; // %CHILDREN
; // k2Tags
<<Interfaces>> k2Const
%UID '47AC7B760263'
%DEPENDS
U$ '4678193C009C' /* l3Types */
U$ '47A1D4C201E8' /* l3Const */
; // %DEPENDS
%META
%upv "author" 'Люлин А.В.'
%upv "is namespace" true
%upv "no hands" true
%upv "started" '24.09.1998 12:09'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<Constants>> "Tag Consts"
%UID '47AC7BD90281'
%META
%upv "spell names" false
; // %META
%ATTRIBUTES
<<Attribute>> k2_TransparentValue
%UID '47AC7BED00B6'
%VALUE 'Pred(High(Long))'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_TransparentValue
<<Attribute>> k2_tiByIndex
%UID '47AC7BF501F2'
%VALUE 'Succ(l3_siNative)'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiByIndex
<<Attribute>> k2_tiSelfID
%UID '47AC7BFD0264'
%VALUE 'Succ(k2_tiByIndex)'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiSelfID
<<Attribute>> k2_tiVoid
%UID '47AC7C0401A0'
%VALUE 'k2_tiSelfID'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiVoid
<<Attribute>> k2_tiMask
%UID '47AC7C0E0306'
%VALUE 'Succ(k2_tiSelfID)'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiMask
<<Attribute>> k2_tiNative
%UID '484FE2A301FF'
%VALUE 'l3_siNative'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_tiNative
; // %ATTRIBUTES
; // "Tag Consts"
; // %CHILDREN
; // k2Const
<<EVD>> CoreTypes
%UID '52669BFC024E'
%DOCUMENTATION 'Совсем базовые типы'
%DEPENDS
U$ '473C3BEE0334' /* l3Canvas */
U$ '47913B47006E' /* l3CoreObjects */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<TagTable>> k2Core
%UID '52669C24032B'
%META
%upv "elements prefix" 'k2'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%CHILDREN
ABSTRACT <<Atom>> Object
%UID '4849290E0318'
%DOCUMENTATION 'Базовый класс'
%META
%upv "ID" 6
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
; // Object
ABSTRACT <<Atom>> SomeDataContainer
%UID '4A672F4F00E6'
%META
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4849290E0318' /* Object */
; // %INHERITS
; // SomeDataContainer
<<Tag>> String
%UID '48492AC1023B'
%DOCUMENTATION 'Строка'
%META
%upv "Defines CompareTagWithInt" false
%upv "Defines CompareTags" false
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A672F4F00E6' /* SomeDataContainer */
; // %INHERITS
%ATTRIBUTES
FINAL LINK <<Attribute>> Value
%UID '484D0C68034D'
%DOCUMENTATION 'Собственно строка.'
%TARGET U$ '48492AC1023B' /* String */
%META
%upv "HasAfterChangeTrigger" 'undefined'
%upv "HasBeforeChangeTrigger" false
%upv "HasStoredTrigger" false
%upv "NeedMarkModified" 'undefined'
%upv "ReadOnly" 'undefined'
%upv "stored" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Value
; // %ATTRIBUTES
; // String
ABSTRACT <<Atom>> Empty
%UID '5266A6750356'
%DOCUMENTATION 'Запрещённое значение'
%META
%upv "ID" 0
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
; // Empty
ABSTRACT <<Atom>> l3Base
%UID '4849291B033B'
%DOCUMENTATION 'Базовый класс с подсчетом ссылок'
%META
%upv "ID" 9
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4849290E0318' /* Object */
; // %INHERITS
; // l3Base
ABSTRACT <<Tag>> OList
%UID '48492AD90142'
%DOCUMENTATION 'Список объектов'
%META
%upv "Defines CompareTagWithInt" false
%upv "Defines CompareTags" false
%upv "ID" 30
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A672F4F00E6' /* SomeDataContainer */
; // %INHERITS
%ATTRIBUTES
FINAL LINK <<children>> "48493EC101A8"
%UID '48493EC101A8'
%DOCUMENTATION 'Дочерние элементы'
%TARGET U$ '4849291B033B' /* l3Base */
%META
%upv "Duplicates" 'Ignore'
%upv "HasAfterChangeTrigger" 'undefined'
%upv "HasBeforeChangeTrigger" false
%upv "HasStoreChildTrigger" false
%upv "HasStoredTrigger" false
%upv "NeedMarkModified" 'undefined'
%upv "ReadOnly" true
%upv "stored" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // 48493EC101A8
; // %ATTRIBUTES
; // OList
<<Atom>> Long
%UID '48492A0C00ED'
%DOCUMENTATION 'Целое число'
%META
%upv "ID" 1
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%INHERITS
U$ '3DBFFD7002C2' /* long */
; // %INHERITS
; // Long
ABSTRACT <<Atom>> Enum
%UID '48492A33037B'
%DOCUMENTATION 'Перечислимый тип'
%META
%upv "ID" 2
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '48492A0C00ED' /* Long */
; // %INHERITS
; // Enum
<<Atom>> Bool
%UID '48492A7A0255'
%DOCUMENTATION 'Логическое значение'
%META
%upv "ID" 3
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '3DBFFE100240' /* boolean */
U$ '48492A33037B' /* Enum */
; // %INHERITS
; // Bool
ABSTRACT <<Tag>> FontName
%UID '484CE9CE0107'
%DOCUMENTATION 'Гарнитура шрифта'
%META
%upv "Defines CompareTagWithInt" false
%upv "Defines CompareTags" false
%upv "ID" 35
%upv "IDIndex" 'SelfID'
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
%upv "need UC" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '48492AC1023B' /* String */
; // %INHERITS
%LINKS
<<uses>> "485798500367"
%UID '485798500367'
%TARGET U$ '484CE8BC01CC' /* l3FontManager */
; // 485798500367
; // %LINKS
; // FontName
ABSTRACT <<Atom>> IUnknown
%UID '484929A9018E'
%DOCUMENTATION 'Интерфейс'
%META
%upv "ID" 98
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%INHERITS
U$ '4242EBBB03B9' /* object */
; // %INHERITS
; // IUnknown
ABSTRACT <<Atom>> SetOf
%UID '540424E100E8'
%DOCUMENTATION 'Множество'
%META
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '48492A0C00ED' /* Long */
; // %INHERITS
; // SetOf
; // %CHILDREN
; // k2Core
<<TagImplementator>> TIObject
%UID '530340010116'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4849290E0318' /* Object */
; // %IMPLEMENTS
; // TIObject
; // %CHILDREN
; // CoreTypes
<<Interfaces>> k2Except
%UID '47AC80BD020B'
%DEPENDS
U$ '4787B0A8007B' /* l3Except */
; // %DEPENDS
%META
%upv "author" 'Люлин А.В.'
%upv "is namespace" true
%upv "no hands" true
%upv "started" '13.04.1998 10:17'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<Exception>> Ek2Error
%UID '47AC80FC028B'
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '4787B117012D' /* El3Error */
; // %INHERITS
; // Ek2Error
<<Exception>> Ek2Warning
%UID '47AC811000E2'
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '4787B12303D6' /* El3Warning */
; // %INHERITS
; // Ek2Warning
<<Exception>> Ek2NotFound
%UID '47AC812A0188'
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '4787B12F02DF' /* El3NotFound */
; // %INHERITS
; // Ek2NotFound
<<Exception>> Ek2CannotDefine
%UID '47AC81430383'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC80FC028B' /* Ek2Error */
; // %INHERITS
; // Ek2CannotDefine
<<Exception>> Ek2TypeAlreadyDefined
%UID '47AC81500249'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC81430383' /* Ek2CannotDefine */
; // %INHERITS
; // Ek2TypeAlreadyDefined
<<Exception>> Ek2PropertyAlreadyDefined
%UID '47AC8163010C'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC81430383' /* Ek2CannotDefine */
; // %INHERITS
; // Ek2PropertyAlreadyDefined
<<Exception>> Ek2CannotDefineType
%UID '47AC817401C1'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC81430383' /* Ek2CannotDefine */
; // %INHERITS
; // Ek2CannotDefineType
<<Exception>> Ek2ConversionError
%UID '47AC818702E5'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC80FC028B' /* Ek2Error */
; // %INHERITS
; // Ek2ConversionError
<<Exception>> Ek2CannotAddChild
%UID '47AC81B403B5'
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '4787B0FD0379' /* El3Exception */
; // %INHERITS
; // Ek2CannotAddChild
<<Exception>> Ek2InvalidChildType
%UID '47AC81CD0133'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC81B403B5' /* Ek2CannotAddChild */
; // %INHERITS
; // Ek2InvalidChildType
<<Exception>> Ek2ReadOnlyProperty
%UID '47AC81E002F2'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC811000E2' /* Ek2Warning */
; // %INHERITS
; // Ek2ReadOnlyProperty
<<Exception>> Ek2ReadOnly
%UID '555DC4A50375'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC811000E2' /* Ek2Warning */
; // %INHERITS
; // Ek2ReadOnly
<<Exception>> Ek2LimitReached
%UID '555DC5160076'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC811000E2' /* Ek2Warning */
; // %INHERITS
; // Ek2LimitReached
; // %CHILDREN
; // k2Except
<<Interfaces>> k2Strings
%UID '47AC830103E6'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "is namespace" true
%upv "no hands" false
%upv "started" '11.04.2006 20:13'
; // %META
%CHILDREN
<<Constants>> "Exception Messages"
%UID '47AC83780196'
%META
%upv "spell names" false
; // %META
%ATTRIBUTES
<<Attribute>> k2_errInterfaceNotImplemented
%UID '47AC838C026C'
%VALUE '''Interface %d for %s is not implemented'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errInterfaceNotImplemented
<<Attribute>> k2_errReadOnly
%UID '47AC839600C7'
%VALUE '''Нельзя присвоить значение ReadOnly свойству %s для %s.'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errReadOnly
<<Attribute>> k2_errNoChildren
%UID '47AC839F0037'
%VALUE '''Tag %s hasn''''t children (%s)'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errNoChildren
<<Attribute>> k2_errBadChild
%UID '47AC83A900B2'
%VALUE '''For %s child type %s incompartible with %s'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errBadChild
<<Attribute>> k2_errConvertError
%UID '47AC83B103DD'
%VALUE '''Cannot convert %s to %s'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errConvertError
<<Attribute>> k2_errAbstractMethod
%UID '47AC83BC029E'
%VALUE '''Abstract method ''''%s'''' call'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errAbstractMethod
<<Attribute>> k2_errPropExists
%UID '47AC83C3039E'
%VALUE '''Atom #%d for %s is already defined and named %s'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errPropExists
<<Attribute>> k2_errCannotInheriteType
%UID '47AC83CC0276'
%VALUE '''Cannot inherite type %s from %s'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errCannotInheriteType
<<Attribute>> k2_errTypeAlreadyDefined
%UID '47AC83D40230'
%VALUE '''Type %s already defined'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errTypeAlreadyDefined
<<Attribute>> k2_errDocumentHeaderMissing
%UID '47AC83FB0036'
%VALUE '''Поток не открыт. Возможно отсутствует заголовок документа.'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errDocumentHeaderMissing
<<Attribute>> k2_errInvalidType
%UID '47AC840303C9'
%VALUE '''Недопустимый тип.'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errInvalidType
<<Attribute>> k2_errBadSkipLevel
%UID '47AC840B01A6'
%VALUE '''Лишнее закрытие режима фильтрации тегов (несбалансированные вызовы IncSkipTags/DecSkipTags)'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errBadSkipLevel
<<Attribute>> k2_errBadFinishCall
%UID '47AC841500E1'
%VALUE '''Вызовов Finish больше чем вызовов Start'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errBadFinishCall
<<Attribute>> k2_errParamNotDefined
%UID '47AC841B0307'
%VALUE '''Param %s for %s is not defined'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errParamNotDefined
<<Attribute>> k2_errBracketsNotClosed
%UID '47AC84220156'
%VALUE '''Не закрыто %d скобок в %s'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // k2_errBracketsNotClosed
; // %ATTRIBUTES
; // "Exception Messages"
; // %CHILDREN
; // k2Strings
<<Unit>> TagAttributes
%UID '53A963DD0356'
%DEPENDS
U$ '4767743E00E5' /* TypInfo */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47AC75550330' /* k2Tags */
U$ '4AB0C3C60310' /* Sys */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2Attributes
%UID '53A963F700CD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "singleton" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
U$ '4B223ADC02BF' /* l3RecordListPrim */
; // %INHERITS
%REALIZES
U$ '47B07CF403D0' /* IsSameItems */
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%OVERRIDES
U$ '47A042E100E2' /* InitFields */
; // %OVERRIDES
%LINKS
<<uses>> "53A9642F03D3"
%UID '53A9642F03D3'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 53A9642F03D3
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '53A9649C02F2'
%TARGET U$ '53A9648F013C' /* Tk2Attribute */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
PRIVATE <<Attribute>> f_IDDelta
%UID '53A991C10230'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_IDDelta
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> IDByName
%UID '53A9843302D9'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53A984650030'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aName
%UID '53A9868D0396'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aName
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // IDByName
FINAL <<method>> NameByID
%UID '53A9847000CA'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53A9847B0118'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anID
%UID '53A986960031'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anID
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // NameByID
FINAL <<method>> CheckIDByName
%UID '53A991E60226'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53A991FB03DB'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aName
%UID '53A992070373'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aName
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CheckIDByName
SUMMONED FINAL <<static>> Exists
%UID '5B05A103F26F'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
%CHILDREN
<<StaticObject>> Tk2Attribute
%UID '53A9648F013C'
%META
%upv "not treat as record for XE4" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%LINKS
<<uses>> "53A96C4300C4"
%UID '53A96C4300C4'
%TARGET U$ '4767748503B5' /* TTypeInfo */
; // 53A96C4300C4
; // %LINKS
%ATTRIBUTES
FINAL <<Attribute>> rName
%UID '53A964EE0021'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rName
FINAL <<Attribute>> rID
%UID '53A964F901E1'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rID
FINAL <<Attribute>> rIsAlias
%UID '53A994DD017A'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rIsAlias
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> Compare
%UID '53A965100324'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53A9651B03B7'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOther
%UID '53A965260151'
%TARGET U$ '53A9648F013C' /* Tk2Attribute */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOther
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Compare
FINAL <<Constructor>> C$53A9654E0056
%UID '53A9654E0056'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$53A965580368
%UID '53A965580368'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagID
%UID '53A9656002E8'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aTagID
; // %PARAMETERS
; // DoIt$53A965580368
; // %OPERATIONS
; // C$53A9654E0056
FINAL <<Constructor>> C$1$53A96C5502B0
%UID '53A96C5502B0'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$53A96C600072
%UID '53A96C600072'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagID
%UID '53A96C6900F4'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aTagID
<<in>> anAlias
%UID '53A96C69011B'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anAlias
; // %PARAMETERS
; // DoIt$53A96C600072
; // %OPERATIONS
; // C$1$53A96C5502B0
FINAL <<Constructor>> ForFind
%UID '53A988CC00D2'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53A988D603D4'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aName
%UID '53A988DE02D0'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aName
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // ForFind
FINAL <<Constructor>> New
%UID '53A99219013B'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53A99226005B'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anID
%UID '53A99233001F'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anID
<<in>> aName
%UID '53A99233003A'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aName
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // New
; // %OPERATIONS
; // Tk2Attribute
; // %CHILDREN
; // Tk2Attributes
; // %CHILDREN
; // TagAttributes
<<Unit>> k2Core
%UID '4A4DE16302A2'
%DOCUMENTATION 'Ну просто самые базовые объекты библиотеки'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '4767743E00E5' /* TypInfo */
U$ '478CF8070260' /* l3IID */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47AC75550330' /* k2Tags */
U$ '47AC7B760263' /* k2Const */
U$ '4A6D65B9022A' /* Containers */
U$ '4AB0997B00A2' /* Common */
U$ '4AB0C3C60310' /* Sys */
U$ '52669BFC024E' /* CoreTypes */
U$ '5326D70401F3' /* l3Variants */
U$ '53A963DD0356' /* TagAttributes */
U$ '54B90AC6014B' /* StringUtils */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2PropertyArray
%UID '53AABF30022F'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4B86890E0307' /* l3OpenArray */
; // %IMPLEMENTS
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '53AABFA60396'
%TARGET U$ '5331A06F028A' /* Tl3VariantDef */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> l3Items_NoSort
%UID '53AAC0110237'
; // l3Items_NoSort
; // %CHILDREN
; // Tk2PropertyArray
FINAL <<UtilityPack>> k2BaseHack
%UID '4A5341AA0315'
%DOCUMENTATION 'Хак для разрешения циклических ссылок'
%META
%upv "finished" false
%upv "no hands" false
; // %META
%CHILDREN
<<SimpleClass>> Tk2ChildrenProperty
%UID '4A5341CF028F'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
; // Tk2ChildrenProperty
; // %CHILDREN
; // k2BaseHack
FINAL <<UtilityPack>> k2Prim
%UID '4A4DE48C0344'
%META
%upv "author" 'Люлин А.В.'
%upv "no hands" true
%upv "started" '03.07.2009 14:59'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
ABSTRACT <<SimpleClass>> Tk2TypeTablePrim
%UID '4A4E1F7A029F'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '03.07.2009 19:11'
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '49E7754802A9' /* Tl3ProtoObject */
; // %INHERITS
%LINKS
<<uses>> "53C7DA1C02DB"
%UID '53C7DA1C02DB'
%TARGET U$ '53C7D8AB0282' /* Tk2TypeTableCreatedListeners */
; // 53C7DA1C02DB
; // %LINKS
%OPERATIONS
<<virtualmethod>> AddCreatedListener
%UID '53C7DA31003C'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53C7DA590042'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aListener
%UID '53C7DA68010A'
%TARGET U$ '47881B22005A' /* TNotifyEvent */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aListener
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // AddCreatedListener
; // %OPERATIONS
; // Tk2TypeTablePrim
// Необходимые forward определения
// Tk2TypePrim 4A4DE5000202
// Tk2CustomPropertyPrim 4A4DE5850182
ABSTRACT <<SimpleClass>> Tk2Base
%UID '4A4DE0BF039E'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '03.07.2009 14:43'
; // %META
%FORWARDS
U$ '4A4DE5000202' /* Tk2TypePrim */
U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
; // %FORWARDS
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '5331A06F028A' /* Tl3VariantDef */
; // %INHERITS
%ATTRIBUTES
ABSTRACT LINK <<readonly>> TagType
%UID '4A4DE5340236'
%TARGET U$ '4A4DE5000202' /* Tk2TypePrim */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // TagType
LINK <<readonly>> AsProp
%UID '4A4DE5AF036A'
%TARGET U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // AsProp
; // %ATTRIBUTES
; // Tk2Base
ABSTRACT <<SimpleClass>> Tk2TypePrimPrim
%UID '4FFEF43201C7'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE0BF039E' /* Tk2Base */
; // %INHERITS
%REALIZES
U$ '4A4DE5340236' /* TagType */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '533129DC037C' /* GetIsKindOfPrim */
; // %OVERRIDES
%LINKS
<<uses>> "52601998019B"
%UID '52601998019B'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 52601998019B
<<uses>> "5266A6B103C9"
%UID '5266A6B103C9'
%TARGET U$ '5266A6750356' /* Empty */
; // 5266A6B103C9
; // %LINKS
%ATTRIBUTES
<<readonly>> ID
%UID '4A4E17910389'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // ID
PRIVATE <<Attribute>> f_IsParents
%UID '4A4E1D8E004C'
%TARGET U$ '4A4E1D7C01DB' /* Tk2TypeIDs */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_IsParents
PRIVATE <<Attribute>> f_IsNotParents
%UID '4A4E1D9F0381'
%TARGET U$ '4A4E1D7C01DB' /* Tk2TypeIDs */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_IsNotParents
PROTECTED <<Attribute>> f_IsOrd
%UID '4A5335E200E5'
%TARGET U$ '491BF08F035F' /* Tl3Bool */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_IsOrd
FINAL <<property>> AtomType
%UID '4A533DF0031C'
%TARGET U$ '4767749802D1' /* PTypeInfo */
%META
%upv "needs field" false
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // AtomType
PROTECTED FINAL <<property>> DisabledChildTypeIDs
%UID '4C177F23037E'
%DOCUMENTATION 'Типы запрещённых детей'
%TARGET U$ '4A4E1D7C01DB' /* Tk2TypeIDs */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // DisabledChildTypeIDs
FINAL <<property>> FormatInfoFactory
%UID '4E7074080099'
%DOCUMENTATION 'Фабрика для изотовления информации о форматировании'
%TARGET U$ '476775CB036A' /* TClass */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // FormatInfoFactory
LINK <<property>> TypeTable
%UID '4FFEF74A0141'
%TARGET U$ '4A4E1F7A029F' /* Tk2TypeTablePrim */
%META
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // TypeTable
SUMMONED PRIVATE <<Attribute>> f_ID
%UID 'B8BEFDD24070'
%DOCUMENTATION 'Поле для свойства ID'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_ID
SUMMONED PRIVATE <<Attribute>> f_AtomType
%UID 'A8A7A09B21B7'
%DOCUMENTATION 'Поле для свойства AtomType'
%TARGET U$ '4767749802D1' /* PTypeInfo */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_AtomType
SUMMONED PRIVATE <<Attribute>> f_DisabledChildTypeIDs
%UID '9B04698A01C7'
%DOCUMENTATION 'Поле для свойства DisabledChildTypeIDs'
%TARGET U$ '4A4E1D7C01DB' /* Tk2TypeIDs */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_DisabledChildTypeIDs
SUMMONED PRIVATE <<Attribute>> f_FormatInfoFactory
%UID 'FD75FB83D9B5'
%DOCUMENTATION 'Поле для свойства FormatInfoFactory'
%TARGET U$ '476775CB036A' /* TClass */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_FormatInfoFactory
SUMMONED PRIVATE LINK <<Attribute>> f_TypeTable
%UID 'CDC72412587B'
%DOCUMENTATION 'Поле для свойства TypeTable'
%TARGET U$ '4A4E1F7A029F' /* Tk2TypeTablePrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_TypeTable
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> IsDisabledChildTypeID
%UID '4C177E9D0375'
%DOCUMENTATION 'Проверяет, что тип ребёнка является запрещённым'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4C177EDF021B'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anID
%UID '4C177EE5032C'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anID
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // IsDisabledChildTypeID
FINAL <<method>> AddDisabledChildTypeID
%UID '4C177E4700AB'
%DOCUMENTATION 'Добавляет тип запрещённого ребёнка'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4C177E8A0002'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anID
%UID '4C177E96000D'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anID
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // AddDisabledChildTypeID
FINAL <<method>> DefaultChildTypeID
%UID '4A534133014D'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "4A5344A40062"
%UID '4A5344A40062'
%TARGET U$ '4A5341CF028F' /* Tk2ChildrenProperty */
; // 4A5344A40062
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DefaultChildTypeID
%UID '4A534142039B'
%TARGET U$ '4A4DE5000202' /* Tk2TypePrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // DefaultChildTypeID
; // %OPERATIONS
; // DefaultChildTypeID
<<Operation>> GetIsKindOf
%UID '4A4E01DA0396'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anAtomType
%UID '4A4E18B40267'
%TARGET U$ '4A4DE5000202' /* Tk2TypePrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anAtomType
; // %PARAMETERS
; // GetIsKindOf
FINAL <<Operation>> InheritsFrom
%UID '52615ECC03BD'
; // InheritsFrom
; // %OPERATIONS
%CHILDREN
<<Typedef>> Tk2TypeIDPrim
%UID '5260173603A3'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '476130E5023C' /* Byte */
; // %INHERITS
; // Tk2TypeIDPrim
<<SetOf>> Tk2TypeIDSet
%UID '54785F5103A0'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '5260173603A3' /* Tk2TypeIDPrim */
; // %INHERITS
; // Tk2TypeIDSet
<<SimpleClass>> Tk2TypeIDs
%UID '4A4E1D7C01DB'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4CA9A2EB01E4' /* Tl3ProtoIntegerList */
; // %INHERITS
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A042E100E2' /* InitFields */
; // %OVERRIDES
%ATTRIBUTES
PRIVATE <<Attribute>> f_Small
%UID '54785F7002C1'
%TARGET U$ '54785F5103A0' /* Tk2TypeIDSet */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Small
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> Has
%UID '54785FC20224'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '54785FD702ED'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTypeID
%UID '54785FF00148'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aTypeID
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Has
FINAL <<method>> Include
%UID '54785FF603C6'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '547860010059'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTypeID
%UID '5478600602D9'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aTypeID
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Include
FINAL <<method>> Assign
%UID '547863510376'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5478635B0395'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOther
%UID '5478636303B3'
%TARGET U$ '4A4E1D7C01DB' /* Tk2TypeIDs */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOther
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Assign
; // %OPERATIONS
; // Tk2TypeIDs
; // %CHILDREN
; // Tk2TypePrimPrim
ABSTRACT <<SimpleClass>> Tk2CustomPropertyPrim
%UID '4A4DE5850182'
%DOCUMENTATION 'Базовое описание свойств'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '03.07.2009 15:03'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE0BF039E' /* Tk2Base */
; // %INHERITS
%REALIZES
U$ '4A4DE5340236' /* TagType */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '480DD1890221' /* GetOwner */
U$ '4A4DE1FE035C' /* GetIsProp */
U$ '4A4DE5AF036A' /* AsProp */
U$ '5331A12D0103' /* IDw */
U$ '5356910A0042' /* DoDoMakeTag */
; // %OVERRIDES
%LINKS
<<uses>> "4A4DFCF403B7"
%UID '4A4DFCF403B7'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 4A4DFCF403B7
<<uses>> "4A5357CA02D1"
%UID '4A5357CA02D1'
%TARGET U$ '47878E0E0191' /* l3String */
; // 4A5357CA02D1
<<uses>> "53A986B8022D"
%UID '53A986B8022D'
%TARGET U$ '53A963F700CD' /* Tk2Attributes */
; // 53A986B8022D
; // %LINKS
%ATTRIBUTES
PROTECTED <<Attribute>> f_tmpName
%UID '4A4DE0E600F4'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_tmpName
FINAL <<readonly>> TagIndex
%UID '4A4DEC8E00C2'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" false
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // TagIndex
FINAL LINK <<property>> AtomType
%UID '4A4DEE580305'
%TARGET U$ '4FFEF43201C7' /* Tk2TypePrimPrim */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // AtomType
ABSTRACT <<readonly>> EmptyMapping
%UID '4A4DF48F02F1'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // EmptyMapping
ABSTRACT <<readonly>> ReadOnly
%UID '4A4DF4D90012'
%TARGET U$ '46A603BB0391' /* Boolean */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // ReadOnly
ABSTRACT <<readonly>> MappingTarget
%UID '4A4DF71B035B'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // MappingTarget
FINAL <<property>> NeedMarkModified
%UID '4A4DF7DB00CB'
%TARGET U$ '46A603BB0391' /* Boolean */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedMarkModified
ABSTRACT <<readonly>> DefaultValue
%UID '4A4DF88301A2'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // DefaultValue
<<property>> Shared
%UID '4A4DF8C101CC'
%TARGET U$ '46A603BB0391' /* Boolean */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Shared
FINAL <<property>> AtomIndex
%UID '4A4DF9A2024D'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // AtomIndex
FINAL LINK <<readonly>> ParentType
%UID '4A4DFBFB034D'
%TARGET U$ '4FFEF43201C7' /* Tk2TypePrimPrim */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ParentType
SUMMONED PRIVATE <<Attribute>> f_TagIndex
%UID '5A21EAC24E37'
%DOCUMENTATION 'Поле для свойства TagIndex'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_TagIndex
SUMMONED PRIVATE LINK <<Attribute>> f_AtomType
%UID '9F579E61858F'
%DOCUMENTATION 'Поле для свойства AtomType'
%TARGET U$ '4FFEF43201C7' /* Tk2TypePrimPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_AtomType
SUMMONED PRIVATE <<Attribute>> f_NeedMarkModified
%UID '138D4E38FEB6'
%DOCUMENTATION 'Поле для свойства NeedMarkModified'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_NeedMarkModified
SUMMONED PRIVATE <<Attribute>> f_Shared
%UID '425BDF57575D'
%DOCUMENTATION 'Поле для свойства Shared'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Shared
SUMMONED PRIVATE <<Attribute>> f_AtomIndex
%UID '4341F0AAB149'
%DOCUMENTATION 'Поле для свойства AtomIndex'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_AtomIndex
SUMMONED PRIVATE LINK <<Attribute>> f_ParentType
%UID 'DFFFA2701895'
%DOCUMENTATION 'Поле для свойства ParentType'
%TARGET U$ '4FFEF43201C7' /* Tk2TypePrimPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_ParentType
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '4B85667B0066'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4B85668D03AD'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOwner
%UID '4B856696014A'
%TARGET U$ '4A4DE5000202' /* Tk2TypePrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOwner
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
<<virtualmethod>> IsThisArray
%UID '5357A18303D6'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5357A19501FE'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<out>> theProp
%UID '5357A19C021C'
%TARGET U$ '5331A06F028A' /* Tl3VariantDef */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // theProp
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // IsThisArray
; // %OPERATIONS
; // Tk2CustomPropertyPrim
<<Typedef>> Ik2Op
%UID '469F7AFD0224'
%DOCUMENTATION 'Пачка операций.'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F7AC50332' /* Il3OpPack */
; // %INHERITS
%REALIZES
U$ '46A5CE3E009A' /* MarkModified */
U$ '46A5CE5C0057' /* InvertModified */
U$ '46A5CE6A00BB' /* GetModified */
U$ '46A5CE840343' /* InUndo */
U$ '46A5CE9A03B3' /* SaveUndo */
U$ '46A5CEB0018E' /* DeleteMapped */
U$ '46A5CEC900F4' /* Optimize */
U$ '46A5CEF30267' /* InIOProcess */
U$ '46A5CF0902C3' /* Processor */
U$ '46A5D33D025C' /* Undo */
U$ '46A5D37B0247' /* Redo */
U$ '46A5D3BC0041' /* Lock */
U$ '46A5D3D101E6' /* Unlock */
U$ '4874FC1C01D2' /* Code */
U$ '48A4297E0341' /* CheckReadOnly */
U$ '48A564120005' /* DisableReadonly */
U$ '48A564160056' /* EnableReadOnly */
U$ '48A570180217' /* ReadOnly */
U$ '4CEBD62101DA' /* CheckOn */
U$ '4CEBD62D01E8' /* CheckOff */
U$ '4CECE9470154' /* IsCheckOff */
; // %REALIZES
; // Ik2Op
ABSTRACT <<SimpleClass>> Tk2TypePrim
%UID '4A4DE5000202'
%DOCUMENTATION 'Базовое описание типа'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '03.07.2009 15:01'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '4FFEF43201C7' /* Tk2TypePrimPrim */
; // %INHERITS
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A042E100E2' /* InitFields */
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '5331A12D0103' /* IDw */
; // %OVERRIDES
%ATTRIBUTES
FINAL LINK <<readonly>> Prop
%UID '4A4DEAE0006B'
%DOCUMENTATION 'Свойства тега'
%TARGET U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
%META
%upv "needs field" false
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INDEXES
%INDEX TagIndex %TARGET U$ '46A606AC03B2' /* Integer */
;
; // %INDEXES
; // Prop
PROTECTED <<Attribute>> f_Tags
%UID '4A532A65006D'
%TARGET U$ '4A532A4B037B' /* Tk2PropertyArray */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Tags
; // %ATTRIBUTES
%CHILDREN
<<Typedef>> Tk2PropertyArray
%UID '4A532A4B037B'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '53AABF30022F' /* Tk2PropertyArray */
; // %INHERITS
; // Tk2PropertyArray
PRIVATE <<Typedef>> Pk2CustomPropertyPrim
%UID '4A532D3D019E'
%META
%upv "isPointer" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
; // %INHERITS
%REALIZES
U$ '4A4DF48F02F1' /* EmptyMapping */
U$ '4A4DF4D90012' /* ReadOnly */
U$ '4A4DF71B035B' /* MappingTarget */
U$ '4A4DF88301A2' /* DefaultValue */
; // %REALIZES
; // Pk2CustomPropertyPrim
; // %CHILDREN
; // Tk2TypePrim
<<Typedef>> Tk2ArrayPropertyPrim
%UID '4A52FBA90049'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
; // %INHERITS
%REALIZES
U$ '4A4DF48F02F1' /* EmptyMapping */
U$ '4A4DF4D90012' /* ReadOnly */
U$ '4A4DF71B035B' /* MappingTarget */
U$ '4A4DF88301A2' /* DefaultValue */
; // %REALIZES
; // Tk2ArrayPropertyPrim
<<Typedef>> Ik2Processor
%UID '53317DB50257'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F6BF0009D' /* Ik2Processor */
; // %INHERITS
%REALIZES
U$ '46A44F6B035E' /* Subscribe */
U$ '46A44FFE0143' /* Unsubscribe */
U$ '46A5BC28010A' /* StartOp */
U$ '46A5BC7F0065' /* FinishOp */
U$ '46A5BCC4008C' /* LastOp */
U$ '46A5BCF5008C' /* InOp */
U$ '46A5BD1103B8' /* Lock */
U$ '46A5BD22025E' /* Unlock */
U$ '46A5BD3B0390' /* Undo */
U$ '46A5BD570141' /* Redo */
U$ '46A5BD730033' /* CheckInsert */
U$ '46A5BE7101DD' /* CheckDelete */
U$ '46A5BEA30171' /* NotifyCompleted */
U$ '46A5BEBE0116' /* NotifyInsert */
U$ '46A5BEF7038F' /* NotifyDelete */
U$ '46A5CD010120' /* DefaultStyle */
U$ '46A5CD2E0161' /* CanUndo */
U$ '46A5CD5102A2' /* CanRedo */
U$ '4843CBDB0253' /* NeedReplaceQuotes */
U$ '4919465D0139' /* UndoBuffer */
U$ '4A68941501A3' /* NotifyPropChanged */
; // %REALIZES
; // Ik2Processor
<<Typedef>> Il3OpPackMode
%UID '53317DC80061'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F7AAD0070' /* Il3OpPackMode */
; // %INHERITS
%REALIZES
U$ '46A5CE3E009A' /* MarkModified */
U$ '46A5CE5C0057' /* InvertModified */
U$ '46A5CE6A00BB' /* GetModified */
U$ '46A5CE840343' /* InUndo */
U$ '46A5CE9A03B3' /* SaveUndo */
U$ '46A5CEB0018E' /* DeleteMapped */
U$ '46A5CEC900F4' /* Optimize */
U$ '46A5CEF30267' /* InIOProcess */
U$ '46A5CF0902C3' /* Processor */
U$ '48A4297E0341' /* CheckReadOnly */
U$ '48A564120005' /* DisableReadonly */
U$ '48A564160056' /* EnableReadOnly */
U$ '48A570180217' /* ReadOnly */
U$ '4CEBD62101DA' /* CheckOn */
U$ '4CEBD62D01E8' /* CheckOff */
U$ '4CECE9470154' /* IsCheckOff */
; // %REALIZES
; // Il3OpPackMode
<<Typedef>> Il3OpPack
%UID '53317DDB0223'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F7AC50332' /* Il3OpPack */
; // %INHERITS
%REALIZES
U$ '46A5CE3E009A' /* MarkModified */
U$ '46A5CE5C0057' /* InvertModified */
U$ '46A5CE6A00BB' /* GetModified */
U$ '46A5CE840343' /* InUndo */
U$ '46A5CE9A03B3' /* SaveUndo */
U$ '46A5CEB0018E' /* DeleteMapped */
U$ '46A5CEC900F4' /* Optimize */
U$ '46A5CEF30267' /* InIOProcess */
U$ '46A5CF0902C3' /* Processor */
U$ '46A5D33D025C' /* Undo */
U$ '46A5D37B0247' /* Redo */
U$ '46A5D3BC0041' /* Lock */
U$ '46A5D3D101E6' /* Unlock */
U$ '4874FC1C01D2' /* Code */
U$ '48A4297E0341' /* CheckReadOnly */
U$ '48A564120005' /* DisableReadonly */
U$ '48A564160056' /* EnableReadOnly */
U$ '48A570180217' /* ReadOnly */
U$ '4CEBD62101DA' /* CheckOn */
U$ '4CEBD62D01E8' /* CheckOff */
U$ '4CECE9470154' /* IsCheckOff */
; // %REALIZES
; // Il3OpPack
; // %CHILDREN
; // k2Prim
<<SimpleClass>> Tk2TypeTableCreatedListeners
%UID '53C7D8AB0282'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "singleton" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B594B50330' /* l3StandardTypedList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B07CF403D0' /* IsSameItems */
U$ '47B2C42A0163' /* AssignItem */
U$ '47B935AF0066' /* FillItem */
U$ '47B94A5C006E' /* FreeItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '53C7D98D02EC'
%TARGET U$ '47881B22005A' /* TNotifyEvent */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> AddListener
%UID '53C7D9E60110'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53C7D9FC0155'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aListener
%UID '53C7DA0903C3'
%TARGET U$ '47881B22005A' /* TNotifyEvent */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aListener
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // AddListener
FINAL <<method>> NotifyListeners
%UID '53C7DA8400D6'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53C7DA940208'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aSender
%UID '53C7DD14009E'
%TARGET U$ '4807745602C8' /* TObject */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aSender
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // NotifyListeners
SUMMONED FINAL <<static>> Exists
%UID 'FAF791E82CD2'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> l3Items_NoSort
%UID '53C7E5D50233'
; // l3Items_NoSort
; // %CHILDREN
; // Tk2TypeTableCreatedListeners
; // %CHILDREN
; // k2Core
<<Unit>> k2Facade
%UID '480DBA6900E6'
%CHILDREN
FINAL <<UtilityPack>> k2Facade
%UID '480DBA760390'
%DOCUMENTATION 'Интерфейсы библиотеки K2, предназначенные для унифицированного общения с таблицами тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "no hands" false
%upv "started" '01.04.2005 17:36'
; // %META
%CHILDREN
<<SimpleClass>> Tk2
%UID '480DBAAB02AD'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '01.04.2005 17:36'
; // %META
; // Tk2
; // %CHILDREN
; // k2Facade
; // %CHILDREN
; // k2Facade
<<Interfaces>> k2PureMixIns
%UID '4BC83B8301E5'
%DOCUMENTATION 'Примеси для конструирования интерфейсов библиотеки'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '47913B47006E' /* l3CoreObjects */
U$ '4A4DE16302A2' /* k2Core */
U$ '5326D70401F3' /* l3Variants */
; // %DEPENDS
%META
%upv "author" 'Люлин А.В.'
%upv "is namespace" true
%upv "no hands" true
%upv "started" '16.04.2010 14:27'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<PureMixIn>> Mk2ProcessorHolder
%UID '4BBF4290001A'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%ATTRIBUTES
ABSTRACT LINK <<readonly>> Processor
%UID '4BBF42BF004D'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%META
%upv "pm" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Processor
; // %ATTRIBUTES
; // Mk2ProcessorHolder
; // %CHILDREN
; // k2PureMixIns
<<Interfaces>> k2Interfaces
%UID '4678137501EA'
%DOCUMENTATION 'Интерфейсы, описывающие работу с теговыми структурами.'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '4767743E00E5' /* TypInfo */
U$ '478CF8070260' /* l3IID */
U$ '47913B47006E' /* l3CoreObjects */
U$ '49A6646B0044' /* k2BaseTypes */
U$ '4A4DE16302A2' /* k2Core */
U$ '4AB0C3C60310' /* Sys */
U$ '4BC83B8301E5' /* k2PureMixIns */
U$ '5326D70401F3' /* l3Variants */
; // %DEPENDS
%META
%upv "author" 'Люлин А.В.'
%upv "is namespace" true
%upv "no hands" true
%upv "started" '28.02.2001 13:34'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<Facet>> Ik2Base
%UID '4678159D03E2'
%DOCUMENTATION 'Базовый интерфейс библиотеки K-2'
%META
%upv "is default ancestor" true
; // %META
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '467813B3024D' /* Il3Base */
; // %INHERITS
%REALIZES
U$ '467813E40207' /* CheckStamp */
; // %REALIZES
; // Ik2Base
<<Typedef>> Ik2Op
%UID '4A51CF380145'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F7AFD0224' /* Ik2Op */
; // %INHERITS
%REALIZES
U$ '46A5CE3E009A' /* MarkModified */
U$ '46A5CE5C0057' /* InvertModified */
U$ '46A5CE6A00BB' /* GetModified */
U$ '46A5CE840343' /* InUndo */
U$ '46A5CE9A03B3' /* SaveUndo */
U$ '46A5CEB0018E' /* DeleteMapped */
U$ '46A5CEC900F4' /* Optimize */
U$ '46A5CEF30267' /* InIOProcess */
U$ '46A5CF0902C3' /* Processor */
U$ '46A5D33D025C' /* Undo */
U$ '46A5D37B0247' /* Redo */
U$ '46A5D3BC0041' /* Lock */
U$ '46A5D3D101E6' /* Unlock */
U$ '4874FC1C01D2' /* Code */
U$ '48A4297E0341' /* CheckReadOnly */
U$ '48A564120005' /* DisableReadonly */
U$ '48A564160056' /* EnableReadOnly */
U$ '48A570180217' /* ReadOnly */
U$ '4CEBD62101DA' /* CheckOn */
U$ '4CEBD62D01E8' /* CheckOff */
U$ '4CECE9470154' /* IsCheckOff */
; // %REALIZES
; // Ik2Op
<<Enum>> Tk2EventID
%UID '4767A10001F7'
%DOCUMENTATION 'Идентификаторы событий.'
%ATTRIBUTES
<<Attribute>> k2_eidNull
%UID '4767A11B0208'
%DOCUMENTATION 'пустое событие.'
; // k2_eidNull
<<Attribute>> k2_eidChildrenInserted
%UID '4767A1270321'
%DOCUMENTATION 'вставлены дочерние теги.'
; // k2_eidChildrenInserted
<<Attribute>> k2_eidTypeTableWillBeDestroyed
%UID '4767A14402FF'
%DOCUMENTATION 'таблица типов сейчас будет освобождена.'
; // k2_eidTypeTableWillBeDestroyed
<<Attribute>> k2_eidAttrChanged
%UID '4767A1550216'
%DOCUMENTATION 'аттрибут изменился.'
; // k2_eidAttrChanged
<<Attribute>> k2_eidChildrenAdded
%UID '4767A1630090'
%DOCUMENTATION 'добавлены дочерние теги.'
; // k2_eidChildrenAdded
<<Attribute>> k2_eidChildrenDeleted
%UID '4767A16F03B5'
%DOCUMENTATION 'удалены дочерние теги.'
; // k2_eidChildrenDeleted
; // %ATTRIBUTES
; // Tk2EventID
<<SetOf>> Tk2EventIDs
%UID '469F9ED501CC'
%META
%upv "force usage" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4767A10001F7' /* Tk2EventID */
; // %INHERITS
; // Tk2EventIDs
<<Struct>> Tk2Event
%UID '469F9F0B01D4'
%META
%upv "force usage" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%ATTRIBUTES
<<Attribute>> ID
%UID '469F9F2500CD'
%TARGET U$ '4767A10001F7' /* Tk2EventID */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ID
INTEGER FUNCTION Point
%UID '469F9F3200D6'
%TARGET U$ '3DBFFD7002C2' /* long */
; // Point
INTEGER FUNCTION Len
%UID '469F9F3F0111'
%TARGET U$ '3DBFFD7002C2' /* long */
; // Len
INTEGER FUNCTION Total
%UID '469F9F4C03CC'
%TARGET U$ '3DBFFD7002C2' /* long */
; // Total
; // %ATTRIBUTES
; // Tk2Event
ABSTRACT <<Facet>> Ik2TagListener
%UID '467818280149'
%DOCUMENTATION 'Объекты, умеющие принимать сообщения о смене состояния тегов'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '467817DD0200' /* Ik2Tag */
; // %INHERITS
%REALIZES
U$ '47612ACF0081' /* Box */
U$ '476133660285' /* Attr */
U$ '4761365402FF' /* BoolA */
U$ '4761368701AB' /* IntA */
U$ '4761370F0048' /* StrA */
U$ '47613B8303CC' /* Child */
U$ '47613C0F02F4' /* BoolW */
U$ '47613C6A001F' /* IntW */
U$ '47613D4E02B3' /* StrW */
U$ '47613DB001A3' /* PCharLenA */
U$ '47613E120125' /* PCharLenW */
U$ '4A42149A01FE' /* AsString */
U$ '4A4216790331' /* AsWStr */
U$ '4A42195A0244' /* AsBool */
U$ '4A42196201B8' /* AsLong */
U$ '4A42196C01CE' /* AsObject */
U$ '4A421BE201A9' /* IsOrd */
U$ '4A421BED00FF' /* IsKindOf$4A421BED00FF */
U$ '4A421BF200BF' /* IsKindOf$4A421BF200BF */
U$ '4A421C12034A' /* IsKindOf$4A421C12034A */
U$ '4A422C1D00FE' /* AddChild */
U$ '4A42356B0022' /* ChildrenCount */
U$ '4A423C670156' /* SetRef */
U$ '4A423EC900C2' /* DeleteChild$4A423EC900C2 */
U$ '4A423ECE03A6' /* DeleteChild$4A423ECE03A6 */
U$ '4A423F0002E2' /* DeleteChild$4A423F0002E2 */
U$ '4A42489800D0' /* DoLoad */
U$ '4A4248A501C8' /* ForceStore */
U$ '4A4248C902F1' /* MarkModified */
U$ '4A6039AA0172' /* ChildrenCapacity */
U$ '4A6475C4026D' /* Owner */
U$ '4BB21F9D022F' /* IterateChildrenF */
U$ '4BBF49EB0260' /* IterateChildrenBack */
U$ '4BC31A730293' /* IterateProperties */
U$ '4BC71B0A028C' /* rLong */
U$ '4BC843A5011F' /* rAtomEx */
U$ '4BC843C80301' /* cAtom */
U$ '4BC843CE00EF' /* cAtomEx */
U$ '4BC8441500B7' /* HasSubAtom */
U$ '4BC8446D010E' /* IsNull */
U$ '4BC8447200B0' /* IsValid */
U$ '4BC8447501CB' /* IsTransparent */
U$ '4BC8447A0046' /* IsStream */
U$ '4BC84CA1035B' /* QT */
U$ '4BC84CEE0329' /* GetOwnInterface */
U$ '4E2EA8B10353' /* Int64A */
U$ '4E2EA93E029A' /* Int64W */
U$ '532C4B8E00CC' /* IsSame$532C4B8E00CC */
U$ '533195830003' /* AttrW */
U$ '533413FC02FC' /* TagType */
U$ '53B444D80378' /* DateTimeA */
U$ '53B52B130172' /* DateTimeW */
; // %REALIZES
%OPERATIONS
ABSTRACT <<Operation>> Fire
%UID '4761446F0081'
%DOCUMENTATION 'сообщение о том, что c тегом что-то произошло.'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anEvent
%UID '47614494018E'
%TARGET U$ '469F9F0B01D4' /* Tk2Event */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anEvent
<<in>> anOp
%UID '4761449401BA'
%TARGET U$ '469F7AFD0224' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOp
; // %PARAMETERS
; // Fire
ABSTRACT <<Operation>> ExcludeEvents
%UID '476144C702AA'
%DOCUMENTATION 'События, которые не надо слушать.'
%TARGET U$ '469F9ED501CC' /* Tk2EventIDs */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ExcludeEvents
; // %OPERATIONS
; // Ik2TagListener
ABSTRACT <<Facet>> Ik2Listener
%UID '4678180D0371'
%DOCUMENTATION 'Объекты, умеющие принимать сообщения о смене состояния тегов'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
ABSTRACT <<Operation>> Fire
%UID '476144F90102'
%DOCUMENTATION 'сообщение о том, что что-то произошло.'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anEvent
%UID '4761450E0048'
%TARGET U$ '469F9F0B01D4' /* Tk2Event */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anEvent
<<in>> anOp
%UID '4761450E006F'
%TARGET U$ '469F7AFD0224' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOp
; // %PARAMETERS
; // Fire
; // %OPERATIONS
; // Ik2Listener
<<Facet>> Ik2TagBoxContainer
%UID '469F9FCC00E1'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
ABSTRACT <<Operation>> SetTag
%UID '469F9FD9025D'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4767B46003B4'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // SetTag
; // %OPERATIONS
; // Ik2TagBoxContainer
<<Facet>> Ik2GeneratorTarget
%UID '47678AD30259'
%DOCUMENTATION 'Интерфейс цели генерации. Используется для управления ее временем жизни.'
; // Ik2GeneratorTarget
<<Struct>> Tk2Integer
%UID '47678B5F0280'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%ATTRIBUTES
<<Attribute>> rIsSet
%UID '47678B730010'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rIsSet
<<Attribute>> rValue
%UID '47678B7E0095'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rValue
; // %ATTRIBUTES
; // Tk2Integer
ABSTRACT <<Facet>> Ik2TagTool
%UID '467818430333'
%DOCUMENTATION 'Инструмент для манипулирования тегом'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '467818280149' /* Ik2TagListener */
; // %INHERITS
%REALIZES
U$ '47612ACF0081' /* Box */
U$ '476133660285' /* Attr */
U$ '4761365402FF' /* BoolA */
U$ '4761368701AB' /* IntA */
U$ '4761370F0048' /* StrA */
U$ '47613B8303CC' /* Child */
U$ '47613C0F02F4' /* BoolW */
U$ '47613C6A001F' /* IntW */
U$ '47613D4E02B3' /* StrW */
U$ '47613DB001A3' /* PCharLenA */
U$ '47613E120125' /* PCharLenW */
U$ '4761446F0081' /* Fire */
U$ '476144C702AA' /* ExcludeEvents */
U$ '4A42149A01FE' /* AsString */
U$ '4A4216790331' /* AsWStr */
U$ '4A42195A0244' /* AsBool */
U$ '4A42196201B8' /* AsLong */
U$ '4A42196C01CE' /* AsObject */
U$ '4A421BE201A9' /* IsOrd */
U$ '4A421BED00FF' /* IsKindOf$4A421BED00FF */
U$ '4A421BF200BF' /* IsKindOf$4A421BF200BF */
U$ '4A421C12034A' /* IsKindOf$4A421C12034A */
U$ '4A422C1D00FE' /* AddChild */
U$ '4A42356B0022' /* ChildrenCount */
U$ '4A423C670156' /* SetRef */
U$ '4A423EC900C2' /* DeleteChild$4A423EC900C2 */
U$ '4A423ECE03A6' /* DeleteChild$4A423ECE03A6 */
U$ '4A423F0002E2' /* DeleteChild$4A423F0002E2 */
U$ '4A42489800D0' /* DoLoad */
U$ '4A4248A501C8' /* ForceStore */
U$ '4A4248C902F1' /* MarkModified */
U$ '4A6039AA0172' /* ChildrenCapacity */
U$ '4A6475C4026D' /* Owner */
U$ '4BB21F9D022F' /* IterateChildrenF */
U$ '4BBF49EB0260' /* IterateChildrenBack */
U$ '4BC31A730293' /* IterateProperties */
U$ '4BC71B0A028C' /* rLong */
U$ '4BC843A5011F' /* rAtomEx */
U$ '4BC843C80301' /* cAtom */
U$ '4BC843CE00EF' /* cAtomEx */
U$ '4BC8441500B7' /* HasSubAtom */
U$ '4BC8446D010E' /* IsNull */
U$ '4BC8447200B0' /* IsValid */
U$ '4BC8447501CB' /* IsTransparent */
U$ '4BC8447A0046' /* IsStream */
U$ '4BC84CA1035B' /* QT */
U$ '4BC84CEE0329' /* GetOwnInterface */
U$ '4E2EA8B10353' /* Int64A */
U$ '4E2EA93E029A' /* Int64W */
U$ '532C4B8E00CC' /* IsSame$532C4B8E00CC */
U$ '533195830003' /* AttrW */
U$ '533413FC02FC' /* TagType */
U$ '53B444D80378' /* DateTimeA */
U$ '53B52B130172' /* DateTimeW */
; // %REALIZES
%ATTRIBUTES
ABSTRACT <<property>> ParentTool
%UID '476145AF00A8'
%DOCUMENTATION 'инструмент родительского тега.'
%TARGET U$ '467818430333' /* Ik2TagTool */
%META
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ParentTool
; // %ATTRIBUTES
; // Ik2TagTool
<<Facet>> Ik2RawData
%UID '49A67D880011'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%ATTRIBUTES
ABSTRACT LINK <<readonly>> IsModified
%UID '49A67D980375'
%TARGET U$ '46A603BB0391' /* Boolean */
%META
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // IsModified
; // %ATTRIBUTES
; // Ik2RawData
<<Facet>> Ik2TagReader
%UID '467816AD0194'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '46781657008C' /* Il3Reader */
; // %INHERITS
%REALIZES
U$ '467816770147' /* execute */
; // %REALIZES
%ATTRIBUTES
ABSTRACT LINK <<property>> Context
%UID '469F981B03D2'
%DOCUMENTATION 'Контекст генерации.'
%TARGET U$ '4A51CF380145' /* Ik2Op */
%META
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Context
; // %ATTRIBUTES
%OPERATIONS
ABSTRACT <<Operation>> Rollback
%UID '469F97DE0294'
%PARAMETERS
<<in>> CheckBrackets
%UID '469F97EA02D7'
%TARGET U$ '3DBFFE100240' /* boolean */
%VALUE false
; // CheckBrackets
; // %PARAMETERS
; // Rollback
ABSTRACT <<Operation>> Link
%UID '469F9801035D'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> G
%UID '4767B6110370'
%TARGET U$ '4678160E01BE' /* Ik2TagGenerator */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // G
; // %PARAMETERS
; // Link
ABSTRACT <<Operation>> UnLink
%UID '469F981102DD'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> G
%UID '4767B60900E4'
%TARGET U$ '4678160E01BE' /* Ik2TagGenerator */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // G
; // %PARAMETERS
; // UnLink
; // %OPERATIONS
; // Ik2TagReader
<<Typedef>> Ik2Processor
%UID '4A51D59703DF'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F6BF0009D' /* Ik2Processor */
; // %INHERITS
%REALIZES
U$ '46A44F6B035E' /* Subscribe */
U$ '46A44FFE0143' /* Unsubscribe */
U$ '46A5BC28010A' /* StartOp */
U$ '46A5BC7F0065' /* FinishOp */
U$ '46A5BCC4008C' /* LastOp */
U$ '46A5BCF5008C' /* InOp */
U$ '46A5BD1103B8' /* Lock */
U$ '46A5BD22025E' /* Unlock */
U$ '46A5BD3B0390' /* Undo */
U$ '46A5BD570141' /* Redo */
U$ '46A5BD730033' /* CheckInsert */
U$ '46A5BE7101DD' /* CheckDelete */
U$ '46A5BEA30171' /* NotifyCompleted */
U$ '46A5BEBE0116' /* NotifyInsert */
U$ '46A5BEF7038F' /* NotifyDelete */
U$ '46A5CD010120' /* DefaultStyle */
U$ '46A5CD2E0161' /* CanUndo */
U$ '46A5CD5102A2' /* CanRedo */
U$ '4843CBDB0253' /* NeedReplaceQuotes */
U$ '4919465D0139' /* UndoBuffer */
U$ '4A68941501A3' /* NotifyPropChanged */
; // %REALIZES
; // Ik2Processor
<<Typedef>> Tk2TypePrim
%UID '4A51E91101D1'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5000202' /* Tk2TypePrim */
; // %INHERITS
; // Tk2TypePrim
<<Typedef>> Tk2CustomPropertyPrim
%UID '4A51E94101E3'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
; // %INHERITS
%REALIZES
U$ '4A4DF48F02F1' /* EmptyMapping */
U$ '4A4DF4D90012' /* ReadOnly */
U$ '4A4DF71B035B' /* MappingTarget */
U$ '4A4DF88301A2' /* DefaultValue */
; // %REALIZES
; // Tk2CustomPropertyPrim
<<Typedef>> Tk2ArrayPropertyPrim
%UID '4A52FBFA00A0'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A52FBA90049' /* Tk2ArrayPropertyPrim */
; // %INHERITS
%REALIZES
U$ '4A4DF48F02F1' /* EmptyMapping */
U$ '4A4DF4D90012' /* ReadOnly */
U$ '4A4DF71B035B' /* MappingTarget */
U$ '4A4DF88301A2' /* DefaultValue */
; // %REALIZES
; // Tk2ArrayPropertyPrim
<<Typedef>> Ik2TagGenerator
%UID '4A5359BD03BE'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4678160E01BE' /* Ik2TagGenerator */
; // %INHERITS
%REALIZES
U$ '469F83C300B2' /* AddStringAtom$469F83C300B2 */
U$ '469F84BB0023' /* AddStringAtom$469F84BB0023 */
U$ '469F870C01B6' /* AddStreamAtom */
U$ '469F872B0124' /* AddTransparentAtom */
U$ '469F87470084' /* AddIntegerAtom */
U$ '469F87D4002D' /* AddBoolAtom */
U$ '469F8818037E' /* AddAtom */
U$ '469F8B580244' /* AddAtomEx */
U$ '469F8B9E02C7' /* Start */
U$ '469F8BBA01EB' /* StartChild */
U$ '469F8BCC02D7' /* StartDefaultChild */
U$ '469F8BF00166' /* StartTag */
U$ '469F8C0A031C' /* Finish */
U$ '469F8C450231' /* CharsInLine */
U$ '469F8C6D01B6' /* NextGenerator */
U$ '469F8C8C02FB' /* CurrentStartLevel */
U$ '469F956E01A6' /* Rollback */
U$ '469F9589032C' /* Pixel2Char */
U$ '4C1B7F810123' /* CurrentVersion */
U$ '4E31464A0116' /* AddInt64Atom */
U$ '532AD07903C5' /* Char2Pixel */
U$ '533C0C71011C' /* Context */
; // %REALIZES
; // Ik2TagGenerator
<<Enum>> Tk2TypeKind
%UID '469F88B30381'
%ATTRIBUTES
<<Attribute>> k2_tkInteger
%UID '469F88BF0107'
; // k2_tkInteger
<<Attribute>> k2_tkBool
%UID '469F88C80327'
; // k2_tkBool
<<Attribute>> k2_tkObject
%UID '469F88D10316'
; // k2_tkObject
<<Attribute>> k2_tkTransparent
%UID '469F88DB03C4'
; // k2_tkTransparent
<<Attribute>> k2_tkStream
%UID '469F88E301BD'
; // k2_tkStream
; // %ATTRIBUTES
; // Tk2TypeKind
<<Typedef>> Tk2Variant
%UID '469F893F01AB'
%META
%upv "force usage" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '530F1ADF03E1' /* Ik2Variant */
; // %INHERITS
%REALIZES
U$ '530F1B3C029B' /* Kind */
U$ '530F1B6501B3' /* AsString */
U$ '530F1B86025B' /* AsInteger */
U$ '530F1BA50053' /* AsStream */
U$ '532AE5E5015C' /* AsVariant */
; // %REALIZES
; // Tk2Variant
<<PureMixIn>> Mk2InterfaceFactory
%UID '531F0A600173'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
ABSTRACT <<facetiterator>> IterateCursors
%UID '4BCC45AA02CE'
%META
%upv "needs index" true
%upv "needs result" false
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%LINKS
SUMMONED <<uses>> "7805A241A87C"
%UID '7805A241A87C'
%TARGET U$ '4BA7BE3B0114' /* l3LocalStub */
; // 7805A241A87C
; // %LINKS
%ATTRIBUTES
PRIVATE FINAL LINK <<element_type>> "4BCC45BE0137"
%UID '4BCC45BE0137'
%TARGET U$ '46A608F00301' /* Pointer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // 4BCC45BE0137
; // %ATTRIBUTES
; // IterateCursors
SUMMONED FINAL <<static>> L2_Mk2InterfaceFactory_IterateCursors_Action
%UID '951123C1569A'
%DOCUMENTATION 'Функция формирования заглушки для ЛОКАЛЬНОЙ подитеративной функции для Mk2InterfaceFactory.IterateCursors'
%TARGET U$ '40B6BB79A03A' /* Mk2InterfaceFactory_IterateCursors_Action */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> anAction
%UID '8302C0F13388'
%TARGET U$ '3ECB343C024C' /* pointer */
; // anAction
; // %PARAMETERS
; // L2_Mk2InterfaceFactory_IterateCursors_Action
; // %OPERATIONS
%CHILDREN
SUMMONED <<Function>> Mk2InterfaceFactory_IterateCursors_Action
%UID '40B6BB79A03A'
%DOCUMENTATION 'Тип подитеративной функции для Mk2InterfaceFactory.IterateCursors'
%META
%upv "of object" false
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
SUMMONED FINAL BOOLEAN FUNCTION DoIt
%UID 'C4761D1A4387'
%DOCUMENTATION 'Тип подитеративной функции для Mk2InterfaceFactory.IterateCursors'
%TARGET U$ '3DBFFE100240' /* boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> anItem
%UID '88E1CFFF6E07'
%TARGET U$ '46A608F00301' /* Pointer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anItem
SUMMONED <<in>> anIndex
%UID '88E1CFFF6E08'
%TARGET U$ '3DBFFD7002C2' /* long */
; // anIndex
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Mk2InterfaceFactory_IterateCursors_Action
; // %CHILDREN
; // Mk2InterfaceFactory
<<Typedef>> Tl3Type
%UID '5334233E0375'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '5334230E0043' /* Tl3Type */
; // %INHERITS
; // Tl3Type
<<Typedef>> Tk2VarKind
%UID '533BFA7F0182'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F88FC00E7' /* Tk2VarKind */
; // %INHERITS
; // Tk2VarKind
<<Typedef>> Ik2Variant
%UID '533BFA8E0340'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '530F1ADF03E1' /* Ik2Variant */
; // %INHERITS
%REALIZES
U$ '530F1B3C029B' /* Kind */
U$ '530F1B6501B3' /* AsString */
U$ '530F1B86025B' /* AsInteger */
U$ '530F1BA50053' /* AsStream */
U$ '532AE5E5015C' /* AsVariant */
; // %REALIZES
; // Ik2Variant
<<Typedef>> Ik2Tag
%UID '533C138F0003'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '467817DD0200' /* Ik2Tag */
; // %INHERITS
%REALIZES
U$ '47612ACF0081' /* Box */
U$ '476133660285' /* Attr */
U$ '4761365402FF' /* BoolA */
U$ '4761368701AB' /* IntA */
U$ '4761370F0048' /* StrA */
U$ '47613B8303CC' /* Child */
U$ '47613C0F02F4' /* BoolW */
U$ '47613C6A001F' /* IntW */
U$ '47613D4E02B3' /* StrW */
U$ '47613DB001A3' /* PCharLenA */
U$ '47613E120125' /* PCharLenW */
U$ '4A42149A01FE' /* AsString */
U$ '4A4216790331' /* AsWStr */
U$ '4A42195A0244' /* AsBool */
U$ '4A42196201B8' /* AsLong */
U$ '4A42196C01CE' /* AsObject */
U$ '4A421BE201A9' /* IsOrd */
U$ '4A421BED00FF' /* IsKindOf$4A421BED00FF */
U$ '4A421BF200BF' /* IsKindOf$4A421BF200BF */
U$ '4A421C12034A' /* IsKindOf$4A421C12034A */
U$ '4A422C1D00FE' /* AddChild */
U$ '4A42356B0022' /* ChildrenCount */
U$ '4A423C670156' /* SetRef */
U$ '4A423EC900C2' /* DeleteChild$4A423EC900C2 */
U$ '4A423ECE03A6' /* DeleteChild$4A423ECE03A6 */
U$ '4A423F0002E2' /* DeleteChild$4A423F0002E2 */
U$ '4A42489800D0' /* DoLoad */
U$ '4A4248A501C8' /* ForceStore */
U$ '4A4248C902F1' /* MarkModified */
U$ '4A6039AA0172' /* ChildrenCapacity */
U$ '4A6475C4026D' /* Owner */
U$ '4BB21F9D022F' /* IterateChildrenF */
U$ '4BBF49EB0260' /* IterateChildrenBack */
U$ '4BC31A730293' /* IterateProperties */
U$ '4BC71B0A028C' /* rLong */
U$ '4BC843A5011F' /* rAtomEx */
U$ '4BC843C80301' /* cAtom */
U$ '4BC843CE00EF' /* cAtomEx */
U$ '4BC8441500B7' /* HasSubAtom */
U$ '4BC8446D010E' /* IsNull */
U$ '4BC8447200B0' /* IsValid */
U$ '4BC8447501CB' /* IsTransparent */
U$ '4BC8447A0046' /* IsStream */
U$ '4BC84CA1035B' /* QT */
U$ '4BC84CEE0329' /* GetOwnInterface */
U$ '4E2EA8B10353' /* Int64A */
U$ '4E2EA93E029A' /* Int64W */
U$ '532C4B8E00CC' /* IsSame$532C4B8E00CC */
U$ '533195830003' /* AttrW */
U$ '533413FC02FC' /* TagType */
U$ '53B444D80378' /* DateTimeA */
U$ '53B52B130172' /* DateTimeW */
; // %REALIZES
; // Ik2Tag
<<Typedef>> Tl3Variant
%UID '533D316E00BF'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '532031160122' /* Tl3Variant */
; // %INHERITS
; // Tl3Variant
SUMMONED <<Constants>> Tk2VarKind_Tk2VarKind_Constants
%UID 'CDE5829F4D05'
%DOCUMENTATION 'Алиасы для значений l3Variant.Tk2VarKind'
%META
%upv "spell names" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%ATTRIBUTES
SUMMONED <<Attribute>> k2_vkInteger
%UID 'ECFF09D7E311'
%VALUE 'k2_vkInteger'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // k2_vkInteger
SUMMONED <<Attribute>> k2_vkString
%UID '76F2E96084EE'
%VALUE 'k2_vkString'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // k2_vkString
SUMMONED <<Attribute>> k2_vkTransparent
%UID 'EBFF687CC93C'
%VALUE 'k2_vkTransparent'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // k2_vkTransparent
SUMMONED <<Attribute>> k2_vkStream
%UID '8369691EB86C'
%VALUE 'k2_vkStream'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // k2_vkStream
; // %ATTRIBUTES
; // Tk2VarKind_Tk2VarKind_Constants
; // %CHILDREN
; // k2Interfaces
<<Interfaces>> k2InternalInterfaces
%UID '47F11670007B'
%DOCUMENTATION 'Внутренние интерфейсы библиотеки К-2.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "is namespace" true
%upv "no hands" false
%upv "started" '27.09.1999 12:58'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%CHILDREN
<<Facet>> Ik2FilerSource
%UID '47F116A600A9'
; // Ik2FilerSource
<<Facet>> Ik2FilerSource2
%UID '4A25410C0355'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47F116A600A9' /* Ik2FilerSource */
; // %INHERITS
; // Ik2FilerSource2
; // %CHILDREN
; // k2InternalInterfaces
<<Unit>> k2PrimObjects
%UID '49A58A1A03C4'
%DOCUMENTATION 'Самые базовые объекты'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678137501EA' /* k2Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '478CF8070260' /* l3IID */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47A1D4C201E8' /* l3Const */
U$ '47AC75550330' /* k2Tags */
U$ '47AC7B760263' /* k2Const */
U$ '47AC830103E6' /* k2Strings */
U$ '47BB24D30205' /* "Стандартные примеси" */
U$ '4A4DE16302A2' /* k2Core */
U$ '4A6D65B9022A' /* Containers */
U$ '4AB0C3C60310' /* Sys */
U$ '4BC83B8301E5' /* k2PureMixIns */
U$ '52669BFC024E' /* CoreTypes */
U$ '54B90AC6014B' /* StringUtils */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2TypeModelPart
%UID '4BC46A770394'
%DOCUMENTATION 'Часть Tk2Type, перенесённая на модель'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '13.04.2010 16:59'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5000202' /* Tk2TypePrim */
; // %INHERITS
%LINKS
<<uses>> "4DDA766501F3"
%UID '4DDA766501F3'
%TARGET U$ '4DDA76400330' /* Tk2SortTagsList */
; // 4DDA766501F3
<<uses>> "5266A20C0150"
%UID '5266A20C0150'
%TARGET U$ '48492AC1023B' /* String */
; // 5266A20C0150
<<uses>> "53341EA80372"
%UID '53341EA80372'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
; // 53341EA80372
; // %LINKS
%OPERATIONS
<<method>> CompareTags
%UID '4BC477E60259'
%DOCUMENTATION 'Сравнивает теги'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "4BC479C90240"
%UID '4BC479C90240'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 4BC479C90240
<<uses>> "4DDA71D30297"
%UID '4DDA71D30297'
%TARGET U$ '47878E0E0191' /* l3String */
; // 4DDA71D30297
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4BC477F802C7'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> A
%UID '4BC478180094'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // A
<<in>> B
%UID '4BC478180104'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // B
<<in>> aSortIndex
%UID '4BC47818015D'
%TARGET U$ '476F958501F2' /* Tl3SortIndex */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aSortIndex
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CompareTags
<<method>> CompareTagWithInt
%UID '4BC47828023F'
%DOCUMENTATION 'Сравнивает тег с целым'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "4BC480DB0059"
%UID '4BC480DB0059'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 4BC480DB0059
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4BC4784B00CB'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4BC4786A039B'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> aValue
%UID '4BC4786A03B7'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aValue
<<in>> anIndex
%UID '4BC4786A03D7'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anIndex
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CompareTagWithInt
; // %OPERATIONS
; // Tk2TypeModelPart
<<SimpleClass>> Tk2PropSorter
%UID '47B9B7A5038E'
%DOCUMENTATION 'Сортировщик свойств.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '18.02.2008 19:52'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '47B9B84402E8'
%TARGET U$ '47AC6F6A00FA' /* Tk2CustomProperty */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2PropSorter
ABSTRACT <<Impurity>> k2Int64Holder
%UID '4E2EA99702A7'
%META
%upv "needs InstanceR" true
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4E2EA88A01ED' /* Mk2Int64Holder */
U$ '532878C00034' /* Ml3VariantMirror */
; // %IMPLEMENTS
%OVERRIDES
U$ '5360CE4B026A' /* GetInt64A */
U$ '5360CE910025' /* SetInt64A */
; // %OVERRIDES
%LINKS
<<uses>> "4E2EB65900E0"
%UID '4E2EB65900E0'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 4E2EB65900E0
<<uses>> "535FD3C500CA"
%UID '535FD3C500CA'
%TARGET U$ '4E2EB63802EC' /* Tk2In64Converter */
; // 535FD3C500CA
; // %LINKS
; // k2Int64Holder
ABSTRACT <<SimpleClass>> Tk2Tag
%UID '5319C00B0313'
%DOCUMENTATION 'Базовый тег'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '534572370056' /* Tl3Tag */
; // %INHERITS
%OVERRIDES
U$ '532AE8F2009A' /* GetIsOrd */
; // %OVERRIDES
; // Tk2Tag
ABSTRACT <<SimpleClass>> Tk2NotStructuredTag
%UID '533E8F8D0334'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '5346BD53015A' /* Il3TagRef */
; // %IMPLEMENTS
%INHERITS
U$ '5319C00B0313' /* Tk2Tag */
; // %INHERITS
%OVERRIDES
U$ '53568FCA01E8' /* GetAsRef */
; // %OVERRIDES
%LINKS
<<uses>> "533E8FAC0008"
%UID '533E8FAC0008'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 533E8FAC0008
; // %LINKS
; // Tk2NotStructuredTag
FINAL <<UtilityPack>> k2BaseStruct
%UID '4A65EFB60037'
%DOCUMENTATION 'Базовые структуры'
%META
%upv "author" 'Люлин А.В.'
%upv "no hands" true
%upv "started" '21.07.2009 20:41'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<StaticObject>> _PropInPrim_
%UID '4C6E40E20351'
%META
%upv "not treat as record for XE4" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%ATTRIBUTES
FINAL <<Attribute>> rProp
%UID '4A65F01E03A7'
%TARGET U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // rProp
FINAL <<Attribute>> rDeleteMapped
%UID '4A65F06A03D3'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rDeleteMapped
; // %ATTRIBUTES
; // _PropInPrim_
<<StaticObject>> _PropIn_
%UID '49A5458C0335'
%META
%upv "not treat as record for XE4" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4C6E40E20351' /* _PropInPrim_ */
; // %INHERITS
%ATTRIBUTES
FINAL <<Attribute>> rOp
%UID '4A65F04C03B8'
%TARGET U$ '4A51CF380145' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // rOp
; // %ATTRIBUTES
; // _PropIn_
<<StaticObject>> _PropLoc_
%UID '4C6D266E0110'
%META
%upv "not treat as record for XE4" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '4C6E40E20351' /* _PropInPrim_ */
; // %INHERITS
%ATTRIBUTES
FINAL <<Attribute>> rOp
%UID '4C6E412701F8'
%TARGET U$ '46A608F00301' /* Pointer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rOp
; // %ATTRIBUTES
; // _PropLoc_
<<StaticObject>> Tk2Values
%UID '4761470401C1'
%DOCUMENTATION 'Структура, содержащая информацию для изменения значения атрибута тега'
%META
%upv "not treat as record for XE4" 'undefined'
%upv "packed" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "4A66D02401DE"
%UID '4A66D02401DE'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
; // 4A66D02401DE
<<uses>> "4A66EA210230"
%UID '4A66EA210230'
%TARGET U$ '48AC2BDA0309' /* PObject */
; // 4A66EA210230
<<uses>> "4A6724AD03D3"
%UID '4A6724AD03D3'
%TARGET U$ '4773DED9004C' /* Tl3_String */
; // 4A6724AD03D3
<<uses>> "532706EA01D1"
%UID '532706EA01D1'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 532706EA01D1
; // %LINKS
%ATTRIBUTES
PRIVATE <<Attribute>> f_New
%UID '4761470E00E7'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_New
<<Attribute>> rOld
%UID '476147170238'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // rOld
PRIVATE <<Attribute>> f_Tag
%UID '4761471F03C4'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Tag
PRIVATE FINAL <<Attribute>> f_Type
%UID '4A66D53E01F9'
%TARGET U$ '4A4DE5000202' /* Tk2TypePrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Type
PRIVATE FINAL <<Attribute>> f_Prop
%UID '4A66D702006C'
%TARGET U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Prop
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Operation>> Init
%UID '4A66CDFD01D5'
%DOCUMENTATION 'Инициализирует структуру'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '4A66CE3F015F'
%TARGET U$ '49A5458C0335' /* _PropIn_ */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<in>> aValue
%UID '4A66CE3F0196'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aValue
<<in>> aTag
%UID '4A66CE3F01D4'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // Init
FINAL <<Operation>> Free
%UID '4A66CE450382'
%DOCUMENTATION 'Освобождает структуру'
; // Free
FINAL <<Operation>> rTag
%UID '4A66CE690051'
%DOCUMENTATION 'Тег, у которого меняется значение'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // rTag
FINAL <<Operation>> SetRef
%UID '4A66D08A002D'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<inout>> aRef
%UID '5323295D00E0'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aRef
; // %PARAMETERS
; // SetRef
FINAL <<Operation>> CheckSort
%UID '4A66D64202A4'
%DOCUMENTATION 'Проверяет сортировку значения'
; // CheckSort
FINAL <<Operation>> rNew
%UID '4A66E6890392'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // rNew
FINAL <<Operation>> IsNull
%UID '4A66EE0B0274'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // IsNull
FINAL <<Operation>> SetOwner
%UID '4A66F06E0292'
%DOCUMENTATION 'Устанавливает новому значению владельца'
; // SetOwner
FINAL <<Operation>> IsChanged
%UID '4A66F68F03AC'
%DOCUMENTATION 'Значение изменилось'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // IsChanged
; // %OPERATIONS
; // Tk2Values
; // %CHILDREN
; // k2BaseStruct
FINAL <<UtilityPack>> k2OpMisc
%UID '48CF8F160109'
%DOCUMENTATION 'Утилитные методы для работы с пачками операций'
%META
%upv "author" 'Люлин А.В.'
%upv "no hands" false
%upv "started" '19.09.2001 18:44'
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "48CF920E0104"
%UID '48CF920E0104'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 48CF920E0104
; // %LINKS
%OPERATIONS
FINAL <<Operation>> k2StartOp$48CF8F3C02C9
%UID '48CF8F3C02C9'
%DOCUMENTATION 'открывает пачку операций. aProcessorSource может поддерживать Il3Processor'
%TARGET U$ '469F7AC50332' /* Il3OpPack */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProcessorSource
%UID '48CF8F500217'
%TARGET U$ '46A451250363' /* IUnknown */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aProcessorSource
<<in>> anOpCode
%UID '48CF8F50027A'
%TARGET U$ '46A606AC03B2' /* Integer */
%VALUE 0
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anOpCode
; // %PARAMETERS
; // k2StartOp$48CF8F3C02C9
FINAL <<Operation>> k2StartOp$48CF8F6103E5
%UID '48CF8F6103E5'
%DOCUMENTATION 'открывает пачку операций. aProcessorSource может поддерживать Il3Processor'
%TARGET U$ '469F7AC50332' /* Il3OpPack */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProcessor
%UID '48CF8F7803CF'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
<<in>> anOpCode
%UID '48CF8F79002A'
%TARGET U$ '46A606AC03B2' /* Integer */
%VALUE 0
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anOpCode
; // %PARAMETERS
; // k2StartOp$48CF8F6103E5
FINAL <<Operation>> k2Proc
%UID '48CF8F8B0388'
%DOCUMENTATION 'возвращает процессор операций в контексте которого выполняется данная пачка или nil - если пачка = nil'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOp
%UID '48CF8F9702AC'
%TARGET U$ '469F7AC50332' /* Il3OpPack */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // anOp
; // %PARAMETERS
; // k2Proc
; // %OPERATIONS
; // k2OpMisc
<<SimpleClass>> Tk2AtomWrapPrim
%UID '4E2EACA20384'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '26.07.2011 16:02'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '5319E8FF0107' /* Tl3DataContainerWithoutIUnknownPrim */
; // %INHERITS
; // Tk2AtomWrapPrim
<<SimpleClass>> Tk2SortTagsListPrim
%UID '4DDA75CE02A8'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '23.05.2011 18:57'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B5786C033A' /* l3RefList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B07CF403D0' /* IsSameItems */
U$ '47B2C42A0163' /* AssignItem */
U$ '47B935AF0066' /* FillItem */
U$ '47B94A5C006E' /* FreeItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '4DDA7624019F'
%TARGET U$ '4727223D039C' /* TLongArray */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2SortTagsListPrim
<<SimpleClass>> Tk2SortTagsList
%UID '4DDA76400330'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "singleton" true
%upv "started" '23.05.2011 18:59'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '4DDA75CE02A8' /* Tk2SortTagsListPrim */
; // %INHERITS
%OPERATIONS
SUMMONED FINAL <<static>> Exists
%UID '9D6A7C80D263'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
; // Tk2SortTagsList
FINAL <<UtilityPack>> k2Base
%UID '47AC6F0B025E'
%DOCUMENTATION 'Базовые классы библиотеки K-2.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "no hands" false
%upv "started" '12.04.1998 11:28'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "47B9B8180217"
%UID '47B9B8180217'
%TARGET U$ '47B9B7A5038E' /* Tk2PropSorter */
; // 47B9B8180217
<<uses>> "49A69B9701B5"
%UID '49A69B9701B5'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 49A69B9701B5
<<uses>> "4DDA768002F8"
%UID '4DDA768002F8'
%TARGET U$ '4DDA76400330' /* Tk2SortTagsList */
; // 4DDA768002F8
; // %LINKS
%OPERATIONS
FINAL <<method>> k2NullTag
%UID '4CB46C85024E'
%OPERATIONS
SUMMONED FINAL <<Operation>> DoIt
%UID 'BCE130EC002F'
%DOCUMENTATION 'Сигнатура метода k2NullTag'
; // DoIt
; // %OPERATIONS
; // k2NullTag
; // %OPERATIONS
%CHILDREN
ABSTRACT <<SimpleClass>> Tk2CustomProperty
%UID '47AC6F6A00FA'
%DOCUMENTATION 'Базовый класс для описания свойства тега.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '12.04.1998 11:28'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
; // %INHERITS
%REALIZES
U$ '4A4DF48F02F1' /* EmptyMapping */
U$ '4A4DF4D90012' /* ReadOnly */
U$ '4A4DF71B035B' /* MappingTarget */
U$ '4A4DF88301A2' /* DefaultValue */
; // %REALIZES
; // Tk2CustomProperty
<<SimpleClass>> Tk2Property
%UID '47AC704D0151'
%DOCUMENTATION 'Описание свойства тега.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '12.04.1998 11:28'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC6F6A00FA' /* Tk2CustomProperty */
; // %INHERITS
%ATTRIBUTES
PRIVATE <<Attribute>> f_EmptyMapping
%UID '47AC706F00DD'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_EmptyMapping
PRIVATE <<Attribute>> f_DefaultValue
%UID '47AC70780334'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_DefaultValue
PRIVATE <<Attribute>> f_MappingTarget
%UID '47AC708403D4'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_MappingTarget
PRIVATE <<Attribute>> f_ReadOnly
%UID '47AC709103A9'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_ReadOnly
; // %ATTRIBUTES
; // Tk2Property
<<SimpleClass>> Tk2Type
%UID '47AC723D02DC'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4BC46A770394' /* Tk2TypeModelPart */
; // %INHERITS
; // Tk2Type
<<SimpleClass>> Tk2ChildrenProperty
%UID '47AC71E002CD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC6F6A00FA' /* Tk2CustomProperty */
; // %INHERITS
%ATTRIBUTES
PRIVATE <<Attribute>> f_ChildType
%UID '47AC72AF0252'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_ChildType
PRIVATE <<Attribute>> f_DefaultChildType
%UID '47AC72BD007B'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_DefaultChildType
PRIVATE <<Attribute>> f_StoredChild
%UID '47AC72C50086'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_StoredChild
PRIVATE <<Attribute>> f_SortIndex
%UID '47AC72CF00F7'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_SortIndex
PRIVATE <<Attribute>> f_Duplicates
%UID '47AC72E403A3'
%TARGET U$ '47614B2901AE' /* Tl3Duplicates */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Duplicates
; // %ATTRIBUTES
; // Tk2ChildrenProperty
<<SimpleClass>> Wk2Atom
%UID '484CCCFF00D7'
%DOCUMENTATION 'Инструмент для реализации операций с тегами.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '12.04.1998 11:28'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4E2EACA20384' /* Tk2AtomWrapPrim */
; // %INHERITS
%OPERATIONS
<<method>> ForceStore
%UID '4CED2E7E010A'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4CED2E8E011D'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4CED2E970193'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // ForceStore
<<method>> MarkModified
%UID '4CEE5D3002FC'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4CEE5D4D0319'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4CEE5D59023F'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // MarkModified
PROTECTED <<Operation>> AsString
%UID '484CCE970073'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> A
%UID '484CCEB40213'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // A
; // %PARAMETERS
; // AsString
PROTECTED <<Operation>> StrToTag
%UID '484CCEBC00DC'
%TARGET U$ '534572370056' /* Tl3Tag */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aValue
%UID '484CCEC90059'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aValue
; // %PARAMETERS
; // StrToTag
PROTECTED <<Operation>> ObjToTag
%UID '484CEAD301AE'
%TARGET U$ '5346BD53015A' /* Il3TagRef */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aValue
%UID '484CEAE203D0'
%TARGET U$ '4807745602C8' /* TObject */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aValue
; // %PARAMETERS
; // ObjToTag
PROTECTED <<Operation>> GetAtomData
%UID '4857A995029E'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> AE
%UID '4857A9B300B3'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // AE
<<in>> aProp
%UID '48DD0D440310'
%TARGET U$ '47AC6F6A00FA' /* Tk2CustomProperty */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<out>> Data
%UID '4857A9B30123'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Data
; // %PARAMETERS
; // GetAtomData
PROTECTED <<Operation>> PreGetAtomData
%UID '48DD0CE60313'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> AE
%UID '48DD0D03034A'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // AE
<<in>> aProp
%UID '48DD0D030387'
%TARGET U$ '47AC6F6A00FA' /* Tk2CustomProperty */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<out>> Data
%UID '48DD0D0303C3'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Data
; // %PARAMETERS
; // PreGetAtomData
; // %OPERATIONS
; // Wk2Atom
<<Typedef>> Tk2CustomPropertyPrim
%UID '4A4DED0E0185'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5850182' /* Tk2CustomPropertyPrim */
; // %INHERITS
%REALIZES
U$ '4A4DF48F02F1' /* EmptyMapping */
U$ '4A4DF4D90012' /* ReadOnly */
U$ '4A4DF71B035B' /* MappingTarget */
U$ '4A4DF88301A2' /* DefaultValue */
; // %REALIZES
; // Tk2CustomPropertyPrim
<<Typedef>> Tk2TypePrim
%UID '4A4DEF99035E'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE5000202' /* Tk2TypePrim */
; // %INHERITS
; // Tk2TypePrim
<<Typedef>> Tk2Base
%UID '4A4DFFD10018'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4DE0BF039E' /* Tk2Base */
; // %INHERITS
%REALIZES
U$ '4A4DE5340236' /* TagType */
; // %REALIZES
; // Tk2Base
<<SimpleClass>> Tk2TypeTable
%UID '4A4E24A103BD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A4E1F7A029F' /* Tk2TypeTablePrim */
; // %INHERITS
; // Tk2TypeTable
<<Typedef>> Tk2Prop
%UID '4A522D130096'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC6F6A00FA' /* Tk2CustomProperty */
; // %INHERITS
; // Tk2Prop
<<Typedef>> Tk2ArrayProperty
%UID '4A52F6A303E6'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC71E002CD' /* Tk2ChildrenProperty */
; // %INHERITS
; // Tk2ArrayProperty
; // %CHILDREN
; // k2Base
ABSTRACT <<SimpleClass>> Tk2SpecialTag
%UID '53316B3302AD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '533E8F8D0334' /* Tk2NotStructuredTag */
; // %INHERITS
; // Tk2SpecialTag
<<SimpleClass>> Tk2TypesByHandleList
%UID '5273AB0F00C2'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4B86890E0307' /* l3OpenArray */
; // %IMPLEMENTS
%INHERITS
U$ '47B992F60244' /* l3UnrefcountedList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '5273AB3D0130'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> l3Items_NoSort
%UID '5273AB82035F'
; // l3Items_NoSort
; // %CHILDREN
; // Tk2TypesByHandleList
ABSTRACT <<SimpleClass>> Tk2ToolPrim
%UID '47F5DAEB0007'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47913BA402ED' /* IUnknown$Def */
; // %IMPLEMENTS
%INHERITS
U$ '5319C00B0313' /* Tk2Tag */
; // %INHERITS
%OVERRIDES
U$ '47A6FEE600FC' /* IsCacheable */
U$ '531EEB8503AE' /* AfterFree */
; // %OVERRIDES
%OPERATIONS
<<virtualmethod>> Assign
%UID '52BC1DD60298'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '52BC1DF40109'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Source
%UID '52BC1DF9020E'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Source
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Assign
<<static>> StoreToOldCache
%UID '49DF4E12001A'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // StoreToOldCache
ABSTRACT <<Operation>> SetTagQT
%UID '49E75FA4010C'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '49E75FAA016F'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // SetTagQT
; // %OPERATIONS
; // Tk2ToolPrim
FINAL <<UtilityPack>> k2InterfaceList
%UID '531EF67F0065'
%META
%upv "no hands" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<StaticObject>> Tk2InterfaceList
%UID '531EF6900385'
%META
%upv "not treat as record for XE4" true
%upv "packed" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%ATTRIBUTES
PRIVATE FINAL <<Attribute>> f_I
%UID '531EF69E00B5'
%TARGET U$ '531EF65F00CE' /* Tl3ObjectHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_I
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> Clear
%UID '531EF6EA02E5'
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '531EF6F0020D'
; // DoIt
; // %OPERATIONS
; // Clear
FINAL <<Operation>> SetItem
%UID '531EF6B6000A'
%TARGET U$ '48AC2BDA0309' /* PObject */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531EF6BF0253'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
<<in>> Item
%UID '531EF6BF0281'
%TARGET U$ '49E7754802A9' /* Tl3ProtoObject */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Item
; // %PARAMETERS
; // SetItem
FINAL <<Operation>> GetItemP
%UID '531EF6C7030B'
%TARGET U$ '48AC2BDA0309' /* PObject */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531EF6DE0018'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
; // %PARAMETERS
; // GetItemP
FINAL <<Operation>> GetItem
%UID '531EF6D10264'
%TARGET U$ '47BC391D0259' /* Tl3SimpleObject */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531EF6D800DE'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
; // %PARAMETERS
; // GetItem
; // %OPERATIONS
; // Tk2InterfaceList
; // %CHILDREN
; // k2InterfaceList
FINAL <<UtilityPack>> k2InterfaceCache
%UID '531EF71800F9'
%META
%upv "no hands" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%LINKS
<<uses>> "531EFB0E0094"
%UID '531EFB0E0094'
%TARGET U$ '531EFB040349' /* Tk2ToolCacheList */
; // 531EFB0E0094
<<uses>> "53231CA7021B"
%UID '53231CA7021B'
%TARGET U$ '53231C5401CE' /* Tk2ToolPrimList */
; // 53231CA7021B
; // %LINKS
%CHILDREN
<<StaticObject>> Tk2InterfaceCache
%UID '531EF73702F9'
%META
%upv "not treat as record for XE4" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '531EF6900385' /* Tk2InterfaceList */
; // %INHERITS
%LINKS
<<uses>> "531EFD7901F7"
%UID '531EFD7901F7'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 531EFD7901F7
<<uses>> "531EFF0300DC"
%UID '531EFF0300DC'
%TARGET U$ '49E7754802A9' /* Tl3ProtoObject */
; // 531EFF0300DC
<<uses>> "531EFF0D00F4"
%UID '531EFF0D00F4'
%TARGET U$ '4CE521C80107' /* Tl3ProtoObjectRefList */
; // 531EFF0D00F4
; // %LINKS
%OPERATIONS
FINAL <<Operation>> GetInterface
%UID '531EF76E016B'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531EF77500AA'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
; // %PARAMETERS
; // GetInterface
FINAL <<Operation>> SetInterface
%UID '531EF77E0278'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531EF785022A'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
<<in>> Item
%UID '531EF785025A'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Item
; // %PARAMETERS
; // SetInterface
FINAL <<Operation>> IterateInterfaces
%UID '531EF7920193'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531EF79A0311'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
<<in>> Action
%UID '531EF79A0339'
%TARGET U$ '469FA03900D4' /* Tl3IteratorAction */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Action
; // %PARAMETERS
; // IterateInterfaces
; // %OPERATIONS
; // Tk2InterfaceCache
; // %CHILDREN
; // k2InterfaceCache
<<SimpleClass>> Tk2ToolPrimList
%UID '53231C5401CE'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '53231C0A0224'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2ToolPrimList
<<SimpleClass>> Tk2InterfaceFactory
%UID '4D63C2420229'
%DOCUMENTATION 'Фабрика "старых" интерфейсов. Для поддержки старого кода, без настоящих интерфейсов.'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '531F0A600173' /* Mk2InterfaceFactory */
; // %IMPLEMENTS
%INHERITS
U$ '47BC391D0259' /* Tl3SimpleObject */
; // %INHERITS
%REALIZES
U$ '4BCC45AA02CE' /* IterateCursors */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '5000565C019C' /* ClearFields */
; // %OVERRIDES
%LINKS
<<uses>> "53230C5A0220"
%UID '53230C5A0220'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
; // 53230C5A0220
<<uses>> "53230C650192"
%UID '53230C650192'
%TARGET U$ '467C185C03E7' /* Tk2TagPointer */
; // 53230C650192
; // %LINKS
%ATTRIBUTES
FINAL <<readonly>> Interfaces
%UID '531F026302AE'
%TARGET U$ '531EF73702F9' /* Tk2InterfaceCache */
%META
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Interfaces
SUMMONED PRIVATE <<Attribute>> f_Interfaces
%UID 'B73796882343'
%DOCUMENTATION 'Поле для свойства Interfaces'
%TARGET U$ '531EF73702F9' /* Tk2InterfaceCache */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Interfaces
; // %ATTRIBUTES
%OPERATIONS
<<virtualmethod>> QueryTool
%UID '4D63D26D033F'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4D63D285008E'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4D63D29902FC'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> ID
%UID '4D63D299031F'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
<<out>> I
%UID '4D63D299033B'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // I
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // QueryTool
FINAL <<method>> LoadTool
%UID '531F02030218'
%DOCUMENTATION 'загрузить инструмент'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '531F02190008'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531F021E029E'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // LoadTool
FINAL <<method>> StoreTool
%UID '531F022801F6'
%DOCUMENTATION 'сохранить инструмент'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '531F02400374'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> ID
%UID '531F0245032D'
%TARGET U$ '478CF8A20368' /* Tl3IID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // ID
<<in>> I
%UID '531F0245034C'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // I
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // StoreTool
PROTECTED <<virtualmethod>> COMQueryTool
%UID '53CCBDA5026D'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53CCBDC802F7'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '53CCBE2D0215'
%TARGET U$ '534572370056' /* Tl3Tag */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> aIID
%UID '53CCBE2D0248'
%TARGET U$ '478CF8F202C7' /* Tl3GUID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // aIID
<<out>> theTool
%UID '53CCBE2D0266'
; // theTool
<<in>> aProcessor
%UID '53CCBE2D0282'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // COMQueryTool
PROTECTED <<virtualmethod>> PreCOMQueryTool
%UID '53D8E1970262'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53D8E1A802F0'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '53D8E1AC0094'
%TARGET U$ '534572370056' /* Tl3Tag */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> aIID
%UID '53D8E1AC00BA'
%TARGET U$ '478CF8F202C7' /* Tl3GUID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // aIID
<<out>> theTool
%UID '53D8E1AC00D8'
; // theTool
<<in>> aProcessor
%UID '53D8E1AC00F8'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // PreCOMQueryTool
FINAL <<Operation>> QueryToolN
%UID '469F9954029C'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4767B44A03B5'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> IID
%UID '4767B44B0009'
%TARGET U$ '4678150B0111' /* TGUID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // IID
<<out>> Tool
%UID '469F997F0103'
; // Tool
<<in>> aProcessor
%UID '4767B44B0045'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // QueryToolN
FINAL <<Operation>> Iterate
%UID '47678ABF00C1'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Tag
%UID '47678ACA00A1'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Tag
<<in>> Action
%UID '47678ACA00CF'
%TARGET U$ '469FA03900D4' /* Tl3IteratorAction */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Action
; // %PARAMETERS
; // Iterate
; // %OPERATIONS
%CHILDREN
<<Typedef>> Rk2InterfaceFactory
%UID '531F029E00DD'
%META
%upv "isClassRef" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4D63C2420229' /* Tk2InterfaceFactory */
; // %INHERITS
; // Rk2InterfaceFactory
; // %CHILDREN
; // Tk2InterfaceFactory
<<SimpleClass>> Tk2ChildrenPath
%UID '531F1D190024'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '49E7754802A9' /* Tl3ProtoObject */
; // %INHERITS
%ATTRIBUTES
FINAL <<readonly>> Path
%UID '531F1D3F0337'
%TARGET U$ '4727223D039C' /* TLongArray */
%META
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Path
FINAL <<readonly>> TagType
%UID '531F22B10354'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // TagType
SUMMONED PRIVATE <<Attribute>> f_Path
%UID '00F993557C52'
%DOCUMENTATION 'Поле для свойства Path'
%TARGET U$ '4727223D039C' /* TLongArray */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Path
SUMMONED PRIVATE <<Attribute>> f_TagType
%UID '2518EBE1B3F0'
%DOCUMENTATION 'Поле для свойства TagType'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_TagType
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '531F1FA70253'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '531F1FB60000'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagType
%UID '531F1FD20281'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aTagType
<<in>> aPath
%UID '531F1FD202D7'
%TARGET U$ '4727223D039C' /* TLongArray */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aPath
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
; // %OPERATIONS
; // Tk2ChildrenPath
<<SimpleClass>> Tk2ChildrenPathListPrim
%UID '47BD505E0344'
%META
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '5319E8FF0107' /* Tl3DataContainerWithoutIUnknownPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%LINKS
<<uses>> "531F1F920291"
%UID '531F1F920291'
%TARGET U$ '531F1D190024' /* Tk2ChildrenPath */
; // 531F1F920291
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '531F22CC038C'
%TARGET U$ '531F1D190024' /* Tk2ChildrenPath */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2ChildrenPathListPrim
<<SimpleClass>> Tk2ChildrenPathList
%UID '47BAB0450293'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47B47E230134' /* l3Searcher */
; // %IMPLEMENTS
%INHERITS
U$ '47BD505E0344' /* Tk2ChildrenPathListPrim */
; // %INHERITS
%OVERRIDES
U$ '47B9BAFD01F4' /* CompareItemWithData */
; // %OVERRIDES
%LINKS
<<uses>> "531F1F97005A"
%UID '531F1F97005A'
%TARGET U$ '531F1D190024' /* Tk2ChildrenPath */
; // 531F1F97005A
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> FindDataType
%UID '47BAB07F0247'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // FindDataType
; // %ATTRIBUTES
; // Tk2ChildrenPathList
<<Impurity>> k2TagHolder
%UID '4A573C5F01FF'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '10.07.2009 17:04'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A5CB93700CF' /* Ml3Unknown */
; // %IMPLEMENTS
%OVERRIDES
U$ '479731C50290' /* Cleanup */
; // %OVERRIDES
%LINKS
<<uses>> "533ED145031E"
%UID '533ED145031E'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 533ED145031E
<<uses>> "533ED59300CF"
%UID '533ED59300CF'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 533ED59300CF
; // %LINKS
%ATTRIBUTES
PROTECTED <<property>> Redirect
%UID '533ED10E0160'
%TARGET U$ '532031160122' /* Tl3Variant */
%META
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Redirect
SUMMONED PRIVATE <<Attribute>> f_Redirect
%UID 'F8F0E0718D2C'
%DOCUMENTATION 'Поле для свойства Redirect'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Redirect
; // %ATTRIBUTES
; // k2TagHolder
<<Impurity>> k2DoQT
%UID '4D0A3CA401E0'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '16.12.2010 19:33'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '532878C00034' /* Ml3VariantMirror */
; // %IMPLEMENTS
%OVERRIDES
U$ '532C4D4102D8' /* DoQT */
; // %OVERRIDES
%LINKS
<<uses>> "5322E968026F"
%UID '5322E968026F'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
; // 5322E968026F
<<uses>> "5322F1E80267"
%UID '5322F1E80267'
%TARGET U$ '4D63C2420229' /* Tk2InterfaceFactory */
; // 5322F1E80267
; // %LINKS
; // k2DoQT
<<Impurity>> k2TagBox
%UID '48CF9748004F'
%DOCUMENTATION 'Реализация инструмента, работающего с тегами'
%META
%upv "author" 'Люлин А.В.'
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '20.04.2005 19:29'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4BC7152A02CE' /* Mk2IntegerHolder */
U$ '4D0A3CA401E0' /* k2DoQT */
U$ '5346BD53015A' /* Il3TagRef */
; // %IMPLEMENTS
%INHERITS
U$ '4E2EA99702A7' /* k2Int64Holder */
; // %INHERITS
%OVERRIDES
U$ '47612DD0012B' /* AssignTag */
U$ '47612DF00301' /* CloneTag */
U$ '47612E530082' /* AssignCloneParams */
U$ '4761324203B8' /* WriteTag */
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '48CF96D80241' /* DoIterateChildrenF */
U$ '49A545D501F6' /* DoIterateProperties */
U$ '4A42358A00C2' /* InsertChildTag */
U$ '4A4235B70288' /* IndexOfChild */
U$ '4A42378D0030' /* DeleteChildren */
U$ '4BC8415802B6' /* CompareWithInt */
U$ '4BC8415E021A' /* CompareWithTag */
U$ '4BC843C40240' /* rOwnAtom */
U$ '4BC84CF702F5' /* GetLinkedInterface */
U$ '4C6CE735026E' /* DeleteChildPrim */
U$ '4C6D1C29031F' /* DoMarkModified */
U$ '4CEFA0BA0233' /* DoDoLoad */
U$ '5081632303E6' /* DoIterateChildrenBack */
U$ '530B20AC019A' /* GetIsStream */
U$ '5321B9DF011A' /* DoForceStore */
U$ '5326D7B603A3' /* GetAsLong */
U$ '5327E77D0084' /* GetIsNull */
U$ '5327E7AA01F1' /* GetIsTransparent */
U$ '5329CD1A020E' /* GetAsString */
U$ '532AD5480329' /* DoGetHasSubAtom */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '532C4D4102D8' /* DoQT */
U$ '532FFF230250' /* GetAsBox */
U$ '533069050153' /* DoSetRef */
U$ '533121AF0203' /* GetTagType */
U$ '5331961F0280' /* SetAttr */
U$ '53319C270138' /* GetAttr */
U$ '5331B00B02DD' /* SetBoolAttr */
U$ '5332CD8801A6' /* SetIntAttr */
U$ '5332FB8403B6' /* SetWStrAttr */
U$ '53343980014A' /* TagOwner */
U$ '5335815D03DC' /* ChildrenCount */
U$ '533581770377' /* ChildrenCapacity */
U$ '53358545012C' /* ChildPrim */
U$ '533D587B0359' /* DoAddChild */
U$ '533D6FD80051' /* CheckAttr */
U$ '533D791300DA' /* DoCAtom */
U$ '53568FCA01E8' /* GetAsRef */
; // %OVERRIDES
%LINKS
<<uses>> "533ED5A2002E"
%UID '533ED5A2002E'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 533ED5A2002E
; // %LINKS
%OPERATIONS
FINAL <<method>> GetRedirect
%UID '53219B250295'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53219B3602E5'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // GetRedirect
; // %OPERATIONS
%CHILDREN
PRIVATE FINAL <<SimpleClass>> Tl3HackVariant
%UID '5335A6B600BD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '532031160122' /* Tl3Variant */
; // %INHERITS
; // Tl3HackVariant
; // %CHILDREN
; // k2TagBox
ABSTRACT <<SimpleClass>> Tk2TagPointer
%UID '467C185C03E7'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '467818280149' /* Ik2TagListener */
U$ '467818430333' /* Ik2TagTool */
U$ '48CF9748004F' /* k2TagBox */
; // %IMPLEMENTS
%INHERITS
U$ '47F5DAEB0007' /* Tk2ToolPrim */
U$ '4A573C5F01FF' /* k2TagHolder */
; // %INHERITS
%REALIZES
U$ '4761446F0081' /* Fire */
U$ '476144C702AA' /* ExcludeEvents */
U$ '476145AF00A8' /* ParentTool */
U$ '49E75FA4010C' /* SetTagQT */
; // %REALIZES
%OVERRIDES
U$ '532FFF230250' /* GetAsBox */
; // %OVERRIDES
%OPERATIONS
PROTECTED <<Operation>> ClearTagCache
%UID '48CE74A10014'
; // ClearTagCache
PROTECTED <<Operation>> DoFire
%UID '48CF73CE00B5'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anEvent
%UID '48CF73E200F9'
%TARGET U$ '469F9F0B01D4' /* Tk2Event */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anEvent
<<in>> anOp
%UID '48CF73E2011C'
%TARGET U$ '4A51CF380145' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOp
; // %PARAMETERS
; // DoFire
PROTECTED <<Operation>> ClearParents
%UID '48CFBCF803B3'
; // ClearParents
PROTECTED <<Operation>> GetParentTool
%UID '48D0BC9401DB'
%TARGET U$ '467818430333' /* Ik2TagTool */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetParentTool
PROTECTED <<Operation>> GetExcludeEvents
%UID '48D0F4810330'
%TARGET U$ '469F9ED501CC' /* Tk2EventIDs */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetExcludeEvents
<<vctor>> Create
%UID '4A3F4707018A'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4A3F470C0178'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // Create
PROTECTED <<Operation>> NeedEvents
%UID '4A48AFBD001D'
%DOCUMENTATION 'Нужно ли подписываться на события тегов'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedEvents
PROTECTED <<Operation>> TagChanged
%UID '4E3A40FC010F'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aNew
%UID '508AD8D70039'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aNew
; // %PARAMETERS
; // TagChanged
<<static>> Make
%UID '52F20C1F00D4'
%TARGET U$ '467818430333' /* Ik2TagTool */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '533ED0D800D8'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // Make
; // %OPERATIONS
; // Tk2TagPointer
<<SimpleClass>> Tk2NullTagImplPrim
%UID '49A69B87036C'
%DOCUMENTATION 'Реализация пустого тега'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '12.04.1998 11:28'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4E2EA99702A7' /* k2Int64Holder */
; // %IMPLEMENTS
%INHERITS
U$ '53316B3302AD' /* Tk2SpecialTag */
; // %INHERITS
%OVERRIDES
U$ '47612DF00301' /* CloneTag */
U$ '47A6FEE600FC' /* IsCacheable */
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '48CF96D80241' /* DoIterateChildrenF */
U$ '49A545D501F6' /* DoIterateProperties */
U$ '4BC843C40240' /* rOwnAtom */
U$ '4C6D1C29031F' /* DoMarkModified */
U$ '5327E77D0084' /* GetIsNull */
U$ '5329CD1A020E' /* GetAsString */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '533121AF0203' /* GetTagType */
U$ '53319C270138' /* GetAttr */
U$ '53343980014A' /* TagOwner */
U$ '5335815D03DC' /* ChildrenCount */
U$ '533D6FD80051' /* CheckAttr */
; // %OVERRIDES
%LINKS
<<uses>> "49A69BA10393"
%UID '49A69BA10393'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49A69BA10393
<<uses>> "49A6A04801FC"
%UID '49A6A04801FC'
%TARGET U$ '49A6A0110126' /* Strings */
; // 49A6A04801FC
<<uses>> "49A6A77E023D"
%UID '49A6A77E023D'
%TARGET U$ '47878E0E0191' /* l3String */
; // 49A6A77E023D
<<uses>> "49AEACD9016B"
%UID '49AEACD9016B'
%TARGET U$ '47AC83780196' /* "Exception Messages" */
; // 49AEACD9016B
<<uses>> "5266A8A3012B"
%UID '5266A8A3012B'
%TARGET U$ '5266A6750356' /* Empty */
; // 5266A8A3012B
; // %LINKS
; // Tk2NullTagImplPrim
<<SimpleClass>> Tk2ToolCacheList
%UID '531EFB040349'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '53231C5401CE' /* Tk2ToolPrimList */
; // %INHERITS
%LINKS
<<uses>> "531EFE9F030C"
%UID '531EFE9F030C'
%TARGET U$ '4773D64E036C' /* l3Base */
; // 531EFE9F030C
; // %LINKS
%OPERATIONS
FINAL <<Operation>> GetFree
%UID '531EFB1C03E0'
%TARGET U$ '47F5DAEB0007' /* Tk2ToolPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetFree
; // %OPERATIONS
; // Tk2ToolCacheList
<<SimpleClass>> Tk2NullTagImpl
%UID '49A6ABFB02BA'
%DOCUMENTATION 'Реализация пустого тега'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "singleton" true
%upv "started" '26.02.2009 17:50'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '49A69B87036C' /* Tk2NullTagImplPrim */
; // %INHERITS
%OPERATIONS
SUMMONED FINAL <<static>> Exists
%UID '4F4198B9BC35'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
; // Tk2NullTagImpl
<<SimpleClass>> Tk2TransparentTag
%UID '49C906E203A1'
%DOCUMENTATION 'Прозрачное значение тега'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '24.03.2009 19:15'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4E2EA99702A7' /* k2Int64Holder */
; // %IMPLEMENTS
%INHERITS
U$ '53316B3302AD' /* Tk2SpecialTag */
; // %INHERITS
%OVERRIDES
U$ '47612DF00301' /* CloneTag */
U$ '47A6FEE600FC' /* IsCacheable */
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '48CF96D80241' /* DoIterateChildrenF */
U$ '49A545D501F6' /* DoIterateProperties */
U$ '4BC843C40240' /* rOwnAtom */
U$ '4C6D1C29031F' /* DoMarkModified */
U$ '5326D7B603A3' /* GetAsLong */
U$ '5327E7AA01F1' /* GetIsTransparent */
U$ '5329CD1A020E' /* GetAsString */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '533121AF0203' /* GetTagType */
U$ '53319C270138' /* GetAttr */
U$ '53343980014A' /* TagOwner */
U$ '5335815D03DC' /* ChildrenCount */
U$ '533D6FD80051' /* CheckAttr */
; // %OVERRIDES
%LINKS
<<uses>> "49C90A1202D2"
%UID '49C90A1202D2'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49C90A1202D2
<<uses>> "49C90B61016A"
%UID '49C90B61016A'
%TARGET U$ '47878E0E0191' /* l3String */
; // 49C90B61016A
<<uses>> "49C90C8600A6"
%UID '49C90C8600A6'
%TARGET U$ '47AC83780196' /* "Exception Messages" */
; // 49C90C8600A6
<<uses>> "49C90CD703CE"
%UID '49C90CD703CE'
%TARGET U$ '47AC7BD90281' /* "Tag Consts" */
; // 49C90CD703CE
<<uses>> "49CA59E60111"
%UID '49CA59E60111'
%TARGET U$ '47AC7CF90230' /* "L3 Core Consts" */
; // 49CA59E60111
<<uses>> "5327F357028F"
%UID '5327F357028F'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 5327F357028F
; // %LINKS
%ATTRIBUTES
PRIVATE <<Attribute>> f_Type
%UID '49C90774015F'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Type
; // %ATTRIBUTES
%OPERATIONS
FINAL <<ctor>> Create
%UID '49C907900344'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aType
%UID '49C90798010E'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // Create
; // %OPERATIONS
; // Tk2TransparentTag
ABSTRACT <<SimpleClass>> Tk2InterfaceMapper
%UID '53D6399F03E1'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
ABSTRACT <<abstractmethod>> Make
%UID '53D639B601D7'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53D639C002D7'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '53D639D000F9'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> IID
%UID '53D639D00124'
%TARGET U$ '478CF8F202C7' /* Tl3GUID */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // IID
<<out>> Tool
%UID '53D639D0013E'
; // Tool
<<in>> aProcessor
%UID '53D639D00159'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Make
; // %OPERATIONS
; // Tk2InterfaceMapper
; // %CHILDREN
; // k2PrimObjects
<<Interfaces>> k2InterfacesEx
%UID '47E37BB6016B'
%DOCUMENTATION 'Дополнительные интерфейсы.'
%DEPENDS
U$ '4678137501EA' /* k2Interfaces */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47D810610398' /* l3PureMixIns */
; // %DEPENDS
%META
%upv "author" 'Люлин А.В.'
%upv "is namespace" true
%upv "no hands" true
%upv "started" '21.03.2008 12:26'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<Facet>> Ik2TagListPrim
%UID '47E37C150366'
%DOCUMENTATION 'Список тегов.'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47D821AE00EF' /* Ml3List */
; // %IMPLEMENTS
%REALIZES
U$ '47D8233603DD' /* First */
U$ '47D823570315' /* Last */
U$ '47D8248802AD' /* Items */
U$ '47E381E203D2' /* Empty */
U$ '4BB08B8902F2' /* Count */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '47E37C2D02BA'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Ik2TagListPrim
<<Facet>> Ik2TagList
%UID '47E38876005D'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47E37C150366' /* Ik2TagListPrim */
; // %INHERITS
%REALIZES
U$ '47D8233603DD' /* First */
U$ '47D823570315' /* Last */
U$ '47D8248802AD' /* Items */
U$ '47E381E203D2' /* Empty */
U$ '4BB08B8902F2' /* Count */
; // %REALIZES
%OPERATIONS
<<Iterator>> ForEach
%UID '4BB0841A0071'
%DOCUMENTATION 'Перебирает элементы списка.'#13#10''#13#10'<!> Временно. Надо будет перенести на Ml3List.'
%META
%upv "needs index" true
%upv "needs result" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
SUMMONED <<uses>> "A1F87FABDDAD"
%UID 'A1F87FABDDAD'
%TARGET U$ '4BA7BE3B0114' /* l3LocalStub */
; // A1F87FABDDAD
; // %LINKS
%ATTRIBUTES
PRIVATE FINAL LINK <<element_type>> "4BB0842202EE"
%UID '4BB0842202EE'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // 4BB0842202EE
; // %ATTRIBUTES
; // ForEach
SUMMONED FINAL <<static>> L2_Ik2TagList_ForEach_Action
%UID 'C388E11BB806'
%DOCUMENTATION 'Функция формирования заглушки для ЛОКАЛЬНОЙ подитеративной функции для Ik2TagList.ForEach'
%TARGET U$ '1C407FA911E9' /* Ik2TagList_ForEach_Action */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> anAction
%UID 'FA7A9E0AE77E'
%TARGET U$ '3ECB343C024C' /* pointer */
; // anAction
; // %PARAMETERS
; // L2_Ik2TagList_ForEach_Action
; // %OPERATIONS
%CHILDREN
SUMMONED <<Function>> Ik2TagList_ForEach_Action
%UID '1C407FA911E9'
%DOCUMENTATION 'Тип подитеративной функции для Ik2TagList.ForEach'
%META
%upv "of object" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
SUMMONED FINAL BOOLEAN FUNCTION DoIt
%UID '4EEAAEBB16DD'
%DOCUMENTATION 'Тип подитеративной функции для Ik2TagList.ForEach'
%TARGET U$ '3DBFFE100240' /* boolean */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> anItem
%UID '01082ECE1AC7'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // anItem
SUMMONED <<in>> anIndex
%UID '01082ECE1AC8'
%TARGET U$ '3DBFFD7002C2' /* long */
; // anIndex
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Ik2TagList_ForEach_Action
; // %CHILDREN
; // Ik2TagList
; // %CHILDREN
; // k2InterfacesEx
<<Unit>> k2CoreMixins
%UID '49A5895D00AF'
%DOCUMENTATION 'Базовый примеси'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678137501EA' /* k2Interfaces */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47AC75550330' /* k2Tags */
U$ '47BB24D30205' /* "Стандартные примеси" */
U$ '49A58A1A03C4' /* k2PrimObjects */
U$ '4AB0C3C60310' /* Sys */
U$ '4BC83B8301E5' /* k2PureMixIns */
U$ '5326D70401F3' /* l3Variants */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<Impurity>> k2ParentedTagObject
%UID '47AC58810008'
%DOCUMENTATION 'Тег, имещий ссылку на родителя.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '08.02.2008 16:27'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A5CB93700CF' /* Ml3Unknown */
U$ '532878C00034' /* Ml3VariantMirror */
; // %IMPLEMENTS
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '53343980014A' /* TagOwner */
; // %OVERRIDES
%LINKS
<<uses>> "49A522310209"
%UID '49A522310209'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49A522310209
<<uses>> "532812640195"
%UID '532812640195'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 532812640195
; // %LINKS
%ATTRIBUTES
PROTECTED <<Attribute>> f_Parent
%UID '47AC6DDC0383'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Parent
; // %ATTRIBUTES
; // k2ParentedTagObject
<<Impurity>> k2OwnedTagObject
%UID '47AC6AEE0094'
%DOCUMENTATION 'Тег имеющий ссылку на владельца'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '02.12.2005 17:16'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A5CB93700CF' /* Ml3Unknown */
U$ '532878C00034' /* Ml3VariantMirror */
; // %IMPLEMENTS
%OVERRIDES
U$ '479F2B3302C1' /* BeforeAddToCache */
U$ '53343980014A' /* TagOwner */
; // %OVERRIDES
%LINKS
<<uses>> "4A4E24EF02AF"
%UID '4A4E24EF02AF'
%TARGET U$ '4A4E24A103BD' /* Tk2TypeTable */
; // 4A4E24EF02AF
<<uses>> "4A6433A502FE"
%UID '4A6433A502FE'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 4A6433A502FE
<<uses>> "53281279015E"
%UID '53281279015E'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 53281279015E
; // %LINKS
%ATTRIBUTES
PRIVATE <<Attribute>> f_Owner
%UID '4D0A3D330197'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Owner
; // %ATTRIBUTES
; // k2OwnedTagObject
; // %CHILDREN
; // k2CoreMixins
<<Unit>> Operations
%UID '47E3C64F037E'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47A1D4C201E8' /* l3Const */
U$ '47BB24D30205' /* "Стандартные примеси" */
U$ '4A4DE16302A2' /* k2Core */
U$ '4AB0C3C60310' /* Sys */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2Op
%UID '47E3C7030369'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '07.12.1999 19:05'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '46780E690001' /* Tl3CacheableBase */
; // %INHERITS
%LINKS
<<uses>> "4DD4F2D503B1"
%UID '4DD4F2D503B1'
%TARGET U$ '4DD4F2B10308' /* Tk2NilOp */
; // 4DD4F2D503B1
; // %LINKS
%OPERATIONS
<<method>> CompareWith
%UID '4DF7856D027C'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4DF78577001E'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOp
%UID '4DF785810093'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOp
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CompareWith
PROTECTED <<Operation>> CanJoinWith
%UID '47F107C80149'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOperation
%UID '47F107CE008F'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOperation
; // %PARAMETERS
; // CanJoinWith
PROTECTED <<Operation>> DoJoin
%UID '47F107DF00E6'
%DOCUMENTATION 'соединяет две операции и возвращает:'#13#10' nil - соединение неудачно'#13#10' Self - соединение удачно и все поместилось в старую запись'#13#10' New - распределена новая операция'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOperation
%UID '47F107F2015F'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOperation
; // %PARAMETERS
; // DoJoin
PROTECTED <<Operation>> DoUndo
%UID '47F1080F00E8'
%DOCUMENTATION 'отменить операцию'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Container
%UID '47F1081A03CD'
%TARGET U$ '469F7AFD0224' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Container
; // %PARAMETERS
; // DoUndo
PROTECTED <<Operation>> DoRedo
%UID '47F1082B00D0'
%DOCUMENTATION 'вернуть операцию'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Container
%UID '47F108400113'
%TARGET U$ '469F7AFD0224' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Container
; // %PARAMETERS
; // DoRedo
; // %OPERATIONS
; // Tk2Op
<<SimpleClass>> Tk2OpRefList
%UID '47E3C9C8033B'
%DOCUMENTATION 'Список операций.'
%META
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '47E3C9F40243'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2OpRefList
<<SimpleClass>> Tk2OperationContainer
%UID '47E3C78502FB'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.12.1999 19:05'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4874FD8F03E3' /* Ik2OpPackInternal */
U$ '53317DDB0223' /* Il3OpPack */
; // %IMPLEMENTS
%INHERITS
U$ '47E3C9C8033B' /* Tk2OpRefList */
; // %INHERITS
%REALIZES
U$ '46A5CE3E009A' /* MarkModified */
U$ '46A5CE5C0057' /* InvertModified */
U$ '46A5CE6A00BB' /* GetModified */
U$ '46A5CE840343' /* InUndo */
U$ '46A5CE9A03B3' /* SaveUndo */
U$ '46A5CEB0018E' /* DeleteMapped */
U$ '46A5CEC900F4' /* Optimize */
U$ '46A5CEF30267' /* InIOProcess */
U$ '46A5CF0902C3' /* Processor */
U$ '46A5D33D025C' /* Undo */
U$ '46A5D37B0247' /* Redo */
U$ '46A5D3BC0041' /* Lock */
U$ '46A5D3D101E6' /* Unlock */
U$ '4874FC1C01D2' /* Code */
U$ '4874FDA50243' /* Put */
U$ '48A4297E0341' /* CheckReadOnly */
U$ '48A564120005' /* DisableReadonly */
U$ '48A564160056' /* EnableReadOnly */
U$ '48A570180217' /* ReadOnly */
U$ '4CEBD62101DA' /* CheckOn */
U$ '4CEBD62D01E8' /* CheckOff */
U$ '4CECE9470154' /* IsCheckOff */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A042E100E2' /* InitFields */
U$ '48B2BE560115' /* BeforeFree */
; // %OVERRIDES
%LINKS
<<uses>> "48AC2AAE0317"
%UID '48AC2AAE0317'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 48AC2AAE0317
<<uses>> "48AC2C090278"
%UID '48AC2C090278'
%TARGET U$ '48AC2BDA0309' /* PObject */
; // 48AC2C090278
<<uses>> "48AC2CCD0114"
%UID '48AC2CCD0114'
%TARGET U$ '47E3C7030369' /* Tk2Op */
; // 48AC2CCD0114
<<uses>> "48AC2E4200C1"
%UID '48AC2E4200C1'
%TARGET U$ '478E35650120' /* l3IntegerValueMapManager */
; // 48AC2E4200C1
<<uses>> "48AC2FFE0133"
%UID '48AC2FFE0133'
%TARGET U$ '4773D64E036C' /* l3Base */
; // 48AC2FFE0133
<<uses>> "48B2C28C0351"
%UID '48B2C28C0351'
%TARGET U$ '47AC7CF90230' /* "L3 Core Consts" */
; // 48B2C28C0351
<<uses>> "4A6849C903BC"
%UID '4A6849C903BC'
%TARGET U$ '4754205E002C' /* Il3Progress */
; // 4A6849C903BC
<<uses>> "4DD4FB680016"
%UID '4DD4FB680016'
%TARGET U$ '4DD4F2B10308' /* Tk2NilOp */
; // 4DD4FB680016
SUMMONED <<uses>> "AE3511336825"
%UID 'AE3511336825'
%TARGET U$ '4B3B3728004C' /* Tl3StringIDEx */
; // AE3511336825
SUMMONED <<uses>> "7517FE09276F"
%UID '7517FE09276F'
%TARGET U$ '4E01D1E002AE' /* Tl3MessageID */
; // 7517FE09276F
; // %LINKS
%ATTRIBUTES
PRIVATE <<Attribute>> f_Owner
%UID '4874FE0803D1'
%TARGET U$ '4807745602C8' /* TObject */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Owner
PRIVATE <<Attribute>> f_Mode
%UID '4874FE190090'
%TARGET U$ '46A608F00301' /* Pointer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Mode
FINAL <<property>> Code
%UID '4874FE290353'
%TARGET U$ '46A606AC03B2' /* Integer */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
%upv "writes field" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Code
PRIVATE <<static>> g_WasExceptionInFreeInOwner
%UID '4C1A30DF0063'
%DOCUMENTATION 'Было ли исключение в методе FreeInOwner'
%TARGET U$ '46A603BB0391' /* Boolean */
%VALUE false
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // g_WasExceptionInFreeInOwner
SUMMONED PRIVATE <<Attribute>> f_Code
%UID '2EB0E992DBF2'
%DOCUMENTATION 'Поле для свойства Code'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Code
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> CheckWasExceptionInFreeInOwner
%UID '4C1A312002E3'
%DOCUMENTATION 'Проверяет было ли исключение FreeInOwner и сбрасывает этот флаг'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4C1A315201D6'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // CheckWasExceptionInFreeInOwner
PROTECTED <<method>> GetSaveUndo
%UID '4E7AF07603D9'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4E7AF082015B'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // GetSaveUndo
PROTECTED <<virtualmethod>> GetNeedOptimize
%UID '531075A60396'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '531075AC025C'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // GetNeedOptimize
PROTECTED <<Operation>> DoUndo
%UID '48AC2A7C0229'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProcessor
%UID '48AC2A850053'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoUndo
PROTECTED <<Operation>> DoRedo
%UID '48AC2A8C0035'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProcessor
%UID '48AC2A910104'
%TARGET U$ '469F6BF0009D' /* Ik2Processor */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoRedo
PRIVATE FINAL <<Operation>> FreeInOwner
%UID '48B2C0CA034B'
; // FreeInOwner
PROTECTED <<Operation>> Add
%UID '48B2C3ED01BB'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anItem
%UID '48B2C40400D8'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anItem
; // %PARAMETERS
; // Add
<<vctor>> Create
%UID '4DD3EB5A01C3'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOwner
%UID '4DD3EB6700C2'
%TARGET U$ '4807745602C8' /* TObject */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anOwner
; // %PARAMETERS
; // Create
PROTECTED FINAL <<Operation>> DoSetOwner
%UID '4A60A2CF0329'
%DOCUMENTATION 'метод для установки "владельца" объекта. Для перекрытия в потомках.'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Value
%UID '4A60A2CF0359'
%TARGET U$ '4807745602C8' /* TObject */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Value
; // %PARAMETERS
; // DoSetOwner
SUMMONED PRIVATE FINAL <<ini>> Init_Undo
%UID '0DD10D1AEA63'
%DOCUMENTATION 'Инициализация str_l3mmUndo'
; // Init_Undo
SUMMONED PRIVATE FINAL <<ini>> Init_Redo
%UID '73D89AFC9B3B'
%DOCUMENTATION 'Инициализация str_l3mmRedo'
; // Init_Redo
; // %OPERATIONS
%CHILDREN
<<Facet>> Ik2OpPackInternal
%UID '4874FD8F03E3'
%DOCUMENTATION '"Кишки" пачки операций.'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
ABSTRACT <<Operation>> Put
%UID '4874FDA50243'
%DOCUMENTATION 'положить операцию.'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Op
%UID '4874FDB002CF'
%TARGET U$ '47E3C7030369' /* Tk2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Op
<<in>> Modify
%UID '4874FDB002F0'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Modify
; // %PARAMETERS
; // Put
; // %OPERATIONS
; // Ik2OpPackInternal
PRIVATE FINAL <<LocalConst>> Local
%UID '4BA203260193'
%META
%upv "Need map interface" false
%upv "Need mapping support" false
%upv "children prefix" 'l3mm'
%upv "spell names" false
; // %META
%ATTRIBUTES
<<Attribute>> Undo
%UID '4BA2033B03DD'
%VALUE '''Откат'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // Undo
<<Attribute>> Redo
%UID '4BA203470251'
%VALUE '''Возврат'''
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
; // Redo
; // %ATTRIBUTES
; // Local
SUMMONED PRIVATE <<Constants>> LCImplLocal
%UID 'C7F7FD13EE98'
%DOCUMENTATION 'Локализуемые строки Local'
%META
%upv "children prefix" 'l3mm'
%upv "elements prefix" 'str'
%upv "spell names" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%ATTRIBUTES
SUMMONED <<Attribute>> Undo
%UID '4B988BF442FB'
%DOCUMENTATION '''Откат'''
%TARGET U$ '4B3B3728004C' /* Tl3StringIDEx */
%VALUE '(rS : -1; rLocalized : false; rKey : ''l3mmUndo''; rValue : ''Откат'')'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Undo
SUMMONED <<Attribute>> Redo
%UID 'A10219615629'
%DOCUMENTATION '''Возврат'''
%TARGET U$ '4B3B3728004C' /* Tl3StringIDEx */
%VALUE '(rS : -1; rLocalized : false; rKey : ''l3mmRedo''; rValue : ''Возврат'')'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Redo
; // %ATTRIBUTES
; // LCImplLocal
; // %CHILDREN
; // Tk2OperationContainer
<<SimpleClass>> Tk2OperationContainerRefList
%UID '47E3D0820267'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '21.03.2008 18:13'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '47BC3A07027F' /* Tl3SimpleDataContainer */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '47E3D0CA029B'
%TARGET U$ '47E3C78502FB' /* Tk2OperationContainer */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2OperationContainerRefList
<<SimpleClass>> Tk2Context
%UID '4BE404E701DB'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '16:18 07.05.201'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47E3C78502FB' /* Tk2OperationContainer */
; // %INHERITS
; // Tk2Context
<<SimpleClass>> Tk2NilOp
%UID '4DD4F2B10308'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "singleton" true
%upv "started" '19.05.2011 14:36'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '47E3C7030369' /* Tk2Op */
; // %INHERITS
%OPERATIONS
SUMMONED FINAL <<static>> Exists
%UID '8CB0A029C134'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
; // Tk2NilOp
<<SimpleClass>> Tk2NonOptimizeContext
%UID '531075C102DD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "singleton" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '4BE404E701DB' /* Tk2Context */
; // %INHERITS
%OVERRIDES
U$ '4E7AF07603D9' /* GetSaveUndo */
U$ '531075A60396' /* GetNeedOptimize */
; // %OVERRIDES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '5310790D00D9'
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5310791302E6'
; // DoIt
; // %OPERATIONS
; // Create
SUMMONED FINAL <<static>> Exists
%UID '07BAAACEC466'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
; // Tk2NonOptimizeContext
; // %CHILDREN
; // Operations
<<Unit>> k2CoreObjects
%UID '467FC43F01F9'
%DOCUMENTATION 'Базовые типы реализации тегов.'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678137501EA' /* k2Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '473C3BEE0334' /* l3Canvas */
U$ '4767743E00E5' /* TypInfo */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47A1D4C201E8' /* l3Const */
U$ '47AC75550330' /* k2Tags */
U$ '47AC7B760263' /* k2Const */
U$ '47AC80BD020B' /* k2Except */
U$ '47AC830103E6' /* k2Strings */
U$ '47BB24D30205' /* "Стандартные примеси" */
U$ '47E37BB6016B' /* k2InterfacesEx */
U$ '47E3C64F037E' /* Operations */
U$ '480DBA6900E6' /* k2Facade */
U$ '49A5895D00AF' /* k2CoreMixins */
U$ '49A58A1A03C4' /* k2PrimObjects */
U$ '49A6646B0044' /* k2BaseTypes */
U$ '4A4DE16302A2' /* k2Core */
U$ '4AB0997B00A2' /* Common */
U$ '4AB0C3C60310' /* Sys */
U$ '4BC83B8301E5' /* k2PureMixIns */
U$ '52669BFC024E' /* CoreTypes */
U$ '5345157C01ED' /* l3VariantsContainers */
U$ '54B90AC6014B' /* StringUtils */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
ABSTRACT <<SimpleClass>> Tk2NonAtomicTag
%UID '532080BB027A'
%DOCUMENTATION 'Базовый неатомарный тег'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '5319C00B0313' /* Tk2Tag */
; // %INHERITS
%OVERRIDES
U$ '532AE8F2009A' /* GetIsOrd */
; // %OVERRIDES
; // Tk2NonAtomicTag
ABSTRACT <<Impurity>> k2TagByIntegerSearcher
%UID '4B89152D0120'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B47E230134' /* l3Searcher */
; // %INHERITS
%REALIZES
U$ '47B9BAFD01F4' /* CompareItemWithData */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> FindDataType
%UID '4A5F2B6A0166'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // FindDataType
; // %ATTRIBUTES
; // k2TagByIntegerSearcher
ABSTRACT <<SimpleClass>> Tk2ListTag
%UID '5320814702B4'
%DOCUMENTATION 'Базовый тег, содержащий список других тегов (нелистьевой)'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '532080BB027A' /* Tk2NonAtomicTag */
; // %INHERITS
; // Tk2ListTag
<<SimpleClass>> Tk2TagListPrim
%UID '47AC67EA00B9'
%DOCUMENTATION 'Список тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '08.02.2008 17:32'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '5320814702B4' /* Tk2ListTag */
U$ '534515CD039A' /* l3VariantListPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%OVERRIDES
U$ '47A6FEE600FC' /* IsCacheable */
; // %OVERRIDES
%LINKS
<<uses>> "49B792AB033D"
%UID '49B792AB033D'
%TARGET U$ '469F7CE1016C' /* k2_amAll */
; // 49B792AB033D
; // %LINKS
%CHILDREN
FINAL <<Define>> l3Items_HasCustomSort
%UID '4DF0E9A60121'
; // l3Items_HasCustomSort
FINAL <<Define>> l3Items_NeedsAssignItem
%UID '5305DFBC01C9'
; // l3Items_NeedsAssignItem
; // %CHILDREN
; // Tk2TagListPrim
<<SimpleClass>> Tk2TagList
%UID '47B9D76B0301'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4B89152D0120' /* k2TagByIntegerSearcher */
; // %IMPLEMENTS
%INHERITS
U$ '47AC67EA00B9' /* Tk2TagListPrim */
; // %INHERITS
%LINKS
<<uses>> "47BAB2680170"
%UID '47BAB2680170'
%TARGET U$ '4773D64E036C' /* l3Base */
; // 47BAB2680170
; // %LINKS
; // Tk2TagList
<<Impurity>> k2TagPrim
%UID '53280B9801E7'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4D0A3CA401E0' /* k2DoQT */
U$ '532878C00034' /* Ml3VariantMirror */
; // %IMPLEMENTS
%INHERITS
U$ '4E2EA99702A7' /* k2Int64Holder */
; // %INHERITS
%OVERRIDES
U$ '47612CD10380' /* CheckSort */
U$ '47612DD0012B' /* AssignTag */
U$ '47612DF00301' /* CloneTag */
U$ '47612E530082' /* AssignCloneParams */
U$ '4761324203B8' /* WriteTag */
U$ '479731C50290' /* Cleanup */
U$ '48CF96D80241' /* DoIterateChildrenF */
U$ '49A545D501F6' /* DoIterateProperties */
U$ '4A42358A00C2' /* InsertChildTag */
U$ '4A4235B70288' /* IndexOfChild */
U$ '4A42374B0371' /* FindChild */
U$ '4A42378D0030' /* DeleteChildren */
U$ '4A60B23E00C3' /* COMQueryInterface */
U$ '4BC8415802B6' /* CompareWithInt */
U$ '4BC8415E021A' /* CompareWithTag */
U$ '4BC843C40240' /* rOwnAtom */
U$ '4C6CE735026E' /* DeleteChildPrim */
U$ '4C6D1C29031F' /* DoMarkModified */
U$ '4CEFA0BA0233' /* DoDoLoad */
U$ '5081632303E6' /* DoIterateChildrenBack */
U$ '5321B9DF011A' /* DoForceStore */
U$ '532AD5480329' /* DoGetHasSubAtom */
U$ '533121AF0203' /* GetTagType */
U$ '5331961F0280' /* SetAttr */
U$ '53319C270138' /* GetAttr */
U$ '5331B00B02DD' /* SetBoolAttr */
U$ '5332CD8801A6' /* SetIntAttr */
U$ '5332FB8403B6' /* SetWStrAttr */
U$ '53343980014A' /* TagOwner */
U$ '5335815D03DC' /* ChildrenCount */
U$ '533581770377' /* ChildrenCapacity */
U$ '53358545012C' /* ChildPrim */
U$ '533D587B0359' /* DoAddChild */
U$ '533D6FD80051' /* CheckAttr */
U$ '533D791300DA' /* DoCAtom */
; // %OVERRIDES
%LINKS
<<uses>> "533443AF013E"
%UID '533443AF013E'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 533443AF013E
<<uses>> "533C249D033B"
%UID '533C249D033B'
%TARGET U$ '49A67D880011' /* Ik2RawData */
; // 533C249D033B
<<uses>> "533C3B3E0264"
%UID '533C3B3E0264'
%TARGET U$ '531075C102DD' /* Tk2NonOptimizeContext */
; // 533C3B3E0264
<<uses>> "533C3B4F0302"
%UID '533C3B4F0302'
%TARGET U$ '4860AF86034F' /* Tk2Dictionary */
; // 533C3B4F0302
<<uses>> "535662200325"
%UID '535662200325'
%TARGET U$ '5304C94F0101' /* Tk2DictionaryPrim */
; // 535662200325
; // %LINKS
%ATTRIBUTES
PROTECTED <<Attribute>> f_TagType
%UID '533C38DA0086'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%META
%upv "ifndef" 'k2Tag_No_f_TagType'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_TagType
; // %ATTRIBUTES
%OPERATIONS
PROTECTED <<method>> IterateInnerChildrenOnWrite
%UID '5081947501ED'
%META
%upv "ifndef" 'k2TagIsAtomic'
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5081947E0248'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // IterateInnerChildrenOnWrite
PROTECTED FINAL <<method>> HackChildren
%UID '4A5368DC0050'
%META
%upv "ifndef" 'k2TagIsList'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "4A53692E02B1"
%UID '4A53692E02B1'
%TARGET U$ '47B9D76B0301' /* Tk2TagList */
; // 4A53692E02B1
<<uses>> "4A536C300250"
%UID '4A536C300250'
%TARGET U$ '47AC59170251' /* Tk2List */
; // 4A536C300250
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> HackChildren
%UID '4A5368F400F7'
%TARGET U$ '47B9D76B0301' /* Tk2TagList */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // HackChildren
; // %OPERATIONS
; // HackChildren
PROTECTED <<method>> CheckChildInsert
%UID '4CED66B8005F'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4CED66C7028F'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<inout>> anIndex
%UID '4CED66D800C1'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anIndex
<<inout>> aChild
%UID '533158190375'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aChild
<<in>> anOp
%UID '4CED66D80107'
%TARGET U$ '469F7AFD0224' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOp
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CheckChildInsert
PRIVATE FINAL <<method>> ChildAdded
%UID '533D641702ED'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '533D642E0000'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '533D646303AA'
%TARGET U$ '4A52F6A303E6' /* Tk2ArrayProperty */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<in>> aChild
%UID '533D646303DA'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aChild
<<in>> anIndex
%UID '533D6464000E'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anIndex
<<in>> aTotal
%UID '533D6464002B'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aTotal
<<in>> anOpPack
%UID '533D64640061'
%TARGET U$ '469F7AC50332' /* Il3OpPack */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // anOpPack
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // ChildAdded
PROTECTED FINAL <<method>> DoSetAtom
%UID '5346C8570369'
%META
%upv "ifndef" 'k2TagIsAtomic'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5346C87102E0'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '5346C880012A'
%TARGET U$ '49A5458C0335' /* _PropIn_ */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<in>> aValue
%UID '5346C8800151'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aValue
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // DoSetAtom
PROTECTED FINAL <<method>> GetOwnAttrValue
%UID '5346C88F0297'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5346C89F0219'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '5346C8AE0262'
%TARGET U$ '4A522D130096' /* Tk2Prop */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<out>> theValue
%UID '5346C8AE0286'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // theValue
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // GetOwnAttrValue
PROTECTED FINAL <<method>> GetAttrValue
%UID '5346C8C00133'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5346C8CE01BB'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '5346C8DF0062'
%TARGET U$ '4A522D130096' /* Tk2Prop */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<out>> theValue
%UID '5346C8DF0081'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // theValue
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // GetAttrValue
PROTECTED ABSTRACT <<Operation>> SetAtomPrim
%UID '49A545580241'
%TARGET U$ '46A603BB0391' /* Boolean */
%META
%upv "ifndef" 'k2TagIsAtomic'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '4A65F9DD01CC'
%TARGET U$ '49A5458C0335' /* _PropIn_ */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<inout>> V
%UID '49A5456903DC'
%TARGET U$ '4761470401C1' /* Tk2Values */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // V
; // %PARAMETERS
; // SetAtomPrim
PROTECTED <<Operation>> GetHasSubAtom
%UID '49A544E802B2'
%TARGET U$ '46A603BB0391' /* Boolean */
%META
%upv "ifndef" 'k2TagIsAtomic'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '4A65F9CA01CA'
%TARGET U$ '4A522D130096' /* Tk2Prop */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
; // %PARAMETERS
; // GetHasSubAtom
PROTECTED <<Operation>> GetSubAtom
%UID '49A54517029C'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '4A65F9D30328'
%TARGET U$ '4A522D130096' /* Tk2Prop */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<out>> Data
%UID '49A545320289'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Data
; // %PARAMETERS
; // GetSubAtom
PROTECTED FINAL <<Operation>> SetSubAtom
%UID '4C6D1C070249'
%META
%upv "ifndef" 'k2TagIsAtomic'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aProp
%UID '5346C83702EE'
%TARGET U$ '49A5458C0335' /* _PropIn_ */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProp
<<in>> aValue
%UID '5346C8370334'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aValue
; // %PARAMETERS
; // SetSubAtom
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> l3Items_NoSort
%UID '53282FDD000D'
%META
%upv "ifdef" 'k2TagNoSort'
; // %META
; // l3Items_NoSort
; // %CHILDREN
; // k2TagPrim
<<Impurity>> k2Tag
%UID '47AC5591007B'
%DOCUMENTATION 'Реализация тега.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '20.04.2005 19:29'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '53280B9801E7' /* k2TagPrim */
; // %INHERITS
%LINKS
<<uses>> "47AC76A00110"
%UID '47AC76A00110'
%TARGET U$ '47AC759800AF' /* ExtTags */
; // 47AC76A00110
<<uses>> "47AC7A5F037A"
%UID '47AC7A5F037A'
%TARGET U$ '47AC79B70202' /* Tl3Dictionary */
; // 47AC7A5F037A
<<uses>> "47AC7C4100EF"
%UID '47AC7C4100EF'
%TARGET U$ '47AC7BD90281' /* "Tag Consts" */
; // 47AC7C4100EF
<<uses>> "47AC7D90014E"
%UID '47AC7D90014E'
%TARGET U$ '47AC7CF90230' /* "L3 Core Consts" */
; // 47AC7D90014E
<<uses>> "47AC7E990260"
%UID '47AC7E990260'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 47AC7E990260
<<uses>> "47AC7F7301F3"
%UID '47AC7F7301F3'
%TARGET U$ '47878E0E0191' /* l3String */
; // 47AC7F7301F3
<<uses>> "47AC8213035D"
%UID '47AC8213035D'
%TARGET U$ '47AC81E002F2' /* Ek2ReadOnlyProperty */
; // 47AC8213035D
<<uses>> "47AC8437005F"
%UID '47AC8437005F'
%TARGET U$ '47AC83780196' /* "Exception Messages" */
; // 47AC8437005F
<<uses>> "47AC85C00370"
%UID '47AC85C00370'
%TARGET U$ '47B9D76B0301' /* Tk2TagList */
; // 47AC85C00370
<<uses>> "47AC866E022B"
%UID '47AC866E022B'
%TARGET U$ '478E1EF4036B' /* TTypeData */
; // 47AC866E022B
<<uses>> "47AC871803CA"
%UID '47AC871803CA'
%TARGET U$ '47A080670100' /* l3Stream */
; // 47AC871803CA
<<uses>> "49A5370F01CC"
%UID '49A5370F01CC'
%TARGET U$ '4773D64E036C' /* l3Base */
; // 49A5370F01CC
<<uses>> "4A607A930102"
%UID '4A607A930102'
%TARGET U$ '480DBA760390' /* k2Facade */
; // 4A607A930102
<<uses>> "4A69D95C015C"
%UID '4A69D95C015C'
%TARGET U$ '478CF32A03B6' /* TPersistent */
; // 4A69D95C015C
<<uses>> "5281ED4D010F"
%UID '5281ED4D010F'
%TARGET U$ '48492AD90142' /* OList */
; // 5281ED4D010F
<<uses>> "5304E10E01B6"
%UID '5304E10E01B6'
%TARGET U$ '4860AF86034F' /* Tk2Dictionary */
; // 5304E10E01B6
<<uses>> "531086CC0301"
%UID '531086CC0301'
%TARGET U$ '531075C102DD' /* Tk2NonOptimizeContext */
; // 531086CC0301
<<uses>> "5310C13B00A1"
%UID '5310C13B00A1'
%TARGET U$ '530F1BCA00B2' /* Tk2VariantImpl */
; // 5310C13B00A1
<<uses>> "5315E3F90251"
%UID '5315E3F90251'
%TARGET U$ '48492A7A0255' /* Bool */
; // 5315E3F90251
<<uses>> "5315F4DC039D"
%UID '5315F4DC039D'
%TARGET U$ '53073D3D00BE' /* Tk2String */
; // 5315F4DC039D
; // %LINKS
; // k2Tag
<<Impurity>> k2HashTag
%UID '47AC562D0134'
%DOCUMENTATION 'Одна из реализаций хранилища тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '08.02.2008 16:17'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A5CB93700CF' /* Ml3Unknown */
U$ '4A609C890051' /* Ml3DataContainer */
; // %IMPLEMENTS
%INHERITS
U$ '47AC5591007B' /* k2Tag */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A6FEE600FC' /* IsCacheable */
U$ '49A544E802B2' /* GetHasSubAtom */
U$ '49A54517029C' /* GetSubAtom */
U$ '49A545D501F6' /* DoIterateProperties */
U$ '4A54E03B009A' /* GetEmpty */
; // %OVERRIDES
%LINKS
<<uses>> "4A673646027C"
%UID '4A673646027C'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 4A673646027C
; // %LINKS
%ATTRIBUTES
PROTECTED LINK <<readonly>> SubAtoms
%UID '4A60934401A0'
%TARGET U$ '4A605FE2032D' /* HashType */
%META
%upv "needs field" true
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // SubAtoms
SUMMONED PRIVATE LINK <<Attribute>> f_SubAtoms
%UID 'C3D1D0F439D1'
%DOCUMENTATION 'Поле для свойства SubAtoms'
%TARGET U$ '4A605FE2032D' /* HashType */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_SubAtoms
; // %ATTRIBUTES
%OPERATIONS
FINAL <<method>> Make
%UID '5356A90303BD'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "5356A92602AD"
%UID '5356A92602AD'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 5356A92602AD
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5356A91101E4'
%TARGET U$ '5346BD53015A' /* Il3TagRef */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagType
%UID '5356A9200325'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aTagType
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Make
FINAL <<ctor>> Create
%UID '49A55029014C'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagType
%UID '49A5502C0085'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aTagType
; // %PARAMETERS
; // Create
PROTECTED FINAL <<Operation>> ClearAtoms
%UID '49A54FAA028F'
; // ClearAtoms
; // %OPERATIONS
%CHILDREN
ABSTRACT <<ImpurityParamType>> HashType
%UID '4A605FE2032D'
; // HashType
; // %CHILDREN
; // k2HashTag
ABSTRACT <<SimpleClass>> Tk2LeafTag
%UID '532081A90261'
%DOCUMENTATION 'Базовый листьевой тег'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '532080BB027A' /* Tk2NonAtomicTag */
; // %INHERITS
; // Tk2LeafTag
<<SimpleClass>> Tk2DictionaryPrim
%UID '5304C94F0101'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
U$ '534515CD039A' /* l3VariantListPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%LINKS
<<uses>> "5304D13E0329"
%UID '5304D13E0329'
%TARGET U$ '469F6D170322' /* Tk2AssignMode */
; // 5304D13E0329
<<uses>> "5304D14103E1"
%UID '5304D14103E1'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 5304D14103E1
<<uses>> "5304D1440379"
%UID '5304D1440379'
%TARGET U$ '47878E0E0191' /* l3String */
; // 5304D1440379
<<uses>> "5310852002FD"
%UID '5310852002FD'
%TARGET U$ '531075C102DD' /* Tk2NonOptimizeContext */
; // 5310852002FD
; // %LINKS
%CHILDREN
FINAL <<Define>> l3Items_NeedsAssignItem
%UID '5304CA660218'
; // l3Items_NeedsAssignItem
FINAL <<Define>> l3Items_CaseUnsensitive
%UID '5304CA780342'
; // l3Items_CaseUnsensitive
FINAL <<Define>> l3Items_NeedsBeforeFreeItem
%UID '5304CA86025B'
; // l3Items_NeedsBeforeFreeItem
FINAL <<Undef>> l3Items_NoSort
%UID '5304CA940052'
; // l3Items_NoSort
; // %CHILDREN
; // Tk2DictionaryPrim
<<SimpleClass>> Tk2TypedSmallLeafTag
%UID '527A6D5A0248'
%DOCUMENTATION 'Листьевой тег с заранее определённым типом и могущий иметь НЕ более 32 (включительно) атрибутов'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '532081A90261' /* Tk2LeafTag */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4A64878701E1'
%TARGET U$ '4A605C540221' /* Tl3OneBytePtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '527A6FD400FF'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2TypedSmallLeafTag
<<Impurity>> k2SimpleTagListPrim
%UID '4A5F28820363'
%DOCUMENTATION 'Список параграфов'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '16.07.2009 17:18'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A5CB93700CF' /* Ml3Unknown */
; // %IMPLEMENTS
%INHERITS
U$ '534515CD039A' /* l3VariantListPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%OVERRIDES
U$ '47A6FEE600FC' /* IsCacheable */
; // %OVERRIDES
%LINKS
<<uses>> "4A5F2A78003B"
%UID '4A5F2A78003B'
%TARGET U$ '469F7CE1016C' /* k2_amAll */
; // 4A5F2A78003B
; // %LINKS
%CHILDREN
FINAL <<Define>> l3Items_NoChanging
%UID '527D0A3D031C'
; // l3Items_NoChanging
FINAL <<Define>> l3Items_NoOwner
%UID '527D0A680126'
; // l3Items_NoOwner
; // %CHILDREN
; // k2SimpleTagListPrim
<<SimpleClass>> Tk2TypedSimpleTagListPrim
%UID '527D14900028'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A5F28820363' /* k2SimpleTagListPrim */
U$ '5320814702B4' /* Tk2ListTag */
; // %INHERITS
%OVERRIDES
U$ '47B975AF02ED' /* ExpandSize */
; // %OVERRIDES
%CHILDREN
FINAL <<Define>> l3Items_NoSort
%UID '527D0A50012F'
; // l3Items_NoSort
; // %CHILDREN
; // Tk2TypedSimpleTagListPrim
ABSTRACT <<SimpleClass>> Tk2DictRecTag
%UID '53208F54004F'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '5346BD53015A' /* Il3TagRef */
; // %IMPLEMENTS
%INHERITS
U$ '532081A90261' /* Tk2LeafTag */
; // %INHERITS
%OVERRIDES
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '5326D7B603A3' /* GetAsLong */
U$ '5329CD1A020E' /* GetAsString */
U$ '53568FCA01E8' /* GetAsRef */
; // %OVERRIDES
%LINKS
<<uses>> "535FDD530188"
%UID '535FDD530188'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 535FDD530188
; // %LINKS
; // Tk2DictRecTag
<<SimpleClass>> Tk2List
%UID '47AC59170251'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '22.02.99 19:26'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC5591007B' /* k2Tag */
U$ '47B9D76B0301' /* Tk2TagList */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
%OVERRIDES
U$ '47B975AF02ED' /* ExpandSize */
; // %OVERRIDES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '5281F01E011D'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5281F02D0044'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagType
%UID '5281F032003A'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aTagType
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
FINAL <<method>> Make
%UID '5356A87B0080'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "5356A89B03A6"
%UID '5356A89B03A6'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 5356A89B03A6
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5356A8A10026'
%TARGET U$ '5346BD53015A' /* Il3TagRef */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTagType
%UID '5356A8AF01E6'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aTagType
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Make
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> k2TagIsList
%UID '5281EFE302BB'
; // k2TagIsList
FINAL <<Define>> k2TagComplexAssign
%UID '5281EFEF01C2'
%DOCUMENTATION '- !!! http://mdp.garant.ru/pages/viewpage.action?pageId=228688745&focusedCommentId=273590280#comment-273590280 !!!'
; // k2TagComplexAssign
; // %CHILDREN
; // Tk2List
<<SimpleClass>> Tk2HugeDictRec
%UID '4E15EFFA0214'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.07.2011 21:42'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '53208F54004F' /* Tk2DictRecTag */
; // %INHERITS
%LINKS
<<uses>> "4E15F0540337"
%UID '4E15F0540337'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 4E15F0540337
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4E15F022024D'
%TARGET U$ '47AC5BBC025C' /* Tl3PtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
; // Tk2HugeDictRec
<<SimpleClass>> Tk2ParentedTypedHugeLeafTag
%UID '4E8347810088'
%DOCUMENTATION 'Листьевой тег с заранее определённым типом, имеющий ссылку на родителя и могущий иметь БОЛЕЕ 32 (включительно) атрибутов'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '28.09.2011 20:13'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC58810008' /* k2ParentedTagObject */
; // %IMPLEMENTS
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '532081A90261' /* Tk2LeafTag */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4E8347D6033F'
%TARGET U$ '47AC5BBC025C' /* Tl3PtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '4E834FE001F5'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2ParentedTypedHugeLeafTag
<<SimpleClass>> TevHugeParaListPrim
%UID '4A6062890343'
%DOCUMENTATION 'Список параграфов с числом свойств больше 32'
%META
%upv "author" 'Люлин А.В.'
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '17.06.2009 15:38'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '5320814702B4' /* Tk2ListTag */
U$ '534515CD039A' /* l3VariantListPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%LINKS
<<uses>> "4A60664801E4"
%UID '4A60664801E4'
%TARGET U$ '469F7CE1016C' /* k2_amAll */
; // 4A60664801E4
; // %LINKS
%CHILDREN
FINAL <<Define>> l3Items_NoOwner
%UID '4DD3E109019B'
; // l3Items_NoOwner
; // %CHILDREN
; // TevHugeParaListPrim
<<SimpleClass>> TevHugeParaListPrimWithFind
%UID '4A6062FE02AD'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '17.06.2009 15:39'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4B89152D0120' /* k2TagByIntegerSearcher */
; // %IMPLEMENTS
%INHERITS
U$ '4A6062890343' /* TevHugeParaListPrim */
; // %INHERITS
; // TevHugeParaListPrimWithFind
<<SimpleClass>> Tk2TypedHugeListTag
%UID '527BA4EE03B4'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '4A6062FE02AD' /* TevHugeParaListPrimWithFind */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4FBE31E10251'
%TARGET U$ '47AC5BBC025C' /* Tl3PtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> k2TagIsList
%UID '4FBE321B00EC'
; // k2TagIsList
FINAL <<Define>> k2Tag_No_f_TagType
%UID '4FBE324100A6'
; // k2Tag_No_f_TagType
FINAL <<Define>> k2TagNoSort
%UID '53023F480187'
; // k2TagNoSort
; // %CHILDREN
; // Tk2TypedHugeListTag
ABSTRACT <<SimpleClass>> Tk2AtomicTag
%UID '53207C0102F8'
%DOCUMENTATION 'Базовый атомарный тег'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '533E8F8D0334' /* Tk2NotStructuredTag */
; // %INHERITS
%OVERRIDES
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '5326D7B603A3' /* GetAsLong */
U$ '5329CD1A020E' /* GetAsString */
U$ '532AE8F2009A' /* GetIsOrd */
; // %OVERRIDES
%LINKS
<<uses>> "532AA76E00D4"
%UID '532AA76E00D4'
%TARGET U$ '47878E0E0191' /* l3String */
; // 532AA76E00D4
<<uses>> "5360C95D0096"
%UID '5360C95D0096'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
; // 5360C95D0096
; // %LINKS
%ATTRIBUTES
PROTECTED <<Attribute>> f_Value
%UID '53207C650039'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Value
; // %ATTRIBUTES
%CHILDREN
<<Typedef>> Rk2AtomicTag
%UID '53567CE601A4'
%META
%upv "isClassRef" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '53207C0102F8' /* Tk2AtomicTag */
; // %INHERITS
; // Rk2AtomicTag
; // %CHILDREN
; // Tk2AtomicTag
<<SimpleClass>> Tk2AtomicTagRefListPrim
%UID '526918890147'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '53579B8B0022'
%TARGET U$ '53207C0102F8' /* Tk2AtomicTag */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2AtomicTagRefListPrim
<<SimpleClass>> Tk2TypedAtomicTag
%UID '5273CF4602B7'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC5591007B' /* k2Tag */
U$ '53207C0102F8' /* Tk2AtomicTag */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
%OVERRIDES
U$ '47A6FEE600FC' /* IsCacheable */
; // %OVERRIDES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '5273CF7E0177'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> Create
%UID '5273CF89010F'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aValue
%UID '5273CF900107'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aValue
<<in>> aType
%UID '5273CF900127'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // Create
; // %OPERATIONS
; // Create
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> k2TagIsAtomic
%UID '5273CFB50063'
; // k2TagIsAtomic
FINAL <<Define>> k2Tag_No_f_TagType
%UID '5273D4CD0067'
; // k2Tag_No_f_TagType
<<Typedef>> Rk2TypedAtomicTag
%UID '5273DA510261'
%META
%upv "isClassRef" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '5273CF4602B7' /* Tk2TypedAtomicTag */
; // %INHERITS
; // Rk2TypedAtomicTag
; // %CHILDREN
; // Tk2TypedAtomicTag
<<SimpleClass>> Tk2ParentedTypedSmallLeafTag
%UID '4A64874301F2'
%DOCUMENTATION 'Листьевой тег с заранее определённым типом, имеющий ссылку на родителя и могущий иметь НЕ более 32 (включительно) атрибутов'
%META
%upv "author" 'Люлин А.В.'
%upv "need UC" true
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '20.07.2009 19:04'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC58810008' /* k2ParentedTagObject */
U$ '527A6D5A0248' /* Tk2TypedSmallLeafTag */
; // %INHERITS
; // Tk2ParentedTypedSmallLeafTag
<<SimpleClass>> Tk2OwnedTypedHugeListTag
%UID '527B9A3F0164'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC6AEE0094' /* k2OwnedTagObject */
; // %IMPLEMENTS
%INHERITS
U$ '527BA4EE03B4' /* Tk2TypedHugeListTag */
; // %INHERITS
; // Tk2OwnedTypedHugeListTag
<<SimpleClass>> Tk2ParentedTypedHugeListTag
%UID '4FBE24BC0158'
%DOCUMENTATION 'Список параграфов с числом атрибутов больше 32'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC58810008' /* k2ParentedTagObject */
; // %IMPLEMENTS
%INHERITS
U$ '527BA4EE03B4' /* Tk2TypedHugeListTag */
; // %INHERITS
; // Tk2ParentedTypedHugeListTag
<<SimpleClass>> Tk2TypedSmallListTag
%UID '4A5F1EC002E5'
%DOCUMENTATION 'Списог тегов с заранее определённым типом, имеющий ссылку на родителя и могущий иметь не более 32 (включительно) атрибутов'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '16.07.2009 16:36'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC562D0134' /* k2HashTag */
U$ '4B89152D0120' /* k2TagByIntegerSearcher */
; // %IMPLEMENTS
%INHERITS
U$ '527D14900028' /* Tk2TypedSimpleTagListPrim */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4A606079021A'
%TARGET U$ '4A605C540221' /* Tl3OneBytePtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '527D07100298'
; // k2Tag_No_f_TagType
FINAL <<Define>> k2TagIsList
%UID '527D072F0329'
; // k2TagIsList
FINAL <<Define>> k2TagNoSort
%UID '53023D74019B'
; // k2TagNoSort
; // %CHILDREN
; // Tk2TypedSmallListTag
<<SimpleClass>> Tk2ParentedTypedSmallListTag
%UID '527D053500AA'
%DOCUMENTATION 'Список тегов со ссылкой на родителя'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC58810008' /* k2ParentedTagObject */
; // %IMPLEMENTS
%INHERITS
U$ '4A5F1EC002E5' /* Tk2TypedSmallListTag */
; // %INHERITS
; // Tk2ParentedTypedSmallListTag
<<SimpleClass>> Tk2TypedSimpleSortableTagListPrim
%UID '527D1B86018D'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A5F28820363' /* k2SimpleTagListPrim */
U$ '5320814702B4' /* Tk2ListTag */
; // %INHERITS
%OVERRIDES
U$ '47B975AF02ED' /* ExpandSize */
; // %OVERRIDES
%CHILDREN
FINAL <<Define>> l3Items_HasCustomSort
%UID '527D1E5C0047'
; // l3Items_HasCustomSort
; // %CHILDREN
; // Tk2TypedSimpleSortableTagListPrim
<<SimpleClass>> Tk2TypedSmallSortableListTag
%UID '527D1B7103A8'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC562D0134' /* k2HashTag */
U$ '4B89152D0120' /* k2TagByIntegerSearcher */
; // %IMPLEMENTS
%INHERITS
U$ '527D1B86018D' /* Tk2TypedSimpleSortableTagListPrim */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '527D1BA5032F'
%TARGET U$ '4A605C540221' /* Tl3OneBytePtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '527D1BC10236'
; // k2Tag_No_f_TagType
FINAL <<Define>> k2TagIsList
%UID '527D1BD00367'
; // k2TagIsList
; // %CHILDREN
; // Tk2TypedSmallSortableListTag
<<SimpleClass>> Tk2DictionaryIDIndexPrim
%UID '5304CA0F01F5'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A54DD4E036F' /* Tl3ProtoDataContainer */
U$ '534515CD039A' /* l3VariantListPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%LINKS
<<uses>> "5304D43C0105"
%UID '5304D43C0105'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 5304D43C0105
; // %LINKS
; // Tk2DictionaryIDIndexPrim
<<SimpleClass>> Tk2DictionaryIDIndex
%UID '5304CAB003D1'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47B47E230134' /* l3Searcher */
; // %IMPLEMENTS
%INHERITS
U$ '5304CA0F01F5' /* Tk2DictionaryIDIndexPrim */
; // %INHERITS
%OVERRIDES
U$ '47B9BAFD01F4' /* CompareItemWithData */
; // %OVERRIDES
%LINKS
<<uses>> "5304D40E038D"
%UID '5304D40E038D'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 5304D40E038D
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> FindDataType
%UID '5304CB26017F'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // FindDataType
; // %ATTRIBUTES
; // Tk2DictionaryIDIndex
<<SimpleClass>> Tk2Dictionary
%UID '4860AF86034F'
%DOCUMENTATION 'Словарь.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '11.10.1999 12:08'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4B8BB87A0089' /* l3DictionaryPrim */
U$ '5304C94F0101' /* Tk2DictionaryPrim */
; // %INHERITS
%REALIZES
U$ '5304D6C5002B' /* ItemToWStr */
; // %REALIZES
%LINKS
<<uses>> "5304CE0F00CF"
%UID '5304CE0F00CF'
%TARGET U$ '47878E0E0191' /* l3String */
; // 5304CE0F00CF
<<uses>> "5304D0E10372"
%UID '5304D0E10372'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 5304D0E10372
<<uses>> "5304D0FE000A"
%UID '5304D0FE000A'
%TARGET U$ '469F6D170322' /* Tk2AssignMode */
; // 5304D0FE000A
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> IDIndexType
%UID '5304CADD036F'
%TARGET U$ '5304CAB003D1' /* Tk2DictionaryIDIndex */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // IDIndexType
PRIVATE ABSTRACT <<impurity_value>> StringType
%UID '534518D20117'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // StringType
; // %ATTRIBUTES
; // Tk2Dictionary
<<SimpleClass>> Tk2String
%UID '53073D3D00BE'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4773DED9004C' /* Tl3_String */
U$ '47AC5591007B' /* k2Tag */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
%OVERRIDES
U$ '47A042E100E2' /* InitFields */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '533121AF0203' /* GetTagType */
; // %OVERRIDES
%LINKS
<<uses>> "53073D7400C1"
%UID '53073D7400C1'
%TARGET U$ '48492AC1023B' /* String */
; // 53073D7400C1
; // %LINKS
%OPERATIONS
FINAL <<Constructor>> Create$FromType$5315D861004C
%UID '5315D861004C'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$5315D8730239
%UID '5315D8730239'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aType
%UID '5315D87F00D6'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // DoIt$5315D8730239
; // %OPERATIONS
; // Create$FromType$5315D861004C
FINAL <<Constructor>> Create$5315D8840067
%UID '5315D8840067'
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$5315D88A024F
%UID '5315D88A024F'
; // DoIt$5315D88A024F
; // %OPERATIONS
; // Create$5315D8840067
FINAL <<method>> Make$5356A98502EE
%UID '5356A98502EE'
%META
%upv "force overload" true
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "5356A991011C"
%UID '5356A991011C'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 5356A991011C
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$5356A99D0157
%UID '5356A99D0157'
%TARGET U$ '5346BD53015A' /* Il3TagRef */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aType
%UID '5356A9AB03C4'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // DoIt$5356A99D0157
; // %OPERATIONS
; // Make$5356A98502EE
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> k2TagIsString
%UID '53073DC7033D'
; // k2TagIsString
FINAL <<Define>> k2Tag_No_f_TagType
%UID '53578CE80248'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2String
<<SimpleClass>> Tk2VariantImpl
%UID '530F1BCA00B2'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '533BFA8E0340' /* Ik2Variant */
; // %IMPLEMENTS
%INHERITS
U$ '5319E8FF0107' /* Tl3DataContainerWithoutIUnknownPrim */
; // %INHERITS
%REALIZES
U$ '530F1B3C029B' /* Kind */
U$ '530F1B6501B3' /* AsString */
U$ '530F1B86025B' /* AsInteger */
U$ '530F1BA50053' /* AsStream */
U$ '532AE5E5015C' /* AsVariant */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A6FEE600FC' /* IsCacheable */
U$ '5000565C019C' /* ClearFields */
; // %OVERRIDES
%LINKS
<<uses>> "530F1C360152"
%UID '530F1C360152'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 530F1C360152
<<uses>> "530F1C4F0071"
%UID '530F1C4F0071'
%TARGET U$ '47A080670100' /* l3Stream */
; // 530F1C4F0071
<<uses>> "530F1CA80161"
%UID '530F1CA80161'
%TARGET U$ '48492AC1023B' /* String */
; // 530F1CA80161
<<uses>> "530F346403DF"
%UID '530F346403DF'
%TARGET U$ '4CB46C85024E' /* k2NullTag */
; // 530F346403DF
<<uses>> "532AE67C030A"
%UID '532AE67C030A'
%TARGET U$ '49A6ABFB02BA' /* Tk2NullTagImpl */
; // 532AE67C030A
; // %LINKS
%ATTRIBUTES
PRIVATE <<Attribute>> f_Tag
%UID '530F1C0C035A'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Tag
PRIVATE <<Attribute>> f_Stream
%UID '530F1C5A0101'
%TARGET U$ '47E150FF028A' /* TStream */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Stream
PRIVATE <<Attribute>> f_IStream
%UID '530F2CB6010C'
%TARGET U$ '46A5B0060013' /* IStream */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // f_IStream
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '530F2A36024A'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '530F2A4000C7'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '530F2A480028'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
FINAL <<Factory>> Make$530F2A4C0182
%UID '530F2A4C0182'
%META
%upv "check nil" false
%upv "need AfterCreate" 'undefined'
%upv "need Aggregate" 'undefined'
%upv "need As" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '533BFA8E0340' /* Ik2Variant */
; // %IMPLEMENTS
%INHERITS
U$ '530F2A36024A' /* Create */
; // %INHERITS
%REALIZES
U$ '530F1B3C029B' /* Kind */
U$ '530F1B6501B3' /* AsString */
U$ '530F1B86025B' /* AsInteger */
U$ '530F1BA50053' /* AsStream */
U$ '532AE5E5015C' /* AsVariant */
; // %REALIZES
%OPERATIONS
SUMMONED PRIVATE FINAL <<Operation>> DoIt$7CE9DD2E25AF
%UID '7CE9DD2E25AF'
%DOCUMENTATION 'Сигнатура фабрики Tk2VariantImpl.Make'
%TARGET U$ '533BFA8E0340' /* Ik2Variant */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> aTag
%UID '1A3A8C17303F'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
; // %PARAMETERS
; // DoIt$7CE9DD2E25AF
; // %OPERATIONS
; // Make$530F2A4C0182
FINAL <<method>> Make$FromInt$530F438C01D2
%UID '530F438C01D2'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "530F442002F2"
%UID '530F442002F2'
%TARGET U$ '48492A0C00ED' /* Long */
; // 530F442002F2
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$530F439F02E6
%UID '530F439F02E6'
%TARGET U$ '530F1ADF03E1' /* Ik2Variant */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aValue
%UID '530F43B60021'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aValue
; // %PARAMETERS
; // DoIt$530F439F02E6
; // %OPERATIONS
; // Make$FromInt$530F438C01D2
; // %OPERATIONS
; // Tk2VariantImpl
<<SimpleClass>> Tk2FontName
%UID '53188A6D02A7'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '5346BD53015A' /* Il3TagRef */
; // %IMPLEMENTS
%INHERITS
U$ '47A8693601A1' /* Tl3PrimString */
U$ '47AC5591007B' /* k2Tag */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A042E100E2' /* InitFields */
U$ '47A869BB02DE' /* GetAsPCharLen */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '533121AF0203' /* GetTagType */
U$ '53568FCA01E8' /* GetAsRef */
; // %OVERRIDES
%LINKS
<<uses>> "53188B02012A"
%UID '53188B02012A'
%TARGET U$ '484CE9CE0107' /* FontName */
; // 53188B02012A
<<uses>> "53188BC403E1"
%UID '53188BC403E1'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 53188BC403E1
; // %LINKS
%ATTRIBUTES
FINAL <<readonly>> LogFont
%UID '53188B5F0382'
%TARGET U$ '484CE8FF0292' /* Tl3LogFont */
%META
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // LogFont
SUMMONED PRIVATE <<Attribute>> f_LogFont
%UID '7D7ABFDE1BE2'
%DOCUMENTATION 'Поле для свойства LogFont'
%TARGET U$ '484CE8FF0292' /* Tl3LogFont */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_LogFont
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '53189606008A'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '5318960E033F'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aLogFont
%UID '5318961B02AF'
%TARGET U$ '484CE8FF0292' /* Tl3LogFont */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aLogFont
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> k2TagIsString
%UID '53188A9501AF'
; // k2TagIsString
FINAL <<Define>> k2Tag_No_f_TagType
%UID '53578D71034F'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2FontName
<<SimpleClass>> Tk2FontNameListPrim
%UID '531895BF02B6'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B99E920196' /* l3UncomparabeObjectRefList */
U$ '5319E8FF0107' /* Tl3DataContainerWithoutIUnknownPrim */
; // %INHERITS
%REALIZES
U$ '47B2C42A0163' /* AssignItem */
U$ '47B99D4503A2' /* CompareExistingItems */
; // %REALIZES
%LINKS
<<uses>> "53189745010D"
%UID '53189745010D'
%TARGET U$ '47878E0E0191' /* l3String */
; // 53189745010D
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '531895DD0318'
%TARGET U$ '53188A6D02A7' /* Tk2FontName */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
; // Tk2FontNameListPrim
<<SimpleClass>> Tk2FontNameList
%UID '53189661025E'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B47E230134' /* l3Searcher */
U$ '531895BF02B6' /* Tk2FontNameListPrim */
; // %INHERITS
%OVERRIDES
U$ '47B9BAFD01F4' /* CompareItemWithData */
; // %OVERRIDES
%LINKS
<<uses>> "5318973A02E4"
%UID '5318973A02E4'
%TARGET U$ '47878E0E0191' /* l3String */
; // 5318973A02E4
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> FindDataType
%UID '5318971501A5'
%TARGET U$ '484CE8FF0292' /* Tl3LogFont */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // FindDataType
; // %ATTRIBUTES
; // Tk2FontNameList
<<SimpleClass>> Tk2FontManager
%UID '5318974F0065'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "singleton" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%INHERITS
U$ '53189661025E' /* Tk2FontNameList */
; // %INHERITS
%OVERRIDES
U$ '47A042E100E2' /* InitFields */
; // %OVERRIDES
%LINKS
<<uses>> "53189FEB0186"
%UID '53189FEB0186'
%TARGET U$ '484CE8FF0292' /* Tl3LogFont */
; // 53189FEB0186
<<uses>> "5318A00201D6"
%UID '5318A00201D6'
%TARGET U$ '4B88F0F00211' /* Tl3FontManagerEx */
; // 5318A00201D6
<<uses>> "5318A196025B"
%UID '5318A196025B'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 5318A196025B
; // %LINKS
%OPERATIONS
FINAL <<method>> FontByName
%UID '53189C3D034E'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53189C4D01EE'
%TARGET U$ '53188A6D02A7' /* Tk2FontName */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aName
%UID '53189C5D0257'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aName
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // FontByName
SUMMONED FINAL <<static>> Exists
%UID '2BF624D6179C'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
; // Tk2FontManager
<<SimpleClass>> Tk2IUnknownTag
%UID '531F2B0B0102'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC5591007B' /* k2Tag */
U$ '533E8F8D0334' /* Tk2NotStructuredTag */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '47A042E100E2' /* InitFields */
U$ '4A60B23E00C3' /* COMQueryInterface */
U$ '533121AF0203' /* GetTagType */
; // %OVERRIDES
%LINKS
<<uses>> "531F2C01033A"
%UID '531F2C01033A'
%TARGET U$ '484929A9018E' /* IUnknown */
; // 531F2C01033A
; // %LINKS
%ATTRIBUTES
PRIVATE LINK <<Attribute>> f_Interface
%UID '531F2C460271'
%TARGET U$ '46A451250363' /* IUnknown */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // f_Interface
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '531F2C14010E'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '531F2C1F0390'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anInterface
%UID '531F2C3101CA'
%TARGET U$ '46A451250363' /* IUnknown */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anInterface
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
FINAL <<Factory>> Make
%UID '531F32F7025D'
%META
%upv "check nil" false
%upv "need AfterCreate" 'undefined'
%upv "need Aggregate" 'undefined'
%upv "need As" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '5346BD53015A' /* Il3TagRef */
; // %IMPLEMENTS
%INHERITS
U$ '531F2C14010E' /* Create */
; // %INHERITS
%REALIZES
U$ '4A42196C01CE' /* AsObject */
; // %REALIZES
%OPERATIONS
SUMMONED PRIVATE FINAL <<Operation>> DoIt
%UID 'CB09CA71B044'
%DOCUMENTATION 'Сигнатура фабрики Tk2IUnknownTag.Make'
%TARGET U$ '5346BD53015A' /* Il3TagRef */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> anInterface
%UID 'EA7984D7502E'
%TARGET U$ '46A451250363' /* IUnknown */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // anInterface
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Make
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '53578DA102CC'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2IUnknownTag
<<SimpleClass>> Tk2AtomicTagRefList
%UID '526918BD0308'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47B47E230134' /* l3Searcher */
U$ '526918890147' /* Tk2AtomicTagRefListPrim */
; // %INHERITS
%OVERRIDES
U$ '47B9BAFD01F4' /* CompareItemWithData */
; // %OVERRIDES
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> FindDataType
%UID '5269196A02A9'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // FindDataType
; // %ATTRIBUTES
; // Tk2AtomicTagRefList
<<SimpleClass>> Tk2HugeTagObject
%UID '467FC49800E8'
%DOCUMENTATION 'Одна из реализаций хранилища тегов. С неограниченным количеством свойств'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '15.12.1999 17:30'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '532080BB027A' /* Tk2NonAtomicTag */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4A6433BF0110'
%TARGET U$ '47AC5BBC025C' /* Tl3PtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
; // Tk2HugeTagObject
<<SimpleClass>> Tk2Layer
%UID '47AC597C0320'
%DOCUMENTATION 'Список тегов, с идентификатором.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '22.02.99 19:26'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC59170251' /* Tk2List */
; // %INHERITS
%OVERRIDES
U$ '478CF34E02CE' /* Assign */
U$ '479731C50290' /* Cleanup */
U$ '47B975AF02ED' /* ExpandSize */
U$ '49A544E802B2' /* GetHasSubAtom */
U$ '49A54517029C' /* GetSubAtom */
U$ '49A545580241' /* SetAtomPrim */
U$ '49A545D501F6' /* DoIterateProperties */
; // %OVERRIDES
%LINKS
<<uses>> "49A554EF0324"
%UID '49A554EF0324'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 49A554EF0324
<<uses>> "4A4E0A2F016A"
%UID '4A4E0A2F016A'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
; // 4A4E0A2F016A
<<uses>> "53233152024E"
%UID '53233152024E'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 53233152024E
; // %LINKS
%ATTRIBUTES
PRIVATE <<Attribute>> f_Handle
%UID '4A60357F0023'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_Handle
; // %ATTRIBUTES
; // Tk2Layer
<<SimpleClass>> Tk2DictItem
%UID '484D42AC01C3'
%DOCUMENTATION 'Словарная запись, со ссылкой на родительский тег'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '02.12.2005 16:59'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47AC58810008' /* k2ParentedTagObject */
; // %IMPLEMENTS
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '53208F54004F' /* Tk2DictRecTag */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '536107A9016E'
%TARGET U$ '4A605C540221' /* Tl3OneBytePtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
; // Tk2DictItem
<<SimpleClass>> Tk2DictRec
%UID '47AC5ED302A1'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '11.10.1999 12:08'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '53208F54004F' /* Tk2DictRecTag */
; // %INHERITS
%LINKS
<<uses>> "49A65B4A005E"
%UID '49A65B4A005E'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 49A65B4A005E
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '4A606010000E'
%TARGET U$ '4A605C540221' /* Tl3OneBytePtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
; // Tk2DictRec
ABSTRACT <<MixInMirror>> Mk2Tag
%UID '4CED570E029C'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC5591007B' /* k2Tag */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
; // %REALIZES
; // Mk2Tag
<<SimpleClass>> Tk2DictionaryEx
%UID '535664EC03B3'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4860AF86034F' /* Tk2Dictionary */
; // %INHERITS
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '4B8BBA220048' /* DRByID */
; // %OVERRIDES
%LINKS
<<uses>> "5356658600E0"
%UID '5356658600E0'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 5356658600E0
; // %LINKS
%ATTRIBUTES
PROTECTED LINK <<Attribute>> f_LastRec
%UID '535665440242'
%TARGET U$ '49A6BDFE0177' /* TLastRec */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_LastRec
PROTECTED FINAL LINK <<readonly>> AtomType
%UID '5356656C03E2'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%META
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // AtomType
SUMMONED PRIVATE LINK <<Attribute>> f_AtomType
%UID '245D2E58EB7E'
%DOCUMENTATION 'Поле для свойства AtomType'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_AtomType
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '53565C580228'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53565C60012F'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aType
%UID '53565C690090'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
; // %OPERATIONS
%CHILDREN
<<Struct>> TLastRec
%UID '49A6BDFE0177'
%DOCUMENTATION 'Предыдущий элемент, к которому обращались'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%ATTRIBUTES
FINAL <<Attribute>> rID
%UID '49A6BE2C0216'
%DOCUMENTATION 'Идентификатор элемента'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // rID
FINAL <<Attribute>> rTag
%UID '49A6BE3E00EF'
%DOCUMENTATION 'Собственно элемент'
%TARGET U$ '534572370056' /* Tl3Tag */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // rTag
; // %ATTRIBUTES
; // TLastRec
; // %CHILDREN
; // Tk2DictionaryEx
<<SimpleClass>> Tk2TypedHugeLeafTag
%UID '53AAF9330342'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '47AC562D0134' /* k2HashTag */
U$ '532081A90261' /* Tk2LeafTag */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> HashType
%UID '53AAF98D0290'
%TARGET U$ '47AC5BBC025C' /* Tl3PtrHash */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // HashType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '53AAF96000F4'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2TypedHugeLeafTag
; // %CHILDREN
; // k2CoreObjects
<<Interfaces>> k2Types
%UID '469F886F010C'
%DOCUMENTATION 'Базовые типы.'
%DEPENDS
U$ '4678137501EA' /* k2Interfaces */
U$ '47913B47006E' /* l3CoreObjects */
; // %DEPENDS
%META
%upv "author" 'Люлин А.В.'
%upv "is namespace" true
%upv "no hands" true
%upv "started" '01.12.1998 19:16'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<Typedef>> Tk2TypeKind
%UID '530DF71B0297'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F88B30381' /* Tk2TypeKind */
; // %INHERITS
; // Tk2TypeKind
<<Typedef>> Tk2VarKind
%UID '530DF7280141'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '533BFA7F0182' /* Tk2VarKind */
; // %INHERITS
; // Tk2VarKind
<<Typedef>> Tk2Variant
%UID '530DF7340360'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '469F893F01AB' /* Tk2Variant */
; // %INHERITS
%REALIZES
U$ '530F1B3C029B' /* Kind */
U$ '530F1B6501B3' /* AsString */
U$ '530F1B86025B' /* AsInteger */
U$ '530F1BA50053' /* AsStream */
U$ '532AE5E5015C' /* AsVariant */
; // %REALIZES
; // Tk2Variant
SUMMONED <<Constants>> Tk2TypeKind_Tk2TypeKind_Constants
%UID '3F4381CBD91B'
%DOCUMENTATION 'Алиасы для значений k2Interfaces.Tk2TypeKind'
%META
%upv "spell names" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%ATTRIBUTES
SUMMONED <<Attribute>> k2_tkInteger
%UID 'F7A134A5823C'
%VALUE 'k2_tkInteger'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // k2_tkInteger
SUMMONED <<Attribute>> k2_tkBool
%UID 'F7ECB2536A81'
%VALUE 'k2_tkBool'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // k2_tkBool
SUMMONED <<Attribute>> k2_tkObject
%UID '183BFEE193B5'
%VALUE 'k2_tkObject'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // k2_tkObject
SUMMONED <<Attribute>> k2_tkTransparent
%UID 'F6F5E5A84BFE'
%VALUE 'k2_tkTransparent'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // k2_tkTransparent
SUMMONED <<Attribute>> k2_tkStream
%UID '9AB05E716E5A'
%VALUE 'k2_tkStream'
%META
%upv "AutoInc" false
%upv "forced type" 'none'
%upv "is define" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // k2_tkStream
; // %ATTRIBUTES
; // Tk2TypeKind_Tk2TypeKind_Constants
; // %CHILDREN
; // k2Types
<<Unit>> Generators
%UID '47ECA80B000D'
%DOCUMENTATION 'Генераторы.'
%DEPENDS
U$ '4678137501EA' /* k2Interfaces */
U$ '467FC43F01F9' /* k2CoreObjects */
U$ '469F886F010C' /* k2Types */
U$ '47913B47006E' /* l3CoreObjects */
U$ '49A58A1A03C4' /* k2PrimObjects */
U$ '4A4DE16302A2' /* k2Core */
U$ '4AB0C3C60310' /* Sys */
U$ '53A963DD0356' /* TagAttributes */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2BaseStackGenerator
%UID '4836B2EC01DE'
%DOCUMENTATION 'Генераторы тегов со стеком текущего состояния.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '18.09.2002 10:17'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47ECAA5B0394' /* Tk2TagGenerator */
; // %INHERITS
%LINKS
<<uses>> "53A967A10314"
%UID '53A967A10314'
%TARGET U$ '53A963F700CD' /* Tk2Attributes */
; // 53A967A10314
; // %LINKS
; // Tk2BaseStackGenerator
FINAL <<UtilityPack>> k2TagGen
%UID '47ECAA270135'
%DOCUMENTATION 'Базовый абстрактный класс для генераторов тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "no hands" false
%upv "started" '01.12.1998 18:48'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<Facet>> Ik2TagGeneratorWrap
%UID '4A3A35D30362'
; // Ik2TagGeneratorWrap
<<SimpleClass>> Tk2TagGeneratorOwner
%UID '538C21C10077'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
; // Tk2TagGeneratorOwner
<<Facet>> Ik2TagGeneratorChainEnd
%UID '53C3C92502CE'
; // Ik2TagGeneratorChainEnd
<<SimpleClass>> Tk2TagGenerator
%UID '47ECAA5B0394'
%DOCUMENTATION 'Базовый абстрактный класс для генераторов тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '01.12.1998 18:48'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4678160E01BE' /* Ik2TagGenerator */
U$ '4A3A35D30362' /* Ik2TagGeneratorWrap */
U$ '53C3C92502CE' /* Ik2TagGeneratorChainEnd */
; // %IMPLEMENTS
%INHERITS
U$ '47879856035F' /* Tl3_Base */
; // %INHERITS
%REALIZES
U$ '469F83C300B2' /* AddStringAtom$469F83C300B2 */
U$ '469F84BB0023' /* AddStringAtom$469F84BB0023 */
U$ '469F870C01B6' /* AddStreamAtom */
U$ '469F872B0124' /* AddTransparentAtom */
U$ '469F87470084' /* AddIntegerAtom */
U$ '469F87D4002D' /* AddBoolAtom */
U$ '469F8818037E' /* AddAtom */
U$ '469F8B580244' /* AddAtomEx */
U$ '469F8B9E02C7' /* Start */
U$ '469F8BBA01EB' /* StartChild */
U$ '469F8BCC02D7' /* StartDefaultChild */
U$ '469F8BF00166' /* StartTag */
U$ '469F8C0A031C' /* Finish */
U$ '469F8C450231' /* CharsInLine */
U$ '469F8C6D01B6' /* NextGenerator */
U$ '469F8C8C02FB' /* CurrentStartLevel */
U$ '469F956E01A6' /* Rollback */
U$ '469F9589032C' /* Pixel2Char */
U$ '4C1B7F810123' /* CurrentVersion */
U$ '4E31464A0116' /* AddInt64Atom */
U$ '532AD07903C5' /* Char2Pixel */
U$ '533C0C71011C' /* Context */
; // %REALIZES
%LINKS
<<uses>> "530F1E1103E5"
%UID '530F1E1103E5'
%TARGET U$ '530F1BCA00B2' /* Tk2VariantImpl */
; // 530F1E1103E5
; // %LINKS
%OPERATIONS
PROTECTED <<Operation>> AddAtom
%UID '4836D26F0055'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> AtomIndex
%UID '4836D27F004B'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // AtomIndex
<<in>> aValue
%UID '530DFF330329'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aValue
; // %PARAMETERS
; // AddAtom
PROTECTED <<Operation>> StartChild
%UID '4836D4650177'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> TypeID
%UID '4836D46F0370'
%TARGET U$ '5334230E0043' /* Tl3Type */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // TypeID
; // %PARAMETERS
; // StartChild
PROTECTED <<Operation>> StartTag
%UID '4836D477022A'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> TagID
%UID '4836D47D025F'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // TagID
; // %PARAMETERS
; // StartTag
PROTECTED <<Operation>> OpenStream
%UID '4836D49800CA'
%DOCUMENTATION 'вызывается один раз при начале генерации. Для перекрытия в потомках.'
; // OpenStream
PROTECTED <<Operation>> CloseStream
%UID '4836D4B003DC'
%DOCUMENTATION 'вызывается один раз в конце генерации. Для перекрытия в потомках.'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> NeedUndo
%UID '4836D4BA025D'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedUndo
; // %PARAMETERS
; // CloseStream
PROTECTED <<Operation>> CloseStructure
%UID '4836D4C20059'
%DOCUMENTATION 'вызывается на закрывающуюся "скобку". Для перекрытия в потомках.'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> NeedUndo
%UID '4836D4CF0372'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedUndo
; // %PARAMETERS
; // CloseStructure
PROTECTED <<Operation>> GeneratorChanged
%UID '4836D4D503C9'
%DOCUMENTATION 'нотификация о смене следующего генератора. Для перекрытия в потомках.'
; // GeneratorChanged
PROTECTED INTEGER FUNCTION GetObjectID
%UID '4836D4F5021B'
%TARGET U$ '3DBFFD7002C2' /* long */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Name
%UID '4836D503006D'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Name
<<in>> Child
%UID '4836D50300B0'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Child
; // %PARAMETERS
; // GetObjectID
PROTECTED <<Operation>> AddAtomEx
%UID '4836D52400D9'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> AtomIndex
%UID '4836D52B02F2'
%TARGET U$ '3DBFFD7002C2' /* long */
; // AtomIndex
<<in>> Value
%UID '4836D52B0336'
%TARGET U$ '530F1ADF03E1' /* Ik2Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Value
; // %PARAMETERS
; // AddAtomEx
PROTECTED <<Operation>> AfterStreamOpened
%UID '4836D534009A'
; // AfterStreamOpened
PROTECTED <<Operation>> Error
%UID '4836D5440159'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Message
%UID '4836D54C0385'
%TARGET U$ '3DBFFE240068' /* string */
; // Message
<<in>> NeedException
%UID '4836D54C03D2'
%TARGET U$ '46A603BB0391' /* Boolean */
%VALUE true
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedException
; // %PARAMETERS
; // Error
<<vctor>> Create
%UID '538C1F9A00C7'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOwner
%UID '538C1FC20338'
%TARGET U$ '538C21C10077' /* Tk2TagGeneratorOwner */
%VALUE 'nil'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOwner
; // %PARAMETERS
; // Create
; // %OPERATIONS
; // Tk2TagGenerator
; // %CHILDREN
; // k2TagGen
<<SimpleClass>> Tk2DocumentGenerator
%UID '47F226C7001F'
%DOCUMENTATION 'Генератор образа документа в оперативной памяти.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '18.05.98 15:19'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4836B2EC01DE' /* Tk2BaseStackGenerator */
; // %INHERITS
%OPERATIONS
PROTECTED <<Operation>> DoStartAtom
%UID '4836B39C025E'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<inout>> Atom
%UID '4836B39F025A'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Atom
; // %PARAMETERS
; // DoStartAtom
PROTECTED <<Operation>> DoFinishAtom
%UID '4836B3A70291'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<inout>> anAtom
%UID '4836B3A90172'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anAtom
; // %PARAMETERS
; // DoFinishAtom
PROTECTED <<Operation>> DoBeforeFinishAtom
%UID '4836B3B80074'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<inout>> Atom
%UID '4836B3BC009B'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Atom
; // %PARAMETERS
; // DoBeforeFinishAtom
PROTECTED <<Operation>> DoAddAtom
%UID '4836B3DB01C9'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Atom
%UID '4836B3F40284'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Atom
<<in>> Prop
%UID '4836B3F402AB'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Prop
<<in>> aSource
%UID '530E010C0141'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aSource
; // %PARAMETERS
; // DoAddAtom
PROTECTED INTEGER FUNCTION AddChild
%UID '4836B3FC032A'
%TARGET U$ '3DBFFD7002C2' /* long */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<inout>> aChild
%UID '4836B40103BA'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aChild
; // %PARAMETERS
; // AddChild
PROTECTED <<Operation>> DeleteChild
%UID '4836B4080275'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aChild
%UID '4836B40E02EF'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aChild
; // %PARAMETERS
; // DeleteChild
PROTECTED <<Operation>> NeedPreAddChild
%UID '4836B42200AF'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aChild
%UID '4836B42B0330'
%TARGET U$ '47F2272B0394' /* Tk2StackAtom */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aChild
; // %PARAMETERS
; // NeedPreAddChild
; // %OPERATIONS
%CHILDREN
<<Struct>> Tk2StackAtom
%UID '47F2272B0394'
; // Tk2StackAtom
; // %CHILDREN
; // Tk2DocumentGenerator
<<SimpleClass>> Tk2CustomStackGenerator
%UID '482D6F380205'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '18.09.2002 10:17'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4836B2EC01DE' /* Tk2BaseStackGenerator */
; // %INHERITS
; // Tk2CustomStackGenerator
<<SimpleClass>> Tk2DocumentBuffer
%UID '47ECA82403AC'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '16.03.2004 17:53'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47F226C7001F' /* Tk2DocumentGenerator */
; // %INHERITS
; // Tk2DocumentBuffer
<<SimpleClass>> Tk2CustomStackGeneratorEx
%UID '4836BFF2026B'
%DOCUMENTATION 'Промежуточный вспомогательный класс генераторов тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '18.09.2002 10:17'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '482D6F380205' /* Tk2CustomStackGenerator */
; // %INHERITS
; // Tk2CustomStackGeneratorEx
<<SimpleClass>> Tk2CustomFileGenerator
%UID '4836BFC9011E'
%DOCUMENTATION 'Базовый писатель тегов в файл.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '21.02.2005 18:55'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4836BFF2026B' /* Tk2CustomStackGeneratorEx */
; // %INHERITS
%OPERATIONS
PROTECTED <<Operation>> OutEOL
%UID '483A6DE30208'
%DOCUMENTATION 'Выводит конец строки.'
; // OutEOL
; // %OPERATIONS
; // Tk2CustomFileGenerator
<<SimpleClass>> Tk2TagTerminator
%UID '49E487BD025D'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4836BFF2026B' /* Tk2CustomStackGeneratorEx */
; // %INHERITS
; // Tk2TagTerminator
<<SimpleClass>> Tk2TagFilter
%UID '49E487A70144'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '49E487BD025D' /* Tk2TagTerminator */
; // %INHERITS
%OPERATIONS
PROTECTED <<method>> NeedTranslateChildToNextPrim
%UID '4E15CBD5018B'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4E15CBF802C7'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOpenMode
%UID '4E15CC0300FE'
%TARGET U$ '4E15CBC600AA' /* Tk2TagFilterOpenMode */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOpenMode
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // NeedTranslateChildToNextPrim
PROTECTED <<method>> DoCloseStructure
%UID '4E45166B0156'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4E451678032C'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> NeedUndo
%UID '4E451682003F'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedUndo
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // DoCloseStructure
PROTECTED <<Operation>> DoStartChild
%UID '4A2D1217037A'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> TypeID
%UID '4A2D121F0179'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // TypeID
; // %PARAMETERS
; // DoStartChild
PROTECTED <<Operation>> DoAddAtomEx
%UID '4A2D1634025B'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> AtomIndex
%UID '4A2D163D03AE'
%TARGET U$ '46A606AC03B2' /* Integer */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // AtomIndex
<<in>> Value
%UID '4A2D163E001F'
%TARGET U$ '530F1ADF03E1' /* Ik2Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // Value
; // %PARAMETERS
; // DoAddAtomEx
PROTECTED <<Operation>> NeedTranslateChildToNext
%UID '4CA3006302BC'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // NeedTranslateChildToNext
; // %OPERATIONS
%CHILDREN
<<Enum>> Tk2TagFilterOpenMode
%UID '4E15CBC600AA'
; // Tk2TagFilterOpenMode
; // %CHILDREN
; // Tk2TagFilter
<<SimpleClass>> Tk2InPlaceGenerator
%UID '4C6D285C0052'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47F226C7001F' /* Tk2DocumentGenerator */
; // %INHERITS
; // Tk2InPlaceGenerator
<<SimpleClass>> Tk2TagTranslator
%UID '53BBFCB00241'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '47ECAA5B0394' /* Tk2TagGenerator */
; // %INHERITS
; // Tk2TagTranslator
<<SimpleClass>> Tk2ForkGenerator
%UID '53BBFCA20372'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '53BBFCB00241' /* Tk2TagTranslator */
; // %INHERITS
; // Tk2ForkGenerator
; // %CHILDREN
; // Generators
<<Unit>> Readers
%UID '482D6E960087'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47ECA80B000D' /* Generators */
U$ '4AB0C3C60310' /* Sys */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2CustomReader
%UID '482D6ED9000A'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '22.09.1999 11:47'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '482D6F380205' /* Tk2CustomStackGenerator */
; // %INHERITS
%OPERATIONS
PROTECTED <<virtualmethod>> Read
%UID '4F68343D038D'
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4F6834510218'
; // DoIt
; // %OPERATIONS
; // Read
; // %OPERATIONS
; // Tk2CustomReader
<<SimpleClass>> Tk2CustomFileReader
%UID '482D6EB4003A'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '22.09.1999 11:47'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '482D6ED9000A' /* Tk2CustomReader */
; // %INHERITS
; // Tk2CustomFileReader
<<SimpleClass>> Tk2CustomFileParser
%UID '483E81520007'
%DOCUMENTATION 'Базовый класс "читателей" тегов, обладающий парсером.'
%META
%upv "author" 'Люлин А.В.'
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "started" '22.09.1999 11:47'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '482D6EB4003A' /* Tk2CustomFileReader */
; // %INHERITS
; // Tk2CustomFileParser
FINAL <<Service>> Tk2EVDReaderService
%UID '555DB43B00BD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "singleton" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '30860C64BDA8' /* Mk2EVDReaderService */
; // %IMPLEMENTS
%INHERITS
U$ '49E7754802A9' /* Tl3ProtoObject */
; // %INHERITS
%REALIZES
U$ '6A9002DE6C1A' /* MakeReader */
U$ '9F46A5A9DAF5' /* GetReader */
; // %REALIZES
%OVERRIDES
U$ '5000565C019C' /* ClearFields */
; // %OVERRIDES
%ATTRIBUTES
SUMMONED FINAL <<writeonly>> Alien
%UID '59EA6D934673'
%DOCUMENTATION 'Внешняя реализация сервиса Ik2EVDReaderService'
%TARGET U$ '4EE7B78D5AA0' /* Ik2EVDReaderService */
%META
%upv "needs field" true
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Alien
SUMMONED PRIVATE <<Attribute>> f_Alien
%UID 'F79659A87BE8'
%DOCUMENTATION 'Поле для свойства Alien'
%TARGET U$ '4EE7B78D5AA0' /* Ik2EVDReaderService */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Alien
; // %ATTRIBUTES
%OPERATIONS
FINAL <<responsibility>> GetReader
%UID '555DB53301DC'
%TARGET U$ '482D6EB4003A' /* Tk2CustomFileReader */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetReader
FINAL <<responsibility>> MakeReader
%UID '55701A7A01B4'
%TARGET U$ '46781657008C' /* Il3Reader */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aFileName
%UID '55701AA60342'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aFileName
<<in>> aFilter
%UID '55701AA6037A'
%TARGET U$ '4678160E01BE' /* Ik2TagGenerator */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aFilter
; // %PARAMETERS
; // MakeReader
SUMMONED FINAL <<static>> Exists
%UID 'EF20453ACC1B'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
%CHILDREN
SUMMONED <<PureMixIn>> Mk2EVDReaderService
%UID '30860C64BDA8'
%DOCUMENTATION 'Контракт сервиса Tk2EVDReaderService'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
SUMMONED ABSTRACT <<Operation>> GetReader
%UID '9F46A5A9DAF5'
%TARGET U$ '482D6EB4003A' /* Tk2CustomFileReader */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetReader
SUMMONED ABSTRACT <<Operation>> MakeReader
%UID '6A9002DE6C1A'
%TARGET U$ '46781657008C' /* Il3Reader */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> aFileName
%UID 'A8321E95D8B4'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aFileName
SUMMONED <<in>> aFilter
%UID 'A8321E95D8B5'
%TARGET U$ '4678160E01BE' /* Ik2TagGenerator */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aFilter
; // %PARAMETERS
; // MakeReader
; // %OPERATIONS
; // Mk2EVDReaderService
SUMMONED <<Facet>> Ik2EVDReaderService
%UID '4EE7B78D5AA0'
%DOCUMENTATION 'Интерфейс сервиса Tk2EVDReaderService'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '30860C64BDA8' /* Mk2EVDReaderService */
; // %IMPLEMENTS
%REALIZES
U$ '6A9002DE6C1A' /* MakeReader */
U$ '9F46A5A9DAF5' /* GetReader */
; // %REALIZES
; // Ik2EVDReaderService
; // %CHILDREN
; // Tk2EVDReaderService
FINAL <<Service>> Tk2EVDWriterService
%UID '555DCEA8017E'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
%upv "singleton" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '57767888A990' /* Mk2EVDWriterService */
; // %IMPLEMENTS
%INHERITS
U$ '49E7754802A9' /* Tl3ProtoObject */
; // %INHERITS
%REALIZES
U$ '26782C1B9519' /* GetWriter */
U$ 'F7BF6A35E2B1' /* MakeWriter */
; // %REALIZES
%OVERRIDES
U$ '5000565C019C' /* ClearFields */
; // %OVERRIDES
%ATTRIBUTES
SUMMONED FINAL <<writeonly>> Alien
%UID '2233968BE6D1'
%DOCUMENTATION 'Внешняя реализация сервиса Ik2EVDWriterService'
%TARGET U$ '45A65DABCE57' /* Ik2EVDWriterService */
%META
%upv "needs field" true
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Alien
SUMMONED PRIVATE <<Attribute>> f_Alien
%UID 'F474669A14A2'
%DOCUMENTATION 'Поле для свойства Alien'
%TARGET U$ '45A65DABCE57' /* Ik2EVDWriterService */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Alien
; // %ATTRIBUTES
%OPERATIONS
FINAL <<responsibility>> GetWriter
%UID '555DCEC1021B'
%TARGET U$ '4836BFC9011E' /* Tk2CustomFileGenerator */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetWriter
FINAL <<responsibility>> MakeWriter
%UID '55701AE20388'
%TARGET U$ '4678160E01BE' /* Ik2TagGenerator */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aFileName
%UID '55701AF401C9'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aFileName
; // %PARAMETERS
; // MakeWriter
SUMMONED FINAL <<static>> Exists
%UID '49CF7F750647'
%DOCUMENTATION 'Проверяет создан экземпляр синглетона или нет'
%TARGET U$ '46A603BB0391' /* Boolean */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Exists
; // %OPERATIONS
%CHILDREN
SUMMONED <<PureMixIn>> Mk2EVDWriterService
%UID '57767888A990'
%DOCUMENTATION 'Контракт сервиса Tk2EVDWriterService'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
SUMMONED ABSTRACT <<Operation>> GetWriter
%UID '26782C1B9519'
%TARGET U$ '4836BFC9011E' /* Tk2CustomFileGenerator */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // GetWriter
SUMMONED ABSTRACT <<Operation>> MakeWriter
%UID 'F7BF6A35E2B1'
%TARGET U$ '4678160E01BE' /* Ik2TagGenerator */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> aFileName
%UID '6D37694A9AFF'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aFileName
; // %PARAMETERS
; // MakeWriter
; // %OPERATIONS
; // Mk2EVDWriterService
SUMMONED <<Facet>> Ik2EVDWriterService
%UID '45A65DABCE57'
%DOCUMENTATION 'Интерфейс сервиса Tk2EVDWriterService'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '57767888A990' /* Mk2EVDWriterService */
; // %IMPLEMENTS
%REALIZES
U$ '26782C1B9519' /* GetWriter */
U$ 'F7BF6A35E2B1' /* MakeWriter */
; // %REALIZES
; // Ik2EVDWriterService
; // %CHILDREN
; // Tk2EVDWriterService
; // %CHILDREN
; // Readers
<<Unit>> TagViews
%UID '4DF0C61901BE'
%DEPENDS
U$ '4678137501EA' /* k2Interfaces */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47AC75550330' /* k2Tags */
U$ '4A6D65B9022A' /* Containers */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
ABSTRACT <<SimpleClass>> Tk2CustomTagView
%UID '4DF0C6690021'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '09.06.2011 17:11'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4DEFC3B90061' /* l3OtherTypedListView */
; // %INHERITS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ListType
%UID '4DF0C68D0254'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // ListType
PRIVATE ABSTRACT <<impurity_value>> ItemType
%UID '4DF0C6A0026B'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // ItemType
; // %ATTRIBUTES
%CHILDREN
FINAL <<Define>> l3ViewListIsTag
%UID '4DF0C70902FE'
; // l3ViewListIsTag
; // %CHILDREN
; // Tk2CustomTagView
<<SimpleClass>> Tk2TagByHandleView
%UID '4DF0C6BE0166'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '09.08.2011 17:17'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4DF0C6690021' /* Tk2CustomTagView */
; // %INHERITS
%REALIZES
U$ '4DEFB2D90167' /* CompareData */
; // %REALIZES
%LINKS
<<uses>> "4DF0C6EB0150"
%UID '4DF0C6EB0150'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 4DF0C6EB0150
; // %LINKS
; // Tk2TagByHandleView
; // %CHILDREN
; // TagViews
<<EVD>> Standard
%UID '4849284D0067'
%DOCUMENTATION 'Базовая структура тегов.'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678137501EA' /* k2Interfaces */
U$ '4678193C009C' /* l3Types */
U$ '467FC43F01F9' /* k2CoreObjects */
U$ '46A5E026007E' /* l3Core */
U$ '473C3BEE0334' /* l3Canvas */
U$ '4767743E00E5' /* TypInfo */
U$ '47913B47006E' /* l3CoreObjects */
U$ '4799D29F033F' /* Implementation */
U$ '47A1D4C201E8' /* l3Const */
U$ '47AC75550330' /* k2Tags */
U$ '49A58A1A03C4' /* k2PrimObjects */
U$ '4AB0997B00A2' /* Common */
U$ '4AB0C3C60310' /* Sys */
U$ '4E57B8C2010F' /* "Требования к схеме документа EVD" */
U$ '52669BFC024E' /* CoreTypes */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4684F91300DD' /* Vcl */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
U$ '4E36644A0023' /* "Стандартные компоненты" */
; // %TOBEINCLUDED
%CHILDREN
<<TagTable>> k2Native
%UID '4849288E0078'
%DOCUMENTATION 'Стандартная таблица тегов.'
%META
%upv "author" 'Люлин А.В.'
%upv "elements prefix" 'k2'
%upv "started" '17.07.1998 16:29'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '52669C24032B' /* k2Core */
; // %INHERITS
%CHILDREN
ABSTRACT <<Atom>> Tag
%UID '4849298102AC'
%DOCUMENTATION 'Класс с переменным набором свойств'
%META
%upv "ID" 10
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A672F4F00E6' /* SomeDataContainer */
; // %INHERITS
; // Tag
<<Atom>> Handle
%UID '48492A4A0044'
%DOCUMENTATION 'Целочисленный идентификатор объекта'
%META
%upv "ID" 28
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '48492A0C00ED' /* Long */
; // %INHERITS
; // Handle
<<Atom>> Inch
%UID '48492A610311'
%DOCUMENTATION 'Дюйм'
%META
%upv "ID" 29
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '48492A0C00ED' /* Long */
; // %INHERITS
; // Inch
<<Atom>> Color
%UID '48492A930358'
%DOCUMENTATION 'Цвет'
%META
%upv "ID" 4
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%INHERITS
U$ '46A44A9E0112' /* Tl3Color */
U$ '48492A0C00ED' /* Long */
; // %INHERITS
; // Color
<<Atom>> RawData
%UID '48492B0701D8'
%DOCUMENTATION '"Сырые" данные'
%META
%upv "ID" 96
%upv "Implementation" 'undef'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%INHERITS
U$ '3ECB343C024C' /* pointer */
; // %INHERITS
; // RawData
<<Tag>> Int64
%UID '4E2EA10A004D'
%META
%upv "Defines CompareTagWithInt" false
%upv "Defines CompareTags" false
%upv "Implementation" 'leaf'
%upv "Parented" 'undefined'
%upv "SmallTag" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4849298102AC' /* Tag */
; // %INHERITS
%ATTRIBUTES
FINAL <<Attribute>> DocID
%UID '4E2EA5E80257'
%TARGET U$ '48492A0C00ED' /* Long */
%META
%upv "HasAfterChangeTrigger" 'undefined'
%upv "HasBeforeChangeTrigger" false
%upv "HasStoredTrigger" false
%upv "NeedMarkModified" 'undefined'
%upv "ReadOnly" 'undefined'
%upv "stored" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // DocID
FINAL <<Attribute>> SubID
%UID '4E2EA5F50027'
%TARGET U$ '48492A0C00ED' /* Long */
%META
%upv "HasAfterChangeTrigger" 'undefined'
%upv "HasBeforeChangeTrigger" false
%upv "HasStoredTrigger" false
%upv "NeedMarkModified" 'undefined'
%upv "ReadOnly" 'undefined'
%upv "stored" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // SubID
; // %ATTRIBUTES
; // Int64
; // %CHILDREN
; // k2Native
<<TagImplementator>> Ik2String
%UID '484AA16A0178'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492AC1023B' /* String */
; // %IMPLEMENTS
%INHERITS
U$ '53073D3D00BE' /* Tk2String */
; // %INHERITS
; // Ik2String
<<TagImplementator>> Ik2List
%UID '484AA1B401E5'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492AD90142' /* OList */
; // %IMPLEMENTS
%INHERITS
U$ '47AC59170251' /* Tk2List */
; // %INHERITS
; // Ik2List
<<TagImplementator>> Ik2RawData
%UID '484AA25B03E3'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492B0701D8' /* RawData */
; // %IMPLEMENTS
%INHERITS
U$ '53B546BC00BF' /* Tk2RawData */
; // %INHERITS
; // Ik2RawData
<<Wrapper>> WObject
%UID '484CCE17015D'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4849290E0318' /* Object */
; // %IMPLEMENTS
%INHERITS
U$ '484CCCFF00D7' /* Wk2Atom */
; // %INHERITS
%LINKS
<<uses>> "49A6DDDF016E"
%UID '49A6DDDF016E'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49A6DDDF016E
; // %LINKS
; // WObject
<<Wrapper>> WPersistent
%UID '48493F800373'
%DOCUMENTATION 'WPersistent'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '484CCE17015D' /* WObject */
; // %INHERITS
; // WPersistent
<<Wrapper>> Wl3List
%UID '4849461200AA'
%DOCUMENTATION 'Wl3List'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492AD90142' /* OList */
; // %IMPLEMENTS
%INHERITS
U$ '48493F800373' /* WPersistent */
; // %INHERITS
%LINKS
<<uses>> "49A6D270027E"
%UID '49A6D270027E'
%TARGET U$ '47AC59170251' /* Tk2List */
; // 49A6D270027E
; // %LINKS
; // Wl3List
<<Wrapper>> Wl3String
%UID '484945C0000E'
%DOCUMENTATION 'Wl3String'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492AC1023B' /* String */
; // %IMPLEMENTS
%INHERITS
U$ '48493F800373' /* WPersistent */
; // %INHERITS
%LINKS
<<uses>> "49A6D595020C"
%UID '49A6D595020C'
%TARGET U$ '4773DED9004C' /* Tl3_String */
; // 49A6D595020C
<<uses>> "49A6D5B003BE"
%UID '49A6D5B003BE'
%TARGET U$ '4773DEF0021B' /* Tl3CustomString */
; // 49A6D5B003BE
<<uses>> "49A6D7000065"
%UID '49A6D7000065'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 49A6D7000065
<<uses>> "53073DDE03A1"
%UID '53073DDE03A1'
%TARGET U$ '53073D3D00BE' /* Tk2String */
; // 53073DDE03A1
; // %LINKS
; // Wl3String
<<Wrapper>> Wk2DictRec
%UID '484D10530133'
%DOCUMENTATION 'Обёртка для словарных записей'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '48493F800373' /* WPersistent */
; // %INHERITS
%OVERRIDES
U$ '484CCEBC00DC' /* StrToTag */
; // %OVERRIDES
%LINKS
<<uses>> "49A6C00303D9"
%UID '49A6C00303D9'
%TARGET U$ '47AC5ED302A1' /* Tk2DictRec */
; // 49A6C00303D9
<<uses>> "49A6C03A0177"
%UID '49A6C03A0177'
%TARGET U$ '47C69EBC00A8' /* Tk2TagID */
; // 49A6C03A0177
<<uses>> "49A6C06F03AC"
%UID '49A6C06F03AC'
%TARGET U$ '47A8693601A1' /* Tl3PrimString */
; // 49A6C06F03AC
<<uses>> "49A6C0CF004E"
%UID '49A6C0CF004E'
%TARGET U$ '4773DEF0021B' /* Tl3CustomString */
; // 49A6C0CF004E
<<uses>> "5304E70D0111"
%UID '5304E70D0111'
%TARGET U$ '4860AF86034F' /* Tk2Dictionary */
; // 5304E70D0111
<<uses>> "530635C80047"
%UID '530635C80047'
%TARGET U$ '4CB46C85024E' /* k2NullTag */
; // 530635C80047
; // %LINKS
; // Wk2DictRec
<<Wrapper>> Wk2Tag
%UID '484941DA0047'
%DOCUMENTATION 'Wk2Tag'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4849298102AC' /* Tag */
; // %IMPLEMENTS
%INHERITS
U$ '48493F800373' /* WPersistent */
; // %INHERITS
; // Wk2Tag
<<Wrapper>> WLong
%UID '4849423C0299'
%DOCUMENTATION 'WLong'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492A0C00ED' /* Long */
; // %IMPLEMENTS
%INHERITS
U$ '484CCCFF00D7' /* Wk2Atom */
; // %INHERITS
%OVERRIDES
U$ '484CCE970073' /* AsString */
; // %OVERRIDES
%LINKS
<<uses>> "49C8F86A03B5"
%UID '49C8F86A03B5'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49C8F86A03B5
<<uses>> "49C8F8840210"
%UID '49C8F8840210'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 49C8F8840210
<<uses>> "49C8F90D0309"
%UID '49C8F90D0309'
%TARGET U$ '47A8693601A1' /* Tl3PrimString */
; // 49C8F90D0309
<<uses>> "49C8FC46018F"
%UID '49C8FC46018F'
%TARGET U$ '47AC7CF90230' /* "L3 Core Consts" */
; // 49C8FC46018F
; // %LINKS
; // WLong
<<Wrapper>> WEnumeration
%UID '484944E301AF'
%DOCUMENTATION 'WEnumeration'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492A33037B' /* Enum */
; // %IMPLEMENTS
%INHERITS
U$ '4849423C0299' /* WLong */
; // %INHERITS
%OVERRIDES
U$ '484CCE970073' /* AsString */
U$ '484CCEBC00DC' /* StrToTag */
; // %OVERRIDES
%LINKS
<<uses>> "49C8F5400236"
%UID '49C8F5400236'
%TARGET U$ '4767749802D1' /* PTypeInfo */
; // 49C8F5400236
<<uses>> "49C8F65D0292"
%UID '49C8F65D0292'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49C8F65D0292
<<uses>> "49C8F6F701AE"
%UID '49C8F6F701AE'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 49C8F6F701AE
; // %LINKS
; // WEnumeration
<<Wrapper>> WBool
%UID '4849452F013C'
%DOCUMENTATION 'WBool'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492A7A0255' /* Bool */
; // %IMPLEMENTS
%INHERITS
U$ '484944E301AF' /* WEnumeration */
; // %INHERITS
; // WBool
<<Wrapper>> WColor
%UID '4849457201A4'
%DOCUMENTATION 'WColor'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '07.09.1998 12:46'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492A930358' /* Color */
; // %IMPLEMENTS
%INHERITS
U$ '4849423C0299' /* WLong */
; // %INHERITS
%OVERRIDES
U$ '484CCE970073' /* AsString */
U$ '484CCEBC00DC' /* StrToTag */
; // %OVERRIDES
%LINKS
<<uses>> "49C8E7CB0225"
%UID '49C8E7CB0225'
%TARGET U$ '47D15712022D' /* Graphics */
; // 49C8E7CB0225
<<uses>> "49C8E8FD0393"
%UID '49C8E8FD0393'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 49C8E8FD0393
<<uses>> "4D6BC8EA0038"
%UID '4D6BC8EA0038'
%TARGET U$ '4D6BC8D102C0' /* StrToInt */
; // 4D6BC8EA0038
; // %LINKS
; // WColor
<<TagImplementator>> TIk2SomeDataContainer
%UID '4A672FB000A1'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A672F4F00E6' /* SomeDataContainer */
; // %IMPLEMENTS
; // TIk2SomeDataContainer
<<SimpleClass>> Tk2MemoryPoolAdapter
%UID '530B3B2303B1'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '530B3AAE01E8' /* Tl3MemoryPoolAdapter */
; // %INHERITS
; // Tk2MemoryPoolAdapter
<<SimpleClass>> Tk2MemoryStream
%UID '530B3FE100E2'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '49A67D880011' /* Ik2RawData */
; // %IMPLEMENTS
%INHERITS
U$ '48F473650362' /* Tl3MemoryStream */
; // %INHERITS
%REALIZES
U$ '49A67D980375' /* IsModified */
; // %REALIZES
; // Tk2MemoryStream
<<Wrapper>> WevFontName
%UID '484CEA1E0104'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '484CE9CE0107' /* FontName */
; // %IMPLEMENTS
%INHERITS
U$ '484945C0000E' /* Wl3String */
; // %INHERITS
%OVERRIDES
U$ '484CCEBC00DC' /* StrToTag */
U$ '484CEAD301AE' /* ObjToTag */
; // %OVERRIDES
%LINKS
<<uses>> "484CEBE90064"
%UID '484CEBE90064'
%TARGET U$ '4773D64E036C' /* l3Base */
; // 484CEBE90064
<<uses>> "484CEC8600B3"
%UID '484CEC8600B3'
%TARGET U$ '47877EB202FB' /* SysUtils */
; // 484CEC8600B3
<<uses>> "484CEC9C010B"
%UID '484CEC9C010B'
%TARGET U$ '47AC6F0B025E' /* k2Base */
; // 484CEC9C010B
<<uses>> "53037EBE003D"
%UID '53037EBE003D'
%TARGET U$ '4B88F0F00211' /* Tl3FontManagerEx */
; // 53037EBE003D
<<uses>> "53189647010E"
%UID '53189647010E'
%TARGET U$ '53188A6D02A7' /* Tk2FontName */
; // 53189647010E
<<uses>> "53189786030E"
%UID '53189786030E'
%TARGET U$ '484CE8FF0292' /* Tl3LogFont */
; // 53189786030E
<<uses>> "531897A5006C"
%UID '531897A5006C'
%TARGET U$ '5318974F0065' /* Tk2FontManager */
; // 531897A5006C
; // %LINKS
; // WevFontName
<<TagImplementator>> TIevdFontName
%UID '484CE988004E'
%DOCUMENTATION 'Имя шрифта.'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '484CE9CE0107' /* FontName */
; // %IMPLEMENTS
%INHERITS
U$ '53188A6D02A7' /* Tk2FontName */
; // %INHERITS
; // TIevdFontName
FINAL <<UtilityPack>> k2SizedMemoryPool
%UID '53B5469D0049'
%META
%upv "no hands" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<PureMixIn>> StreamCopying
%UID '53BD4C1602BC'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
ABSTRACT <<facetmethod>> CopyFrom
%UID '53B55ED6016D'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53B55EE1005B'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Source
%UID '53B55EEB017B'
%TARGET U$ '47E150FF028A' /* TStream */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Source
<<in>> Count
%UID '53B55EEB019E'
%TARGET U$ '47208C70028B' /* Int64 */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Count
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CopyFrom
ABSTRACT <<facetmethod>> CopyTo
%UID '53B55EF0025D'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53B55EFB0340'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> Dest
%UID '53B563140017'
%TARGET U$ '47E150FF028A' /* TStream */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Dest
<<in>> Count
%UID '53B55F02023A'
%TARGET U$ '47208C70028B' /* Int64 */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // Count
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CopyTo
; // %OPERATIONS
; // StreamCopying
<<SimpleClass>> Tk2SizedMemoryPool
%UID '53076BA10113'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '53BD4C1602BC' /* StreamCopying */
; // %IMPLEMENTS
%INHERITS
U$ '47AC5591007B' /* k2Tag */
U$ '484AA21A03BD' /* Tl3SizedMemoryPool */
; // %INHERITS
%REALIZES
U$ '49A545580241' /* SetAtomPrim */
U$ '53B55ED6016D' /* CopyFrom */
U$ '53B55EF0025D' /* CopyTo */
; // %REALIZES
%OVERRIDES
U$ '47A042E100E2' /* InitFields */
U$ '530B20AC019A' /* GetIsStream */
U$ '530B3ADB014E' /* GetMemoryPoolAdapterClass */
U$ '530B3F560201' /* GetMemoryStreamClass */
U$ '532AE8F2009A' /* GetIsOrd */
U$ '533121AF0203' /* GetTagType */
; // %OVERRIDES
%LINKS
<<uses>> "53076BC40219"
%UID '53076BC40219'
%TARGET U$ '48492B0701D8' /* RawData */
; // 53076BC40219
<<uses>> "530B3B3101CB"
%UID '530B3B3101CB'
%TARGET U$ '530B3B2303B1' /* Tk2MemoryPoolAdapter */
; // 530B3B3101CB
<<uses>> "530B3FEE02FB"
%UID '530B3FEE02FB'
%TARGET U$ '530B3FE100E2' /* Tk2MemoryStream */
; // 530B3FEE02FB
<<uses>> "53C0165000C9"
%UID '53C0165000C9'
%TARGET U$ '538DE3F001DC' /* Tl3TempMemoryStream */
; // 53C0165000C9
; // %LINKS
%OPERATIONS
FINAL <<Constructor>> Create$530770EB0342
%UID '530770EB0342'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$530770F203A3
%UID '530770F203A3'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aType
%UID '530770FC03DC'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // DoIt$530770F203A3
; // %OPERATIONS
; // Create$530770EB0342
FINAL <<Constructor>> Create$Def$530B592503D3
%UID '530B592503D3'
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$530B59300302
%UID '530B59300302'
; // DoIt$530B59300302
; // %OPERATIONS
; // Create$Def$530B592503D3
FINAL <<method>> Make$535786890241
%UID '535786890241'
%META
%upv "force overload" true
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%LINKS
<<uses>> "535786BA01A5"
%UID '535786BA01A5'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 535786BA01A5
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$5357869F0290
%UID '5357869F0290'
%TARGET U$ '5346BD53015A' /* Il3TagRef */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aType
%UID '535786A60015'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aType
; // %PARAMETERS
; // DoIt$5357869F0290
; // %OPERATIONS
; // Make$535786890241
FINAL <<Constructor>> CreateFromStream
%UID '53B552640177'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%LINKS
<<uses>> "53B552AE0029"
%UID '53B552AE0029'
%TARGET U$ '4D186F8401C5' /* OleCheck */
; // 53B552AE0029
<<uses>> "53B552E103A1"
%UID '53B552E103A1'
%TARGET U$ '47A080670100' /* l3Stream */
; // 53B552E103A1
<<uses>> "53B5537D00C8"
%UID '53B5537D00C8'
%TARGET U$ '48EA3BDD0023' /* ActiveXConsts */
; // 53B5537D00C8
<<uses>> "53B556BC0121"
%UID '53B556BC0121'
%TARGET U$ '48F4745E0023' /* l3BaseStream */
; // 53B556BC0121
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53B5526E031C'
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aStream
%UID '53B55273020A'
%TARGET U$ '47E150FF028A' /* TStream */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aStream
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CreateFromStream
FINAL <<method>> CreateFromString
%UID '53C00C140267'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53C00C1F007F'
%TARGET U$ '53076BA10113' /* Tk2SizedMemoryPool */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aString
%UID '53C00C2D00DB'
%TARGET U$ '47A8693601A1' /* Tl3PrimString */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aString
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CreateFromString
FINAL <<method>> CreateFromFile
%UID '53C015EF00DE'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%LINKS
<<uses>> "53C016200001"
%UID '53C016200001'
%TARGET U$ '53733E060113' /* Tl3NamedFileStream */
; // 53C016200001
<<uses>> "53C016300221"
%UID '53C016300221'
%TARGET U$ '48F4BE400154' /* Tl3FileMode */
; // 53C016300221
; // %LINKS
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53C015FB0301'
%TARGET U$ '53076BA10113' /* Tk2SizedMemoryPool */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aFileName
%UID '53C0160800BA'
%TARGET U$ '476136D3010B' /* String */
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // aFileName
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CreateFromFile
FINAL <<Constructor>> CreateFromIStream
%UID '53C3CD600278'
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53C3CD6C0194'
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aStream
%UID '53C3CD740093'
%TARGET U$ '46A5B0060013' /* IStream */
%TOBEINCLUDED
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
; // aStream
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // CreateFromIStream
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> k2Tag_No_f_TagType
%UID '53578CB60007'
; // k2Tag_No_f_TagType
; // %CHILDREN
; // Tk2SizedMemoryPool
<<Typedef>> Tk2RawData
%UID '53B546BC00BF'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '53076BA10113' /* Tk2SizedMemoryPool */
; // %INHERITS
; // Tk2RawData
; // %CHILDREN
; // k2SizedMemoryPool
<<Wrapper>> Wk2RawData
%UID '53C0068E01BC'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '48492B0701D8' /* RawData */
; // %IMPLEMENTS
%INHERITS
U$ '48493F800373' /* WPersistent */
; // %INHERITS
%OVERRIDES
U$ '484CEAD301AE' /* ObjToTag */
; // %OVERRIDES
%LINKS
<<uses>> "53C006E303A5"
%UID '53C006E303A5'
%TARGET U$ '47A8693601A1' /* Tl3PrimString */
; // 53C006E303A5
<<uses>> "53C00742031B"
%UID '53C00742031B'
%TARGET U$ '47A080670100' /* l3Stream */
; // 53C00742031B
<<uses>> "53C0075D00AC"
%UID '53C0075D00AC'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 53C0075D00AC
<<uses>> "53C009D60267"
%UID '53C009D60267'
%TARGET U$ '53076BA10113' /* Tk2SizedMemoryPool */
; // 53C009D60267
; // %LINKS
; // Wk2RawData
<<Wrapper>> WSetOf
%UID '5404252902E9'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '540424E100E8' /* SetOf */
; // %IMPLEMENTS
%INHERITS
U$ '4849423C0299' /* WLong */
; // %INHERITS
; // WSetOf
; // %CHILDREN
; // Standard
<<Unit>> k2Containers
%UID '5319CE3F02E2'
%DEPENDS
U$ '467FC43F01F9' /* k2CoreObjects */
U$ '47913B47006E' /* l3CoreObjects */
U$ '47BB24D30205' /* "Стандартные примеси" */
U$ '47E37BB6016B' /* k2InterfacesEx */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2SimpleTagList
%UID '5319CECC039A'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%INHERITS
U$ '4A5F28820363' /* k2SimpleTagListPrim */
U$ '5319E8FF0107' /* Tl3DataContainerWithoutIUnknownPrim */
; // %INHERITS
%OPERATIONS
FINAL <<method>> JoinWith$5319D72D03D1
%UID '5319D72D03D1'
%META
%upv "force overload" true
%upv "is static" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt$5319D74000E8
%UID '5319D74000E8'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> anOther
%UID '5319D74A020C'
%TARGET U$ '47B9D76B0301' /* Tk2TagList */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // anOther
; // %PARAMETERS
; // DoIt$5319D74000E8
; // %OPERATIONS
; // JoinWith$5319D72D03D1
; // %OPERATIONS
%CHILDREN
FINAL <<Define>> l3Items_NoSort
%UID '5319CF84038D'
; // l3Items_NoSort
; // %CHILDREN
; // Tk2SimpleTagList
<<SimpleClass>> Tk2InterfacedTagList
%UID '47E37EF20114'
%META
%upv "author" 'Люлин А.В.'
%upv "needs InstanceR" 'undefined'
%upv "no hands" true
%upv "register in scripts" 'undefined'
%upv "started" '21.03.2008 12:26'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '47E38876005D' /* Ik2TagList */
; // %IMPLEMENTS
%INHERITS
U$ '47CED1980057' /* l3InterfacedList */
U$ '5319CECC039A' /* Tk2SimpleTagList */
; // %INHERITS
%LINKS
<<uses>> "47E389AB035B"
%UID '47E389AB035B'
%TARGET U$ '4773D64E036C' /* l3Base */
; // 47E389AB035B
; // %LINKS
%ATTRIBUTES
PRIVATE ABSTRACT <<impurity_value>> ListType
%UID '47E37F06021F'
%TARGET U$ '47E37C150366' /* Ik2TagListPrim */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // ListType
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Factory>> MakeI
%UID '4BB09845006E'
%META
%upv "check nil" false
%upv "need AfterCreate" 'undefined'
%upv "need Aggregate" 'undefined'
%upv "need As" false
; // %META
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4BB0984C00A5'
; // DoIt
; // %OPERATIONS
; // MakeI
; // %OPERATIONS
; // Tk2InterfacedTagList
; // %CHILDREN
; // k2Containers
<<Unit>> k2TagTool
%UID '467C182A01BE'
%DOCUMENTATION 'Базовые классы для инструментов, манипулирующих тегами.'
%DEPENDS
U$ '4677FBA70343' /* l3Interfaces */
U$ '4678137501EA' /* k2Interfaces */
U$ '467FC43F01F9' /* k2CoreObjects */
U$ '47913B47006E' /* l3CoreObjects */
U$ '49A58A1A03C4' /* k2PrimObjects */
U$ '4AB0C3C60310' /* Sys */
U$ '4BC83B8301E5' /* k2PureMixIns */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
U$ '4E2F0E1B03BB' /* L3$Domain */
; // %TOBEINCLUDED
%CHILDREN
<<SimpleClass>> Tk2TagTool
%UID '467C18A303CB'
%DOCUMENTATION 'Инструмент для работы с тегом.'
%META
%upv "finished" false
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '467C185C03E7' /* Tk2TagPointer */
; // %INHERITS
; // Tk2TagTool
<<SimpleClass>> Tk2ProcessorTagTool
%UID '4BBF3D8B00CD'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4BBF4290001A' /* Mk2ProcessorHolder */
; // %IMPLEMENTS
%INHERITS
U$ '467C18A303CB' /* Tk2TagTool */
; // %INHERITS
%REALIZES
U$ '4BBF42BF004D' /* Processor */
; // %REALIZES
%OVERRIDES
U$ '479731C50290' /* Cleanup */
U$ '48CF73CE00B5' /* DoFire */
U$ '4A60B23E00C3' /* COMQueryInterface */
U$ '5000565C019C' /* ClearFields */
; // %OVERRIDES
%ATTRIBUTES
PROTECTED FINAL <<readonly>> Processor
%UID '54BD169902EF'
%TARGET U$ '4A51D59703DF' /* Ik2Processor */
%META
%upv "needs field" true
%upv "pm" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // Processor
SUMMONED PRIVATE <<Attribute>> f_Processor
%UID 'B269BE05A98F'
%DOCUMENTATION 'Поле для свойства Processor'
%TARGET U$ '4A51D59703DF' /* Ik2Processor */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // f_Processor
; // %ATTRIBUTES
%OPERATIONS
FINAL <<Constructor>> Create
%UID '4BBF40C603BD'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '4BBF40D0021D'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aTag
%UID '4BBF40EA0117'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
<<in>> aProcessor
%UID '4BBF40EA0169'
%TARGET U$ '4A51D59703DF' /* Ik2Processor */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Create
PROTECTED <<virtualmethod>> GetProcessor
%UID '54BD0F310322'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '54BD0F400339'
%TARGET U$ '4A51D59703DF' /* Ik2Processor */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // GetProcessor
PROTECTED FINAL <<method>> StartOp
%UID '54BD16B6032F'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '54BD16CB00B2'
%TARGET U$ '4A51CF380145' /* Ik2Op */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> OpCode
%UID '54BD16D7039A'
%TARGET U$ '46A606AC03B2' /* Integer */
%VALUE 0
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // OpCode
<<in>> DoLock
%UID '54BD16D703CC'
%TARGET U$ '46A603BB0391' /* Boolean */
%VALUE true
%TOBEINCLUDED
U$ '469F3E37025A' /* Rtl */
; // %TOBEINCLUDED
; // DoLock
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // StartOp
FINAL <<Factory>> Make
%UID '54BD284F0204'
%META
%upv "check nil" false
%upv "need AfterCreate" 'undefined'
%upv "need Aggregate" 'undefined'
%upv "need As" false
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '467818430333' /* Ik2TagTool */
; // %IMPLEMENTS
%INHERITS
U$ '4BBF40C603BD' /* Create */
; // %INHERITS
%REALIZES
U$ '47612ACF0081' /* Box */
U$ '476133660285' /* Attr */
U$ '4761365402FF' /* BoolA */
U$ '4761368701AB' /* IntA */
U$ '4761370F0048' /* StrA */
U$ '47613B8303CC' /* Child */
U$ '47613C0F02F4' /* BoolW */
U$ '47613C6A001F' /* IntW */
U$ '47613D4E02B3' /* StrW */
U$ '47613DB001A3' /* PCharLenA */
U$ '47613E120125' /* PCharLenW */
U$ '4761446F0081' /* Fire */
U$ '476144C702AA' /* ExcludeEvents */
U$ '476145AF00A8' /* ParentTool */
U$ '4A42149A01FE' /* AsString */
U$ '4A4216790331' /* AsWStr */
U$ '4A42195A0244' /* AsBool */
U$ '4A42196201B8' /* AsLong */
U$ '4A42196C01CE' /* AsObject */
U$ '4A421BE201A9' /* IsOrd */
U$ '4A421BED00FF' /* IsKindOf$4A421BED00FF */
U$ '4A421BF200BF' /* IsKindOf$4A421BF200BF */
U$ '4A421C12034A' /* IsKindOf$4A421C12034A */
U$ '4A422C1D00FE' /* AddChild */
U$ '4A42356B0022' /* ChildrenCount */
U$ '4A423C670156' /* SetRef */
U$ '4A423EC900C2' /* DeleteChild$4A423EC900C2 */
U$ '4A423ECE03A6' /* DeleteChild$4A423ECE03A6 */
U$ '4A423F0002E2' /* DeleteChild$4A423F0002E2 */
U$ '4A42489800D0' /* DoLoad */
U$ '4A4248A501C8' /* ForceStore */
U$ '4A4248C902F1' /* MarkModified */
U$ '4A6039AA0172' /* ChildrenCapacity */
U$ '4A6475C4026D' /* Owner */
U$ '4BB21F9D022F' /* IterateChildrenF */
U$ '4BBF49EB0260' /* IterateChildrenBack */
U$ '4BC31A730293' /* IterateProperties */
U$ '4BC71B0A028C' /* rLong */
U$ '4BC843A5011F' /* rAtomEx */
U$ '4BC843C80301' /* cAtom */
U$ '4BC843CE00EF' /* cAtomEx */
U$ '4BC8441500B7' /* HasSubAtom */
U$ '4BC8446D010E' /* IsNull */
U$ '4BC8447200B0' /* IsValid */
U$ '4BC8447501CB' /* IsTransparent */
U$ '4BC8447A0046' /* IsStream */
U$ '4BC84CA1035B' /* QT */
U$ '4BC84CEE0329' /* GetOwnInterface */
U$ '4E2EA8B10353' /* Int64A */
U$ '4E2EA93E029A' /* Int64W */
U$ '532C4B8E00CC' /* IsSame$532C4B8E00CC */
U$ '533195830003' /* AttrW */
U$ '533413FC02FC' /* TagType */
U$ '53B444D80378' /* DateTimeA */
U$ '53B52B130172' /* DateTimeW */
; // %REALIZES
%OPERATIONS
SUMMONED PRIVATE FINAL <<Operation>> DoIt
%UID '1203D15ACEB6'
%DOCUMENTATION 'Сигнатура фабрики Tk2ProcessorTagTool.Make'
%TARGET U$ '467818430333' /* Ik2TagTool */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
SUMMONED <<in>> aTag
%UID 'E65660820D86'
%TARGET U$ '532031160122' /* Tl3Variant */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aTag
SUMMONED <<in>> aProcessor
%UID '929756860143'
%TARGET U$ '4A51D59703DF' /* Ik2Processor */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // aProcessor
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // Make
; // %OPERATIONS
; // Tk2ProcessorTagTool
ABSTRACT <<MixInMirror>> Mk2TagPointer
%UID '508ADEB001A2'
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '467C185C03E7' /* Tk2TagPointer */
; // %INHERITS
; // Mk2TagPointer
<<SimpleClass>> Tk2ProcTagTool
%UID '467C18BF0367'
%DOCUMENTATION 'Инструмент для работы с тегом. Знает про процессор операций.'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%INHERITS
U$ '4BBF3D8B00CD' /* Tk2ProcessorTagTool */
; // %INHERITS
; // Tk2ProcTagTool
; // %CHILDREN
; // k2TagTool
<<Unit>> TagHolder
%UID '53B24DFD01FF'
%DEPENDS
U$ '47913B47006E' /* l3CoreObjects */
U$ '49A58A1A03C4' /* k2PrimObjects */
U$ '4AB0C3C60310' /* Sys */
; // %DEPENDS
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '469F3E37025A' /* Rtl */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%CHILDREN
<<Impurity>> k2TaggedDataHolder
%UID '53B24E23037A'
%META
%upv "needs InstanceR" 'undefined'
%upv "no hands" false
%upv "register in scripts" 'undefined'
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%IMPLEMENTS
U$ '4A5CB93700CF' /* Ml3Unknown */
; // %IMPLEMENTS
%OVERRIDES
U$ '52BC2B9401F3' /* AfterDestroyCalled */
U$ '53AC02B602E3' /* InitAfterAlloc */
; // %OVERRIDES
%LINKS
<<uses>> "53B24E5000AC"
%UID '53B24E5000AC'
%TARGET U$ '4ADC58F703CF' /* FreeAndNil */
; // 53B24E5000AC
; // %LINKS
%ATTRIBUTES
FINAL LINK <<readonly>> TaggedData
%UID '53B24E3D00DF'
%TARGET U$ '534572370056' /* Tl3Tag */
%META
%upv "pm" true
%upv "reads field" true
; // %META
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // TaggedData
SUMMONED PRIVATE LINK <<Attribute>> f_TaggedData
%UID 'F6B483878824'
%DOCUMENTATION 'Поле для свойства TaggedData'
%TARGET U$ '534572370056' /* Tl3Tag */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // f_TaggedData
; // %ATTRIBUTES
%OPERATIONS
PROTECTED ABSTRACT <<abstractmethod>> GetTaggedDataType
%UID '53AC03EE01FD'
%META
%upv "is static" true
; // %META
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53AC03FE0362'
%TARGET U$ '47AC723D02DC' /* Tk2Type */
%TOBEINCLUDED
U$ '4677E16A022A' /* K2 */
; // %TOBEINCLUDED
; // DoIt
; // %OPERATIONS
; // GetTaggedDataType
FINAL <<method>> SetTaggedData
%UID '53BFF56D0348'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%OPERATIONS
PRIVATE FINAL <<Operation>> DoIt
%UID '53BFF5780158'
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
%PARAMETERS
<<in>> aData
%UID '53BFF581008B'
%TARGET U$ '534572370056' /* Tl3Tag */
%TOBEINCLUDED
U$ '4790D09A0378' /* L3 */
; // %TOBEINCLUDED
; // aData
; // %PARAMETERS
; // DoIt
; // %OPERATIONS
; // SetTaggedData
; // %OPERATIONS
; // k2TaggedDataHolder
; // %CHILDREN
; // TagHolder
; // %CHILDREN
; // K2
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//
// Модуль: "w:/MDProcess/DelphiSpecific/DelphiLang/Scripting/ScriptKeywordsPack.tpi"
// Генерация мета-шаблонов
// Generated from UML model, root element: <<MDAClass::Class>> MDProcess$ForDelphi::DelphiSpecific::DelphiLang::Scripting::ScriptKeywordsPack
//
// Набор слов скрипта
//
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//: ScriptKeywordsPack::Class
implementation @ <<ScriptKeywordsPack>>
//? Набор слов скрипта
//> ScriptKeyword::Class
//= UtilityPack::Class
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Параметры стереотипа
// Параметры визуализации
//$ C 147,168,174
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Пользовательские свойства
//p no_pop:tribool=undefined ?
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _wiki_up_print
; // st_space_key
: wiki_up_print OBJECT IN %S
// %S#[inherited][{"%S{no_pop}"!="%S{!no_pop}"}%f_up_prefix(%S) *no_pop* = *%S{no_pop}*
?inherited
if ( ( %S get_up ( 'no_pop' ) ) %!= ( %S get_up_def ( 'no_pop' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *no_pop* = *'
%S get_up ( 'no_pop' ) '*'
// ]
end // if
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Унаследованная реализация
// перекрытие базового стереотипа Delphi интерфейсы и реализация::MDAGenerator
//%f _DoSpell
; // wiki_up_print
: DoSpell OBJECT IN %S
//#UC START# *4B2A19E3038Bfor4F2C15C90252*
// %S%f_set_implement_select_type(include)\
// %f_clear_list(PROPS)\
[%f] clear_list %( 'PROPS' )%
// <{}{%CS=property|%CS=readonly}\
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if ( ( %C |S ) %== 'property' OR
( ( %C |S ) %== 'readonly' ) ) then
begin
// %f_add_to_list(PROPS,C)\
[%f] add_to_list %( 'PROPS' %, 'C' )%
// >\
++! l_Counter
end // if
end // for C
// %{PROPS}<{}{}{%C}\
( get_global_var ( 'PROPS' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
// %1%f_add_operation(%1U_%CU_get,keyword,[{%CS!=readonly}Get]%CN (): %C%TU,Op_Instance)\
%1 %f add_operation %( %1 |U '_'
%C |U '_get' %, 'keyword' %, if ( ( %C |S ) %!= 'readonly' ) then
begin
'Get'
end // if
%C |N ' (): '
%C ->T |U %, 'Op_Instance' )%
// %f_TuneGS(%{Op_Instance},%C)\
[%f] TuneGS %( ( get_global_var ( 'Op_Instance' ) ) %, %C )%
// %{Op_Instance}%f_set_up(is_setter,false)\
( get_global_var ( 'Op_Instance' ) %f set_up %( 'is_setter' %, false )% )
// [{%CS!=readonly}\
if ( ( %C |S ) %!= 'readonly' ) then
begin
// %1%f_add_operation(%1U_%CU_set,keyword,Set%CN (aValue : %C%TU),Op_Instance)\
%1 %f add_operation %( %1 |U '_'
%C |U '_set' %, 'keyword' %, 'Set'
%C |N ' (aValue : '
%C ->T |U ')' %, 'Op_Instance' )%
// %f_TuneGS(%{Op_Instance},%C)\
[%f] TuneGS %( ( get_global_var ( 'Op_Instance' ) ) %, %C )%
// %{Op_Instance}%f_set_up(is_setter,true)\
( get_global_var ( 'Op_Instance' ) %f set_up %( 'is_setter' %, true )% )
// ]\
end // if
// >\
++! l_Counter
end // if
end // for C
) // bind
// %f_clear_list(PROPS)\
[%f] clear_list %( 'PROPS' )%
// %f_SpellFriends(%S)\
[%f] SpellFriends %( %S )%
// <{}{%t_isAcceptableForScripts(%G)=true}\
INTEGER VAR l_Counter l_Counter := 0
for %S%G
begin
OBJECT IN %G
if ( ( [%t] isAcceptableForScripts %( %G )% ) %== true ) then
begin
// %f_SpellWordsForParent(%S,%G,"true")\
[%f] SpellWordsForParent %( %S %, %G %, true )%
// >\
++! l_Counter
end // if
end // for G
// <{}{%t_isAcceptableForScripts(%R)=true}\
INTEGER VAR l_Counter l_Counter := 0
for %S%R
begin
OBJECT IN %R
if ( ( [%t] isAcceptableForScripts %( %R )% ) %== true ) then
begin
// %f_SpellWordsForParent(%S,%R,"false")\
[%f] SpellWordsForParent %( %S %, %R %, false )%
// >\
++! l_Counter
end // if
end // for R
// %f_clear_list(KEYS)\
[%f] clear_list %( 'KEYS' )%
// %S<{}{%C#f_IsGlobalKeyword()=true}\
%S
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if ( ( %C %?f IsGlobalKeyword %( )% ) %== true ) then
begin
// %f_add_to_list(KEYS,C)\
[%f] add_to_list %( 'KEYS' %, 'C' )%
// >\
++! l_Counter
end // if
end // for C
) // bind
// %f_set_var(GEN,"")\
[%f] set_var %( 'GEN' %, '' )%
// %{KEYS}<{}{}{%C}\
( get_global_var ( 'KEYS' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
// %f_SpellWordByOp(%1,%C)\
[%f] SpellWordByOp %( %1 %, %C )%
// >\
++! l_Counter
end // if
end // for C
) // bind
// %f_clear_list(KEYS)\
[%f] clear_list %( 'KEYS' )%
// %S%[inherited]
inherited
//f _TuneGS
; // DoSpell
end. // <<ScriptKeywordsPack>>
: TuneGS OBJECT IN %S
// %S%f_set_documentation(%1D)\
%S %f set_documentation %( %1 |D )%
// %S%f_set_up(prop_stereo,%1S)\
%S %f set_up %( 'prop_stereo' %, %1 |S )%
// %S%f_set_up(prop_name,%1N)\
%S %f set_up %( 'prop_name' %, %1 |N )%
// %S%f_set_up(mapped,%1{mapped})
%S %f set_up %( 'mapped' %, %1 get_up ( 'mapped' ) )%
//f _SpellWordsForParent
; // TuneGS
: SpellWordsForParent OBJECT IN %S
// [{%2N=true}\
if ( ( %2 |N ) %== true ) then
begin
// %f_addCDep(%S,%1,"injects")\
[%f] addCDep %( %S %, %1 %, 'injects' )%
// - иньекция
// [{%t_simple_class(%1)=true}\
if ( ( [%t] simple_class %( %1 )% ) %== true ) then
begin
// %S%f_add_class(%SU_%1U_Reg,SimpleClass,%f_pas_TypeName(%1)RegistratorFor%f_N(%S),Reg_Inst)\
%S %f add_class %( %S |U '_'
%1 |U '_Reg' %, 'SimpleClass' %, [%f] pas_TypeName %( %1 )% 'RegistratorFor'
[%f] N %( %S )% %, 'Reg_Inst' )%
// %f_addG(%{Reg_Inst},%1)\
[%f] addG %( ( get_global_var ( 'Reg_Inst' ) ) %, %1 )%
// %{Reg_Inst}%f_set_documentation(Регистратор для %f_pas_TypeName(%1))\
( get_global_var ( 'Reg_Inst' ) %f set_documentation %( 'Регистратор для '
[%f] pas_TypeName %( %1 )% )% )
// %{Reg_Inst}%f_set_abstraction_type(abstract)\
( get_global_var ( 'Reg_Inst' ) %f set_abstraction_type %( 'abstract' )% )
// %{Reg_Inst}%f_set_visibility_type(PrivateAccess)\
( get_global_var ( 'Reg_Inst' ) %f set_visibility_type %( 'PrivateAccess' )% )
// %{Reg_Inst}%f_set_up(register in scripts,true)\
( get_global_var ( 'Reg_Inst' ) %f set_up %( 'register in scripts' %, true )% )
// %{Reg_Inst}%f_set_up(is_friend,true)\
( get_global_var ( 'Reg_Inst' ) %f set_up %( 'is_friend' %, true )% )
// %{Reg_Inst}%f_set_implement_select_type(include)\
( get_global_var ( 'Reg_Inst' ) %f set_implement_select_type %( 'include' )% )
// ]\
end // if
// - регистратор
// ]\
end // if
// %f_clear_list(KEYS)\
[%f] clear_list %( 'KEYS' )%
// %S<{}{%C#f_IsKeyword()=true}\
%S
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if ( ( %C %?f IsKeyword %( )% ) %== true ) then
begin
// %f_add_to_list(KEYS,C)\
[%f] add_to_list %( 'KEYS' %, 'C' )%
// >\
++! l_Counter
end // if
end // for C
) // bind
// %f_set_var(GEN,1)\
[%f] set_var %( 'GEN' %, 1 )%
// %{KEYS}<{}{}{%C}\
( get_global_var ( 'KEYS' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
// %f_SpellWordByOp(%1,%C)\
[%f] SpellWordByOp %( %1 %, %C )%
// >\
++! l_Counter
end // if
end // for C
) // bind
// %f_clear_list(KEYS)
[%f] clear_list %( 'KEYS' )%
//f _SpellWordByOp
; // SpellWordsForParent
: SpellWordByOp OBJECT IN %S
// %S%f_add_class(%SU_%{GEN}U_%1U_Word,ScriptKeyword,\
%S %f add_class %( %S |U '_'
( get_global_var ( 'GEN' ) |U ) '_'
%1 |U '_Word' %, 'ScriptKeyword' %,
// [{"%{GEN}N"!=""}\
if ( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) then
begin
// [{%S{no_pop}!=true&%1#f_IsCreator()!=true}pop_][{%t_SelfName(%{GEN})!=SV}%t_SelfName(%{GEN})_]\
if ( ( %S get_up ( 'no_pop' ) ) %!= true AND
( ( %1 %?f IsCreator %( )% ) %!= true ) ) then
begin
'pop_'
end // if
if ( ( [%t] SelfName %( ( get_global_var ( 'GEN' ) ) )% ) %!= 'SV' ) then
begin
[%t] SelfName %( ( get_global_var ( 'GEN' ) ) )% '_'
end // if
// ]\
end // if
// %1N,\
%1 |N %,
// Class_Inst)\
'Class_Inst' )%
// [{%1#f_IsVarWorker()=true}\
if ( ( %1 %?f IsVarWorker %( )% ) %== true ) then
begin
// [{%1#f_IsWordWorker()=true}{\
if ( ( %1 %?f IsWordWorker %( )% ) %== true ) then
begin
// [{"%{TtfwWordWorkerEx}N"=""}%f_find_element(TtfwWordWorkerEx,TtfwWordWorkerEx)]\
if ( ( ( get_global_var ( 'TtfwWordWorkerEx' ) |N ) ) %== '' ) then
begin
[%f] find_element %( 'TtfwWordWorkerEx' %, 'TtfwWordWorkerEx' )%
end // if
// %f_addG(%{Class_Inst},%{TtfwWordWorkerEx})\
[%f] addG %( ( get_global_var ( 'Class_Inst' ) ) %, ( get_global_var ( 'TtfwWordWorkerEx' ) ) )%
// ]\
end // if
else
begin
// [{"%{TtfwVarWorker}N"=""}%f_find_element(TtfwVarWorker,TtfwVarWorker)]\
if ( ( ( get_global_var ( 'TtfwVarWorker' ) |N ) ) %== '' ) then
begin
[%f] find_element %( 'TtfwVarWorker' %, 'TtfwVarWorker' )%
end // if
// %f_addG(%{Class_Inst},%{TtfwVarWorker})\
[%f] addG %( ( get_global_var ( 'Class_Inst' ) ) %, ( get_global_var ( 'TtfwVarWorker' ) ) )%
// }\
end // else
// ]\
end // if
// [{"%1{NameForScript}"=""}{\
if ( ( %1 get_up ( 'NameForScript' ) ) %== '' ) then
begin
// %{Class_Inst}%f_set_up(NameForScript,%f_str_replace(%{Class_Inst}N,_,:))\
( get_global_var ( 'Class_Inst' ) %f set_up %( 'NameForScript' %, [%f] str_replace %( ( get_global_var ( 'Class_Inst' ) |N ) %, '_' %, ':' )% )% )
// ]\
end // if
else
begin
// %{Class_Inst}%f_set_up(NameForScript,%1{NameForScript})\
( get_global_var ( 'Class_Inst' ) %f set_up %( 'NameForScript' %, %1 get_up ( 'NameForScript' ) )% )
// }\
end // else
// %{Class_Inst}%f_set_documentation(Слово скрипта %f_loc_GetNameForScript(%{Class_Inst})[\n\{panel\}%1D\{panel\}]
( get_global_var ( 'Class_Inst' ) %f set_documentation %( 'Слово скрипта '
[%f] loc_GetNameForScript %( ( get_global_var ( 'Class_Inst' ) ) )% if NOT-EMPTY
begin
#13#10'{panel}'
%1 |D '{panel}'
end // if
NOP
// [{%1%TN!=void}*Тип результата:* %1%TN\n]\
if ( ( %1 ->T |N ) %!= 'void' ) then
begin
'*Тип результата:* '
%1 ->T |N #13#10
end // if
// [{%1#f_IsCreator()=true&"%{GEN}N"!=""}*Тип результата:* %{GEN}N\n]\
if ( ( %1 %?f IsCreator %( )% ) %== true AND
( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) ) then
begin
'*Тип результата:* '
( get_global_var ( 'GEN' ) |N ) #13#10
end // if
// *Пример:*
'*Пример:*'
// \{code\}
'{code}'
// %1<{}{}{%Cr}%CN >[{"%{GEN}N"!=""}a%t_SelfName(%{GEN}) ]%f_loc_GetNameForScript(%{Class_Inst})\
' '
%1
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for downto %S%C
begin
OBJECT IN %C
if true then
begin
%C |N ' '
++! l_Counter
end // if
end // for C
) // bind
if ( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) then
begin
'a'
[%t] SelfName %( ( get_global_var ( 'GEN' ) ) )% ' '
end // if
[%f] loc_GetNameForScript %( ( get_global_var ( 'Class_Inst' ) ) )%
// [{%1#f_IsVarWorker()=true}\
if ( ( %1 %?f IsVarWorker %( )% ) %== true ) then
begin
// [{%1#f_IsWordWorker()=true}{aVar}aWord]\
' '
if ( ( %1 %?f IsWordWorker %( )% ) %== true ) then
begin
'aWord'
end // if
else
begin
'aVar'
end // else
// ]
end // if
// \{code\} \
'{code} '
// )\
)% ) // %{Class_Inst}%f_set_abstraction_type(final)\
( get_global_var ( 'Class_Inst' ) %f set_abstraction_type %( 'final' )% )
// %{Class_Inst}%f_set_visibility_type(PrivateAccess)\
( get_global_var ( 'Class_Inst' ) %f set_visibility_type %( 'PrivateAccess' )% )
// [{"%{TtfwContext}N"=""}%f_find_element(TtfwContext,TtfwContext)]\
if ( ( ( get_global_var ( 'TtfwContext' ) |N ) ) %== '' ) then
begin
[%f] find_element %( 'TtfwContext' %, 'TtfwContext' )%
end // if
// %{Class_Inst}%f_make_accessable(%{TtfwContext}U)\
( get_global_var ( 'Class_Inst' ) %f make_accessable %( ( get_global_var ( 'TtfwContext' ) |U ) )% )
// %f_addCDep(%{Class_Inst},%{TtfwContext})\
[%f] addCDep %( ( get_global_var ( 'Class_Inst' ) ) %, ( get_global_var ( 'TtfwContext' ) ) )%
// [{%1{SupressNextImmediate}!=None&"%1{SupressNextImmediate}"!=""}\
if ( ( %1 get_up ( 'SupressNextImmediate' ) ) %!= 'None' AND
( ( %1 get_up ( 'SupressNextImmediate' ) ) %!= '' ) ) then
begin
// [{"%{TtfwCompilingWord.SupressNextImmediate}N"=""}%f_find_element(4F3AB3B101FC,TtfwCompilingWord.SupressNextImmediate)]\
if ( ( ( get_global_var ( 'TtfwCompilingWord.SupressNextImmediate' ) |N ) ) %== '' ) then
begin
[%f] find_element %( '4F3AB3B101FC' %, 'TtfwCompilingWord.SupressNextImmediate' )%
end // if
// %{Class_Inst}%f_add_override(%{TtfwCompilingWord.SupressNextImmediate}U)\
( get_global_var ( 'Class_Inst' ) %f add_override %( ( get_global_var ( 'TtfwCompilingWord.SupressNextImmediate' ) |U ) )% )
// %{TtfwCompilingWord.SupressNextImmediate}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{TtfwCompilingWord.SupressNextImmediate},%{Class_Inst})_var,\
( get_global_var ( 'TtfwCompilingWord.SupressNextImmediate' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'TtfwCompilingWord.SupressNextImmediate' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_var' %,
// {-}\
' {-}'
// )\
)% )
// %{TtfwCompilingWord.SupressNextImmediate}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{TtfwCompilingWord.SupressNextImmediate},%{Class_Inst})_impl,\
( get_global_var ( 'TtfwCompilingWord.SupressNextImmediate' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'TtfwCompilingWord.SupressNextImmediate' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_impl' %,
// Result := tfw_sni%1{SupressNextImmediate};\
' Result := tfw_sni'
%1 get_up ( 'SupressNextImmediate' ) ';'
// )\
)% )
// ]\
end // if
// [{"%{TTypeInfo}N"=""}%f_find_element(4767748503B5,TTypeInfo)]\
if ( ( ( get_global_var ( 'TTypeInfo' ) |N ) ) %== '' ) then
begin
[%f] find_element %( '4767748503B5' %, 'TTypeInfo' )%
end // if
// %f_addCDep(%{Class_Inst},%{TTypeInfo})\
[%f] addCDep %( ( get_global_var ( 'Class_Inst' ) ) %, ( get_global_var ( 'TTypeInfo' ) ) )%
// [{"%{TtfwWord.GetResultTypeInfo}N"=""}%f_find_element(551544E2001A,TtfwWord.GetResultTypeInfo)]\
if ( ( ( get_global_var ( 'TtfwWord.GetResultTypeInfo' ) |N ) ) %== '' ) then
begin
[%f] find_element %( '551544E2001A' %, 'TtfwWord.GetResultTypeInfo' )%
end // if
// %{Class_Inst}%f_add_override(%{TtfwWord.GetResultTypeInfo}U)\
( get_global_var ( 'Class_Inst' ) %f add_override %( ( get_global_var ( 'TtfwWord.GetResultTypeInfo' ) |U ) )% )
// %{TtfwWord.GetResultTypeInfo}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{TtfwWord.GetResultTypeInfo},%{Class_Inst})_var,\
( get_global_var ( 'TtfwWord.GetResultTypeInfo' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'TtfwWord.GetResultTypeInfo' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_var' %,
// {-}\
' {-}'
// )\
)% )
// %{TtfwWord.GetResultTypeInfo}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{TtfwWord.GetResultTypeInfo},%{Class_Inst})_impl,\
( get_global_var ( 'TtfwWord.GetResultTypeInfo' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'TtfwWord.GetResultTypeInfo' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_impl' %,
// [{%1#f_IsCreator()=true&"%{GEN}N"!=""}{\
if ( ( %1 %?f IsCreator %( )% ) %== true AND
( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) ) then
begin
// Result := %t_TypeInfo(%{GEN});\
' Result := '
[%t] TypeInfo %( ( get_global_var ( 'GEN' ) ) )% ';'
// ]\
end // if
else
begin
// Result := %t_TypeInfo(%1%T);\
' Result := '
[%t] TypeInfo %( %1 ->T )% ';'
// }\
end // else
// )\
)% )
// %f_set_var(Op_Instance,"")\
[%f] set_var %( 'Op_Instance' %, '' )%
// %f_set_var(NeedOp,"false")\
[%f] set_var %( 'NeedOp' %, false )%
// [{%1{mapped}=true}\
if ( ( %1 get_up ( 'mapped' ) ) %== true ) then
begin
// %f_set_var(NeedOp,"true")\
[%f] set_var %( 'NeedOp' %, true )%
// ]\
end // if
// [{"%{GEN}N"!=""}\
if ( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) then
begin
// %f_set_var(NeedOp,"true")\
[%f] set_var %( 'NeedOp' %, true )%
// ]\
end // if
// [{%1#f_IsVarWorker()=true}\
if ( ( %1 %?f IsVarWorker %( )% ) %== true ) then
begin
// %f_set_var(NeedOp,"true")\
[%f] set_var %( 'NeedOp' %, true )%
// ]\
end // if
// [{%1<{}{}{%CC}>!=0}\
if ( ( %1
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
++! l_Counter
end // if
end // for C
l_Counter
) // bind
) %!= 0 ) then
begin
// %f_set_var(NeedOp,"true")\
[%f] set_var %( 'NeedOp' %, true )%
// ]\
end // if
// [{%1%TN!=void}\
if ( ( %1 ->T |N ) %!= 'void' ) then
begin
// %f_set_var(NeedOp,"true")\
[%f] set_var %( 'NeedOp' %, true )%
// ]\
end // if
// [{%{NeedOp}N=true}\
if ( ( ( get_global_var ( 'NeedOp' ) |N ) ) %== true ) then
begin
// %{Class_Inst}%f_add_operation(%{Class_Inst}U_%1U_op,,\
( get_global_var ( 'Class_Inst' ) %f add_operation %( ( get_global_var ( 'Class_Inst' ) |U ) '_'
%1 |U '_op' %, '' %,
// %f_N(%1) (\
[%f] N %( %1 )% ' ('
// aCtx: %{TtfwContext}U\
'aCtx: '
( get_global_var ( 'TtfwContext' ) |U )
// [{%1#f_IsVarWorker()=true}\
if ( ( %1 %?f IsVarWorker %( )% ) %== true ) then
begin
// [{"%{TtfwWord}N"=""}%f_find_element(TtfwWord,TtfwWord)]\
if ( ( ( get_global_var ( 'TtfwWord' ) |N ) ) %== '' ) then
begin
[%f] find_element %( 'TtfwWord' %, 'TtfwWord' )%
end // if
// , [{%1#f_IsWordWorker()=true}{aVar}aWord]: %{TtfwWord}U \
', '
if ( ( %1 %?f IsWordWorker %( )% ) %== true ) then
begin
'aWord'
end // if
else
begin
'aVar'
end // else
': '
( get_global_var ( 'TtfwWord' ) |U ) ' '
// ]\
end // if
// [{%1#f_IsCreator()!=true&"%{GEN}N"!=""}, \
if ( ( %1 %?f IsCreator %( )% ) %!= true AND
( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) ) then
begin
', '
// a%t_SelfName(%{GEN}): %{GEN}U \
'a'
[%t] SelfName %( ( get_global_var ( 'GEN' ) ) )% ': '
( get_global_var ( 'GEN' ) |U ) ' '
// ]\
end // if
// %1<{}{}{%C}, %CN:%C%TU>)\
%1
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
', '
%C |N ':'
%C ->T |U
++! l_Counter
end // if
end // for C
) // bind
')'
// [{%1#f_IsCreator()=true&"%{GEN}N"!=""}{\
if ( ( %1 %?f IsCreator %( )% ) %== true AND
( ( ( get_global_var ( 'GEN' ) |N ) ) %!= '' ) ) then
begin
// : %{GEN}U\
' : '
( get_global_var ( 'GEN' ) |U )
// ]\
end // if
else
begin
// [{%1%TN!=void} : %1%TU]\
if ( ( %1 ->T |N ) %!= 'void' ) then
begin
' : '
%1 ->T |U
end // if
// }\
end // else
// ,Op_Instance)\
%, 'Op_Instance' )% )
// %{Op_Instance}%f_set_documentation(Реализация слова скрипта %f_loc_GetNameForScript(%{Class_Inst}))\
( get_global_var ( 'Op_Instance' ) %f set_documentation %( 'Реализация слова скрипта '
[%f] loc_GetNameForScript %( ( get_global_var ( 'Class_Inst' ) ) )% )% )
// %{Op_Instance}%f_set_abstraction_type(final)\
( get_global_var ( 'Op_Instance' ) %f set_abstraction_type %( 'final' )% )
// %{Op_Instance}%f_set_visibility_type(PrivateAccess)\
( get_global_var ( 'Op_Instance' ) %f set_visibility_type %( 'PrivateAccess' )% )
// ]\
end // if
// [{%1#f_IsVarWorker()=true}{\
if ( ( %1 %?f IsVarWorker %( )% ) %== true ) then
begin
// [{"%{TtfwVarWorker.DoRun}N"=""}%f_find_element(5512949D0048,TtfwVarWorker.DoRun)]\
if ( ( ( get_global_var ( 'TtfwVarWorker.DoRun' ) |N ) ) %== '' ) then
begin
[%f] find_element %( '5512949D0048' %, 'TtfwVarWorker.DoRun' )%
end // if
// %f_set_var(MyDo,{TtfwVarWorker.DoRun})\
[%f] set_var %( 'MyDo' %, '{TtfwVarWorker.DoRun}' )%
// ]\
end // if
else
begin
// [{"%{TtfwWord.DoDoIt}N"=""}%f_find_element(4DAEEDE10285,TtfwWord.DoDoIt)]\
if ( ( ( get_global_var ( 'TtfwWord.DoDoIt' ) |N ) ) %== '' ) then
begin
[%f] find_element %( '4DAEEDE10285' %, 'TtfwWord.DoDoIt' )%
end // if
// %f_set_var(MyDo,{TtfwWord.DoDoIt})\
[%f] set_var %( 'MyDo' %, '{TtfwWord.DoDoIt}' )%
// }\
end // else
// [{"%{SysUtils}N"=""}%f_find_element(47877EB202FB,SysUtils)]\
if ( ( ( get_global_var ( 'SysUtils' ) |N ) ) %== '' ) then
begin
[%f] find_element %( '47877EB202FB' %, 'SysUtils' )%
end // if
// %{Class_Inst}%f_make_accessable(%{SysUtils}U)\
( get_global_var ( 'Class_Inst' ) %f make_accessable %( ( get_global_var ( 'SysUtils' ) |U ) )% )
// %f_addCDep(%{Class_Inst},%{SysUtils})\
[%f] addCDep %( ( get_global_var ( 'Class_Inst' ) ) %, ( get_global_var ( 'SysUtils' ) ) )%
// %{Class_Inst}%f_add_override(%{MyDo}U)\
( get_global_var ( 'Class_Inst' ) %f add_override %( ( get_global_var ( 'MyDo' ) |U ) )% )
// [{%{NeedOp}N=true}{\
if ( ( ( get_global_var ( 'NeedOp' ) |N ) ) %== true ) then
begin
// %{MyDo}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{MyDo},%{Class_Inst})_var,\
( get_global_var ( 'MyDo' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'MyDo' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_var' %,
// {-}\
' {-}'
// [{%{Op_Instance}<{}{}{+%CC}>!=0}\
if ( ( ( get_global_var ( 'Op_Instance' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
if ( l_Counter >0 ) then
begin
end
++! l_Counter
end // if
end // for C
l_Counter
) // bind
) %!= 0 ) then
begin
// \n\
#13#10
// var\
'var'
// %{Op_Instance}<{}{}{+%C}\n l_%CN : %f_pas_TypeName(%C%T);>\
( get_global_var ( 'Op_Instance' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
if ( l_Counter >0 ) then
begin
#13#10' l_'
%C |N ' : '
[%f] pas_TypeName %( %C ->T )% ';'
end
++! l_Counter
end // if
end // for C
) // bind
// ]\
end // if
// )\
)% )
// %{MyDo}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{MyDo},%{Class_Inst})_impl,\
( get_global_var ( 'MyDo' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'MyDo' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_impl' %,
// [{%{Op_Instance}<{}{}{+%CC}>!=0}\
if ( ( ( get_global_var ( 'Op_Instance' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
if ( l_Counter >0 ) then
begin
end
++! l_Counter
end // if
end // for C
l_Counter
) // bind
) %!= 0 ) then
begin
// %{Op_Instance}<{}{}{+%C}\
( get_global_var ( 'Op_Instance' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
if ( l_Counter >0 ) then
begin
// try
' try'
// l_%CN := \
' l_'
%C |N ' := '
// %t_CastSig(%C%T)\
[%t] CastSig %( %C ->T )%
// (aCtx.rEngine.%t_PopSig(%C%T,%C));
'(aCtx.rEngine.'
[%t] PopSig %( %C ->T %, %C )% ');'
// except
' except'
// on E: Exception do
' on E: Exception do'
// begin
' begin'
// RunnerError('Ошибка при получении параметра %CN: %f_pas_TypeName(%C%T) : ' + E.Message, aCtx);
' RunnerError(''Ошибка при получении параметра '
%C |N ': '
[%f] pas_TypeName %( %C ->T )% ' : '' + E.Message, aCtx);'
// Exit;
' Exit;'
// end;//on E: Exception
' end;//on E: Exception'
// end;//try..except
' end;//try..except'
// >\
end
++! l_Counter
end // if
end // for C
) // bind
// ]\
end // if
// \
' '
// [{%{Op_Instance}%TN!=void}\
if ( ( ( get_global_var ( 'Op_Instance' ) ->T |N ) ) %!= 'void' ) then
begin
// aCtx.rEngine.%t_PushSig(%{Op_Instance}%T,%{Op_Instance})\
'aCtx.rEngine.'
[%t] PushSig %( ( get_global_var ( 'Op_Instance' ) ->T ) %, ( get_global_var ( 'Op_Instance' ) ) )%
// (%t_UnCastSig(%{Op_Instance}%T)(\
'('
[%t] UnCastSig %( ( get_global_var ( 'Op_Instance' ) ->T ) )% '('
// ]\
end // if
// %f_to_borland(%{Op_Instance}N)(aCtx%{Op_Instance}<{}{}{+%C}, l_%CN>)\
[%f] to_borland %( ( get_global_var ( 'Op_Instance' ) |N ) )% '(aCtx'
( get_global_var ( 'Op_Instance' ) )
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
if ( l_Counter >0 ) then
begin
', l_'
%C |N
end
++! l_Counter
end // if
end // for C
) // bind
')'
// [{%{Op_Instance}%TN!=void}\
if ( ( ( get_global_var ( 'Op_Instance' ) ->T |N ) ) %!= 'void' ) then
begin
// ))\
'))'
// ]\
end // if
// ;\
';'
// )\
)% )
// [{%1{mapped}=true}\
if ( ( %1 get_up ( 'mapped' ) ) %== true ) then
begin
// %{Op_Instance}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{Op_Instance},%{Class_Inst})_var,\
( get_global_var ( 'Op_Instance' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'Op_Instance' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_var' %,
// {-}\
' {-}'
// )\
)% )
// %{Op_Instance}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{Op_Instance},%{Class_Inst})_impl,\
( get_global_var ( 'Op_Instance' ) %f set_uc_content %( 'intf.pas' %, '_'
[%f] pas_MethodOwnerID %( ( get_global_var ( 'Op_Instance' ) ) %, ( get_global_var ( 'Class_Inst' ) ) )% '_impl' %,
// [{%{Op_Instance}%TN!=void}Result := ]\
' '
if ( ( ( get_global_var ( 'Op_Instance' ) ->T |N ) ) %!= 'void' ) then
begin
'Result := '
end // if
// a%t_SelfName(%{GEN}).\
'a'
[%t] SelfName %( ( get_global_var ( 'GEN' ) ) )% '.'
// [{}{%{Op_Instance}N}%1{prop_name}]\
if NOT-EMPTY
begin
%1 get_up ( 'prop_name' )
end // if
NOP
else
begin
( get_global_var ( 'Op_Instance' ) |N )
end // else
// [{%1{is_setter}=true}{\
if ( ( %1 get_up ( 'is_setter' ) ) %== true ) then
begin
// := aValue\
' := aValue'
// ]\
end // if
else
begin
// [{%1<{}{}{C%C}>!=0}\
if ( ( %1
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
++! l_Counter
end // if
end // for C
l_Counter
) // bind
) %!= 0 ) then
begin
// (%1<{, }{}%CN>)\
'('
%1
bind (
OBJECT VAR %S
INTEGER VAR l_Counter l_Counter := 0
for %S%C
begin
OBJECT IN %C
if true then
begin
if ( l_Counter >0 ) then ( ', ' )
%C |N
++! l_Counter
end // if
end // for C
) // bind
')'
// ]\
end // if
// }\
end // else
// ;\
';'
// )\
)% ) // ]\
end // if
// ]
end // if
else
begin
// %{MyDo}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{MyDo},%{Class_Inst})_var,)\
// %{MyDo}%f_set_uc_content(intf.pas,_%f_pas_MethodOwnerID(%{MyDo},%{Class_Inst})_impl,)\
// }\
end // else
//t _TypeInfo
; // SpellWordByOp
<<transformator>> TypeInfo OBJECT IN %S
//@ %SU
//c {}
//r {%SN=void}: {@tfw_tiVoid}
//r {%t_isString(%S)=true}: {@tfw_tiString}
//r {%t_isStruct(%S)=true}: {@tfw_tiStruct}
//r {%t_isClassRef(%S)=true}: {@tfw_tiClassRef}
//r {""=""}: {TypeInfo(%f_pas_TypeName(%S))}
//t _SelfNamePrim
; // TypeInfo
<<transformator>> SelfNamePrim OBJECT IN %S
//@ %SU
//c {}
//r {%t_interface(%S)=true}: {%f_cut_prefix(%f_pas_TypeName(%S),I)}
//r {%S#f_IsStaticObject()=true}: {%f_cut_prefix(%f_pas_TypeName(%S),T)}
//r {%t_simple_class(%S)=true}: {%f_cut_prefix(%f_pas_TypeName(%S),T)}
//r {""=""}: {%f_pas_TypeName(%S)}
//t _SelfNameEx
; // SelfNamePrim
<<transformator>> SelfNameEx OBJECT IN %S
//@ %SU
//c {}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),9)=nevCustom}: {%f_cut_prefix(%t_SelfNamePrim(%S),nevCustom)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),8)=evCustom}: {%f_cut_prefix(%t_SelfNamePrim(%S),evCustom)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),3)=nsc}: {%f_cut_prefix(%t_SelfNamePrim(%S),nsc)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),3)=tfw}: {%f_cut_prefix(%t_SelfNamePrim(%S),tfw)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),2)=kw}: {%f_cut_prefix(%t_SelfNamePrim(%S),kw)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),3)=nev}: {%f_cut_prefix(%t_SelfNamePrim(%S),nev)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),2)=vg}: {%f_cut_prefix(%t_SelfNamePrim(%S),vg)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),2)=vt}: {%f_cut_prefix(%t_SelfNamePrim(%S),vt)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),2)=k2}: {%f_cut_prefix(%t_SelfNamePrim(%S),k2)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),2)=ns}: {%f_cut_prefix(%t_SelfNamePrim(%S),ns)}
//r {%f_substr_from_begin(%t_SelfNamePrim(%S),2)=l3}: {%f_cut_prefix(%t_SelfNamePrim(%S),l3)}
//r {""=""}: {%t_SelfNamePrim(%S)}
//t _SelfName
; // SelfNameEx
<<transformator>> SelfName OBJECT IN %S
//@ %SU
//c {}
//r {%t_SelfNameEx(%S)=StackValue}: {SV}
//r {%t_SelfNameEx(%S)=ValueList}: {Array}
//r {%t_SelfNameEx(%S)=FileName}: {File}
//r {%t_SelfNameEx(%S)=SimpleTree}: {Tree}
//r {%t_SelfNameEx(%S)=SimpleNode}: {Node}
//r {%t_SelfNameEx(%S)=vcmEntityForm}: {Form}
//r {%t_SelfNameEx(%S)=WinControl}: {Control}
//r {""=""}: {%f_cut_prefix(%t_SelfNameEx(%S),Custom)}
//t _isEnum
; // SelfName
<<transformator>> isEnum OBJECT IN %S
//@ %SU
//c {}
//r {%SS=Enum}: {true}
//r {%SS=Typedef}: {%t_isEnum(%G)}
//r {""=""}: {false}
//t _isClassRef
; // isEnum
<<transformator>> isClassRef OBJECT IN %S
//@ %SU
//c {}
//r {%f_pas_TypeName(%S)=TClass}: {true}
//r {%SS=Typedef&%S{isClassRef}=true}: {true}
//r {%SS=Typedef}: {%t_isClassRef(%G)}
//r {""=""}: {false}
//t _isStruct
; // isClassRef
<<transformator>> isStruct OBJECT IN %S
//@ %SU
//c {}
//r {%S#f_IsStruct()=true}: {true}
//r {%SS=Typedef}: {%t_isStruct(%G)}
//r {""=""}: {false}
//t _isString
; // isStruct
<<transformator>> isString OBJECT IN %S
//@ %SU
//c {}
//r {%f_pas_TypeName(%S)=Tl3WString|%f_pas_TypeName(%S)=Tl3PCharLenPrim|%f_pas_TypeName(%S)=Tl3PCharLen}: {true}
//r {%f_pas_TypeName(%S)=Il3CString}: {true}
//r {%SS=Typedef}: {%t_isString(%G)}
//r {""=""}: {false}
//t _isAcceptableForScripts
; // isString
<<transformator>> isAcceptableForScripts OBJECT IN %S
//@ %SU
//c {}
//r {%f_pas_TypeName(%S)=TClass}: {true}
//r {%f_pas_TypeName(%S)=TtfwStackValue}: {true}
//r {%f_pas_TypeName(%S)=ItfwValueList}: {true}
//r {%SS=Typedef&%S{isClassRef}=true}: {true}
//r {%f_pas_TypeName(%S)=Tl3WString|%f_pas_TypeName(%S)=Tl3PCharLenPrim|%f_pas_TypeName(%S)=Tl3PCharLen}: {true}
//r {%f_pas_TypeName(%S)=Il3CString}: {true}
//r {%t_simple_class(%S)=true}: {true}
//r {%t_interface(%S)=true}: {true}
//r {%f_pas_TypeName(%S)=String}: {true}
//r {%f_pas_TypeName(%S)=Char|%f_pas_TypeName(%S)=AnsiChar}: {true}
//r {%f_pas_TypeName(%S)=TPoint}: {true}
//r {%f_pas_TypeName(%S)=WideString}: {true}
//r {%f_pas_TypeName(%S)=AnsiString}: {true}
//r {%f_pas_TypeName(%S)=Integer}: {true}
//r {%f_pas_TypeName(%S)=TColor}: {true}
//r {%f_pas_TypeName(%S)=Cardinal}: {true}
//r {%t_isEnum(%S)=true}: {true}
//r {%f_pas_TypeName(%S)=THandle}: {true}
//r {%f_pas_TypeName(%S)=Boolean}: {true}
//r {%SS=Typedef}: {%t_isAcceptableForScripts(%G)}
//r {""=""}: {false}
//t _CastSig
; // isAcceptableForScripts
<<transformator>> CastSig OBJECT IN %S
//@ %SU
//c {}
//r {%f_pas_TypeName(%S)=TClass}: {}
//r {%f_pas_TypeName(%S)=TtfwStackValue}: {}
//r {%f_pas_TypeName(%S)=ItfwValueList}: {}
//r {%SS=Typedef&%S{isClassRef}=true}: {%f_pas_TypeName(%S)}
//r {%f_pas_TypeName(%S)=Tl3WString|%f_pas_TypeName(%S)=Tl3PCharLenPrim|%f_pas_TypeName(%S)=Tl3PCharLen}: {}
//r {%f_pas_TypeName(%S)=Il3CString}: {}
//r {%t_simple_class(%S)=true}: {%f_pas_TypeName(%S)}
//r {%t_interface(%S)=true}: {%f_pas_TypeName(%S)}
//r {%f_pas_TypeName(%S)=String}: {}
//r {%f_pas_TypeName(%S)=Char|%f_pas_TypeName(%S)=AnsiChar}: {}
//r {%f_pas_TypeName(%S)=TPoint}: {}
//r {%f_pas_TypeName(%S)=WideString}: {}
//r {%f_pas_TypeName(%S)=AnsiString}: {}
//r {%f_pas_TypeName(%S)=Integer}: {}
//r {%f_pas_TypeName(%S)=TColor}: {%f_pas_TypeName(%S)}
//r {%f_pas_TypeName(%S)=Cardinal}: {%f_pas_TypeName(%S)}
//r {%t_isEnum(%S)=true}: {%f_pas_TypeName(%S)}
//r {%f_pas_TypeName(%S)=THandle}: {%f_pas_TypeName(%S)}
//r {%f_pas_TypeName(%S)=Boolean}: {}
//r {%SS=Typedef}: {%f_pas_TypeName(%S)}
//r {""=""}: {"Не знаем как приводить значение типа %f_pas_TypeName(%S)"}
//t _UnCastSig
; // CastSig
<<transformator>> UnCastSig OBJECT IN %S
//@ %SU
//c {}
//r {%SN=void}: {}
//r {%f_pas_TypeName(%S)=TClass}: {}
//r {%f_pas_TypeName(%S)=TtfwStackValue}: {}
//r {%f_pas_TypeName(%S)=ItfwValueList}: {}
//r {%SS=Typedef&%S{isClassRef}=true}: {}
//r {%f_pas_TypeName(%S)=Tl3WString|%f_pas_TypeName(%S)=Tl3PCharLenPrim|%f_pas_TypeName(%S)=Tl3PCharLen}: {}
//r {%f_pas_TypeName(%S)=Il3CString}: {}
//r {%t_simple_class(%S)=true}: {}
//r {%t_interface(%S)=true}: {}
//r {%f_pas_TypeName(%S)=String}: {}
//r {%f_pas_TypeName(%S)=Char|%f_pas_TypeName(%S)=AnsiChar}: {}
//r {%f_pas_TypeName(%S)=TPoint}: {}
//r {%f_pas_TypeName(%S)=WideString}: {}
//r {%f_pas_TypeName(%S)=AnsiString}: {}
//r {%f_pas_TypeName(%S)=Integer}: {}
//r {%f_pas_TypeName(%S)=TColor}: {Integer}
//r {%f_pas_TypeName(%S)=Cardinal}: {Integer}
//r {%t_isEnum(%S)=true}: {Ord}
//r {%f_pas_TypeName(%S)=THandle}: {Integer}
//r {%f_pas_TypeName(%S)=Boolean}: {}
//r {%SS=Typedef}: {%t_UnCastSig(%G)}
//r {""=""}: {"Не знаем как приводить значение типа %f_pas_TypeName(%S)"}
//t _PopSig
; // UnCastSig
<<transformator>> PopSig OBJECT IN %S
//@ %SU_%1N
//c {}
//r {%f_pas_TypeName(%S)=TClass}: {PopClass}
//r {%f_pas_TypeName(%S)=TtfwStackValue}: {Pop}
//r {%f_pas_TypeName(%S)=ItfwValueList}: {PopList}
//r {%SS=Typedef&%S{isClassRef}=true}: {PopClassAs(%f_pas_TypeName(%S))}
//r {%f_pas_TypeName(%S)=Tl3WString|%f_pas_TypeName(%S)=Tl3PCharLenPrim|%f_pas_TypeName(%S)=Tl3PCharLen}: {PopWStr}
//r {%f_pas_TypeName(%S)=Il3CString}: {PopString}
//r {%t_simple_class(%S)=true}: {PopObjAs(%f_pas_TypeName(%S))}
//r {%t_interface(%S)=true}: {PopIntf(%f_pas_TypeName(%S))}
//r {%f_pas_TypeName(%S)=String}: {PopDelphiString}
//r {%f_pas_TypeName(%S)=Char|%f_pas_TypeName(%S)=AnsiChar}: {PopChar}
//r {%f_pas_TypeName(%S)=TPoint}: {PopPoint}
//r {%f_pas_TypeName(%S)=WideString}: {PopWideString}
//r {%f_pas_TypeName(%S)=AnsiString}: {PopDelphiString}
//r {%f_pas_TypeName(%S)=Integer}: {PopInt}
//r {%f_pas_TypeName(%S)=TColor}: {PopInt}
//r {%f_pas_TypeName(%S)=Cardinal}: {PopInt}
//r {%t_isEnum(%S)=true}: {PopInt}
//r {%f_pas_TypeName(%S)=THandle}: {PopInt}
//r {%f_pas_TypeName(%S)=Boolean}: {PopBool}
//r {%SS=Typedef}: {%t_PopSig(%G,%1)}
//r {""=""}: {"Не знаем как снять со стека %1N : %f_pas_TypeName(%S)"}
//t _PushSig
; // PopSig
<<transformator>> PushSig OBJECT IN %S
//@ %SU_%1N
//c {}
//r {%f_pas_TypeName(%S)=TClass}: {PushClass}
//r {%f_pas_TypeName(%S)=TtfwStackValue}: {Push}
//r {%f_pas_TypeName(%S)=ItfwValueList}: {PushList}
//r {%SS=Typedef&%S{isClassRef}=true}: {PushClass}
//r {%f_pas_TypeName(%S)=Tl3WString|%f_pas_TypeName(%S)=Tl3PCharLenPrim|%f_pas_TypeName(%S)=Tl3PCharLen}: {PushString}
//r {%f_pas_TypeName(%S)=Il3CString}: {PushString}
//r {%t_simple_class(%S)=true}: {PushObj}
//r {%t_interface(%S)=true}: {PushIntf}
//r {%f_pas_TypeName(%S)=String}: {PushString}
//r {%f_pas_TypeName(%S)=Char|%f_pas_TypeName(%S)=AnsiChar}: {PushChar}
//r {%f_pas_TypeName(%S)=TPoint}: {PushPoint}
//r {%f_pas_TypeName(%S)=WideString}: {PushWideString}
//r {%f_pas_TypeName(%S)=AnsiString}: {PushString}
//r {%f_pas_TypeName(%S)=Integer}: {PushInt}
//r {%f_pas_TypeName(%S)=TColor}: {PushInt}
//r {%f_pas_TypeName(%S)=Cardinal}: {PushInt}
//r {%t_isEnum(%S)=true}: {PushInt}
//r {%f_pas_TypeName(%S)=THandle}: {PushInt}
//r {%f_pas_TypeName(%S)=Boolean}: {PushBool}
//r {%SS=Typedef}: {%t_PushSig(%G,%1)}
//r {""=""}: {"Не знаем как положить на стек %1N : %f_pas_TypeName(%S)"}
//#UC END# *4B2A19E3038Bfor4F2C15C90252*
; // PushSig
// реализация абстрактного стереотипа Delphi интерфейсы и реализация::MDAGenerator
// Генератор файлов форм (.dfm)
//+ dfm
implementation @ <<ScriptKeywordsPack>>
<<generator>> dfm OBJECT IN %S
//R
//#UC START# *49F5795900ECfor4F2C15C90252*
//#UC END# *49F5795900ECfor4F2C15C90252*
; // dfm
// реализация абстрактного стереотипа Delphi интерфейсы и реализация::MDAGenerator
// Вторая интерфейсная секция стереотипа. Например реализация свойств класса.
//+ intf2.pas
<<generator>> intf2.pas OBJECT IN %S
//R
//#UC START# *477398E501C0for4F2C15C90252*
//#UC END# *477398E501C0for4F2C15C90252*
; // intf2.pas
// реализация абстрактного стереотипа Delphi интерфейсы и реализация::MDAGenerator
// 3-я секция интерфейса. Например поле для свойства.
//+ intf3.pas
<<generator>> intf3.pas OBJECT IN %S
//R
//#UC START# *4774D2A20372for4F2C15C90252*
//#UC END# *4774D2A20372for4F2C15C90252*
; // intf3.pas
// реализация абстрактного стереотипа Delphi интерфейсы и реализация::MDAGenerator
// Скрипты TC (.sd)
//+ sd
<<generator>> sd OBJECT IN %S
//R
//#UC START# *4DE79AFC0030for4F2C15C90252*
//#UC END# *4DE79AFC0030for4F2C15C90252*
; // sd
// реализация абстрактного стереотипа Java::MDAGenerator
// генератор реализации фабрик интерфейсов на java (.java)
//+ fctr.java
<<generator>> fctr.java OBJECT IN %S
//#UC START# *470321C1038Afor4F2C15C90252*
//#UC END# *470321C1038Afor4F2C15C90252*
; // fctr.java
// реализация абстрактного стереотипа Документация::MDAGenerator
// Хак для [$281531116]
//+ link_to_requests_hack
<<generator>> link_to_requests_hack OBJECT IN %S
//#UC START# *4E65F581015Afor4F2C15C90252*
//#UC END# *4E65F581015Afor4F2C15C90252*
; // link_to_requests_hack
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Вложенные стереотипы
//: ScriptKeywordsPack::Class::injects::ClassDependency
end. // <<ScriptKeywordsPack>>
implementation @ :: <<ScriptKeywordsPack>> <<injects>> ;
//? Внедрение зависимости
//= Delphi интерфейсы и реализация::MDAGenerator
// Генераторы
// генератор реализации фабрик интерфейсов на java (.java)
//+ fctr.java
<<generator>> fctr.java OBJECT IN %S
//#UC START# *470321C1038Afor54D4A61F00BA*
//#UC END# *470321C1038Afor54D4A61F00BA*
; // fctr.java
// Вторая интерфейсная секция стереотипа. Например реализация свойств класса.
//+ intf2.pas
<<generator>> intf2.pas OBJECT IN %S
//R
//#UC START# *477398E501C0for54D4A61F00BA*
//#UC END# *477398E501C0for54D4A61F00BA*
; // intf2.pas
// 3-я секция интерфейса. Например поле для свойства.
//+ intf3.pas
<<generator>> intf3.pas OBJECT IN %S
//R
//#UC START# *4774D2A20372for54D4A61F00BA*
//#UC END# *4774D2A20372for54D4A61F00BA*
; // intf3.pas
// Генератор файлов форм (.dfm)
//+ dfm
<<generator>> dfm OBJECT IN %S
//R
//#UC START# *49F5795900ECfor54D4A61F00BA*
//#UC END# *49F5795900ECfor54D4A61F00BA*
; // dfm
// Скрипты TC (.sd)
//+ sd
<<generator>> sd OBJECT IN %S
//R
//#UC START# *4DE79AFC0030for54D4A61F00BA*
//#UC END# *4DE79AFC0030for54D4A61F00BA*
; // sd
// Хак для [$281531116]
//+ link_to_requests_hack
<<generator>> link_to_requests_hack OBJECT IN %S
//#UC START# *4E65F581015Afor54D4A61F00BA*
//#UC END# *4E65F581015Afor54D4A61F00BA*
; // link_to_requests_hack
// Генерация модели в MDKnow
//+ wiki
<<generator>> wiki OBJECT IN %S
//#UC START# *46E6D4BB0339for54D4A61F00BA*
//#UC END# *46E6D4BB0339for54D4A61F00BA*
; // wiki
// Родные Delphi интерфейсы (.pas)
//+ intf.pas
<<generator>> intf.pas OBJECT IN %S
//R
//#UC START# *470F1571031Cfor54D4A61F00BA*
//#UC END# *470F1571031Cfor54D4A61F00BA*
; // intf.pas
// Реализация на Delphi(.pas)
//+ impl.pas
<<generator>> impl.pas OBJECT IN %S
//R
//#UC START# *470F15B800CBfor54D4A61F00BA*
//#UC END# *470F15B800CBfor54D4A61F00BA*
; // impl.pas
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Унаследованная реализация
// реализация абстрактного стереотипа Документация::MDAGenerator
// проверка ограничений накладываемых на элемент
//%t _constraint
; // st_space_key
<<transformator>> constraint OBJECT IN %S
//#UC START# *4704C0E30186for54D4A61F00BA*
//c {}
//r {""=""}: {}
//#UC END# *4704C0E30186for54D4A61F00BA*
; // constraint
// реализация абстрактного стереотипа Документация::MDAGenerator
// выводит описание элемента (операция, атрибут) в wiki
//%f _wiki_child_kind
: wiki_child_kind OBJECT IN %S
//#UC START# *4705CBD6003Efor54D4A61F00BA*
//#UC END# *4705CBD6003Efor54D4A61F00BA*
; // wiki_child_kind
// реализация абстрактного стереотипа Документация::MDAGenerator
// вывод описание авто-генерируемых методов в wiki
//%f _wiki_up_add_gen
: wiki_up_add_gen OBJECT IN %S
//#UC START# *470484D50138for54D4A61F00BA*
//#UC END# *470484D50138for54D4A61F00BA*
; // wiki_up_add_gen
//: ScriptKeywordsPack::Class::keyword::Operation
end. // :: <<ScriptKeywordsPack>> <<injects>> ;
implementation @ :: <<ScriptKeywordsPack>> <<keyword>> ;
//? Слово скрипта
//= UtilityPack::Class::Operation
// Параметры стереотипа
//v -
// - типы видимости
//a f
// - тип абстракции
//T
// - может не иметь "цели" (типа/результата)
// Пользовательские свойства
//p NameForScript:s ?
//p mapped:tribool=undefined ?
// Генераторы
// Генерация модели в MDKnow
//+ wiki
<<generator>> wiki OBJECT IN %S
//#UC START# *46E6D4BB0339for54F734BC0087*
//#UC END# *46E6D4BB0339for54F734BC0087*
; // wiki
// генератор реализации фабрик интерфейсов на java (.java)
//+ fctr.java
<<generator>> fctr.java OBJECT IN %S
//#UC START# *470321C1038Afor54F734BC0087*
//#UC END# *470321C1038Afor54F734BC0087*
; // fctr.java
// Вторая интерфейсная секция стереотипа. Например реализация свойств класса.
//+ intf2.pas
<<generator>> intf2.pas OBJECT IN %S
//R
//#UC START# *477398E501C0for54F734BC0087*
//#UC END# *477398E501C0for54F734BC0087*
; // intf2.pas
// 3-я секция интерфейса. Например поле для свойства.
//+ intf3.pas
<<generator>> intf3.pas OBJECT IN %S
//R
//#UC START# *4774D2A20372for54F734BC0087*
//#UC END# *4774D2A20372for54F734BC0087*
; // intf3.pas
// Генератор файлов форм (.dfm)
//+ dfm
<<generator>> dfm OBJECT IN %S
//R
//#UC START# *49F5795900ECfor54F734BC0087*
//#UC END# *49F5795900ECfor54F734BC0087*
; // dfm
// Скрипты TC (.sd)
//+ sd
<<generator>> sd OBJECT IN %S
//R
//#UC START# *4DE79AFC0030for54F734BC0087*
//#UC END# *4DE79AFC0030for54F734BC0087*
; // sd
// Хак для [$281531116]
//+ link_to_requests_hack
<<generator>> link_to_requests_hack OBJECT IN %S
//#UC START# *4E65F581015Afor54F734BC0087*
//#UC END# *4E65F581015Afor54F734BC0087*
; // link_to_requests_hack
// Родные Delphi интерфейсы (.pas)
//+ intf.pas
<<generator>> intf.pas OBJECT IN %S
//R
//#UC START# *470F1571031Cfor54F734BC0087*
//#UC END# *470F1571031Cfor54F734BC0087*
; // intf.pas
// Реализация на Delphi(.pas)
//+ impl.pas
<<generator>> impl.pas OBJECT IN %S
//R
//#UC START# *470F15B800CBfor54F734BC0087*
//#UC END# *470F15B800CBfor54F734BC0087*
; // impl.pas
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _wiki_up_print
; // st_space_key
: wiki_up_print OBJECT IN %S
// %S#[inherited][{"%S{mapped}"!="%S{!mapped}"}%f_up_prefix(%S) *mapped* = *%S{mapped}*
?inherited
if ( ( %S get_up ( 'mapped' ) ) %!= ( %S get_up_def ( 'mapped' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *mapped* = *'
%S get_up ( 'mapped' ) '*'
// ][{"%S{NameForScript}"!="%S{!NameForScript}"}%f_up_prefix(%S) *NameForScript* = *%S{NameForScript}*
end // if
if ( ( %S get_up ( 'NameForScript' ) ) %!= ( %S get_up_def ( 'NameForScript' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *NameForScript* = *'
%S get_up ( 'NameForScript' ) '*'
// ]
end // if
//%f _IsKeyword
; // wiki_up_print
: IsKeyword OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *5510356E00AEfor54F734BC0087*
// true
true
//#UC END# *5510356E00AEfor54F734BC0087*
; // IsKeyword
//%f _NoForward
: NoForward OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *55115A470301for54F734BC0087*
// true
true
//#UC END# *55115A470301for54F734BC0087*
; // NoForward
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Унаследованная реализация
// реализация абстрактного стереотипа Документация::MDAGenerator
// вывод описание авто-генерируемых методов в wiki
//%f _wiki_up_add_gen
: wiki_up_add_gen OBJECT IN %S
//#UC START# *470484D50138for54F734BC0087*
//#UC END# *470484D50138for54F734BC0087*
; // wiki_up_add_gen
//: ScriptKeywordsPack::Class::property::Attribute
end. // :: <<ScriptKeywordsPack>> <<keyword>> ;
implementation @ :: <<ScriptKeywordsPack>> <<property>> ;
//= UtilityPack::Class::Attribute
// Параметры стереотипа
//v -
// - типы видимости
//a f
// - тип абстракции
// Пользовательские свойства
//p mapped:tribool=undefined ?
// Генераторы
// Генерация модели в MDKnow
//+ wiki
<<generator>> wiki OBJECT IN %S
//#UC START# *46E6D4BB0339for54F861670034*
//#UC END# *46E6D4BB0339for54F861670034*
; // wiki
// генератор inline файлов реализации C++ (.i.h)
//+ i.h
<<generator>> i.h OBJECT IN %S
//#UC START# *47022CCF00EAfor54F861670034*
//#UC END# *47022CCF00EAfor54F861670034*
; // i.h
// генератор реализации фабрик интерфейсов на java (.java)
//+ fctr.java
<<generator>> fctr.java OBJECT IN %S
//#UC START# *470321C1038Afor54F861670034*
//#UC END# *470321C1038Afor54F861670034*
; // fctr.java
// Вторая интерфейсная секция стереотипа. Например реализация свойств класса.
//+ intf2.pas
<<generator>> intf2.pas OBJECT IN %S
//R
//#UC START# *477398E501C0for54F861670034*
//#UC END# *477398E501C0for54F861670034*
; // intf2.pas
// 3-я секция интерфейса. Например поле для свойства.
//+ intf3.pas
<<generator>> intf3.pas OBJECT IN %S
//R
//#UC START# *4774D2A20372for54F861670034*
//#UC END# *4774D2A20372for54F861670034*
; // intf3.pas
// Генератор файлов форм (.dfm)
//+ dfm
<<generator>> dfm OBJECT IN %S
//R
//#UC START# *49F5795900ECfor54F861670034*
//#UC END# *49F5795900ECfor54F861670034*
; // dfm
// Скрипты TC (.sd)
//+ sd
<<generator>> sd OBJECT IN %S
//R
//#UC START# *4DE79AFC0030for54F861670034*
//#UC END# *4DE79AFC0030for54F861670034*
; // sd
// Хак для [$281531116]
//+ link_to_requests_hack
<<generator>> link_to_requests_hack OBJECT IN %S
//#UC START# *4E65F581015Afor54F861670034*
//#UC END# *4E65F581015Afor54F861670034*
; // link_to_requests_hack
// Родные Delphi интерфейсы (.pas)
//+ intf.pas
<<generator>> intf.pas OBJECT IN %S
//R
//#UC START# *470F1571031Cfor54F861670034*
//#UC END# *470F1571031Cfor54F861670034*
; // intf.pas
// Реализация на Delphi(.pas)
//+ impl.pas
<<generator>> impl.pas OBJECT IN %S
//R
//#UC START# *470F15B800CBfor54F861670034*
//#UC END# *470F15B800CBfor54F861670034*
; // impl.pas
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _wiki_up_print
; // st_space_key
: wiki_up_print OBJECT IN %S
// %S#[inherited][{"%S{mapped}"!="%S{!mapped}"}%f_up_prefix(%S) *mapped* = *%S{mapped}*
?inherited
if ( ( %S get_up ( 'mapped' ) ) %!= ( %S get_up_def ( 'mapped' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *mapped* = *'
%S get_up ( 'mapped' ) '*'
// ]
end // if
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Унаследованная реализация
// реализация абстрактного стереотипа Документация::MDAGenerator
// проверка ограничений накладываемых на элемент
//%t _constraint
; // wiki_up_print
<<transformator>> constraint OBJECT IN %S
//#UC START# *4704C0E30186for54F861670034*
//c {}
//r {""=""}: {}
//#UC END# *4704C0E30186for54F861670034*
; // constraint
// реализация абстрактного стереотипа Документация::MDAGenerator
// вывод описание авто-генерируемых методов в wiki
//%f _wiki_up_add_gen
: wiki_up_add_gen OBJECT IN %S
//#UC START# *470484D50138for54F861670034*
//#UC END# *470484D50138for54F861670034*
; // wiki_up_add_gen
//: ScriptKeywordsPack::Class::readonly::Attribute
end. // :: <<ScriptKeywordsPack>> <<property>> ;
implementation @ :: <<ScriptKeywordsPack>> <<readonly>> ;
//= ScriptKeywordsPack::Class::property::Attribute
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//: ScriptKeywordsPack::Class::friend::ClassDependency
; // st_space_key
end. // :: <<ScriptKeywordsPack>> <<readonly>> ;
implementation @ :: <<ScriptKeywordsPack>> <<friend>> ;
//= ClassBase::Class::friend::ClassDependency
// Генераторы
// Генерация модели в MDKnow
//+ wiki
<<generator>> wiki OBJECT IN %S
//#UC START# *46E6D4BB0339for54FECA940175*
//#UC END# *46E6D4BB0339for54FECA940175*
; // wiki
// генератор заголовочных файлов C++ (.h)
//+ h
<<generator>> h OBJECT IN %S
//#UC START# *47022C88029Ffor54FECA940175*
//#UC END# *47022C88029Ffor54FECA940175*
; // h
// генератор файлов реализации C++ (.cpp)
//+ cpp
<<generator>> cpp OBJECT IN %S
//#UC START# *47022CB8034Bfor54FECA940175*
//#UC END# *47022CB8034Bfor54FECA940175*
; // cpp
// генератор inline файлов реализации C++ (.i.h)
//+ i.h
<<generator>> i.h OBJECT IN %S
//#UC START# *47022CCF00EAfor54FECA940175*
//#UC END# *47022CCF00EAfor54FECA940175*
; // i.h
// генератор классов, интерфейсов на java (.java)
//+ java
<<generator>> java OBJECT IN %S
//#UC START# *470321950119for54FECA940175*
//#UC END# *470321950119for54FECA940175*
; // java
// генератор реализации фабрик интерфейсов на java (.java)
//+ fctr.java
<<generator>> fctr.java OBJECT IN %S
//#UC START# *470321C1038Afor54FECA940175*
//#UC END# *470321C1038Afor54FECA940175*
; // fctr.java
// Родные Delphi интерфейсы (.pas)
//+ intf.pas
<<generator>> intf.pas OBJECT IN %S
//R
//#UC START# *470F1571031Cfor54FECA940175*
//#UC END# *470F1571031Cfor54FECA940175*
; // intf.pas
// Реализация на Delphi(.pas)
//+ impl.pas
<<generator>> impl.pas OBJECT IN %S
//R
//#UC START# *470F15B800CBfor54FECA940175*
//#UC END# *470F15B800CBfor54FECA940175*
; // impl.pas
// Вторая интерфейсная секция стереотипа. Например реализация свойств класса.
//+ intf2.pas
<<generator>> intf2.pas OBJECT IN %S
//R
//#UC START# *477398E501C0for54FECA940175*
//#UC END# *477398E501C0for54FECA940175*
; // intf2.pas
// 3-я секция интерфейса. Например поле для свойства.
//+ intf3.pas
<<generator>> intf3.pas OBJECT IN %S
//R
//#UC START# *4774D2A20372for54FECA940175*
//#UC END# *4774D2A20372for54FECA940175*
; // intf3.pas
// Генератор файлов форм (.dfm)
//+ dfm
<<generator>> dfm OBJECT IN %S
//R
//#UC START# *49F5795900ECfor54FECA940175*
//#UC END# *49F5795900ECfor54FECA940175*
; // dfm
// Скрипты TC (.sd)
//+ sd
<<generator>> sd OBJECT IN %S
//R
//#UC START# *4DE79AFC0030for54FECA940175*
//#UC END# *4DE79AFC0030for54FECA940175*
; // sd
// Хак для [$281531116]
//+ link_to_requests_hack
<<generator>> link_to_requests_hack OBJECT IN %S
//#UC START# *4E65F581015Afor54FECA940175*
//#UC END# *4E65F581015Afor54FECA940175*
; // link_to_requests_hack
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Унаследованная реализация
// реализация абстрактного стереотипа Документация::MDAGenerator
// проверка ограничений накладываемых на элемент
//%t _constraint
; // st_space_key
<<transformator>> constraint OBJECT IN %S
//#UC START# *4704C0E30186for54FECA940175*
//c {}
//r {""=""}: {}
//#UC END# *4704C0E30186for54FECA940175*
; // constraint
// реализация абстрактного стереотипа Документация::MDAGenerator
// вывод описание авто-генерируемых методов в wiki
//%f _wiki_up_add_gen
: wiki_up_add_gen OBJECT IN %S
//#UC START# *470484D50138for54FECA940175*
//#UC END# *470484D50138for54FECA940175*
; // wiki_up_add_gen
//: ScriptKeywordsPack::Class::creator::Operation
end. // :: <<ScriptKeywordsPack>> <<friend>> ;
implementation @ :: <<ScriptKeywordsPack>> <<creator>> ;
//= ScriptKeywordsPack::Class::keyword::Operation
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _IsCreator
; // st_space_key
: IsCreator OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *5510359500FCfor5510358803BD*
// true
true
//#UC END# *5510359500FCfor5510358803BD*
; // IsCreator
//: ScriptKeywordsPack::Class::globalkeyword::Operation
end. // :: <<ScriptKeywordsPack>> <<creator>> ;
implementation @ :: <<ScriptKeywordsPack>> <<globalkeyword>> ;
//? Глобальное слово скрипта
//= UtilityPack::Class::Operation
// Пользовательские свойства
//p NameForScript:s ?
// Генераторы
// Генерация модели в MDKnow
//+ wiki
<<generator>> wiki OBJECT IN %S
//#UC START# *46E6D4BB0339for55115A7D0330*
//#UC END# *46E6D4BB0339for55115A7D0330*
; // wiki
// генератор реализации фабрик интерфейсов на java (.java)
//+ fctr.java
<<generator>> fctr.java OBJECT IN %S
//#UC START# *470321C1038Afor55115A7D0330*
//#UC END# *470321C1038Afor55115A7D0330*
; // fctr.java
// Вторая интерфейсная секция стереотипа. Например реализация свойств класса.
//+ intf2.pas
<<generator>> intf2.pas OBJECT IN %S
//R
//#UC START# *477398E501C0for55115A7D0330*
//#UC END# *477398E501C0for55115A7D0330*
; // intf2.pas
// 3-я секция интерфейса. Например поле для свойства.
//+ intf3.pas
<<generator>> intf3.pas OBJECT IN %S
//R
//#UC START# *4774D2A20372for55115A7D0330*
//#UC END# *4774D2A20372for55115A7D0330*
; // intf3.pas
// Генератор файлов форм (.dfm)
//+ dfm
<<generator>> dfm OBJECT IN %S
//R
//#UC START# *49F5795900ECfor55115A7D0330*
//#UC END# *49F5795900ECfor55115A7D0330*
; // dfm
// Скрипты TC (.sd)
//+ sd
<<generator>> sd OBJECT IN %S
//R
//#UC START# *4DE79AFC0030for55115A7D0330*
//#UC END# *4DE79AFC0030for55115A7D0330*
; // sd
// Хак для [$281531116]
//+ link_to_requests_hack
<<generator>> link_to_requests_hack OBJECT IN %S
//#UC START# *4E65F581015Afor55115A7D0330*
//#UC END# *4E65F581015Afor55115A7D0330*
; // link_to_requests_hack
// Родные Delphi интерфейсы (.pas)
//+ intf.pas
<<generator>> intf.pas OBJECT IN %S
//R
//#UC START# *470F1571031Cfor55115A7D0330*
//#UC END# *470F1571031Cfor55115A7D0330*
; // intf.pas
// Реализация на Delphi(.pas)
//+ impl.pas
<<generator>> impl.pas OBJECT IN %S
//R
//#UC START# *470F15B800CBfor55115A7D0330*
//#UC END# *470F15B800CBfor55115A7D0330*
; // impl.pas
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _wiki_up_print
; // st_space_key
: wiki_up_print OBJECT IN %S
// %S#[inherited][{"%S{NameForScript}"!="%S{!NameForScript}"}%f_up_prefix(%S) *NameForScript* = *%S{NameForScript}*
?inherited
if ( ( %S get_up ( 'NameForScript' ) ) %!= ( %S get_up_def ( 'NameForScript' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *NameForScript* = *'
%S get_up ( 'NameForScript' ) '*'
// ]
end // if
//%f _IsGlobalKeyword
; // wiki_up_print
: IsGlobalKeyword OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *55115AD200D8for55115A7D0330*
// true
true
//#UC END# *55115AD200D8for55115A7D0330*
; // IsGlobalKeyword
//%f _NoForward
: NoForward OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *55115FF8009Efor55115A7D0330*
// true
true
//#UC END# *55115FF8009Efor55115A7D0330*
; // NoForward
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Унаследованная реализация
// реализация абстрактного стереотипа Документация::MDAGenerator
// вывод описание авто-генерируемых методов в wiki
//%f _wiki_up_add_gen
: wiki_up_add_gen OBJECT IN %S
//#UC START# *470484D50138for55115A7D0330*
//#UC END# *470484D50138for55115A7D0330*
; // wiki_up_add_gen
//: ScriptKeywordsPack::Class::varworker::Operation
end. // :: <<ScriptKeywordsPack>> <<globalkeyword>> ;
implementation @ :: <<ScriptKeywordsPack>> <<varworker>> ;
//= ScriptKeywordsPack::Class::keyword::Operation
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _IsVarWorker
; // st_space_key
: IsVarWorker OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *55128EF4009Cfor55128EAF022E*
// true
true
//#UC END# *55128EF4009Cfor55128EAF022E*
; // IsVarWorker
//: ScriptKeywordsPack::Class::globalvarworker::Operation
end. // :: <<ScriptKeywordsPack>> <<varworker>> ;
implementation @ :: <<ScriptKeywordsPack>> <<globalvarworker>> ;
//= ScriptKeywordsPack::Class::globalkeyword::Operation
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _IsVarWorker
; // st_space_key
: IsVarWorker OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *55128F060331for55128EDC028D*
// true
true
//#UC END# *55128F060331for55128EDC028D*
; // IsVarWorker
//: ScriptKeywordsPack::Class::wordworker::Operation
end. // :: <<ScriptKeywordsPack>> <<globalvarworker>> ;
implementation @ :: <<ScriptKeywordsPack>> <<wordworker>> ;
//= ScriptKeywordsPack::Class::varworker::Operation
//= SupressNextImmediateHolder::Class
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _wiki_up_print
; // st_space_key
: wiki_up_print OBJECT IN %S
// %S%[ScriptKeywordsPack::Class::varworker::Operation]f_wiki_up_print()[{"%S{SupressNextImmediate}"!="%S{!SupressNextImmediate}"}%f_up_prefix(%S) *SupressNextImmediate* = *%S{SupressNextImmediate}*
call-inherited:: 'ScriptKeywordsPack::varworker::Operation' wiki_up_print %( )%
if ( ( %S get_up ( 'SupressNextImmediate' ) ) %!= ( %S get_up_def ( 'SupressNextImmediate' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *SupressNextImmediate* = *'
%S get_up ( 'SupressNextImmediate' ) '*'
// ]
end // if
//%f _IsWordWorker
; // wiki_up_print
: IsWordWorker OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *5513DB4402E0for5513DB34012F*
// true
true
//#UC END# *5513DB4402E0for5513DB34012F*
; // IsWordWorker
//: ScriptKeywordsPack::Class::globalwordworker::Operation
end. // :: <<ScriptKeywordsPack>> <<wordworker>> ;
implementation @ :: <<ScriptKeywordsPack>> <<globalwordworker>> ;
//= ScriptKeywordsPack::Class::globalvarworker::Operation
//= SupressNextImmediateHolder::Class
// Функции стереотипа
//%f _st_space_key
: st_space_key OBJECT IN %S
// SHD
'SHD'
//%f _wiki_up_print
; // st_space_key
: wiki_up_print OBJECT IN %S
// %S%[ScriptKeywordsPack::Class::globalvarworker::Operation]f_wiki_up_print()[{"%S{SupressNextImmediate}"!="%S{!SupressNextImmediate}"}%f_up_prefix(%S) *SupressNextImmediate* = *%S{SupressNextImmediate}*
call-inherited:: 'ScriptKeywordsPack::globalvarworker::Operation' wiki_up_print %( )%
if ( ( %S get_up ( 'SupressNextImmediate' ) ) %!= ( %S get_up_def ( 'SupressNextImmediate' ) ) ) then
begin
[%f] up_prefix %( %S )% ' *SupressNextImmediate* = *'
%S get_up ( 'SupressNextImmediate' ) '*'
// ]
end // if
//%f _IsWordWorker
; // wiki_up_print
: IsWordWorker OBJECT IN %S
// возвращаемый результат: boolean
//#UC START# *5513DB6C026Ffor5513DB5502C7*
// true
true
//#UC END# *5513DB6C026Ffor5513DB5502C7*
; // IsWordWorker
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
end. // :: <<ScriptKeywordsPack>> <<globalwordworker>> ;
Комментариев нет:
Отправить комментарий