Function indexlist

source/src/command.cpp:1196–1221

COMMANDF(looplisti, "sss", (char *list, char *varlist, char *body) { looplist(list, varlist, body, true); });

char *indexlist(const char *s, int pos)
{
    DEBUGCODE(if(pos < 0) conoutf("\f3warning: negative index for 'at' \"%s\" %d", s, pos);) // FIXME remove this warning before release
    if(pos < 0) return newstring("");
    whitespaceskip;
    loopi(pos)
    {
        elementskip;
        whitespaceskip;
        if(!*s) break;
    }
    const char *e = s;
    char *res;
    elementskip;
    if(*e=='"')
    {
        e++;
        if(s[-1]=='"') --s;
        res = newstring(e, s - e);
#ifndef STANDALONE
        filterrichtext(res, res, s - e);
#endif
    }
    else res = newstring(e, s-e);
    return res;
}
COMMANDF(at, "si", (char *s, int *pos) { commandret = indexlist(s, *pos); });

int listlen(const char *s)