🚀 go-pugleaf

As promised in my earlier message, here are the context diff's to
texindex.c. 

roland
---
Roland Roberts,  University of Rochester   BITNET: roberts@uornsrl
  Nuclear Structure Research Lab         INTERNET: rbr4@uhura.cc.rochester.edu
  271 East River Road                        UUCP: rochester!ur-cc!rbr4
  Rochester, NY  14267                       AT&T: (716) 275-8962
 
*** texindex.gnu
--- texindex.c
**************
*** 179,185
 
  /* The allocated length of `linearray'. */
 
! long lines;
 
  /* Directory to use for temporary files.  On Unix, it ends with a slash.  */
 
--- 179,185 -----
 
  /* The allocated length of `linearray'. */
 
! long nlines;
 
  /* Directory to use for temporary files.  On Unix, it ends with a slash.  */
 
**************
*** 998,1006
 
    /* Create the array of pointers to lines, with a default size frequently eno
ugh.  */
 
!   lines = total / 50;
!   if (!lines) lines = 2;
!   linearray = (char **) xmalloc (lines * sizeof (char *));
 
    /* `nextline' points to the next free slot in this array.
       `lines' is the allocated size.  */
--- 998,1006 -----
 
    /* Create the array of pointers to lines, with a default size frequently eno
ugh.  */
 
!   nlines = total / 50;
!   if (!nlines) nlines = 2;
!   linearray = (char **) xmalloc (nlines * sizeof (char *));
 
    /* `nextline' points to the next free slot in this array.
       `lines' is the allocated size.  */
**************
*** 1093,1099
        if (p != end) p++;
 
        line++;
!       if (line == linearray + lines)
        {
          char **old = linearray;
          linearray = (char **) xrealloc (linearray, sizeof (char *) * (lines *=
 4));
--- 1093,1099 -----
        if (p != end) p++;
 
        line++;
!       if (line == linearray + nlines)
        {
          char **old = linearray;
          linearray = (char **) xrealloc (linearray, sizeof (char *) * (nlines *
= 4));
**************
*** 1096,1102
        if (line == linearray + lines)
        {
          char **old = linearray;
!         linearray = (char **) xrealloc (linearray, sizeof (char *) * (lines *=
 4));
          line += linearray - old;
        }
      }
--- 1096,1102 -----
        if (line == linearray + nlines)
        {
          char **old = linearray;
!         linearray = (char **) xrealloc (linearray, sizeof (char *) * (nlines *
= 4));
          line += linearray - old;
        }
      }
**************
*** 1580,1585
    printf (s1, s2);
    printf ("\n");
  }
 
  perror_with_name (name)
       char *name;
--- 1580,1594 -----
    printf (s1, s2);
    printf ("\n");
  }
+ #ifdef VAX11C
+ #define noshare noshare
+ #else
+ #define noshare
+ #endif
+ #ifdef VMS
+ #include <errno.h>
+ #include <perror.h>
+ #endif
 
  perror_with_name (name)
       char *name;
**************
*** 1584,1591
  perror_with_name (name)
       char *name;
  {
- #ifdef VMS
- #include <errno.h>
    extern noshare int sys_nerr;
    extern noshare char *sys_errlist[];
  #else
--- 1593,1598 -----
  perror_with_name (name)
       char *name;
  {
    extern noshare int sys_nerr;
    extern noshare char *sys_errlist[];
    char *s;
**************
*** 1588,1597
  #include <errno.h>
    extern noshare int sys_nerr;
    extern noshare char *sys_errlist[];
- #else
-   extern int errno, sys_nerr;
-   extern char *sys_errlist[];
- #endif
    char *s;
 
    if (errno < sys_nerr)
--- 1595,1600 -----
  {
    extern noshare int sys_nerr;
    extern noshare char *sys_errlist[];
    char *s;
 
    if (errno < sys_nerr)
**************
*** 1604,1611
  pfatal_with_name (name)
       char *name;
  {
!   extern int errno, sys_nerr;
!   extern char *sys_errlist[];
    char *s;
 
    if (errno < sys_nerr)
--- 1607,1614 -----
  pfatal_with_name (name)
       char *name;
  {
!   extern noshare int errno, sys_nerr;
!   extern noshare char *sys_errlist[];
    char *s;
 
    if (errno < sys_nerr)
**************
*** 1663,1668
  #ifdef VMS
    short zero = 0;
    long max_str = 65535;
 
    while (length > max_str) {
      (void) LIB$MOVC5 (&zero, &zero, &zero, &max_str, b);
--- 1666,1672 -----
  #ifdef VMS
    short zero = 0;
    long max_str = 65535;
+   long len;
 
    while (length > max_str) {
      (void) LIB$MOVC5 (&zero, &zero, &zero, &max_str, b);
**************
*** 1669,1675
      length -= max_str;
      b += max_str;
    }
!   (void) LIB$MOVC5 (&zero, &zero, &zero, &length, b);
  #else
    while (length-- > 0)
      *b++ = 0;
--- 1673,1680 -----
      length -= max_str;
      b += max_str;
    }
!   len = length;
!   (void) LIB$MOVC5 (&zero, &zero, &zero, &len, b);
  #else
    while (length-- > 0)
      *b++ = 0;