libjava/classpath/lib/java/lang/Character$Subset.class

/***************************************************************************
 *   Copyright (C) 2005 by Dominic Rath                                    *
 *   Dominic.Rath@gmx.de                                                   *
 *                                                                         *
 *   Copyright (C) 2007-2010 Øyvind Harboe                                 *
 *   oyvind.harboe@zylin.com                                               *
 *                                                                         *
 *   Copyright (C) 2009 SoftPLC Corporation                                *
 *       http://softplc.com                                                *
 *   dick@softplc.com                                                      *
 *                                                                         *
 *   Copyright (C) 2009 Zachary T Welch                                    *
 *   zw@superlucidity.net                                                  *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program.  If not, see <http://www.gnu.org/licenses/>. *
 ***************************************************************************/

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "jtag.h"
#include "swd.h"
#include "minidriver.h"
#include "interface.h"
#include "interfaces.h"
#include "tcl.h"

#ifdef HAVE_STRINGS_H
#include <strings.h>
#endif

#include <helper/time_support.h>

/**
 * @file
 * Holds support for accessing JTAG-specific mechanisms from TCl scripts.
 */

static const Jim_Nvp nvp_jtag_tap_event[] = {
	{ .value = JTAG_TRST_ASSERTED,          .name = "post-reset" },
	{ .value = JTAG_TAP_EVENT_SETUP,        .name = "setup" },
	{ .value = JTAG_TAP_EVENT_ENABLE,       .name = "tap-enable" },
	{ .value = JTAG_TAP_EVENT_DISABLE,      .name = "tap-disable" },

	{ .name = NULL, .value = -1 }
};

struct jtag_tap *jtag_tap_by_jim_obj(Jim_Interp *interp, Jim_Obj *o)
{
	const char *cp = Jim_GetString(o, NULL);
	struct jtag_tap *t = cp ? jtag_tap_by_string(cp) : NULL;
	if (NULL == cp)
		cp = "(unknown)";
	if (NULL == t)
		Jim_SetResultFormatted(interp, "Tap '%s' could not be found", cp);
	return t;
}

static bool scan_is_safe(tap_state_t state)
{
	switch (state) {
	    case TAP_RESET:
	    case TAP_IDLE:
	    case TAP_DRPAUSE:
	    case TAP_IRPAUSE:
		    return true;
	    default:
		    return false;
	}
}

static int Jim_Command_drscan(Jim_Interp *interp, int argc, Jim_Obj *const *args)
{
	int retval;
	struct scan_field *fields;
	int num_fields;
	int field_count = 0;
	int i, e;
	struct jtag_tap *tap;
	tap_state_t endstate;

	/* args[1] = device
	 * args[2] = num_bits
	 * args[3] = hex string
	 * ... repeat num bits and hex string ...
	 *
	 * .. optionally:
	*     args[N-2] = "-endstate"
	 *     args[N-1] = statename
	 */
	if ((argc < 4) || ((argc % 2) != 0)) {
		Jim_WrongNumArgs(interp, 1, args, "wrong arguments");
		return JIM_ERR;
	}

	endstate = TAP_IDLE;

	script_debug(interp, "drscan", argc, args);

	/* validate arguments as numbers */
	e = JIM_OK;
	for (i = 2; i < argc; i += 2) {
		long bits;
		const char *cp;

		e = Jim_GetLong(interp, args[i], &bits);
		/* If valid - try next arg */
		if (e == JIM_OK)
			continue;

		/* Not valid.. are we at the end? */
		if (((i + 2) != argc)) {
			/* nope, then error */
			return e;
		}

		/* it could be: "-endstate FOO"
		 * e.g. DRPAUSE so we can issue more instructions
		 * before entering RUN/IDLE and executing them.
		 */

		/* get arg as a string. */
		cp = Jim_GetString(args[i], NULL);
		/* is it the magic? */
		if (0 == strcmp("-endstate", cp)) {
			/* is the statename valid? */
			cp = Jim_GetString(args[i + 1], NULL);

			/* see if it is a valid state name */
			endstate = tap_state_by_name(cp);
			if (endstate < 0) {
				/* update the error message */
				Jim_SetResultFormatted(interp, "endstate: %s invalid", cp);
			} else {
				if (!scan_is_safe(endstate))
					LOG_WARNING("drscan with unsafe "
						"endstate \"%s\"", cp);

				/* valid - so clear the error */
				e = JIM_OK;
				/* and remove the last 2 args */
				argc -= 2;
			}
		}

		/* Still an error? */
		if (e != JIM_OK)
			return e;	/* too bad */
	}	/* validate args */

	assert(e == JIM_OK);

	tap = jtag_tap_by_jim_obj(interp, args[1]);
	if (tap == NULL)
		return JIM_ERR;

	num_fields = (argc-2)/2;
	if (num_fields <= 0) {
		Jim_SetResultString(interp, "drscan: no scan fields supplied", -1);
		return JIM_ERR;
	}
	fields = malloc(sizeof(struct scan_field) * num_fields);
	for (i = 2; i < argc; i += 2) {
		long bits;
		int len;
		const char *str;

		Jim_GetLong(interp, args[i], &bits);
		str = Jim_GetString(args[i + 1], &len);

		fields[field_count].num_bits = bits;
		void *t = malloc(DIV_ROUND_UP(bits, 8));
		fields[field_count].out_value = t;
		str_to_buf(str, len, t, bits, 0);
		fields[field_count].in_value = t;
		field_count++;
	}

	jtag_add_dr_scan(tap, num_fields, fields, endstate);

	retval = jtag_execute_queue();
	if (retval != ERROR_OK) {
		Jim_SetResultString(interp, "drscan: jtag execute failed", -1);
		return JIM_ERR;
	}

	field_count = 0;
ofs	hex dump	ascii
0000	ca fe ba be 00 00 00 31 00 27 07 00 02 01 00 1a 6a 61 76 61 2f 6c 61 6e 67 2f 43 68 61 72 61 63	.......1.'......java/lang/Charac
0020	74 65 72 24 53 75 62 73 65 74 07 00 04 01 00 10 6a 61 76 61 2f 6c 61 6e 67 2f 4f 62 6a 65 63 74	ter$Subset......java/lang/Object
0040	01 00 04 6e 61 6d 65 01 00 12 4c 6a 61 76 61 2f 6c 61 6e 67 2f 53 74 72 69 6e 67 3b 01 00 06 3c	...name...Ljava/lang/String;...<
0060	69 6e 69 74 3e 01 00 15 28 4c 6a 61 76 61 2f 6c 61 6e 67 2f 53 74 72 69 6e 67 3b 29 56 01 00 04	init>...(Ljava/lang/String;)V...
0080	43 6f 64 65 0a 00 03 00 0b 0c 00 07 00 0c 01 00 03 28 29 56 0a 00 0e 00 10 07 00 0f 01 00 10 6a	Code.............()V...........j
00a0	61 76 61 2f 6c 61 6e 67 2f 53 74 72 69 6e 67 0c 00 11 00 12 01 00 08 74 6f 53 74 72 69 6e 67 01	ava/lang/String........toString.
00c0	00 14 28 29 4c 6a 61 76 61 2f 6c 61 6e 67 2f 53 74 72 69 6e 67 3b 09 00 01 00 14 0c 00 05 00 06	..()Ljava/lang/String;..........
00e0	01 00 0f 4c 69 6e 65 4e 75 6d 62 65 72 54 61 62 6c 65 01 00 12 4c 6f 63 61 6c 56 61 72 69 61 62	...LineNumberTable...LocalVariab
0100	6c 65 54 61 62 6c 65 01 00 04 74 68 69 73 01 00 1c 4c 6a 61 76 61 2f 6c 61 6e 67 2f 43 68 61 72	leTable...this...Ljava/lang/Char
0120	61 63 74 65 72 24 53 75 62 73 65 74 3b 01 00 06 65 71 75 61 6c 73 01 00 15 28 4c 6a 61 76 61 2f	acter$Subset;...equals...(Ljava/
0140	6c 61 6e 67 2f 4f 62 6a 65 63 74 3b 29 5a 01 00 01 6f 01 00 12 4c 6a 61 76 61 2f 6c 61 6e 67 2f	lang/Object;)Z...o...Ljava/lang/
0160	4f 62 6a 65 63 74 3b 01 00 08 68 61 73 68 43 6f 64 65 01 00 03 28 29 49 0a 00 03 00 20 0c 00 1d	Object;...hashCode...()I........
0180	00 1e 01 00 0a 53 6f 75 72 63 65 46 69 6c 65 01 00 0e 43 68 61 72 61 63 74 65 72 2e 6a 61 76 61	.....SourceFile...Character.java
01a0	01 00 0c 49 6e 6e 65 72 43 6c 61 73 73 65 73 07 00 25 01 00 13 6a 61 76 61 2f 6c 61 6e 67 2f 43	...InnerClasses..%...java/lang/C
01c0	68 61 72 61 63 74 65 72 01 00 06 53 75 62 73 65 74 00 21 00 01 00 03 00 00 00 01 00 12 00 05 00	haracter...Subset.!.............
01e0	06 00 00 00 04 00 04 00 07 00 08 00 01 00 09 00 00 00 49 00 02 00 02 00 00 00 0d 2a b7 00 0a 2a	..................I...........
0200	2b b6 00 0d b5 00 13 b1 00 00 00 02 00 15 00 00 00 0e 00 03 00 00 00 64 00 04 00 67 00 0c 00 68	+......................d...g...h
0220	00 16 00 00 00 16 00 02 00 00 00 0d 00 17 00 18 00 00 00 00 00 0d 00 05 00 06 00 01 00 11 00 19	................................
0240	00 1a 00 01 00 09 00 00 00 3d 00 02 00 02 00 00 00 09 2b 2a a6 00 05 04 ac 03 ac 00 00 00 02 00	.........=........+*............
0260	15 00 00 00 06 00 01 00 00 00 74 00 16 00 00 00 16 00 02 00 00 00 09 00 17 00 18 00 00 00 00 00	..........t.....................
0280	09 00 1b 00 1c 00 01 00 11 00 1d 00 1e 00 01 00 09 00 00 00 2f 00 01 00 01 00 00 00 05 2a b7 00	..................../........*..
02a0	1f ac 00 00 00 02 00 15 00 00 00 06 00 01 00 00 00 7f 00 16 00 00 00 0c 00 01 00 00 00 05 00 17	................................
02c0	00 18 00 00 00 11 00 11 00 12 00 01 00 09 00 00 00 2f 00 01 00 01 00 00 00 05 2a b4 00 13 b0 00	................./........*.....
02e0	00 00 02 00 15 00 00 00 06 00 01 00 00 00 89 00 16 00 00 00 0c 00 01 00 00 00 05 00 17 00 18 00	................................
0300	00 00 02 00 21 00 00 00 02 00 22 00 23 00 00 00 0a 00 01 00 01 00 24 00 26 00 09	....!.....".#.........$.&..