Function parse_select

libraries/tomlc99/src/toml.c:1284–1364

handle lines like [x.y.z] or [[x.y.z]] */

/* handle lines like [x.y.z] or [[x.y.z]] */
static int parse_select(context_t* ctx)
{
	assert(ctx->tok.tok == LBRACKET);

	/* true if [[ */
	int llb = (ctx->tok.ptr + 1 < ctx->stop && ctx->tok.ptr[1] == '[');
	/* need to detect '[[' on our own because next_token() will skip whitespace,
	   and '[ [' would be taken as '[[', which is wrong. */

	/* eat [ or [[ */
	if (eat_token(ctx, LBRACKET, 1, FLINE)) return -1;
	if (llb) {
		assert(ctx->tok.tok == LBRACKET);
		if (eat_token(ctx, LBRACKET, 1, FLINE)) return -1;
	}

	if (fill_tabpath(ctx)) return -1;

	/* For [x.y.z] or [[x.y.z]], remove z from tpath.
	 */
	token_t z = ctx->tpath.tok[ctx->tpath.top-1];
	xfree(ctx->tpath.key[ctx->tpath.top-1]);
	ctx->tpath.top--;

	/* set up ctx->curtab */
	if (walk_tabpath(ctx)) return -1;

	if (! llb) {
		/* [x.y.z] -> create z = {} in x.y */
		toml_table_t* curtab = create_keytable_in_table(ctx, ctx->curtab, z);
		if (!curtab) return -1;
		ctx->curtab = curtab;
	} else {
		/* [[x.y.z]] -> create z = [] in x.y */
		toml_array_t* arr = 0;
		{
			char* zstr = normalize_key(ctx, z);
			if (!zstr) return -1;
			arr = toml_array_in(ctx->curtab, zstr);
			xfree(zstr);
		}
		if (!arr) {
			arr = create_keyarray_in_table(ctx, ctx->curtab, z, 't');
			if (!arr) return -1;
		}
		if (arr->kind != 't')
			return e_syntax(ctx, z.lineno, "array mismatch");

		/* add to z[] */
		toml_table_t* dest;
		{
			toml_table_t* t = create_table_in_array(ctx, arr);
			if (!t) return -1;

			if (0 == (t->key = STRDUP("__anon__")))
				return e_outofmemory(ctx, FLINE);

			dest = t;