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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
/*
* Copyright 2006-2018 Adrian Thurston <thurston@colm.net>
*
* Permission is hereby granted, free of charge, to any person obtaining a copy
* of this software and associated documentation files (the "Software"), to
* deal in the Software without restriction, including without limitation the
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
* sell copies of the Software, and to permit persons to whom the Software is
* furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*/
#ifndef _COLM_COLM_H
#define _COLM_COLM_H
#ifdef __cplusplus
extern "C" {
#endif
struct colm_data;
struct colm_tree;
struct colm_kid;
struct colm_program;
struct colm_sections;
struct colm_tree;
struct colm_location;
struct indent_impl
{
/* Indentation. */
int level;
int indent;
};
extern struct colm_sections colm_object;
typedef unsigned long colm_value_t;
typedef unsigned char colm_alph_t;
struct colm_tree
{
/* First four will be overlaid in other structures. */
short id;
unsigned short flags;
long refs;
struct colm_kid *child;
struct colm_data *tokdata;
/* FIXME: this needs to go somewhere else. Will do for now. */
unsigned short prod_num;
};
struct colm_print_args
{
void *arg;
int comm;
int attr;
int trim;
struct indent_impl *indent;
void (*out)( struct colm_print_args *args, const char *data, int length );
void (*open_tree)( struct colm_program *prg, struct colm_tree **sp,
struct colm_print_args *args, struct colm_kid *parent, struct colm_kid *kid );
void (*print_term)( struct colm_program *prg, struct colm_tree **sp,
struct colm_print_args *args, struct colm_kid *kid );
void (*close_tree)( struct colm_program *prg, struct colm_tree **sp,
struct colm_print_args *args, struct colm_kid *parent, struct colm_kid *kid );
};
void colm_print_null( struct colm_program *prg, struct colm_tree **sp,
struct colm_print_args *args, struct colm_kid *parent, struct colm_kid *kid );
void colm_print_term_tree( struct colm_program *prg, struct colm_tree **sp,
struct colm_print_args *print_args, struct colm_kid *kid );
struct colm_tree **colm_vm_root( struct colm_program *prg );
struct colm_tree *colm_return_val( struct colm_program *prg );
void colm_print_tree_args( struct colm_program *prg, struct colm_tree **sp,
struct colm_print_args *print_args, struct colm_tree *tree );
int colm_repeat_end( struct colm_tree *tree );
int colm_list_last( struct colm_tree *tree );
struct colm_tree *colm_get_rhs_val( struct colm_program *prg, struct colm_tree *tree, int *a );
struct colm_tree *colm_get_attr( struct colm_tree *tree, long pos );
struct colm_tree *colm_get_global( struct colm_program *prg, long pos );
struct colm_tree *colm_get_repeat_next( struct colm_tree *tree );
struct colm_tree *colm_get_repeat_val( struct colm_tree *tree );
struct colm_tree *colm_get_left_repeat_next( struct colm_tree *tree );
struct colm_tree *colm_get_left_repeat_val( struct colm_tree *tree );
struct colm_location *colm_find_location( struct colm_program *prg, struct colm_tree *tree );
static inline const colm_alph_t *colm_alph_from_cstr( const char *cstr ) { return (const colm_alph_t*)cstr; }
static inline const char *colm_cstr_from_alph( const colm_alph_t *alph ) { return (const char*)alph; }
/* Debug realms. To turn on, pass to colm_set_debug before invocation. */
#define COLM_DBG_BYTECODE 0x00000001
#define COLM_DBG_PARSE 0x00000002
#define COLM_DBG_MATCH 0x00000004
#define COLM_DBG_COMPILE 0x00000008
#define COLM_DBG_POOL 0x00000010
#define COLM_DBG_PRINT 0x00000020
#define COLM_DBG_INPUT 0x00000040
#define COLM_DBG_SCAN 0x00000080
#define COLM_RN_NEITHER 0x00
#define COLM_RN_DATA 0x01
#define COLM_RN_LOC 0x02
#define COLM_RN_BOTH 0x03
/*
* Primary Interface.
*/
/* Allocate a program. Takes program static data as arg. Normally this is
* &colm_object. */
struct colm_program *colm_new_program( struct colm_sections *rtd );
/* Enable debug realms for a program. */
void colm_set_debug( struct colm_program *prg, long active_realm );
/* Run a top-level colm program. */
void colm_run_program( struct colm_program *prg, int argc, const char **argv );
/* Run a top-level colm program, with argument lengths (allows binary data). */
void colm_run_program2( struct colm_program *prg, int argc, const char **argv, const int *argl );
/* Run a single exported colm function. */
struct colm_tree *colm_run_func( struct colm_program *prg, int frame_id,
const char **params, int param_count );
/* Delete a colm program. Clears all memory. */
int colm_delete_program( struct colm_program *prg );
/* Set the pointer to the reduce struct used. */
void *colm_get_reduce_ctx( struct colm_program *prg );
void colm_set_reduce_ctx( struct colm_program *prg, void *ctx );
void colm_set_reduce_clean( struct colm_program *prg, unsigned char reduce_clean );
const char *colm_error( struct colm_program *prg, int *length );
const char **colm_extract_fns( struct colm_program *prg );
#ifdef __cplusplus
}
#endif
#endif /* _COLM_COLM_H */
|
