GuiInstanceQuery.cpp

#include "GuiInstanceQuery.h"

namespace

{

namespace

presentation

{

using

namespace

collections

;

/*********************************************************************** ExecuteQueryVisitor ***********************************************************************/

class

ExecuteQueryVisitor

public

Object

public

GuiIqQuery

IVisitor

{

public

Ptr

GuiInstanceContext

context

;

List

Ptr

GuiConstructorRepr

>>&

input

;

List

Ptr

GuiConstructorRepr

>>&

output

;

ExecuteQueryVisitor

(

Ptr

GuiInstanceContext

_context

List

Ptr

GuiConstructorRepr

>>&

_input

List

Ptr

GuiConstructorRepr

>>&

_output

) :context(

_context

), input(

_input

), output(

_output

) { }

static

bool

TestCtor

(

GuiIqPrimaryQuery

node

GlobalStringKey

attribute

Ptr

GuiConstructorRepr

ctor

) {

(

node

attributeNameOption

GuiIqNameOption

Specified

node

attributeName

value

attribute

ToString

()) {

return

false

; }

(

node

typeNameOption

GuiIqNameOption

Specified

node

typeName

value

ctor

typeName

ToString

()) {

return

false

; }

(

node

referenceName

value

L""

) {

bool

instanceName

ctor

instanceName

GlobalStringKey

Empty

node

referenceName

value

ctor

instanceName

ToString

();

bool

styleName

ctor

styleName

node

referenceName

value

ctor

styleName

Value

();

return

instanceName

styleName

; }

return

true

; }

void

Traverse

(

GuiIqPrimaryQuery

node

Ptr

GuiAttSetterRepr

setter

) {

(

setter

) {

FOREACH_INDEXER(GlobalStringKey, attribute, index, setter->setters.Keys())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

setter

setters

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

attribute

;

__foreach_iterator__

(

attribute

);

index

++)

{

auto

setterValue

setter

setters

Values

()

[

index

];

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

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

GuiValueRepr

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

setterValue

values

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

GuiValueRepr

value

;

__foreach_iterator__

(

value

);)

{

(

auto

ctor

value

Cast

GuiConstructorRepr

>()) {

(

TestCtor

(

node

attribute

ctor

)) {

output

Add

(

ctor

); } }

(

node

childOption

GuiIqChildOption

Indirect

) {

(

auto

setter

value

Cast

GuiAttSetterRepr

>()) {

Traverse

(

node

setter

); } } } } }

else

{

(

TestCtor

(

node

GlobalStringKey

Empty

context

instance

)) {

output

Add

(

context

instance

); }

(

node

childOption

GuiIqChildOption

Indirect

) {

Traverse

(

node

context

instance

); } } }

void

Visit

(

GuiIqPrimaryQuery

node

)

override

{

auto

inputExists

= &

input

;

(

inputExists

) {

FOREACH(Ptr<GuiConstructorRepr>, setter, input)

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

Ptr

GuiConstructorRepr

>>&

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

input

);

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

Ptr

GuiConstructorRepr

setter

;

__foreach_iterator__

(

setter

);)

{

Traverse

(

node

setter

); } }

else

{

Traverse

(

node

); } }

void

Visit

(

GuiIqCascadeQuery

node

)

override

{

List

Ptr

GuiConstructorRepr

temp

;

ExecuteQuery

(

node

parent

context

input

temp

);

ExecuteQuery

(

node

child

context

temp

output

); }

void

Visit

(

GuiIqSetQuery

node

)

override

{

List

Ptr

GuiConstructorRepr

first

second

;

ExecuteQuery

(

node

first

context

input

first

);

ExecuteQuery

(

node

second

context

input

second

);

switch

(

node

) {

case

GuiIqBinaryOperator

ExclusiveOr

CopyFrom

(

output

From

(

first

).Except(

second

).Union(

From

(

second

).Except(

second

)));

break

;

case

GuiIqBinaryOperator

Intersect

CopyFrom

(

output

From

(

first

).Intersect(

second

));

break

;

case

GuiIqBinaryOperator

Union

CopyFrom

(

output

From

(

first

).Union(

second

));

break

;

case

GuiIqBinaryOperator

Substract

CopyFrom

(

output

From

(

first

).Except(

second

));

break

; } } };

/*********************************************************************** ExecuteQuery ***********************************************************************/

void

ExecuteQuery

(

Ptr

GuiIqQuery

query

Ptr

GuiInstanceContext

context

collections

List

Ptr

GuiConstructorRepr

>>&

input

collections

List

Ptr

GuiConstructorRepr

>>&

output

) {

ExecuteQueryVisitor

visitor

(

context

input

output

);

query

visitor

); }

void

ExecuteQuery

(

Ptr

GuiIqQuery

query

Ptr

GuiInstanceContext

context

collections

List

Ptr

GuiConstructorRepr

>>&

output

) {

#if defined(VCZH_GCC) && defined(__clang__)

#pragma clang diagnostic push

#pragma clang diagnostic ignored "-Wnull-dereference" #endif

ExecuteQuery

(

query

context

, *(

List

Ptr

GuiConstructorRepr

>>*)

output

);

#if defined(VCZH_GCC) && defined(__clang__)

#pragma clang diagnostic pop #endif

}

/*********************************************************************** ApplyStyle ***********************************************************************/

void

ApplyStyleInternal

(

Ptr

GuiAttSetterRepr

src

Ptr

GuiAttSetterRepr

dst

) {

FOREACH_INDEXER(GlobalStringKey, attribute, srcIndex, src->setters.Keys())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

src

setters

Keys

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

srcIndex

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

GlobalStringKey

attribute

;

__foreach_iterator__

(

attribute

);

srcIndex

++)

{

auto

srcValue

src

setters

Values

()

[

srcIndex

];

vint

dstIndex

dst

setters

Keys

().

IndexOf

(

attribute

);

(

dstIndex

== -

) {

dst

setters

Add

(

attribute

srcValue

); }

else

{

auto

dstValue

dst

setters

Values

()

[

dstIndex

];

(

srcValue

binding

dstValue

binding

) {

(

srcValue

binding

GlobalStringKey

_Set

) {

ApplyStyleInternal

(

srcValue

values

[

Cast

GuiAttSetterRepr

>(),

dstValue

values

[

Cast

GuiAttSetterRepr

>()); }

else

{

CopyFrom

(

dstValue

values

srcValue

values

true

); } } } }

FOREACH_INDEXER(GlobalStringKey, eventName, srcIndex, src->eventHandlers.Keys())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

src

eventHandlers

Keys

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

srcIndex

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

GlobalStringKey

eventName

;

__foreach_iterator__

(

eventName

);

srcIndex

++)

{

dst

eventHandlers

Keys

().

Contains

(

eventName

)) {

auto

srcValue

src

eventHandlers

Values

()

[

srcIndex

];

dst

eventHandlers

Add

(

eventName

srcValue

); } }

FOREACH_INDEXER(GlobalStringKey, varName, srcIndex, src->environmentVariables.Keys())

(

bool

__scope_variable_flag__

true

)

for

(

const

collections

ForEachIterator

GlobalStringKey

__foreach_iterator__

= ::

collections

CreateForEachIterator

(

src

environmentVariables

Keys

());

__scope_variable_flag__

;

__scope_variable_flag__

false

)

(

bool

__scope_variable_flag__

true

)

for

(

vint

srcIndex

;

__scope_variable_flag__

;

__scope_variable_flag__

false

)

for

(

GlobalStringKey

varName

;

__foreach_iterator__

(

varName

);

srcIndex

++)

{

dst

environmentVariables

Keys

().

Contains

(

varName

)) {

auto

srcValue

src

environmentVariables

Values

()

[

srcIndex

];

dst

environmentVariables

Add

(

varName

srcValue

); } } }

void

ApplyStyle

(

Ptr

GuiInstanceStyle

style

Ptr

GuiConstructorRepr

ctor

) {

ApplyStyleInternal

(

style

setter

Clone

().

Cast

GuiAttSetterRepr

>(),

ctor

); }

/*********************************************************************** GuiIqPrint ***********************************************************************/

class

GuiIqPrintVisitor

public

Object

public

GuiIqQuery

IVisitor

{

public

stream

StreamWriter

writer

;

GuiIqPrintVisitor

(

stream

StreamWriter

_writer

) :writer(

_writer

) { }

void

Visit

(

GuiIqPrimaryQuery

node

)

override

{

switch

(

node

childOption

) {

case

GuiIqChildOption

Direct

writer

WriteString

(

L"/"

);

break

;

case

GuiIqChildOption

Indirect

writer

WriteString

(

L"//"

);

break

; }

(

node

attributeNameOption

GuiIqNameOption

Specified

) {

writer

WriteChar

(

L'@'

);

writer

WriteString

(

node

attributeName

value

);

writer

WriteChar

(

L':'

); }

(

node

typeNameOption

GuiIqNameOption

Specified

) {

writer

WriteString

(

node

typeName

value

); }

else

{

writer

WriteChar

(

L'*'

); }

(

node

referenceName

value

L""

) {

writer

WriteChar

(

L'.'

);

writer

WriteString

(

node

referenceName

value

); } }

void

Visit

(

GuiIqCascadeQuery

node

)

override

{

node

parent

(

this

);

node

child

(

this

); }

void

Visit

(

GuiIqSetQuery

node

)

override

{

writer

WriteChar

(

L'('

);

node

first

(

this

);

switch

(

node

) {

case

GuiIqBinaryOperator

ExclusiveOr

writer

WriteString

(

L" ^ "

);

break

;

case

GuiIqBinaryOperator

Intersect

writer

WriteString

(

L" * "

);

break

;

case

GuiIqBinaryOperator

Union

writer

WriteString

(

L" + "

);

break

;

case

GuiIqBinaryOperator

Substract

writer

WriteString

(

L" - "

);

break

; }

node

second

(

this

);

writer

WriteChar

(

L')'

); } };

void

GuiIqPrint

(

Ptr

GuiIqQuery

query

stream

StreamWriter

writer

) {

GuiIqPrintVisitor

visitor

(

writer

);

query

visitor

); } } }