blob: 5256b3c8e25e96ddd9b44be2baf99021e5bd691b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
// Copyright (c) 2023, Marvin Borner <dev@marvinborner.de>
// SPDX-License-Identifier: MIT
#ifndef CALM_TERM_H
#define CALM_TERM_H
#include <lib/hash.h>
typedef enum { INV, ABS, APP, VAR } term_type_t;
struct term {
term_type_t type;
hash_t hash;
size_t refs;
size_t depth;
union {
struct {
struct term *term;
} abs;
struct {
struct term *lhs;
struct term *rhs;
} app;
struct {
size_t index;
} var;
} u;
};
struct term *term_new(term_type_t type, hash_t hash, size_t depth);
struct term *term_rehash_abs(struct term *head, struct term *term);
struct term *term_rehash_app(struct term *head, struct term *lhs,
struct term *rhs);
void term_refer_head(struct term *term, size_t depth);
void term_refer(struct term *term, size_t depth);
void term_deref(struct term *term);
void term_print(struct term *term);
#endif
|
