1 /**************************************************************************
3 * Copyright 2009 VMware, Inc.
6 * Permission is hereby granted, free of charge, to any person obtaining a
7 * copy of this software and associated documentation files (the
8 * "Software"), to deal in the Software without restriction, including
9 * without limitation the rights to use, copy, modify, merge, publish,
10 * distribute, sub license, and/or sell copies of the Software, and to
11 * permit persons to whom the Software is furnished to do so, subject to
12 * the following conditions:
14 * The above copyright notice and this permission notice (including the
15 * next paragraph) shall be included in all copies or substantial portions
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
19 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
21 * IN NO EVENT SHALL TUNGSTEN GRAPHICS AND/OR ITS SUPPLIERS BE LIABLE FOR
22 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
23 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
24 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
26 **************************************************************************/
30 #include "sl_pp_macro.h"
31 #include "sl_pp_public.h"
32 #include "sl_pp_context.h"
35 struct sl_pp_context
*
36 sl_pp_context_create(const char *input
,
37 const struct sl_pp_purify_options
*options
)
39 struct sl_pp_context
*context
;
41 context
= calloc(1, sizeof(struct sl_pp_context
));
46 if (sl_pp_dict_init(context
)) {
47 sl_pp_context_destroy(context
);
51 context
->getc_buf_capacity
= 64;
52 context
->getc_buf
= malloc(context
->getc_buf_capacity
* sizeof(char));
53 if (!context
->getc_buf
) {
54 sl_pp_context_destroy(context
);
58 if (sl_pp_token_buffer_init(&context
->tokens
, context
)) {
59 sl_pp_context_destroy(context
);
63 context
->macro_tail
= &context
->macro
;
64 context
->if_ptr
= SL_PP_MAX_IF_NESTING
;
65 context
->if_value
= 1;
66 memset(context
->error_msg
, 0, sizeof(context
->error_msg
));
67 context
->error_line
= 1;
71 sl_pp_purify_state_init(&context
->pure
, input
, options
);
73 memset(&context
->process_state
, 0, sizeof(context
->process_state
));
79 sl_pp_context_destroy(struct sl_pp_context
*context
)
82 free(context
->cstr_pool
);
83 sl_pp_macro_free(context
->macro
);
84 free(context
->getc_buf
);
85 sl_pp_token_buffer_destroy(&context
->tokens
);
86 free(context
->process_state
.out
);
92 sl_pp_context_error_message(const struct sl_pp_context
*context
)
94 return context
->error_msg
;
98 sl_pp_context_error_position(const struct sl_pp_context
*context
,
106 *line
= context
->error_line
;
111 sl_pp_context_add_predefined(struct sl_pp_context
*context
,
115 struct sl_pp_predefined pre
;
117 if (context
->num_predefined
== SL_PP_MAX_PREDEFINED
) {
121 pre
.name
= sl_pp_context_add_unique_str(context
, name
);
122 if (pre
.name
== -1) {
126 pre
.value
= sl_pp_context_add_unique_str(context
, value
);
127 if (pre
.value
== -1) {
131 context
->predefined
[context
->num_predefined
++] = pre
;
136 sl_pp_context_add_unique_str(struct sl_pp_context
*context
,
140 unsigned int offset
= 0;
142 size
= strlen(str
) + 1;
144 /* Find out if this is a unique string. */
145 while (offset
< context
->cstr_pool_len
) {
149 str2
= &context
->cstr_pool
[offset
];
150 size2
= strlen(str2
) + 1;
151 if (size
== size2
&& !memcmp(str
, str2
, size
- 1)) {
158 if (context
->cstr_pool_len
+ size
> context
->cstr_pool_max
) {
159 context
->cstr_pool_max
= (context
->cstr_pool_len
+ size
+ 0xffff) & ~0xffff;
160 context
->cstr_pool
= realloc(context
->cstr_pool
, context
->cstr_pool_max
);
163 if (!context
->cstr_pool
) {
164 strcpy(context
->error_msg
, "out of memory");
168 offset
= context
->cstr_pool_len
;
169 memcpy(&context
->cstr_pool
[offset
], str
, size
);
170 context
->cstr_pool_len
+= size
;
176 sl_pp_context_cstr(const struct sl_pp_context
*context
,
182 return &context
->cstr_pool
[offset
];