GuiInstanceLoader_WorkflowInstallBindings.cpp

#include "GuiInstanceLoader_WorkflowCodegen.h"

namespace

{

namespace

presentation

{

using

namespace

workflow

;

using

namespace

workflow

analyzer

;

using

namespace

reflection

description

;

using

namespace

collections

;

using

namespace

controls

;

using

namespace

compositions

;

/*********************************************************************** Workflow_InstallBindProperty ***********************************************************************/

Ptr

workflow

WfExpression

Workflow_GetUriProperty

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

IGuiInstanceLoader

loader

const

IGuiInstanceLoader

PropertyInfo

prop

Ptr

GuiInstancePropertyInfo

propInfo

const

WString

protocol

const

WString

path

GuiResourceTextPos

attPosition

GuiResourceError

List

errors

) {

Ptr

WfExpression

resourceExpr

; {

auto

refResolver

MakePtr

WfReferenceExpression

>();

refResolver

name

value

L"<this>"

;

auto

member

MakePtr

WfMemberExpression

>();

member

parent

refResolver

;

member

name

value

L"ResolveResource"

;

auto

valueProtocol

MakePtr

WfStringExpression

>();

valueProtocol

value

protocol

;

auto

valuePath

MakePtr

WfStringExpression

>();

valuePath

value

path

;

auto

valueBool

MakePtr

WfLiteralExpression

>();

valueBool

value

WfLiteralValue

True

;

auto

call

MakePtr

WfCallExpression

>();

call

function

member

;

call

arguments

Add

(

valueProtocol

);

call

arguments

Add

(

valuePath

);

call

arguments

Add

(

valueBool

);

resourceExpr

call

; }

auto

propInfo

acceptableTypes

[

]

GetTypeDescriptor

();

Ptr

ITypeInfo

convertedType

; {

(

GetSerializableType

()) {

convertedType

TypeInfoRetriver

Ptr

GuiTextData

>>::

CreateTypeInfo

(); }

else

(

description

GetTypeDescriptor

INativeImage

>() ||

description

GetTypeDescriptor

GuiImageData

>()) {

convertedType

TypeInfoRetriver

Ptr

GuiImageData

>>::

CreateTypeInfo

(); }

else

{

auto

elementType

MakePtr

TypeDescriptorTypeInfo

TypeInfoHint

Normal

);

auto

pointerType

MakePtr

SharedPtrTypeInfo

elementType

);

convertedType

pointerType

; } }

Ptr

WfExpression

convertedExpr

; {

auto

cast

MakePtr

WfTypeCastingExpression

>();

cast

expression

resourceExpr

;

cast

type

GetTypeFromTypeInfo

(

convertedType

Obj

());

cast

strategy

WfTypeCastingStrategy

Strong

;

convertedExpr

cast

; }

Ptr

WfExpression

evalExpr

; {

(

GetSerializableType

()) {

auto

member

MakePtr

WfMemberExpression

>();

member

parent

convertedExpr

;

member

name

value

L"Text"

;

auto

elementType

MakePtr

TypeDescriptorTypeInfo

TypeInfoHint

Normal

);

auto

cast

MakePtr

WfTypeCastingExpression

>();

cast

expression

member

;

cast

type

GetTypeFromTypeInfo

(

elementType

Obj

());

cast

strategy

WfTypeCastingStrategy

Strong

;

evalExpr

cast

; }

else

(

description

GetTypeDescriptor

INativeImage

>()) {

auto

member

MakePtr

WfMemberExpression

>();

member

parent

convertedExpr

;

member

name

value

L"Image"

;

evalExpr

member

; }

else

{

evalExpr

convertedExpr

; } }

return

evalExpr

; }

Ptr

workflow

WfStatement

Workflow_InstallUriProperty

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

GlobalStringKey

variableName

IGuiInstanceLoader

loader

const

IGuiInstanceLoader

PropertyInfo

prop

Ptr

GuiInstancePropertyInfo

propInfo

const

WString

protocol

const

WString

path

GuiResourceTextPos

attPosition

GuiResourceError

List

errors

) {

auto

evalExpr

Workflow_GetUriProperty

(

precompileContext

resolvingResult

loader

prop

propInfo

protocol

path

attPosition

errors

);

IGuiInstanceLoader

ArgumentMap

arguments

; {

IGuiInstanceLoader

ArgumentInfo

argumentInfo

;

argumentInfo

typeInfo

propInfo

acceptableTypes

[

];

argumentInfo

expression

evalExpr

;

argumentInfo

attPosition

;

arguments

Add

(

prop

propertyName

argumentInfo

); }

return

loader

AssignParameters

(

precompileContext

resolvingResult

prop

typeInfo

variableName

arguments

attPosition

errors

); }

/*********************************************************************** Workflow_InstallBindProperty ***********************************************************************/

Ptr

workflow

WfStatement

Workflow_InstallBindProperty

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

GlobalStringKey

variableName

description

IPropertyInfo

propertyInfo

Ptr

workflow

WfExpression

bindExpression

) {

auto

subBlock

MakePtr

WfBlockStatement

>(); {

auto

var

MakePtr

WfVariableDeclaration

>();

var

name

value

L"<created-subscription>"

;

var

expression

bindExpression

;

auto

stat

MakePtr

WfVariableStatement

>();

stat

variable

var

;

subBlock

statements

Add

(

stat

); } {

auto

callback

MakePtr

WfFunctionDeclaration

>();

callback

anonymity

WfFunctionAnonymity

Anonymous

;

callback

returnType

GetTypeFromTypeInfo

(

TypeInfoRetriver

void

>::

CreateTypeInfo

().

Obj

());; {

auto

arg

MakePtr

WfFunctionArgument

>();

arg

name

value

L"<value>"

;

arg

type

GetTypeFromTypeInfo

(

TypeInfoRetriver

Value

>::

CreateTypeInfo

().

Obj

());

callback

arguments

Add

(

arg

); }

auto

callbackBlock

MakePtr

WfBlockStatement

>();

callback

statement

callbackBlock

; {

auto

refSubscribee

MakePtr

WfReferenceExpression

>();

refSubscribee

name

value

variableName

ToString

();

auto

member

MakePtr

WfMemberExpression

>();

member

parent

refSubscribee

;

member

name

value

propertyInfo

GetName

();

auto

var

MakePtr

WfVariableDeclaration

>();

var

name

value

L"<old>"

;

var

expression

member

;

auto

stat

MakePtr

WfVariableStatement

>();

stat

variable

var

;

callbackBlock

statements

Add

(

stat

); } {

ITypeInfo

propertyType

propertyInfo

GetReturn

();

(

propertyInfo

GetSetter

() &&

propertyInfo

GetSetter

()->

GetParameterCount

() ==

) {

propertyType

propertyInfo

GetSetter

()->

GetParameter

(

)->

GetType

(); }

auto

refValue

MakePtr

WfReferenceExpression

>();

refValue

name

value

L"<value>"

;

auto

cast

MakePtr

WfTypeCastingExpression

>();

cast

strategy

WfTypeCastingStrategy

Strong

;

cast

expression

refValue

;

cast

type

GetTypeFromTypeInfo

(

propertyType

);

auto

var

MakePtr

WfVariableDeclaration

>();

var

name

value

L"<new>"

;

var

expression

cast

;

auto

stat

MakePtr

WfVariableStatement

>();

stat

variable

var

;

callbackBlock

statements

Add

(

stat

); } {

auto

refOld

MakePtr

WfReferenceExpression

>();

refOld

name

value

L"<old>"

;

auto

refNew

MakePtr

WfReferenceExpression

>();

refNew

name

value

L"<new>"

;

auto

compare

MakePtr

WfBinaryExpression

>();

compare

WfBinaryOperator

;

compare

first

refOld

;

compare

second

refNew

;

auto

ifStat

MakePtr

WfIfStatement

>();

ifStat

expression

compare

;

callbackBlock

statements

Add

(

ifStat

);

auto

ifBlock

MakePtr

WfBlockStatement

>();

ifStat

trueBranch

ifBlock

;

auto

returnStat

MakePtr

WfReturnStatement

>();

ifBlock

statements

Add

(

returnStat

); } {

auto

refSubscribee

MakePtr

WfReferenceExpression

>();

refSubscribee

name

value

variableName

ToString

();

auto

member

MakePtr

WfMemberExpression

>();

member

parent

refSubscribee

;

member

name

value

propertyInfo

GetName

();

auto

refNew

MakePtr

WfReferenceExpression

>();

refNew

name

value

L"<new>"

;

auto

assign

MakePtr

WfBinaryExpression

>();

assign

WfBinaryOperator

Assign

;

assign

first

member

;

assign

second

refNew

;

auto

stat

MakePtr

WfExpressionStatement

>();

stat

expression

assign

;

callbackBlock

statements

Add

(

stat

); }

auto

funcExpr

MakePtr

WfFunctionExpression

>();

funcExpr

function

callback

;

auto

refBind

MakePtr

WfReferenceExpression

>();

refBind

name

value

L"<created-subscription>"

;

auto

refEvent

MakePtr

WfMemberExpression

>();

refEvent

parent

refBind

;

refEvent

name

value

L"ValueChanged"

;

auto

attachExpr

MakePtr

WfAttachEventExpression

>();

attachExpr

event

refEvent

;

attachExpr

function

funcExpr

;

auto

stat

MakePtr

WfExpressionStatement

>();

stat

expression

attachExpr

;

subBlock

statements

Add

(

stat

); } {

auto

refThis

MakePtr

WfReferenceExpression

>();

refThis

name

value

L"<this>"

;

auto

member

MakePtr

WfMemberExpression

>();

member

parent

refThis

;

member

name

value

L"AddSubscription"

;

auto

refBind

MakePtr

WfReferenceExpression

>();

refBind

name

value

L"<created-subscription>"

;

auto

call

MakePtr

WfCallExpression

>();

call

function

member

;

call

arguments

Add

(

refBind

);

auto

stat

MakePtr

WfExpressionStatement

>();

stat

expression

call

;

subBlock

statements

Add

(

stat

); }

return

subBlock

; }

/*********************************************************************** Workflow_InstallEvalProperty ***********************************************************************/

Ptr

workflow

WfStatement

Workflow_InstallEvalProperty

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

GlobalStringKey

variableName

IGuiInstanceLoader

loader

const

IGuiInstanceLoader

PropertyInfo

prop

Ptr

GuiInstancePropertyInfo

propInfo

Ptr

workflow

WfExpression

evalExpression

GuiResourceTextPos

attPosition

GuiResourceError

List

errors

) {

IGuiInstanceLoader

ArgumentMap

arguments

; {

IGuiInstanceLoader

ArgumentInfo

argumentInfo

;

argumentInfo

typeInfo

propInfo

acceptableTypes

[

];

argumentInfo

expression

evalExpression

;

argumentInfo

attPosition

;

arguments

Add

(

prop

propertyName

argumentInfo

); }

return

loader

AssignParameters

(

precompileContext

resolvingResult

prop

typeInfo

variableName

arguments

attPosition

errors

); }

/*********************************************************************** Workflow_InstallEvent ***********************************************************************/

Ptr

workflow

WfStatement

Workflow_InstallEvent

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

GlobalStringKey

variableName

description

IEventInfo

eventInfo

const

WString

handlerName

) {

vint

count

eventInfo

GetHandlerType

()->

GetElementType

()->

GetGenericArgumentCount

() -

;

auto

subBlock

MakePtr

WfBlockStatement

>(); {

auto

var

MakePtr

WfReferenceExpression

>();

var

name

value

variableName

ToString

();

auto

member

MakePtr

WfMemberExpression

>();

member

parent

var

;

member

name

value

eventInfo

GetName

();

auto

refThis

MakePtr

WfReferenceExpression

>();

refThis

name

value

L"<this>"

;

auto

handler

MakePtr

WfMemberExpression

>();

handler

parent

refThis

;

handler

name

value

handlerName

;

auto

call

MakePtr

WfCallExpression

>();

call

function

handler

;

for

(

vint

;

count

;

++) {

auto

argument

MakePtr

WfOrderedNameExpression

>();

argument

name

value

L"$"

itow

(

);

call

arguments

Add

(

argument

); }

auto

eventHandler

MakePtr

WfOrderedLambdaExpression

>();

eventHandler

body

call

;

auto

attachEvent

MakePtr

WfAttachEventExpression

>();

attachEvent

event

member

;

attachEvent

function

eventHandler

;

auto

stat

MakePtr

WfExpressionStatement

>();

stat

expression

attachEvent

;

subBlock

statements

Add

(

stat

); }

return

subBlock

; }

/*********************************************************************** Workflow_GenerateEventHandler ***********************************************************************/

Ptr

workflow

WfFunctionDeclaration

Workflow_GenerateEventHandler

(

GuiResourcePrecompileContext

precompileContext

description

IEventInfo

eventInfo

) {

auto

func

MakePtr

WfFunctionDeclaration

>();

func

anonymity

WfFunctionAnonymity

Anonymous

;

func

returnType

GetTypeFromTypeInfo

(

TypeInfoRetriver

void

>::

CreateTypeInfo

().

Obj

());

vint

count

eventInfo

GetHandlerType

()->

GetElementType

()->

GetGenericArgumentCount

() -

;

bool

standardName

false

;

(

count

) {

auto

senderType

eventInfo

GetHandlerType

()->

GetElementType

()->

GetGenericArgument

(

)->

GetTypeDescriptor

();

auto

argumentType

eventInfo

GetHandlerType

()->

GetElementType

()->

GetGenericArgument

(

)->

GetTypeDescriptor

();

(

senderType

GetTypeDescriptor

GuiGraphicsComposition

>()) {

auto

expectedType

GetTypeDescriptor

GuiEventArgs

>();

List

ITypeDescriptor

types

;

types

Add

(

argumentType

);

for

(

vint

;

types

Count

();

++) {

auto

type

types

[

];

(

type

expectedType

) {

standardName

true

;

break

; }

vint

baseCount

type

GetBaseTypeDescriptorCount

();

for

(

vint

;

baseCount

;

++) {

auto

baseType

type

GetBaseTypeDescriptor

(

);

types

Contains

(

baseType

)) {

types

Add

(

baseType

); } } } } }

(

standardName

) { {

auto

arg

MakePtr

WfFunctionArgument

>();

arg

name

value

L"sender"

;

arg

type

GetTypeFromTypeInfo

(

eventInfo

GetHandlerType

()->

GetElementType

()->

GetGenericArgument

(

));

func

arguments

Add

(

arg

); } {

auto

arg

MakePtr

WfFunctionArgument

>();

arg

name

value

L"arguments"

;

arg

type

GetTypeFromTypeInfo

(

eventInfo

GetHandlerType

()->

GetElementType

()->

GetGenericArgument

(

));

func

arguments

Add

(

arg

); } }

else

{

auto

type

TypeInfoRetriver

Value

>::

CreateTypeInfo

();

for

(

vint

;

count

;

++) {

auto

arg

MakePtr

WfFunctionArgument

>();

arg

name

value

L"arg"

itow

(

);

arg

type

GetTypeFromTypeInfo

(

type

Obj

());

func

arguments

Add

(

arg

); } }

return

func

; }

/*********************************************************************** Workflow_InstallEvalEvent ***********************************************************************/

Ptr

workflow

WfStatement

Workflow_InstallEvalEvent

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

GlobalStringKey

variableName

description

IEventInfo

eventInfo

Ptr

workflow

WfStatement

evalStatement

) {

auto

func

Workflow_GenerateEventHandler

(

precompileContext

eventInfo

);

(

evalStatement

Cast

WfBlockStatement

>()) {

func

statement

evalStatement

; }

else

(

evalStatement

Cast

WfCoProviderStatement

>()) {

func

statement

evalStatement

; }

else

{

auto

funcBlock

MakePtr

WfBlockStatement

>();

funcBlock

statements

Add

(

evalStatement

);

func

statement

funcBlock

; }

auto

subBlock

MakePtr

WfBlockStatement

>(); {

auto

eventHandlerLambda

MakePtr

WfFunctionExpression

>();

eventHandlerLambda

function

func

;

auto

eventHandler

MakePtr

WfVariableDeclaration

>();

eventHandler

name

value

L"<event-handler>"

;

eventHandler

expression

eventHandlerLambda

;

auto

stat

MakePtr

WfVariableStatement

>();

stat

variable

eventHandler

;

subBlock

statements

Add

(

stat

); } {

auto

var

MakePtr

WfReferenceExpression

>();

var

name

value

variableName

ToString

();

auto

member

MakePtr

WfMemberExpression

>();

member

parent

var

;

member

name

value

eventInfo

GetName

();

auto

eventHandler

MakePtr

WfReferenceExpression

>();

eventHandler

name

value

L"<event-handler>"

;

auto

attachEvent

MakePtr

WfAttachEventExpression

>();

attachEvent

event

member

;

attachEvent

function

eventHandler

;

auto

stat

MakePtr

WfExpressionStatement

>();

stat

expression

attachEvent

;

subBlock

statements

Add

(

stat

); }

return

subBlock

; } } }