Article 850 of comp.sys.amiga:
Path: fishpond!mcdsun!noao!hao!ames!mailrus!umix!uunet!mcvax!enea!ttds!draken!kth!sics!jw
From: jw@sics.se (Johan Widen)
Newsgroups: comp.sys.amiga
Subject: VT100R2.8 bug: XPROTO and FONT init not working (fix)
Message-ID: <1792@sics.se>
Date: 5 Mar 88 20:53:46 GMT
Reply-To: jw@sics.se (Johan Widen)
Organization: Swedish Institute of Computer Science, Kista
Lines: 50

*** script.c.old	Tue Mar 01 14:00:20 1988
--- script.c	Sat Mar 05 19:17:26 1988
***************
*** 866,876 ****
  void cmd_xproto(par)
  char	*par;
  {
!     int i, l = strlen(par);
!     char temp[40];
  
      /* downcase the parameter */
!     for(i=0; i<l; i++) par[i] |= ' ';
  
      p_xproto = MODEMAX + 1;	/* Establish a default */
  
--- 866,881 ----
  void cmd_xproto(par)
  char	*par;
  {
!     int i;
!     char temp[40], *p;
  
+     if(!(par = strtok(par," \t\n"))) {
+ 	puts("XPROTO no parameter\n");
+ 	if(doing_init == 0) redofile();
+ 	return;
+     }
      /* downcase the parameter */
!     for(p = par; *p; *p++ |= ' ');
  
      p_xproto = MODEMAX + 1;	/* Establish a default */
  
***************
*** 963,968 ****
--- 968,977 ----
      /*  myfontname has been initialized from p_font in InitDefaults() in
      ** init.c */
  
+     if(!(par = strtok(par," \t\n"))) {
+ 	puts("FONT no parameter\n");
+ 	return;
+     }
      if(*par) {
  	if(strlen(par) < MAXFONTVARLEN) {
  	    strcpy(myfontname, par);
-- 
Johan Widen
SICS, PO Box 1263, S-164 28 KISTA, SWEDEN
Tel: +46 8 752 15 32	Ttx: 812 61 54 SICS S	Fax: +46 8 751 72 30
Internet: jw@sics.se or {mcvax,munnari,ukc,unido}!enea!sics.se!jw