| 0,0 → 1,143 |
|---|
| /* 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. |
| */ |
| |
| /* |
| * del/erase |
| */ |
| |
| static enum cmd_result cmd_del(struct cmd_funcparam *p) { |
| const char *delspec = NULL; |
| unsigned short err = 0; |
| unsigned short confirmflag = 0; |
| unsigned short i; |
| unsigned short pathlimit = 0; |
| char *buff = p->BUFFER; |
| |
| struct DTA *dta = (void *)0x80; /* use the default DTA at location 80h in PSP */ |
| char *fname = dta->fname; |
| |
| if (cmd_ishlp(p)) { |
| nls_outputnl(36,0); /* "Deletes one or more files." */ |
| outputnl(""); |
| nls_outputnl(36,1); /* "DEL [drive:][path]filename [/P]" */ |
| nls_outputnl(36,2); /* "ERASE [drive:][path]filename [/P]" */ |
| outputnl(""); |
| nls_outputnl(36,3); /* "[drive:][path]filename Specifies the file(s) to delete." */ |
| nls_outputnl(36,4); /* "/P Prompts for confirmation before deleting each file." */ |
| return(CMD_OK); |
| } |
| |
| if (p->argc == 0) { |
| nls_outputnl(0,7); /* "Required parameter missing" */ |
| return(CMD_FAIL); |
| } |
| |
| /* scan argv for delspec and possible /p or /v */ |
| for (i = 0; i < p->argc; i++) { |
| /* delspec? */ |
| if (p->argv[i][0] == '/') { |
| if (imatch(p->argv[i], "/p")) { |
| confirmflag = 1; |
| } else { |
| nls_output(0,2); /* "Invalid switch" */ |
| output(": "); |
| outputnl(p->argv[i]); |
| return(CMD_FAIL); |
| } |
| } else if (delspec != NULL) { /* otherwise its a delspec */ |
| nls_outputnl(0,4); /* "Too many parameters" */ |
| return(CMD_FAIL); |
| } else { |
| delspec = p->argv[i]; |
| } |
| } |
| |
| /* convert path to canonical form */ |
| file_truename(delspec, buff); |
| |
| /* is delspec pointing at a directory? if so, add a \*.* */ |
| i = path_appendbkslash_if_dir(buff); |
| if (buff[i - 1] == '\\') strcat(buff, "????????.???"); |
| |
| /* parse delspec in buff and remember where last backslash or slash is */ |
| for (i = 0; buff[i] != 0; i++) if (buff[i] == '\\') pathlimit = i + 1; |
| |
| /* is this about deleting all content inside a directory? if no per-file |
| * confirmation set, ask for a global confirmation */ |
| if ((confirmflag == 0) && (imatch(buff + pathlimit, "????????.???"))) { |
| nls_outputnl(36,5); /* "All files in directory will be deleted!" */ |
| if (askchoice(svarlang_str(36,6)/*"Are you sure?"*/, svarlang_str(0,10)/*"YN"*/) != 0) return(CMD_FAIL); |
| } |
| |
| for (i = 0;; i = 1) { |
| |
| /* exec FindFirst or FindNext */ |
| if (i == 0) { |
| err = findfirst(dta, buff, DOS_ATTR_RO | DOS_ATTR_SYS | DOS_ATTR_HID); |
| if (err != 0) { /* report the error only if query had no wildcards */ |
| for (i = 0; buff[i] != 0; i++) if (buff[i] == '?') break; |
| if (buff[i] == 0) nls_outputnl_doserr(err); |
| break; |
| } |
| } else { |
| if (findnext(dta) != 0) break; /* do not report errors on findnext() */ |
| } |
| |
| /* prep the full path/name of the file in buff */ |
| /* NOTE: buff contained the search pattern but it is no longer needed so I |
| * can reuse it now */ |
| strcpy(buff + pathlimit, fname); |
| |
| /* ask if confirmation required: PLIK.TXT Delete (Y/N)? */ |
| if (confirmflag) { |
| output(buff); |
| output(" \t"); |
| if (askchoice(svarlang_str(36,7)/*"Delete?"*/, svarlang_str(0,10)) != 0) continue; |
| } |
| |
| /* del found file */ |
| _asm { |
| push ax |
| push dx |
| mov ah, 0x41 /* delete a file, DS:DX points to an ASCIIZ filespec (no wildcards allowed) */ |
| mov dx, buff |
| int 0x21 |
| jnc DONE |
| mov [err], ax |
| DONE: |
| pop dx |
| pop ax |
| } |
| |
| if (err != 0) { |
| output(fname); |
| output(": "); |
| nls_outputnl_doserr(err); |
| break; |
| } |
| } |
| |
| if (err == 0) return(CMD_OK); |
| return(CMD_FAIL); |
| } |