X-Git-Url: https://plomlompom.com/repos/?a=blobdiff_plain;f=src%2Freadwrite.c;h=e6660ae4238ef9ed16a0ad0dfc2634c9e865b5ce;hb=e9ee94eeb27e1121f8383cb6fc3775f18261df75;hp=34ec09beecb86d8ee1e06624163143ca8b71e617;hpb=47d7b87570ce3c79d3e0a6b8e765c74d065b6ba5;p=plomrogue diff --git a/src/readwrite.c b/src/readwrite.c index 34ec09b..e6660ae 100644 --- a/src/readwrite.c +++ b/src/readwrite.c @@ -1,38 +1,170 @@ +/* readwrite.c */ + #include "readwrite.h" -#include -#include -#include - -static const uint16_t uchar_s = UCHAR_MAX + 1; - -extern uint16_t read_uint16_bigendian(FILE * file) { -// Read uint16 from file in big-endian order. - unsigned char a = fgetc(file); - unsigned char b = fgetc(file); - return (a * uchar_s) + b; } - -extern void write_uint16_bigendian(uint16_t x, FILE * file) { -// Write uint16 to file in beg-endian order. - unsigned char a = x / uchar_s; - unsigned char b = x % uchar_s; - fputc(a, file); - fputc(b, file); } - -extern uint32_t read_uint32_bigendian(FILE * file) { -// Read uint32 from file in big-endian order. - unsigned char a = fgetc(file); - unsigned char b = fgetc(file); - unsigned char c = fgetc(file); - unsigned char d = fgetc(file); - return (a * uchar_s * uchar_s * uchar_s) + (b * uchar_s * uchar_s) + (c * uchar_s) + d; } - -extern void write_uint32_bigendian(uint32_t x, FILE * file) { -// Write uint32 to file in beg-endian order. - unsigned char a = x / (uchar_s * uchar_s * uchar_s); - unsigned char b = (x - (a * uchar_s * uchar_s * uchar_s)) / (uchar_s * uchar_s); - unsigned char c = (x - ((a * uchar_s * uchar_s * uchar_s) + (b * uchar_s * uchar_s))) / uchar_s; - unsigned char d = x % uchar_s; - fputc(a, file); - fputc(b, file); - fputc(c, file); - fputc(d, file); } +#include /* for size_t */ +#include /* for FILE typedef, fopen(), fgetc(), fputc(), fseek(), + * sprintf(), fwrite(), ferror() + */ +#include /* for uint8_t, uint16_t, uint32_t */ +#include /* for strlen() */ +#include /* for unlink() */ +#include "rexit.h" /* for exit_err(), exit_trouble() */ + + + +extern FILE * try_fopen(char * path, char * mode, char * f) +{ + char * msg1 = "Trouble in "; + char * msg2 = " with fopen() (mode '"; + char * msg3 = "') on path '"; + char * msg4 = "'."; + uint16_t size = strlen(msg1) + strlen(msg2) + strlen(msg3) + strlen(msg4) + + strlen(f) + strlen(path) + strlen(mode) + 1; + char msg[size]; + sprintf(msg, "%s%s%s%s%s%s%s", msg1, f, msg2, mode, msg3, path, msg4); + FILE * file_p = fopen(path, mode); + exit_err(NULL == file_p, msg); + return file_p; +} + + + +extern void try_fclose(FILE * file, char * f) +{ + exit_trouble(fclose(file), f, "fclose()"); +} + + + +extern void try_fwrite(void * ptr, size_t size, size_t nmemb, FILE * stream, + char * f) +{ + exit_trouble(0 == fwrite(ptr, size, nmemb, stream), f, "fwrite()"); +} + + + +extern void try_fputc(uint8_t c, FILE * file, char * f) +{ + exit_trouble(EOF == fputc(c, file), f, "fputc()"); +} + + + +extern char * try_fgets(char * line, int linemax, FILE * file, char * f) +{ + char * test = fgets(line, linemax, file); + exit_trouble(NULL == test && ferror(file), f, "fgets()"); + return test; +} + + + +extern int try_fgetc(FILE * file, char * f) +{ + int test = fgetc(file); + exit_trouble(EOF == test && ferror(file), f, "fgetc()"); + return test; +} + + + +extern uint8_t try_fgetc_noeof(FILE * file, char * f) +{ + char * f_name = "try_fgetc_noeof()"; + int test = try_fgetc(file, f_name); + exit_trouble(EOF == test, f, "fgetc() unexpectedly hitting EOF"); + return (uint8_t) test; +} + + + +extern void try_fclose_unlink_rename(FILE * file, char * p1, char * p2, + char * f) +{ + try_fclose(file, f); + char * msg1 = "Trouble in "; + char * msg4 = "'."; + if (!access(p2, F_OK)) + { + char * msg2 = " with unlink() on path '"; + uint16_t size = strlen(msg1) + strlen(msg2) + strlen(msg4) + + strlen(f) + strlen(p2) + 1; + char msg[size]; + sprintf(msg, "%s%s%s%s%s", msg1, f, msg2, p2, msg4); + exit_err(unlink(p2), msg); + } + char * msg2 = " with rename() from '"; + char * msg3 = "' to '"; + uint16_t size = strlen(msg1) + strlen(f) + strlen(msg2) + strlen(p1) + + strlen(msg3) + strlen(p2) + strlen(msg4) + 1; + char msg[size]; + sprintf(msg, "%s%s%s%s%s%s%s", msg1, f, msg2, p1, msg3, p2, msg4); + exit_err(rename(p1, p2), msg); +} + + + +extern uint16_t textfile_sizes(FILE * file, uint16_t * n_lines_p) +{ + char * f_name = "textfile_sizes()"; + int c = 0; + uint16_t c_count = 0; + uint16_t n_lines = 0; + uint16_t linemax = 0; + while (1) + { + c = try_fgetc(file, f_name); + if (EOF == c) + { + break; + } + c_count++; + if ('\n' == c) + { + if (c_count > linemax) + { + linemax = c_count; + } + c_count = 0; + if (n_lines_p) + { + n_lines++; + } + } + } + if (0 == linemax && 0 < c_count) /* Handle files that consist of only one */ + { /* line / lack newline chars. */ + linemax = c_count; + } + exit_trouble(-1 == fseek(file, 0, SEEK_SET), f_name, "fseek()"); + if (n_lines_p) + { + * n_lines_p = n_lines; + } + return linemax; +} + + + +extern uint32_t read_uint32_bigendian(FILE * file) +{ + char * f_name = "read_uint32_bigendian()"; + uint32_t x; + x = (uint32_t) try_fgetc_noeof(file, f_name) << 24; + x = x + ( (uint32_t) try_fgetc_noeof(file, f_name) << 16 ); + x = x + ( (uint32_t) try_fgetc_noeof(file, f_name) << 8 ); + x = x + (uint32_t) try_fgetc_noeof(file, f_name); + return x; +} + + + +extern void write_uint32_bigendian(uint32_t x, FILE * file) +{ + char * f_name = "write_uint32_bigendian()"; + try_fputc( x >> 24, file, f_name); + try_fputc( ( x >> 16 ) & 0xFF, file, f_name); + try_fputc( ( x >> 8 ) & 0xFF, file, f_name); + try_fputc( x & 0xFF, file, f_name); +}