#include "gb_common.h"

#include "gb_spi.h"

#include <stdio.h>

#include <string.h>

#include <errno.h>

#include <math.h>

#include <stdlib.h>

#include "mpi.h"   /* PROVIDES THE BASIC MPI DEFINITION AND TYPES */

#define STORED 2
void setup_gpio()
{
   INP_GPIO(8);  SET_GPIO_ALT(8,0);
   INP_GPIO(9);  SET_GPIO_ALT(9,0);
   INP_GPIO(10); SET_GPIO_ALT(10,0);
   INP_GPIO(11); SET_GPIO_ALT(11,0);
} // setup_gpio

int main(int argc, char **argv) {
  
	int my_rank; 
  	int partner;
	int namelen;
  	int size, i,t;
	int j=0;
  	char greeting[100];
	char processor_name[MPI_MAX_PROCESSOR_NAME];
  	MPI_Status stat;

printf("I can normally get here!\n");
		
	// /dev/mem error happens after this point

	setup_io();	// /dev/mem seems to be called inside here!
printf("Could you get past setup_io()? I couldn't.\n");
	setup_gpio();	
	setup_spi();
  
	printf("Setup of normal things done\n");

  	MPI_Init(&argc, &argv); /*START MPI */
  	MPI_Comm_rank(MPI_COMM_WORLD, &my_rank); /*DETERMINE RANK OF THIS PROCESSOR*/
  	MPI_Comm_size(MPI_COMM_WORLD, &size); /*DETERMINE TOTAL NUMBER OF PROCESSORS*/
  	MPI_Get_processor_name(processor_name,&namelen);
  
	printf("Ready to begin.\n");
	getchar();
  
  
for(i=0;i<STORED;i++)
{
  
  if (my_rank ==0) {
    
    for (partner = 1; partner < size; partner++){
	
	sprintf(greeting, "Hello world: processor %d of %d. %s is sampling.\n", my_rank, size, processor_name);
	
      	MPI_Send(greeting, strlen(greeting)+1, MPI_BYTE, 1,1,MPI_COMM_WORLD);
	fputs(greeting, stdout);

	sprintf(greeting, "Hello world: processor %d of %d. Processing the samples.\n", my_rank, size);

      	MPI_Recv(greeting, sizeof(greeting), MPI_BYTE, partner, 1, MPI_COMM_WORLD, &stat);
      	fputs (greeting, stdout);
      
    }
  }
  else {
	MPI_Recv(greeting, sizeof(greeting), MPI_BYTE, 0, 1, MPI_COMM_WORLD, &stat);

	sprintf(greeting, "Hello world: processor %d of %d. %s is sampling.\n", my_rank, size, processor_name);

	//fputs(greeting, stdout);
	//fputs (greeting, stdout);
    	MPI_Send(greeting, strlen(greeting)+1, MPI_BYTE, 0,1,MPI_COMM_WORLD);

	sprintf(greeting, "Hello world: processor %d of %d. Processing the samples.\n", my_rank, size);	
  }
  
  
  
  	if (my_rank == 0) printf("That is all for now!\n");
}
if(my_rank == 0) printf("That really is all for now, folks!\n");
MPI_Finalize();  /* EXIT MPI */
  
}