Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
card10
openocd
Commits
225ac184
Commit
225ac184
authored
Jul 07, 2008
by
oharboe
Browse files
more tcl cleanup.
git-svn-id:
svn://svn.berlios.de/openocd/trunk@768
b42882b7-edfa-0310-969c-e2dbd0fdcd60
parent
cfba2f4a
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/openocd.c
View file @
225ac184
...
...
@@ -381,10 +381,6 @@ static void tcl_output(void *privData, const char *file, int line, const char *f
int
jim_command
(
command_context_t
*
context
,
char
*
line
)
{
int
retval
=
ERROR_OK
;
/* FIX!!!! in reality there is only one cmd_ctx handler, but consider
what might happen here if there are multiple handlers w/reentrant callback
fn's... shudder! */
active_cmd_ctx
=
context
;
int
retcode
=
Jim_Eval
(
interp
,
line
);
const
char
*
result
;
...
...
@@ -685,6 +681,8 @@ int openocd_main(int argc, char *argv[])
cfg_cmd_ctx
->
mode
=
COMMAND_CONFIG
;
command_set_output_handler
(
cfg_cmd_ctx
,
configuration_output_handler
,
NULL
);
active_cmd_ctx
=
cfg_cmd_ctx
;
if
(
parse_cmdline_args
(
cfg_cmd_ctx
,
argc
,
argv
)
!=
ERROR_OK
)
return
EXIT_FAILURE
;
...
...
@@ -693,6 +691,8 @@ int openocd_main(int argc, char *argv[])
if
(
parse_config_file
(
cfg_cmd_ctx
)
!=
ERROR_OK
)
return
EXIT_FAILURE
;
active_cmd_ctx
=
cmd_ctx
;
command_done
(
cfg_cmd_ctx
);
if
(
command_run_line
(
cmd_ctx
,
"init"
)
!=
ERROR_OK
)
...
...
src/tcl/commands.tcl
View file @
225ac184
# implements Tcl procedures/functions
proc peek
{
address
}
{
return
[
openocd_throw
"mdw
$address
"
]
}
# Production command
# FIX!!! need to figure out how to feed back relevant output
# from e.g.
"flash banks"
command...
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment