🚀 go-pugleaf

----------------------------------

	There are two bugs in the tgraph routines for SysVr2 curses,
which were distributed in net.sources a few days ago, and context
diff patches for both are below.

	The first is that the character storage in the structure
__g__ch_ is a char sized variable, which is insufficient, as it
must have 16 bits to hold the 7-bit character and 9-bit video
enhancements.  This is found in both tgraph.h and tgload.c.  No
doubt the previous version works by accident on some machines due
to word alignment considerations; it did not work here (HP9000 s500).

	The second is that the upper/lower right corner characters
are reversed at one point in tgload.c.

	Both bugs are fixed below, if your machine has at least 16
bits in a "short".  If not, change to "int".

-Bruce Townsend (bnr-vpa!bruce)

*** tgraph.h.old	Thu Nov  6 13:25:48 1986
--- tgraph.h	Thu Nov  6 13:31:42 1986
***************
*** 15,21
  
  extern struct __g__ch_ {
  	char g_name[6];
! 	char g_graph;
  } __graph[];
  
  #define ACS_HLINE	(__graph[0].g_graph)

--- 15,21 -----
  
  extern struct __g__ch_ {
  	char g_name[6];
! 	short g_graph;
  } __graph[];
  
  #define ACS_HLINE	(__graph[0].g_graph)


*** tgload.c.old	Thu Nov  6 13:25:47 1986
--- tgload.c	Thu Nov  6 13:31:47 1986
***************
*** 27,33
  
  struct graph {
  	char g_name[6];
! 	char g_graph;
  } __graph[] = {
  	"hor",		'-',
  	"vert",		'|',

--- 27,33 -----
  
  struct graph {
  	char g_name[6];
! 	short g_graph;
  } __graph[] = {
  	"hor",		'-',
  	"vert",		'|',
***************
*** 38,44
  	"dtee",		'+',
  	"ll",		'+',
  	"ul",		'+',
- 	"lr",		'+',
  	"ur",		'+',
  	"scan9",	'_',
  	"scan1",	'-',

--- 38,43 -----
  	"dtee",		'+',
  	"ll",		'+',
  	"ul",		'+',
  	"ur",		'+',
  	"lr",		'+',
  	"scan9",	'_',
***************
*** 40,45
  	"ul",		'+',
  	"lr",		'+',
  	"ur",		'+',
  	"scan9",	'_',
  	"scan1",	'-',
  	"up",		'^',

--- 39,45 -----
  	"ll",		'+',
  	"ul",		'+',
  	"ur",		'+',
+ 	"lr",		'+',
  	"scan9",	'_',
  	"scan1",	'-',
  	"up",		'^',
***************
*** 56,61
  	"block",	'#',
  	"",		'\0',
  };
  
  extern char *getenv();
  

--- 56,63 -----
  	"block",	'#',
  	"",		'\0',
  };
+ 
+ #endif ACS_DIAMOND
  
  extern char *getenv();
  
-- 
			Bruce Townsend (bnr-vpa!bruce)
			Bell-Northern Research,
			Ottawa, Ontario.
Phone:	(613) 726-3008
Mail path: {utzoo, utcs}!bnr-vpa!bruce