A bunch of simple functions for reading from files, manipulating strings

	* pango/pango-utils.[ch] Makefile.am: A bunch of simple functions
	for reading from files, manipulating strings as necessary for
	config files. Also, a simple gnome-config/win.ini style
	config file reader.

2 files changed, 615 insertions, 0 deletions

diff --git a/pango/pango-utils.c b/pango/pango-utils.c
new file mode 100644
index 00000000..13ac2c7c
--- /dev/null
+++ b/pango/pango-utils.c
@@ -0,0 +1,575 @@
+/* Pango
+ * pango-utils.c: Utilities for internal functions and modules
+ *
+ * Copyright (C) 2000 Red Hat Software
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library 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 <ctype.h>
+#include <errno.h>
+#include <string.h>
+
+#include <config.h>
+
+#include "pango-utils.h"
+
+#ifndef HAVE_FLOCKFILE
+#  define flockfile(f) (void)1
+#  define funlockfile(f) (void)1
+#  define getc_unlocked(f) getc(f)
+#endif /* !HAVE_FLOCKFILE */
+
+/**
+ * pango_trim_string:
+ * @str: a string
+ * 
+ * Trim leading and trailing whitespace from a string.
+ * 
+ * Return value: A newly allocated string that must be freed with g_free()
+ **/
+char *
+pango_trim_string (const char *str)
+{
+  int len;
+
+  g_return_val_if_fail (str != NULL, NULL);
+  
+  while (*str && isspace (*str))
+    str++;
+
+  len = strlen (str);
+  while (len > 0 && isspace (str[len-1]))
+    len--;
+
+  return g_strndup (str, len);
+}
+
+/**
+ * pango_split_file_list:
+ * @str: a comma separated list of filenames
+ * 
+ * Split a comma-separated list of files, stripping white space
+ * and subsituting ~/ with $HOME/
+ * 
+ * Return value: a list of strings to be freed with g_strfreev()
+ **/
+char **
+pango_split_file_list (const char *str)
+{
+  int i = 0;
+  int j;
+  char **files;
+
+  files = g_strsplit (str, ":", -1);
+
+  while (files[i])
+    {
+      char *file = pango_trim_string (files[i]);
+
+      /* If the resulting file is empty, skip it */
+      if (file[0] == '\0')
+	{
+	  g_free(file);
+	  g_free (files[i]);
+	  
+	  for (j = i + 1; files[j]; j++)
+	    files[j - 1] = files[j];
+	  
+	  files[j - 1] = NULL;
+
+	  continue;
+	}
+      
+      if (file[0] == '~' && file[1] == G_DIR_SEPARATOR)
+	{
+	  char *tmp = g_strconcat (g_get_home_dir(), files + 1, NULL);
+	  g_free (file);
+	  file = tmp;
+	}
+
+      g_free (files[i]);
+      files[i] = file;
+	
+      i++;
+    }
+
+  return files;
+}
+
+/**
+ * pango_read_line:
+ * @stream: a stdio stream
+ * @str: #GString buffer into which to write the result
+ * 
+ * Read an entire line from a file into a buffer. Lines may
+ * be delimited with '\n', '\r', '\n\r', or '\r\n'. The delimiter
+ * is not written into the buffer. Text after a '#' character is treated as
+ * a comment and skipped. '\' can be used to escape a # character.
+ * '\' proceding a line delimiter combines adjacent lines. A '\' proceding
+ * any other character is ignored and written into the output buffer
+ * unmodified.
+ * 
+ * Return value: %FALSE if the stream was already at an EOF character.
+ **/
+gboolean
+pango_read_line (FILE *stream, GString *str)
+{
+  gboolean quoted = FALSE;
+  gboolean comment = FALSE;
+  int n_read = 0;
+  
+  flockfile (stream);
+
+  g_string_truncate (str, 0);
+  
+  while (1)
+    {
+      int c;
+      
+      c = getc_unlocked (stream);
+
+      if (c == EOF)
+	{
+	  if (quoted)
+	    g_string_append_c (str, '\\');
+	  
+	  goto done;
+	}
+      else
+	n_read++;
+
+      if (quoted)
+	{
+	  quoted = FALSE;
+	  
+	  switch (c)
+	    {
+	    case '#':
+	      g_string_append_c (str, '#');
+	      break;
+	    case '\r':
+	    case '\n':
+	      {
+		int next_c = getc_unlocked (stream);
+
+		if (!(c == EOF ||
+		      (c == '\r' && next_c == '\n') ||
+		      (c == '\n' && next_c == '\r')))
+		  ungetc (next_c, stream);
+		
+		break;
+	      }
+	    default:
+	      g_string_append_c (str, '\\');	      
+	      g_string_append_c (str, c);
+	    }
+	}
+      else
+	{
+	  switch (c)
+	    {
+	    case '#':
+	      comment = TRUE;
+	      break;
+	    case '\\':
+	      if (!comment)
+		quoted = TRUE;
+	      break;
+	    case '\n':
+	      {
+		int next_c = getc_unlocked (stream);
+
+		if (!(c == EOF ||
+		      (c == '\r' && next_c == '\n') ||
+		      (c == '\n' && next_c == '\r')))
+		  ungetc (next_c, stream);
+
+		goto done;
+	      }
+	    default:
+	      if (!comment)
+		g_string_append_c (str, c);
+	    }
+	}
+    }
+
+ done:
+
+  funlockfile (stream);
+
+  return n_read > 0;
+}
+
+/**
+ * pango_skip_space:
+ * @pos: in/out string position
+ * 
+ * Skips 0 or more characters of white space.
+ * 
+ * Return value: %FALSE if skipping the white space leaves
+ * the position at a '\0' character.
+ **/
+gboolean
+pango_skip_space (const char **pos)
+{
+  const char *p = *pos;
+  
+  while (isspace (*p))
+    p++;
+
+  *pos = p;
+
+  return !(*p == '\0');
+}
+
+/**
+ * pango_scan_word:
+ * @pos: in/out string position
+ * @out: a #GString into which to write the result
+ * 
+ * Scan a word into a #GString buffer. A word consists
+ * of [A-Za-z_] followed by zero or more [A-Za-z_0-9]
+ * Leading white space is skipped.
+ * 
+ * Return value: %FALSE if a parse error occured. 
+ **/
+gboolean
+pango_scan_word (const char **pos, GString *out)
+{
+  const char *p = *pos;
+
+  while (isspace (*p))
+    p++;
+  
+  if (!((*p >= 'A' && *p <= 'Z') ||
+	(*p >= 'a' && *p <= 'z') ||
+	*p == '_'))
+    return FALSE;
+
+  g_string_truncate (out, 0);
+  g_string_append_c (out, *p);
+  p++;
+
+  while ((*p >= 'A' && *p <= 'Z') ||
+	 (*p >= 'a' && *p <= 'z') ||
+	 (*p >= '0' && *p <= '9') ||
+	 *p == '_')
+    {
+      g_string_append_c (out, *p);
+      p++;
+    }
+
+  *pos = p;
+
+  return TRUE;
+}
+
+/**
+ * pango_scan_string:
+ * @pos: in/out string position
+ * @out: a #GString into which to write the result
+ * 
+ * Scan a string into a #GString buffer. The string may either
+ * be a sequence of non-white-space characters, or a quoted
+ * string with '"'. Instead a quoted string, '\"' represents
+ * a literal quote. Leading white space outside of quotes is skipped.
+ * 
+ * Return value: %FALSE if a parse error occured.
+ **/
+gboolean
+pango_scan_string (const char **pos, GString *out)
+{
+  const char *p = *pos;
+  
+  while (isspace (*p))
+    p++;
+
+  if (!*p)
+    return FALSE;
+  else if (*p == '"')
+    {
+      gboolean quoted = FALSE;
+      g_string_truncate (out, 0);
+
+      p++;
+
+      while (TRUE)
+	{
+	  if (quoted)
+	    {
+	      int c = *p;
+	      
+	      switch (c)
+		{
+		case '\0':
+		  return FALSE;
+		case 'n':
+		  c = '\n';
+		  break;
+		case 't':
+		  c = '\t';
+		  break;
+		}
+	      
+	      quoted = FALSE;
+	      g_string_append_c (out, c);
+	    }
+	  else
+	    {
+	      switch (*p)
+		{
+		case '\0':
+		  return FALSE;
+		case '\\':
+		  quoted = TRUE;
+		  break;
+		case '"':
+		  p++;
+		  goto done;
+		default:
+		  g_string_append_c (out, *p);
+		  break;
+		}
+	    }
+	  p++;
+	}
+    done:
+    }
+  else
+    {
+      g_string_truncate (out, 0);
+
+      while (*p && !isspace (*p))
+	{
+	  g_string_append_c (out, *p);
+	  p++;
+	}
+    }
+
+  *pos = p;
+
+  return TRUE;
+}
+
+gboolean
+pango_scan_int (const char **pos, int *out)
+{
+  int i = 0;
+  char buf[32];
+  const char *p = *pos;
+
+  while (isspace (*p))
+    p++;
+  
+  if (*p < '0' || *p > '9')
+    return FALSE;
+
+  while ((*p >= '0') && (*p <= '9') && i < sizeof(buf))
+    {
+      buf[i] = *p;
+      i++;
+      p++;
+    }
+
+  if (i == sizeof(buf))
+    return FALSE;
+  else
+    buf[i] = '\0';
+
+  *out = atoi (buf);
+
+  return TRUE;
+}
+
+static GHashTable *config_hash = NULL;
+
+static void
+read_config_file (const char *filename, gboolean enoent_error)
+{
+  FILE *file;
+    
+  GString *line_buffer = g_string_new (NULL);
+  GString *tmp_buffer1 = g_string_new (NULL);
+  GString *tmp_buffer2 = g_string_new (NULL);
+  char *errstring = NULL;
+  const char *pos;
+  char *section = NULL;
+  int line = 0;
+
+  file = fopen (filename, "r");
+  if (!file)
+    {
+      if (errno != ENOENT || enoent_error)
+	fprintf (stderr, "Pango:%s: Error opening config file: %s\n",
+		 filename, g_strerror (errno));
+      return;
+    }
+  
+  while (pango_read_line (file, line_buffer))
+    {
+      line++;
+
+      pos = line_buffer->str;
+      if (!pango_skip_space (&pos))
+	continue;
+
+      if (*pos == '[')	/* Section */
+	{
+	  pos++;
+	  if (!pango_skip_space (&pos) ||
+	      !pango_scan_word (&pos, tmp_buffer1) ||
+	      !pango_skip_space (&pos) ||
+	      *(pos++) != ']' ||
+	      pango_skip_space (&pos))
+	    {
+	      errstring = g_strdup ("Error parsing [SECTION] declaration");
+	      goto error;
+	    }
+
+	  section = g_strdup (tmp_buffer1->str);
+	}
+      else			/* Key */
+	{
+	  gboolean empty = FALSE;
+	  gboolean append = FALSE;
+	  char *k, *v;
+
+	  if (!section)
+	    {
+	      errstring = g_strdup ("A [SECTION] declaration must occur first");
+	      goto error;
+	    }
+
+	  if (!pango_scan_word (&pos, tmp_buffer1) ||
+	      !pango_skip_space (&pos))
+	    {
+	      errstring = g_strdup ("Line is not of the form KEY=VALUE or KEY+=VALUE");
+	      goto error;
+	    }
+	  if (*pos == '+')
+	    {
+	      append = TRUE;
+	      pos++;
+	    }
+
+	  if (*(pos++) != '=')
+	    {
+	      errstring = g_strdup ("Line is not of the form KEY=VALUE or KEY+=VALUE");
+	      goto error;
+	    }
+	    
+	  if (!pango_skip_space (&pos))
+	    {
+	      empty = TRUE;
+	    }
+	  else
+	    {
+	      if (!pango_scan_string (&pos, tmp_buffer2))
+		{
+		  errstring = g_strdup ("Error parsing value string");
+		  goto error;
+		}
+	      if (pango_skip_space (&pos))
+		{
+		  errstring = g_strdup ("Junk after value string");
+		  goto error;
+		}
+	    }
+
+	  g_string_prepend_c (tmp_buffer1, '/');
+	  g_string_prepend (tmp_buffer1, section);
+
+	  /* Remove any existing values */
+	  if (g_hash_table_lookup_extended (config_hash, tmp_buffer1->str,
+					    (gpointer *)&k, (gpointer *)&v))
+	    {
+	      g_free (k);
+	      if (append)
+		{
+		  g_string_prepend (tmp_buffer2, v);
+		  g_free (v);
+		}
+	    }
+	      
+	  if (!empty)
+	    {
+	      g_hash_table_insert (config_hash,
+				   g_strdup (tmp_buffer1->str),
+				   g_strdup (tmp_buffer2->str));
+	    }
+	}
+    }
+      
+  if (ferror (file))
+    errstring = g_strdup ("g_strerror(errno)");
+  
+ error:
+
+  if (errstring)
+    {
+      fprintf (stderr, "Pango:%s:%d: %s\n", filename, line, errstring);
+      g_free (errstring);
+    }
+      
+  g_free (section);
+  g_string_free (line_buffer, TRUE);
+  g_string_free (tmp_buffer1, TRUE);
+  g_string_free (tmp_buffer2, TRUE);
+
+  fclose (file);
+}
+
+static void
+read_config ()
+{
+  if (!config_hash)
+    {
+      char *filename;
+      
+      config_hash = g_hash_table_new (g_str_hash, g_str_equal);
+      read_config_file (SYSCONFDIR "/" "pango/pangorc", FALSE);
+
+      filename = g_strconcat (g_get_home_dir (), "/.pangorc", NULL);
+      read_config_file (filename, FALSE);
+      g_free (filename);
+
+      filename = g_getenv ("PANGO_RC_FILE");
+      if (filename)
+	read_config_file (filename, TRUE);
+    }
+}
+
+/**
+ * pango_config_key_get:
+ * @key: Key to look up, in the form "SECTION/KEY".
+ * 
+ * Look up a key in the pango config database
+ * (pseudo-win.ini style, read from $sysconfdir/pango/pangorc,
+ *  ~/.pangorc, and getenv (PANGO_RC_FILE).)
+ * 
+ * Return value: the value, if found, otherwise %NULL. The value is a
+ * newly-allocated string and must be freed with g_free().
+ **/
+char *
+pango_config_key_get (const char *key)
+{
+  g_return_val_if_fail (key != NULL, NULL);
+  
+  read_config ();
+
+  return g_strdup (g_hash_table_lookup (config_hash, key));
+}
diff --git a/pango/pango-utils.h b/pango/pango-utils.h
new file mode 100644
index 00000000..fe4f638d
--- /dev/null
+++ b/pango/pango-utils.h
@@ -0,0 +1,40 @@
+/* Pango
+ * pango-utils.c: Utilities for internal functions and modules
+ *
+ * Copyright (C) 2000 Red Hat Software
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library 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 <glib.h>
+
+char    *pango_trim_string     (const char *str);
+char **  pango_split_file_list (const char *str);
+
+gboolean pango_read_line      (FILE        *stream,
+			       GString     *str);
+
+gboolean pango_skip_space     (const char **pos);
+gboolean pango_scan_word      (const char **pos,
+			       GString     *out);
+gboolean pango_scan_string    (const char **pos,
+			       GString     *out);
+gboolean pango_scan_int       (const char **pos,
+			       int         *out);
+
+char *   pango_config_key_get (const char  *key);
+