пятница, 26 июня 2015 г.

Коротко. Ни о чём

Сегодня очередной раз допиливал свои скрипты и неожиданно понял, что наконец написал "язык", о котором "давно мечтал".

На котором "приятно" программировать.

Не нравится аксиоматика - меняем на лету.

Нужны тесты - делаем тесты.

Нужны предикаты - делаем предикаты.

Нужны примеси - вот тебе пожалуйста примеси.

Нужны контракты - вот тебе контракты.

Нужны прецеденты - пожалуйста прецеденты.

Нужен биндинг из 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>> ;

Комментариев нет:

Отправить комментарий