77 lines
2.8 KiB
C
77 lines
2.8 KiB
C
/** This is a test for `min_array.h`: takes an arbitrary stream, (Cntl-d stops
|
|
in some implementations of interactive terminals,) and greedily extracts
|
|
integers in the style of `strtol` until it gets to the end-of-file or a
|
|
null-terminator. */
|
|
|
|
#include <stdlib.h> /* size_t EXIT_ strtol */
|
|
#include <stdio.h> /* FILE fopen fclose fread [f]printf ferror perror */
|
|
#include <string.h> /* strpbrk */
|
|
#include <errno.h> /* errno */
|
|
#include <ctype.h> /* isdigit */
|
|
#include <limits.h> /* LONG_ INT_ _MIN _MAX */
|
|
#include <assert.h> /* assert */
|
|
#include "../src/min_array.h"
|
|
|
|
struct num { size_t line; int num; };
|
|
|
|
MIN_ARRAY(char, char)
|
|
MIN_ARRAY(num, struct num)
|
|
|
|
/** Reads the contents of `fp` after the file pointer and appends them to
|
|
`string`; adds a null-terminator. Does not check for nulls in `fp` or `string`.
|
|
@return Success, otherwise `string` may have read a partial read and may not
|
|
be terminated. @throws[fread, malloc] */
|
|
static int fp_to_str(FILE *const fp, struct char_array *const string) {
|
|
const size_t granularity = 1024;
|
|
size_t nread;
|
|
char *cursor;
|
|
assert(fp && string);
|
|
do if(!(cursor = char_array_buffer(string, granularity))
|
|
|| !char_array_append(string,
|
|
nread = fread(cursor, 1, granularity, fp))) return 0;
|
|
while(nread == granularity); assert(nread < granularity);
|
|
if(ferror(fp) || !(cursor = char_array_new(string))) return 0;
|
|
*cursor = '\0';
|
|
return 1;
|
|
}
|
|
|
|
/** Stores the entire stream and then stores the extracted `int` numbers. */
|
|
int main(void) {
|
|
int success = EXIT_FAILURE;
|
|
struct char_array str = MIN_ARRAY_IDLE;
|
|
struct num_array nums = MIN_ARRAY_IDLE;
|
|
struct num *num;
|
|
long big_num;
|
|
char *a, *anum = 0;
|
|
size_t i, line = 1 /* Unix: delimited by '\n'. */;
|
|
errno = 0; /* In case we are running it as part of another editor. */
|
|
if(!fp_to_str(stdin, &str)) goto catch;
|
|
/* It would be conceivable use the length to continue past the first
|
|
sentinel '\0', but not that complex. */
|
|
fprintf(stderr, "Read:\n<<<%s>>>\n", str.data);
|
|
for(a = str.data; a = strpbrk(a, "-0123456789\n"); ) {
|
|
if(*a == '\n') { line++; a++; continue; }
|
|
if(*a == '-') { anum = a++; continue; }
|
|
if(!anum || anum != a - 1) anum = a; /* Wasn't negative. */
|
|
big_num = strtol(anum, &a, 0);
|
|
if((!big_num || big_num == LONG_MIN || big_num == LONG_MAX) && errno)
|
|
goto catch; /* Long conversion failed, (not all platforms.) */
|
|
if(big_num < INT_MIN || big_num > INT_MAX)
|
|
{ errno = ERANGE; goto catch; }
|
|
if(!(num = num_array_new(&nums))) goto catch;
|
|
num->line = line;
|
|
num->num = (int)big_num;
|
|
}
|
|
fprintf(stderr, "Extracted:\n");
|
|
for(i = 0; i < nums.size; i++) printf("Line %lu: %d\n",
|
|
(unsigned long)nums.data[i].line, nums.data[i].num);
|
|
success = EXIT_SUCCESS;
|
|
goto finally;
|
|
catch:
|
|
fprintf(stderr, "Line %lu ", (unsigned long)line), perror("stdin");
|
|
finally:
|
|
char_array_(&str);
|
|
num_array_(&nums);
|
|
return success;
|
|
}
|