| 0,0 → 1,162 |
|---|
| /* This file is part of the SvarCOM project and is published under the terms |
| * of the MIT license. |
| * |
| * Copyright (C) 2021-2022 Mateusz Viste |
| * |
| * Permission is hereby granted, free of charge, to any person obtaining a |
| * copy of this software and associated documentation files (the "Software"), |
| * to deal in the Software without restriction, including without limitation |
| * the rights to use, copy, modify, merge, publish, distribute, sublicense, |
| * and/or sell copies of the Software, and to permit persons to whom the |
| * Software is furnished to do so, subject to the following conditions: |
| * |
| * The above copyright notice and this permission notice shall be included in |
| * all copies or substantial portions of the Software. |
| * |
| * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
| * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
| * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER |
| * DEALINGS IN THE SOFTWARE. |
| */ |
| |
| /* |
| * rename/ren |
| */ |
| |
| static enum cmd_result cmd_rename(struct cmd_funcparam *p) { |
| char *src = p->BUFFER; |
| char *dst = p->BUFFER + 256; |
| char *buff1 = p->BUFFER + 512; |
| char *buff2 = p->BUFFER + 1024; |
| unsigned short i, fnameoffset; |
| struct DTA *dta = (void *)0x80; /* use default DTA in PSP */ |
| |
| if (cmd_ishlp(p)) { |
| nls_outputnl(25,0); /* "Renames one or more files or directories." */ |
| outputnl(""); |
| nls_outputnl(25,1); /* "RENAME [drive:][path]oldname newname" */ |
| nls_outputnl(25,2); /* "REN [drive:][path]oldname newname" */ |
| outputnl(""); |
| nls_outputnl(25,3); /* "Note that you cannot specify a new drive or (...)" */ |
| return(CMD_OK); |
| } |
| |
| /* I expect exactly two arguments */ |
| if (p->argc != 2) { |
| nls_outputnl(0,1); /* "Invalid syntax" */ |
| return(CMD_FAIL); |
| } |
| |
| /* convert src to truename format */ |
| i = file_truename(p->argv[0], src); |
| if (i != 0) { |
| nls_outputnl_doserr(i); |
| return(CMD_FAIL); |
| } |
| |
| /* copy src path to buffers and remember where the filename starts */ |
| fnameoffset = 0; |
| for (i = 0;; i++) { |
| buff1[i] = src[i]; |
| buff2[i] = src[i]; |
| if (buff1[i] == '\\') fnameoffset = i + 1; |
| if (buff1[i] == 0) break; |
| } |
| |
| /* now append dst filename to the buffer and validate it: cannot contain backslash, slash or ':' */ |
| for (i = 0;; i++) { |
| switch (p->argv[1][i]) { |
| case ':': |
| case '\\': |
| case '/': |
| nls_outputnl(0,8); /* "Invalid destination" */ |
| return(CMD_FAIL); |
| } |
| buff1[fnameoffset + i] = p->argv[1][i]; |
| if (buff1[fnameoffset + i] == 0) break; |
| } |
| |
| /* apply truename to dest to normalize wildcards into ? chars */ |
| i = file_truename(buff1, dst); |
| if (i != 0) { |
| nls_outputnl_doserr(i); |
| return(CMD_FAIL); |
| } |
| |
| /* we're good to go, src and dst should look somehow like that now: |
| * src = C:\TEMP\PATH\FILE????.TXT |
| * dst = C:\TEMP\PATH\FILE????.DOC |
| * buff1 = C:\TEMP\PATH\ |
| * buff2 = C:\TEMP\PATH\ |
| * fnameoffset = 13 |
| * |
| * src is used for FindFirst/FindNext iterations, then buff1 is filled with |
| * the source filename found by FindFirst/FindNext and buff2 is filled with |
| * the destination file (with ?'s replaced by whatever is found at the same |
| * location in buff1). |
| */ |
| |
| i = findfirst(dta, src, DOS_ATTR_RO | DOS_ATTR_HID | DOS_ATTR_SYS | DOS_ATTR_ARC | DOS_ATTR_DIR); |
| if (i != 0) nls_outputnl_doserr(i); |
| |
| while (i == 0) { |
| /* write found fname into buff1 and dst fname into buff2 - both in FCB |
| * format (MYFILE EXT) so it is easy to compare them */ |
| file_fname2fcb(buff1 + fnameoffset, dta->fname); |
| file_fname2fcb(buff2 + fnameoffset, dst + fnameoffset); |
| |
| /* scan buff2 fname for '?' and replace them with whatever is in buff1 */ |
| for (i = fnameoffset; buff2[i] != 0; i++) { |
| if (buff2[i] == '?') buff2[i] = buff1[i]; |
| } |
| |
| /* fill buff1 with the 8+3 found file and convert the one in buff2 to 8+3 as well */ |
| file_fcb2fname(buff1 + fnameoffset, buff2 + fnameoffset); |
| strcpy(buff2 + fnameoffset, buff1 + fnameoffset); |
| strcpy(buff1 + fnameoffset, dta->fname); |
| |
| /* buff1 contains now a fully resolved source and buff2 a proper destination */ |
| #if 0 /* DEBUG ("if 1" to enable) */ |
| output(buff1); |
| output(" -> "); |
| outputnl(buff2); |
| #endif |
| /* call DOS to do the actual job */ |
| i = 0; |
| _asm { |
| push ax |
| push di |
| push dx |
| push es |
| |
| mov ah, 0x56 /* rename file: DS:DX=ASCIIZ of src ES:DI=ASCIIZ of dst */ |
| push ds |
| pop es |
| mov dx, buff1 |
| mov di, buff2 |
| int 0x21 /* CF clear on success, otherwise err code in AX */ |
| jnc DONE |
| mov [i], ax /* copy error code to i */ |
| DONE: |
| |
| pop es |
| pop dx |
| pop di |
| pop ax |
| } |
| if (i != 0) { |
| output(buff1 + fnameoffset); |
| output(" -> "); |
| output(buff2 + fnameoffset); |
| output(" "); |
| nls_outputnl_doserr(i); |
| } |
| /* next please */ |
| i = findnext(dta); |
| } |
| |
| return(CMD_OK); |
| } |