| /svarcom/trunk/cmd/ln.c |
|---|
| 48,7 → 48,7 |
| return(CMD_FAIL); |
| } |
| /* open DOSDIR\CFG\LINKS.DB and write realdirname to */ |
| /* compute the filename of the link file */ |
| if (link_computefname(buff, linkname, env_seg) != 0) return(CMD_FAIL); |
| realdirnamelen = strlen(realdirname); |
| 159,18 → 159,13 |
| linkname = "*"; |
| } |
| /* fetch %DOSDIR% */ |
| pathlen = env_lookup_valcopy(buff, 128, env_seg, "DOSDIR"); |
| if (pathlen == 0) { |
| nls_outputnl(29,5); /* "%DOSDIR% not defined" */ |
| return(CMD_FAIL); |
| } |
| /* prep DOSDIR\LINKS\pattern */ |
| if (buff[pathlen - 1] == '\\') pathlen--; |
| pathlen += sprintf(buff + pathlen, "\\LINKS\\"); |
| sprintf(buff + pathlen, "%s.LNK", linkname); |
| if (link_computefname(buff, linkname, env_seg) != 0) return(CMD_FAIL); |
| /* set pathlen to end of path (char after last backslash) */ |
| pathlen = 0; |
| for (i = 0; buff[i] != 0; i++) if (buff[i] == '\\') pathlen = i + 1; |
| if (findfirst(dta, buff, DOS_ATTR_RO | DOS_ATTR_ARC) != 0) return(CMD_OK); |
| do { |
| /svarcom/trunk/helpers.c |
|---|
| 729,13 → 729,21 |
| /* fetch %DOSDIR% */ |
| pathlen = env_lookup_valcopy(fname, 128, env_seg, "DOSDIR"); |
| if (pathlen == 0) { |
| outputnl("%DOSDIR% not defined"); |
| nls_outputnl(29,5); /* "%DOSDIR% not defined" */ |
| return(-1); |
| } |
| /* prep filename: %DOSDIR%\LINKS\PKG.LNK */ |
| if (fname[pathlen - 1] == '\\') pathlen--; |
| sprintf(fname + pathlen, "\\LINKS\\%s.LNK", linkname); |
| pathlen += sprintf(fname + pathlen, "\\LINKS"); |
| /* quit early if dir does not exist */ |
| if (file_getattr(fname) != DOS_ATTR_DIR) { |
| output(fname); |
| output(" - "); |
| nls_outputnl(255,3); /* path not found */ |
| return(-1); |
| } |
| sprintf(fname + pathlen, "\\%s.LNK", linkname); |
| return(0); |
| } |
| /svarcom/trunk/history.txt |
|---|
| 6,6 → 6,7 |
| === ver 2022.3 (xx.xx.xxxx) ================================================== |
| - fixed stdin redirection handling (was broken since 2022.1) |
| - ln warns about non-existing %DOSDIR%\LINKS directory |
| - added German translations, courtesy of Robert Riebisch (bttr) |
| - added French translations, kindly contributed by Berki Yenigün (thraex) |