int readLine()                  // 1: line was read from CLASSES, 
{                               // 0: no line
    g_classLine = fgets("CLASSES", g_classLine);
    return listlen(g_classLine) && g_classLine[2] == "OK";
}

int empty(list entries)
{
    return !entries || entries[0][0] == '#' || strfind(entries[0], "//") == 0;
}

string  nextClassesEntry()
{
    list parts;

    while (readLine())
    {
        string line = g_classLine[0];
        int last = strlen(line) - 1;
        int bs = line[last] == '\\';

        if (bs)
            line = resize(line, last);           // remove the backslash

        list entries = strtok(line, " \t");     // entries on the line

        if (empty(entries))     // blank or comment
        {
            if (!parts)         // nothing collected yet
                continue;
            break;              // or return the 1st element
        }

        parts += (list)entries[0];
        if (bs)
            continue;
        break;
    }

    return parts ? parts[0] : "";
}

void setClasses()
{
    while (1)
    {
        string class = nextClassesEntry();
        if (strlen(class) == 0)
            break;
        g_classes = listunion(g_classes, class);
    }            
#ifdef SCANNER_DIR
    if (listfind(g_classes, SCANNER_DIR) == -1)
        g_classes = listunion((list)SCANNER_DIR, g_classes);
#endif
#ifdef PARSER_DIR
    if (listfind(g_classes, PARSER_DIR) == -1)
        g_classes = listunion((list)PARSER_DIR, g_classes);
#endif
    g_nClasses = listlen(g_classes);
}















