Method handleVFOR

src/library/blas/gens/kprintf.cpp:1636–1731

PENDING: COMPLEX DATA TYPE HANDLING may need special attention

// PENDING: COMPLEX DATA TYPE HANDLING may need special attention
//
void kprintf::handleVFOR(char **src, char **dst, bool isReal)
{
    char *start, *end;
    char *vforBody, *vforBodyTemp, *vforGeneratedBody;
    int bracecount = 0;
    int vforBodyLength;

    if (isReal == false)
    {
        start = (*src) + strlen("%VFOR");
    } else {
        start = (*src) + strlen("%VFOR_REAL");
    }

    while ( (*start != '{') && (*start != 0))
    {
        //PENDING: if (notwhitespace(*start)) { signal exception bad syntax }
        start++;
    }
    if (*start == 0)
    {
        // PENDING: Raise an EXCEPTION!
        printf("KPRINTF: handleVFOR: Bad Syntax...\n");
        return;
    }

    bracecount = 1;
    end = start+1;
    while(bracecount)
    {
        if (*end == 0)
        {
            break;
        } else if (*end == '{')
        {
            bracecount++;
        } else if (*end == '}') {
            bracecount--;
        }
        end++;
    }

    if (*end == 0)
    {
        // PENDING: Raise an EXCEPTION!
        printf("KPRINTF: handleVFOR: Bad Syntax...\n");
        return;
    }

    vforBodyLength = end - start;
    vforBody = (char*)malloc((vforBodyLength + 1)*sizeof(char));
    vforBodyTemp = (char*)malloc((vforBodyLength + 1)*sizeof(char));
    vforGeneratedBody = (char*)malloc(((vforBodyLength + 1)*sizeof(char)) * vectorWidth * 2);
    memcpy(vforBody, start, vforBodyLength);
    vforBody[vforBodyLength] = 0;

    for(int v=0; v<vectorWidth; v++)
    {