folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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; 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 */ /* prt_reset - reset emulated printer */
static t_stat prt_reset (DEVICE *dptr) static t_stat prt_reset (DEVICE *dptr)
@ -674,9 +655,6 @@ static t_stat prt_reset (DEVICE *dptr)
UNIT *uptr = &prt_unit[0]; UNIT *uptr = &prt_unit[0];
size_t i; 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); sim_cancel(uptr);
memset(cctape, 0, sizeof(cctape)); /* copy punch list into carriage control tape image */ memset(cctape, 0, sizeof(cctape)); /* copy punch list into carriage control tape image */