ЯПФ, конвейер, автоматные вычисления и опять… корутины

#ifndef FARITHM2_H
#define FARITHM2_H


#include "lfsaappl.h"

class FArithm2 :
    public LFsaAppl
{
public:
    LFsaAppl* Create(CVarFSA *pCVF) { Q_UNUSED(pCVF)return new FArithm2(pTAppCore, nameFsa, pCVarFsaLibrary); }
    bool FCreationOfLinksForVariables();
    FArithm2(TAppCore *pInfo, string strNam, CVarFsaLibrary *pCVFL);
    virtual ~FArithm2(void);
    CVar	*pVarA;				// первый операнд
    CVar	*pVarB;				// второй операнд
    CVar	*pVarC;				// результат: c = op(a,b)
    CVar	*pVarOp;			// переменная-операция
    int		nOperation;			// операция - op (0-сумма, 1 - вычитание, 2-умножение, 3-деление, 4 - накопитель
    bool	bIfMin;
    CVar	*pVarMin;				//
    double	dValueMin;
    bool	bIfMax;
    CVar	*pVarMax;				//
    double	dValueMax;
protected:
    int x1();
    void y1(); void y2();

    double	dValueA;
    double	dValueB;
    double	dValueC;
friend class CDlgArithm2;
};

#endif // FARITHM2_H
#include "stdafx.h"
#include "FArithm2.h"
#include <QtMath>

static LArc TBL_Arithm2[] = {
    LArc("st",		"st","^x1",	"y2"),			// -
    LArc("st",		"s1","x1",	"y2"),			// на всяк. случай инициировать класс
    LArc("s1",		"s1","--",	"y1"),			// выполнить операцию
    LArc()
};

FArithm2::FArithm2(TAppCore *pInfo, string strNam, CVarFsaLibrary *pCVFL):
    LFsaAppl(TBL_Arithm2, strNam, nullptr, pCVFL)
{
    pTAppCore = pInfo;
    pVarA	= nullptr;				//
    pVarB	= nullptr;				//
    pVarC	= nullptr;				//
    pVarOp	= nullptr;				//
    bIfMin	= false;
    pVarMin	= nullptr;				//
    dValueMin = 0;
    bIfMax	= false;
    pVarMax	= nullptr;				//
    dValueMax = 0;
    dValueA = 0;
    dValueB = 0;
}

FArithm2::~FArithm2(void)
{
}

bool FArithm2::FCreationOfLinksForVariables() {
    CLocVar var; var.unTypeVar = CLocVar::vtDouble; var.SetDataSrc(this,0.0); var.pLFsaAppl = this; var.pLFsaType = this; var.bIfInit = true;
    CVar *pVar = pCSetLocVar->GetAddressVar("y");
    if (!pVar) { var.strName = "y";	var.strComment = "выходное значение"; pCSetLocVar->Add(var); }
    pVar = pCSetLocVar->GetAddressVar("a");
    if (!pVar) { var.strName = "a";	var.strComment = "первый операнд"; pCSetLocVar->Add(var); }
    pVar = pCSetLocVar->GetAddressVar("b");
    if (!pVar) { var.strName = "b";	var.strComment = "второй операнд"; pCSetLocVar->Add(var); }
    pVar = pCSetLocVar->GetAddressVar("c");
    if (!pVar) { var.strName = "c";	var.strComment = "результат"; pCSetLocVar->Add(var); }
    pVar = pCSetLocVar->GetAddressVar("min");
    if (!pVar) { var.strName = "min";	var.strComment = "мин. значение выхода"; pCSetLocVar->Add(var); }
    pVar = pCSetLocVar->GetAddressVar("max");
    if (!pVar) { var.strName = "max";	var.strComment = "макс. значение выхода"; pCSetLocVar->Add(var); }
    pVar = pCSetLocVar->GetAddressVar("strOp");
    if (!pVar) { var.strName = "strOp";	var.unTypeVar = CLocVar::vtString; var.strComment = "операция(string)"; pCSetLocVar->Add(var); }
// ссылка на 1-й операнд
    if (!pVarA)
        pVarA = pTAppCore->GetAddressVar(pVarPrmProc->strParam1.c_str(), this);
// ссылка на 2-й операнд
    if (!pVarB)
        pVarB = pTAppCore->GetAddressVar(pVarPrmProc->strParam2.c_str(), this);
// ссылка на переменную результата
    if (!pVarC)
        pVarC = pTAppCore->GetAddressVar(pVarPrmProc->strParam3.c_str(), this);
// ссылка на переменную-операцию
    if (!pVarOp)
        pVarOp = pTAppCore->GetAddressVar(pVarPrmProc->strParam4.c_str(), this);
// установкa типа операции
    if (pVarOp) {
        int nType = int(pVarOp->unTypeVar);
        if (nType==CVar::vtInteger) {
            nOperation = int(pVarOp->GetDataSrc());
        }
        else if (nType==CVar::vtString) {
            string str = pVarOp->strGetDataSrc();
            if (str == "+") nOperation = 0;
            else if (str == "-") nOperation = 1;
            else if (str == "*") nOperation = 2;
            else if (str == "/") nOperation = 3;
            else if (str == "^") nOperation = 4;
            else {
                nOperation = atoi(str.c_str());
            }
        }
    }
    else
        nOperation = atoi(pVarPrmProc->strParam5.c_str());
// установить значение 1-го операнда
//		if (!pVarA) dValueA = QString(pVarPrmProc->strParam6.c_str());
// установить значение 2-го операнда
//		if (!pVarB) dValueB = QString(pVarPrmProc->strParam7.c_str());
// установить значение границы по мин. значению выхода
    bIfMin = atoi(pVarPrmProc->strParam8.c_str());
    if (bIfMin) {
        pVarMin = pTAppCore->GetAddressVar(pVarPrmProc->strParam9.c_str(), this);
        if (!pVarMin)
            dValueMin = QString(pVarPrmProc->strParam10.c_str()).toDouble();
    }
// установить значение границы по макс. значению выхода
    bIfMax = atoi(pVarPrmProc->strParam11.c_str());
    if (bIfMax) {
        pVarMax = pTAppCore->GetAddressVar(pVarPrmProc->strParam12.c_str(), this);
        if (!pVarMax)
            dValueMax = QString(pVarPrmProc->strParam13.c_str()).toDouble();
    }
    return true;
}
// ссылки на оба операнда (a, b) есть?
int FArithm2::x1() { return pVarA&&pVarB&&pVarC; }
// выполнить двуместнуюю операцию: c = a (op) b, где op =  {+,-,*,/}
void FArithm2::y1() {
    if (pVarA)
        dValueA = pVarA->GetDataSrc();
    if (pVarB)
        dValueB = pVarB->GetDataSrc();
//	if (pVarOp)
//		nOperation = pVarOp->GetDataSrc();
    if (pVarMin)
        dValueMin = pVarMin->GetDataSrc();
    if (pVarMax)
        dValueMax = pVarMax->GetDataSrc();
    if (pVarOp) {
        int nType = int(pVarOp->unTypeVar);
        if (nType==CVar::vtInteger) {
            nOperation = int(pVarOp->GetDataSrc());
        }
        else if (nType==CVar::vtString) {
            string str = pVarOp->strGetDataSrc();
            if (str == "+") nOperation = 0;
            else if (str == "-") nOperation = 1;
            else if (str == "*") nOperation = 2;
            else if (str == "/") nOperation = 3;
            else if (str == "^") nOperation = 4;
            else {
                nOperation = atoi(str.c_str());
            }
        }
    }
    switch (nOperation) {
        case 0: dValueC = dValueA+dValueB; break;
        case 1: dValueC = dValueA-dValueB; break;
        case 2: dValueC = dValueA*dValueB; break;
        case 3:
            if (bool(dValueB)) dValueC = dValueA/dValueB;
            break;
        case 4: dValueC = qPow(dValueA, dValueB); break;
        case 5: dValueC = dValueA; break;
        case 6: dValueC = dValueB; break;
        default: break;
    }
    if (bIfMin) {
        if (dValueC<dValueMin)
            dValueC = dValueMin;
    }
    if (bIfMax) {
        if (dValueC>dValueMax)
            dValueC = dValueMax;
    }
    if (pVarC) pVarC->SetDataSrc(this, dValueC);
}
// инициировать ссылки на операнды
void FArithm2::y2() { FInit(); }