static int cmd_part_run( char *params[] ) { unsigned int n; if (cmd_params( params ) != 2) return -1; if (!cmd_test_cable()) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (cmd_get_number( params[1], &n )) return -1; if (n >= chain->parts->len) { printf( _("%s: invalid part number\n"), "part" ); return 1; } chain->active_part = n; return 1; }
static int cmd_detect_run( char *params[] ) { if (cmd_params( params ) != 1) return -1; if (!cmd_test_cable()) return 1; buses_free(); parts_free( chain->parts ); chain->parts = NULL; detect_parts( chain, JTAG_DATA_DIR ); if (!chain->parts) return 1; if (!chain->parts->len) { parts_free( chain->parts ); chain->parts = NULL; return 1; } parts_set_instruction( chain->parts, "SAMPLE/PRELOAD" ); chain_shift_instructions( chain ); chain_shift_data_registers( chain, 1 ); parts_set_instruction( chain->parts, "BYPASS" ); chain_shift_instructions( chain ); return 1; }
static int cmd_bus_run( chain_t *chain, char *params[] ) { unsigned int n; if (cmd_params( params ) != 2) return -1; if (!cmd_test_cable( chain )) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (cmd_get_number( params[1], &n )) return -1; if (n >= buses.len) { printf( _("%s: invalid bus number\n"), "bus" ); return 1; } bus = buses.buses[n]; return 1; }
static int cmd_svf_run( chain_t *chain, char *params[] ) { FILE *SVF_FILE; int num_params, i, result = -1; int stop = 0; int print_progress = 0; uint32_t ref_freq = 0; num_params = cmd_params( params ); if (num_params > 1) { for (i = 2; i < num_params; i++) { if (strcasecmp(params[i], "stop") == 0) stop = 1; else if (strcasecmp(params[i], "progress") == 0) print_progress = 1; else if (strncasecmp(params[i], "ref_freq=", 9) == 0) ref_freq = strtol(params[i]+9, NULL, 10); else return -1; } if ((SVF_FILE = fopen(params[1], "r")) != NULL) { svf_run(chain, SVF_FILE, stop, print_progress, ref_freq); result = 1; fclose(SVF_FILE); } else { printf( _("%s: cannot open file '%s' for reading\n"), "svf", params[1] ); } } return result; }
static int cmd_endian_run( char *params[] ) { if (cmd_params( params ) > 2) return -1; if (!params[1]) { if (big_endian) printf( _("Endianess for external files: big\n") ); else printf( _("Endianess for external files: little\n") ); return 1; } if (strcmp( params[1], "little" ) == 0) { big_endian = 0; return 1; } if (strcmp( params[1], "big" ) == 0) { big_endian = 1; return 1; } return -1; }
static int cmd_writemem_run( chain_t *chain, char *params[] ) { uint32_t adr; uint32_t len; FILE *f; if (cmd_params( params ) != 4) return -1; if (!bus) { printf( _("Error: Bus driver missing.\n") ); return 1; } if (cmd_get_number( params[1], &adr) || cmd_get_number( params[2], &len)) return -1; f = fopen( params[3], "r" ); if (!f) { printf( _("Unable to open file `%s'!\n"), params[3] ); return 1; } writemem( bus, f, adr, len ); fclose( f ); return 1; }
static int cmd_frequency_run( char *params[] ) { unsigned int freq; if (cmd_params( params ) == 1) { printf( _("Current TCK frequency is %u Hz\n"), frequency ); return 1; } if (cmd_params( params ) != 2) return -1; if (cmd_get_number( params[1], &freq )) return -1; printf( _("Setting TCK frequency to %u Hz\n"), freq ); frequency = freq; return 1; }
static int cmd_salias_run( chain_t *chain, char *params[] ) { part_t *part; signal_t *s; salias_t *sa; if (cmd_params( params ) != 3) return -1; if (!cmd_test_cable( chain )) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (chain->active_part >= chain->parts->len) { printf( _("%s: no active part\n"), "signal" ); return 1; } part = chain->parts->parts[chain->active_part]; if (part_find_signal( part, params[1] ) != NULL) { printf( _("Signal '%s' already defined\n"), params[1] ); return 1; } s = part_find_signal( part, params[2] ); if (s == NULL) { printf( _("Signal '%s' not found\n"), params[2] ); return 1; } sa = salias_alloc( params[1], s ); if (!sa) { printf( _("out of memory\n") ); return 1; } sa->next = part->saliases; part->saliases = sa; return 1; }
static int cmd_initbus_run( chain_t *chain, char *params[] ) { int i; if (cmd_params( params ) < 2) return -1; if (!cmd_test_cable( chain )) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (chain->active_part >= chain->parts->len || chain->active_part < 0) { printf( _("%s: no active part\n"), "initbus" ); return 1; } for (i = 0; bus_drivers[i] != NULL; i++) { if (strcasecmp( bus_drivers[i]->name, params[1] ) == 0) { bus_t *abus = bus_drivers[i]->new_bus( chain, bus_drivers[i], params ); if (abus == NULL) { printf( _("bus alloc/attach failed!\n") ); return 1; } buses_add( abus ); if (bus_init( abus ) != URJTAG_STATUS_OK) printf( _("bus initialization failed!\n") ); for (i = 0; i < buses.len; i++) if (buses.buses[i] == bus) break; if (i != buses.len - 1) printf( _("Initialized bus %d, active bus %d\n"), buses.len - 1, i ); return 1; } } printf( _("Unknown bus: %s\n"), params[1] ); return 1; }
static int cmd_shift_run( char *params[] ) { if (cmd_params( params ) != 2) return -1; if (!cmd_test_cable()) return 1; if (strcmp( params[1], "ir" ) == 0) { chain_shift_instructions( chain ); return 1; } if (strcmp( params[1], "dr" ) == 0) { chain_shift_data_registers( chain, 1 ); return 1; } return -1; }
static int cmd_detectflash_run( char *params[] ) { uint32_t adr; if (cmd_params( params ) != 2) return -1; if (!bus) { printf( _("Error: Bus driver missing.\n") ); return 1; } if (cmd_get_number( params[1], &adr )) return -1; detectflash( bus, adr ); return 1; }
static int cmd_flashmem_run( chain_t *chain, char *params[] ) { int msbin; int noverify = 0; uint32_t adr = 0; FILE *f; int paramc = cmd_params( params ); if (paramc < 3) return -1; if (!bus) { printf( _("Error: Bus driver missing.\n") ); return 1; } msbin = strcasecmp( "msbin", params[1] ) == 0; if (!msbin && cmd_get_number( params[1], &adr )) return -1; if (paramc > 3) noverify = strcasecmp( "noverify", params[3] ) == 0; else noverify = 0; f = fopen( params[2], "rb" ); if (!f) { printf( _("Unable to open file `%s'!\n"), params[2] ); return 1; } if (msbin) flashmsbin( bus, f, noverify ); else flashmem( bus, f, adr, noverify ); fclose( f ); return 1; }
static int cmd_eraseflash_run( chain_t *chain, char *params[] ) { uint32_t adr = 0; unsigned int number = 0; if (cmd_params( params ) != 3) return -1; if (!cmd_test_cable( chain )) return 1; if (!bus) { printf( _("Error: Bus driver missing.\n") ); return 1; } if (cmd_get_number( params[1], &adr )) return -1; if (cmd_get_number( params[2], &number )) return -1; flasherase( bus, adr, number ); return 1; }
// eval the command in current process int eval_cmd_in_proc(NodeType *pn) { char *cmd = cmd_cmd_str(pn); NodeType *params = cmd_params(pn); int len = list_length(params); char **param_arr = (char**)malloc((len+2) * sizeof(char*)); int i = 0; param_arr[0] = cmd; param_arr[len+1] = NULL; NodeType *head = params; for(i = 0; i < len; i++) { param_arr[i+1] = param_str(pair_car(head)); head = pair_cdr(head); } if (execvp(cmd, param_arr) < 0) { err_sys("execvp failed"); free(param_arr); return -1; } else { free(param_arr); return 0; } }
static int cmd_get_run( char *params[] ) { int data; signal_t *s; if (cmd_params( params ) != 3) return -1; if (strcmp( params[1], "signal") != 0) return -1; if (!cmd_test_cable()) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (chain->active_part >= chain->parts->len) { printf( _("%s: no active part\n"), "get" ); return 1; } s = part_find_signal( chain->parts->parts[chain->active_part], params[2] ); if (!s) { printf( _("signal '%s' not found\n"), params[2] ); return 1; } data = part_get_signal( chain->parts->parts[chain->active_part], s ); if (data != -1) printf( _("%s = %d\n"), params[2], data ); return 1; }
static int cmd_cable_run( chain_t *chain, char *params[] ) { cable_t *cable; int i; int paramc = cmd_params( params ); /* we need at least one parameter for 'cable' command */ if (paramc < 2) return -1; /* maybe old syntax was used? search connection type driver */ for (i = 0; parport_drivers[i]; i++) if (strcasecmp( params[1], parport_drivers[i]->type ) == 0) break; if (parport_drivers[i] != 0) { /* Old syntax was used. Swap params. */ printf( _("Note: the 'cable' command syntax changed, please read the help text\n") ); if (paramc >= 4) { char *tmparam; tmparam = params[3]; params[3] = params[2]; params[2] = params[1]; params[1] = tmparam; } else return -1; } /* search cable driver list */ for (i = 0; cable_drivers[i]; i++) if (strcasecmp( params[1], cable_drivers[i]->name ) == 0) break; if (!cable_drivers[i]) { printf( _("Unknown cable type: %s\n"), params[1] ); return 1; } if (paramc >= 3) { if (strcasecmp( params[2], "help" ) == 0) { cable_drivers[i]->help(cable_drivers[i]->name); return 1; } } if (bus) { bus_free( bus ); bus = NULL; } chain_disconnect( chain ); cable = calloc(1, sizeof(cable_t) ); if (!cable) { printf( _("%s(%d) malloc failed!\n"), __FILE__, __LINE__); return 1; } cable->driver = cable_drivers[i]; if ( cable->driver->connect( ++params, cable ) ) { printf( _("Error: Cable connection failed!\n") ); free( cable ); return 1; } chain->cable = cable; if (cable_init( chain->cable )) { printf( _("Error: Cable initialization failed!\n") ); chain_disconnect( chain ); return 1; } chain_set_trst( chain, 0 ); chain_set_trst( chain, 1 ); tap_reset( chain ); return 1; }
static int cmd_dr_run( chain_t *chain, char *params[] ) { int dir = 1; tap_register *r; if (cmd_params( params ) < 1 || cmd_params( params ) > 2) return -1; if (!cmd_test_cable( chain )) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (chain->active_part >= chain->parts->len) { printf( _("%s: no active part\n"), "dr" ); return 1; } if (chain->parts->parts[chain->active_part]->active_instruction == NULL) { printf( _("%s: part without active instruction\n"), "dr" ); return 1; } if (chain->parts->parts[chain->active_part]->active_instruction->data_register == NULL) { printf( _("%s: part without active data register\n"), "dr" ); return 1; } if (params[1]) { if (strcasecmp( params[1], "in" ) == 0) dir = 0; else if (strcasecmp( params[1], "out" ) == 0) dir = 1; else { unsigned int bit; if (strspn(params[1], "01") != strlen(params[1])) { return -1; } r = chain->parts->parts[chain->active_part]->active_instruction->data_register->in; if (r->len != strlen(params[1])) { printf( _("%s: register length mismatch\n"), "dr" ); return 1; } for (bit = 0; params[1][bit]; bit++) { r->data[r->len - 1 - bit] = (params[1][bit] == '1'); } dir = 0; } } if (dir) r = chain->parts->parts[chain->active_part]->active_instruction->data_register->out; else r = chain->parts->parts[chain->active_part]->active_instruction->data_register->in; printf( _("%s\n"), register_get_string( r ) ); return 1; }
static int cmd_instruction_run( chain_t *chain, char *params[] ) { part_t *part; if (!cmd_test_cable( chain )) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (chain->active_part >= chain->parts->len) { printf( _("%s: no active part\n"), "instruction" ); return 1; } part = chain->parts->parts[chain->active_part]; if (cmd_params( params ) == 2) { part_set_instruction( part, params[1] ); if (part->active_instruction == NULL) printf( _("%s: unknown instruction '%s'\n"), "instruction", params[1] ); return 1; } if (cmd_params( params ) == 3) { unsigned int len; if (strcasecmp( params[1], "length" ) != 0) return -1; if (part->instructions != NULL) { printf( _("instruction length is already set and used\n") ); return 1; } if (cmd_get_number( params[2], &len )) return -1; part->instruction_length = len; return 1; } if (cmd_params( params ) == 4) { instruction *i; if (strlen( params[2] ) != part->instruction_length) { printf( _("invalid instruction length\n") ); return 1; } if (part_find_instruction( part, params[1] ) != NULL) { printf( _("Instruction '%s' already defined\n"), params[1] ); return 1; } i = instruction_alloc( params[1], part->instruction_length, params[2] ); if (!i) { printf( _("out of memory\n") ); return 1; } i->next = part->instructions; part->instructions = i; i->data_register = part_find_data_register( part, params[3] ); if (i->data_register == NULL) { printf( _("unknown data register '%s'\n"), params[3] ); return 1; } return 1; } return -1; }
static int cmd_print_run( char *params[] ) { char format[100]; #if HAVE_SWPRINTF wchar_t wformat[100]; #endif /* HAVE_SWPRINTF */ wchar_t wheader[100]; char header[100]; int i; int noheader = 0; if (cmd_params( params ) > 2) return -1; if (!cmd_test_cable()) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (cmd_params( params ) == 2) { if ((strcmp( params[1], "chain" ) != 0) && (strcmp( params[1], "bus") != 0)) return -1; if (strcmp( params[1], "bus") == 0) noheader = 1; } if (noheader == 0) { snprintf( format, 100, _(" No. %%-%ds %%-%ds %%-%ds %%-%ds %%-%ds\n"), MAXLEN_MANUFACTURER, MAXLEN_PART, MAXLEN_STEPPING, MAXLEN_INSTRUCTION, MAXLEN_DATA_REGISTER ); #if HAVE_SWPRINTF if (mbstowcs( wformat, format, 100 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); swprintf( wheader, 100, wformat, _("Manufacturer"), _("Part"), _("Stepping"), _("Instruction"), _("Register") ); if (wcstombs( header, wheader, 100 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); #else /* HAVE_SWPRINTF */ snprintf( header, 100, format, _("Manufacturer"), _("Part"), _("Stepping"), _("Instruction"), _("Register") ); if (mbstowcs( wheader, header, 100 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); #endif /* HAVE_SWPRINTF */ printf( header ); for (i = 0; i < wcslen( wheader ); i++ ) putchar( '-' ); putchar( '\n' ); } if (cmd_params( params ) == 1) { if (chain->parts->len > chain->active_part) { printf( _(" %3d "), chain->active_part ); part_print( chain->parts->parts[chain->active_part] ); } if (bus != NULL) { int i; uint64_t a; bus_area_t area; for (i = 0; i < buses.len; i++) if (buses.buses[i] == bus) break; printf( _("\nActive bus:\n*%d: "), i ); bus_printinfo( bus ); for (a = 0; a < UINT64_C(0x100000000); a = area.start + area.length) { if (bus_area( bus, a, &area ) != 0) { printf( _("Error in bus area discovery at 0x%08llX\n"), a ); break; } if (area.width != 0) { if (area.description != NULL) printf( _("\tstart: 0x%08X, length: 0x%08llX, data width: %d bit, (%s)\n"), area.start, area.length, area.width, _(area.description) ); else printf( _("\tstart: 0x%08X, length: 0x%08llX, data width: %d bit\n"), area.start, area.length, area.width ); } } } return 1; } if (strcmp( params[1], "chain" ) == 0) { parts_print( chain->parts ); return 1; } for (i = 0; i < buses.len; i++) { if (buses.buses[i] == bus) printf( _("*%d: "), i ); else printf( _("%d: "), i ); bus_printinfo( buses.buses[i] ); } return 1; }
static int cmd_include_or_script_run( chain_t *chain, int is_include, char *params[] ) { int go = 0, i, j = 1; char *path; int len; if (cmd_params( params ) < 2) return -1; if( ! is_include ) { printf(_("Please use the 'include' command instead of 'script'\n") ); } /* If "params[1]" begins with a slash, or dots followed by a slash, * assume that user wants to ignore the search path */ path = params[1]; #ifdef __MINGW32__ if (isalpha(*path) && path[1] == ':') path += 2; #endif while( *path == '.' ) path++; if(*path == '/' || *path == '\\' || ! is_include||(isalpha(*path) && path[1] == ':')) { path = strdup(params[1]); } else { const char *jtag_data_dir = jtag_get_data_dir(); path = malloc(len = strlen( jtag_data_dir ) + strlen( params[1] ) + 2); if(path != NULL) { snprintf( path, len, "%s/%s", jtag_data_dir, params[1] ); } } if (path == NULL) { printf( _("Out of memory\n") ); return 1; } #ifdef ENABLE_BSDL /* perform a test read to check for BSDL syntax */ if (bsdl_read_file( chain, path, BSDL_MODE_INCLUDE1, NULL ) >= 0) { /* it seems to be a proper BSDL file, so re-read and execute */ go = bsdl_read_file( chain, path, BSDL_MODE_INCLUDE2, NULL ); free( path ); return 1; } #endif if (cmd_params( params ) > 2) { sscanf(params[2],"%d",&j); /* loop n times option */ } for(i = 0; i < j ;i++) { go = jtag_parse_file( chain, path ); if (go < 0) { if (go != -99) printf( _("Unable to open file `%s go=%d'!\n"), path, go ); break; } } free( path ); return go ? 1 : 0; }
static int cmd_print_run( chain_t *chain, char *params[] ) { char format[128]; #if HAVE_SWPRINTF wchar_t wformat[128]; #endif /* HAVE_SWPRINTF */ wchar_t wheader[128]; char header[128]; int i; int noheader = 0; if (cmd_params( params ) > 2) return -1; if (!cmd_test_cable( chain )) return 1; if (!chain->parts) { printf( _("Run \"detect\" first.\n") ); return 1; } if (cmd_params( params ) == 2) { if (strcasecmp( params[1], "bus") == 0) noheader = 1; if (strcasecmp( params[1], "signals") == 0) { printf("Signals:\n"); part_t *part; signal_t *s; part = chain->parts->parts[chain->active_part]; for(s = part->signals;s != NULL;s = s->next) { salias_t *sa; if(s->pin)printf("%s %s",s->name,s->pin); else printf("%s",s->name); if(s->input)printf("\tinput=%s",s->input->name); if(s->output)printf("\toutput=%s",s->output->name); for (sa = part->saliases; sa != NULL; sa = sa->next) { if (s == sa->signal)printf("\tsalias=%s",sa->name); } printf("\n"); } return(1); } if (strcasecmp( params[1], "instructions") == 0) { part_t *part; instruction *inst; snprintf( format, 128, _(" Active %%-%ds %%-%ds"), MAXLEN_INSTRUCTION, MAXLEN_DATA_REGISTER ); #if HAVE_SWPRINTF if (mbstowcs( wformat, format, 128 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); swprintf( wheader, 128, wformat, _("Instruction"), _("Register") ); if (wcstombs( header, wheader, 128 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); #else /* HAVE_SWPRINTF */ snprintf( header, 128, format, _("Instruction"), _("Register") ); if (mbstowcs( wheader, header, 128 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); #endif /* HAVE_SWPRINTF */ puts( header ); for (i = 0; i < wcslen( wheader ); i++ ) putchar( '-' ); putchar( '\n' ); snprintf( format, 128, _(" %%c %%-%ds %%-%ds\n"), MAXLEN_INSTRUCTION, MAXLEN_DATA_REGISTER ); part = chain->parts->parts[chain->active_part]; for (inst = part->instructions; inst != NULL; inst = inst->next) { printf( format, inst == part->active_instruction ? 'X' : ' ', inst->name, inst->data_register->name); } return(1); } } if (noheader == 0) { snprintf( format, 128, _(" No. %%-%ds %%-%ds %%-%ds %%-%ds %%-%ds"), MAXLEN_MANUFACTURER, MAXLEN_PART, MAXLEN_STEPPING, MAXLEN_INSTRUCTION, MAXLEN_DATA_REGISTER ); #if HAVE_SWPRINTF if (mbstowcs( wformat, format, 128 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); swprintf( wheader, 128, wformat, _("Manufacturer"), _("Part"), _("Stepping"), _("Instruction"), _("Register") ); if (wcstombs( header, wheader, 128 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); #else /* HAVE_SWPRINTF */ snprintf( header, 128, format, _("Manufacturer"), _("Part"), _("Stepping"), _("Instruction"), _("Register") ); if (mbstowcs( wheader, header, 128 ) == -1) printf( _("(%d) String conversion failed!\n"), __LINE__ ); #endif /* HAVE_SWPRINTF */ puts( header ); for (i = 0; i < wcslen( wheader ); i++ ) putchar( '-' ); putchar( '\n' ); } if (cmd_params( params ) == 1) { if (chain->parts->len > chain->active_part) { if(chain->parts->parts[chain->active_part]->alias) printf( _(" %3d %s "), chain->active_part,chain->parts->parts[chain->active_part]->alias ); else printf( _(" %3d "), chain->active_part); part_print( chain->parts->parts[chain->active_part] ); } if (bus != NULL) { int i; uint64_t a; bus_area_t area; for (i = 0; i < buses.len; i++) if (buses.buses[i] == bus) break; printf( _("\nActive bus:\n*%d: "), i ); bus_printinfo( bus ); for (a = 0; a < UINT64_C(0x100000000); a = area.start + area.length) { if (bus_area( bus, a, &area ) != URJTAG_STATUS_OK) { printf( _("Error in bus area discovery at 0x%08llX\n"), (long long unsigned int)a ); break; } if (area.width != 0) { if (area.description != NULL) printf( _("\tstart: 0x%08X, length: 0x%08llX, data width: %d bit, (%s)\n"), area.start, (long long unsigned int)area.length, area.width, _(area.description) ); else printf( _("\tstart: 0x%08X, length: 0x%08llX, data width: %d bit\n"), area.start, (long long unsigned int)area.length, area.width ); } } } return 1; } if (strcasecmp( params[1], "chain" ) == 0) { parts_print( chain->parts ); return 1; } for (i = 0; i < buses.len; i++) { if (buses.buses[i] == bus) printf( _("*%d: "), i ); else printf( _("%d: "), i ); bus_printinfo( buses.buses[i] ); } return 1; }