766e7058f1
The ControlFlow changes fix a potential bug in breakpoint handling
which arguably merely could be “not supported”. That bug is that if
a breakpoint’s actions have multiple actions AND an action early in
the list invokes a do command file, the subsequent pending breakpoint
actions are not performed.
The ControlFlow patch/changes implement the following extensions to
the SCP command language without affecting prior behavior:
GOTO <Label> Command is now available. Labels are lines in which the first non whitespace character is a “:”. The target of a goto is the first matching label in the current do command file which is encountered. Since labels don’t do anything else besides being the targets of goto’s, they could be used to provide comments in do command files, for example (“:: This is a comment”)
SET ON Enables error trapping for currently defined traps (by ON commands)
SET NOON Disables error trapping for currently defined traps (by ON commands)
RETURN Return from the current do command file execution with the status from the last executed command
RETURN <statusvalue> Return from the current do command file execution with the indicated status. Status can be a number or a SCPE_<conditionname> name string.
ON <statusvalue> commandtoprocess{; additionalcommandtoprocess}
Sets the action(s) to take when the specific error status is returned by a command in the currently running do command file. Multiple actions can be specified with each delimited by a semicolon character (just like breakpoint action commands).
ON ERROR commandtoprocess{; additionalcommandtoprocess}
Sets the default action(s) to take when any otherwise unspecified error status is returned by a command in the currently running do command file. Multiple actions can be specified with each delimited by a semicolon character (just like breakpoint action commands).
ON <statusvalue>
ON ERROR Clears the default actions to take when any otherwise unspecified error status is returned by a command in the currently running do command file.
Error traps can be taken for any command which returns a status other
than SCPE_STEP, SCPE_OK, and SCPE_EXIT.
ON Traps can specify any status value from the following list:
NXM, UNATT, IOERR, CSUM, FMT, NOATT, OPENERR, MEM, ARG, STEP,
UNK, RO, INCOMP, STOP, TTIERR, TTOERR, EOF, REL, NOPARAM, ALATT,
TIMER, SIGERR, TTYERR, SUB, NOFNC, UDIS, NORO, INVSW, MISVAL,
2FARG, 2MARG, NXDEV, NXUN, NXREG, NXPAR, NEST, IERR, MTRLNT,
LOST, TTMO, STALL, AFAIL.
These values can be indicated by name or by their internal numeric
value (not recommended).
Interactions with ASSERT command and “DO –e”:
DO –e is equivalent to SET ON, which by itself it equivalent
to “SET ON; ON ERROR RETURN”.
ASSERT failure have several different actions:
If error trapping is not enabled then AFAIL causes exit from the current
do command file.
If error trapping is enabled and an explicit “ON AFAIL” action is defined,
then the specified action is performed.
If error trapping is enabled and no “ON AFAIL” action is defined, then
an AFAIL causes exit from the current do command file.
Other related changes/extensions:
• The “!” command (execute a command on the local OS), now returns
the command’s exit status as the status from the “!” command.
This allows ON conditions to handle error status responses from
OS commands and act as desired.
• Argument substitution has been extended for do command file
execution. The extended argument substitution include
substitution of any program environment variable (referenced by
%ENVVARNAME%) along with dynamic expansion of several pseudo
environment variables:
%DATE% expands to a string of the form: yyyy/mm/dd (i.e. 2011/01/23)
%TIME% expands to a string of the form: hh:mm:ss (i.e. 17:23:44)
%CTIME% expands to a string of the form: www mmm dd hh:mm:ss yyyy
(i.e. Mon Jan 24 08:22:33 2010)
%ENVNAME% expands to a string which has the value of the environment
variable ENVNAME
127 lines
5.5 KiB
C
127 lines
5.5 KiB
C
/* scp.h: simulator control program headers
|
|
|
|
Copyright (c) 1993-2008, Robert M Supnik
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a
|
|
copy of this software and associated documentation files (the "Software"),
|
|
to deal in the Software without restriction, including without limitation
|
|
the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
|
and/or sell copies of the Software, and to permit persons to whom the
|
|
Software is furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
|
|
ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
|
|
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
|
Except as contained in this notice, the name of Robert M Supnik shall not
|
|
be used in advertising or otherwise to promote the sale, use or other dealings
|
|
in this Software without prior written authorization from Robert M Supnik.
|
|
|
|
09-Aug-06 JDB Added assign_device and deassign_device
|
|
14-Jul-06 RMS Added sim_activate_abs
|
|
06-Jan-06 RMS Added fprint_stopped_gen
|
|
Changed arg type in sim_brk_test
|
|
07-Feb-05 RMS Added ASSERT command
|
|
09-Sep-04 RMS Added reset_all_p
|
|
14-Feb-04 RMS Added debug prototypes (from Dave Hittner)
|
|
02-Jan-04 RMS Split out from SCP
|
|
*/
|
|
|
|
#ifndef _SIM_SCP_H_
|
|
#define _SIM_SCP_H_ 0
|
|
|
|
/* run_cmd parameters */
|
|
|
|
#define RU_RUN 0 /* run */
|
|
#define RU_GO 1 /* go */
|
|
#define RU_STEP 2 /* step */
|
|
#define RU_CONT 3 /* continue */
|
|
#define RU_BOOT 4 /* boot */
|
|
|
|
/* get_sim_opt parameters */
|
|
|
|
#define CMD_OPT_SW 001 /* switches */
|
|
#define CMD_OPT_OF 002 /* output file */
|
|
#define CMD_OPT_SCH 004 /* search */
|
|
#define CMD_OPT_DFT 010 /* defaults */
|
|
|
|
/* Command processors */
|
|
|
|
t_stat reset_cmd (int32 flag, char *ptr);
|
|
t_stat exdep_cmd (int32 flag, char *ptr);
|
|
t_stat eval_cmd (int32 flag, char *ptr);
|
|
t_stat load_cmd (int32 flag, char *ptr);
|
|
t_stat run_cmd (int32 flag, char *ptr);
|
|
t_stat attach_cmd (int32 flag, char *ptr);
|
|
t_stat detach_cmd (int32 flag, char *ptr);
|
|
t_stat assign_cmd (int32 flag, char *ptr);
|
|
t_stat deassign_cmd (int32 flag, char *ptr);
|
|
t_stat save_cmd (int32 flag, char *ptr);
|
|
t_stat restore_cmd (int32 flag, char *ptr);
|
|
t_stat exit_cmd (int32 flag, char *ptr);
|
|
t_stat set_cmd (int32 flag, char *ptr);
|
|
t_stat show_cmd (int32 flag, char *ptr);
|
|
t_stat brk_cmd (int32 flag, char *ptr);
|
|
t_stat do_cmd (int32 flag, char *ptr);
|
|
t_stat goto_cmd (int32 flag, char *ptr);
|
|
t_stat return_cmd (int32 flag, char *ptr);
|
|
t_stat on_cmd (int32 flag, char *ptr);
|
|
t_stat assert_cmd (int32 flag, char *ptr);
|
|
t_stat help_cmd (int32 flag, char *ptr);
|
|
t_stat spawn_cmd (int32 flag, char *ptr);
|
|
t_stat echo_cmd (int32 flag, char *ptr);
|
|
|
|
/* Utility routines */
|
|
|
|
t_stat sim_process_event (void);
|
|
t_stat sim_activate (UNIT *uptr, int32 interval);
|
|
t_stat sim_activate_abs (UNIT *uptr, int32 interval);
|
|
t_stat sim_cancel (UNIT *uptr);
|
|
int32 sim_is_active (UNIT *uptr);
|
|
double sim_gtime (void);
|
|
uint32 sim_grtime (void);
|
|
int32 sim_qcount (void);
|
|
t_stat attach_unit (UNIT *uptr, char *cptr);
|
|
t_stat detach_unit (UNIT *uptr);
|
|
t_stat assign_device (DEVICE *dptr, char *cptr);
|
|
t_stat deassign_device (DEVICE *dptr);
|
|
t_stat reset_all (uint32 start_device);
|
|
t_stat reset_all_p (uint32 start_device);
|
|
char *sim_dname (DEVICE *dptr);
|
|
t_stat get_yn (char *ques, t_stat deflt);
|
|
char *get_sim_opt (int32 opt, char *cptr, t_stat *st);
|
|
char *get_glyph (char *iptr, char *optr, char mchar);
|
|
char *get_glyph_nc (char *iptr, char *optr, char mchar);
|
|
t_value get_uint (char *cptr, uint32 radix, t_value max, t_stat *status);
|
|
char *get_range (DEVICE *dptr, char *cptr, t_addr *lo, t_addr *hi,
|
|
uint32 rdx, t_addr max, char term);
|
|
t_stat get_ipaddr (char *cptr, uint32 *ipa, uint32 *ipp);
|
|
t_value strtotv (char *cptr, char **endptr, uint32 radix);
|
|
t_stat fprint_val (FILE *stream, t_value val, uint32 rdx, uint32 wid, uint32 fmt);
|
|
CTAB *find_cmd (char *gbuf);
|
|
DEVICE *find_dev (char *ptr);
|
|
DEVICE *find_unit (char *ptr, UNIT **uptr);
|
|
DEVICE *find_dev_from_unit (UNIT *uptr);
|
|
REG *find_reg (char *ptr, char **optr, DEVICE *dptr);
|
|
CTAB *find_ctab (CTAB *tab, char *gbuf);
|
|
C1TAB *find_c1tab (C1TAB *tab, char *gbuf);
|
|
SHTAB *find_shtab (SHTAB *tab, char *gbuf);
|
|
BRKTAB *sim_brk_fnd (t_addr loc);
|
|
uint32 sim_brk_test (t_addr bloc, uint32 btyp);
|
|
void sim_brk_clrspc (uint32 spc);
|
|
char *match_ext (char *fnam, char *ext);
|
|
char *sim_error_text (t_stat stat);
|
|
t_stat sim_string_to_stat (char *cptr, t_stat *cond);
|
|
t_stat sim_cancel_step (void);
|
|
void sim_debug_u16 (uint32 dbits, DEVICE* dptr, const char* const* bitdefs,
|
|
uint16 before, uint16 after, int terminate);
|
|
void sim_debug (uint32 dbits, DEVICE* dptr, const char* fmt, ...);
|
|
void fprint_stopped_gen (FILE *st, t_stat v, REG *pc, DEVICE *dptr);
|
|
|
|
#endif
|