cutils.c 9.0 KB
Newer Older
B
bellard 已提交
1 2
/*
 * Simple C functions to supplement the C library
3
 *
B
bellard 已提交
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
 * Copyright (c) 2006 Fabrice Bellard
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */
P
pbrook 已提交
24
#include "qemu-common.h"
A
aliguori 已提交
25
#include "host-utils.h"
26
#include <math.h>
B
bellard 已提交
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

void pstrcpy(char *buf, int buf_size, const char *str)
{
    int c;
    char *q = buf;

    if (buf_size <= 0)
        return;

    for(;;) {
        c = *str++;
        if (c == 0 || q >= buf + buf_size - 1)
            break;
        *q++ = c;
    }
    *q = '\0';
}

/* strcat and truncate. */
char *pstrcat(char *buf, int buf_size, const char *s)
{
    int len;
    len = strlen(buf);
50
    if (len < buf_size)
B
bellard 已提交
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
        pstrcpy(buf + len, buf_size - len, s);
    return buf;
}

int strstart(const char *str, const char *val, const char **ptr)
{
    const char *p, *q;
    p = str;
    q = val;
    while (*q != '\0') {
        if (*p != *q)
            return 0;
        p++;
        q++;
    }
    if (ptr)
        *ptr = p;
    return 1;
}

int stristart(const char *str, const char *val, const char **ptr)
{
    const char *p, *q;
    p = str;
    q = val;
    while (*q != '\0') {
77
        if (qemu_toupper(*p) != qemu_toupper(*q))
B
bellard 已提交
78 79 80 81 82 83 84 85
            return 0;
        p++;
        q++;
    }
    if (ptr)
        *ptr = p;
    return 1;
}
B
bellard 已提交
86

B
Blue Swirl 已提交
87 88 89 90 91 92 93 94 95 96 97 98 99
/* XXX: use host strnlen if available ? */
int qemu_strnlen(const char *s, int max_len)
{
    int i;

    for(i = 0; i < max_len; i++) {
        if (s[i] == '\0') {
            break;
        }
    }
    return i;
}

B
bellard 已提交
100 101 102 103 104 105 106 107 108 109 110 111 112
time_t mktimegm(struct tm *tm)
{
    time_t t;
    int y = tm->tm_year + 1900, m = tm->tm_mon + 1, d = tm->tm_mday;
    if (m < 3) {
        m += 12;
        y--;
    }
    t = 86400 * (d + (153 * m - 457) / 5 + 365 * y + y / 4 - y / 100 + 
                 y / 400 - 719469);
    t += 3600 * tm->tm_hour + 60 * tm->tm_min + tm->tm_sec;
    return t;
}
A
aliguori 已提交
113

B
blueswir1 已提交
114
int qemu_fls(int i)
A
aliguori 已提交
115
{
A
aliguori 已提交
116
    return 32 - clz32(i);
A
aliguori 已提交
117
}
A
aliguori 已提交
118

119 120 121 122 123 124 125 126 127
/*
 * Make sure data goes on disk, but if possible do not bother to
 * write out the inode just for timestamp updates.
 *
 * Unfortunately even in 2009 many operating systems do not support
 * fdatasync and have to fall back to fsync.
 */
int qemu_fdatasync(int fd)
{
B
Blue Swirl 已提交
128
#ifdef CONFIG_FDATASYNC
129 130 131 132 133 134
    return fdatasync(fd);
#else
    return fsync(fd);
#endif
}

A
aliguori 已提交
135 136 137 138 139 140 141
/* io vectors */

void qemu_iovec_init(QEMUIOVector *qiov, int alloc_hint)
{
    qiov->iov = qemu_malloc(alloc_hint * sizeof(struct iovec));
    qiov->niov = 0;
    qiov->nalloc = alloc_hint;
142
    qiov->size = 0;
A
aliguori 已提交
143 144
}

145 146 147 148 149 150 151 152 153 154 155 156
void qemu_iovec_init_external(QEMUIOVector *qiov, struct iovec *iov, int niov)
{
    int i;

    qiov->iov = iov;
    qiov->niov = niov;
    qiov->nalloc = -1;
    qiov->size = 0;
    for (i = 0; i < niov; i++)
        qiov->size += iov[i].iov_len;
}

A
aliguori 已提交
157 158
void qemu_iovec_add(QEMUIOVector *qiov, void *base, size_t len)
{
159 160
    assert(qiov->nalloc != -1);

A
aliguori 已提交
161 162 163 164 165 166
    if (qiov->niov == qiov->nalloc) {
        qiov->nalloc = 2 * qiov->nalloc + 1;
        qiov->iov = qemu_realloc(qiov->iov, qiov->nalloc * sizeof(struct iovec));
    }
    qiov->iov[qiov->niov].iov_base = base;
    qiov->iov[qiov->niov].iov_len = len;
167
    qiov->size += len;
A
aliguori 已提交
168 169 170
    ++qiov->niov;
}

K
Kevin Wolf 已提交
171
/*
172 173 174 175 176
 * Copies iovecs from src to the end of dst. It starts copying after skipping
 * the given number of bytes in src and copies until src is completely copied
 * or the total size of the copied iovec reaches size.The size of the last
 * copied iovec is changed in order to fit the specified total size if it isn't
 * a perfect fit already.
K
Kevin Wolf 已提交
177
 */
178 179
void qemu_iovec_copy(QEMUIOVector *dst, QEMUIOVector *src, uint64_t skip,
    size_t size)
K
Kevin Wolf 已提交
180 181 182
{
    int i;
    size_t done;
183 184
    void *iov_base;
    uint64_t iov_len;
K
Kevin Wolf 已提交
185 186 187 188 189

    assert(dst->nalloc != -1);

    done = 0;
    for (i = 0; (i < src->niov) && (done != size); i++) {
190 191 192 193 194 195 196 197 198 199 200 201 202
        if (skip >= src->iov[i].iov_len) {
            /* Skip the whole iov */
            skip -= src->iov[i].iov_len;
            continue;
        } else {
            /* Skip only part (or nothing) of the iov */
            iov_base = (uint8_t*) src->iov[i].iov_base + skip;
            iov_len = src->iov[i].iov_len - skip;
            skip = 0;
        }

        if (done + iov_len > size) {
            qemu_iovec_add(dst, iov_base, size - done);
K
Kevin Wolf 已提交
203 204
            break;
        } else {
205
            qemu_iovec_add(dst, iov_base, iov_len);
K
Kevin Wolf 已提交
206
        }
207
        done += iov_len;
K
Kevin Wolf 已提交
208 209 210
    }
}

211 212 213 214 215
void qemu_iovec_concat(QEMUIOVector *dst, QEMUIOVector *src, size_t size)
{
    qemu_iovec_copy(dst, src, 0, size);
}

A
aliguori 已提交
216 217
void qemu_iovec_destroy(QEMUIOVector *qiov)
{
218 219
    assert(qiov->nalloc != -1);

A
aliguori 已提交
220 221 222
    qemu_free(qiov->iov);
}

A
aliguori 已提交
223 224
void qemu_iovec_reset(QEMUIOVector *qiov)
{
225 226
    assert(qiov->nalloc != -1);

A
aliguori 已提交
227 228 229 230
    qiov->niov = 0;
    qiov->size = 0;
}

A
aliguori 已提交
231 232 233 234 235 236 237 238 239 240 241
void qemu_iovec_to_buffer(QEMUIOVector *qiov, void *buf)
{
    uint8_t *p = (uint8_t *)buf;
    int i;

    for (i = 0; i < qiov->niov; ++i) {
        memcpy(p, qiov->iov[i].iov_base, qiov->iov[i].iov_len);
        p += qiov->iov[i].iov_len;
    }
}

242
void qemu_iovec_from_buffer(QEMUIOVector *qiov, const void *buf, size_t count)
A
aliguori 已提交
243 244
{
    const uint8_t *p = (const uint8_t *)buf;
245
    size_t copy;
A
aliguori 已提交
246 247
    int i;

248 249 250 251 252 253 254
    for (i = 0; i < qiov->niov && count; ++i) {
        copy = count;
        if (copy > qiov->iov[i].iov_len)
            copy = qiov->iov[i].iov_len;
        memcpy(qiov->iov[i].iov_base, p, copy);
        p     += copy;
        count -= copy;
A
aliguori 已提交
255 256
    }
}
P
Paolo Bonzini 已提交
257

258 259 260 261 262 263 264 265 266 267 268 269
void qemu_iovec_memset(QEMUIOVector *qiov, int c, size_t count)
{
    size_t n;
    int i;

    for (i = 0; i < qiov->niov && count; ++i) {
        n = MIN(count, qiov->iov[i].iov_len);
        memset(qiov->iov[i].iov_base, c, n);
        count -= n;
    }
}

P
Paolo Bonzini 已提交
270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286
#ifndef _WIN32
/* Sets a specific flag */
int fcntl_setfl(int fd, int flag)
{
    int flags;

    flags = fcntl(fd, F_GETFL);
    if (flags == -1)
        return -errno;

    if (fcntl(fd, F_SETFL, flags | flag) == -1)
        return -errno;

    return 0;
}
#endif

287 288 289 290 291 292 293
/*
 * Convert string to bytes, allowing either B/b for bytes, K/k for KB,
 * M/m for MB, G/g for GB or T/t for TB. Default without any postfix
 * is MB. End pointer will be returned in *end, if not NULL. A valid
 * value must be terminated by whitespace, ',' or '\0'. Return -1 on
 * error.
 */
294
int64_t strtosz_suffix(const char *nptr, char **end, const char default_suffix)
295
{
296
    int64_t retval = -1;
297 298
    char *endptr;
    unsigned char c, d;
299 300 301 302 303 304 305 306
    int mul_required = 0;
    double val, mul, integral, fraction;

    errno = 0;
    val = strtod(nptr, &endptr);
    if (isnan(val) || endptr == nptr || errno != 0) {
        goto fail;
    }
307 308
    fraction = modf(val, &integral);
    if (fraction != 0) {
309 310 311 312 313 314 315 316
        mul_required = 1;
    }
    /*
     * Any whitespace character is fine for terminating the number,
     * in addition we accept ',' to handle strings where the size is
     * part of a multi token argument.
     */
    c = *endptr;
J
Jes Sorensen 已提交
317
    d = c;
318
    if (qemu_isspace(c) || c == '\0' || c == ',') {
319
        c = 0;
J
Jes Sorensen 已提交
320 321 322 323 324
        if (default_suffix) {
            d = default_suffix;
        } else {
            d = c;
        }
325
    }
326
    switch (qemu_toupper(d)) {
327
    case STRTOSZ_DEFSUFFIX_B:
328 329 330 331 332
        mul = 1;
        if (mul_required) {
            goto fail;
        }
        break;
333
    case STRTOSZ_DEFSUFFIX_KB:
334 335 336 337 338 339
        mul = 1 << 10;
        break;
    case 0:
        if (mul_required) {
            goto fail;
        }
340
    case STRTOSZ_DEFSUFFIX_MB:
341 342
        mul = 1ULL << 20;
        break;
343
    case STRTOSZ_DEFSUFFIX_GB:
344 345
        mul = 1ULL << 30;
        break;
346
    case STRTOSZ_DEFSUFFIX_TB:
347 348 349 350 351 352 353 354 355 356 357 358 359
        mul = 1ULL << 40;
        break;
    default:
        goto fail;
    }
    /*
     * If not terminated by whitespace, ',', or \0, increment endptr
     * to point to next character, then check that we are terminated
     * by an appropriate separating character, ie. whitespace, ',', or
     * \0. If not, we are seeing trailing garbage, thus fail.
     */
    if (c != 0) {
        endptr++;
360
        if (!qemu_isspace(*endptr) && *endptr != ',' && *endptr != 0) {
361 362 363
            goto fail;
        }
    }
364
    if ((val * mul >= INT64_MAX) || val < 0) {
365 366 367 368 369 370 371 372 373 374 375
        goto fail;
    }
    retval = val * mul;

fail:
    if (end) {
        *end = endptr;
    }

    return retval;
}
J
Jes Sorensen 已提交
376

377
int64_t strtosz(const char *nptr, char **end)
J
Jes Sorensen 已提交
378 379 380
{
    return strtosz_suffix(nptr, end, STRTOSZ_DEFSUFFIX_MB);
}