1 /* 2 * String parsing visitor 3 * 4 * Copyright Red Hat, Inc. 2012 5 * 6 * Author: Paolo Bonzini <pbonzini@redhat.com> 7 * 8 * This work is licensed under the terms of the GNU LGPL, version 2.1 or later. 9 * See the COPYING.LIB file in the top-level directory. 10 * 11 */ 12 13 #include "qemu-common.h" 14 #include "qapi/string-input-visitor.h" 15 #include "qapi/visitor-impl.h" 16 #include "qapi/qmp/qerror.h" 17 #include "qemu/option.h" 18 #include "qemu/queue.h" 19 #include "qemu/range.h" 20 21 22 struct StringInputVisitor 23 { 24 Visitor visitor; 25 26 bool head; 27 28 GList *ranges; 29 GList *cur_range; 30 int64_t cur; 31 32 const char *string; 33 }; 34 35 static void free_range(void *range, void *dummy) 36 { 37 g_free(range); 38 } 39 40 static void parse_str(StringInputVisitor *siv, Error **errp) 41 { 42 char *str = (char *) siv->string; 43 long long start, end; 44 Range *cur; 45 char *endptr; 46 47 if (siv->ranges) { 48 return; 49 } 50 51 do { 52 errno = 0; 53 start = strtoll(str, &endptr, 0); 54 if (errno == 0 && endptr > str) { 55 if (*endptr == '\0') { 56 cur = g_malloc0(sizeof(*cur)); 57 cur->begin = start; 58 cur->end = start + 1; 59 siv->ranges = g_list_insert_sorted_merged(siv->ranges, cur, 60 range_compare); 61 cur = NULL; 62 str = NULL; 63 } else if (*endptr == '-') { 64 str = endptr + 1; 65 errno = 0; 66 end = strtoll(str, &endptr, 0); 67 if (errno == 0 && endptr > str && start <= end && 68 (start > INT64_MAX - 65536 || 69 end < start + 65536)) { 70 if (*endptr == '\0') { 71 cur = g_malloc0(sizeof(*cur)); 72 cur->begin = start; 73 cur->end = end + 1; 74 siv->ranges = 75 g_list_insert_sorted_merged(siv->ranges, 76 cur, 77 range_compare); 78 cur = NULL; 79 str = NULL; 80 } else if (*endptr == ',') { 81 str = endptr + 1; 82 cur = g_malloc0(sizeof(*cur)); 83 cur->begin = start; 84 cur->end = end + 1; 85 siv->ranges = 86 g_list_insert_sorted_merged(siv->ranges, 87 cur, 88 range_compare); 89 cur = NULL; 90 } else { 91 goto error; 92 } 93 } else { 94 goto error; 95 } 96 } else if (*endptr == ',') { 97 str = endptr + 1; 98 cur = g_malloc0(sizeof(*cur)); 99 cur->begin = start; 100 cur->end = start + 1; 101 siv->ranges = g_list_insert_sorted_merged(siv->ranges, 102 cur, 103 range_compare); 104 cur = NULL; 105 } else { 106 goto error; 107 } 108 } else { 109 goto error; 110 } 111 } while (str); 112 113 return; 114 error: 115 g_list_foreach(siv->ranges, free_range, NULL); 116 g_list_free(siv->ranges); 117 siv->ranges = NULL; 118 } 119 120 static void 121 start_list(Visitor *v, const char *name, Error **errp) 122 { 123 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 124 125 parse_str(siv, errp); 126 127 siv->cur_range = g_list_first(siv->ranges); 128 if (siv->cur_range) { 129 Range *r = siv->cur_range->data; 130 if (r) { 131 siv->cur = r->begin; 132 } 133 } 134 } 135 136 static GenericList * 137 next_list(Visitor *v, GenericList **list, Error **errp) 138 { 139 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 140 GenericList **link; 141 Range *r; 142 143 if (!siv->ranges || !siv->cur_range) { 144 return NULL; 145 } 146 147 r = siv->cur_range->data; 148 if (!r) { 149 return NULL; 150 } 151 152 if (siv->cur < r->begin || siv->cur >= r->end) { 153 siv->cur_range = g_list_next(siv->cur_range); 154 if (!siv->cur_range) { 155 return NULL; 156 } 157 r = siv->cur_range->data; 158 if (!r) { 159 return NULL; 160 } 161 siv->cur = r->begin; 162 } 163 164 if (siv->head) { 165 link = list; 166 siv->head = false; 167 } else { 168 link = &(*list)->next; 169 } 170 171 *link = g_malloc0(sizeof **link); 172 return *link; 173 } 174 175 static void 176 end_list(Visitor *v, Error **errp) 177 { 178 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 179 siv->head = true; 180 } 181 182 static void parse_type_int(Visitor *v, int64_t *obj, const char *name, 183 Error **errp) 184 { 185 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 186 187 if (!siv->string) { 188 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, name ? name : "null", 189 "integer"); 190 return; 191 } 192 193 parse_str(siv, errp); 194 195 if (!siv->ranges) { 196 goto error; 197 } 198 199 if (!siv->cur_range) { 200 Range *r; 201 202 siv->cur_range = g_list_first(siv->ranges); 203 if (!siv->cur_range) { 204 goto error; 205 } 206 207 r = siv->cur_range->data; 208 if (!r) { 209 goto error; 210 } 211 212 siv->cur = r->begin; 213 } 214 215 *obj = siv->cur; 216 siv->cur++; 217 return; 218 219 error: 220 error_setg(errp, QERR_INVALID_PARAMETER_VALUE, name, 221 "an int64 value or range"); 222 } 223 224 static void parse_type_size(Visitor *v, uint64_t *obj, const char *name, 225 Error **errp) 226 { 227 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 228 Error *err = NULL; 229 uint64_t val; 230 231 if (siv->string) { 232 parse_option_size(name, siv->string, &val, &err); 233 } else { 234 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, name ? name : "null", 235 "size"); 236 return; 237 } 238 if (err) { 239 error_propagate(errp, err); 240 return; 241 } 242 243 *obj = val; 244 } 245 246 static void parse_type_bool(Visitor *v, bool *obj, const char *name, 247 Error **errp) 248 { 249 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 250 251 if (siv->string) { 252 if (!strcasecmp(siv->string, "on") || 253 !strcasecmp(siv->string, "yes") || 254 !strcasecmp(siv->string, "true")) { 255 *obj = true; 256 return; 257 } 258 if (!strcasecmp(siv->string, "off") || 259 !strcasecmp(siv->string, "no") || 260 !strcasecmp(siv->string, "false")) { 261 *obj = false; 262 return; 263 } 264 } 265 266 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, name ? name : "null", 267 "boolean"); 268 } 269 270 static void parse_type_str(Visitor *v, char **obj, const char *name, 271 Error **errp) 272 { 273 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 274 if (siv->string) { 275 *obj = g_strdup(siv->string); 276 } else { 277 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, name ? name : "null", 278 "string"); 279 } 280 } 281 282 static void parse_type_number(Visitor *v, double *obj, const char *name, 283 Error **errp) 284 { 285 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 286 char *endp = (char *) siv->string; 287 double val; 288 289 errno = 0; 290 if (siv->string) { 291 val = strtod(siv->string, &endp); 292 } 293 if (!siv->string || errno || endp == siv->string || *endp) { 294 error_setg(errp, QERR_INVALID_PARAMETER_TYPE, name ? name : "null", 295 "number"); 296 return; 297 } 298 299 *obj = val; 300 } 301 302 static void parse_optional(Visitor *v, bool *present, const char *name, 303 Error **errp) 304 { 305 StringInputVisitor *siv = DO_UPCAST(StringInputVisitor, visitor, v); 306 307 if (!siv->string) { 308 *present = false; 309 return; 310 } 311 312 *present = true; 313 } 314 315 Visitor *string_input_get_visitor(StringInputVisitor *v) 316 { 317 return &v->visitor; 318 } 319 320 void string_input_visitor_cleanup(StringInputVisitor *v) 321 { 322 g_list_foreach(v->ranges, free_range, NULL); 323 g_list_free(v->ranges); 324 g_free(v); 325 } 326 327 StringInputVisitor *string_input_visitor_new(const char *str) 328 { 329 StringInputVisitor *v; 330 331 v = g_malloc0(sizeof(*v)); 332 333 v->visitor.type_enum = input_type_enum; 334 v->visitor.type_int = parse_type_int; 335 v->visitor.type_size = parse_type_size; 336 v->visitor.type_bool = parse_type_bool; 337 v->visitor.type_str = parse_type_str; 338 v->visitor.type_number = parse_type_number; 339 v->visitor.start_list = start_list; 340 v->visitor.next_list = next_list; 341 v->visitor.end_list = end_list; 342 v->visitor.optional = parse_optional; 343 344 v->string = str; 345 v->head = true; 346 return v; 347 } 348