80 lines
2.4 KiB
C
80 lines
2.4 KiB
C
/*
|
|
* SPDX-FileCopyrightText: 2025 William Bell
|
|
*
|
|
* SPDX-License-Identifier: GPL-3.0-or-later
|
|
*/
|
|
|
|
#include "list.h"
|
|
#include "../../lexer/token.h"
|
|
#include "../../memory.h"
|
|
#include "../parser.h"
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
ParsedValueReturn parse_list(char *file, DArray *tokens, size_t *index) {
|
|
ParsedValue *parsedValue = checked_malloc(sizeof(ParsedValue));
|
|
parsedValue->type = AST_LIST;
|
|
DArray *list = checked_malloc(sizeof(DArray));
|
|
parsedValue->data = list;
|
|
darray_init(list, sizeof(ParsedValue));
|
|
(*index)++;
|
|
skip_newlines_and_indents(tokens, index);
|
|
ArErr err = error_if_finished(file, tokens, index);
|
|
if (err.exists) {
|
|
free_parsed(parsedValue);
|
|
free(parsedValue);
|
|
return (ParsedValueReturn){err, NULL};
|
|
}
|
|
Token *token = darray_get(tokens, *index);
|
|
if (token->type != TOKEN_RBRACKET) {
|
|
while (true) {
|
|
skip_newlines_and_indents(tokens, index);
|
|
ParsedValueReturn parsedItem = parse_token(file, tokens, index, true);
|
|
if (parsedItem.err.exists) {
|
|
free_parsed(parsedValue);
|
|
free(parsedValue);
|
|
return parsedItem;
|
|
}
|
|
darray_push(list, parsedItem.value);
|
|
free(parsedItem.value);
|
|
ArErr err = error_if_finished(file, tokens, index);
|
|
if (err.exists) {
|
|
free_parsed(parsedValue);
|
|
free(parsedValue);
|
|
return (ParsedValueReturn){err, NULL};
|
|
}
|
|
skip_newlines_and_indents(tokens, index);
|
|
err = error_if_finished(file, tokens, index);
|
|
if (err.exists) {
|
|
free_parsed(parsedValue);
|
|
free(parsedValue);
|
|
return (ParsedValueReturn){err, NULL};
|
|
}
|
|
token = darray_get(tokens, *index);
|
|
if (token->type == TOKEN_RBRACKET) {
|
|
break;
|
|
} else if (token->type != TOKEN_COMMA) {
|
|
free_parsed(parsedValue);
|
|
free(parsedValue);
|
|
return (ParsedValueReturn){create_err(token->line, token->column, token->length, file, "Syntax Error", "expected comma"), NULL};
|
|
}
|
|
(*index)++;
|
|
err = error_if_finished(file, tokens, index);
|
|
if (err.exists) {
|
|
free_parsed(parsedValue);
|
|
free(parsedValue);
|
|
return (ParsedValueReturn){err, NULL};
|
|
}
|
|
}
|
|
}
|
|
(*index)++;
|
|
return (ParsedValueReturn){no_err, parsedValue};
|
|
}
|
|
|
|
void free_parsed_list(void *ptr) {
|
|
ParsedValue *parsedValue = ptr;
|
|
DArray *parsed_list = parsedValue->data;
|
|
darray_free(parsed_list, free_parsed);
|
|
free(parsed_list);
|
|
} |