---

inilube.cc

Go to the documentation of this file.

/*
  inilube.cc

  INI file initialization for lube controller

  Modification history:

  19-May-2000  FMP added LUBE_WRITE_INDEX,POLARITY
  21-Sep-1999  WPS eliminate sscanf and printf calls not supported under CE.
  23-Apr-1998  FMP created from inispin.cc
  */

extern "C" {
#ifndef UNDER_CE
#include <stdio.h>              // NULL
#endif
#include <stdlib.h>             // atol()
}

#include "emc.hh"
#include "inifile.h"
#include "inilube.hh"           // these decls
#include "emcglb.h"             // LUBE_SENSE_INDEX, etc

// inifile ref'ed by iniLube(), loadLube()
static INIFILE *lubeInifile = 0;

/*
  loadLube()

  Loads ini file params for lube from [EMCIO] section

  LUBE_SENSE_INDEX <int>     dio input point for lube level sense
  LUBE_SENSE_POLARITY <0,1>  polarity for lube level sense input
  LUBE_WRITE_INDEX <int>     dio output point for lube pump
  LUBE_WRITE_POLARITY <0,1>  polarity for lube pump output

  calls:

  emcLubeSetSenseIndex(int index);
  emcLubeSetSensePolarity(int polarity);
  emcLubeSetWriteIndex(int index);
  emcLubeSetWritePolarity(int polarity);
  */

static int loadLube()
{
  int retval = 0;
  const char *inistring;
  int i;

  if (NULL != (inistring = lubeInifile->find("LUBE_SENSE_INDEX", "EMCIO")))
    {
#ifndef UNDER_CE
      if (1 == sscanf(inistring, "%d", &i))
        {
          // found, and valid
          if (0 != emcLubeSetSenseIndex(i))
            {
              printf("bad return value from emcLubeSetSenseIndex\n");
              retval = -1;
            }
        }
      else
        {
          // found, but invalid, so warn
          printf("invalid inifile value for LUBE_SENSE_INDEX: %s\n",
                          inistring);
        }
#else
      i = atol(inistring);
      if (0 != emcLubeSetSenseIndex(i))
        {
          rcs_print("bad return value from emcLubeSetSenseIndex\n");
          retval = -1;
        }
#endif
    }

  if (NULL != (inistring = lubeInifile->find("LUBE_SENSE_POLARITY", "EMCIO")))
    {
#ifndef UNDER_CE
      if (1 == sscanf(inistring, "%d", &i))
        {
          // found, and valid
          if (0 != emcLubeSetSensePolarity(i))
            {
              printf("bad return value from emcLubeSetSensePolarity\n");
              retval = -1;
            }
        }
      else
        {
          // found, but invalid, so warn
          printf("invalid inifile value for LUBE_SENSE_POLARITY: %s\n",
                          inistring);
        }
#else
     i = atol(inistring);
     if (0 != emcLubeSetSensePolarity(i))
       {
         rcs_print("bad return value from emcLubeSetSensePolarity\n");
         retval = -1;
       }
#endif
    }

  if (NULL != (inistring = lubeInifile->find("LUBE_WRITE_INDEX", "EMCIO")))
    {
#ifndef UNDER_CE
      if (1 == sscanf(inistring, "%d", &i))
        {
          // found, and valid
          if (0 != emcLubeSetWriteIndex(i))
            {
              printf("bad return value from emcLubeSetWriteIndex\n");
              retval = -1;
            }
        }
      else
        {
          // found, but invalid, so warn
          printf("invalid inifile value for LUBE_WRITE_INDEX: %s\n",
                          inistring);
        }
#else
      i = atol(inistring);
      if (0 != emcLubeSetWriteIndex(i))
        {
          rcs_print("bad return value from emcLubeSetWriteIndex\n");
          retval = -1;
        }
#endif
    }
  // else ignore omission

  if (NULL != (inistring = lubeInifile->find("LUBE_WRITE_POLARITY", "EMCIO")))
    {
#ifndef UNDER_CE
      if (1 == sscanf(inistring, "%d", &i))
        {
          // found, and valid
          if (0 != emcLubeSetWritePolarity(i))
            {
              printf("bad return value from emcLubeSetWritePolarity\n");
              retval = -1;
            }
        }
      else
        {
          // found, but invalid, so warn
          printf("invalid inifile value for LUBE_WRITE_POLARITY: %s\n",
                          inistring);
        }
#else
     i = atol(inistring);
     if (0 != emcLubeSetWritePolarity(i))
       {
         rcs_print("bad return value from emcLubeSetWritePolarity\n");
         retval = -1;
       }
#endif
    }

  // else ignore omission

  return retval;
}

/*
  iniLube(const char *filename)

  Loads ini file parameters for lube controller, from [EMCIO] section
 */
int iniLube(const char *filename)
{
  int retval = 0;

  lubeInifile = new INIFILE;

  if (-1 == lubeInifile->open(filename))
    {
      return -1;
    }

  // load lube values
  if (0 != loadLube())
    {
      retval = -1;
    }

  // close the inifile
  lubeInifile->close();
  delete lubeInifile;

  return retval;
}

// functions to set global variables

int emcLubeSetSenseIndex(int index)
{
  LUBE_SENSE_INDEX = index;

  return 0;
}

int emcLubeSetSensePolarity(int polarity)
{
  LUBE_SENSE_POLARITY = polarity;

  return 0;
}

int emcLubeSetWriteIndex(int index)
{
  LUBE_WRITE_INDEX = index;

  return 0;
}

int emcLubeSetWritePolarity(int polarity)
{
  LUBE_WRITE_POLARITY = polarity;

  return 0;
}

---