Subversion Repositories SvarDOS

Rev

Rev 364 | Rev 371 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 364 Rev 369
Line 21... Line 21...
21 
        if (buff[i] == 0) break;
 21 
        if (buff[i] == 0) break;
22 
      }
 22 
      }
23 
      puts(buff);
 23 
      puts(buff);
24 
    }
 24 
    }
25 
  } else if ((p->argc == 1) && (imatch(p->argv[0], "/?"))) {
 25 
  } else if ((p->argc == 1) && (imatch(p->argv[0], "/?"))) {
26 
    puts("TODO: help screen"); /* TODO */
 26 
    outputnl("TODO: help screen"); /* TODO */
27 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
 27 
  } else { /* set variable (do not rely on argv, SET has its own rules...) */
28 
    const char far *ptr;
 28 
    const char far *ptr;
29 
    char buff[256];
 29 
    char buff[256];
30 
    unsigned short i;
 30 
    unsigned short i;
31 
    /* locate the first space */
 31 
    /* locate the first space */
Line 51... Line 51...
51 
    buff[i] = 0;
 51 
    buff[i] = 0;
52 
 
 52 
 
53 
    /* commit variable to environment */
 53 
    /* commit variable to environment */
54 
    i = env_setvar(p->env_seg, buff);
 54 
    i = env_setvar(p->env_seg, buff);
55 
    if (i == ENV_INVSYNT) goto syntax_err;
 55 
    if (i == ENV_INVSYNT) goto syntax_err;
56 
    if (i == ENV_NOTENOM) puts("Not enough available space within the environment block");
 56 
    if (i == ENV_NOTENOM) outputnl("Not enough available space within the environment block");
57 
  }
 57 
  }
58 
  return(-1);
 58 
  return(-1);
59 
 
 59 
 
60 
  syntax_err:
 60 
  syntax_err:
61 
 
 61 
 
62 
  puts("Syntax error");
 62 
  outputnl("Syntax error");
63 
  return(-1);
 63 
  return(-1);
64 
}
 64 
}