Subversion Repositories SvarDOS

/* get_line - this function will read a string from the file.  The
   string may be broken across several lines using a "continue_ch" as
   the final character on a line. */

/* THIS FUNCTION WILL malloc() MEMORY FOR THE STRING.  THE CALLING
   FUNCTION MUST free() THE STRING!! */

/* Copyright (C) 2000 Jim Hall <jhall1@isd.net> */

/*
  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2.1 of the License, or (at your option) any later version.

  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

#include <stdio.h>
#include <stdlib.h>                     /* malloc */

char *
get_line (FILE *pfile, int continue_ch)
{
  char *str;                            /* string that we will return   */
  char *tmp_str;
  int str_len;                          /* current length of the string */
  int str_size;                         /* malloc size of the string    */
  int ch;
  int last_ch;

  /* this function will malloc memory for the string.  the calling
     function must free() the string. */

  str_len = 0;
  str_size = 10;
  str = malloc (sizeof (char) * str_size);

  if (!str)
    {
      /* failed! */
      return (str);
    }

  /* now, read the string */

  last_ch = '\0';
  while ((ch = fgetc (pfile)) != EOF)
    {
      /* do we have enough room in the str for this ch? */

      if (str_len >= str_size)
        {
          /* reallocate memory */

          str_size *= 2;
          tmp_str = realloc (str, sizeof (char) * str_size);

          if (tmp_str)
            {
              /* move the pointer */
              str = tmp_str;
            }

          else
            {
              /* failure!  return what we have */
              return (str);
            }
        }

      /* add the ch to the str */

      if (ch == '\n')
        {
          /* is the string terminated? */

          if (last_ch == continue_ch)
            {
              /* string is continued on next line ... ignore this ch
                 and erase last_ch in the string */
              str_len--;
            }

          else
            {
              /* string is terminated.  return it. */
              str[str_len++] = '\0';
              return (str);
            }
        }

      else
        {
          str[str_len++] = ch;
          last_ch = ch;
        }

    } /* while */

  /* we hit eof without eol.  return what we have. */

  return (NULL);
}