GuiInstanceLoader_WorkflowGenerateBindings.cpp

#include "GuiInstanceLoader_WorkflowCodegen.h"

namespace

{

namespace

presentation

{

using

namespace

workflow

;

using

namespace

collections

;

using

namespace

reflection

description

;

/*********************************************************************** WorkflowGenerateBindingVisitor ***********************************************************************/

class

WorkflowGenerateBindingVisitor

public

Object

public

GuiValueRepr

IVisitor

{

public

GuiResourcePrecompileContext

precompileContext

;

types

ResolvingResult

resolvingResult

;

Ptr

WfBlockStatement

statements

;

GuiResourceError

List

errors

;

WorkflowGenerateBindingVisitor

(

GuiResourcePrecompileContext

_precompileContext

types

ResolvingResult

_resolvingResult

Ptr

WfBlockStatement

_statements

GuiResourceError

List

_errors

) :precompileContext(

_precompileContext

) , resolvingResult(

_resolvingResult

) , errors(

_errors

) , statements(

_statements

) { }

///////////////////////////////////////////////////////////////////////////////////

Ptr

WfStatement

ProcessPropertyBinding

(

GuiAttSetterRepr

repr

IGuiInstanceLoader

TypeInfo

reprTypeInfo

Ptr

GuiAttSetterRepr

SetterValue

setter

GlobalStringKey

propertyName

) {

(

auto

binder

GetInstanceLoaderManager

()->

GetInstanceBinder

(

setter

binding

)) {

auto

propertyResolving

resolvingResult

propertyResolvings

[

setter

values

[

Obj

()];

(

propertyResolving

info

usage

GuiInstancePropertyInfo

Property

) {

WString

expressionCode

setter

values

[

Cast

GuiTextRepr

>()

text

;

auto

instancePropertyInfo

reprTypeInfo

typeInfo

GetTypeDescriptor

()->

GetPropertyByName

(

propertyName

ToString

(),

true

);

(

instancePropertyInfo

|| !

binder

RequirePropertyExist

()) {

(

auto

statement

binder

GenerateInstallStatement

(

precompileContext

resolvingResult

repr

instanceName

instancePropertyInfo

propertyResolving

loader

propertyResolving

propertyInfo

propertyResolving

info

expressionCode

setter

values

[

]

tagPosition

errors

)) {

return

statement

; } }

else

{

errors

Add

(

GuiResourceError

({

resolvingResult

resource

setter

attPosition

L"Precompile: Binder \""

setter

binding

ToString

() +

L"\" requires property \""

propertyName

ToString

() +

L"\" to physically appear in type \""

reprTypeInfo

typeName

ToString

() +

L"\"."

)); } } }

else

{

errors

Add

(

GuiResourceError

({

resolvingResult

resource

setter

attPosition

L"[INTERNAL-ERROR] Precompile: The appropriate IGuiInstanceBinder of binding \"-"

setter

binding

ToString

() +

L"\" cannot be found."

)); }

return

nullptr

; }

///////////////////////////////////////////////////////////////////////////////////

Ptr

WfStatement

ProcessEventBinding

(

GuiAttSetterRepr

repr

IGuiInstanceLoader

TypeInfo

reprTypeInfo

Ptr

GuiAttSetterRepr

EventValue

handler

GlobalStringKey

propertyName

) {

auto

reprTypeInfo

typeInfo

GetTypeDescriptor

();

auto

eventInfo

GetEventByName

(

propertyName

ToString

(),

true

);

eventInfo

) {

errors

Add

(

GuiResourceError

({

resolvingResult

resource

handler

attPosition

L"[INTERNAL-ERROR] Precompile: Event \""

propertyName

ToString

() +

L"\" cannot be found in type \""

reprTypeInfo

typeName

ToString

() +

L"\"."

)); }

else

{

(

handler

binding

GlobalStringKey

Empty

) {

return

Workflow_InstallEvent

(

precompileContext

resolvingResult

repr

instanceName

eventInfo

handler

value

); }

else

{

auto

binder

GetInstanceLoaderManager

()->

GetInstanceEventBinder

(

handler

binding

);

(

binder

) {

return

binder

GenerateInstallStatement

(

precompileContext

resolvingResult

repr

instanceName

eventInfo

handler

value

handler

valuePosition

errors

); }

else

{

errors

Add

(

GuiResourceError

({

resolvingResult

resource

handler

attPosition

L"[INTERNAL-ERROR] The appropriate IGuiInstanceEventBinder of binding \"-"

handler

binding

ToString

() +

L"\" cannot be found."

)); } } }

return

nullptr

; }

///////////////////////////////////////////////////////////////////////////////////

void

Visit

(

GuiTextRepr

repr

)

override

{ }

void

Visit

(

GuiAttSetterRepr

repr

)

override

{

IGuiInstanceLoader

TypeInfo

reprTypeInfo

;

(

repr

instanceName

GlobalStringKey

Empty

) {

reprTypeInfo

resolvingResult

typeInfos

[

repr

instanceName

]; }

(

reprTypeInfo

typeInfo

&& (

reprTypeInfo

typeInfo

GetTypeDescriptor

()->

GetTypeDescriptorFlags

()

TypeDescriptorFlags

ReferenceType

) !=

TypeDescriptorFlags

Undefined

) {

WORKFLOW_ENVIRONMENT_VARIABLE_ADD

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

repr

environmentVariables

Keys

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

index

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

GlobalStringKey

envVar

;

__foreach_iterator__

(

envVar

);

index

++) {

auto

value

repr

environmentVariables

Values

()

[

index

];

resolvingResult

envVars

Add

(

envVar

value

); }

FOREACH_INDEXER(Ptr<GuiAttSetterRepr::SetterValue>, setter, index, repr->setters.Values())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

GuiAttSetterRepr

SetterValue

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

repr

setters

Values

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

index

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

GuiAttSetterRepr

SetterValue

setter

;

__foreach_iterator__

(

setter

);

index

++)

{

auto

propertyName

repr

setters

Keys

()

[

index

];

(

setter

binding

GlobalStringKey

Empty

setter

binding

GlobalStringKey

_Set

) {

(

auto

statement

ProcessPropertyBinding

(

repr

reprTypeInfo

setter

propertyName

)) {

Workflow_RecordScriptPosition

(

precompileContext

setter

values

[

]

tagPosition

statement

);

statements

Add

(

statement

); } }

else

{

FOREACH(Ptr<GuiValueRepr>, value, setter->values)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

GuiValueRepr

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

setter

values

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

GuiValueRepr

value

;

__foreach_iterator__

(

value

);)

{

value

(

this

); } } }

FOREACH_INDEXER(Ptr<GuiAttSetterRepr::EventValue>, handler, index, repr->eventHandlers.Values())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

GuiAttSetterRepr

EventValue

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

repr

eventHandlers

Values

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

index

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

GuiAttSetterRepr

EventValue

handler

;

__foreach_iterator__

(

handler

);

index

++)

{

(

reprTypeInfo

typeInfo

) {

GlobalStringKey

propertyName

repr

eventHandlers

Keys

()

[

index

];

(

auto

statement

ProcessEventBinding

(

repr

reprTypeInfo

handler

propertyName

)) {

Workflow_RecordScriptPosition

(

precompileContext

handler

valuePosition

statement

);

statements

Add

(

statement

); } } }

WORKFLOW_ENVIRONMENT_VARIABLE_REMOVE

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

repr

environmentVariables

Keys

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

index

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

GlobalStringKey

envVar

;

__foreach_iterator__

(

envVar

);

index

++) {

auto

value

repr

environmentVariables

Values

()

[

index

];

resolvingResult

envVars

Remove

(

envVar

value

Obj

()); }

} }

void

Visit

(

GuiConstructorRepr

repr

)

override

{

Visit

((

GuiAttSetterRepr

repr

); } };

void

Workflow_GenerateBindings

(

GuiResourcePrecompileContext

precompileContext

types

ResolvingResult

resolvingResult

Ptr

WfBlockStatement

statements

GuiResourceError

List

errors

) {

WorkflowGenerateBindingVisitor

visitor

(

precompileContext

resolvingResult

statements

errors

);

resolvingResult

context

instance

visitor

);

FOREACH(Ptr<GuiInstanceLocalized>, localized, resolvingResult.context->localizeds)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

GuiInstanceLocalized

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

resolvingResult

context

localizeds

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

GuiInstanceLocalized

localized

;

__foreach_iterator__

(

localized

);)

{

auto

code

L"bind("

localized

className

ToString

() +

L"::Get(presentation::controls::GuiApplication::GetApplication().Locale))"

;

(

auto

bindExpr

Workflow_ParseExpression

(

precompileContext

, {

resolvingResult

resource

code

localized

tagPosition

errors

)) {

auto

instancePropertyInfo

resolvingResult

rootTypeInfo

typeInfo

GetTypeDescriptor

()->

GetPropertyByName

(

localized

name

ToString

(),

true

);

(

auto

statement

Workflow_InstallBindProperty

(

precompileContext

resolvingResult

context

instance

instanceName

instancePropertyInfo

bindExpr

)) {

Workflow_RecordScriptPosition

(

precompileContext

localized

tagPosition

statement

);

statements

Add

(

statement

); } } } } } }