Subversion Repositories SvarDOS

Rev

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

Rev 372 Rev 373
Line 8... Line 8...
8 
  char *buff = p->BUFFER;
 8 
  char *buff = p->BUFFER;
9 
 
 9 
 
10 
  /* no parameter - display current path */
 10 
  /* no parameter - display current path */
11 
  if (p->argc == 0) {
 11 
  if (p->argc == 0) {
12 
    char far *curpath = env_lookup(p->env_seg, "PATH");
 12 
    char far *curpath = env_lookup(p->env_seg, "PATH");
13 
    if (curpath != NULL) {
 13 
    if (curpath == NULL) {
- 
 
 14 
      outputnl("No Path");
- 
 
 15 
    } else {
14 
      unsigned short i;
 16 
      unsigned short i;
15 
      for (i = 0;; i++) {
 17 
      for (i = 0;; i++) {
16 
        buff[i] = curpath[i];
 18 
        buff[i] = curpath[i];
17 
        if (buff[i] == 0) break;
 19 
        if (buff[i] == 0) break;
18 
      }
 20 
      }
Line 56... Line 58...
56 
    for (i = 0;; i++) {
 58 
    for (i = 0;; i++) {
57 
      buff[i + 5] = p->argv[0][i];
 59 
      buff[i + 5] = p->argv[0][i];
58 
      if (buff[i + 5] == '\r') break;
 60 
      if (buff[i + 5] == '\r') break;
59 
    }
 61 
    }
60 
    buff[i + 5] = 0;
 62 
    buff[i + 5] = 0;
61 
    outputnl("---");
 - 
 
62 
    outputnl(buff);
 - 
 
63 
    outputnl("---");
 - 
 
64 
    env_setvar(p->env_seg, buff);
 63 
    env_setvar(p->env_seg, buff);
65 
  }
 64 
  }
66 
 
 65 
 
67 
  return(-1);
 66 
  return(-1);
68 
}
 67 
}