#define _GNU_SOURCE
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <pthread.h>
#include <errno.h>
#include <unistd.h>
#include <sys/syscall.h>
#include <sys/mman.h>
#include <signal.h>

int flag1;
pthread_mutex_t mutex1;
pthread_cond_t cond1;

int flag2;
pthread_mutex_t mutex2;
pthread_cond_t cond2;

char *m;

int sigst;
pthread_t thr;

void
sigsegv(int s)
{
	if (sigst == 1) {
		fprintf(stderr, "CT03007 mprotect OK (SIGSEGV)\n");

		pthread_mutex_lock(&mutex2);
		flag2 = 1;
		pthread_cond_signal(&cond2);
		pthread_mutex_unlock(&mutex2);

		pthread_join(thr, NULL);
		fprintf(stderr, "CT03009 pthread_join OK\n");
		fprintf(stderr, "CT03010 END\n");
		exit(0);
	}
	printf("BAD SIGSEGV\n");
	exit(1);
}

void *
util_thread(void *arg)
{
	int rc;

	rc = syscall(732);
	if (rc == -1)
		fprintf(stderr, "CT03003 get_system OK\n");
	else {
		fprintf(stderr, "CT03003 get_system NG get_system=%d\n", rc);
		exit(1);
	}
	errno = 0;
	m = mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 0);
	if (m != (void *)-1) {
		fprintf(stderr, "CT03004 mmap OK\n");
	}
	else {
		fprintf(stderr, "CT03004 mmap NG errno=%d\n", errno);
		exit(1);
	}
	strcpy(m, "mmap OK");

	pthread_mutex_lock(&mutex1);
	flag1 = 1;
	pthread_cond_signal(&cond1);
	pthread_mutex_unlock(&mutex1);

	pthread_mutex_lock(&mutex2);
	while (!flag2) {
		pthread_cond_wait(&cond2, &mutex2);
	}
	flag2 = 0;
	pthread_mutex_unlock(&mutex2);

	rc = mprotect(m, 4096, PROT_READ);
	if (rc == 0) {
		fprintf(stderr, "CT03006 mprotect OK\n");
	}
	else {
		fprintf(stderr, "CT03006 mprotect NG errno=%d\n", errno);
		exit(1);
	}
	pthread_mutex_lock(&mutex1);
	flag1 = 1;
	pthread_cond_signal(&cond1);
	pthread_mutex_unlock(&mutex1);

	pthread_mutex_lock(&mutex2);
	while (!flag2) {
		pthread_cond_wait(&cond2, &mutex2);
	}
	flag2 = 0;
	pthread_mutex_unlock(&mutex2);

	rc = munmap(m, 4096);
	if (rc == 0) {
		fprintf(stderr, "CT03008 munmap OK\n");
	}
	else {
		fprintf(stderr, "CT03008 munmap NG errno=%d\n", errno);
		exit(1);
	}
	return NULL;
}

int
main(int argc, char **argv)
{
	int rc;

	signal(SIGSEGV, sigsegv);
	pthread_mutex_init(&mutex1, NULL);
	pthread_cond_init(&cond1, NULL);
	pthread_mutex_init(&mutex2, NULL);
	pthread_cond_init(&cond2, NULL);

	fprintf(stderr, "CT03001 mprotect START\n");
	rc = syscall(731, 1, NULL);
	if (rc) {
		fprintf(stderr, "util_indicate_clone rc=%d, errno=%d\n", rc, errno);
		fflush(stderr);
	}
	rc = pthread_create(&thr, NULL, util_thread, NULL);
	if(rc){
		fprintf(stderr, "pthread_create: %d\n", rc);
		exit(1);
	}
	fprintf(stderr, "CT03002 pthread_create OK\n");

	pthread_mutex_lock(&mutex1);
	while (!flag1) {
		pthread_cond_wait(&cond1, &mutex1);
	}
	flag1 = 0;
	pthread_mutex_unlock(&mutex1);

	fprintf(stderr, "CT03005 %s\n", m);

	pthread_mutex_lock(&mutex2);
	flag2 = 1;
	pthread_cond_signal(&cond2);
	pthread_mutex_unlock(&mutex2);
	

	pthread_mutex_lock(&mutex1);
	while (!flag1) {
		pthread_cond_wait(&cond1, &mutex1);
	}
	flag1 = 0;
	pthread_mutex_unlock(&mutex1);

	sigst = 1;
	strcpy(m, "mprotect NG");
	fprintf(stderr, "%s\n", m);
	fprintf(stderr, "CT03007 mprotect NG\n");

	pthread_mutex_lock(&mutex2);
	flag2 = 1;
	pthread_cond_signal(&cond2);
	pthread_mutex_unlock(&mutex2);

	pthread_join(thr, NULL);
	fprintf(stderr, "CT03009 pthread_join OK\n");
	fprintf(stderr, "CT03010 END\n");
	exit(0);
}