/*---------------------------------------------------------------------
 AMOR component handling module. For the new (2005) calculation of the
 positions using the beam height as zero.
 
 copyright: see file COPYRIGHT
 
 Mark Koennecke, October  2005
-----------------------------------------------------------------------*/
#include "amorcomp.h"
#define ABS(x) (x < 0 ? -(x) : (x))

double calcCompPosition(pamorComp comp)
{
  return ABS(comp->scaleOffset - comp->markOffset - comp->readPosition);
}

/*-------------------------------------------------------------------*/
int handleCompCommand(pamorComp comp, SConnection * pCon,
                      int argc, char *argv[])
{
  char pBueffel[512];

  if (argc < 3) {
    SCWrite(pCon, "ERROR: not enough arguments", eError);
    return 0;
  }
  strtolower(argv[2]);
  if (strcmp(argv[2], "list") == 0) {
    snprintf(pBueffel, 511,
             "%s %s active = %d\n%s %s offset = %f\n%s %s scaleoffset = %f\n%s %s read = %f\n%s %s calc = %f\n",
             argv[0], argv[1], comp->activeFlag,
             argv[0], argv[1], comp->markOffset,
             argv[0], argv[1], comp->scaleOffset,
             argv[0], argv[1], comp->readPosition,
             argv[0], argv[1], calcCompPosition(comp));
    SCWrite(pCon, pBueffel, eValue);
    return 1;
  } else if (strcmp(argv[2], "active") == 0) {
    if (argc > 3) {
      if (!SCMatchRights(pCon, usUser)) {
        return 0;
      }
      SCparChange(pCon);
      comp->activeFlag = atoi(argv[3]);
      SCSendOK(pCon);
      return 1;
    } else {
      snprintf(pBueffel, 511, " %s %s active = %d",
               argv[0], argv[1], comp->activeFlag);
      SCWrite(pCon, pBueffel, eValue);
      return 1;
    }
  } else if (strcmp(argv[2], "offset") == 0) {
    if (argc > 3) {
      if (!SCMatchRights(pCon, usUser)) {
        return 0;
      }
      SCparChange(pCon);
      comp->markOffset = atof(argv[3]);
      SCSendOK(pCon);
      return 1;
    } else {
      snprintf(pBueffel, 511, " %s %s offset = %f",
               argv[0], argv[1], comp->markOffset);
      SCWrite(pCon, pBueffel, eValue);
      return 1;
    }
  } else if (strcmp(argv[2], "scaleoffset") == 0) {
    if (argc > 3) {
      if (!SCMatchRights(pCon, usUser)) {
        return 0;
      }
      comp->scaleOffset = atof(argv[3]);
      SCparChange(pCon);
      SCSendOK(pCon);
      return 1;
    } else {
      snprintf(pBueffel, 511, " %s %s scaleoffset = %f",
               argv[0], argv[1], comp->scaleOffset);
      SCWrite(pCon, pBueffel, eValue);
      return 1;
    }
  } else if (strcmp(argv[2], "read") == 0) {
    if (argc > 3) {
      if (!SCMatchRights(pCon, usUser)) {
        return 0;
      }
      comp->readPosition = atof(argv[3]);
      SCparChange(pCon);
      SCSendOK(pCon);
      return 1;
    } else {
      snprintf(pBueffel, 511, " %s %s read = %f",
               argv[0], argv[1], comp->readPosition);
      SCWrite(pCon, pBueffel, eValue);
      return 1;
    }
  } else if (strcmp(argv[2], "calc") == 0) {
    snprintf(pBueffel, 511, " %s %s calc = %f",
             argv[0], argv[1], calcCompPosition(comp));
    SCWrite(pCon, pBueffel, eValue);
    return 1;
  } else {
    snprintf(pBueffel, 511, "ERROR: subcommand %s to %s %s not understood",
             argv[2], argv[0], argv[1]);
    SCWrite(pCon, pBueffel, eError);
    return 0;
  }
  return 1;
}

/*------------------------------------------------------------------------*/
int saveAmorComp(FILE * fd, char *name, char *compname, pamorComp comp)
{
  fprintf(fd, "%s %s active %d\n", name, compname, comp->activeFlag);
  fprintf(fd, "%s %s offset %f\n", name, compname, comp->markOffset);
  fprintf(fd, "%s %s scaleoffset %f\n", name, compname, comp->scaleOffset);
  fprintf(fd, "%s %s read %f\n", name, compname, comp->readPosition);
  return 1;
}