WfRuntimeTypeDescriptor.cpp

#include "WfRuntime.h"

namespace

{

namespace

workflow

{

namespace

typeimpl

{

using

namespace

reflection

;

using

namespace

reflection

description

;

using

namespace

collections

;

using

namespace

runtime

;

/*********************************************************************** WfMethodProxy ***********************************************************************/

WfMethodProxy

(

const

Value

_thisObject

IMethodInfo

_methodInfo

) :thisObject(

_thisObject

) , methodInfo(

_methodInfo

) { }

WfMethodProxy

() { }

Value

WfMethodProxy

Invoke

(

Ptr

IValueList

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

Array

Value

values

;

UnboxParameter

(

Value

From

(

arguments

values

);

return

methodInfo

Invoke

(

thisObject

values

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

/*********************************************************************** WfMethodBase ***********************************************************************/

Value

WfMethodBase

CreateFunctionProxyInternal

(

const

Value

thisObject

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

return

Value

From

(

MakePtr

WfMethodProxy

thisObject

this

));

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

void

WfMethodBase

SetGlobalContext

(

runtime

WfRuntimeGlobalContext

_globalContext

) {

globalContext

_globalContext

; }

WfMethodBase

(

bool

isStatic

) :

MethodInfoImpl

(

nullptr

isStatic

) { }

WfMethodBase

() { }

IMethodInfo

ICpp

WfMethodBase

GetCpp

() {

return

nullptr

; }

runtime

WfRuntimeGlobalContext

WfMethodBase

GetGlobalContext

() {

return

globalContext

; }

void

WfMethodBase

SetReturn

(

Ptr

ITypeInfo

type

) {

returnInfo

type

; }

/*********************************************************************** WfStaticMethod ***********************************************************************/

Value

WfStaticMethod

InvokeInternal

(

const

Value

thisObject

collections

Array

Value

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

argumentArray

IValueList

Create

(

arguments

);

return

WfRuntimeLambda

Invoke

(

globalContext

nullptr

functionIndex

argumentArray

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfStaticMethod

() :

WfMethodBase

(

true

) { }

/*********************************************************************** WfClassConstructor ***********************************************************************/

Value

WfClassConstructor

InvokeInternal

(

const

Value

thisObject

collections

Array

Value

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

instance

MakePtr

WfClassInstance

GetOwnerTypeDescriptor

()); {

InvokeBaseCtor

(

Value

From

(

instance

Obj

()),

arguments

); }

(

returnInfo

GetDecorator

() ==

ITypeInfo

SharedPtr

) {

return

Value

From

(

instance

); }

else

{

return

Value

From

(

instance

Detach

()); }

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfClassConstructor

(

Ptr

ITypeInfo

type

) :

WfMethodBase

(

true

) {

SetReturn

(

type

); }

void

WfClassConstructor

InvokeBaseCtor

(

const

Value

thisObject

collections

Array

Value

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

capturedVariables

MakePtr

WfRuntimeVariableContext

>();

capturedVariables

variables

Resize

(

);

capturedVariables

variables

[

]

Value

From

(

thisObject

GetRawPtr

());

auto

argumentArray

IValueList

Create

(

arguments

);

WfRuntimeLambda

Invoke

(

globalContext

capturedVariables

functionIndex

argumentArray

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

/*********************************************************************** WfClassMethod ***********************************************************************/

Value

WfClassMethod

InvokeInternal

(

const

Value

thisObject

collections

Array

Value

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

capturedVariables

MakePtr

WfRuntimeVariableContext

>();

capturedVariables

variables

Resize

(

);

capturedVariables

variables

[

]

Value

From

(

thisObject

GetRawPtr

());

auto

argumentArray

IValueList

Create

(

arguments

);

return

WfRuntimeLambda

Invoke

(

globalContext

capturedVariables

functionIndex

argumentArray

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfClassMethod

() :

WfMethodBase

(

false

) { }

/*********************************************************************** WfInterfaceConstructor ***********************************************************************/

Value

WfInterfaceConstructor

InvokeInternal

(

const

Value

thisObject

collections

Array

Value

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

(

arguments

Count

() !=

) {

throw

ArgumentCountMismtatchException

(

GetOwnerMethodGroup

()); }

auto

proxy

UnboxValue

Ptr

IValueInterfaceProxy

>>(

arguments

[

]);

List

IMethodInfo

baseCtors

; {

const

auto

baseTypes

dynamic_cast

WfCustomType

*>(

GetOwnerTypeDescriptor

())->

GetExpandedBaseTypes

();

for

(

vint

;

baseTypes

Count

();

++) {

auto

baseTypes

[

];

(

description

GetTypeDescriptor

IDescriptable

>()) {

(

auto

group

GetConstructorGroup

()) {

vint

count

group

GetMethodCount

();

IMethodInfo

selectedCtor

nullptr

;

for

(

vint

;

count

;

++) {

auto

ctor

group

GetMethod

(

);

(

ctor

GetParameterCount

() ==

) {

auto

type

ctor

GetParameter

(

)->

GetType

();

(

type

GetDecorator

() ==

ITypeInfo

SharedPtr

type

GetTypeDescriptor

() ==

description

GetTypeDescriptor

IValueInterfaceProxy

>()) {

selectedCtor

ctor

;

break

; } } }

(

selectedCtor

) {

baseCtors

Add

(

selectedCtor

); }

else

{

throw

ArgumentCountMismtatchException

(

group

); } }

else

{

throw

ConstructorNotExistsException

(

); } } } }

Ptr

WfInterfaceInstance

instance

new

WfInterfaceInstance

(

GetOwnerTypeDescriptor

(),

proxy

baseCtors

);

(

returnInfo

GetDecorator

() ==

ITypeInfo

SharedPtr

) {

return

Value

From

(

instance

); }

else

{

return

Value

From

(

instance

Detach

()); }

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfInterfaceConstructor

(

Ptr

ITypeInfo

type

) :

WfMethodBase

(

true

) {

auto

argumentType

TypeInfoRetriver

Ptr

IValueInterfaceProxy

>>::

CreateTypeInfo

();

auto

parameter

MakePtr

ParameterInfoImpl

this

L"proxy"

argumentType

);

AddParameter

(

parameter

);

SetReturn

(

type

); }

/*********************************************************************** WfInterfaceMethod ***********************************************************************/

Value

WfInterfaceMethod

InvokeInternal

(

const

Value

thisObject

collections

Array

Value

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

instance

thisObject

GetRawPtr

()->

SafeAggregationCast

WfInterfaceInstance

>();

return

instance

GetProxy

()

Invoke

(

this

IValueList

Create

(

From

(

arguments

)));

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfInterfaceMethod

() :

WfMethodBase

(

false

) { }

/*********************************************************************** GetInfoRecord ***********************************************************************/

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

template

typename

TRecord

typename

TInfo

Ptr

TRecord

GetInfoRecord

(

TInfo

target

DescriptableObject

thisObject

const

WString

key

bool

createIfNotExist

) {

thisObject

) {

throw

ArgumentNullException

(

L"thisObject"

target

); }

auto

untypedValue

thisObject

GetInternalProperty

(

key

);

auto

typedValue

untypedValue

Cast

TRecord

>();

(

untypedValue

) {

typedValue

) {

throw

ArgumentException

(

L"Key mismatches with the record type."

L"vl::workflow::typeimpl::GetFieldRecord"

L"key"

); } }

else

(

createIfNotExist

) {

typedValue

new

TRecord

;

thisObject

SetInternalProperty

(

key

typedValue

); }

return

typedValue

; }

#endif

/*********************************************************************** WfEvent ***********************************************************************/

const

wchar_t

WfEvent

EventRecordInternalPropertyName

L"WfEvent::EventRecord"

;

Ptr

WfEvent

EventRecord

WfEvent

GetEventRecord

(

DescriptableObject

thisObject

bool

createIfNotExist

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

return

GetInfoRecord

EventRecord

this

thisObject

EventRecordInternalPropertyName

createIfNotExist

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

Ptr

IEventHandler

WfEvent

AttachInternal

(

DescriptableObject

thisObject

Ptr

IValueFunctionProxy

handler

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

record

GetEventRecord

(

thisObject

true

);

auto

result

MakePtr

EventHandlerImpl

handler

);

record

handlers

Add

(

this

result

);

return

result

;

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

bool

WfEvent

DetachInternal

(

DescriptableObject

thisObject

Ptr

IEventHandler

handler

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

impl

handler

Cast

EventHandlerImpl

>();

impl

)

return

false

;

auto

record

GetEventRecord

(

thisObject

true

);

(

record

handlers

Remove

(

this

impl

Obj

())) {

impl

isAttached

false

;

return

true

; }

return

false

;

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

void

WfEvent

InvokeInternal

(

DescriptableObject

thisObject

Ptr

IValueList

arguments

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

record

GetEventRecord

(

thisObject

false

);

(

record

) {

vint

index

record

handlers

Keys

().

IndexOf

(

this

);

(

index

!= -

) {

auto

values

record

handlers

GetByIndex

(

index

);

FOREACH(Ptr<EventHandlerImpl>, handler, values)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

EventHandlerImpl

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

values

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

EventHandlerImpl

handler

;

__foreach_iterator__

(

handler

);)

{

handler

proxy

Invoke

(

arguments

); } } }

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

Ptr

ITypeInfo

WfEvent

GetHandlerTypeInternal

() {

return

handlerType

; }

WfEvent

(

ITypeDescriptor

ownerTypeDescriptor

const

WString

name

) :

EventInfoImpl

(

ownerTypeDescriptor

name

) { }

WfEvent

() { }

IEventInfo

ICpp

WfEvent

GetCpp

() {

return

nullptr

; }

void

WfEvent

SetHandlerType

(

Ptr

ITypeInfo

typeInfo

) {

handlerType

typeInfo

; }

/*********************************************************************** WfField ***********************************************************************/

const

wchar_t

WfField

FieldRecordInternalPropertyName

L"WfField::FieldRecord"

;

Ptr

WfField

FieldRecord

WfField

GetFieldRecord

(

DescriptableObject

thisObject

bool

createIfNotExist

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

return

GetInfoRecord

FieldRecord

this

thisObject

FieldRecordInternalPropertyName

createIfNotExist

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

Value

WfField

GetValueInternal

(

const

Value

thisObject

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

record

GetFieldRecord

(

thisObject

GetRawPtr

(),

true

);

return

record

values

Get

(

this

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

void

WfField

SetValueInternal

(

Value

thisObject

const

Value

newValue

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

record

GetFieldRecord

(

thisObject

GetRawPtr

(),

true

);

record

values

Set

(

this

newValue

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfField

(

ITypeDescriptor

ownerTypeDescriptor

const

WString

name

) :

FieldInfoImpl

(

ownerTypeDescriptor

name

nullptr

) { }

WfField

() { }

IPropertyInfo

ICpp

WfField

GetCpp

() {

return

nullptr

; }

void

WfField

SetReturn

(

Ptr

ITypeInfo

typeInfo

) {

returnInfo

typeInfo

; }

/*********************************************************************** WfStructField ***********************************************************************/

Value

WfStructField

GetValueInternal

(

const

Value

thisObject

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

structValue

thisObject

GetBoxedValue

().

Cast

IValueType

TypedBox

WfStructInstance

>>();

structValue

) {

throw

ArgumentTypeMismtatchException

(

L"thisObject"

GetOwnerTypeDescriptor

(),

Value

BoxedValue

thisObject

); }

vint

index

structValue

value

fieldValues

Keys

().

IndexOf

(

this

);

(

index

== -

) {

return

returnInfo

GetTypeDescriptor

()->

GetValueType

()->

CreateDefault

(); }

else

{

return

structValue

value

fieldValues

Values

()

[

index

]; }

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

void

WfStructField

SetValueInternal

(

Value

thisObject

const

Value

newValue

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

structValue

thisObject

GetBoxedValue

().

Cast

IValueType

TypedBox

WfStructInstance

>>();

structValue

) {

throw

ArgumentTypeMismtatchException

(

L"thisObject"

GetOwnerTypeDescriptor

(),

Value

BoxedValue

thisObject

); }

structValue

value

fieldValues

Set

(

this

newValue

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfStructField

(

ITypeDescriptor

ownerTypeDescriptor

const

WString

name

) :

FieldInfoImpl

(

ownerTypeDescriptor

name

nullptr

) { }

WfStructField

() { }

IPropertyInfo

ICpp

WfStructField

GetCpp

() {

return

nullptr

; }

void

WfStructField

SetReturn

(

Ptr

ITypeInfo

typeInfo

) {

returnInfo

typeInfo

; }

/*********************************************************************** WfProperty ***********************************************************************/

WfProperty

(

ITypeDescriptor

ownerTypeDescriptor

const

WString

name

) :

PropertyInfoImpl

(

ownerTypeDescriptor

name

nullptr

) { }

WfProperty

() { }

void

WfProperty

SetGetter

(

MethodInfoImpl

value

) {

getter

value

; }

void

WfProperty

SetSetter

(

MethodInfoImpl

value

) {

setter

value

; }

void

WfProperty

SetValueChangedEvent

(

EventInfoImpl

value

) {

valueChangedEvent

value

; }

/*********************************************************************** WfTypeInfoContent ***********************************************************************/

WfTypeInfoContent

(

const

WString

_workflowTypeName

) :workflowTypeName(

_workflowTypeName

) {

typeName

workflowTypeName

Buffer

();

cppFullTypeName

nullptr

;

cppName

TypeInfoContent

CppType

; }

/*********************************************************************** WfCustomType ***********************************************************************/

void

WfCustomType

SetGlobalContext

(

runtime

WfRuntimeGlobalContext

_globalContext

IMethodGroupInfo

group

) {

vint

methodCount

group

GetMethodCount

();

for

(

vint

;

methodCount

;

++) {

auto

method

group

GetMethod

(

);

(

auto

methodInfo

dynamic_cast

WfMethodBase

*>(

method

)) {

methodInfo

SetGlobalContext

(

globalContext

); } } }

void

WfCustomType

SetGlobalContext

(

runtime

WfRuntimeGlobalContext

_globalContext

) {

globalContext

_globalContext

;

(

auto

group

GetConstructorGroup

()) {

SetGlobalContext

(

globalContext

group

); }

vint

methodGroupCount

GetMethodGroupCount

();

for

(

vint

;

methodGroupCount

;

++) {

auto

group

GetMethodGroup

(

);

SetGlobalContext

(

globalContext

group

); } }

void

WfCustomType

LoadInternal

() { }

WfCustomType

(

reflection

description

TypeDescriptorFlags

typeDescriptorFlags

const

WString

typeName

) :

WfCustomTypeBase

reflection

description

TypeDescriptorImpl

typeDescriptorFlags

typeName

) { }

WfCustomType

() { }

runtime

WfRuntimeGlobalContext

WfCustomType

GetGlobalContext

() {

return

globalContext

; }

const

WfCustomType

TypeDescriptorList

WfCustomType

GetExpandedBaseTypes

() {

baseTypeExpanded

) {

baseTypeExpanded

true

;

TypeDescriptorList

customTypes

;

customTypes

Add

(

this

);

for

(

vint

;

customTypes

Count

();

++) {

auto

customTypes

[

];

vint

count

GetBaseTypeDescriptorCount

();

for

(

vint

;

count

;

++) {

auto

baseTd

GetBaseTypeDescriptor

(

);

(

dynamic_cast

WfCustomType

*>(

baseTd

)) {

customTypes

Add

(

baseTd

); }

else

{

expandedBaseTypes

Add

(

baseTd

); } } } }

return

expandedBaseTypes

; }

void

WfCustomType

AddBaseType

(

ITypeDescriptor

type

) {

TypeDescriptorImpl

AddBaseType

(

type

); }

void

WfCustomType

AddMember

(

const

WString

name

Ptr

WfMethodBase

value

) {

AddMethod

(

name

value

); }

void

WfCustomType

AddMember

(

Ptr

WfClassConstructor

value

) {

AddConstructor

(

value

); }

void

WfCustomType

AddMember

(

Ptr

WfInterfaceConstructor

value

) {

AddConstructor

(

value

); }

void

WfCustomType

AddMember

(

Ptr

WfField

value

) {

AddProperty

(

value

); }

void

WfCustomType

AddMember

(

Ptr

WfProperty

value

) {

AddProperty

(

value

); }

void

WfCustomType

AddMember

(

Ptr

WfEvent

value

) {

AddEvent

(

value

); }

/*********************************************************************** WfClass ***********************************************************************/

WfClass

(

const

WString

typeName

) :

WfCustomType

(

TypeDescriptorFlags

Class

typeName

) { }

WfClass

() { }

/*********************************************************************** WfInterface ***********************************************************************/

WfInterface

(

const

WString

typeName

) :

WfCustomType

(

TypeDescriptorFlags

Interface

typeName

) { }

WfInterface

() { }

/*********************************************************************** WfStruct ***********************************************************************/

WfStruct

WfValueType

(

WfStruct

_owner

) :owner(

_owner

) { }

Value

WfStruct

WfValueType

CreateDefault

() {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

return

Value

From

(

new

IValueType

TypedBox

WfStructInstance

owner

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

IBoxedValue

CompareResult

WfStruct

WfValueType

Compare

(

const

Value

const

Value

) {

return

IBoxedValue

NotComparable

; }

WfStruct

(

const

WString

typeName

) :

WfCustomTypeBase

reflection

description

ValueTypeDescriptorBase

TypeDescriptorFlags

Struct

typeName

) {

this

valueType

new

WfValueType

(

this

); }

WfStruct

() { }

vint

WfStruct

GetPropertyCount

() {

this

Load

();

return

fields

Count

(); }

IPropertyInfo

WfStruct

GetProperty

(

vint

index

) {

this

Load

();

(

index

fields

Count

()) {

return

nullptr

; }

return

fields

Values

()

[

index

Obj

(); }

bool

WfStruct

IsPropertyExists

(

const

WString

name

bool

inheritable

) {

this

Load

();

return

fields

Keys

().

Contains

(

name

); }

IPropertyInfo

WfStruct

GetPropertyByName

(

const

WString

name

bool

inheritable

) {

this

Load

();

vint

index

fields

Keys

().

IndexOf

(

name

);

(

index

== -

)

return

nullptr

;

return

fields

Values

()

[

index

Obj

(); }

void

WfStruct

AddMember

(

Ptr

WfStructField

value

) {

fields

Add

(

value

GetName

(),

value

); }

/*********************************************************************** WfEnum::WfEnumType ***********************************************************************/

WfEnum

WfEnumType

(

WfEnum

_owner

) :owner(

_owner

) { }

bool

WfEnum

WfEnumType

IsFlagEnum

() {

return

owner

GetTypeDescriptorFlags

() ==

TypeDescriptorFlags

FlagEnum

; }

vint

WfEnum

WfEnumType

GetItemCount

() {

return

owner

enumItems

Count

(); }

WString

WfEnum

WfEnumType

GetItemName

(

vint

index

) {

(

index

owner

enumItems

Count

()) {

return

L""

; }

return

owner

enumItems

Keys

()

[

index

]; }

vuint64_t

WfEnum

WfEnumType

GetItemValue

(

vint

index

) {

(

index

owner

enumItems

Count

()) {

return

; }

return

owner

enumItems

Values

()

[

index

]; }

vint

WfEnum

WfEnumType

IndexOfItem

(

WString

name

) {

return

owner

enumItems

Keys

().

IndexOf

(

name

); }

Value

WfEnum

WfEnumType

ToEnum

(

vuint64_t

value

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

boxedValue

MakePtr

IValueType

TypedBox

WfEnumInstance

>>();

boxedValue

value

;

return

Value

From

(

boxedValue

owner

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

vuint64_t

WfEnum

WfEnumType

FromEnum

(

const

Value

value

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

enumValue

value

GetBoxedValue

().

Cast

IValueType

TypedBox

WfEnumInstance

>>();

enumValue

) {

throw

ArgumentTypeMismtatchException

(

L"enumValue"

owner

Value

BoxedValue

value

); }

return

enumValue

value

;

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

/*********************************************************************** WfEnum ***********************************************************************/

WfEnum

WfValueType

(

WfEnum

_owner

) :owner(

_owner

) { }

Value

WfEnum

WfValueType

CreateDefault

() {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

return

Value

From

(

new

IValueType

TypedBox

WfEnumInstance

owner

);

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

IBoxedValue

CompareResult

WfEnum

WfValueType

Compare

(

const

Value

const

Value

) {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

auto

GetBoxedValue

().

Cast

IValueType

TypedBox

WfEnumInstance

>>();

) {

throw

ArgumentTypeMismtatchException

(

L"ea"

owner

Value

BoxedValue

); }

auto

GetBoxedValue

().

Cast

IValueType

TypedBox

WfEnumInstance

>>();

) {

throw

ArgumentTypeMismtatchException

(

L"eb"

owner

Value

BoxedValue

); }

(

value

)

return

IBoxedValue

Smaller

;

(

value

)

return

IBoxedValue

Greater

;

return

IBoxedValue

Equal

;

#else

CHECK_FAIL(L"Not Implemented under VCZH_DEBUG_METAONLY_REFLECTION!"); #endif

}

WfEnum

(

bool

isFlags

const

WString

typeName

) :

WfCustomTypeBase

reflection

description

ValueTypeDescriptorBase

>((

isFlags

TypeDescriptorFlags

FlagEnum

TypeDescriptorFlags

NormalEnum

typeName

) {

this

valueType

new

WfValueType

(

this

);

this

enumType

new

WfEnumType

(

this

); }

WfEnum

() { }

void

WfEnum

AddEnumItem

(

const

WString

name

vuint64_t

value

) {

enumItems

Add

(

name

value

); }

/*********************************************************************** WfClassInstance ***********************************************************************/

WfClassInstance

(

ITypeDescriptor

_typeDescriptor

)

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

Description

WfClassInstance

_typeDescriptor

)

#endif

{

classType

dynamic_cast

WfClass

*>(

_typeDescriptor

);

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

InitializeAggregation

(

classType

GetExpandedBaseTypes

().

Count

());

#endif

}

WfClassInstance

() {

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

(

classType

destructorFunctionIndex

!= -

) {

auto

capturedVariables

MakePtr

WfRuntimeVariableContext

>();

capturedVariables

variables

Resize

(

);

capturedVariables

variables

[

]

Value

From

(

this

);

auto

argumentArray

IValueList

Create

();

WfRuntimeLambda

Invoke

(

classType

GetGlobalContext

(),

capturedVariables

classType

destructorFunctionIndex

argumentArray

); }

#endif

}

void

WfClassInstance

InstallBaseObject

(

ITypeDescriptor

Value

value

) {

Ptr

DescriptableObject

ptr

; {

(!(

ptr

value

GetSharedPtr

())) {

ptr

value

GetRawPtr

(); }

value

Value

(); }

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

vint

index

classType

GetExpandedBaseTypes

().

IndexOf

(

);

SetAggregationParent

(

index

ptr

);

#endif

}

/*********************************************************************** WfInterfaceInstance ***********************************************************************/

WfInterfaceInstance

(

ITypeDescriptor

_typeDescriptor

Ptr

IValueInterfaceProxy

_proxy

collections

List

IMethodInfo

*>&

baseCtors

)

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

Description

WfInterfaceInstance

_typeDescriptor

) , proxy(

_proxy

)

#endif

{

Array

Value

arguments

(

);

arguments

[

]

Value

From

(

_proxy

);

#ifdef VCZH_DESCRIPTABLEOBJECT_WITH_METADATA

InitializeAggregation

(

baseCtors

Count

());

FOREACH_INDEXER(IMethodInfo*, ctor, index, baseCtors)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

IMethodInfo

*>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

baseCtors

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

index

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

IMethodInfo

ctor

;

__foreach_iterator__

(

ctor

);

index

++)

{

Ptr

DescriptableObject

ptr

; {

auto

value

ctor

Invoke

(

Value

(),

arguments

);

(!(

ptr

value

GetSharedPtr

())) {

ptr

value

GetRawPtr

(); } }

SetAggregationParent

(

index

ptr

); }

#endif

}

WfInterfaceInstance

() { }

Ptr

IValueInterfaceProxy

WfInterfaceInstance

GetProxy

() {

return

proxy

; }

/*********************************************************************** WfTypeImpl ***********************************************************************/

runtime

WfRuntimeGlobalContext

WfTypeImpl

GetGlobalContext

() {

return

globalContext

; }

void

WfTypeImpl

SetGlobalContext

(

runtime

WfRuntimeGlobalContext

_globalContext

) {

(

globalContext

) {

CHECK_ERROR(!_globalContext, L"vl::workflow::typeimpl::WfTypeImpl::SetGlobalContext(WfRuntimeGlobalContext*)#Only one global context is allowed to create from an assembly at the same time.");

{

(!(!

_globalContext

))

throw

Error

(

L"vl::workflow::typeimpl::WfTypeImpl::SetGlobalContext(WfRuntimeGlobalContext*)#Only one global context is allowed to create from an assembly at the same time."

);}

while

(

);

}

else

{

CHECK_ERROR(_globalContext, L"vl::workflow::typeimpl::WfTypeImpl::SetGlobalContext(WfRuntimeGlobalContext*)#Only one global context is allowed to create from an assembly at the same time.");

{

(!(

_globalContext

))

throw

Error

(

L"vl::workflow::typeimpl::WfTypeImpl::SetGlobalContext(WfRuntimeGlobalContext*)#Only one global context is allowed to create from an assembly at the same time."

);}

while

(

);

}

globalContext

_globalContext

;

FOREACH(Ptr<WfClass>, td, classes)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfClass

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

classes

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfClass

;

__foreach_iterator__

(

);)

{

SetGlobalContext

(

globalContext

); }

FOREACH(Ptr<WfInterface>, td, interfaces)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfInterface

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

interfaces

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfInterface

;

__foreach_iterator__

(

);)

{

SetGlobalContext

(

globalContext

); }

(

globalContext

) {

GetGlobalTypeManager

()->

AddTypeLoader

(

Ptr

WfTypeImpl

this

)); }

else

{

GetGlobalTypeManager

()->

RemoveTypeLoader

(

Ptr

WfTypeImpl

this

)); } }

void

WfTypeImpl

Load

(

reflection

description

ITypeManager

manager

) {

FOREACH(Ptr<WfClass>, td, classes)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfClass

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

classes

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfClass

;

__foreach_iterator__

(

);)

{

(

GetBaseTypeDescriptorCount

() ==

) {

AddBaseType

(

description

GetTypeDescriptor

DescriptableObject

>()); }

manager

SetTypeDescriptor

(

GetTypeName

(),

); }

FOREACH(Ptr<WfInterface>, td, interfaces)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfInterface

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

interfaces

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfInterface

;

__foreach_iterator__

(

);)

{

(

GetBaseTypeDescriptorCount

() ==

) {

AddBaseType

(

description

GetTypeDescriptor

IDescriptable

>()); }

manager

SetTypeDescriptor

(

GetTypeName

(),

); }

FOREACH(Ptr<WfStruct>, td, structs)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfStruct

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

structs

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfStruct

;

__foreach_iterator__

(

);)

{

manager

SetTypeDescriptor

(

GetTypeName

(),

); }

FOREACH(Ptr<WfEnum>, td, enums)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfEnum

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

enums

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfEnum

;

__foreach_iterator__

(

);)

{

manager

SetTypeDescriptor

(

GetTypeName

(),

); } }

void

WfTypeImpl

Unload

(

reflection

description

ITypeManager

manager

) {

FOREACH(Ptr<WfClass>, td, classes)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfClass

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

classes

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfClass

;

__foreach_iterator__

(

);)

{

manager

SetTypeDescriptor

(

GetTypeName

(),

nullptr

); }

FOREACH(Ptr<WfInterface>, td, interfaces)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfInterface

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

interfaces

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfInterface

;

__foreach_iterator__

(

);)

{

manager

SetTypeDescriptor

(

GetTypeName

(),

nullptr

); }

FOREACH(Ptr<WfStruct>, td, structs)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfStruct

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

structs

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfStruct

;

__foreach_iterator__

(

);)

{

manager

SetTypeDescriptor

(

GetTypeName

(),

nullptr

); }

FOREACH(Ptr<WfEnum>, td, enums)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

WfEnum

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

enums

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

WfEnum

;

__foreach_iterator__

(

);)

{

manager

SetTypeDescriptor

(

GetTypeName

(),

nullptr

); } } } } }