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 49... Line 49...
49 
    unsigned short i;
 49 
    unsigned short i;
50 
    char *buff = p->BUFFER;
 50 
    char *buff = p->BUFFER;
51 
    strcpy(buff, "PROMPT=");
 51 
    strcpy(buff, "PROMPT=");
52 
    for (i = 0;; i++) {
 52 
    for (i = 0;; i++) {
53 
      buff[i + 7] = p->cmdline[p->argoffset + i];
 53 
      buff[i + 7] = p->cmdline[p->argoffset + i];
54 
      if (buff[i + 7] == '\r') break;
 54 
      if (buff[i + 7] == 0) break;
55 
    }
 55 
    }
56 
    buff[i + 7] = 0;
 - 
 
57 
    env_setvar(p->env_seg, buff);
 56 
    env_setvar(p->env_seg, buff);
58 
  }
 57 
  }
59 
 
 58 
 
60 
  return(-1);
 59 
  return(-1);
61 
}
 60 
}