#include <Python.h>
#include <stdio.h>
#include <sys/types.h>
#include <signal.h>
#include <unistd.h>
#include <stdlib.h>

#define MAX_STR_LEN 255

void catch_int(int sig_num);
void catch_usr1(int sig_num);
void write_run_file();
void run_action(char *line);
void run_script_function(char *fname, char *func);

int main(int argc, char *argv[]) {

  signal(SIGUSR1, catch_usr1);
  /*signal(SIGINT, catch_int);*/

  write_run_file();

  Py_SetProgramName(argv[0]);
  Py_Initialize();

  while(1) {
    printf("Still Alive!\n");
    sleep(1);
  }

  Py_Finalize();

  return 0;

}

void write_run_file() {

  FILE *fh;

  fh = fopen("test.RUN", "w");
  if(fh == NULL) {
    printf("Could not open .RUN file.\n");
    exit(1);
  }

  fprintf(fh, "%i", getpid());

  fclose(fh);

}

void catch_int(int sig_num) {

  exit(1);

}

void catch_usr1(int sig_num) {

  FILE *fh;
  char line[MAX_STR_LEN];

  sigset_t mask_set, old_set;

  /* reset for next time */
  signal(SIGUSR1, catch_usr1);

  /* mask any further signals */
  sigfillset(&mask_set);
  sigprocmask(SIG_SETMASK, &mask_set, &old_set);

  printf("Caught SIGUSR1\n");

  fh = fopen("action", "r");
  if(fh == NULL) {
    printf("Could not open file.\n");
    return;
  }
  
  while(fgets(line, MAX_STR_LEN, fh)) {
    printf("Running %s\n", line);
    run_action(line);
    printf("Finished action\n");
    fflush(stdout);
    fflush(stderr);
  }

  fclose(fh);

  /* restore old signal mask */
  sigprocmask(SIG_SETMASK, &old_set, NULL);

}

void run_action(char *line) {

  char *action, *fname, *func;
  char py_fun[] = "PYFUN";

  action = strtok(line, " ");

  if(strlen(action) == 0) {
    return;
  }

  if(strcmp(action, py_fun) == 0) {
    fname = strtok(NULL, " ");
    func = strtok(NULL, " ");
    run_script_function(fname, func);
  }

}

void run_script_function(char *fname, char *func) {

  FILE *fh;
  char call[MAX_STR_LEN];

  fh = fopen(fname, "r");
  if(fh == NULL) {
    printf("Could not open file %s\n", fname);
    exit(1);
  }

  PyRun_SimpleFile(fh, fname);

  fclose(fh);

  strcpy(call, func);
  strcat(call, "()");

  PyRun_SimpleString(call);

}