[comp.sys.amiga] VT100R2.8 bug: XPROTO and FONT init not working

jw@sics.se (Johan Widen) (03/06/88)

*** 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