#include <string.h>
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include "instr_hosts.h"

static char *getItem(char *line, char *name, char *value, int value_len) {
  char find[32];
  char *found, *sp, *result;
  int l;
  
  snprintf(find, sizeof find, "%s=%s", name, value);
  found = strstr(line, find);
  if (found && *value != '\0' && found[strlen(find)] > ' ' && found[strlen(find)] != '.') {
    /* when value is given, it must be complete, (a dot or a space terminates the value) */
    found = NULL;
  }
  if (found) {
    found += strlen(name)+1;
    if (value_len == 0) {
      result = found;
    } else {
      sp = strchr(found, ' ');
      if (sp && sp < found + value_len) {
        l = sp - found;
      } else {
        l = strlen(found);
      }
      if (l < value_len) {
        strncpy(value, found, l);
        value[l] = '\0';
        result = value;
      } else {
        value[0] = '\0';
        result = NULL;
      }
    }
  } else {
    if (value_len > 0) {
      *value = '\0';
    }
    result = NULL;
  }
  return result;
}

int InstrHost(char *service, char *input, char *instr, int instr_len,
              char *host, int host_len, int *port) {
  int i;
  FILE *fil, *lfil;
  char *hostlist;
  char localhostlist[512];
  char line[512], lline[512], hostport[64];
  char *found, *colon, *crit;
  int dirty, home, finished;
  
  home = 0;
  hostlist = getenv("InstrumentHostList");
  if (!hostlist) {
    hostlist="/afs/psi.ch/project/sinq/common/lib/sea/hostlist";
  }
  fil = fopen(hostlist, "r");
  snprintf(localhostlist, sizeof localhostlist, "%s/.six/hostlist", getenv("HOME"));
  lfil = fopen(localhostlist, "r");
  dirty = 0;
  if (fil) {
    if (!lfil) dirty = 1;
  } else {
    if (!lfil) return 0;
    fil = lfil;
    lfil = NULL;
  }
  *port = 0;
  if (input == NULL || input[0] <= ' ') {
    crit = "host";
    input = getenv("HOST");
  } else {
    crit = "instr";
  }
  finished = 0;
  while (NULL != fgets(line, sizeof line, fil)) {
    if (!dirty && lfil
               && (fgets(lline, sizeof lline, lfil) == NULL
                   || strcmp(line, lline) != 0)) {
      dirty = 1;
    }
    if (!finished && getItem(line, crit, input, 0) != NULL) {
      hostport[0]='\0';
      found = getItem(line, service, hostport, sizeof hostport);
      if (found) {
        instr[0] = '\0';
        getItem(line, "instr", instr, instr_len);
        colon = strchr(hostport, ':');
        if (colon) {
          i = atoi(colon+1);
          if (i > 0) {
            *colon='\0';
            snprintf(host, host_len, "%s", hostport);
            finished = 1;
            *port = i;
            if (getItem(line, "host", getenv("HOST"), 0) != NULL) {
              home = 1;
            }
          }
        }
      }
    }
  }
  if (fil) fclose(fil);
  if (lfil) fclose(lfil);
  if (dirty) {
    fil = fopen(hostlist, "r");
    if (fil) {
      lfil = fopen(localhostlist, "w");
      if (lfil) {
        while( EOF != (i = getc(fil)) ) { /* copy file to local file */ 
          putc(i, lfil); 
        }
        fclose(lfil);
      }
      fclose(fil);
    }
  }
  return home;
}


#ifdef MYC_FORTRAN
/* compile only when fortran c interface stuff is defined */

#include "myc_fortran.h"

int F_FUN(instr_host)(F_CHAR(service), F_CHAR(input), F_CHAR(instr), F_CHAR(host), int *port
                     , int service_len, int input_len, int instr_len, int host_len) {
  char buf[256], in[256], ho[256], sv[256];
  int iRet;

  STR_TO_C(sv, service);
  STR_TO_C(buf, input);
  iRet=InstrHost(sv, buf, in, sizeof(in), ho, sizeof(ho), port);
  if (*port>0) {
    STR_TO_F(instr, in);
    STR_TO_F(host, ho);
  }
  return iRet;
}

#endif