Function csv_read_one_field

lua/sp.c:296–362

Read a single field of CSV text. Compatible with rfc4180 and extended ** with the option of having a separator other than ",". ** ** + Input comes from p->in. ** + Store results in p->z of length p->n. Space to hold p->z comes ** from sqlite3_malloc(). ** + Use p->cSep as the separator. The default is ",". ** + Keep track of the line number in p->nLine. ** + Store the charac

**   +  Report syntax errors on stderr
*/
static char *csv_read_one_field(CSVReader *p)
{
    int c, pc, ppc;
    int cSep = p->cSeparator;
    p->n = 0;
    // c = fgetc(p->in);
    c = p->in[p->pos++];
    if (c == 0 /* || seenInterrupt */) {
        p->cTerm = 0;
        return 0;
    }
    if (c == '"') {
        int startLine = p->nLine;
        int cQuote = c;
        pc = ppc = 0;
        while (1) {
            // c = fgetc(p->in);
            c = p->in[p->pos++];
            if (c == '\n') p->nLine++;
            if (c == cQuote) {
                if (pc == cQuote) {
                    pc = 0;
                    continue;
                }
            }
            if ((c == cSep && pc == cQuote) || (c == '\n' && pc == cQuote) ||
                (c == '\n' && pc == '\r' && ppc == cQuote) ||
                (c == 0 && pc == cQuote)) {
                do {
                    p->n--;
                } while (p->z[p->n] != cQuote);
                p->cTerm = c;
                break;
            }
            if (pc == cQuote && c != '\r') {
                free(p->z);
                luabb_error(p->lua, NULL,
                            "CSV line:%d: unescaped %c character\n", p->nLine,
                            cQuote);
            }
            if (c == 0) {
                free(p->z);
                luabb_error(p->lua, NULL,
                            "CSV line:%d: unterminated %c-quoted field\n",
                            p->nLine, startLine, cQuote);
                p->cTerm = 0;
                break;
            }
            csv_append_char(p, c);
            ppc = pc;
            pc = c;
        }
    } else {
        while (c != 0 && c != cSep && c != '\n') {
            csv_append_char(p, c);
            // c = fgetc(p->in);
            c = p->in[p->pos++];
        }