From cbf90e7d9332beafe0c41da3f8ea8cc8d7265373 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Fri, 17 Feb 2017 00:12:43 -0800
Subject: [PATCH] IBM1130: Remove internal DELETE command since SCP provides
 one now.

---
 Ibm1130/ibm1130_prt.c | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/Ibm1130/ibm1130_prt.c b/Ibm1130/ibm1130_prt.c
index 30470ca8..6f0acbd3 100644
--- a/Ibm1130/ibm1130_prt.c
+++ b/Ibm1130/ibm1130_prt.c
@@ -648,25 +648,6 @@ static t_stat prt1403_svc(UNIT *uptr)
 	return SCPE_OK;
 }
 
-/* delete_cmd - SCP command to delete a file */
-
-static t_stat delete_cmd (int32 flag, CONST char *cptr)
-{
-	char gbuf[CBUFSIZE];
-	int status;
-
-	cptr = get_glyph (cptr, gbuf, 0);			/* get next glyph */
-	if (*gbuf == 0) return SCPE_2FARG;
-	if (*cptr != 0) return SCPE_2MARG;			/* now eol? */
-
-	status = remove(gbuf);						/* delete the file */
-
-	if (status != 0 && errno != ENOENT)			/* print message if failed and file exists */
-		sim_perror(gbuf);
-
-	return SCPE_OK;
-}
-
 /* prt_reset - reset emulated printer */
 
 static t_stat prt_reset (DEVICE *dptr)
@@ -674,9 +655,6 @@ static t_stat prt_reset (DEVICE *dptr)
 	UNIT *uptr = &prt_unit[0];
 	size_t i;
 
-/* add a DELETE filename command so we can be sure to have clean listings */
-	register_cmd("DELETE", &delete_cmd, 0, "del{ete} filename        remove file\n");
-
 	sim_cancel(uptr);
 
 	memset(cctape, 0, sizeof(cctape));			/* copy punch list into carriage control tape image */