1/* copyright (c) 2022 - 2026 grunfink et al. / MIT license */
 2
 3#ifndef _XS_IO_H
 4
 5#define _XS_IO_H
 6
 7xs_str *xs_readline(FILE *f);
 8xs_val *xs_read(FILE *f, int *size);
 9xs_val *xs_readall(FILE *f);
10
11
12#ifdef XS_IMPLEMENTATION
13
14xs_str *xs_readline(FILE *f)
15/* reads a line from a file */
16{
17    xs_str *s = xs_str_new(NULL);
18
19    errno = 0;
20
21    /* don't even try on eof */
22    if (!feof(f)) {
23        int c;
24
25        while ((c = fgetc(f)) != EOF) {
26            unsigned char rc = c;
27
28            if (xs_is_string((char *)&rc))
29                s = xs_append_m(s, (char *)&rc, 1);
30
31            if (c == '\n')
32                break;
33        }
34    }
35
36    return s;
37}
38
39
40xs_val *xs_read(FILE *f, int *sz)
41/* reads up to size bytes from f */
42{
43    xs_val *s  = NULL;
44    int size   = *sz;
45    int rdsz   = 0;
46
47    errno = 0;
48
49    while (size > 0 && !feof(f)) {
50        char tmp[4096];
51        int n, r;
52
53        if ((n = sizeof(tmp)) > size)
54            n = size;
55
56        if ((r = fread(tmp, 1, n, f)) == 0)
57            break;
58
59        /* open room */
60        s = xs_realloc(s, rdsz + r);
61
62        /* copy read data */
63        memcpy(s + rdsz, tmp, r);
64
65        rdsz += r;
66        size -= r;
67    }
68
69    /* null terminate, just in case it's treated as a string */
70    s = xs_realloc(s, _xs_blk_size(rdsz + 1));
71    s[rdsz] = '\0';
72
73    *sz = rdsz;
74
75    return s;
76}
77
78
79xs_val *xs_readall(FILE *f)
80/* reads the rest of the file into a string */
81{
82    int size = XS_ALL;
83
84    return xs_read(f, &size);
85}
86
87
88#endif /* XS_IMPLEMENTATION */
89
90#endif /* _XS_IO_H */