read_ini.c

wm PNE 3.3 source code, running at more than vxworks6.x version.

/* $Header: /usr/cvsroot/target/src/wrn/wm/demo/lib/read_ini.c,v 1.3 2003/01/15 14:04:34 josh Exp $ */

/*
 * Copyright (C) 1999-2005 Wind River Systems, Inc.
 * All rights reserved.  Provided under license only.
 * Distribution or other use of this software is only
 * permitted pursuant to the terms of a license agreement
 * from Wind River Systems (and is otherwise prohibited).
 * Refer to that license agreement for terms of use.
 */



/****************************************************************************
 *  Copyright 1993-1997 Epilogue Technology Corporation.
 *  Copyright 1998 Integrated Systems, Inc.
 *  All rights reserved.
 ****************************************************************************/

/*
 * $Log: read_ini.c,v $
 * Revision 1.3  2003/01/15 14:04:34  josh
 * directory structure shifting
 *
 * Revision 1.2  2001/11/08 15:56:25  tneale
 * Updated for newest file layout
 *
 * Revision 1.1.1.1  2001/11/05 17:48:42  tneale
 * Tornado shuffle
 *
 * Revision 2.15  2001/01/19 22:23:50  paul
 * Update copyright.
 *
 * Revision 2.14  2000/03/17 00:12:44  meister
 * Update copyright message
 *
 * Revision 2.13  1999/04/26 19:05:01  sra
 * Fix a few minor warnings, fix a few Solaris-specific problems in the
 * demo code.
 *
 * Revision 2.12  1998/07/15 17:49:28  meister
 * added nidrive.c and nidrv.h.
 *
 * Revision 2.11  1998/07/02 21:23:49  sra
 * Rearrange #include files to fix stdio dependency.
 *
 * Revision 2.10  1998/06/28 20:09:38  sra
 * Add support for SNARK_READ_INI_FROM_MEMORY.
 *
 * Revision 2.9  1998/05/13 21:16:13  meister
 * only compile this if SNARK_PSOS_NO_PHILE is not installed
 *
 * Revision 2.8  1998/02/25 04:57:36  sra
 * Update copyrights.
 *
 * Revision 2.7  1997/03/20 06:53:09  sra
 * DFARS-safe copyright text.  Zap!
 *
 * Revision 2.6  1997/03/19 20:20:40  sra
 * Remove gratuitous Attache dependencies.
 *
 * Revision 2.5  1997/03/19 04:47:35  sra
 * Get rid of some gratuitous historical dependencies on Attache.
 *
 * Revision 2.4  1997/02/25 10:58:16  sra
 * Update copyright notice, dust under the bed.
 *
 * Revision 2.3  1996/10/25 16:01:00  sar
 * Added some include files to get the configuration stuff correct.
 *
 * Revision 2.2  1996/03/22  10:05:39  sra
 * Update copyrights prior to Attache 3.2 release.
 *
 * Revision 2.1  1995/07/31  13:54:55  sra
 * OSPF now working well enough to let somebody else test it.
 *
 * Revision 2.0  1995/05/10  22:38:15  sra
 * Attache release 3.0.
 *
 * Revision 1.3  1995/01/06  00:52:48  sra
 * Update copyright notice for 2.1 release.
 *
 * Revision 1.2  1993/08/14  05:04:29  sra
 * Don't invalidate handle->iter_variable in ini_scan_for_section(),
 * Shawn's SNMPv2 configuration code wants it to stay valid.
 *
 * Revision 1.1  1993/07/05  21:53:30  sra
 * Initial revision
 *
 */

/* [clearcase]
modification history
-------------------
01a,19apr05,job  update copyright notices
*/


#include <wrn/wm/common/config.h>
#include <wrn/wm/common/glue.h>

#if !INSTALL_SNARK_READ_INI_FROM_MEMORY
#include <stdio.h>
#include <ctype.h>
#endif

#include <stdlib.h>

#include <wrn/wm/demo/snarklib.h>
#include <wrn/wm/demo/read_ini.h>

#if !INSTALL_SNARK_READ_INI_FROM_MEMORY

#define DOWNCASE(c)	(isupper((int) c) ? tolower((int) c) : (int) c)

#define LINE_SKIP() \
  do { \
    while (c != '\n') \
      if ((c = fgetc(handle->file)) == EOF) \
	return 0; \
  } while (0)

#define SKIP_WHITE() \
  do { \
    while ((c == ' ') || (c == '\t')) \
      if ((c = fgetc(handle->file)) == EOF) \
	return 0; \
  } while (0)

#define	CHECK_TOKEN() \
  do { \
    while (*cp && DOWNCASE(c) == DOWNCASE(*cp)) { \
      if ((c = fgetc(handle->file)) == EOF) \
	return 0; \
      cp++; \
    } \
  } while (0)

#endif /* INSTALL_SNARK_READ_INI_FROM_MEMORY */



/*
 * If the enviroment variable is set then use it to find the .ini file.
 * If no environment variable or file not found look in the current directory.
 * If no local file then look for the global default file.
 */
struct ini_handle *ini_open(size_t buflen)
{
  struct ini_handle *handle = GLUE_ALLOC(sizeof(*handle) + buflen);
  
  if (!handle) {
    fprintf(stderr, "Can't allocate handle for ini file\n");
    return 0;
  }
  MEMSET(handle, 0, sizeof(*handle));
  if ((handle->buflen = buflen) != 0)
    handle->buffer = (char *) (handle + 1);

#if !INSTALL_SNARK_READ_INI_FROM_MEMORY

  {
    static char env_ini[] = "ETC_INI";
    static char local_file[] = "etc.ini";
    static char global_file[] = "/etc/etc.ini";
    char *env = getenv(env_ini);

    if ((!env || (handle->file = fopen(env, "r")) == 0) &&
	(handle->file = fopen(local_file, "r")) == 0 &&
	(handle->file = fopen(global_file, "r")) == 0) {
      fprintf(stderr, "Can't find init file %s\n", (env ? env : local_file));
      GLUE_FREE(handle);
      return 0;
    }
  }

#endif /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

  return handle;
}

void ini_close(struct ini_handle *handle)
{
  if (!handle)
    return;

#if !INSTALL_SNARK_READ_INI_FROM_MEMORY

  if (handle->file)
    fclose(handle->file);

#endif /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

  GLUE_FREE(handle);
}



#if INSTALL_SNARK_READ_INI_FROM_MEMORY

static unsigned long ini_get_pos(struct ini_handle *handle)
{
  return handle->current_pos;
}

static void ini_set_pos(struct ini_handle *handle, unsigned long new_pos)
{
  handle->current_pos = new_pos;
}

#else /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

static unsigned long ini_get_pos(struct ini_handle *handle)
{
  return (unsigned long) ftell(handle->file);
}

static void ini_set_pos(struct ini_handle *handle, unsigned long new_pos)
{
  fseek(handle->file, (long) new_pos, 0);
}

#endif /* INSTALL_SNARK_READ_INI_FROM_MEMORY */



/*
 * Scans for a section with the right name.
 */
static boolean_t ini_scan_for_section
  (struct ini_handle *handle, char *section)
{
  if (!handle || !section)
    return 0;				/* bad arguments, lose */

  if (section == handle->section_name) {
    ini_set_pos(handle, handle->section_start);
    return 1;				/* section was cached, win */
  }

  if (handle->section_name)		/* has file been used? */
    ini_set_pos(handle, 0);		/* yeah, rewind it */

#if INSTALL_SNARK_READ_INI_FROM_MEMORY

  {
    for (;;) { 
      if (!etc_ini_table[handle->current_pos].tag)
	return 0;			/* "EOF", lose */
      if (!etc_ini_table[handle->current_pos].value &&
	  !STRICMP(section, etc_ini_table[handle->current_pos].tag))
	break;				/* matching section tag, won */
      handle->current_pos++;		/* otherwise, keep looking */
    }

    handle->current_pos++;		/* won, skip to first variable */
  }

#else /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

  {
    char *cp;
    int c;

    if (!handle->file)
      return 0;				/* bad arguments, lose */

    for (;;) {
      if ((c = fgetc(handle->file)) == EOF)
	return 0;
      if (c != '[') {			/* not at a section name */
	LINE_SKIP();			/* so skip the line and try again */
	continue;
      }
      if ((c = getc(handle->file)) == EOF)
	return 0;
      cp = section;			/* check the section name */
      CHECK_TOKEN();
      if (*cp == '\0' && c == ']')	/* matched exactly? */
	break;				/* win */
      LINE_SKIP();
    }

    LINE_SKIP();			/* won, skip to first variable */
  }

#endif /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

  /*
   * Found the desired section.  Cache it and return win.
   */
  handle->section_name = section;
  handle->section_start = ini_get_pos(handle);
  return 1;
}



/*
 * Scan the current section for the right variable.
 */
static char *ini_scan_for_variable
  (struct ini_handle *handle, char *variable)
{
  if (!handle || !variable || !handle->buffer || handle->buflen <= 0)
    return 0;

#if INSTALL_SNARK_READ_INI_FROM_MEMORY

  {
    for (;;) {
      if (!etc_ini_table[handle->current_pos].tag ||
	  !etc_ini_table[handle->current_pos].value)
	return 0;			/* end of section, lose */
      if (!STRICMP(variable, etc_ini_table[handle->current_pos].tag))
	break;				/* matching variable tag, won */
      handle->current_pos++;		/* otherwise, keep looking */
    }

    if (STRLEN(etc_ini_table[handle->current_pos].value) >= handle->buflen)
      return 0;				/* buffer too small, lose */

    STRCPY(handle->buffer, etc_ini_table[handle->current_pos].value);
    handle->current_pos++;		/* won, skip over line we just read */
  }

#else /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

  {
    char *cp;
    int c;

    if (!handle->file)
      return 0;

    for (;;) {
      if ((c = fgetc(handle->file)) == EOF || c == '[')
	return 0;
      cp = variable;			/* check the variable name */
      CHECK_TOKEN();
      if (*cp == '\0') {
	SKIP_WHITE();
	if (c == '=')			/* and found right delimiter? */
	  break;			/* win */
      }
      LINE_SKIP();			/* didn't match, keep looking */
    }

    if ((c = fgetc(handle->file)) == EOF)
      return 0;
    SKIP_WHITE();
    cp = handle->buffer;		/* now copy the data */
    while (c != '\n') {
      *cp++ = c;
      if (cp >= handle->buffer + handle->buflen ||
	  (c = fgetc(handle->file)) == EOF)
	return 0;
    }
    *cp = '\0';
  }

#endif /* INSTALL_SNARK_READ_INI_FROM_MEMORY */

  return handle->buffer;
}



char *ini_lookup(struct ini_handle *handle, char *section, char *variable)
{
  if (!handle || !ini_scan_for_section(handle, section))
    return 0;
  return ini_scan_for_variable(handle, variable);
}

char *ini_iter_start(struct ini_handle *handle, char *section, char *variable)
{
  if (!handle || !ini_scan_for_section(handle, section))
    return 0;
  return ini_scan_for_variable(handle, (handle->iter_variable = variable));
}

char *ini_iter_next(struct ini_handle *handle)
{
  if (!handle)
    return 0;
  return ini_scan_for_variable(handle, handle->iter_variable);
}

void ini_save (struct ini_handle *handle, struct ini_handle_saved *save)
{
  save->section_name = handle->section_name;
  save->section_start = handle->section_start;
  save->iter_variable = handle->iter_variable;
  save->current_pos = ini_get_pos(handle);
}

void ini_restore (struct ini_handle *handle, struct ini_handle_saved *save)
{
  handle->section_name = save->section_name;
  handle->section_start = save->section_start;
  handle->iter_variable = save->iter_variable;
  ini_set_pos(handle, save->current_pos);
}