Drop all dependencies from gnulib.

* gnulib.modules: Remove.
* src/mem.c: New file.
* src/symtab.c: New file.
* src/Makefile.am (libgrecs_a_SOURCES): Add mem.c and symtab.c.
(INCLUDES): Remove -Ignu
* src/grecs-gram.y (grecs_vasprintf, grecs_asprintf): New functions.
(grecs_warning, grecs_error): Use grecs_vasprintf.
(string_to_signed, string_to_unsigned): Remove.
(STRTONUM,STRxTONUM,GETUNUM,GETSNUM): New macros (from Mailutils).
(grecs_string_convert): Use macros for numeric conversions.
(grecs_prop_tab): Remove entries for uintmax_t and intmax_t.
* src/grecs-lex.l: Drop dependency on obstack.
(line_acc, string_list): New statics.
(line_acc_free_entry,line_acc_add_string): new function
(line_acc_add_char,list_acc_unescape_char): new function
(line_add_unescape_last): new function
(grecs_lex_begin,grecs_line_add, multiline_begin)
(grecs_line_finish): Rewrite.
* src/grecs.h (grecs_type_uintmax,grecs_type_intmax): Remove.
(grecs_malloc_fun,grecs_realloc_fun,grecs_alloc_die_fun): New externs.
(grecs_malloc,grecs_realloc,grecs_alloc_die,grecs_strdup)
(grecs_list_clear,grecs_list_free)
(grecs_vasprintf,grecs_asprintf): New protos.
(grecs_symtab,grecs_syment): New structs.
(grecs_symtab_enumerator_t): New type.
(grecs_symtab_strerror,grecs_symtab_lookup_or_install)
(grecs_symtab_clear,grecs_symtab_create)
(grecs_symtab_create_default)
(grecs_symtab_free,grecs_symtab_remove,grecs_symtab_replace)
(grecs_symtab_enumerate,grecs_symtab_count_entries): New protos.
* src/list.c (grecs_list_clear): New function.
(grecs_list_free): Use grecs_list_clear.
* src/preproc.c (linebufbase,linebufsize): New variables.
(pp_getline): New function.
(pp_line_stmt_size): Remove.
(pp_line_stmt): Use grecs_asprintf to format data.
(next_line,grecs_preproc_extrn_start): Use pp_getline.
(source_lookup): Use grecs_symtab instead of hash.
* src/text.c: Rewrite using grecs_symtab.

1 files changed, 93 insertions, 72 deletions

diff --git a/src/preproc.c b/src/preproc.c
index 9cdea3c..a71c93f 100644
--- a/src/preproc.c
+++ b/src/preproc.c
@@ -29,18 +29,8 @@
 #include <errno.h>
 #include <signal.h>
 
-#include <xalloc.h>
-#include <hash.h>
-#include <inttostr.h>
 #include <wordsplit.h>
 
-#if ENABLE_NLS
-# include "gettext.h"
-# define _(msgid) gettext (msgid)
-#else
-# define _(msgid) msgid
-#endif
-
 int grecs_log_to_stderr = 1;
 void (*grecs_log_setup_hook) () = NULL;
 
@@ -62,6 +52,8 @@ struct buffer_ctx
 
 extern int yy_grecs_flex_debug;
 static struct buffer_ctx *context_stack;
+static char *linebufbase = NULL;
+static size_t linebufsize = 0;
 
 #define INFILE context_stack->infile
 #define LOCUS context_stack->locus
@@ -76,6 +68,49 @@ static int push_source (const char *name, int once);
 static int pop_source (void);
 static int parse_include (const char *text, int once);
 
+static ssize_t
+pp_getline (char **pbuf, size_t *psize, FILE *fp)
+{
+  char *buf = *pbuf;
+  size_t size = *psize;
+  ssize_t off = 0;
+  
+  do
+    {
+      size_t len;
+
+      if (off == size - 1)
+        {
+          if (!buf)
+            {
+              size = 1;
+              buf = grecs_malloc (size);
+            }
+          else
+            {
+              size_t nsize = 2 * size;
+              if (nsize < size)
+                grecs_alloc_die ();
+              buf = grecs_realloc (buf, nsize);
+              size = nsize;
+            }
+        }
+      if (!fgets (buf + off, size - off, fp))
+        {
+          if (off == 0)
+            off = -1;
+          break;
+        }
+      off += strlen (buf + off);
+    }
+  while (buf[off - 1] != '\n');
+
+  *pbuf = buf;
+  *psize = size;
+  return off;
+}
+      
+
 static void
 putback (const char *str)
 {
@@ -87,51 +122,34 @@ putback (const char *str)
   if (len > putback_max)
     {
       putback_max = len;
-      putback_buffer = xrealloc (putback_buffer, putback_max);
+      putback_buffer = grecs_realloc (putback_buffer, putback_max);
     }
   strcpy (putback_buffer, str);
   putback_size = len - 1;
 }
 
-/* Compute the size of the line
-
-   #line NNN "FILENAME"
-*/
-static size_t
-pp_line_stmt_size ()
-{
-  char lbuf[INT_BUFSIZE_BOUND(uintmax_t)];
-  char xbuf[INT_BUFSIZE_BOUND(uintmax_t)];
-  char *lp, *xp;
-  
-  lp = umaxtostr (LOCUS.line, lbuf);
-  xp = umaxtostr (context_stack->xlines + 1, xbuf);
-  if (context_stack->namelen == 0)
-    context_stack->namelen = strlen (LOCUS.file);
-  /* "#line " is 6 chars, two more spaces, two quotes and a linefeed
-     make another 5, summa facit 11 */
-  return 11 + strlen (lp) + strlen (xp) + context_stack->namelen;
-}
-
 static void
 pp_line_stmt ()
 {
-  char *p;
-  size_t ls_size = pp_line_stmt_size ();
-  size_t pb_size = putback_size + ls_size + 1;
+  size_t ls_size;
+  size_t pb_size;
+
+  if (grecs_asprintf (&linebufbase, &linebufsize, "#line %lu \"%s\" %lu\n",
+                      (unsigned long) LOCUS.line,
+                      LOCUS.file, (unsigned long) context_stack->xlines))
+    grecs_alloc_die ();
+
+  ls_size = strlen (linebufbase);
+  pb_size = putback_size + ls_size + 1;
 
   if (pb_size > putback_max)
     {
       putback_max = pb_size;
-      putback_buffer = xrealloc (putback_buffer, putback_max);
+      putback_buffer = grecs_realloc (putback_buffer, putback_max);
     }
 
-  p = putback_buffer + putback_size;
   context_stack->xlines++;
-  snprintf (p, putback_max - putback_size,
-            "#line %lu \"%s\" %lu\n",
-            (unsigned long) LOCUS.line,
-            LOCUS.file, (unsigned long) context_stack->xlines);
+  strcpy (putback_buffer + putback_size, linebufbase);
   putback_size += ls_size;
 }
 
@@ -151,7 +169,7 @@ next_line ()
           if (putback_size + 1 > bufsize)
             {
               bufsize = putback_size + 1;
-              linebuf = xrealloc (linebuf, bufsize);
+              linebuf = grecs_realloc (linebuf, bufsize);
             }
           strcpy (linebuf, putback_buffer);
           rc = putback_size;
@@ -160,7 +178,7 @@ next_line ()
       else if (!context_stack)
         return 0;
       else
-        rc = getline (&linebuf, &bufsize, INFILE);
+        rc = pp_getline (&linebuf, &bufsize, INFILE);
     }
   while (rc == -1 && pop_source () == 0);
   return rc;
@@ -264,7 +282,7 @@ pp_list_find (struct grecs_list *list, struct file_data *dptr)
       if (size > dptr->buflen)
         {
           dptr->buflen = size;
-          dptr->buf = xrealloc (dptr->buf, dptr->buflen);
+          dptr->buf = grecs_realloc (dptr->buf, dptr->buflen);
         }
       strcpy (dptr->buf, dir);
       strcat (dptr->buf, "/");
@@ -285,7 +303,7 @@ grecs_include_path_setup_v (char **dirs)
       int i;
       for (i = 0; dirs[i]; i++)
         /* FIXME: Element never freed */
-        grecs_list_append (std_include_path, xstrdup (dirs[i]));
+        grecs_list_append (std_include_path, grecs_strdup (dirs[i]));
     }
 }
 
@@ -306,7 +324,9 @@ grecs_include_path_setup (const char *dir, ...)
         {
           if (argc == 0)
             argc = 16;
-          argv = x2nrealloc (argv, &argc, sizeof (argv[0]));
+          else
+            argc += 16;
+          argv = grecs_realloc (argv, argc * sizeof (argv[0]));
         }
       argv[argi++] = (char*) p;
       if (!p)
@@ -326,23 +346,23 @@ grecs_preproc_add_include_dir (char *dir)
   grecs_list_append (include_path, dir);
 }
 
-static Hash_table *incl_sources;
+static struct grecs_symtab *incl_sources;
 
 /* Calculate the hash of a struct input_file_ident.  */
-static size_t
-incl_hasher (void const *data, size_t n_buckets)
+static unsigned
+incl_hasher (void *data, unsigned long n_buckets)
 {
   const struct input_file_ident *id = data;
   return (id->i_node + id->device) % n_buckets;
 }