/*
 * Leitores e escritores utilizando semáforos.
 * Possibilidade de leitores simultâneos, mas
 * também de starvation dos escritores.
 */

#include <pthread.h>
#include <semaphore.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#define NL 10
#define NE 3

sem_t sem_bd;
volatile int bd = -1; /* Banco de dados */

sem_t sem_nl;
volatile int nl = 0;

void *leitor(void* v) {
  int id = *(int*) v;

  sem_wait(&sem_nl);
  nl++;
  if (nl == 1)
    sem_wait(&sem_bd);
  sem_post(&sem_nl);
  printf("Leitor %d leu o valor %d \n", id, bd);
  sleep(random() % 5 + 1);
  sem_wait(&sem_nl);
  nl--;
  if (nl == 0)
    sem_post(&sem_bd);
  sem_post(&sem_nl);
  return NULL;
}

void *escritor(void *v) {
  int id = *(int*) v;
  
  sem_wait(&sem_bd);
  bd = id;
  printf("Escritor %d escreveu o valor %d \n", id, bd);
  sem_post(&sem_bd);

  return NULL;
}

void *gera_leitores(void *v) {
  pthread_t thr_l[NL];
  int l_id[NL];
  int i;

  for (i = 0; i < NL ; i++) {
    l_id[i] = i;
    pthread_create(&thr_l[i], NULL, leitor, &l_id[i]);
    sleep(1); 
  }
  
  for (i = 0; i < NL; i++) 
    pthread_join(thr_l[i], NULL);
  
  return NULL;
}

void *gera_escritores(void *v) {
  pthread_t thr_e[NE];
  int e_id[NE];
  int i;

  for (i = 0; i < NE; i++) {
    e_id[i] = i;
    pthread_create(&thr_e[i], NULL, escritor, &e_id[i]);
    sleep(1);
  }
  
  for (i = 0; i < NE; i++) 
    pthread_join(thr_e[i], NULL);
    
  return NULL;
}

int main() {
  pthread_t thr_gera_esc, thr_gera_leit;

  sem_init(&sem_bd, 0, 1);
  sem_init(&sem_nl, 0, 1);
  
  pthread_create(&thr_gera_leit, NULL, gera_leitores, NULL);
  pthread_create(&thr_gera_esc, NULL, gera_escritores, NULL);

  pthread_join(thr_gera_leit, NULL);
  pthread_join(thr_gera_esc, NULL);

  return 0;
}