WfEmitter.cpp

#include "WfEmitter.h"

namespace

{

namespace

workflow

{

namespace

emitter

{

using

namespace

parsing

;

using

namespace

reflection

description

;

using

namespace

analyzer

;

using

namespace

runtime

;

/*********************************************************************** WfAttributeEvaluator ***********************************************************************/

WfAttributeEvaluator

(

analyzer

WfLexicalScopeManager

_manager

) :manager(

_manager

) { }

Ptr

WfAttribute

WfAttributeEvaluator

GetAttribute

(

collections

List

Ptr

WfAttribute

>>&

atts

const

WString

category

const

WString

name

) {

return

From

(

GetAttributes

(

atts

category

name

)).

First

(

nullptr

); }

collections

LazyList

Ptr

WfAttribute

WfAttributeEvaluator

GetAttributes

(

collections

List

Ptr

WfAttribute

>>&

atts

const

WString

category

const

WString

name

) {

return

From

(

atts

) .Where([=](

Ptr

WfAttribute

att

) {

return

att

category

value

category

att

name

value

name

; }); }

runtime

WfRuntimeValue

WfAttributeEvaluator

GetAttributeValue

(

Ptr

WfAttribute

att

) {

att

value

) {

return

{}; } {

vint

index

attributeValues

Keys

().

IndexOf

(

att

Obj

());

(

index

!= -

) {

return

attributeValues

Values

()

[

index

]; } }

auto

attributeAssembly

MakePtr

WfAssembly

>();

WfCodegenContext

context

(

attributeAssembly

manager

);

auto

typeInfo

manager

attributes

[

{

att

category

value

att

name

value

}];

GenerateExpressionInstructions

(

context

att

value

typeInfo

);

CHECK_ERROR(attributeAssembly->instructions.Count() == 1, L"WfAttributeEvaluator::GetAttributeValue(Ptr<WfAttribute>)#Internal error, attribute argument generates unexpected instructions.");

{

(!(

attributeAssembly

instructions

Count

() ==

))

throw

Error

(

L"WfAttributeEvaluator::GetAttributeValue(Ptr<WfAttribute>)#Internal error, attribute argument generates unexpected instructions."

);}

while

(

);

auto

ins

attributeAssembly

instructions

[

];

CHECK_ERROR(ins.code == WfInsCode::LoadValue, L"WfAttributeEvaluator::GetAttributeValue(Ptr<WfAttribute>)#Internal error, attribute argument generates unexpected instructions.");

{

(!(

ins

code

WfInsCode

LoadValue

))

throw

Error

(

L"WfAttributeEvaluator::GetAttributeValue(Ptr<WfAttribute>)#Internal error, attribute argument generates unexpected instructions."

);}

while

(

);

attributeValues

Add

(

att

ins

valueParameter

);

return

ins

valueParameter

; }

/*********************************************************************** WfCodegenFunctionContext ***********************************************************************/

WfCodegenFunctionContext

() {

scopeContextStack

Add

(

new

WfCodegenScopeContext

); }

Ptr

WfCodegenScopeContext

WfCodegenFunctionContext

GetCurrentScopeContext

() {

return

scopeContextStack

[

scopeContextStack

Count

() -

]; }

Ptr

WfCodegenScopeContext

WfCodegenFunctionContext

GetCurrentScopeContext

(

WfCodegenScopeType

type

const

WString

name

) {

for

(

vint

scopeContextStack

Count

() -

;

--) {

auto

context

scopeContextStack

[

];

(

context

type

) {

(

name

L""

context

name

) {

return

context

; } } }

return

; }

Ptr

WfCodegenScopeContext

WfCodegenFunctionContext

PushScopeContext

(

WfCodegenScopeType

type

const

WString

name

) {

auto

context

MakePtr

WfCodegenScopeContext

>();

context

type

;

context

name

;

scopeContextStack

Add

(

context

);

return

context

; }

void

WfCodegenFunctionContext

PopScopeContext

() {

scopeContextStack

RemoveAt

(

scopeContextStack

Count

() -

); }

/*********************************************************************** WfCodegenContext ***********************************************************************/

WfCodegenContext

(

Ptr

runtime

WfAssembly

_assembly

analyzer

WfLexicalScopeManager

_manager

) :assembly(

_assembly

) , manager(

_manager

) { }

vint

WfCodegenContext

AddInstruction

(

parsing

ParsingTreeCustomBase

node

const

runtime

WfInstruction

ins

) {

auto

index

assembly

instructions

Add

(

ins

);

(

assembly

insBeforeCodegen

assembly

insAfterCodegen

) {

(

node

) {

assembly

insBeforeCodegen

instructionCodeMapping

Add

(

nodePositionsBeforeCodegen

[

node

]);

assembly

insAfterCodegen

instructionCodeMapping

Add

(

nodePositionsAfterCodegen

[

node

]); }

else

{

parsing

ParsingTextRange

range

;

assembly

insBeforeCodegen

instructionCodeMapping

Add

(

range

);

assembly

insAfterCodegen

instructionCodeMapping

Add

(

range

); } }

return

index

; }

void

WfCodegenContext

AddExitInstruction

(

parsing

ParsingTreeCustomBase

node

const

runtime

WfInstruction

ins

) {

auto

context

functionContext

GetCurrentScopeContext

();

context

exitInstructions

Add

(

ins

);

context

instructionCodeMappingBeforeCodegen

Add

(

nodePositionsBeforeCodegen

[

node

]);

context

instructionCodeMappingAfterCodegen

Add

(

nodePositionsAfterCodegen

[

node

]); }

void

WfCodegenContext

ApplyExitInstructions

(

Ptr

WfCodegenScopeContext

scopeContext

) {

(

scopeContext

exitInstructions

Count

() >

) {

CopyFrom

(

assembly

instructions

scopeContext

exitInstructions

true

);

CopyFrom

(

assembly

insBeforeCodegen

instructionCodeMapping

scopeContext

instructionCodeMappingBeforeCodegen

true

);

CopyFrom

(

assembly

insAfterCodegen

instructionCodeMapping

scopeContext

instructionCodeMappingAfterCodegen

true

); } }

vint

WfCodegenContext

GetThisStackCount

(

analyzer

WfLexicalScope

scope

) {

vint

count

;

Ptr

WfLexicalFunctionConfig

firstConfig

methodConfig

;

while

(

scope

) {

(

scope

typeOfThisExpr

) {

(

methodConfig

) {

count

++;

methodConfig

parentThisAccessable

) {

break

; }

methodConfig

nullptr

; } }

(

scope

functionConfig

) {

firstConfig

) {

vint

index

thisStackCounts

Keys

().

IndexOf

(

scope

functionConfig

Obj

());

(

index

== -

) {

firstConfig

scope

functionConfig

; }

else

{

return

thisStackCounts

Values

()

[

index

]; } }

(

scope

functionConfig

thisAccessable

) {

methodConfig

scope

functionConfig

; } }

scope

parentScope

Obj

(); }

(

firstConfig

) {

thisStackCounts

Add

(

firstConfig

count

); }

return

count

; } } } }