| … | |
… | |
| 166 | }; |
166 | }; |
| 167 | |
167 | |
| 168 | INTERFACE_CLASS(object_thawer) |
168 | INTERFACE_CLASS(object_thawer) |
| 169 | struct object_thawer |
169 | struct object_thawer |
| 170 | { |
170 | { |
|
|
171 | static bool errors_are_fatal; // true during server startup only |
|
|
172 | |
| 171 | char *line; // current beginning of line |
173 | char *line; // current beginning of line |
| 172 | SV *text; // text part |
174 | SV *text; // text part |
| 173 | AV *av; // perl part |
175 | AV *av; // perl part |
| 174 | int linenum; |
176 | int linenum; |
| 175 | keyword kw; |
177 | keyword kw; |
| … | |
… | |
| 190 | MTH void next (); |
192 | MTH void next (); |
| 191 | |
193 | |
| 192 | // parse next line, as a single value |
194 | // parse next line, as a single value |
| 193 | // skips initial whitespace and comments |
195 | // skips initial whitespace and comments |
| 194 | // and sets kw to KW_value on success. |
196 | // and sets kw to KW_value on success. |
| 195 | MTH void next_line (); |
197 | MTH bool next_line (); |
| 196 | |
198 | |
| 197 | // skip the current key-value (usually fetch next line, for |
199 | // skip the current key-value (usually fetch next line, for |
| 198 | // multiline-fields, skips till the corresponding end-kw |
200 | // multiline-fields, skips till the corresponding end-kw |
| 199 | MTH void skip (); |
201 | MTH void skip (); |
| 200 | MTH void skip_block (); // skips till and over KW_end |
202 | MTH void skip_block (); // skips till and over KW_end |
