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

SCP: Add COPY/CP command

Browse source
This commit is contained in:
Mark Pizzolato 2017-04-03 08:26:25 -07:00
parent 17903827bd
commit 9b2ff7e371
2 changed files with 52 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
scp.c
View file

@ -1029,16 +1029,24 @@ static const char simh_help[] =
"2Displaying Files\n"
#define HLP_TYPE "*Commands Displaying_Files TYPE"
"3TYPE\n"
"++TYPE {file} display a file contents\n"
"++TYPE file display a file contents\n"
#define HLP_CAT "*Commands Displaying_Files CAT"
"3CAT\n"
"++CAT {file} display a file contents\n"
"++CAT file display a file contents\n"
"2Removing Files\n"
#define HLP_DELETE "*Commands Removing_Files DEL"
"3DELETE\n"
"++DEL{ete} {file} deletes a file\n"
"++DEL{ete} file deletes a file\n"
#define HLP_RM "*Commands Removing_Files RM"
"3RM\n"
"++RM {file} deletes a file\n"
"++RM file deletes a file\n"
"2Copying Files\n"
#define HLP_COPY "*Commands Copying_Files COPY"
"3COPY\n"
"++COPY sfile dfile copies a file\n"
#define HLP_CP "*Commands Copying_Files CP"
"3CP\n"
"++CP sfile dfile copies a file\n"
#define HLP_SET "*Commands SET"
"2SET\n"
/***************** 80 character line width template *************************/
@ -1839,6 +1847,8 @@ static CTAB cmd_table[] = {
{ "CAT", &type_cmd, 0, HLP_CAT },
{ "DELETE", &delete_cmd, 0, HLP_DELETE },
{ "RM", &delete_cmd, 0, HLP_RM },
{ "COPY", &copy_cmd, 0, HLP_COPY },
{ "CP", &copy_cmd, 0, HLP_CP },
{ "SET", &set_cmd, 0, HLP_SET },
{ "SHOW", &show_cmd, 0, HLP_SHOW },
{ "DO", &do_cmd, 1, HLP_DO },
@ -5342,6 +5352,43 @@ if (stat == SCPE_OK)
return sim_messagef (SCPE_ARG, "No such file or directory: %s\n", cptr);
}
t_stat copy_cmd (int32 flg, CONST char *cptr)
{
char sname[CBUFSIZE], dname[CBUFSIZE];
FILE *fIn = NULL, *fOut = NULL;
t_stat stat = SCPE_OK;
char *buf = NULL;
size_t bytes;
if ((!cptr) || (*cptr == 0))
return SCPE_2FARG;
cptr = get_glyph_quoted (cptr, sname, 0);
if ((!cptr) || (*cptr == 0))
return SCPE_2FARG;
cptr = get_glyph_quoted (cptr, dname, 0);
fIn = sim_fopen (sname, "rb");
if (!fIn) {
stat = sim_messagef (SCPE_ARG, "Can't open '%s' for input: %s\n", sname, strerror (errno));
goto Cleanup_Return;
}
fOut = sim_fopen (dname, "wb");
if (!fOut) {
stat = sim_messagef (SCPE_ARG, "Can't open '%s' for output: %s\n", dname, strerror (errno));
goto Cleanup_Return;
}
buf = malloc (BUFSIZ);
while (bytes = fread (buf, 1, BUFSIZ, fIn))
fwrite (buf, 1, bytes, fOut);
stat = sim_messagef (SCPE_OK, " 1 file copied\n");
Cleanup_Return:
free (buf);
if (fIn)
fclose (fIn);
if (fOut)
fclose (fOut);
return stat;
}
/* Breakpoint commands */
t_stat brk_cmd (int32 flg, CONST char *cptr)

1
scp.h
View file

@ -91,6 +91,7 @@ t_stat pwd_cmd (int32 flg, CONST char *cptr);
t_stat dir_cmd (int32 flg, CONST char *cptr);
t_stat type_cmd (int32 flg, CONST char *cptr);
t_stat delete_cmd (int32 flg, CONST char *cptr);
t_stat copy_cmd (int32 flg, CONST char *cptr);
t_stat brk_cmd (int32 flag, CONST char *ptr);
t_stat do_cmd (int32 flag, CONST char *ptr);
t_stat goto_cmd (int32 flag, CONST char *ptr);