SCP: Add simulator binary name in a SIM_BIN_NAME environment variable
This commit is contained in:
parent
f2656acb38
commit
e158408268
1 changed files with 4 additions and 0 deletions
4
scp.c
4
scp.c
|
@ -2006,8 +2006,12 @@ else if (*argv[0]) { /* sim name arg? */
|
||||||
if (np == NULL)
|
if (np == NULL)
|
||||||
np = strrchr (nbuf, ']'); /* VMS path separator */
|
np = strrchr (nbuf, ']'); /* VMS path separator */
|
||||||
if (np != NULL) {
|
if (np != NULL) {
|
||||||
|
char *sim_bin_name = np; /* Save name pointer */
|
||||||
|
|
||||||
*np = '"';
|
*np = '"';
|
||||||
stat = do_cmd (-1, np) & ~SCPE_NOMESSAGE; /* proc default cmd file */
|
stat = do_cmd (-1, np) & ~SCPE_NOMESSAGE; /* proc default cmd file */
|
||||||
|
np[strlen (np) - 4] = '\0'; /* strip .ini" */
|
||||||
|
setenv ("SIM_BIN_NAME", sim_bin_name+1, 1); /* Publish simulator binary name */
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue