Subversion Repositories SvarDOS

Rev

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

Rev 421 Rev 462
Line 79... Line 79...
79 
  {
 79 
  {
80 
    unsigned short i;
 80 
    unsigned short i;
81 
    strcpy(buff, "PATH=");
 81 
    strcpy(buff, "PATH=");
82 
    for (i = 0;; i++) {
 82 
    for (i = 0;; i++) {
83 
      buff[i + 5] = p->argv[0][i];
 83 
      buff[i + 5] = p->argv[0][i];
84 
      if (buff[i + 5] == '\r') break;
 84 
      if (buff[i + 5] == 0) break;
85 
    }
 85 
    }
86 
    buff[i + 5] = 0;
 - 
 
87 
    env_setvar(p->env_seg, buff);
 86 
    env_setvar(p->env_seg, buff);
88 
  }
 87 
  }
89 
 
 88 
 
90 
  return(-1);
 89 
  return(-1);
91 
}
 90 
}