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
|
/*
* Copyright (c) 2020, Masatake YAMATO
* Copyright (c) 2020, Red Hat, Inc.
*
* This source code is released for free distribution under the terms of the
* GNU General Public License version 2 or (at your option) any later version.
*/
#ifndef DSL_H
#define DSL_H
/*
* INCLUDES
*/
#include "es.h"
#include "readtags.h"
/*
* TYPES
*/
enum eDSLEngineType {
DSL_INTERNAL_PSEUDO,
DSL_COMMON,
DSL_QUALIFIER,
DSL_SORTER,
DSL_FORMATTER,
DSL_ENGINE_COUNT
};
typedef enum eDSLEngineType DSLEngineType;
struct sDSLEnv {
enum eDSLEngineType engine;
const tagEntry *entry;
const tagEntry *alt_entry;
};
typedef struct sDSLEnv DSLEnv;
typedef EsObject* (* DSLProc) (EsObject *args, DSLEnv *env);
typedef EsObject* (* DSLMacro) (EsObject *expr);
enum eDSLPAttr {
DSL_PATTR_MEMORABLE = 1UL << 0,
DSL_PATTR_SELF_EVAL = 1UL << 1,
DSL_PATTR_CHECK_ARITY = 1UL << 2,
DSL_PATTR_CHECK_ARITY_OPT = 1UL << 3 | DSL_PATTR_CHECK_ARITY,
};
typedef enum eDSLPAttr DSLPAttr;
typedef struct sDSLProcBind DSLProcBind;
struct sDSLProcBind {
const char *name;
DSLProc proc;
EsObject* cache;
DSLPAttr flags;
int arity;
const char* helpstr;
DSLMacro macro;
};
typedef struct sDSLCode DSLCode;
#define DSL_ERR_UNBOUND_VARIABLE (es_error_intern("unbound-variable"))
#define DSL_ERR_TOO_FEW_ARGUMENTS (es_error_intern("too-few-arguments"))
#define DSL_ERR_TOO_MANY_ARGUMENTS (es_error_intern("too-many-arguments"))
#define DSL_ERR_STRING_REQUIRED (es_error_intern("string-required"))
#define DSL_ERR_BOOLEAN_REQUIRED (es_error_intern("boolean-required"))
#define DSL_ERR_INTEGER_REQUIRED (es_error_intern("integer-required"))
#define DSL_ERR_NUMBER_REQUIRED (es_error_intern("number-required"))
#define DSL_ERR_CALLABLE_REQUIRED (es_error_intern("callable-required"))
#define DSL_ERR_WRONG_TYPE_ARGUMENT (es_error_intern("wrong-type-argument"))
#define DSL_ERR_NO_ALT_ENTRY (es_error_intern("the-alternative-entry-unavailable"))
/*
* MACROS
*/
#define dsl_throw(e,o) return es_error_set_object(DSL_ERR_##e, o)
/*
* Function declarations
*/
/* Return 1 if no error. */
int dsl_init (DSLEngineType engine, DSLProcBind *engine_pbinds, int count);
DSLProcBind *dsl_lookup (DSLEngineType engine, EsObject *name);
void dsl_help (DSLEngineType engine, FILE *fp);
void dsl_cache_reset (DSLEngineType engine);
DSLCode *dsl_compile (DSLEngineType engine, EsObject *expr);
EsObject *dsl_eval (DSLCode *code, DSLEnv *env);
void dsl_release (DSLEngineType engine, DSLCode *code);
/* This should be remove when we have a real compiler. */
EsObject *dsl_compile_and_eval (EsObject *expr, DSLEnv *env);
EsObject* dsl_entry_xget_string (const tagEntry *entry, const char* name);
EsObject* dsl_entry_xget_integer (const tagEntry *entry, const char* name);
EsObject* dsl_entry_name (const tagEntry *entry);
EsObject* dsl_entry_input (const tagEntry *entry);
EsObject* dsl_entry_pattern (const tagEntry *entry);
EsObject* dsl_entry_line (const tagEntry *entry);
EsObject* dsl_entry_access (const tagEntry *entry);
EsObject* dsl_entry_end (const tagEntry *entry);
EsObject* dsl_entry_extras (const tagEntry *entry);
EsObject* dsl_entry_file (const tagEntry *entry);
EsObject* dsl_entry_inherits (const tagEntry *entry);
EsObject* dsl_entry_implementation (const tagEntry *entry);
EsObject* dsl_entry_kind (const tagEntry *entry);
EsObject* dsl_entry_language (const tagEntry *entry);
EsObject* dsl_entry_nth (const tagEntry *entry);
EsObject* dsl_entry_scope (const tagEntry *entry);
EsObject* dsl_entry_scope_kind (const tagEntry *entry);
EsObject* dsl_entry_scope_name (const tagEntry *entry);
EsObject* dsl_entry_signature (const tagEntry *entry);
EsObject* dsl_entry_typeref (const tagEntry *entry);
EsObject* dsl_entry_typeref_kind (const tagEntry *entry);
EsObject* dsl_entry_typeref_name (const tagEntry *entry);
EsObject* dsl_entry_roles (const tagEntry *entry);
EsObject* dsl_entry_xpath (const tagEntry *entry);
void dsl_report_error (const char *msg, EsObject *obj);
#endif
|
