mirror of
https://github.com/carp-lang/Carp.git
synced 2024-09-17 16:38:14 +03:00
70 lines
1.4 KiB
C
70 lines
1.4 KiB
C
void IO_println(String *s) {
|
|
puts(*s);
|
|
}
|
|
void IO_print(String *s) {
|
|
printf("%s", *s);
|
|
}
|
|
|
|
void IO_errorln(String *s) {
|
|
fprintf(stderr, "%s\n", *s);
|
|
}
|
|
void IO_error(String *s) {
|
|
fprintf(stderr, "%s", *s);
|
|
}
|
|
|
|
char IO_EOF = (char)EOF;
|
|
|
|
String IO_get_MINUS_line() {
|
|
char *b = NULL;
|
|
size_t cap = 64;
|
|
size_t sofar = 0;
|
|
while (1) {
|
|
b = CARP_REALLOC(b, cap);
|
|
b[cap - 1] = -1;
|
|
if (!fgets(b + sofar, cap - sofar, stdin)) break;
|
|
sofar = cap - 1;
|
|
if (b[cap - 1] == -1) break;
|
|
cap *= 2;
|
|
}
|
|
return b;
|
|
}
|
|
|
|
String IO_read_MINUS_file(const String *filename) {
|
|
String buffer = 0;
|
|
Long length;
|
|
FILE *f = fopen(*filename, "rb");
|
|
|
|
if (f) {
|
|
fseek(f, 0, SEEK_END);
|
|
length = ftell(f);
|
|
fseek(f, 0, SEEK_SET);
|
|
buffer = CARP_MALLOC(length + 1);
|
|
if (buffer) {
|
|
size_t sz = fread(buffer, 1, length, f);
|
|
assert(sz == length);
|
|
buffer[sz] = '\0';
|
|
} else {
|
|
printf("Failed to open buffer from file: %s\n", *filename);
|
|
buffer = String_empty();
|
|
}
|
|
fclose(f);
|
|
} else {
|
|
printf("Failed to open file: %s\n", *filename);
|
|
buffer = String_empty();
|
|
}
|
|
|
|
return buffer;
|
|
}
|
|
|
|
char IO_fgetc(FILE *f) {
|
|
return (char)fgetc(f);
|
|
}
|
|
|
|
void IO_fclose(FILE *f) {
|
|
fclose(f);
|
|
}
|
|
|
|
FILE *IO_fopen(const String *filename, const String *mode) {
|
|
return fopen(*filename, *mode);
|
|
}
|