Something is still fishy in termcap & terminfo parameters

Something is still fishy in termcap & terminfo parameters

[Bart Schaefer]

zagzig% echo $termcap[co]
-4611700861834362800
zagzig% print -R ${(k)termcap[(R)*4611*]} 
co it li
zagzig% print -R ${(k)terminfo[(R)*4611*]} 
cols it lines

My terminal definitely does not have a large negative number of columns
and lines, nor does it have tabs every -4611700861834362800 spaces.

-- 
Bart Schaefer                                 Brass Lantern Enterprises
http://www.well.com/user/barts              http://www.brasslantern.com

Zsh: http://www.zsh.org | PHPerl Project: http://phperl.sourceforge.net   

PATCH: Re: Something is still fishy in termcap & terminfo parameters

[Clint Adams]

> zagzig% echo $termcap[co]
> -4611700861834362800

Oh dear.

Index: Src/params.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/params.c,v
retrieving revision 1.38
diff -u -r1.38 params.c
--- Src/params.c	2001/04/21 18:49:13	1.38
+++ Src/params.c	2001/04/22 14:39:40
@@ -2153,7 +2153,7 @@
 /* Function to get value of an integer parameter */
 
 /**/
-static zlong
+mod_export zlong
 intgetfn(Param pm)
 {
     return pm->u.val;
Index: Src/Modules/termcap.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/Modules/termcap.c,v
retrieving revision 1.7
diff -u -r1.7 termcap.c
--- Src/Modules/termcap.c	2001/04/21 21:41:28	1.7
+++ Src/Modules/termcap.c	2001/04/22 14:39:58
@@ -208,6 +208,8 @@
     pm->flags = PM_READONLY;
     pm->sets.cfn = NULL;
     pm->gets.cfn = strgetfn;
+    pm->sets.ifn = NULL;
+    pm->gets.ifn = intgetfn;
     pm->unsetfn = NULL;
     pm->ct = 0;
     pm->env = NULL;
@@ -305,6 +307,8 @@
     pm = (Param) zhalloc(sizeof(struct param));
     pm->sets.cfn = NULL;
     pm->gets.cfn = strgetfn;
+    pm->sets.ifn = NULL;
+    pm->gets.ifn = intgetfn;
     pm->unsetfn = NULL;
     pm->ct = 0;
     pm->env = NULL;
Index: Src/Modules/terminfo.c
===================================================================
RCS file: /cvsroot/zsh/zsh/Src/Modules/terminfo.c,v
retrieving revision 1.14
diff -u -r1.14 terminfo.c
--- Src/Modules/terminfo.c	2001/04/13 16:29:28	1.14
+++ Src/Modules/terminfo.c	2001/04/22 14:39:58
@@ -181,6 +181,8 @@
     pm->flags = PM_READONLY;
     pm->sets.cfn = NULL;
     pm->gets.cfn = strgetfn;
+    pm->sets.ifn = NULL;
+    pm->gets.ifn = intgetfn;
     pm->unsetfn = NULL;
     pm->ct = 0;
     pm->env = NULL;
@@ -291,6 +293,8 @@
     pm = (Param) zhalloc(sizeof(struct param));
     pm->sets.cfn = NULL;
     pm->gets.cfn = strgetfn;
+    pm->sets.ifn = NULL;
+    pm->gets.ifn = intgetfn;
     pm->unsetfn = NULL;
     pm->ct = 0;
     pm->env = NULL;