1 /***************************************************************************
2 * Copyright (C) 2005 by Dominic Rath *
3 * Dominic.Rath@gmx.de *
5 * Copyright (C) 2007,2008 Øyvind Harboe *
6 * oyvind.harboe@zylin.com *
8 * Copyright (C) 2008, Duane Ellis *
9 * openocd@duaneeellis.com *
11 * part of this file is taken from libcli (libcli.sourceforge.net) *
12 * Copyright (C) David Parrish (david@dparrish.com) *
14 * This program is free software; you can redistribute it and/or modify *
15 * it under the terms of the GNU General Public License as published by *
16 * the Free Software Foundation; either version 2 of the License, or *
17 * (at your option) any later version. *
19 * This program is distributed in the hope that it will be useful, *
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
22 * GNU General Public License for more details. *
24 * You should have received a copy of the GNU General Public License *
25 * along with this program; if not, write to the *
26 * Free Software Foundation, Inc., *
27 * 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
28 ***************************************************************************/
34 /* see Embedder-HOWTO.txt in Jim Tcl project hosted on BerliOS*/
38 // @todo the inclusion of target.h here is a layering violation
41 #include "configuration.h"
43 #include "time_support.h"
44 #include "jim-eventloop.h"
47 Jim_Interp
*interp
= NULL
;
49 static int run_command(struct command_context
*context
,
50 struct command
*c
, const char *words
[], unsigned num_words
);
52 static void tcl_output(void *privData
, const char *file
, unsigned line
,
53 const char *function
, const char *string
)
55 Jim_Obj
*tclOutput
= (Jim_Obj
*)privData
;
56 Jim_AppendString(interp
, tclOutput
, string
, strlen(string
));
59 extern struct command_context
*global_cmd_ctx
;
61 void script_debug(Jim_Interp
*interp
, const char *name
,
62 unsigned argc
, Jim_Obj
*const *argv
)
64 LOG_DEBUG("command - %s", name
);
65 for (unsigned i
= 0; i
< argc
; i
++)
68 const char *w
= Jim_GetString(argv
[i
], &len
);
70 /* end of line comment? */
74 LOG_DEBUG("%s - argv[%d]=%s", name
, i
, w
);
78 static void script_command_args_free(const char **words
, unsigned nwords
)
80 for (unsigned i
= 0; i
< nwords
; i
++)
81 free((void *)words
[i
]);
84 static const char **script_command_args_alloc(
85 unsigned argc
, Jim_Obj
*const *argv
, unsigned *nwords
)
87 const char **words
= malloc(argc
* sizeof(char *));
92 for (i
= 0; i
< argc
; i
++)
95 const char *w
= Jim_GetString(argv
[i
], &len
);
96 /* a comment may end the line early */
100 words
[i
] = strdup(w
);
101 if (words
[i
] == NULL
)
103 script_command_args_free(words
, i
);
111 static int script_command(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
113 /* the private data is stashed in the interp structure */
115 struct command_context
*context
;
118 /* DANGER!!!! be careful what we invoke here, since interp->cmdPrivData might
119 * get overwritten by running other Jim commands! Treat it as an
120 * emphemeral global variable that is used in lieu of an argument
121 * to the fn and fish it out manually.
123 c
= interp
->cmdPrivData
;
126 LOG_ERROR("BUG: interp->cmdPrivData == NULL");
129 target_call_timer_callbacks_now();
130 LOG_USER_N("%s", ""); /* Keep GDB connection alive*/
132 script_debug(interp
, c
->name
, argc
, argv
);
135 const char **words
= script_command_args_alloc(argc
, argv
, &nwords
);
139 /* grab the command context from the associated data */
140 context
= Jim_GetAssocData(interp
, "context");
143 /* Tcl can invoke commands directly instead of via command_run_line(). This would
144 * happen when the Jim Tcl interpreter is provided by eCos.
146 context
= global_cmd_ctx
;
149 /* capture log output and return it */
150 Jim_Obj
*tclOutput
= Jim_NewStringObj(interp
, "", 0);
151 /* a garbage collect can happen, so we need a reference count to this object */
152 Jim_IncrRefCount(tclOutput
);
154 log_add_callback(tcl_output
, tclOutput
);
156 retval
= run_command(context
, c
, (const char **)words
, nwords
);
158 log_remove_callback(tcl_output
, tclOutput
);
160 /* We dump output into this local variable */
161 Jim_SetResult(interp
, tclOutput
);
162 Jim_DecrRefCount(interp
, tclOutput
);
164 script_command_args_free(words
, nwords
);
166 int *return_retval
= Jim_GetAssocData(interp
, "retval");
167 if (return_retval
!= NULL
)
169 *return_retval
= retval
;
172 return (retval
== ERROR_OK
)?JIM_OK
:JIM_ERR
;
175 /* nice short description of source file */
176 #define __THIS__FILE__ "command.c"
179 * Find a command by name from a list of commands.
180 * @returns Returns the named command if it exists in the list.
181 * Returns NULL otherwise.
183 static struct command
*command_find(struct command
*head
, const char *name
)
185 for (struct command
*cc
= head
; cc
; cc
= cc
->next
)
187 if (strcmp(cc
->name
, name
) == 0)
194 * Add the command into the linked list, sorted by name.
195 * @param head Address to head of command list pointer, which may be
196 * updated if @c c gets inserted at the beginning of the list.
197 * @param c The command to add to the list pointed to by @c head.
199 static void command_add_child(struct command
**head
, struct command
*c
)
208 while ((*head
)->next
&& (strcmp(c
->name
, (*head
)->name
) > 0))
209 head
= &(*head
)->next
;
211 if (strcmp(c
->name
, (*head
)->name
) > 0) {
212 c
->next
= (*head
)->next
;
220 static struct command
**command_list_for_parent(
221 struct command_context
*cmd_ctx
, struct command
*parent
)
223 return parent
? &parent
->children
: &cmd_ctx
->commands
;
226 static struct command
*command_new(struct command_context
*cmd_ctx
,
227 struct command
*parent
, const char *name
,
228 command_handler_t handler
, enum command_mode mode
,
229 const char *help
, const char *usage
)
233 struct command
*c
= malloc(sizeof(struct command
));
234 memset(c
, 0, sizeof(struct command
));
236 c
->name
= strdup(name
);
238 c
->help
= strdup(help
);
240 c
->usage
= strdup(usage
);
242 c
->handler
= handler
;
245 command_add_child(command_list_for_parent(cmd_ctx
, parent
), c
);
249 static void command_free(struct command
*c
)
251 /// @todo if command has a handler, unregister its jim command!
253 while (NULL
!= c
->children
)
255 struct command
*tmp
= c
->children
;
256 c
->children
= tmp
->next
;
263 free((void*)c
->help
);
265 free((void*)c
->usage
);
269 struct command
* register_command(struct command_context
*context
,
270 struct command
*parent
, const struct command_registration
*cr
)
272 if (!context
|| !cr
->name
)
275 const char *name
= cr
->name
;
276 struct command
**head
= command_list_for_parent(context
, parent
);
277 struct command
*c
= command_find(*head
, name
);
280 LOG_ERROR("command '%s' is already registered in '%s' context",
281 name
, parent
? parent
->name
: "<global>");
285 c
= command_new(context
, parent
, name
, cr
->handler
, cr
->mode
, cr
->help
, cr
->usage
);
286 /* if allocation failed or it is a placeholder (no handler), we're done */
287 if (NULL
== c
|| NULL
== c
->handler
)
290 const char *full_name
= command_name(c
, '_');
292 const char *ocd_name
= alloc_printf("ocd_%s", full_name
);
293 Jim_CreateCommand(interp
, ocd_name
, script_command
, c
, NULL
);
294 free((void *)ocd_name
);
296 /* we now need to add an overrideable proc */
297 const char *override_name
= alloc_printf("proc %s {args} {"
298 "if {[catch {eval ocd_%s $args}] == 0} "
299 "{return \"\"} else {return -code error}}",
300 full_name
, full_name
);
301 Jim_Eval_Named(interp
, override_name
, __THIS__FILE__
, __LINE__
);
302 free((void *)override_name
);
304 free((void *)full_name
);
309 int register_commands(struct command_context
*cmd_ctx
, struct command
*parent
,
310 const struct command_registration
*cmds
)
313 for (i
= 0; cmds
[i
].name
; i
++)
315 struct command
*c
= register_command(cmd_ctx
, parent
, cmds
+ i
);
319 for (unsigned j
= 0; j
< i
; j
++)
320 unregister_command(cmd_ctx
, parent
, cmds
[j
].name
);
326 int unregister_all_commands(struct command_context
*context
,
327 struct command
*parent
)
332 struct command
**head
= command_list_for_parent(context
, parent
);
333 while (NULL
!= *head
)
335 struct command
*tmp
= *head
;
343 int unregister_command(struct command_context
*context
,
344 struct command
*parent
, const char *name
)
346 if ((!context
) || (!name
))
347 return ERROR_INVALID_ARGUMENTS
;
349 struct command
*p
= NULL
;
350 struct command
**head
= command_list_for_parent(context
, parent
);
351 for (struct command
*c
= *head
; NULL
!= c
; p
= c
, c
= c
->next
)
353 if (strcmp(name
, c
->name
) != 0)
368 void command_output_text(struct command_context
*context
, const char *data
)
370 if (context
&& context
->output_handler
&& data
) {
371 context
->output_handler(context
, data
);
375 void command_print_sameline(struct command_context
*context
, const char *format
, ...)
380 va_start(ap
, format
);
382 string
= alloc_vprintf(format
, ap
);
385 /* we want this collected in the log + we also want to pick it up as a tcl return
388 * The latter bit isn't precisely neat, but will do for now.
390 LOG_USER_N("%s", string
);
391 /* We already printed it above */
392 /* command_output_text(context, string); */
399 void command_print(struct command_context
*context
, const char *format
, ...)
404 va_start(ap
, format
);
406 string
= alloc_vprintf(format
, ap
);
409 strcat(string
, "\n"); /* alloc_vprintf guaranteed the buffer to be at least one char longer */
410 /* we want this collected in the log + we also want to pick it up as a tcl return
413 * The latter bit isn't precisely neat, but will do for now.
415 LOG_USER_N("%s", string
);
416 /* We already printed it above */
417 /* command_output_text(context, string); */
424 static char *__command_name(struct command
*c
, char delim
, unsigned extra
)
427 unsigned len
= strlen(c
->name
);
428 if (NULL
== c
->parent
) {
429 // allocate enough for the name, child names, and '\0'
430 name
= malloc(len
+ extra
+ 1);
431 strcpy(name
, c
->name
);
433 // parent's extra must include both the space and name
434 name
= __command_name(c
->parent
, delim
, 1 + len
+ extra
);
435 char dstr
[2] = { delim
, 0 };
437 strcat(name
, c
->name
);
441 char *command_name(struct command
*c
, char delim
)
443 return __command_name(c
, delim
, 0);
446 static int run_command(struct command_context
*context
,
447 struct command
*c
, const char *words
[], unsigned num_words
)
449 if (!((context
->mode
== COMMAND_CONFIG
) || (c
->mode
== COMMAND_ANY
) || (c
->mode
== context
->mode
)))
451 /* Config commands can not run after the config stage */
452 LOG_ERROR("Command '%s' only runs during configuration stage", c
->name
);
456 struct command_invocation cmd
= {
459 .argc
= num_words
- 1,
462 int retval
= c
->handler(&cmd
);
463 if (retval
== ERROR_COMMAND_SYNTAX_ERROR
)
465 /* Print help for command */
466 char *full_name
= command_name(c
, ' ');
467 if (NULL
!= full_name
) {
468 command_run_linef(context
, "help %s", full_name
);
473 else if (retval
== ERROR_COMMAND_CLOSE_CONNECTION
)
475 /* just fall through for a shutdown request */
477 else if (retval
!= ERROR_OK
)
479 /* we do not print out an error message because the command *should*
480 * have printed out an error
482 LOG_DEBUG("Command failed with error code %d", retval
);
488 int command_run_line(struct command_context
*context
, char *line
)
490 /* all the parent commands have been registered with the interpreter
491 * so, can just evaluate the line as a script and check for
494 /* run the line thru a script engine */
495 int retval
= ERROR_FAIL
;
497 /* Beware! This code needs to be reentrant. It is also possible
498 * for OpenOCD commands to be invoked directly from Tcl. This would
499 * happen when the Jim Tcl interpreter is provided by eCos for
502 Jim_DeleteAssocData(interp
, "context");
503 retcode
= Jim_SetAssocData(interp
, "context", NULL
, context
);
504 if (retcode
== JIM_OK
)
506 /* associated the return value */
507 Jim_DeleteAssocData(interp
, "retval");
508 retcode
= Jim_SetAssocData(interp
, "retval", NULL
, &retval
);
509 if (retcode
== JIM_OK
)
511 retcode
= Jim_Eval_Named(interp
, line
, __THIS__FILE__
, __LINE__
);
513 Jim_DeleteAssocData(interp
, "retval");
515 Jim_DeleteAssocData(interp
, "context");
517 if (retcode
== JIM_ERR
) {
518 if (retval
!= ERROR_COMMAND_CLOSE_CONNECTION
)
520 /* We do not print the connection closed error message */
521 Jim_PrintErrorMessage(interp
);
523 if (retval
== ERROR_OK
)
525 /* It wasn't a low level OpenOCD command that failed */
529 } else if (retcode
== JIM_EXIT
) {
531 /* exit(Jim_GetExitCode(interp)); */
536 result
= Jim_GetString(Jim_GetResult(interp
), &reslen
);
541 for (i
= 0; i
< reslen
; i
+= 256)
547 strncpy(buff
, result
+ i
, chunk
);
549 LOG_USER_N("%s", buff
);
551 LOG_USER_N("%s", "\n");
558 int command_run_linef(struct command_context
*context
, const char *format
, ...)
560 int retval
= ERROR_FAIL
;
563 va_start(ap
, format
);
564 string
= alloc_vprintf(format
, ap
);
567 retval
= command_run_line(context
, string
);
573 void command_set_output_handler(struct command_context
* context
,
574 command_output_handler_t output_handler
, void *priv
)
576 context
->output_handler
= output_handler
;
577 context
->output_handler_priv
= priv
;
580 struct command_context
* copy_command_context(struct command_context
* context
)
582 struct command_context
* copy_context
= malloc(sizeof(struct command_context
));
584 *copy_context
= *context
;
589 int command_done(struct command_context
*context
)
597 /* find full path to file */
598 static int jim_find(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
602 const char *file
= Jim_GetString(argv
[1], NULL
);
603 char *full_path
= find_file(file
);
604 if (full_path
== NULL
)
606 Jim_Obj
*result
= Jim_NewStringObj(interp
, full_path
, strlen(full_path
));
609 Jim_SetResult(interp
, result
);
613 static int jim_echo(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
617 const char *str
= Jim_GetString(argv
[1], NULL
);
622 static size_t openocd_jim_fwrite(const void *_ptr
, size_t size
, size_t n
, void *cookie
)
628 /* make it a char easier to read code */
632 if (ptr
== NULL
|| interp
== NULL
|| nbytes
== 0) {
636 /* do we have to chunk it? */
637 if (ptr
[nbytes
] == 0)
639 /* no it is a C style string */
640 LOG_USER_N("%s", ptr
);
643 /* GRR we must chunk - not null terminated */
653 memcpy(chunk
, ptr
, x
);
657 LOG_USER_N("%s", chunk
);
665 static size_t openocd_jim_fread(void *ptr
, size_t size
, size_t n
, void *cookie
)
667 /* TCL wants to read... tell him no */
671 static int openocd_jim_vfprintf(void *cookie
, const char *fmt
, va_list ap
)
682 cp
= alloc_vprintf(fmt
, ap
);
685 LOG_USER_N("%s", cp
);
692 static int openocd_jim_fflush(void *cookie
)
694 /* nothing to flush */
698 static char* openocd_jim_fgets(char *s
, int size
, void *cookie
)
705 static int jim_capture(Jim_Interp
*interp
, int argc
, Jim_Obj
*const *argv
)
710 const char *str
= Jim_GetString(argv
[1], NULL
);
712 /* capture log output and return it */
713 Jim_Obj
*tclOutput
= Jim_NewStringObj(interp
, "", 0);
714 /* a garbage collect can happen, so we need a reference count to this object */
715 Jim_IncrRefCount(tclOutput
);
717 log_add_callback(tcl_output
, tclOutput
);
719 retcode
= Jim_Eval_Named(interp
, str
, __THIS__FILE__
, __LINE__
);
721 log_remove_callback(tcl_output
, tclOutput
);
723 /* We dump output into this local variable */
724 Jim_SetResult(interp
, tclOutput
);
725 Jim_DecrRefCount(interp
, tclOutput
);
730 static COMMAND_HELPER(command_help_find
, struct command
*head
,
731 struct command
**out
)
734 return ERROR_INVALID_ARGUMENTS
;
735 *out
= command_find(head
, CMD_ARGV
[0]);
737 return ERROR_INVALID_ARGUMENTS
;
741 return CALL_COMMAND_HANDLER(command_help_find
, (*out
)->children
, out
);
744 static COMMAND_HELPER(command_help_show
, struct command
*c
, unsigned n
,
747 static COMMAND_HELPER(command_help_show_list
, struct command
*head
, unsigned n
,
750 for (struct command
*c
= head
; NULL
!= c
; c
= c
->next
)
751 CALL_COMMAND_HANDLER(command_help_show
, c
, n
, show_help
);
754 static COMMAND_HELPER(command_help_show
, struct command
*c
, unsigned n
,
757 const char *usage
= c
->usage
? : "";
758 const char *help
= "";
759 const char *sep
= "";
760 if (show_help
&& c
->help
)
762 help
= c
->help
? : "";
763 sep
= c
->usage
? " | " : "";
765 command_run_linef(CMD_CTX
, "cmd_help {%s} {%s%s%s} %d",
766 command_name(c
, ' '), usage
, sep
, help
, n
);
771 return CALL_COMMAND_HANDLER(command_help_show_list
,
772 c
->children
, n
, show_help
);
774 COMMAND_HANDLER(handle_help_command
)
776 struct command
*c
= CMD_CTX
->commands
;
779 return CALL_COMMAND_HANDLER(command_help_show_list
, c
, 0, true);
781 int retval
= CALL_COMMAND_HANDLER(command_help_find
, c
, &c
);
782 if (ERROR_OK
!= retval
)
785 return CALL_COMMAND_HANDLER(command_help_show
, c
, 0, true);
788 COMMAND_HANDLER(handle_usage_command
)
790 struct command
*c
= CMD_CTX
->commands
;
793 return CALL_COMMAND_HANDLER(command_help_show_list
, c
, 0, false);
795 int retval
= CALL_COMMAND_HANDLER(command_help_find
, c
, &c
);
796 if (ERROR_OK
!= retval
)
799 return CALL_COMMAND_HANDLER(command_help_show
, c
, 0, false);
803 int help_add_command(struct command_context
*cmd_ctx
, struct command
*parent
,
804 const char *cmd_name
, const char *help_text
, const char *usage
)
806 struct command
**head
= command_list_for_parent(cmd_ctx
, parent
);
807 struct command
*nc
= command_find(*head
, cmd_name
);
810 // add a new command with help text
811 struct command_registration cr
= {
817 nc
= register_command(cmd_ctx
, parent
, &cr
);
820 LOG_ERROR("failed to add '%s' help text", cmd_name
);
823 LOG_DEBUG("added '%s' help text", cmd_name
);
827 bool replaced
= false;
830 free((void *)nc
->help
);
833 nc
->help
= strdup(help_text
);
836 LOG_INFO("replaced existing '%s' help", cmd_name
);
838 LOG_DEBUG("added '%s' help text", cmd_name
);
843 COMMAND_HANDLER(handle_help_add_command
)
847 LOG_ERROR("%s: insufficient arguments", CMD_NAME
);
848 return ERROR_INVALID_ARGUMENTS
;
851 // save help text and remove it from argument list
852 const char *help_text
= CMD_ARGV
[--CMD_ARGC
];
853 // likewise for the leaf command name
854 const char *cmd_name
= CMD_ARGV
[--CMD_ARGC
];
856 struct command
*c
= NULL
;
859 c
= CMD_CTX
->commands
;
860 int retval
= CALL_COMMAND_HANDLER(command_help_find
, c
, &c
);
861 if (ERROR_OK
!= retval
)
864 return help_add_command(CMD_CTX
, c
, cmd_name
, help_text
, NULL
);
867 /* sleep command sleeps for <n> miliseconds
868 * this is useful in target startup scripts
870 COMMAND_HANDLER(handle_sleep_command
)
875 if (strcmp(CMD_ARGV
[1], "busy") == 0)
878 return ERROR_COMMAND_SYNTAX_ERROR
;
880 else if (CMD_ARGC
< 1 || CMD_ARGC
> 2)
881 return ERROR_COMMAND_SYNTAX_ERROR
;
883 unsigned long duration
= 0;
884 int retval
= parse_ulong(CMD_ARGV
[0], &duration
);
885 if (ERROR_OK
!= retval
)
890 long long then
= timeval_ms();
891 while (timeval_ms() - then
< (long long)duration
)
893 target_call_timer_callbacks_now();
898 busy_sleep(duration
);
903 static const struct command_registration command_builtin_handlers
[] = {
905 .name
= "add_help_text",
906 .handler
= &handle_help_add_command
,
908 .help
= "add new command help text",
909 .usage
= "<command> [...] <help_text>]",
913 .handler
= &handle_sleep_command
,
915 .help
= "sleep for n milliseconds. "
916 "\"busy\" will busy wait",
917 .usage
= "<n> [busy]",
921 .handler
= &handle_help_command
,
923 .help
= "show built-in command help",
924 .usage
= "[<command_name> ...]",
928 .handler
= &handle_usage_command
,
930 .help
= "show command usage",
931 .usage
= "[<command_name> ...]",
933 COMMAND_REGISTRATION_DONE
936 struct command_context
* command_init(const char *startup_tcl
)
938 struct command_context
* context
= malloc(sizeof(struct command_context
));
941 context
->mode
= COMMAND_EXEC
;
942 context
->commands
= NULL
;
943 context
->current_target
= 0;
944 context
->output_handler
= NULL
;
945 context
->output_handler_priv
= NULL
;
949 /* Create an interpreter */
950 interp
= Jim_CreateInterp();
951 /* Add all the Jim core commands */
952 Jim_RegisterCoreCommands(interp
);
955 #if defined(_MSC_VER)
956 /* WinXX - is generic, the forward
957 * looking problem is this:
961 * "winxx" is generic.
964 #elif defined(__linux__)
966 #elif defined(__DARWIN__)
968 #elif defined(__CYGWIN__)
970 #elif defined(__MINGW32__)
972 #elif defined(__ECOS)
975 #warn unrecognized host OS...
978 Jim_SetGlobalVariableStr(interp
, "ocd_HOSTOS",
979 Jim_NewStringObj(interp
, HostOs
, strlen(HostOs
)));
981 Jim_CreateCommand(interp
, "ocd_find", jim_find
, NULL
, NULL
);
982 Jim_CreateCommand(interp
, "echo", jim_echo
, NULL
, NULL
);
983 Jim_CreateCommand(interp
, "capture", jim_capture
, NULL
, NULL
);
985 /* Set Jim's STDIO */
986 interp
->cookie_stdin
= interp
;
987 interp
->cookie_stdout
= interp
;
988 interp
->cookie_stderr
= interp
;
989 interp
->cb_fwrite
= openocd_jim_fwrite
;
990 interp
->cb_fread
= openocd_jim_fread
;
991 interp
->cb_vfprintf
= openocd_jim_vfprintf
;
992 interp
->cb_fflush
= openocd_jim_fflush
;
993 interp
->cb_fgets
= openocd_jim_fgets
;
995 register_commands(context
, NULL
, command_builtin_handlers
);
998 Jim_EventLoopOnLoad(interp
);
1000 Jim_SetAssocData(interp
, "context", NULL
, context
);
1001 if (Jim_Eval_Named(interp
, startup_tcl
, "embedded:startup.tcl",1) == JIM_ERR
)
1003 LOG_ERROR("Failed to run startup.tcl (embedded into OpenOCD)");
1004 Jim_PrintErrorMessage(interp
);
1007 Jim_DeleteAssocData(interp
, "context");
1012 int command_context_mode(struct command_context
*cmd_ctx
, enum command_mode mode
)
1015 return ERROR_INVALID_ARGUMENTS
;
1017 cmd_ctx
->mode
= mode
;
1021 void process_jim_events(void)
1023 #if !BUILD_ECOSBOARD
1024 static int recursion
= 0;
1029 Jim_ProcessEvents (interp
, JIM_ALL_EVENTS
| JIM_DONT_WAIT
);
1035 void register_jim(struct command_context
*cmd_ctx
, const char *name
,
1036 Jim_CmdProc cmd
, const char *help
)
1038 Jim_CreateCommand(interp
, name
, cmd
, NULL
, NULL
);
1040 Jim_Obj
*cmd_list
= Jim_NewListObj(interp
, NULL
, 0);
1041 Jim_ListAppendElement(interp
, cmd_list
,
1042 Jim_NewStringObj(interp
, name
, -1));
1044 help_add_command(cmd_ctx
, NULL
, name
, help
, NULL
);
1047 #define DEFINE_PARSE_NUM_TYPE(name, type, func, min, max) \
1048 int parse##name(const char *str, type *ul) \
1052 LOG_ERROR("Invalid command argument"); \
1053 return ERROR_COMMAND_ARGUMENT_INVALID; \
1056 *ul = func(str, &end, 0); \
1059 LOG_ERROR("Invalid command argument"); \
1060 return ERROR_COMMAND_ARGUMENT_INVALID; \
1062 if ((max == *ul) && (ERANGE == errno)) \
1064 LOG_ERROR("Argument overflow"); \
1065 return ERROR_COMMAND_ARGUMENT_OVERFLOW; \
1067 if (min && (min == *ul) && (ERANGE == errno)) \
1069 LOG_ERROR("Argument underflow"); \
1070 return ERROR_COMMAND_ARGUMENT_UNDERFLOW; \
1074 DEFINE_PARSE_NUM_TYPE(_ulong
, unsigned long , strtoul
, 0, ULONG_MAX
)
1075 DEFINE_PARSE_NUM_TYPE(_ullong
, unsigned long long, strtoull
, 0, ULLONG_MAX
)
1076 DEFINE_PARSE_NUM_TYPE(_long
, long , strtol
, LONG_MIN
, LONG_MAX
)
1077 DEFINE_PARSE_NUM_TYPE(_llong
, long long, strtoll
, LLONG_MIN
, LLONG_MAX
)
1079 #define DEFINE_PARSE_WRAPPER(name, type, min, max, functype, funcname) \
1080 int parse##name(const char *str, type *ul) \
1083 int retval = parse##funcname(str, &n); \
1084 if (ERROR_OK != retval) \
1087 return ERROR_COMMAND_ARGUMENT_OVERFLOW; \
1089 return ERROR_COMMAND_ARGUMENT_UNDERFLOW; \
1094 #define DEFINE_PARSE_ULONG(name, type, min, max) \
1095 DEFINE_PARSE_WRAPPER(name, type, min, max, unsigned long, _ulong)
1096 DEFINE_PARSE_ULONG(_uint
, unsigned, 0, UINT_MAX
)
1097 DEFINE_PARSE_ULONG(_u32
, uint32_t, 0, UINT32_MAX
)
1098 DEFINE_PARSE_ULONG(_u16
, uint16_t, 0, UINT16_MAX
)
1099 DEFINE_PARSE_ULONG(_u8
, uint8_t, 0, UINT8_MAX
)
1101 #define DEFINE_PARSE_LONG(name, type, min, max) \
1102 DEFINE_PARSE_WRAPPER(name, type, min, max, long, _long)
1103 DEFINE_PARSE_LONG(_int
, int, n
< INT_MIN
, INT_MAX
)
1104 DEFINE_PARSE_LONG(_s32
, int32_t, n
< INT32_MIN
, INT32_MAX
)
1105 DEFINE_PARSE_LONG(_s16
, int16_t, n
< INT16_MIN
, INT16_MAX
)
1106 DEFINE_PARSE_LONG(_s8
, int8_t, n
< INT8_MIN
, INT8_MAX
)
1108 static int command_parse_bool(const char *in
, bool *out
,
1109 const char *on
, const char *off
)
1111 if (strcasecmp(in
, on
) == 0)
1113 else if (strcasecmp(in
, off
) == 0)
1116 return ERROR_COMMAND_SYNTAX_ERROR
;
1120 int command_parse_bool_arg(const char *in
, bool *out
)
1122 if (command_parse_bool(in
, out
, "on", "off") == ERROR_OK
)
1124 if (command_parse_bool(in
, out
, "enable", "disable") == ERROR_OK
)
1126 if (command_parse_bool(in
, out
, "true", "false") == ERROR_OK
)
1128 if (command_parse_bool(in
, out
, "yes", "no") == ERROR_OK
)
1130 if (command_parse_bool(in
, out
, "1", "0") == ERROR_OK
)
1132 return ERROR_INVALID_ARGUMENTS
;
1135 COMMAND_HELPER(handle_command_parse_bool
, bool *out
, const char *label
)
1139 const char *in
= CMD_ARGV
[0];
1140 if (command_parse_bool_arg(in
, out
) != ERROR_OK
)
1142 LOG_ERROR("%s: argument '%s' is not valid", CMD_NAME
, in
);
1143 return ERROR_INVALID_ARGUMENTS
;
1148 LOG_INFO("%s is %s", label
, *out
? "enabled" : "disabled");
1151 return ERROR_INVALID_ARGUMENTS
;
Linking to existing account procedure
If you already have an account and want to add another login method
you
MUST first sign in with your existing account and
then change URL to read
https://review.openocd.org/login/?link
to get to this page again but this time it'll work for linking. Thank you.
SSH host keys fingerprints
1024 SHA256:YKx8b7u5ZWdcbp7/4AeXNaqElP49m6QrwfXaqQGJAOk gerrit-code-review@openocd.zylin.com (DSA)
384 SHA256:jHIbSQa4REvwCFG4cq5LBlBLxmxSqelQPem/EXIrxjk gerrit-code-review@openocd.org (ECDSA)
521 SHA256:UAOPYkU9Fjtcao0Ul/Rrlnj/OsQvt+pgdYSZ4jOYdgs gerrit-code-review@openocd.org (ECDSA)
256 SHA256:A13M5QlnozFOvTllybRZH6vm7iSt0XLxbA48yfc2yfY gerrit-code-review@openocd.org (ECDSA)
256 SHA256:spYMBqEYoAOtK7yZBrcwE8ZpYt6b68Cfh9yEVetvbXg gerrit-code-review@openocd.org (ED25519)
+--[ED25519 256]--+
|=.. |
|+o.. . |
|*.o . . |
|+B . . . |
|Bo. = o S |
|Oo.+ + = |
|oB=.* = . o |
| =+=.+ + E |
|. .=o . o |
+----[SHA256]-----+
2048 SHA256:0Onrb7/PHjpo6iVZ7xQX2riKN83FJ3KGU0TvI0TaFG4 gerrit-code-review@openocd.zylin.com (RSA)