Function main

src/library/tools/ktest/main.cpp:56–204

    const char *name);

int
main(int argc, char *argv[])
{
    clMath::Config cfg;
    cfg.setDefaultConfig("ktest.cfg");
    if (!cfg.parseCommandLine(argc, argv) || !cfg.isSane()) {
        return 1;
    }

    clblasSetup();
    parseEnvImplementation();

    clMath::Step *masterStep = getMasterStep(cfg.blasFunctionID(),
                                          cfg.platform(), cfg.device());
    if (masterStep == NULL) {
        std::cerr << "Function support not implemented yet" << std::endl;
        return 1;
    }

    CLBlasKargs kargs;
    SubproblemDim subdims[MAX_SUBDIMS];

    cfg.kargs(&kargs);
    masterStep->setKargs(kargs);
    masterStep->fixLD();

    ListHead seq;
    listInitHead(&seq);
    bool severalKernels = false;

    /* Single kernel for this function */
    if (cfg.decomposition(subdims)) {
        masterStep->setDecomposition(subdims);
    }
    masterStep->completeDecompositionSingle();

    if (cfg.permitMultiKernels()) {
        masterStep->makeSolutionSequence(&seq,
                                         getPlatform(cfg.platform().c_str()));
        if (listLength(&seq) > 1) {
            severalKernels = true;
        }
    }

    if (severalKernels) {
        std::ofstream fs;
        ListNode *node;

        std::vector<clMath::Step*> steps;

        masterStep->declareVars(NULL);

        for (node = listNodeFirst(&seq); node != &seq; node = node->next) {
            steps.push_back(getStep(node));
        }

        std::string str;