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

SCP: Allow SAVE command to overwrite an existing file

Browse source
This commit is contained in:
Mark Pizzolato 2019-12-04 16:34:01 -08:00
parent 427b7df073
commit d03487d227
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scp.c
View file

@ -7352,8 +7352,10 @@ if (*cptr == 0) /* must be more */
gbuf[sizeof(gbuf)-1] = '\0'; gbuf[sizeof(gbuf)-1] = '\0';
strlcpy (gbuf, cptr, sizeof(gbuf)); strlcpy (gbuf, cptr, sizeof(gbuf));
sim_trim_endspc (gbuf); sim_trim_endspc (gbuf);
if ((sfile = sim_fopen (gbuf, "wb")) == NULL) if ((sfile = sim_fopen (gbuf, "r+b")) == NULL) { /* try existing file */
return SCPE_OPENERR; if ((sfile = sim_fopen (gbuf, "wb")) == NULL) /* create new empty file */
return SCPE_OPENERR;
}
r = sim_save (sfile); r = sim_save (sfile);
fclose (sfile); fclose (sfile);
return r; return r;
@ -7490,6 +7492,8 @@ for (i = 0; i < (device_count + sim_internal_device_count); i++) {/* loop thru d
fputc ('\n', sfile); /* end registers */ fputc ('\n', sfile); /* end registers */
} }
fputc ('\n', sfile); /* end devices */ fputc ('\n', sfile); /* end devices */
if (!ferror (sfile))
sim_set_fsize (sfile, (t_addr)sim_ftell (sfile)); /* truncate the save file */
return (ferror (sfile))? SCPE_IOERR: SCPE_OK; /* error during save? */ return (ferror (sfile))? SCPE_IOERR: SCPE_OK; /* error during save? */
} }