github.com/open-simh.simh
1
0
Fork 0
mirror of https://github.com/open-simh/simh.git synced 2026-01-14 23:56:22 +00:00
Code Issues Projects Releases Wiki Activity

IBM1130: Remove internal DELETE command since SCP provides one now.

Browse Source
This commit is contained in:
Mark Pizzolato 2017-02-17 00:12:43 -08:00
parent ed8a288583
commit cbf90e7d93
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Ibm1130/ibm1130_prt.c
View File

@ -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 */