run.c

#include "run.h"

void put_in_buffer_1(char *c, struct buffer_rc *ptr){ //ajouter un element dans le buffer 1

    ptr->tab[ptr->head] = malloc(sizeof(char)*(strlen(c) + 1)); // on stoxke de espace
    if(ptr->tab[ptr->head] ==NULL){return;}
    strcpy(ptr->tab[ptr->head],c); //copie

    ptr->len++;
    ptr->head = (ptr->head + 1)%ptr->size; //chaque fois qu'un élément est ajouté,
    //on augmente le pointeur de 1 mais l'espace du buffer est de size donc faire un modulo

}

char *get_from_buffer_1(struct buffer_rc *ptr){ // chercher dans le buffer 1
    char *result;
    result = ptr->tab[ptr->tail]; // donne un valeur a result
    ptr->tab[ptr->tail] = NULL;
    ptr->len--; //diminue l'espace occupé dans le buffer
    ptr->tail = (ptr->tail + 1)%ptr->size;

    return result;
}

void put_in_buffer_2(struct queue *ptr, struct buffer_cw *buf){ //ajouter un element dans le buffer 2
    buf->tab[buf->head] = ptr;
    buf->len++; //augmente l'espace occupé dans le buffer
    buf->head = (buf->head + 1)%buf->size;
}

queue_t *get_from_buffer_2(struct buffer_cw *buf){ // trouver un element

    struct queue *result;
    result = buf->tab[buf->tail]; //donne une valeur a result
    buf->tab[buf->tail] = NULL;
    buf->len--; //diminue l'espace occupé par le buffer
    buf->tail = (buf->tail + 1)%buf->size;

    return result;
}


int is_div(unsigned long long number, unsigned long long i) { // Vérifie si i est un diviseur de number.
    return (number % i == 0) ; // renvoie 0 si le nombre n'est pas divisible par i et 1 si il est divisible
}


int is_prime(unsigned long long number) { // Vérifie si number est un nombre premier. Return 1 si il est premier, 0 sinon
    if (number != 2) {
        if (number  % 2 == 0) {
            return 0 ;
        }
    }
    for (unsigned long long i = 3 ; i*i <= number; i = i + 2) { //regarde les differents nombres pouvant etre diviser number
        if (is_div(number,i) != 0) { // si i peut diviser number
            return 0 ; //renvoi 0 => FAUX
        }
    }
    return 1 ; //sinon => VRAI
}

void enqueue(queue_t* q, unsigned long long val){

    struct node *ptr;
    ptr = malloc(sizeof(node_t));
    if (ptr == NULL){
        //free(ptr);
        return;}
    ptr->value = val;

    if (q->size == 0)
    {
        q->tail = ptr;
        ptr->next = ptr;
    }
    else{
        ptr->next = q->tail->next;
        q->tail->next = ptr;
    }
    q->size++;

}


queue_t* prime_divs(unsigned long long number){

    queue_t *ptr;
    ptr = malloc(sizeof(queue_t));
    if (ptr == NULL){
        free(ptr);
        return NULL;}
    ptr->size = 0;
    ptr->final = 0;

    for (unsigned long long i = 2; i <= number/2; i++){
        if (is_div(number, i) && is_prime(i) == 1){
            enqueue(ptr,i);
        }
    }
    enqueue(ptr,number);

    return ptr;

}

void *writing(void *param){

    struct buffer_cw *param1 = (struct buffer_cw *) param;
    int stop = 0;

    while(param1->stop == 0){

        sem_wait(&full2);
        pthread_mutex_lock(&mutex2);
        queue_t *pr_divs = get_from_buffer_2(param);
        pthread_mutex_unlock(&mutex2);
        sem_post(&empty2);

        if (pr_divs->final == 1)
        {

            if (stop == N-1){
                free(pr_divs);
                free(param1->tab);
                return NULL;
            }
            free(pr_divs);
            stop++;
        }
        else{
            FILE *file2 = param1->file2;

            node_t *current;
            current = pr_divs->tail;
            current = current->next;

            fprintf(file2,"%llu",current->value);
            node_t *toFree = current;
            current = current->next;


            for (int i = 1; i < pr_divs->size; i++)
            {
                free(toFree);
                toFree = current;
                fprintf(file2," %llu",current->value);
                current = current->next;
            }
            fputc('\n',file2);

            free(pr_divs->tail);
            free(pr_divs);
        }


    }

    return NULL;
}

void *calculating(void *param){

    struct buffer_rccw *param1 = (struct buffer_rccw *) param;

    struct buffer_rc *buffer_1 = param1->struct1;
    struct buffer_cw *buffer_2 = param1->struct2;
    unsigned long long number;

    while(buffer_1->stop == 0){

        sem_wait(&full1);
        pthread_mutex_lock(&mutex1);
        char *chaine = get_from_buffer_1(buffer_1);
        pthread_mutex_unlock(&mutex1);
        sem_post(&empty1);

        if (strcmp("stop",chaine) == 0)
        {
            struct queue *final;
            final = malloc(sizeof(queue_t));
            if (final == NULL){return NULL;}

            final->final = 1;

            sem_wait(&empty2);
            pthread_mutex_lock(&mutex2);
            put_in_buffer_2(final,buffer_2);
            pthread_mutex_unlock(&mutex2);
            sem_post(&full2);

            free(chaine);
            return NULL;
        }

        number = strtoll(chaine,NULL,0);
        if (number != 0 || strcmp("0\n",chaine) == 0)
        {
        struct queue *pr_divs;
        pr_divs = prime_divs(number);

        sem_wait(&empty2);
        pthread_mutex_lock(&mutex2);
        put_in_buffer_2(pr_divs,buffer_2);
        pthread_mutex_unlock(&mutex2);
        sem_post(&full2);
        free(chaine);
        }
        
    }

    return NULL;
}

void *reading (void *param){

    struct buffer_rc *param1= (struct buffer_rc *) param;

    char chaine[30];

    FILE *input;
    input = param1->file1;

    while (fgets(chaine,30,input) != NULL){

        sem_wait(&empty1);
        pthread_mutex_lock(&mutex1);

        put_in_buffer_1(chaine,param1);            //put each line in the buffer #1

        pthread_mutex_unlock(&mutex1);
        sem_post(&full1);
    }

    for (int i = 0; i < N; i++)
    {
        sem_wait(&empty1);
        pthread_mutex_lock(&mutex1);

        put_in_buffer_1("stop\0",param1);            //put each stop line in the buffer #1

        pthread_mutex_unlock(&mutex1);
        sem_post(&full1);
    }

    return NULL;

}

void sem_1_initializer(struct buffer_rc *buf){
    pthread_mutex_init(&mutex1,NULL);
    sem_init(&empty1,0,buf->size);
    sem_init(&full1,0,0);

}

void sem_2_initializer (struct buffer_cw *buf){

    pthread_mutex_init(&mutex2,NULL);
    sem_init(&empty2,0,buf->size);
    sem_init(&full2,0,0);

}

struct buffer_rc * buff_init_1(FILE *file1){

    struct buffer_rc *ptr1;
    ptr1 = malloc(sizeof(struct buffer_rc));
    if (ptr1 == NULL){
        free(ptr1);
        return NULL;}
    ptr1->tab = malloc(2*N*sizeof(char*));
    ptr1->size = 2*N;
    ptr1->len = 0;
    ptr1->head = 0;
    ptr1->tail = 0;
    ptr1->stop = 0;
    ptr1->file1 = file1;

    return ptr1;
}

struct buffer_cw * buff_init_2(FILE *file2){

    struct buffer_cw *ptr2;
    ptr2 = malloc(sizeof(struct buffer_cw));
    if (ptr2 == NULL){
        return NULL;}

    ptr2->tab = malloc(2*N*sizeof(struct queue*));

    ptr2->size = 2*N;
    ptr2->len = 0;
    ptr2->head = 0;
    ptr2->tail = 0;
    ptr2->stop = 0;
    ptr2->file2 = file2;

    return ptr2;
}

struct buffer_rccw *buff_init_12(struct buffer_rc *ptr1,struct buffer_cw *ptr2){

    struct buffer_rccw *ptr3;
    ptr3 = malloc(sizeof(struct buffer_rccw));
    if (ptr3 == NULL){return NULL;}
    ptr3->struct1 = ptr1;
    ptr3->struct2 = ptr2;

    return ptr3;
}

void thread_create_join(struct buffer_rc *ptr1,struct buffer_cw *ptr2,struct buffer_rccw *ptr3){
    pthread_t reader;
    pthread_t calculators[N];
    pthread_t writer;
    int err;
    err=pthread_create(&reader,NULL,&reading,ptr1);
    if(err != 0){return;}

    for (int i = 0; i < N; i++)
    {
        err=pthread_create(&calculators[i],NULL,&calculating,ptr3);
        if(err != 0){return;}
    }
    err = pthread_create(&writer,NULL,&writing,ptr2);
    if(err != 0){return;}

    err = pthread_join(reader,NULL);
    if(err != 0){return;}
    for (int i = 0; i < N; i++)
    {
        err = pthread_join(calculators[i],NULL);
        if(err != 0){return;}
    }
    err = pthread_join(writer,NULL);
    if(err != 0){return;}
}

void mut_sem_destroy(void){
    pthread_mutex_destroy(&mutex1);
    pthread_mutex_destroy(&mutex2);
    sem_destroy(&full1);
    sem_destroy(&full2);
    sem_destroy(&empty1);
    sem_destroy(&empty2);
}

int run (char *input,char *output, int n_threads){

    N = n_threads;

    printf("Lancement du programme avec %d threads \n",N);

    FILE *file1;
    FILE *file2;

    file1 = fopen(input,"r");
    if (file1 == NULL){
        printf("Sorry, file %s doesn't exist ): \n",input);
        return -1;}

    file2 = fopen(output,"w+");
    if (file2 == NULL){
        fclose(file1);
        return -1;
    }

    struct buffer_rc *ptr1 = buff_init_1(file1);
    struct buffer_cw *ptr2 = buff_init_2(file2);
    struct buffer_rccw *ptr3 = buff_init_12(ptr1,ptr2);


    sem_1_initializer(ptr1);
    sem_2_initializer(ptr2);

    thread_create_join(ptr1,ptr2,ptr3);
    mut_sem_destroy();


    fclose(file1);
    fclose(file2);
    free(ptr1->tab);
    free(ptr1);
    free(ptr2);
    free(ptr3);

    return EXIT_SUCCESS;

}