node.c

Go to the documentation of this file.

// SPDX-License-Identifier: LGPL-3.0-only
 
#include "scan/node.h"
 
#include "base/panic.h"
#include "arena/arena.h"
 
const where_t kNowhere = { 0, 0, 0, 0 };
 
STA_DECL
node_t *node_builtin(const char *name, arena_t *arena)
{
    CTASSERT(name != NULL);
    CTASSERT(arena != NULL);
 
    scan_t *scan = scan_builtin(name, arena);
    node_t *node = node_new(scan, kNowhere);
 
    return node;
}
 
STA_DECL
bool node_is_builtin(const node_t *node)
{
    CTASSERTF(node != NULL, "node cannot be NULL");
    return scan_is_builtin(node->scan);
}
 
STA_DECL
void node_init(node_t *node, const scan_t *scan, where_t where)
{
    CTASSERT(node != NULL);
    CTASSERT(scan != NULL);
 
    node->scan = scan;
    node->where = where;
}
 
STA_DECL
node_t *node_new(const scan_t *scan, where_t where)
{
    node_t *node = ARENA_MALLOC(sizeof(node_t), "node", scan, scan->nodes);
    node_init(node, scan, where);
 
    return node;
}
 
STA_DECL
node_t node_make(const scan_t *scan, where_t where)
{
    node_t node;
    node_init(&node, scan, where);
    return node;
}
 
STA_DECL
const scan_t *node_get_scan(const node_t *node)
{
    CTASSERT(node != NULL);
 
    return node->scan;
}
 
STA_DECL
where_t node_get_location(const node_t *node)
{
    CTASSERT(node != NULL);
 
    return node->where;
}