Ticket #1475: fortune.c

/*
** Copyright 2002-2004, The OpenBeOS Team. All rights reserved.
** Distributed under the terms of the OpenBeOS License.
*/

#include <unistd.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <errno.h>

#include <OS.h>

#define FORTUNES "/etc/fortunes/default"

int
main(void)
{
    int fd;
    int rc;
    char *buf;
    unsigned i;
    unsigned found;
    struct stat stat;

    fd = open(FORTUNES, O_RDONLY, 0);
    if (fd < 0) {
        printf("Couldn't open %s: %s\n", FORTUNES, strerror(errno));
        return -1;
    }

    rc = fstat(fd, &stat);
    if (rc < 0) {
        printf("stat() failed: %s\n", strerror(errno));
        return -1;
    }

    buf = malloc(stat.st_size + 1);
    rc = read(fd, buf, stat.st_size);
    if (rc < 0) {
        printf("Could not read from fortune file: %s\n", strerror(errno));
        return -1;
    }

    buf[stat.st_size] = 0;
    close(fd);

    found = 0;
    for (i = 0; i < stat.st_size; i++) {
        if (!strncmp(buf + i, "%\n", 2))
            found += 1;
    }

    if (found > 0)
        found = 1 + ((system_time() + 1) % found);
    else {
        printf("Out of cookies...\n");
        return -1;
    }

    for (i = 0; i < stat.st_size; i++) {
        if (!strncmp(buf + i, "%\n", 2))
            found -= 1;

        if (found == 0) {
            unsigned j;

            for (j = i + 1; j < stat.st_size; j++) {
                if (!strncmp(buf + j, "\n%\n", 3))
                    buf[j] = 0;
            }

            printf("%s\n", buf + i + 1);
            break;
        }
    }

    return 0;
}