1 files changed, 0 insertions, 238 deletions
diff --git a/contrib/texinfo/util/deref.c b/contrib/texinfo/util/deref.c
deleted file mode 100644
index c15bc1a..0000000
--- a/contrib/texinfo/util/deref.c
+++ /dev/null
@@ -1,238 +0,0 @@
-/*
- * deref.c
-
- *  compile command:  gcc -g -o deref deref.c
-
- *  execute command:  deref filename.texi > newfile.texi
-
- * To: bob@gnu.ai.mit.edu
- * Subject: another tool
- * Date: 18 Dec 91 16:03:13 EST (Wed)
- * From: gatech!skeeve!arnold@eddie.mit.edu (Arnold D. Robbins)
- *
- * Here is deref.c.  It turns texinfo cross references back into the
- * one argument form. It has the same limitations as fixref; one xref per
- * line and can't cross lines.  You can use it to find references that do
- * cross a line boundary this way:
- *
- * 	deref < manual > /dev/null 2>errs
- *
- * (This assumes bash or /bin/sh.)  The file errs will have list of lines
- * where deref could not find matching braces.
- *
- * A gawk manual processed by deref goes through makeinfo without complaint.
- * Compile with gcc and you should be set.
- *
- * Enjoy,
- *
- * Arnold
- * -----------
- */
-
-/*
- * deref.c
- *
- * Make all texinfo references into the one argument form.
- *
- * Arnold Robbins
- * arnold@skeeve.atl.ga.us
- * December, 1991
- *
- * Copyright, 1991, Arnold Robbins
- */
-
-/*
- * LIMITATIONS:
- *	One texinfo cross reference per line.
- *	Cross references may not cross newlines.
- *	Use of fgets for input (to be fixed).
- */
-
-#include <stdio.h>
-#include <ctype.h>
-#include <errno.h>
-
-/* for gcc on the 3B1, delete if this gives you grief */
-extern int fclose (FILE * fp);
-extern int fprintf (FILE * fp, const char *str,...);
-
-extern char *strerror (int errno);
-extern char *strchr (char *cp, int ch);
-extern int strncmp (const char *s1, const char *s2, int count);
-
-extern int errno;
-
-void process (FILE * fp);
-void repair (char *line, char *ref, int toffset);
-
-int Errs = 0;
-char *Name = "stdin";
-int Line = 0;
-char *Me;
-
-/* main --- handle arguments, global vars for errors */
-
-int
-main (int argc, char **argv)
-{
-  FILE *fp;
-
-  Me = argv[0];
-
-  if (argc == 1)
-    process (stdin);
-  else
-    for (argc--, argv++; *argv != NULL; argc--, argv++)
-      {
-	if (argv[0][0] == '-' && argv[0][1] == '\0')
-	  {
-	    Name = "stdin";
-	    Line = 0;
-	    process (stdin);
-	  }
-	else if ((fp = fopen (*argv, "r")) != NULL)
-	  {
-	    Name = *argv;
-	    Line = 0;
-	    process (fp);
-	    fclose (fp);
-	  }
-	else
-	  {
-	    fprintf (stderr, "%s: can not open: %s\n",
-		     *argv, strerror (errno));
-	    Errs++;
-	  }
-      }
-  return Errs != 0;
-}
-
-/* isref --- decide if we've seen a texinfo cross reference */
-
-int
-isref (char *cp)
-{
-  if (strncmp (cp, "@ref{", 5) == 0)
-    return 5;
-  if (strncmp (cp, "@xref{", 6) == 0)
-    return 6;
-  if (strncmp (cp, "@pxref{", 7) == 0)
-    return 7;
-  return 0;
-}
-
-/* process --- read files, look for references, fix them up */
-
-void
-process (FILE * fp)
-{
-  char buf[BUFSIZ];
-  char *cp;
-  int count;
-
-  while (fgets (buf, sizeof buf, fp) != NULL)
-    {
-      Line++;
-      cp = strchr (buf, '@');
-      if (cp == NULL)
-	{
-	  fputs (buf, stdout);
-	  continue;
-	}
-      do
-	{
-	  count = isref (cp);
-	  if (count == 0)
-	    {
-	      cp++;
-	      cp = strchr (cp, '@');
-	      if (cp == NULL)
-		{
-		  fputs (buf, stdout);
-		  goto next;
-		}
-	      continue;
-	    }
-	  /* got one */
-	  repair (buf, cp, count);
-	  break;
-	}
-      while (cp != NULL);
-    next:;
-    }
-}
-
-/* repair --- turn all texinfo cross references into the one argument form */
-
-void
-repair (char *line, char *ref, int toffset)
-{
-  int braces = 1;		/* have seen first left brace */
-  char *cp;
-
-  ref += toffset;
-
-  /* output line up to and including left brace in reference */
-  for (cp = line; cp <= ref; cp++)
-    putchar (*cp);
-
-  /* output node name */
-  for (; *cp && *cp != '}' && *cp != ',' && *cp != '\n'; cp++)
-    putchar (*cp);
-
-  if (*cp != '}')
-    {				/* could have been one arg xref */
-      /* skip to matching right brace */
-      for (; braces > 0; cp++)
-	{
-	  switch (*cp)
-	    {
-	    case '@':
-	      cp++;		/* blindly skip next character */
-	      break;
-	    case '{':
-	      braces++;
-	      break;
-	    case '}':
-	      braces--;
-	      break;
-	    case '\n':
-	    case '\0':
-	      Errs++;
-	      fprintf (stderr,
-		       "%s: %s: %d: mismatched braces\n",
-		       Me, Name, Line);
-	      goto out;
-	    default:
-	      break;
-	    }
-	}
-    out:
-      ;
-    }
-
-  putchar ('}');
-  if (*cp == '}')
-    cp++;
-
-  /* now the rest of the line */
-  for (; *cp; cp++)
-    putchar (*cp);
-  return;
-}
-
-/* strerror --- return error string, delete if in your library */
-
-char *
-strerror (int errno)
-{
-  static char buf[100];
-  extern int sys_nerr;
-  extern char *sys_errlist[];
-
-  if (errno < sys_nerr && errno >= 0)
-    return sys_errlist[errno];
-
-  sprintf (buf, "unknown error %d", errno);
-  return buf;
-}