/*
   gcc concurrency.c -o concurrency -Wall

   start two both a reader and a writer:

   ./concurrency
   ./concurrency 1
*/
#define _XOPEN_SOURCE 500
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <fcntl.h>
#include <unistd.h>
#include <assert.h>
#include <sys/file.h>

#define MAX_PAGESIZE 8192

int main(int argc, char *argv[])
{
	char buf[MAX_PAGESIZE*2], ones[4] = { 1, 1, 1, 1 };
	int fd, ret, pagesize;

	memset(buf, 0, sizeof(buf));

	pagesize = getpagesize();
	assert(pagesize <= MAX_PAGESIZE);

	buf[pagesize] = 'h';
	if (argc == 1) {
		printf("writing, page size = %d\n", pagesize);
		for (;;) {
			fd = open("foo2", O_RDWR | O_CREAT | O_TRUNC, 0600);
			if (fd == -1) {
				perror("open()");
				return 1;
			}
			if (rename("foo2", "foo") < 0)
				perror("rename()");
			usleep(rand() % 1000);

			if (flock(fd, LOCK_EX) < 0)
				perror("flock()");
			pwrite(fd, buf, pagesize+16, 0);
			//usleep(rand() % 1000);
			//fdatasync(fd);
			pwrite(fd, ones, 4, pagesize-4);
			if (flock(fd, LOCK_UN) < 0)
				perror("flock()");
			usleep(rand() % 1000);
			close(fd);
		}
	} else {
		printf("reading, page size = %d\n", pagesize);
		for (;; close(fd)) {
			fd = open("foo", O_RDWR, 0600);
			if (fd == -1) {
				perror("open()");
				return 1;
			}

			ret = pread(fd, buf, sizeof(buf), 0);
			if (ret < pagesize) {
				if (ret > 0)
					printf("less than a page: %d\n", ret);
				continue;
			}

			if (memcmp(buf + pagesize - 4, ones, 4) == 0) {
				if (ret == pagesize) {
					printf("page size cut\n");
				} else if (buf[pagesize] != 'h') {
					printf("broken data\n");
				}
			}
		}
	}
	return 0;
}