Subversion Repositories SvarDOS

Rev

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

Rev 1881 Rev 1988
Line 823... Line 823...
823 
int link_computefname(char *fname, const char *linkname, unsigned short env_seg) {
 823 
int link_computefname(char *fname, const char *linkname, unsigned short env_seg) {
824 
  unsigned short pathlen, doserr = 0;
 824 
  unsigned short pathlen, doserr = 0;
825 
 
 825 
 
826 
  /* fetch %DOSDIR% */
 826 
  /* fetch %DOSDIR% */
827 
  pathlen = env_lookup_valcopy(fname, 128, env_seg, "DOSDIR");
 827 
  pathlen = env_lookup_valcopy(fname, 128, env_seg, "DOSDIR");
828 
  if (pathlen == 0) {
 828 
  if (pathlen == 0) return(-1);
829 
    nls_outputnl(29,5); /* "%DOSDIR% not defined" */
 - 
 
830 
    return(-1);
 - 
 
831 
  }
 - 
 
832 
 
 829 
 
833 
  /* prep filename: %DOSDIR%\LINKS\PKG.LNK */
 830 
  /* prep filename: %DOSDIR%\LINKS\PKG.LNK */
834 
  if (fname[pathlen - 1] == '\\') pathlen--;
 831 
  if (fname[pathlen - 1] == '\\') pathlen--;
835 
  pathlen += sprintf(fname + pathlen, "\\LINKS");
 832 
  pathlen += sprintf(fname + pathlen, "\\LINKS");
836 
  /* create \LINKS if not exists */
 833 
  /* create \LINKS if not exists */