+ p = map.map;
+
+#define READ_ERROR(Fmt, ...) \
+ syslog(LOG_ERR, "config file %s:%d: " Fmt, file, line, ##__VA_ARGS__)
+#define ADD_IN_BUFFER(Buffer, Len, Char) \
+ if ((Len) >= BUFSIZ - 1) { \
+ READ_ERROR("unreasonnable long line"); \
+ goto error; \
+ } \
+ (Buffer)[(Len)++] = (Char); \
+ (Buffer)[(Len)] = '\0';
+
+#define READ_NEXT(OnEOF) \
+ if (++p >= map.end) { \
+ OnEOF; \
+ }
+#define READ_BLANK(OnEOF) \
+ while (isblank(*p)) { \
+ if (*p == '\n') { \
+ ++line; \
+ } \
+ READ_NEXT(OnEOF); \
+ }
+#define READ_TOKEN(Name, Buffer, Len) \
+ do { \
+ (Len) = 0; \
+ (Buffer)[0] = '\0'; \
+ if (!isalpha(*p)) { \
+ READ_ERROR("invalid %s, unexpected character '%c'", Name, *p); \
+ goto error; \
+ } \
+ do { \
+ ADD_IN_BUFFER(Buffer, Len, *p); \
+ if ((Len) >= BUFSIZ - 1) { \
+ READ_ERROR("unreasonnable long token"); \
+ goto error; \
+ } \
+ (Buffer)[(Len)++] = *p; \
+ READ_NEXT(goto badeof) \
+ } while (isalnum(*p) || *p == '_'); \
+ } while (0)
+#define READ_STRING(Name, Buffer, Len, OnEOF) \
+ do { \
+ (Len) = 0; \
+ (Buffer)[0] = '\0'; \
+ if (*p == '"') { \
+ bool escaped = false; \
+ while (*p == '"') { \
+ READ_NEXT(goto badeof); \
+ while (true) { \
+ if (*p == '\n') { \
+ READ_ERROR("string must not contain EOL"); \
+ goto error; \
+ } else if (escaped) { \
+ ADD_IN_BUFFER(Buffer, Len, *p); \
+ escaped = false; \
+ } else if (*p == '\\') { \
+ escaped = true; \
+ } else if (*p == '"') { \
+ READ_NEXT(goto badeof); \
+ break; \
+ } else { \
+ ADD_IN_BUFFER(Buffer, Len, *p); \
+ } \
+ READ_NEXT(goto badeof); \
+ } \
+ READ_BLANK(goto badeof); \
+ } \
+ if (*p != ';') { \
+ READ_ERROR("%s must end with a ';'", Name); \
+ goto error; \
+ } \
+ } else { \
+ bool escaped = false; \
+ READ_NEXT(goto badeof); \
+ while (*p != ';' && isascii(*p) && isprint(*p)) { \
+ if (escaped) { \
+ if (*p == '\r' || *p == '\n') { \
+ READ_BLANK(goto badeof); \
+ } else { \
+ ADD_IN_BUFFER(Buffer, Len, '\\'); \
+ } \
+ escaped = false; \
+ } \
+ if (*p == '\\') { \
+ escaped = true; \
+ } else if (*p == '\r' || *p == '\n') { \
+ READ_ERROR("%s must not contain EOL", Name); \
+ } else { \
+ ADD_IN_BUFFER(Buffer, Len, *p); \
+ } \
+ READ_NEXT(goto badeof); \
+ } \
+ if (escaped) { \
+ ADD_IN_BUFFER(Buffer, Len, '\\'); \
+ } \
+ } \
+ READ_NEXT(OnEOF) \
+ } while(0)
+
+
+read_section:
+ if (p >= map.end) {
+ goto ok;
+ }
+
+ value[0] = key[0] = '\0';
+ value_len = key_len = 0;
+
+ READ_BLANK(goto ok);
+ READ_TOKEN("section name", key, key_len);
+ READ_BLANK(goto badeof);
+ switch (*p) {
+ case '=':
+ READ_NEXT(goto badeof)
+ goto read_param_value;
+ case '{':
+ READ_NEXT(goto badeof)
+ goto read_filter;
+ default:
+ READ_ERROR("invalid character '%c', expected '=' or '{'", *p);
+ goto error;
+ }
+
+read_param_value:
+ READ_BLANK(goto badeof);
+ READ_STRING("parameter value", value, value_len, ;);
+ /* TODO: Insert parameter in the configuration.
+ */
+ goto read_section;
+
+read_filter:
+ /* TODO: Create a filter with the given name.
+ */
+ READ_BLANK(goto badeof);
+ while (*p != '}') {
+ READ_TOKEN("filter parameter name", key, key_len);
+ READ_BLANK(goto badeof);
+ READ_STRING("filter parameter value", value, value_len, goto badeof);
+ /* TODO: Insert parameter in the filter.
+ */
+ }
+ /* TODO: Check the filter.
+ */
+ goto read_section;
+
+ok: