1baacf047SPaolo Bonzini /* 2baacf047SPaolo Bonzini * Simple C functions to supplement the C library 3baacf047SPaolo Bonzini * 4baacf047SPaolo Bonzini * Copyright (c) 2006 Fabrice Bellard 5baacf047SPaolo Bonzini * 6baacf047SPaolo Bonzini * Permission is hereby granted, free of charge, to any person obtaining a copy 7baacf047SPaolo Bonzini * of this software and associated documentation files (the "Software"), to deal 8baacf047SPaolo Bonzini * in the Software without restriction, including without limitation the rights 9baacf047SPaolo Bonzini * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 10baacf047SPaolo Bonzini * copies of the Software, and to permit persons to whom the Software is 11baacf047SPaolo Bonzini * furnished to do so, subject to the following conditions: 12baacf047SPaolo Bonzini * 13baacf047SPaolo Bonzini * The above copyright notice and this permission notice shall be included in 14baacf047SPaolo Bonzini * all copies or substantial portions of the Software. 15baacf047SPaolo Bonzini * 16baacf047SPaolo Bonzini * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 17baacf047SPaolo Bonzini * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 18baacf047SPaolo Bonzini * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 19baacf047SPaolo Bonzini * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 20baacf047SPaolo Bonzini * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 21baacf047SPaolo Bonzini * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN 22baacf047SPaolo Bonzini * THE SOFTWARE. 23baacf047SPaolo Bonzini */ 24856dfd8aSMarkus Armbruster 25aafd7584SPeter Maydell #include "qemu/osdep.h" 26baacf047SPaolo Bonzini #include "qemu/host-utils.h" 27baacf047SPaolo Bonzini #include <math.h> 28baacf047SPaolo Bonzini 2906680b15SMarc-André Lureau #ifdef __FreeBSD__ 3006680b15SMarc-André Lureau #include <sys/sysctl.h> 3106680b15SMarc-André Lureau #include <sys/user.h> 3206680b15SMarc-André Lureau #endif 3306680b15SMarc-André Lureau 3406680b15SMarc-André Lureau #ifdef __NetBSD__ 3506680b15SMarc-André Lureau #include <sys/sysctl.h> 3606680b15SMarc-André Lureau #endif 3706680b15SMarc-André Lureau 380a979a13SThomas Huth #ifdef __HAIKU__ 390a979a13SThomas Huth #include <kernel/image.h> 400a979a13SThomas Huth #endif 410a979a13SThomas Huth 424311682eSPhilippe Mathieu-Daudé #ifdef __APPLE__ 434311682eSPhilippe Mathieu-Daudé #include <mach-o/dyld.h> 444311682eSPhilippe Mathieu-Daudé #endif 454311682eSPhilippe Mathieu-Daudé 46cf60ccc3SAkihiko Odaki #ifdef G_OS_WIN32 47cf60ccc3SAkihiko Odaki #include <pathcch.h> 48cf60ccc3SAkihiko Odaki #include <wchar.h> 49cf60ccc3SAkihiko Odaki #endif 50cf60ccc3SAkihiko Odaki 51856dfd8aSMarkus Armbruster #include "qemu/ctype.h" 52f348b6d1SVeronia Bahaa #include "qemu/cutils.h" 5305cb8ed5SAlistair Francis #include "qemu/error-report.h" 54baacf047SPaolo Bonzini 55baacf047SPaolo Bonzini void strpadcpy(char *buf, int buf_size, const char *str, char pad) 56baacf047SPaolo Bonzini { 57baacf047SPaolo Bonzini int len = qemu_strnlen(str, buf_size); 58baacf047SPaolo Bonzini memcpy(buf, str, len); 59baacf047SPaolo Bonzini memset(buf + len, pad, buf_size - len); 60baacf047SPaolo Bonzini } 61baacf047SPaolo Bonzini 62baacf047SPaolo Bonzini void pstrcpy(char *buf, int buf_size, const char *str) 63baacf047SPaolo Bonzini { 64baacf047SPaolo Bonzini int c; 65baacf047SPaolo Bonzini char *q = buf; 66baacf047SPaolo Bonzini 67baacf047SPaolo Bonzini if (buf_size <= 0) 68baacf047SPaolo Bonzini return; 69baacf047SPaolo Bonzini 70baacf047SPaolo Bonzini for(;;) { 71baacf047SPaolo Bonzini c = *str++; 72baacf047SPaolo Bonzini if (c == 0 || q >= buf + buf_size - 1) 73baacf047SPaolo Bonzini break; 74baacf047SPaolo Bonzini *q++ = c; 75baacf047SPaolo Bonzini } 76baacf047SPaolo Bonzini *q = '\0'; 77baacf047SPaolo Bonzini } 78baacf047SPaolo Bonzini 79baacf047SPaolo Bonzini /* strcat and truncate. */ 80baacf047SPaolo Bonzini char *pstrcat(char *buf, int buf_size, const char *s) 81baacf047SPaolo Bonzini { 82baacf047SPaolo Bonzini int len; 83baacf047SPaolo Bonzini len = strlen(buf); 84baacf047SPaolo Bonzini if (len < buf_size) 85baacf047SPaolo Bonzini pstrcpy(buf + len, buf_size - len, s); 86baacf047SPaolo Bonzini return buf; 87baacf047SPaolo Bonzini } 88baacf047SPaolo Bonzini 89baacf047SPaolo Bonzini int strstart(const char *str, const char *val, const char **ptr) 90baacf047SPaolo Bonzini { 91baacf047SPaolo Bonzini const char *p, *q; 92baacf047SPaolo Bonzini p = str; 93baacf047SPaolo Bonzini q = val; 94baacf047SPaolo Bonzini while (*q != '\0') { 95baacf047SPaolo Bonzini if (*p != *q) 96baacf047SPaolo Bonzini return 0; 97baacf047SPaolo Bonzini p++; 98baacf047SPaolo Bonzini q++; 99baacf047SPaolo Bonzini } 100baacf047SPaolo Bonzini if (ptr) 101baacf047SPaolo Bonzini *ptr = p; 102baacf047SPaolo Bonzini return 1; 103baacf047SPaolo Bonzini } 104baacf047SPaolo Bonzini 105baacf047SPaolo Bonzini int stristart(const char *str, const char *val, const char **ptr) 106baacf047SPaolo Bonzini { 107baacf047SPaolo Bonzini const char *p, *q; 108baacf047SPaolo Bonzini p = str; 109baacf047SPaolo Bonzini q = val; 110baacf047SPaolo Bonzini while (*q != '\0') { 111baacf047SPaolo Bonzini if (qemu_toupper(*p) != qemu_toupper(*q)) 112baacf047SPaolo Bonzini return 0; 113baacf047SPaolo Bonzini p++; 114baacf047SPaolo Bonzini q++; 115baacf047SPaolo Bonzini } 116baacf047SPaolo Bonzini if (ptr) 117baacf047SPaolo Bonzini *ptr = p; 118baacf047SPaolo Bonzini return 1; 119baacf047SPaolo Bonzini } 120baacf047SPaolo Bonzini 121baacf047SPaolo Bonzini /* XXX: use host strnlen if available ? */ 122baacf047SPaolo Bonzini int qemu_strnlen(const char *s, int max_len) 123baacf047SPaolo Bonzini { 124baacf047SPaolo Bonzini int i; 125baacf047SPaolo Bonzini 126baacf047SPaolo Bonzini for(i = 0; i < max_len; i++) { 127baacf047SPaolo Bonzini if (s[i] == '\0') { 128baacf047SPaolo Bonzini break; 129baacf047SPaolo Bonzini } 130baacf047SPaolo Bonzini } 131baacf047SPaolo Bonzini return i; 132baacf047SPaolo Bonzini } 133baacf047SPaolo Bonzini 134a38ed811SKevin Wolf char *qemu_strsep(char **input, const char *delim) 135a38ed811SKevin Wolf { 136a38ed811SKevin Wolf char *result = *input; 137a38ed811SKevin Wolf if (result != NULL) { 138a38ed811SKevin Wolf char *p; 139a38ed811SKevin Wolf 140a38ed811SKevin Wolf for (p = result; *p != '\0'; p++) { 141a38ed811SKevin Wolf if (strchr(delim, *p)) { 142a38ed811SKevin Wolf break; 143a38ed811SKevin Wolf } 144a38ed811SKevin Wolf } 145a38ed811SKevin Wolf if (*p == '\0') { 146a38ed811SKevin Wolf *input = NULL; 147a38ed811SKevin Wolf } else { 148a38ed811SKevin Wolf *p = '\0'; 149a38ed811SKevin Wolf *input = p + 1; 150a38ed811SKevin Wolf } 151a38ed811SKevin Wolf } 152a38ed811SKevin Wolf return result; 153a38ed811SKevin Wolf } 154a38ed811SKevin Wolf 155baacf047SPaolo Bonzini time_t mktimegm(struct tm *tm) 156baacf047SPaolo Bonzini { 157baacf047SPaolo Bonzini time_t t; 158baacf047SPaolo Bonzini int y = tm->tm_year + 1900, m = tm->tm_mon + 1, d = tm->tm_mday; 159baacf047SPaolo Bonzini if (m < 3) { 160baacf047SPaolo Bonzini m += 12; 161baacf047SPaolo Bonzini y--; 162baacf047SPaolo Bonzini } 163baacf047SPaolo Bonzini t = 86400ULL * (d + (153 * m - 457) / 5 + 365 * y + y / 4 - y / 100 + 164baacf047SPaolo Bonzini y / 400 - 719469); 165baacf047SPaolo Bonzini t += 3600 * tm->tm_hour + 60 * tm->tm_min + tm->tm_sec; 166baacf047SPaolo Bonzini return t; 167baacf047SPaolo Bonzini } 168baacf047SPaolo Bonzini 169baacf047SPaolo Bonzini static int64_t suffix_mul(char suffix, int64_t unit) 170baacf047SPaolo Bonzini { 171baacf047SPaolo Bonzini switch (qemu_toupper(suffix)) { 17217f94256SMarkus Armbruster case 'B': 173baacf047SPaolo Bonzini return 1; 17417f94256SMarkus Armbruster case 'K': 175baacf047SPaolo Bonzini return unit; 17617f94256SMarkus Armbruster case 'M': 177baacf047SPaolo Bonzini return unit * unit; 17817f94256SMarkus Armbruster case 'G': 179baacf047SPaolo Bonzini return unit * unit * unit; 18017f94256SMarkus Armbruster case 'T': 181baacf047SPaolo Bonzini return unit * unit * unit * unit; 18217f94256SMarkus Armbruster case 'P': 1835e00984aSKevin Wolf return unit * unit * unit * unit * unit; 18417f94256SMarkus Armbruster case 'E': 1855e00984aSKevin Wolf return unit * unit * unit * unit * unit * unit; 186baacf047SPaolo Bonzini } 187baacf047SPaolo Bonzini return -1; 188baacf047SPaolo Bonzini } 189baacf047SPaolo Bonzini 190baacf047SPaolo Bonzini /* 191cf923b78SEric Blake * Convert size string to bytes. 192cf923b78SEric Blake * 193cf923b78SEric Blake * The size parsing supports the following syntaxes 194cf923b78SEric Blake * - 12345 - decimal, scale determined by @default_suffix and @unit 195cf923b78SEric Blake * - 12345{bBkKmMgGtTpPeE} - decimal, scale determined by suffix and @unit 196cf923b78SEric Blake * - 12345.678{kKmMgGtTpPeE} - decimal, scale determined by suffix, and 197cf923b78SEric Blake * fractional portion is truncated to byte 198cf923b78SEric Blake * - 0x7fEE - hexadecimal, unit determined by @default_suffix 199cf923b78SEric Blake * 200cf923b78SEric Blake * The following are intentionally not supported 2018b902e3dSPaolo Bonzini * - hex with scaling suffix, such as 0x20M 202cf923b78SEric Blake * - octal, such as 08 203cf923b78SEric Blake * - fractional hex, such as 0x1.8 204cf923b78SEric Blake * - floating point exponents, such as 1e3 205cf923b78SEric Blake * 206cf923b78SEric Blake * The end pointer will be returned in *end, if not NULL. If there is 207cf923b78SEric Blake * no fraction, the input can be decimal or hexadecimal; if there is a 208cf923b78SEric Blake * fraction, then the input must be decimal and there must be a suffix 209cf923b78SEric Blake * (possibly by @default_suffix) larger than Byte, and the fractional 210cf923b78SEric Blake * portion may suffer from precision loss or rounding. The input must 211cf923b78SEric Blake * be positive. 212cf923b78SEric Blake * 213cf923b78SEric Blake * Return -ERANGE on overflow (with *@end advanced), and -EINVAL on 214cf923b78SEric Blake * other error (with *@end left unchanged). 215baacf047SPaolo Bonzini */ 216af02f4c5SDavid Hildenbrand static int do_strtosz(const char *nptr, const char **end, 217f17fd4fdSMarkus Armbruster const char default_suffix, int64_t unit, 218f46bfdbfSMarkus Armbruster uint64_t *result) 219baacf047SPaolo Bonzini { 220f17fd4fdSMarkus Armbruster int retval; 221cf923b78SEric Blake const char *endptr, *f; 222baacf047SPaolo Bonzini unsigned char c; 2237625a1edSRichard Henderson uint64_t val, valf = 0; 224cf923b78SEric Blake int64_t mul; 225baacf047SPaolo Bonzini 226cf923b78SEric Blake /* Parse integral portion as decimal. */ 227cf923b78SEric Blake retval = qemu_strtou64(nptr, &endptr, 10, &val); 228af02f4c5SDavid Hildenbrand if (retval) { 2294fcdf65aSMarkus Armbruster goto out; 230baacf047SPaolo Bonzini } 231cf923b78SEric Blake if (memchr(nptr, '-', endptr - nptr) != NULL) { 232cf923b78SEric Blake endptr = nptr; 2334fcdf65aSMarkus Armbruster retval = -EINVAL; 2344fcdf65aSMarkus Armbruster goto out; 235baacf047SPaolo Bonzini } 236cf923b78SEric Blake if (val == 0 && (*endptr == 'x' || *endptr == 'X')) { 2378b902e3dSPaolo Bonzini /* Input looks like hex; reparse, and insist on no fraction or suffix. */ 238cf923b78SEric Blake retval = qemu_strtou64(nptr, &endptr, 16, &val); 239cf923b78SEric Blake if (retval) { 240cf923b78SEric Blake goto out; 241cf923b78SEric Blake } 2428b902e3dSPaolo Bonzini if (*endptr == '.' || suffix_mul(*endptr, unit) > 0) { 243cf923b78SEric Blake endptr = nptr; 244cf923b78SEric Blake retval = -EINVAL; 245cf923b78SEric Blake goto out; 246cf923b78SEric Blake } 247cf923b78SEric Blake } else if (*endptr == '.') { 248f46bfdbfSMarkus Armbruster /* 249cf923b78SEric Blake * Input looks like a fraction. Make sure even 1.k works 250cf923b78SEric Blake * without fractional digits. If we see an exponent, treat 251cf923b78SEric Blake * the entire input as invalid instead. 252f46bfdbfSMarkus Armbruster */ 2537625a1edSRichard Henderson double fraction; 2547625a1edSRichard Henderson 255cf923b78SEric Blake f = endptr; 256cf923b78SEric Blake retval = qemu_strtod_finite(f, &endptr, &fraction); 257cf923b78SEric Blake if (retval) { 258cf923b78SEric Blake endptr++; 259cf923b78SEric Blake } else if (memchr(f, 'e', endptr - f) || memchr(f, 'E', endptr - f)) { 260cf923b78SEric Blake endptr = nptr; 261cf923b78SEric Blake retval = -EINVAL; 262cf923b78SEric Blake goto out; 2637625a1edSRichard Henderson } else { 2647625a1edSRichard Henderson /* Extract into a 64-bit fixed-point fraction. */ 2657625a1edSRichard Henderson valf = (uint64_t)(fraction * 0x1p64); 266cf923b78SEric Blake } 267cf923b78SEric Blake } 268cf923b78SEric Blake c = *endptr; 269cf923b78SEric Blake mul = suffix_mul(c, unit); 270cf923b78SEric Blake if (mul > 0) { 271cf923b78SEric Blake endptr++; 272cf923b78SEric Blake } else { 273cf923b78SEric Blake mul = suffix_mul(default_suffix, unit); 274cf923b78SEric Blake assert(mul > 0); 275cf923b78SEric Blake } 2767625a1edSRichard Henderson if (mul == 1) { 2777625a1edSRichard Henderson /* When a fraction is present, a scale is required. */ 2787625a1edSRichard Henderson if (valf != 0) { 279cf923b78SEric Blake endptr = nptr; 280cf923b78SEric Blake retval = -EINVAL; 281cf923b78SEric Blake goto out; 282cf923b78SEric Blake } 2837625a1edSRichard Henderson } else { 2847625a1edSRichard Henderson uint64_t valh, tmp; 2857625a1edSRichard Henderson 2867625a1edSRichard Henderson /* Compute exact result: 64.64 x 64.0 -> 128.64 fixed point */ 2877625a1edSRichard Henderson mulu64(&val, &valh, val, mul); 2887625a1edSRichard Henderson mulu64(&valf, &tmp, valf, mul); 2897625a1edSRichard Henderson val += tmp; 2907625a1edSRichard Henderson valh += val < tmp; 2917625a1edSRichard Henderson 2927625a1edSRichard Henderson /* Round 0.5 upward. */ 2937625a1edSRichard Henderson tmp = valf >> 63; 2947625a1edSRichard Henderson val += tmp; 2957625a1edSRichard Henderson valh += val < tmp; 2967625a1edSRichard Henderson 2977625a1edSRichard Henderson /* Report overflow. */ 2987625a1edSRichard Henderson if (valh != 0) { 299baacf047SPaolo Bonzini retval = -ERANGE; 3004fcdf65aSMarkus Armbruster goto out; 301baacf047SPaolo Bonzini } 3027625a1edSRichard Henderson } 3037625a1edSRichard Henderson 304f17fd4fdSMarkus Armbruster retval = 0; 305baacf047SPaolo Bonzini 3064fcdf65aSMarkus Armbruster out: 307baacf047SPaolo Bonzini if (end) { 308baacf047SPaolo Bonzini *end = endptr; 3094fcdf65aSMarkus Armbruster } else if (*endptr) { 3104fcdf65aSMarkus Armbruster retval = -EINVAL; 311baacf047SPaolo Bonzini } 312061d7909SEric Blake if (retval == 0) { 313061d7909SEric Blake *result = val; 314061d7909SEric Blake } 315baacf047SPaolo Bonzini 316baacf047SPaolo Bonzini return retval; 317baacf047SPaolo Bonzini } 318baacf047SPaolo Bonzini 319af02f4c5SDavid Hildenbrand int qemu_strtosz(const char *nptr, const char **end, uint64_t *result) 320baacf047SPaolo Bonzini { 321f17fd4fdSMarkus Armbruster return do_strtosz(nptr, end, 'B', 1024, result); 322baacf047SPaolo Bonzini } 323baacf047SPaolo Bonzini 324af02f4c5SDavid Hildenbrand int qemu_strtosz_MiB(const char *nptr, const char **end, uint64_t *result) 325baacf047SPaolo Bonzini { 326f17fd4fdSMarkus Armbruster return do_strtosz(nptr, end, 'M', 1024, result); 327baacf047SPaolo Bonzini } 328baacf047SPaolo Bonzini 329af02f4c5SDavid Hildenbrand int qemu_strtosz_metric(const char *nptr, const char **end, uint64_t *result) 330d2734d26SMarkus Armbruster { 331f17fd4fdSMarkus Armbruster return do_strtosz(nptr, end, 'B', 1000, result); 332d2734d26SMarkus Armbruster } 333d2734d26SMarkus Armbruster 334e3f9fe2dSEduardo Habkost /** 335717adf96SMarkus Armbruster * Helper function for error checking after strtol() and the like 336764e0fa4SCarlos L. Torres */ 337717adf96SMarkus Armbruster static int check_strtox_error(const char *nptr, char *ep, 3386162f7daSEric Blake const char **endptr, bool check_zero, 3396162f7daSEric Blake int libc_errno) 340764e0fa4SCarlos L. Torres { 34153a90b97SEric Blake assert(ep >= nptr); 3426162f7daSEric Blake 3436162f7daSEric Blake /* Windows has a bug in that it fails to parse 0 from "0x" in base 16 */ 3446162f7daSEric Blake if (check_zero && ep == nptr && libc_errno == 0) { 3456162f7daSEric Blake char *tmp; 3466162f7daSEric Blake 3476162f7daSEric Blake errno = 0; 3486162f7daSEric Blake if (strtol(nptr, &tmp, 10) == 0 && errno == 0 && 3496162f7daSEric Blake (*tmp == 'x' || *tmp == 'X')) { 3506162f7daSEric Blake ep = tmp; 3516162f7daSEric Blake } 3526162f7daSEric Blake } 3536162f7daSEric Blake 354717adf96SMarkus Armbruster if (endptr) { 355717adf96SMarkus Armbruster *endptr = ep; 356764e0fa4SCarlos L. Torres } 3574baef267SMarkus Armbruster 3584baef267SMarkus Armbruster /* Turn "no conversion" into an error */ 3594baef267SMarkus Armbruster if (libc_errno == 0 && ep == nptr) { 3604baef267SMarkus Armbruster return -EINVAL; 3614baef267SMarkus Armbruster } 3624baef267SMarkus Armbruster 3634baef267SMarkus Armbruster /* Fail when we're expected to consume the string, but didn't */ 3644baef267SMarkus Armbruster if (!endptr && *ep) { 3654baef267SMarkus Armbruster return -EINVAL; 3664baef267SMarkus Armbruster } 3674baef267SMarkus Armbruster 368717adf96SMarkus Armbruster return -libc_errno; 369764e0fa4SCarlos L. Torres } 370764e0fa4SCarlos L. Torres 371764e0fa4SCarlos L. Torres /** 372473a2a33SDaniel P. Berrange * Convert string @nptr to an integer, and store it in @result. 373473a2a33SDaniel P. Berrange * 374473a2a33SDaniel P. Berrange * This is a wrapper around strtol() that is harder to misuse. 375473a2a33SDaniel P. Berrange * Semantics of @nptr, @endptr, @base match strtol() with differences 376473a2a33SDaniel P. Berrange * noted below. 377473a2a33SDaniel P. Berrange * 378473a2a33SDaniel P. Berrange * @nptr may be null, and no conversion is performed then. 379473a2a33SDaniel P. Berrange * 380473a2a33SDaniel P. Berrange * If no conversion is performed, store @nptr in *@endptr and return 381473a2a33SDaniel P. Berrange * -EINVAL. 382473a2a33SDaniel P. Berrange * 383473a2a33SDaniel P. Berrange * If @endptr is null, and the string isn't fully converted, return 384473a2a33SDaniel P. Berrange * -EINVAL. This is the case when the pointer that would be stored in 385473a2a33SDaniel P. Berrange * a non-null @endptr points to a character other than '\0'. 386473a2a33SDaniel P. Berrange * 387473a2a33SDaniel P. Berrange * If the conversion overflows @result, store INT_MAX in @result, 388473a2a33SDaniel P. Berrange * and return -ERANGE. 389473a2a33SDaniel P. Berrange * 390473a2a33SDaniel P. Berrange * If the conversion underflows @result, store INT_MIN in @result, 391473a2a33SDaniel P. Berrange * and return -ERANGE. 392473a2a33SDaniel P. Berrange * 393473a2a33SDaniel P. Berrange * Else store the converted value in @result, and return zero. 39456ddafdeSEric Blake * 39556ddafdeSEric Blake * This matches the behavior of strtol() on 32-bit platforms, even on 39656ddafdeSEric Blake * platforms where long is 64-bits. 397473a2a33SDaniel P. Berrange */ 398473a2a33SDaniel P. Berrange int qemu_strtoi(const char *nptr, const char **endptr, int base, 399473a2a33SDaniel P. Berrange int *result) 400473a2a33SDaniel P. Berrange { 401473a2a33SDaniel P. Berrange char *ep; 402473a2a33SDaniel P. Berrange long long lresult; 403473a2a33SDaniel P. Berrange 40453a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 405473a2a33SDaniel P. Berrange if (!nptr) { 406473a2a33SDaniel P. Berrange if (endptr) { 407473a2a33SDaniel P. Berrange *endptr = nptr; 408473a2a33SDaniel P. Berrange } 409473a2a33SDaniel P. Berrange return -EINVAL; 410473a2a33SDaniel P. Berrange } 411473a2a33SDaniel P. Berrange 412473a2a33SDaniel P. Berrange errno = 0; 413473a2a33SDaniel P. Berrange lresult = strtoll(nptr, &ep, base); 414473a2a33SDaniel P. Berrange if (lresult < INT_MIN) { 415473a2a33SDaniel P. Berrange *result = INT_MIN; 416473a2a33SDaniel P. Berrange errno = ERANGE; 417473a2a33SDaniel P. Berrange } else if (lresult > INT_MAX) { 418473a2a33SDaniel P. Berrange *result = INT_MAX; 419473a2a33SDaniel P. Berrange errno = ERANGE; 420473a2a33SDaniel P. Berrange } else { 421473a2a33SDaniel P. Berrange *result = lresult; 422473a2a33SDaniel P. Berrange } 4236162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, lresult == 0, errno); 424473a2a33SDaniel P. Berrange } 425473a2a33SDaniel P. Berrange 426473a2a33SDaniel P. Berrange /** 427473a2a33SDaniel P. Berrange * Convert string @nptr to an unsigned integer, and store it in @result. 428473a2a33SDaniel P. Berrange * 429473a2a33SDaniel P. Berrange * This is a wrapper around strtoul() that is harder to misuse. 430473a2a33SDaniel P. Berrange * Semantics of @nptr, @endptr, @base match strtoul() with differences 431473a2a33SDaniel P. Berrange * noted below. 432473a2a33SDaniel P. Berrange * 433473a2a33SDaniel P. Berrange * @nptr may be null, and no conversion is performed then. 434473a2a33SDaniel P. Berrange * 435473a2a33SDaniel P. Berrange * If no conversion is performed, store @nptr in *@endptr and return 436473a2a33SDaniel P. Berrange * -EINVAL. 437473a2a33SDaniel P. Berrange * 438473a2a33SDaniel P. Berrange * If @endptr is null, and the string isn't fully converted, return 439473a2a33SDaniel P. Berrange * -EINVAL. This is the case when the pointer that would be stored in 440473a2a33SDaniel P. Berrange * a non-null @endptr points to a character other than '\0'. 441473a2a33SDaniel P. Berrange * 442473a2a33SDaniel P. Berrange * If the conversion overflows @result, store UINT_MAX in @result, 443473a2a33SDaniel P. Berrange * and return -ERANGE. 444473a2a33SDaniel P. Berrange * 445473a2a33SDaniel P. Berrange * Else store the converted value in @result, and return zero. 446473a2a33SDaniel P. Berrange * 447473a2a33SDaniel P. Berrange * Note that a number with a leading minus sign gets converted without 448473a2a33SDaniel P. Berrange * the minus sign, checked for overflow (see above), then negated (in 44956ddafdeSEric Blake * @result's type). This matches the behavior of strtoul() on 32-bit 45056ddafdeSEric Blake * platforms, even on platforms where long is 64-bits. 451473a2a33SDaniel P. Berrange */ 452473a2a33SDaniel P. Berrange int qemu_strtoui(const char *nptr, const char **endptr, int base, 453473a2a33SDaniel P. Berrange unsigned int *result) 454473a2a33SDaniel P. Berrange { 455473a2a33SDaniel P. Berrange char *ep; 45656ddafdeSEric Blake unsigned long long lresult; 45756ddafdeSEric Blake bool neg; 458473a2a33SDaniel P. Berrange 45953a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 460473a2a33SDaniel P. Berrange if (!nptr) { 461473a2a33SDaniel P. Berrange if (endptr) { 462473a2a33SDaniel P. Berrange *endptr = nptr; 463473a2a33SDaniel P. Berrange } 464473a2a33SDaniel P. Berrange return -EINVAL; 465473a2a33SDaniel P. Berrange } 466473a2a33SDaniel P. Berrange 467473a2a33SDaniel P. Berrange errno = 0; 468473a2a33SDaniel P. Berrange lresult = strtoull(nptr, &ep, base); 469473a2a33SDaniel P. Berrange 470473a2a33SDaniel P. Berrange /* Windows returns 1 for negative out-of-range values. */ 471473a2a33SDaniel P. Berrange if (errno == ERANGE) { 472473a2a33SDaniel P. Berrange *result = -1; 473473a2a33SDaniel P. Berrange } else { 47456ddafdeSEric Blake /* 47556ddafdeSEric Blake * Note that platforms with 32-bit strtoul only accept input 47656ddafdeSEric Blake * in the range [-4294967295, 4294967295]; but we used 64-bit 47756ddafdeSEric Blake * strtoull which wraps -18446744073709551615 to 1 instead of 47856ddafdeSEric Blake * declaring overflow. So we must check if '-' was parsed, 47956ddafdeSEric Blake * and if so, undo the negation before doing our bounds check. 48056ddafdeSEric Blake */ 48156ddafdeSEric Blake neg = memchr(nptr, '-', ep - nptr) != NULL; 48256ddafdeSEric Blake if (neg) { 48356ddafdeSEric Blake lresult = -lresult; 48456ddafdeSEric Blake } 485473a2a33SDaniel P. Berrange if (lresult > UINT_MAX) { 486473a2a33SDaniel P. Berrange *result = UINT_MAX; 487473a2a33SDaniel P. Berrange errno = ERANGE; 488473a2a33SDaniel P. Berrange } else { 48956ddafdeSEric Blake *result = neg ? -lresult : lresult; 490473a2a33SDaniel P. Berrange } 491473a2a33SDaniel P. Berrange } 4926162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, lresult == 0, errno); 493473a2a33SDaniel P. Berrange } 494473a2a33SDaniel P. Berrange 495473a2a33SDaniel P. Berrange /** 4964295f879SMarkus Armbruster * Convert string @nptr to a long integer, and store it in @result. 497764e0fa4SCarlos L. Torres * 4984295f879SMarkus Armbruster * This is a wrapper around strtol() that is harder to misuse. 4994295f879SMarkus Armbruster * Semantics of @nptr, @endptr, @base match strtol() with differences 5004295f879SMarkus Armbruster * noted below. 501764e0fa4SCarlos L. Torres * 5024295f879SMarkus Armbruster * @nptr may be null, and no conversion is performed then. 503764e0fa4SCarlos L. Torres * 5044295f879SMarkus Armbruster * If no conversion is performed, store @nptr in *@endptr and return 5054295f879SMarkus Armbruster * -EINVAL. 506764e0fa4SCarlos L. Torres * 5074295f879SMarkus Armbruster * If @endptr is null, and the string isn't fully converted, return 5084295f879SMarkus Armbruster * -EINVAL. This is the case when the pointer that would be stored in 5094295f879SMarkus Armbruster * a non-null @endptr points to a character other than '\0'. 5104295f879SMarkus Armbruster * 5114295f879SMarkus Armbruster * If the conversion overflows @result, store LONG_MAX in @result, 5124295f879SMarkus Armbruster * and return -ERANGE. 5134295f879SMarkus Armbruster * 5144295f879SMarkus Armbruster * If the conversion underflows @result, store LONG_MIN in @result, 5154295f879SMarkus Armbruster * and return -ERANGE. 5164295f879SMarkus Armbruster * 5174295f879SMarkus Armbruster * Else store the converted value in @result, and return zero. 518764e0fa4SCarlos L. Torres */ 519764e0fa4SCarlos L. Torres int qemu_strtol(const char *nptr, const char **endptr, int base, 520764e0fa4SCarlos L. Torres long *result) 521764e0fa4SCarlos L. Torres { 522717adf96SMarkus Armbruster char *ep; 5234baef267SMarkus Armbruster 52453a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 525764e0fa4SCarlos L. Torres if (!nptr) { 526764e0fa4SCarlos L. Torres if (endptr) { 527764e0fa4SCarlos L. Torres *endptr = nptr; 528764e0fa4SCarlos L. Torres } 5294baef267SMarkus Armbruster return -EINVAL; 5304baef267SMarkus Armbruster } 5314baef267SMarkus Armbruster 532764e0fa4SCarlos L. Torres errno = 0; 533717adf96SMarkus Armbruster *result = strtol(nptr, &ep, base); 5346162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, *result == 0, errno); 535764e0fa4SCarlos L. Torres } 536c817c015SCarlos L. Torres 537c817c015SCarlos L. Torres /** 5384295f879SMarkus Armbruster * Convert string @nptr to an unsigned long, and store it in @result. 539c817c015SCarlos L. Torres * 5404295f879SMarkus Armbruster * This is a wrapper around strtoul() that is harder to misuse. 5414295f879SMarkus Armbruster * Semantics of @nptr, @endptr, @base match strtoul() with differences 5424295f879SMarkus Armbruster * noted below. 543c817c015SCarlos L. Torres * 5444295f879SMarkus Armbruster * @nptr may be null, and no conversion is performed then. 545c817c015SCarlos L. Torres * 5464295f879SMarkus Armbruster * If no conversion is performed, store @nptr in *@endptr and return 5474295f879SMarkus Armbruster * -EINVAL. 5484295f879SMarkus Armbruster * 5494295f879SMarkus Armbruster * If @endptr is null, and the string isn't fully converted, return 5504295f879SMarkus Armbruster * -EINVAL. This is the case when the pointer that would be stored in 5514295f879SMarkus Armbruster * a non-null @endptr points to a character other than '\0'. 5524295f879SMarkus Armbruster * 5534295f879SMarkus Armbruster * If the conversion overflows @result, store ULONG_MAX in @result, 5544295f879SMarkus Armbruster * and return -ERANGE. 5554295f879SMarkus Armbruster * 5564295f879SMarkus Armbruster * Else store the converted value in @result, and return zero. 5574295f879SMarkus Armbruster * 5584295f879SMarkus Armbruster * Note that a number with a leading minus sign gets converted without 5594295f879SMarkus Armbruster * the minus sign, checked for overflow (see above), then negated (in 5604295f879SMarkus Armbruster * @result's type). This is exactly how strtoul() works. 561c817c015SCarlos L. Torres */ 562c817c015SCarlos L. Torres int qemu_strtoul(const char *nptr, const char **endptr, int base, 563c817c015SCarlos L. Torres unsigned long *result) 564c817c015SCarlos L. Torres { 565717adf96SMarkus Armbruster char *ep; 5664baef267SMarkus Armbruster 56753a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 568c817c015SCarlos L. Torres if (!nptr) { 569c817c015SCarlos L. Torres if (endptr) { 570c817c015SCarlos L. Torres *endptr = nptr; 571c817c015SCarlos L. Torres } 5724baef267SMarkus Armbruster return -EINVAL; 5734baef267SMarkus Armbruster } 5744baef267SMarkus Armbruster 575c817c015SCarlos L. Torres errno = 0; 576717adf96SMarkus Armbruster *result = strtoul(nptr, &ep, base); 57747d4be12SPaolo Bonzini /* Windows returns 1 for negative out-of-range values. */ 57847d4be12SPaolo Bonzini if (errno == ERANGE) { 57947d4be12SPaolo Bonzini *result = -1; 58047d4be12SPaolo Bonzini } 5816162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, *result == 0, errno); 582c817c015SCarlos L. Torres } 583c817c015SCarlos L. Torres 584764e0fa4SCarlos L. Torres /** 5854295f879SMarkus Armbruster * Convert string @nptr to an int64_t. 5868ac4df40SCarlos L. Torres * 5874295f879SMarkus Armbruster * Works like qemu_strtol(), except it stores INT64_MAX on overflow, 588369276ebSMarkus Armbruster * and INT64_MIN on underflow. 5898ac4df40SCarlos L. Torres */ 590b30d1886SMarkus Armbruster int qemu_strtoi64(const char *nptr, const char **endptr, int base, 5918ac4df40SCarlos L. Torres int64_t *result) 5928ac4df40SCarlos L. Torres { 593717adf96SMarkus Armbruster char *ep; 5944baef267SMarkus Armbruster 59553a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 5968ac4df40SCarlos L. Torres if (!nptr) { 5978ac4df40SCarlos L. Torres if (endptr) { 5988ac4df40SCarlos L. Torres *endptr = nptr; 5998ac4df40SCarlos L. Torres } 6004baef267SMarkus Armbruster return -EINVAL; 6014baef267SMarkus Armbruster } 6024baef267SMarkus Armbruster 603369276ebSMarkus Armbruster /* This assumes int64_t is long long TODO relax */ 604369276ebSMarkus Armbruster QEMU_BUILD_BUG_ON(sizeof(int64_t) != sizeof(long long)); 6058ac4df40SCarlos L. Torres errno = 0; 606717adf96SMarkus Armbruster *result = strtoll(nptr, &ep, base); 6076162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, *result == 0, errno); 6088ac4df40SCarlos L. Torres } 6098ac4df40SCarlos L. Torres 6108ac4df40SCarlos L. Torres /** 6114295f879SMarkus Armbruster * Convert string @nptr to an uint64_t. 6123904e6bfSCarlos L. Torres * 6134295f879SMarkus Armbruster * Works like qemu_strtoul(), except it stores UINT64_MAX on overflow. 61484760bbcSEric Blake * (If you want to prohibit negative numbers that wrap around to 61584760bbcSEric Blake * positive, use parse_uint()). 6163904e6bfSCarlos L. Torres */ 617b30d1886SMarkus Armbruster int qemu_strtou64(const char *nptr, const char **endptr, int base, 6183904e6bfSCarlos L. Torres uint64_t *result) 6193904e6bfSCarlos L. Torres { 620717adf96SMarkus Armbruster char *ep; 6214baef267SMarkus Armbruster 62253a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 6233904e6bfSCarlos L. Torres if (!nptr) { 6243904e6bfSCarlos L. Torres if (endptr) { 6253904e6bfSCarlos L. Torres *endptr = nptr; 6263904e6bfSCarlos L. Torres } 6274baef267SMarkus Armbruster return -EINVAL; 6284baef267SMarkus Armbruster } 6294baef267SMarkus Armbruster 630369276ebSMarkus Armbruster /* This assumes uint64_t is unsigned long long TODO relax */ 631369276ebSMarkus Armbruster QEMU_BUILD_BUG_ON(sizeof(uint64_t) != sizeof(unsigned long long)); 6323904e6bfSCarlos L. Torres errno = 0; 633717adf96SMarkus Armbruster *result = strtoull(nptr, &ep, base); 63447d4be12SPaolo Bonzini /* Windows returns 1 for negative out-of-range values. */ 63547d4be12SPaolo Bonzini if (errno == ERANGE) { 63647d4be12SPaolo Bonzini *result = -1; 63747d4be12SPaolo Bonzini } 6386162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, *result == 0, errno); 6393904e6bfSCarlos L. Torres } 6403904e6bfSCarlos L. Torres 6413904e6bfSCarlos L. Torres /** 642ca28f548SDavid Hildenbrand * Convert string @nptr to a double. 643ca28f548SDavid Hildenbrand * 644ca28f548SDavid Hildenbrand * This is a wrapper around strtod() that is harder to misuse. 645ca28f548SDavid Hildenbrand * Semantics of @nptr and @endptr match strtod() with differences 646ca28f548SDavid Hildenbrand * noted below. 647ca28f548SDavid Hildenbrand * 648ca28f548SDavid Hildenbrand * @nptr may be null, and no conversion is performed then. 649ca28f548SDavid Hildenbrand * 650ca28f548SDavid Hildenbrand * If no conversion is performed, store @nptr in *@endptr and return 651ca28f548SDavid Hildenbrand * -EINVAL. 652ca28f548SDavid Hildenbrand * 653ca28f548SDavid Hildenbrand * If @endptr is null, and the string isn't fully converted, return 654ca28f548SDavid Hildenbrand * -EINVAL. This is the case when the pointer that would be stored in 655ca28f548SDavid Hildenbrand * a non-null @endptr points to a character other than '\0'. 656ca28f548SDavid Hildenbrand * 657ca28f548SDavid Hildenbrand * If the conversion overflows, store +/-HUGE_VAL in @result, depending 658ca28f548SDavid Hildenbrand * on the sign, and return -ERANGE. 659ca28f548SDavid Hildenbrand * 660ca28f548SDavid Hildenbrand * If the conversion underflows, store +/-0.0 in @result, depending on the 661ca28f548SDavid Hildenbrand * sign, and return -ERANGE. 662ca28f548SDavid Hildenbrand * 663ca28f548SDavid Hildenbrand * Else store the converted value in @result, and return zero. 664ca28f548SDavid Hildenbrand */ 665ca28f548SDavid Hildenbrand int qemu_strtod(const char *nptr, const char **endptr, double *result) 666ca28f548SDavid Hildenbrand { 667ca28f548SDavid Hildenbrand char *ep; 668ca28f548SDavid Hildenbrand 669ca28f548SDavid Hildenbrand if (!nptr) { 670ca28f548SDavid Hildenbrand if (endptr) { 671ca28f548SDavid Hildenbrand *endptr = nptr; 672ca28f548SDavid Hildenbrand } 673ca28f548SDavid Hildenbrand return -EINVAL; 674ca28f548SDavid Hildenbrand } 675ca28f548SDavid Hildenbrand 676ca28f548SDavid Hildenbrand errno = 0; 677ca28f548SDavid Hildenbrand *result = strtod(nptr, &ep); 6786162f7daSEric Blake return check_strtox_error(nptr, ep, endptr, false, errno); 679ca28f548SDavid Hildenbrand } 680ca28f548SDavid Hildenbrand 681ca28f548SDavid Hildenbrand /** 682ca28f548SDavid Hildenbrand * Convert string @nptr to a finite double. 683ca28f548SDavid Hildenbrand * 684ca28f548SDavid Hildenbrand * Works like qemu_strtod(), except that "NaN" and "inf" are rejected 685ca28f548SDavid Hildenbrand * with -EINVAL and no conversion is performed. 686ca28f548SDavid Hildenbrand */ 687ca28f548SDavid Hildenbrand int qemu_strtod_finite(const char *nptr, const char **endptr, double *result) 688ca28f548SDavid Hildenbrand { 689ca28f548SDavid Hildenbrand double tmp; 690ca28f548SDavid Hildenbrand int ret; 691ca28f548SDavid Hildenbrand 692ca28f548SDavid Hildenbrand ret = qemu_strtod(nptr, endptr, &tmp); 693ca28f548SDavid Hildenbrand if (!ret && !isfinite(tmp)) { 694ca28f548SDavid Hildenbrand if (endptr) { 695ca28f548SDavid Hildenbrand *endptr = nptr; 696ca28f548SDavid Hildenbrand } 697ca28f548SDavid Hildenbrand ret = -EINVAL; 698ca28f548SDavid Hildenbrand } 699ca28f548SDavid Hildenbrand 700ca28f548SDavid Hildenbrand if (ret != -EINVAL) { 701ca28f548SDavid Hildenbrand *result = tmp; 702ca28f548SDavid Hildenbrand } 703ca28f548SDavid Hildenbrand return ret; 704ca28f548SDavid Hildenbrand } 705ca28f548SDavid Hildenbrand 706ca28f548SDavid Hildenbrand /** 7075c99fa37SKeno Fischer * Searches for the first occurrence of 'c' in 's', and returns a pointer 7085c99fa37SKeno Fischer * to the trailing null byte if none was found. 7095c99fa37SKeno Fischer */ 7105c99fa37SKeno Fischer #ifndef HAVE_STRCHRNUL 7115c99fa37SKeno Fischer const char *qemu_strchrnul(const char *s, int c) 7125c99fa37SKeno Fischer { 7135c99fa37SKeno Fischer const char *e = strchr(s, c); 7145c99fa37SKeno Fischer if (!e) { 7155c99fa37SKeno Fischer e = s + strlen(s); 7165c99fa37SKeno Fischer } 7175c99fa37SKeno Fischer return e; 7185c99fa37SKeno Fischer } 7195c99fa37SKeno Fischer #endif 7205c99fa37SKeno Fischer 7215c99fa37SKeno Fischer /** 722e3f9fe2dSEduardo Habkost * parse_uint: 723e3f9fe2dSEduardo Habkost * 724e3f9fe2dSEduardo Habkost * @s: String to parse 725e3f9fe2dSEduardo Habkost * @value: Destination for parsed integer value 72684760bbcSEric Blake * @endptr: Destination for pointer to first character not consumed, must 72784760bbcSEric Blake * not be %NULL 728e3f9fe2dSEduardo Habkost * @base: integer base, between 2 and 36 inclusive, or 0 729e3f9fe2dSEduardo Habkost * 730e3f9fe2dSEduardo Habkost * Parse unsigned integer 731e3f9fe2dSEduardo Habkost * 732e3f9fe2dSEduardo Habkost * Parsed syntax is like strtoull()'s: arbitrary whitespace, a single optional 733e3f9fe2dSEduardo Habkost * '+' or '-', an optional "0x" if @base is 0 or 16, one or more digits. 734e3f9fe2dSEduardo Habkost * 73584760bbcSEric Blake * If @s is null, or @s doesn't start with an integer in the syntax 73684760bbcSEric Blake * above, set *@value to 0, *@endptr to @s, and return -EINVAL. 737e3f9fe2dSEduardo Habkost * 738e3f9fe2dSEduardo Habkost * Set *@endptr to point right beyond the parsed integer (even if the integer 739e3f9fe2dSEduardo Habkost * overflows or is negative, all digits will be parsed and *@endptr will 740e3f9fe2dSEduardo Habkost * point right beyond them). 741e3f9fe2dSEduardo Habkost * 742e3f9fe2dSEduardo Habkost * If the integer is negative, set *@value to 0, and return -ERANGE. 74384760bbcSEric Blake * (If you want to allow negative numbers that wrap around within 74484760bbcSEric Blake * bounds, use qemu_strtou64()). 745e3f9fe2dSEduardo Habkost * 746e3f9fe2dSEduardo Habkost * If the integer overflows unsigned long long, set *@value to 747e3f9fe2dSEduardo Habkost * ULLONG_MAX, and return -ERANGE. 748e3f9fe2dSEduardo Habkost * 749e3f9fe2dSEduardo Habkost * Else, set *@value to the parsed integer, and return 0. 750e3f9fe2dSEduardo Habkost */ 751e3f9fe2dSEduardo Habkost int parse_uint(const char *s, unsigned long long *value, char **endptr, 752e3f9fe2dSEduardo Habkost int base) 753e3f9fe2dSEduardo Habkost { 754e3f9fe2dSEduardo Habkost int r = 0; 755e3f9fe2dSEduardo Habkost char *endp = (char *)s; 756e3f9fe2dSEduardo Habkost unsigned long long val = 0; 757e3f9fe2dSEduardo Habkost 75853a90b97SEric Blake assert((unsigned) base <= 36 && base != 1); 759e3f9fe2dSEduardo Habkost if (!s) { 760e3f9fe2dSEduardo Habkost r = -EINVAL; 761e3f9fe2dSEduardo Habkost goto out; 762e3f9fe2dSEduardo Habkost } 763e3f9fe2dSEduardo Habkost 764e3f9fe2dSEduardo Habkost errno = 0; 765e3f9fe2dSEduardo Habkost val = strtoull(s, &endp, base); 766e3f9fe2dSEduardo Habkost if (errno) { 767e3f9fe2dSEduardo Habkost r = -errno; 768e3f9fe2dSEduardo Habkost goto out; 769e3f9fe2dSEduardo Habkost } 770e3f9fe2dSEduardo Habkost 771e3f9fe2dSEduardo Habkost if (endp == s) { 772e3f9fe2dSEduardo Habkost r = -EINVAL; 773e3f9fe2dSEduardo Habkost goto out; 774e3f9fe2dSEduardo Habkost } 775e3f9fe2dSEduardo Habkost 776e3f9fe2dSEduardo Habkost /* make sure we reject negative numbers: */ 777db3d11eeSMarkus Armbruster while (qemu_isspace(*s)) { 778e3f9fe2dSEduardo Habkost s++; 779e3f9fe2dSEduardo Habkost } 780e3f9fe2dSEduardo Habkost if (*s == '-') { 781e3f9fe2dSEduardo Habkost val = 0; 782e3f9fe2dSEduardo Habkost r = -ERANGE; 783e3f9fe2dSEduardo Habkost goto out; 784e3f9fe2dSEduardo Habkost } 785e3f9fe2dSEduardo Habkost 786e3f9fe2dSEduardo Habkost out: 787e3f9fe2dSEduardo Habkost *value = val; 788e3f9fe2dSEduardo Habkost *endptr = endp; 789e3f9fe2dSEduardo Habkost return r; 790e3f9fe2dSEduardo Habkost } 791e3f9fe2dSEduardo Habkost 792e3f9fe2dSEduardo Habkost /** 793e3f9fe2dSEduardo Habkost * parse_uint_full: 794e3f9fe2dSEduardo Habkost * 795e3f9fe2dSEduardo Habkost * @s: String to parse 796e3f9fe2dSEduardo Habkost * @value: Destination for parsed integer value 797e3f9fe2dSEduardo Habkost * @base: integer base, between 2 and 36 inclusive, or 0 798e3f9fe2dSEduardo Habkost * 799e3f9fe2dSEduardo Habkost * Parse unsigned integer from entire string 800e3f9fe2dSEduardo Habkost * 80184760bbcSEric Blake * Have the same behavior of parse_uint(), but with an additional 80284760bbcSEric Blake * check for additional data after the parsed number. If extra 80384760bbcSEric Blake * characters are present after a non-overflowing parsed number, the 80484760bbcSEric Blake * function will return -EINVAL, and *@v will be set to 0. 805e3f9fe2dSEduardo Habkost */ 806e3f9fe2dSEduardo Habkost int parse_uint_full(const char *s, unsigned long long *value, int base) 807e3f9fe2dSEduardo Habkost { 808e3f9fe2dSEduardo Habkost char *endp; 809e3f9fe2dSEduardo Habkost int r; 810e3f9fe2dSEduardo Habkost 811e3f9fe2dSEduardo Habkost r = parse_uint(s, value, &endp, base); 812e3f9fe2dSEduardo Habkost if (r < 0) { 813e3f9fe2dSEduardo Habkost return r; 814e3f9fe2dSEduardo Habkost } 815e3f9fe2dSEduardo Habkost if (*endp) { 816e3f9fe2dSEduardo Habkost *value = 0; 817e3f9fe2dSEduardo Habkost return -EINVAL; 818e3f9fe2dSEduardo Habkost } 819e3f9fe2dSEduardo Habkost 820e3f9fe2dSEduardo Habkost return 0; 821e3f9fe2dSEduardo Habkost } 822e3f9fe2dSEduardo Habkost 823baacf047SPaolo Bonzini int qemu_parse_fd(const char *param) 824baacf047SPaolo Bonzini { 825e9c5c1f4SLaszlo Ersek long fd; 826e9c5c1f4SLaszlo Ersek char *endptr; 827baacf047SPaolo Bonzini 828e9c5c1f4SLaszlo Ersek errno = 0; 829baacf047SPaolo Bonzini fd = strtol(param, &endptr, 10); 830e9c5c1f4SLaszlo Ersek if (param == endptr /* no conversion performed */ || 831e9c5c1f4SLaszlo Ersek errno != 0 /* not representable as long; possibly others */ || 832e9c5c1f4SLaszlo Ersek *endptr != '\0' /* final string not empty */ || 833e9c5c1f4SLaszlo Ersek fd < 0 /* invalid as file descriptor */ || 834e9c5c1f4SLaszlo Ersek fd > INT_MAX /* not representable as int */) { 835baacf047SPaolo Bonzini return -1; 836baacf047SPaolo Bonzini } 837baacf047SPaolo Bonzini return fd; 838baacf047SPaolo Bonzini } 839baacf047SPaolo Bonzini 840baacf047SPaolo Bonzini /* 841baacf047SPaolo Bonzini * Implementation of ULEB128 (http://en.wikipedia.org/wiki/LEB128) 842baacf047SPaolo Bonzini * Input is limited to 14-bit numbers 843baacf047SPaolo Bonzini */ 844baacf047SPaolo Bonzini int uleb128_encode_small(uint8_t *out, uint32_t n) 845baacf047SPaolo Bonzini { 846baacf047SPaolo Bonzini g_assert(n <= 0x3fff); 847baacf047SPaolo Bonzini if (n < 0x80) { 8487c960d61SWei Yang *out = n; 849baacf047SPaolo Bonzini return 1; 850baacf047SPaolo Bonzini } else { 851baacf047SPaolo Bonzini *out++ = (n & 0x7f) | 0x80; 8527c960d61SWei Yang *out = n >> 7; 853baacf047SPaolo Bonzini return 2; 854baacf047SPaolo Bonzini } 855baacf047SPaolo Bonzini } 856baacf047SPaolo Bonzini 857baacf047SPaolo Bonzini int uleb128_decode_small(const uint8_t *in, uint32_t *n) 858baacf047SPaolo Bonzini { 859baacf047SPaolo Bonzini if (!(*in & 0x80)) { 8607c960d61SWei Yang *n = *in; 861baacf047SPaolo Bonzini return 1; 862baacf047SPaolo Bonzini } else { 863baacf047SPaolo Bonzini *n = *in++ & 0x7f; 864baacf047SPaolo Bonzini /* we exceed 14 bit number */ 865baacf047SPaolo Bonzini if (*in & 0x80) { 866baacf047SPaolo Bonzini return -1; 867baacf047SPaolo Bonzini } 8687c960d61SWei Yang *n |= *in << 7; 869baacf047SPaolo Bonzini return 2; 870baacf047SPaolo Bonzini } 871baacf047SPaolo Bonzini } 872b16352acSAlon Levy 873b16352acSAlon Levy /* 874b16352acSAlon Levy * helper to parse debug environment variables 875b16352acSAlon Levy */ 876b16352acSAlon Levy int parse_debug_env(const char *name, int max, int initial) 877b16352acSAlon Levy { 878b16352acSAlon Levy char *debug_env = getenv(name); 879b16352acSAlon Levy char *inv = NULL; 880cc5d0e04SPaolo Bonzini long debug; 881b16352acSAlon Levy 882b16352acSAlon Levy if (!debug_env) { 883b16352acSAlon Levy return initial; 884b16352acSAlon Levy } 885cc5d0e04SPaolo Bonzini errno = 0; 886b16352acSAlon Levy debug = strtol(debug_env, &inv, 10); 887b16352acSAlon Levy if (inv == debug_env) { 888b16352acSAlon Levy return initial; 889b16352acSAlon Levy } 890cc5d0e04SPaolo Bonzini if (debug < 0 || debug > max || errno != 0) { 89105cb8ed5SAlistair Francis warn_report("%s not in [0, %d]", name, max); 892b16352acSAlon Levy return initial; 893b16352acSAlon Levy } 894b16352acSAlon Levy return debug; 895b16352acSAlon Levy } 8964297c8eeSAlexey Kardashevskiy 897cfb34489SPaolo Bonzini const char *si_prefix(unsigned int exp10) 898cfb34489SPaolo Bonzini { 899cfb34489SPaolo Bonzini static const char *prefixes[] = { 900cfb34489SPaolo Bonzini "a", "f", "p", "n", "u", "m", "", "K", "M", "G", "T", "P", "E" 901cfb34489SPaolo Bonzini }; 902cfb34489SPaolo Bonzini 903cfb34489SPaolo Bonzini exp10 += 18; 904cfb34489SPaolo Bonzini assert(exp10 % 3 == 0 && exp10 / 3 < ARRAY_SIZE(prefixes)); 905cfb34489SPaolo Bonzini return prefixes[exp10 / 3]; 906cfb34489SPaolo Bonzini } 907cfb34489SPaolo Bonzini 908cfb34489SPaolo Bonzini const char *iec_binary_prefix(unsigned int exp2) 909cfb34489SPaolo Bonzini { 910cfb34489SPaolo Bonzini static const char *prefixes[] = { "", "Ki", "Mi", "Gi", "Ti", "Pi", "Ei" }; 911cfb34489SPaolo Bonzini 912cfb34489SPaolo Bonzini assert(exp2 % 10 == 0 && exp2 / 10 < ARRAY_SIZE(prefixes)); 913cfb34489SPaolo Bonzini return prefixes[exp2 / 10]; 914cfb34489SPaolo Bonzini } 915cfb34489SPaolo Bonzini 9164297c8eeSAlexey Kardashevskiy /* 91722951aaaSPeter Xu * Return human readable string for size @val. 91822951aaaSPeter Xu * @val can be anything that uint64_t allows (no more than "16 EiB"). 91922951aaaSPeter Xu * Use IEC binary units like KiB, MiB, and so forth. 92022951aaaSPeter Xu * Caller is responsible for passing it to g_free(). 92122951aaaSPeter Xu */ 92222951aaaSPeter Xu char *size_to_str(uint64_t val) 92322951aaaSPeter Xu { 924754da867SEric Blake uint64_t div; 92522951aaaSPeter Xu int i; 92622951aaaSPeter Xu 92722951aaaSPeter Xu /* 92822951aaaSPeter Xu * The exponent (returned in i) minus one gives us 92922951aaaSPeter Xu * floor(log2(val * 1024 / 1000). The correction makes us 93022951aaaSPeter Xu * switch to the higher power when the integer part is >= 1000. 93122951aaaSPeter Xu * (see e41b509d68afb1f for more info) 93222951aaaSPeter Xu */ 93322951aaaSPeter Xu frexp(val / (1000.0 / 1024.0), &i); 934cfb34489SPaolo Bonzini i = (i - 1) / 10 * 10; 935cfb34489SPaolo Bonzini div = 1ULL << i; 93622951aaaSPeter Xu 937cfb34489SPaolo Bonzini return g_strdup_printf("%0.3g %sB", (double)val / div, iec_binary_prefix(i)); 93822951aaaSPeter Xu } 93985e33a28SMarc-André Lureau 940709616c7SPhilippe Mathieu-Daudé char *freq_to_str(uint64_t freq_hz) 941709616c7SPhilippe Mathieu-Daudé { 942709616c7SPhilippe Mathieu-Daudé double freq = freq_hz; 943cfb34489SPaolo Bonzini size_t exp10 = 0; 944709616c7SPhilippe Mathieu-Daudé 9456d7ccc57SPhilippe Mathieu-Daudé while (freq >= 1000.0) { 946709616c7SPhilippe Mathieu-Daudé freq /= 1000.0; 947cfb34489SPaolo Bonzini exp10 += 3; 948709616c7SPhilippe Mathieu-Daudé } 949709616c7SPhilippe Mathieu-Daudé 950cfb34489SPaolo Bonzini return g_strdup_printf("%0.3g %sHz", freq, si_prefix(exp10)); 951709616c7SPhilippe Mathieu-Daudé } 952709616c7SPhilippe Mathieu-Daudé 95385e33a28SMarc-André Lureau int qemu_pstrcmp0(const char **str1, const char **str2) 95485e33a28SMarc-André Lureau { 95585e33a28SMarc-André Lureau return g_strcmp0(*str1, *str2); 95685e33a28SMarc-André Lureau } 957f4f5ed2cSPaolo Bonzini 958f4f5ed2cSPaolo Bonzini static inline bool starts_with_prefix(const char *dir) 959f4f5ed2cSPaolo Bonzini { 960f4f5ed2cSPaolo Bonzini size_t prefix_len = strlen(CONFIG_PREFIX); 961f4f5ed2cSPaolo Bonzini return !memcmp(dir, CONFIG_PREFIX, prefix_len) && 962f4f5ed2cSPaolo Bonzini (!dir[prefix_len] || G_IS_DIR_SEPARATOR(dir[prefix_len])); 963f4f5ed2cSPaolo Bonzini } 964f4f5ed2cSPaolo Bonzini 965f4f5ed2cSPaolo Bonzini /* Return the next path component in dir, and store its length in *p_len. */ 966f4f5ed2cSPaolo Bonzini static inline const char *next_component(const char *dir, int *p_len) 967f4f5ed2cSPaolo Bonzini { 968f4f5ed2cSPaolo Bonzini int len; 969342e3a4fSStefan Weil while ((*dir && G_IS_DIR_SEPARATOR(*dir)) || 970342e3a4fSStefan Weil (*dir == '.' && (G_IS_DIR_SEPARATOR(dir[1]) || dir[1] == '\0'))) { 971f4f5ed2cSPaolo Bonzini dir++; 972f4f5ed2cSPaolo Bonzini } 973f4f5ed2cSPaolo Bonzini len = 0; 974f4f5ed2cSPaolo Bonzini while (dir[len] && !G_IS_DIR_SEPARATOR(dir[len])) { 975f4f5ed2cSPaolo Bonzini len++; 976f4f5ed2cSPaolo Bonzini } 977f4f5ed2cSPaolo Bonzini *p_len = len; 978f4f5ed2cSPaolo Bonzini return dir; 979f4f5ed2cSPaolo Bonzini } 980f4f5ed2cSPaolo Bonzini 98106680b15SMarc-André Lureau static const char *exec_dir; 98206680b15SMarc-André Lureau 98306680b15SMarc-André Lureau void qemu_init_exec_dir(const char *argv0) 98406680b15SMarc-André Lureau { 98506680b15SMarc-André Lureau #ifdef G_OS_WIN32 98606680b15SMarc-André Lureau char *p; 98706680b15SMarc-André Lureau char buf[MAX_PATH]; 98806680b15SMarc-André Lureau DWORD len; 98906680b15SMarc-André Lureau 99006680b15SMarc-André Lureau if (exec_dir) { 99106680b15SMarc-André Lureau return; 99206680b15SMarc-André Lureau } 99306680b15SMarc-André Lureau 99406680b15SMarc-André Lureau len = GetModuleFileName(NULL, buf, sizeof(buf) - 1); 99506680b15SMarc-André Lureau if (len == 0) { 99606680b15SMarc-André Lureau return; 99706680b15SMarc-André Lureau } 99806680b15SMarc-André Lureau 99906680b15SMarc-André Lureau buf[len] = 0; 100006680b15SMarc-André Lureau p = buf + len - 1; 100106680b15SMarc-André Lureau while (p != buf && *p != '\\') { 100206680b15SMarc-André Lureau p--; 100306680b15SMarc-André Lureau } 100406680b15SMarc-André Lureau *p = 0; 100506680b15SMarc-André Lureau if (access(buf, R_OK) == 0) { 100606680b15SMarc-André Lureau exec_dir = g_strdup(buf); 100706680b15SMarc-André Lureau } else { 100806680b15SMarc-André Lureau exec_dir = CONFIG_BINDIR; 100906680b15SMarc-André Lureau } 101006680b15SMarc-André Lureau #else 101106680b15SMarc-André Lureau char *p = NULL; 101206680b15SMarc-André Lureau char buf[PATH_MAX]; 101306680b15SMarc-André Lureau 101406680b15SMarc-André Lureau if (exec_dir) { 101506680b15SMarc-André Lureau return; 101606680b15SMarc-André Lureau } 101706680b15SMarc-André Lureau 101806680b15SMarc-André Lureau #if defined(__linux__) 101906680b15SMarc-André Lureau { 102006680b15SMarc-André Lureau int len; 102106680b15SMarc-André Lureau len = readlink("/proc/self/exe", buf, sizeof(buf) - 1); 102206680b15SMarc-André Lureau if (len > 0) { 102306680b15SMarc-André Lureau buf[len] = 0; 102406680b15SMarc-André Lureau p = buf; 102506680b15SMarc-André Lureau } 102606680b15SMarc-André Lureau } 102706680b15SMarc-André Lureau #elif defined(__FreeBSD__) \ 102806680b15SMarc-André Lureau || (defined(__NetBSD__) && defined(KERN_PROC_PATHNAME)) 102906680b15SMarc-André Lureau { 103006680b15SMarc-André Lureau #if defined(__FreeBSD__) 103106680b15SMarc-André Lureau static int mib[4] = {CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1}; 103206680b15SMarc-André Lureau #else 103306680b15SMarc-André Lureau static int mib[4] = {CTL_KERN, KERN_PROC_ARGS, -1, KERN_PROC_PATHNAME}; 103406680b15SMarc-André Lureau #endif 103506680b15SMarc-André Lureau size_t len = sizeof(buf) - 1; 103606680b15SMarc-André Lureau 103706680b15SMarc-André Lureau *buf = '\0'; 103806680b15SMarc-André Lureau if (!sysctl(mib, ARRAY_SIZE(mib), buf, &len, NULL, 0) && 103906680b15SMarc-André Lureau *buf) { 104006680b15SMarc-André Lureau buf[sizeof(buf) - 1] = '\0'; 104106680b15SMarc-André Lureau p = buf; 104206680b15SMarc-André Lureau } 104306680b15SMarc-André Lureau } 104406680b15SMarc-André Lureau #elif defined(__APPLE__) 104506680b15SMarc-André Lureau { 104606680b15SMarc-André Lureau char fpath[PATH_MAX]; 104706680b15SMarc-André Lureau uint32_t len = sizeof(fpath); 104806680b15SMarc-André Lureau if (_NSGetExecutablePath(fpath, &len) == 0) { 104906680b15SMarc-André Lureau p = realpath(fpath, buf); 105006680b15SMarc-André Lureau if (!p) { 105106680b15SMarc-André Lureau return; 105206680b15SMarc-André Lureau } 105306680b15SMarc-André Lureau } 105406680b15SMarc-André Lureau } 105506680b15SMarc-André Lureau #elif defined(__HAIKU__) 105606680b15SMarc-André Lureau { 105706680b15SMarc-André Lureau image_info ii; 105806680b15SMarc-André Lureau int32_t c = 0; 105906680b15SMarc-André Lureau 106006680b15SMarc-André Lureau *buf = '\0'; 106106680b15SMarc-André Lureau while (get_next_image_info(0, &c, &ii) == B_OK) { 106206680b15SMarc-André Lureau if (ii.type == B_APP_IMAGE) { 106306680b15SMarc-André Lureau strncpy(buf, ii.name, sizeof(buf)); 106406680b15SMarc-André Lureau buf[sizeof(buf) - 1] = 0; 106506680b15SMarc-André Lureau p = buf; 106606680b15SMarc-André Lureau break; 106706680b15SMarc-André Lureau } 106806680b15SMarc-André Lureau } 106906680b15SMarc-André Lureau } 107006680b15SMarc-André Lureau #endif 107106680b15SMarc-André Lureau /* If we don't have any way of figuring out the actual executable 107206680b15SMarc-André Lureau location then try argv[0]. */ 107306680b15SMarc-André Lureau if (!p && argv0) { 107406680b15SMarc-André Lureau p = realpath(argv0, buf); 107506680b15SMarc-André Lureau } 107606680b15SMarc-André Lureau if (p) { 107706680b15SMarc-André Lureau exec_dir = g_path_get_dirname(p); 107806680b15SMarc-André Lureau } else { 107906680b15SMarc-André Lureau exec_dir = CONFIG_BINDIR; 108006680b15SMarc-André Lureau } 108106680b15SMarc-André Lureau #endif 108206680b15SMarc-André Lureau } 108306680b15SMarc-André Lureau 108406680b15SMarc-André Lureau const char *qemu_get_exec_dir(void) 108506680b15SMarc-André Lureau { 108606680b15SMarc-André Lureau return exec_dir; 108706680b15SMarc-André Lureau } 108806680b15SMarc-André Lureau 1089f4f5ed2cSPaolo Bonzini char *get_relocated_path(const char *dir) 1090f4f5ed2cSPaolo Bonzini { 1091f4f5ed2cSPaolo Bonzini size_t prefix_len = strlen(CONFIG_PREFIX); 1092f4f5ed2cSPaolo Bonzini const char *bindir = CONFIG_BINDIR; 1093f4f5ed2cSPaolo Bonzini const char *exec_dir = qemu_get_exec_dir(); 1094f4f5ed2cSPaolo Bonzini GString *result; 1095f4f5ed2cSPaolo Bonzini int len_dir, len_bindir; 1096f4f5ed2cSPaolo Bonzini 1097f4f5ed2cSPaolo Bonzini /* Fail if qemu_init_exec_dir was not called. */ 1098f4f5ed2cSPaolo Bonzini assert(exec_dir[0]); 1099f4f5ed2cSPaolo Bonzini 1100f4f5ed2cSPaolo Bonzini result = g_string_new(exec_dir); 1101cf60ccc3SAkihiko Odaki g_string_append(result, "/qemu-bundle"); 1102cf60ccc3SAkihiko Odaki if (access(result->str, R_OK) == 0) { 1103cf60ccc3SAkihiko Odaki #ifdef G_OS_WIN32 1104cf60ccc3SAkihiko Odaki size_t size = mbsrtowcs(NULL, &dir, 0, &(mbstate_t){0}) + 1; 1105cf60ccc3SAkihiko Odaki PWSTR wdir = g_new(WCHAR, size); 1106cf60ccc3SAkihiko Odaki mbsrtowcs(wdir, &dir, size, &(mbstate_t){0}); 1107cf60ccc3SAkihiko Odaki 1108cf60ccc3SAkihiko Odaki PCWSTR wdir_skipped_root; 1109cf60ccc3SAkihiko Odaki PathCchSkipRoot(wdir, &wdir_skipped_root); 1110cf60ccc3SAkihiko Odaki 1111cf60ccc3SAkihiko Odaki size = wcsrtombs(NULL, &wdir_skipped_root, 0, &(mbstate_t){0}); 1112cf60ccc3SAkihiko Odaki char *cursor = result->str + result->len; 1113cf60ccc3SAkihiko Odaki g_string_set_size(result, result->len + size); 1114cf60ccc3SAkihiko Odaki wcsrtombs(cursor, &wdir_skipped_root, size + 1, &(mbstate_t){0}); 1115cf60ccc3SAkihiko Odaki g_free(wdir); 1116cf60ccc3SAkihiko Odaki #else 1117cf60ccc3SAkihiko Odaki g_string_append(result, dir); 1118cf60ccc3SAkihiko Odaki #endif 1119cf60ccc3SAkihiko Odaki } else if (!starts_with_prefix(dir) || !starts_with_prefix(bindir)) { 1120cf60ccc3SAkihiko Odaki g_string_assign(result, dir); 1121cf60ccc3SAkihiko Odaki } else { 1122cf60ccc3SAkihiko Odaki g_string_assign(result, exec_dir); 1123f4f5ed2cSPaolo Bonzini 1124f4f5ed2cSPaolo Bonzini /* Advance over common components. */ 1125f4f5ed2cSPaolo Bonzini len_dir = len_bindir = prefix_len; 1126f4f5ed2cSPaolo Bonzini do { 1127f4f5ed2cSPaolo Bonzini dir += len_dir; 1128f4f5ed2cSPaolo Bonzini bindir += len_bindir; 1129f4f5ed2cSPaolo Bonzini dir = next_component(dir, &len_dir); 1130f4f5ed2cSPaolo Bonzini bindir = next_component(bindir, &len_bindir); 11317a3b7f6bSSunil Muthuswamy } while (len_dir && len_dir == len_bindir && !memcmp(dir, bindir, len_dir)); 1132f4f5ed2cSPaolo Bonzini 1133f4f5ed2cSPaolo Bonzini /* Ascend from bindir to the common prefix with dir. */ 1134f4f5ed2cSPaolo Bonzini while (len_bindir) { 1135f4f5ed2cSPaolo Bonzini bindir += len_bindir; 1136f4f5ed2cSPaolo Bonzini g_string_append(result, "/.."); 1137f4f5ed2cSPaolo Bonzini bindir = next_component(bindir, &len_bindir); 1138f4f5ed2cSPaolo Bonzini } 1139f4f5ed2cSPaolo Bonzini 1140f4f5ed2cSPaolo Bonzini if (*dir) { 1141f4f5ed2cSPaolo Bonzini assert(G_IS_DIR_SEPARATOR(dir[-1])); 1142f4f5ed2cSPaolo Bonzini g_string_append(result, dir - 1); 1143f4f5ed2cSPaolo Bonzini } 1144cf60ccc3SAkihiko Odaki } 1145cf60ccc3SAkihiko Odaki 1146b6d003dbSStefano Garzarella return g_string_free(result, false); 1147f4f5ed2cSPaolo Bonzini } 1148