Imported from ../bash-2.04.tar.gz.

pcomplib.c

@@ -0,0 +1,231 @@
+/* pcomplib.c - library functions for programmable completion. */
+
+/* Copyright (C) 1999 Free Software Foundation, Inc.
+
+   This file is part of GNU Bash, the Bourne Again SHell.
+
+   Bash is free software; you can redistribute it and/or modify it under
+   the terms of the GNU General Public License as published by the Free
+   Software Foundation; either version 2, or (at your option) any later
+   version.
+
+   Bash 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 General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License along
+   with Bash; see the file COPYING.  If not, write to the Free Software
+   Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
+
+#include <config.h>
+
+#if defined (PROGRAMMABLE_COMPLETION)
+
+#include "bashansi.h"
+#include <stdio.h>
+
+#if defined (HAVE_UNISTD_H)
+#  ifdef _MINIX
+#    include <sys/types.h>
+#  endif
+#  include <unistd.h>
+#endif
+
+#include "shell.h"
+#include "pcomplete.h"
+
+#define COMPLETE_HASH_BUCKETS	29	/* for testing */
+
+#define STRDUP(x)	((x) ? savestring (x) : (char *)NULL)
+
+HASH_TABLE *prog_completes = (HASH_TABLE *)NULL;
+
+static int progcomp_initialized = 0;
+
+COMPSPEC *
+alloc_compspec ()
+{
+  COMPSPEC *ret;
+
+  ret = (COMPSPEC *)xmalloc (sizeof (COMPSPEC));
+  ret->refcount = 0;
+
+  ret->actions = (unsigned long)0;
+
+  ret->globpat = (char *)NULL;
+  ret->words = (char *)NULL;
+  ret->prefix = (char *)NULL;
+  ret->suffix = (char *)NULL;
+  ret->funcname = (char *)NULL;
+  ret->command = (char *)NULL;
+  ret->filterpat = (char *)NULL;
+
+  return ret;
+}
+
+void
+free_compspec (cs)
+     COMPSPEC *cs;
+{
+  cs->refcount--;
+  if (cs->refcount == 0)
+    {
+      FREE (cs->globpat);
+      FREE (cs->words);
+      FREE (cs->prefix);
+      FREE (cs->suffix);
+      FREE (cs->funcname);
+      FREE (cs->command);
+      FREE (cs->filterpat);
+
+      free (cs);
+    }
+}
+
+COMPSPEC *
+copy_compspec (cs)
+     COMPSPEC *cs;
+{
+  COMPSPEC *new;
+
+  new = (COMPSPEC *)xmalloc (sizeof (COMPSPEC));
+
+  new->refcount = cs->refcount;
+  new->actions = cs->actions;
+
+  new->globpat = STRDUP (cs->globpat);
+  new->words = STRDUP (cs->words);
+  new->prefix = STRDUP (cs->prefix);
+  new->suffix = STRDUP (cs->suffix);
+  new->funcname = STRDUP (cs->funcname);
+  new->command = STRDUP (cs->command);
+  new->filterpat = STRDUP (cs->filterpat);
+
+  return new;
+}
+
+void
+initialize_progcomp ()
+{
+  if (progcomp_initialized == 0)
+    {
+      prog_completes = make_hash_table (COMPLETE_HASH_BUCKETS);
+      progcomp_initialized = 1;
+    }
+}
+
+int
+num_progcomps ()
+{
+  if (progcomp_initialized == 0 || prog_completes == 0)
+    return (0);
+  return (prog_completes->nentries);
+}
+
+static void
+free_progcomp (data)
+     char *data;
+{
+  COMPSPEC *cs;
+
+  cs = (COMPSPEC *)data;
+  free_compspec (cs);
+}
+  
+void
+clear_progcomps ()
+{
+  if (prog_completes)
+    flush_hash_table (prog_completes, free_progcomp);
+}
+
+int
+remove_progcomp (cmd)
+     char *cmd;
+{
+  register BUCKET_CONTENTS *item;
+
+  if (prog_completes == 0)
+    return 1;
+
+  item = remove_hash_item (cmd, prog_completes);
+  if (item)
+    {
+      free_progcomp (item->data);
+      free (item->key);
+      free (item);
+      return (1);
+    }
+  return (0);
+}
+
+int
+add_progcomp (cmd, cs)
+      char *cmd;
+      COMPSPEC *cs;
+{
+  register BUCKET_CONTENTS *item;
+
+  if (progcomp_initialized == 0 || prog_completes == 0)
+    initialize_progcomp ();
+
+  if (cs == NULL)
+    programming_error ("add_progcomp: %s: NULL COMPSPEC", cmd);
+
+  item = add_hash_item (cmd, prog_completes);
+  if (item->data)
+    free_progcomp (item->data);
+  else
+    item->key = savestring (cmd);
+  item->data = (char *)cs;
+  cs->refcount++;
+  return 1;
+}
+
+COMPSPEC *
+find_compspec (cmd)
+     char *cmd;
+{
+  register BUCKET_CONTENTS *item;
+  COMPSPEC *cs;
+
+  if (prog_completes == 0)
+    return ((COMPSPEC *)NULL);
+
+  item = find_hash_item (cmd, prog_completes);
+
+  if (item == NULL)
+    return ((COMPSPEC *)NULL);
+
+  cs = (COMPSPEC *)item->data;
+
+  return (cs);
+}
+
+void
+print_all_compspecs (pfunc)
+     VFunction *pfunc;
+{
+  BUCKET_CONTENTS *item_list;
+  int bucket;
+  COMPSPEC *cs;
+
+  if (prog_completes == 0 || pfunc == 0)
+    return;
+
+  for (bucket = 0; bucket < prog_completes->nbuckets; bucket++)
+    {
+      item_list = get_hash_bucket (bucket, prog_completes);
+      if (item_list == 0)
+	continue;
+
+      for ( ; item_list; item_list = item_list->next)
+	{
+	  cs = (COMPSPEC *)item_list->data;
+	  (*pfunc) (item_list->key, cs);
+	}
+    }
+}
+
+#endif /* PROGRAMMABLE_COMPLETION */