(Fbyte_code): Use BEFORE_POTENTIAL_GC and

[gnu-emacs] / src / termcap.c

diff --git a/src/termcap.c b/src/termcap.c
index 2b0277874baaf2e471fd28a2174b4da87a3fdb9d..c447ce8b4b07f7d82e90e9a82c687207e701a7ec 100644 (file)
--- a/src/termcap.c
+++ b/src/termcap.c
@@ -13,7 +13,8 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; see the file COPYING.  If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
 
 /* Emacs config.h may rename various library functions such as malloc.  */
 #ifdef HAVE_CONFIG_H
@@ -172,6 +173,17 @@ tgetstr (cap, area)
   return tgetst1 (ptr, area);
 }
 
+#ifdef IS_EBCDIC_HOST
+/* Table, indexed by a character in range 0200 to 0300 with 0200 subtracted,
+   gives meaning of character following \, or a space if no special meaning.
+   Sixteen characters per line within the string.  */
+
+static char esctab[]
+  = " \057\026  \047\014         \
+     \025   \015      \
+   \005 \013          \
+                ";
+#else
 /* Table, indexed by a character in range 0100 to 0140 with 0100 subtracted,
    gives meaning of character following \, or a space if no special meaning.
    Eight characters per line within the string.  */
@@ -181,6 +193,7 @@ static char esctab[]
       \012 \
   \015 \011 \013 \
         ";
+#endif
 
 /* PTR points to a string value inside a termcap entry.
    Copy that value, processing \ and ^ abbreviations,
@@ -244,12 +257,21 @@ tgetst1 (ptr, area)
                  p++;
                }
            }
+#ifdef IS_EBCDIC_HOST
+         else if (c >= 0200 && c < 0360)
+           {
+             c1 = esctab[(c & ~0100) - 0200];
+             if (c1 != ' ')
+               c = c1;
+           }
+#else
          else if (c >= 0100 && c < 0200)
            {
              c1 = esctab[(c & ~040) - 0100];
              if (c1 != ' ')
                c = c1;
            }
+#endif
        }
       *r++ = c;
     }
@@ -348,7 +370,7 @@ tputs (str, nlines, outfun)
 \f
 /* Finding the termcap entry in the termcap data base.  */
 
-struct buffer
+struct termcap_buffer
   {
     char *beg;
     int size;
@@ -421,7 +443,7 @@ tgetent (bp, name)
 {
   register char *termcap_name;
   register int fd;
-  struct buffer buf;
+  struct termcap_buffer buf;
   register char *bp1;
   char *tc_search_point;
   char *term;
@@ -584,7 +606,7 @@ static int
 scan_file (str, fd, bufp)
      char *str;
      int fd;
-     register struct buffer *bufp;
+     register struct termcap_buffer *bufp;
 {
   register char *end;
 
@@ -680,7 +702,7 @@ compare_contin (str1, str2)
 static char *
 gobble_line (fd, bufp, append_end)
      int fd;
-     register struct buffer *bufp;
+     register struct termcap_buffer *bufp;
      char *append_end;
 {
   register char *end;
@@ -781,4 +803,3 @@ tprint (cap)
 }
 
 #endif /* TEST */
-