ecos: packages/io/usb/slave/current/host/usbhost.c annotate

annotate packages/io/usb/slave/current/host/usbhost.c @ 3292:7f8e529b4d82 default tip

Fix FREESCALE_EDMA_NBYTES_MLOFFYES_MLOFF() so it works with negative offsets.

author	vae
date	Wed, 29 Apr 2015 23:31:48 +0000
parents	74dbf4c3f2e1
children

rev	line source
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1 /{{{ Banner /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	2
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	3 //=================================================================
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	4 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	5 // host.c
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	6 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	7 // USB testing - host-side
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	8 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	9 //==========================================================================
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	10 // ####ECOSGPLCOPYRIGHTBEGIN####
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	11 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	12 // This file is part of eCos, the Embedded Configurable Operating System.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	13 // Copyright (C) 1998, 1999, 2000, 2001, 2002, 2005 Free Software Foundation, Inc.
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	14 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	15 // eCos is free software; you can redistribute it and/or modify it under
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	16 // the terms of the GNU General Public License as published by the Free
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	17 // Software Foundation; either version 2 or (at your option) any later
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	18 // version.
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	19 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	20 // eCos is distributed in the hope that it will be useful, but WITHOUT
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	21 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	22 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	23 // for more details.
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	24 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	25 // You should have received a copy of the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	26 // along with eCos; if not, write to the Free Software Foundation, Inc.,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	27 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	28 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	29 // As a special exception, if other files instantiate templates or use
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	30 // macros or inline functions from this file, or you compile this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	31 // and link it with other works to produce a work based on this file,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	32 // this file does not by itself cause the resulting work to be covered by
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	33 // the GNU General Public License. However the source code for this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	34 // must still be made available in accordance with section (3) of the GNU
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	35 // General Public License v2.
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	36 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	37 // This exception does not invalidate any other reasons why a work based
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	38 // on this file might be covered by the GNU General Public License.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	39 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 2520 diff changeset	40 // ####ECOSGPLCOPYRIGHTEND####
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	41 //==========================================================================
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	42 //#####DESCRIPTIONBEGIN####
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	43 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	44 // Author(s): bartv
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	45 // Date: 2001-07-04
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	46 //####DESCRIPTIONEND####
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	47 //==========================================================================
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	48
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	49 // The overall architecture is as follows.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	50 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	51 // The target hardware runs a special application which provides a
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	52 // particular type of USB application, "Red Hat eCos USB testing".
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	53 // This will not be recognised by any device driver, so the Linux
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	54 // kernel will pretty much ignore the device (other host OS's are not
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	55 // considered at this time).
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	56 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	57 // This program is the only supported way to interact with that service.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	58 // It acts as an extended Tcl interpreter, providing a number of new
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	59 // Tcl commands for interacting with the target. All test cases can
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	60 // then be written as Tcl scripts which invoke a series of these commands.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	61 // These Tcl commands operate essentially though the LINUX usb devfs
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	62 // service which allows ordinary application code to perform USB operations
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	63 // via ioctl()'s.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	64
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	65 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	66 /{{{ #include's /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	67
2520 901d69d75fc1 Sort out build problems. bartv parents: 2188 diff changeset	68 // To get the desired version of strerror_r()
901d69d75fc1 Sort out build problems. bartv parents: 2188 diff changeset	69 #define _GNU_SOURCE 1
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	70 #include <stdio.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	71 #include <stdlib.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	72 #include <string.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	73 #include <ctype.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	74 #include <limits.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	75 #include <errno.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	76 #include <sys/types.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	77 #include <sys/stat.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	78 #include <unistd.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	79 #include <fcntl.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	80 #include <sys/ioctl.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	81 #include <time.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	82 #include <pthread.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	83 #include <semaphore.h>
343 fbfd52cf7976 Try to resolve problems caused by API changes in Tcl 8.4, related to bartv parents: 213 diff changeset	84 // Avoid compatibility problems with Tcl 8.4 vs. earlier
fbfd52cf7976 Try to resolve problems caused by API changes in Tcl 8.4, related to bartv parents: 213 diff changeset	85 #define USE_NON_CONST
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	86 #include <tcl.h>
2520 901d69d75fc1 Sort out build problems. bartv parents: 2188 diff changeset	87 #include <linux/usb/ch9.h>
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	88 #include <linux/usbdevice_fs.h>
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	89 #include "../tests/protocol.h"
2001 07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	90 #include "config.h"
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	91
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	92 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	93
2001 07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	94 /{{{ Backwards compatibility /
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	95
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	96 // The header file <linux/usbdevice_fs.h> has changed in an incompatible
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	97 // way. This is detected by autoconf
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	98 #ifndef CYGBLD_USE_NEW_FIELD_NAMES
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	99 # define bRequestType requesttype
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	100 # define bRequest request
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	101 # define wValue value
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	102 # define wIndex index
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	103 # define wLength length
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	104 #endif
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	105
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	106 /}}}/
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	107 /{{{ Statics /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	108
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	109 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	110 // Statics.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	111
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	112 // Has the current batch of tests actually terminated? This flag is
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	113 // checked by the various test handlers at appropriate intervals, and
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	114 // helps to handle the case where one of the side has terminated early
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	115 // because an error has been detected.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	116 static int current_tests_terminated = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	117
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	118 // The next local thread to be allocated for testing. This variable can also
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	119 // be used to find out how many threads are involved in the current test.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	120 // This counter should always be reset to 0 at the end of every test run.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	121 static int local_thread_count = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	122
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	123 // A similar counter for remote threads.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	124 static int remote_thread_count = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	125
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	126 // A file handle for manipulating the USB device at a low level
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	127 static int usb_master_fd = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	128
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	129 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	130 /{{{ Logging /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	131
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	132 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	133 // The user can provide one or more -V/--verbose arguments to increase
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	134 // the amount of output generated.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	135
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	136 static int verbose = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	137
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	138 #define VERBOSE(_level_, _format_, _args_...) \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	139 do { \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	140 if (verbose >= _level_) { \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	141 printf(_format_, ## _args_); \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	142 } \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	143 } while (0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	144
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	145 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	146 /{{{ Low-level USB access /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	147
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	148 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	149 // Low-level access to a USB device.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	150 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	151 // The various ioctl() calls require a file handle which corresponds to one
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	152 // of the /proc/bus/usb/<abc>/<def> entries. <abc> is a bus number,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	153 // typically 001 or 001, and <def> is a device number on that bus,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	154 // e.g. 003. Figuring out <abc> and <def> requires scanning
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	155 // /proc/bus/usb/devices, which is a somewhat complicated text file.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	156 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	157 // This is all somewhat vulnerable to incompatible changes in the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	158 // Linux kernel, specifically the implementation of the /proc/bus/usb.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	159 // An alternative approach would be to write a new Linux device driver
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	160 // and interact with that, but that approach is vulnerable to any
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	161 // internal kernel API changes affecting USB device drivers.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	162
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	163 // How to access USB devices from userland
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	164 #define USB_ROOT "/proc/bus/usb/"
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	165
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	166 // How to identify the eCos test case
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	167 #define PRODUCT_STRING "Red Hat eCos USB test"
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	168
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	169 // Scan through /proc/bus/usb/devices looking for an entry that
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	170 // matches what we are after, specifically a line
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	171 // S: Product=Red Hat eCos USB testcase
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	172 // The required information can then be obtained from the previous
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	173 // line:
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	174 // T: Bus=<abc> ... Dev#= <def> ...
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	175 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	176 // Of course the T: line is going to come first, so it is necessary
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	177 // to keep track of the current bus and device numbers.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	178 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	179 // Note: this code is duplicated in usbchmod.c. Any changes here
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	180 // should be propagated. For now the routine is too small to warrant
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	181 // a separate source file.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	182
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	183 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	184 usb_scan_devices(int* bus, int* dev)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	185 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	186 FILE* devs_file;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	187 int current_bus = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	188 int current_dev = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	189 int ch;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	190
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	191 *bus = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	192 *dev = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	193
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	194 VERBOSE(1, "Searching " USB_ROOT "devices for the eCos USB test code\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	195
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	196 devs_file = fopen(USB_ROOT "devices", "r");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	197 if (NULL == devs_file) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	198 fprintf(stderr, "usbhost: error, unable to access " USB_ROOT "devices\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	199 return 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	200 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	201 ch = getc(devs_file);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	202 while (EOF != ch) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	203 if ('T' == ch) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	204 if (2 !=fscanf(devs_file, ": Bus=%d %*[^D\n]Dev#=%d", &current_bus, &current_dev)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	205 current_bus = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	206 current_dev = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	207 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	208 } else if ('S' == ch) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	209 int start = 0, end = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	210 if (EOF != fscanf(devs_file, ": Product=%n" PRODUCT_STRING "%n", &start, &end)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	211 if (start < end) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	212 *bus = current_bus;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	213 *dev = current_dev;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	214 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	215 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	216 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	217 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	218 // Move to the end of the current line.
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	219 while ((EOF != ch) && ('\n' != ch)) {
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	220 ch = getc(devs_file);
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	221 }
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	222 if (EOF != ch) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	223 ch = getc(devs_file);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	224 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	225 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	226
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	227 fclose(devs_file);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	228 if ((-1 != bus) && (-1 != dev)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	229 VERBOSE(1, "Found eCos USB test code on bus %d, device %d\n", bus, dev);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	230 return 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	231 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	232 fprintf(stderr, "usbhost: error, failed to find a USB device \"" PRODUCT_STRING "\"\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	233 return 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	234 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	235
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	236 // Actually open the USB device, allowing subsequent ioctl() operations.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	237 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	238 // Typically /proc/bus/usb/... will not allow ordinary applications
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	239 // to perform ioctl()'s. Instead root privileges are required. To work
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	240 // around this there is a little utility usbchmod, installed suid,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	241 // which can be used to get access to the raw device.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	242 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	243 usb_open_device(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	244 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	245 char devname[_POSIX_PATH_MAX];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	246 static int bus = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	247 static int dev = -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	248 int result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	249
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	250 if ((-1 == bus) \|\| (-1 == dev)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	251 if (!usb_scan_devices(&bus, &dev)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	252 return -1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	253 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	254 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	255
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	256 if (_POSIX_PATH_MAX == snprintf(devname, _POSIX_PATH_MAX, USB_ROOT "%03d/%03d", bus, dev)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	257 fprintf(stderr, "usbhost: internal error, buffer overflow\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	258 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	259 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	260
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	261 VERBOSE(1, "Attempting to access USB target via %s\n", devname);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	262
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	263 result = open(devname, O_RDWR);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	264 if (-1 == result) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	265 // Check for access right problems. If so, try to work around them
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	266 // by invoking usbchmod. Always look for this in the install tree,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	267 // since it is only that version which is likely to have been
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	268 // chown'ed and chmod'ed to be suid root.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	269 if (EACCES == errno) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	270 char command_name[_POSIX_PATH_MAX];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	271
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	272 VERBOSE(1, "Insufficient access to USB target, running usbchmod\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	273 if (_POSIX_PATH_MAX == snprintf(command_name, _POSIX_PATH_MAX, "%s/usbchmod %d %d", USBAUXDIR, bus, dev)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	274 fprintf(stderr, "usbhost: internal error, buffer overflow\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	275 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	276 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	277 (void) system(command_name);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	278 result = open(devname, O_RDWR);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	279 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	280 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	281 if (-1 == result) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	282 fprintf(stderr, "usbhost: error, failed to open \"%s\", errno %d\n", devname, errno);
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	283 exit(EXIT_FAILURE);
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	284 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	285
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	286 VERBOSE(1, "USB device now accessible via file descriptor %d\n", result);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	287
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	288 // Also perform a set-configuration call, to avoid warnings from
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	289 // the Linux kernel. Target-side testing is always configuration 1
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	290 // because only a single configuration is supported.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	291 (void) ioctl(result, USBDEVFS_SETCONFIGURATION, 1);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	292 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	293 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	294
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	295 // Exchange a control message with the host. The return value should
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	296 // be 0, or a small positive number indicating the actual number of
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	297 // bytes received which may be less than requested.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	298 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	299 // There appear to be problems with some hosts, manifesting itself as
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	300 // an inability to send control messages that involve additional data
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	301 // from host->target. These problems are not yet well-understood. For
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	302 // now the workaround is to send multiple packets, each with up to
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	303 // four bytes encoded in the index and length fields.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	304 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	305 usb_control_message(int fd, int request_type, int request, int value, int index, int length, void* data)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	306 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	307 struct usbdevfs_ctrltransfer transfer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	308 int result = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	309
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	310 VERBOSE(3, "usb_control_message, request %02x, len %d\n", request, length);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	311
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	312 if (length > USBTEST_MAX_CONTROL_DATA) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	313 fprintf(stderr, "usbhost: internal error, control message involves too much data.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	314 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	315 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	316
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	317 #if 1
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	318 // Workaround - send additional data in the index and length fields.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	319 if ((length > 0) && (USB_DIR_OUT == (USB_ENDPOINT_DIR_MASK & request_type))) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	320 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	321 unsigned char* buf = (unsigned char*) data;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	322
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	323 for (i = 0; i < length; i+= 4) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	324 int this_len = length - 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	325 int ioctl_result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	326
2001 07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	327 transfer.bRequestType = USB_TYPE_CLASS \| USB_RECIP_DEVICE;
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	328 if (this_len > 4) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	329 this_len = 4;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	330 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	331 switch (this_len) {
2001 07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	332 case 1: transfer.bRequest = USBTEST_CONTROL_DATA1; break;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	333 case 2: transfer.bRequest = USBTEST_CONTROL_DATA2; break;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	334 case 3: transfer.bRequest = USBTEST_CONTROL_DATA3; break;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	335 case 4: transfer.bRequest = USBTEST_CONTROL_DATA4; break;
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	336 default:
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	337 fprintf(stderr, "usbhost: internal error, confusion about transfer length.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	338 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	339 }
2001 07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	340 transfer.wValue = (buf[i] << 8) \| buf[i+1]; // Possible read beyond end of buffer,
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	341 transfer.wIndex = (buf[i+2] << 8) \| buf[i+3]; // but not worth worrying about.
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	342 transfer.wLength = 0;
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	343 transfer.timeout = 10 * 1000; // ten seconds, the target should always accept data faster than this.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	344 transfer.data = NULL;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	345
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	346 // This is too strict, deciding what to do about errors should be
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	347 // handled by higher-level code. However it will do for now.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	348 ioctl_result = ioctl(fd, USBDEVFS_CONTROL, &transfer);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	349 if (0 != ioctl_result) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	350 fprintf(stderr, "usbhost: error, failed to send control message (data) to target.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	351 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	352 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	353 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	354 // There is no more data to be transferred.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	355 length = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	356 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	357 #endif
2001 07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	358 transfer.bRequestType = request_type;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	359 transfer.bRequest = request;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	360 transfer.wValue = value;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	361 transfer.wIndex = index;
07de10fdb41e Cope with incompatible changes to <linux/usbdevice_fs.h> in some Linux bartv parents: 343 diff changeset	362 transfer.wLength = length;
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	363 transfer.timeout = 10000;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	364 transfer.data = data;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	365
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	366 result = ioctl(fd, USBDEVFS_CONTROL, &transfer);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	367 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	368 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	369
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	370 // A variant of the above which can be called when the target should always respond
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	371 // correctly. This can be used for class control messages.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	372 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	373 usb_reliable_control_message(int fd, int request_type, int request, int value, int index, int length, void* data)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	374 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	375 int result = usb_control_message(fd, request_type, request, value, index, length, data);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	376 if (-1 == result) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	377 fprintf(stderr, "usbhost: error, failed to send control message %02x to target.\n", request);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	378 fprintf(stderr, " : errno %d (%s)\n", errno, strerror(errno));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	379 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	380 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	381 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	382 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	383
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	384
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	385 // Either send or receive a single bulk message. The top bit of the endpoint
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	386 // number indicates the direction.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	387 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	388 usb_bulk_message(int fd, int endpoint, unsigned char* buffer, int length)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	389 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	390 struct usbdevfs_bulktransfer transfer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	391 int result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	392
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	393 transfer.ep = endpoint;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	394 transfer.len = length;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	395 transfer.timeout = 60 * 60 * 1000;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	396 // An hour. These operations should not time out because that
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	397 // leaves the system in a confused state. Instead there is
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	398 // higher-level recovery code that should ensure the operation
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	399 // really does complete, and the return value here is used
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	400 // by the calling code to determine whether the operation
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	401 // was successful or whether there was an error and the recovery
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	402 // code was invoked.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	403 transfer.data = buffer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	404 errno = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	405 result = ioctl(fd, USBDEVFS_BULK, &transfer);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	406 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	407 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	408
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	409
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	410 // Synchronise with the target. This can be used after the host has sent a request that
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	411 // may take a bit of time, e.g. it may involve waking up a thread. The host will send
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	412 // synch requests at regular intervals, until the target is ready.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	413 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	414 // The limit argument can be used to avoid locking up. -1 means loop forever, otherwise
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	415 // it means that many iterations of 100ms apiece.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	416 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	417 usb_sync(int fd, int limit)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	418 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	419 unsigned char buf[1];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	420 struct timespec delay;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	421 int loops = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	422 int result = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	423
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	424 VERBOSE(2, "Synchronizing with target\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	425
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	426 while (1) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	427 buf[0] = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	428 usb_reliable_control_message(fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN, USBTEST_SYNCH, 0, 0, 1, buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	429 if (buf[0]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	430 result = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	431 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	432 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	433 if ((-1 != limit) && (++loops > limit)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	434 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	435 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	436 VERBOSE(3, "Not yet synchronized, sleeping\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	437 delay.tv_sec = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	438 delay.tv_nsec = 100000000; // 100 ms
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	439 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	440 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	441 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	442 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	443 VERBOSE(2, "%s\n", result ? "Synchronized" : "Not synchronized");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	444 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	445 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	446
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	447 // Abort the target. Things seem to be completely messed up and there is no easy
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	448 // way to restore sanity to both target and host.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	449 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	450 usb_abort(int fd)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	451 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	452 VERBOSE(2, "Target-side abort operation invoked\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	453 usb_reliable_control_message(fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_ABORT, 0, 0, 0, (void*)0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	454 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	455
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	456 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	457 /{{{ Initialise endpoints /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	458
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	459 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	460 // On power-up some endpoints may not be in a sensible state. For example,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	461 // with the SA11x0 the hardware may start accepting bulk OUT transfers
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	462 // before the target-side software has started a receive operation,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	463 // so if the host sends a bulk packet before the target is ready then
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	464 // things get messy. This is especially troublesome if the target-side
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	465 // attempts any diagnostic output because of verbosity.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	466 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	467 // This code loops through the various endpoints and makes sure that
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	468 // they are all in a reasonable state, before any real tests get run
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	469 // That means known hardware flaws do not show up as test failures,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	470 // but of course they are still documented and application software
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	471 // will have to do the right thing.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	472
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	473 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	474 usb_initialise_control_endpoint(int min_size, int max_size)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	475 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	476 // At this time there are no known problems on any hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	477 // that would need to be addressed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	478 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	479
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	480 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	481 usb_initialise_isochronous_in_endpoint(int number, int min_size, int max_size)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	482 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	483 // At this time there are no known problems on any hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	484 // that would need to be addressed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	485 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	486
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	487 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	488 usb_initialise_isochronous_out_endpoint(int number, int min_size, int max_size)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	489 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	490 // At this time there are no known problems on any hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	491 // that would need to be addressed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	492 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	493
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	494 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	495 usb_initialise_bulk_in_endpoint(int number, int min_size, int max_size, int padding)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	496 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	497 // At this time there are no known problems on any hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	498 // that would need to be addressed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	499 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	500
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	501 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	502 usb_initialise_bulk_out_endpoint(int number, int min_size, int max_size)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	503 {
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	504 unsigned char buf[1];
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	505
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	506 // On the SA1110 the hardware comes up with a bogus default value,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	507 // causing the hardware to accept packets before the software has
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	508 // set up DMA or in any way prepared for incoming data. This is
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	509 // a problem. It is worked around by making the target receive
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	510 // a single packet, sending that packet, and then performing a
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	511 // sync.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	512 VERBOSE(2, "Performing bulk OUT initialization on endpoint %d\n", number);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	513
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	514 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	515 USBTEST_INIT_BULK_OUT, number, 0, 0, (void*) 0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	516 usb_bulk_message(usb_master_fd, number, buf, 1);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	517 usb_sync(usb_master_fd, 10);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	518 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	519
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	520 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	521 usb_initialise_interrupt_in_endpoint(int number, int min_size, int max_size)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	522 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	523 // At this time there are no known problems on any hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	524 // that would need to be addressed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	525 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	526
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	527 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	528 usb_initialise_interrupt_out_endpoint(int number, int min_size, int max_size)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	529 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	530 // At this time there are no known problems on any hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	531 // that would need to be addressed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	532 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	533
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	534 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	535 /{{{ Host/target common code /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	536
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	537 #define HOST
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	538 #include "../tests/common.c"
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	539
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	540 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	541 /{{{ The test cases themselves /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	542
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	543 /{{{ UsbTest definition /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	544
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	545 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	546 // All the data associated with a single test.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	547
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	548 typedef struct UsbTest {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	549
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	550 // A "unique" identifier to make verbose output easier to understand.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	551 int id;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	552 // Which file descriptor should be used to access USB.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	553 int fd;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	554
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	555 // Which test should be run.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	556 usbtest which_test;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	557
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	558 // Test-specific details.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	559 union {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	560 UsbTest_Bulk bulk;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	561 UsbTest_ControlIn control_in;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	562 } test_params;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	563
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	564 // How to recover from any problems. Specifically, what kind of message
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	565 // could the target send or receive that would unlock the thread on this
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	566 // side.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	567 UsbTest_Recovery recovery;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	568
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	569 int result_pass;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	570 char result_message[USBTEST_MAX_MESSAGE];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	571 unsigned char buffer[USBTEST_MAX_BULK_DATA + USBTEST_MAX_BULK_DATA_EXTRA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	572 } UsbTest;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	573
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	574 // Reset the information in a given test. This is used by the pool allocation
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	575 // code. The data union is left alone, filling in the appropriate union
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	576 // member is left to other code.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	577 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	578 reset_usbtest(UsbTest* test)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	579 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	580 static int next_id = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	581 test->id = next_id++;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	582 test->which_test = usbtest_invalid;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	583 usbtest_recovery_reset(&(test->recovery));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	584 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	585 test->result_message[0] = '\0';
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	586 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	587
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	588 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	589 /{{{ bulk OUT /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	590
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	591 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	592 run_test_bulk_out(UsbTest* test)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	593 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	594 unsigned char* buf = test->buffer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	595 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	596
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	597 VERBOSE(1, "Starting test %d, bulk OUT on endpoint %d\n", test->id, test->test_params.bulk.endpoint);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	598
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	599 for (i = 0; i < test->test_params.bulk.number_packets; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	600 int transferred;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	601 int packet_size = test->test_params.bulk.tx_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	602
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	603 test->recovery.endpoint = test->test_params.bulk.endpoint;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	604 test->recovery.protocol = USB_ENDPOINT_XFER_BULK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	605 test->recovery.size = packet_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	606
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	607 usbtest_fill_buffer(&(test->test_params.bulk.data), buf, packet_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	608 if (verbose < 3) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	609 VERBOSE(2, "Bulk OUT test %d: iteration %d, packet size %d\n", test->id, i, packet_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	610 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	611 // Output the first 32 bytes of data as well.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	612 char msg[256];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	613 int index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	614 int j;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	615 index = snprintf(msg, 255, "Bulk OUT test %d: iteration %d, packet size %d\n Data %s:",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	616 test->id, i, packet_size,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	617 (usbtestdata_none == test->test_params.bulk.data.format) ? "(uninitialized)" : "");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	618
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	619 for (j = 0; ((j + 3) < packet_size) && (j < 32); j+= 4) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	620 index += snprintf(msg+index, 255-index, " %02x%02x%02x%02x",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	621 buf[j], buf[j+1], buf[j+2], buf[j+3]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	622 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	623 if (j < 32) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	624 index += snprintf(msg+index, 255-index, " ");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	625 for ( ; j < packet_size; j++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	626 index += snprintf(msg+index, 255-index, "%02x", buf[j]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	627 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	628
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	629 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	630 VERBOSE(3, "%s\n", msg);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	631 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	632
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	633 transferred = usb_bulk_message(test->fd, test->test_params.bulk.endpoint, buf, packet_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	634
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	635 // Has this test run been aborted for some reason?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	636 if (current_tests_terminated) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	637 VERBOSE(2, "Bulk OUT test %d: iteration %d, termination detected\n", test->id, i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	638 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	639 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	640 "Host, bulk OUT transfer on endpoint %d: aborted after %d iterations\n",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	641 test->test_params.bulk.endpoint & USB_ENDPOINT_NUMBER_MASK, i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	642 return;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	643 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	644
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	645 // If an error occurred, abort this run.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	646 if (-1 == transferred) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	647 char errno_buf[USBTEST_MAX_MESSAGE];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	648 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	649 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	650 "Host, bulk OUT transfer on endpoint %d : host ioctl() system call failed\n errno %d (%s)",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	651 test->test_params.bulk.endpoint & USB_ENDPOINT_NUMBER_MASK, errno,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	652 strerror_r(errno, errno_buf, USBTEST_MAX_MESSAGE));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	653 VERBOSE(2, "Bulk OUT test %d: iteration %d, error:\n %s\n", test->id, i, test->result_message);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	654 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	655 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	656
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	657 if (0 != test->test_params.bulk.tx_delay) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	658 struct timespec delay;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	659
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	660 VERBOSE(2, "Bulk OUT test %d: iteration %d, sleeping for %d nanoseconds\n", test->id, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	661 i, test->test_params.bulk.tx_delay);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	662 // Note that nanosleep() can return early due to incoming signals,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	663 // with the unelapsed time returned in a second argument. This
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	664 // allows for a retry loop. In practice this does not seem
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	665 // worthwhile, the delays are approximate anyway.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	666 delay.tv_sec = test->test_params.bulk.tx_delay / 1000000000;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	667 delay.tv_nsec = test->test_params.bulk.tx_delay % 1000000000;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	668 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	669 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	670
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	671 // Now move on to the next transfer
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	672 USBTEST_BULK_NEXT(test->test_params.bulk);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	673 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	674
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	675 // If all the packets have been transferred this test has passed.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	676 if (i >= test->test_params.bulk.number_packets) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	677 test->result_pass = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	678 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	679
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	680 VERBOSE(1, "Test %d bulk OUT on endpoint %d, result %d\n", test->id, test->test_params.bulk.endpoint, test->result_pass);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	681 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	682
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	683 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	684 /{{{ bulk IN /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	685
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	686 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	687 run_test_bulk_in(UsbTest* test)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	688 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	689 unsigned char* buf = test->buffer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	690 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	691
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	692 VERBOSE(1, "Starting test %d bulk IN on endpoint %d\n", test->id, test->test_params.bulk.endpoint);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	693
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	694 for (i = 0; i < test->test_params.bulk.number_packets; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	695 int transferred;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	696 int tx_size = test->test_params.bulk.tx_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	697 int rx_size = test->test_params.bulk.rx_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	698 int size_plus_padding;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	699
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	700 VERBOSE(2, "Bulk IN test %d: iteration %d, rx size %d, tx size %d\n", test->id, i, rx_size, tx_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	701
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	702 if (rx_size < tx_size) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	703 rx_size = tx_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	704 VERBOSE(2, "Bulk IN test %d: iteration %d, packet size reset to %d to match tx size\n",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	705 test->id, i, rx_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	706 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	707 test->recovery.endpoint = test->test_params.bulk.endpoint;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	708 test->recovery.protocol = USB_ENDPOINT_XFER_BULK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	709 test->recovery.size = rx_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	710
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	711 // Make sure there is no old data lying around
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	712 if (usbtestdata_none != test->test_params.bulk.data.format) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	713 memset(buf, 0, rx_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	714 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	715
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	716 // And do the actual transfer.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	717 size_plus_padding = rx_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	718 if (size_plus_padding < (tx_size + test->test_params.bulk.rx_padding)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	719 size_plus_padding += test->test_params.bulk.rx_padding;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	720 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	721 do {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	722 transferred = usb_bulk_message(test->fd, test->test_params.bulk.endpoint, buf, size_plus_padding);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	723 } while (0 == transferred);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	724
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	725 // Has this test run been aborted for some reason?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	726 if (current_tests_terminated) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	727 VERBOSE(2, "Bulk IN test %d: iteration %d, termination detected\n", test->id, i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	728 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	729 "Host, bulk IN transfer on endpoint %d: aborted after %d iterations\n",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	730 test->test_params.bulk.endpoint & USB_ENDPOINT_NUMBER_MASK, i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	731 return;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	732 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	733
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	734 // If an error occurred, abort this run.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	735 if (-1 == transferred) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	736 char errno_buf[USBTEST_MAX_MESSAGE];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	737 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	738 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	739 "Host, bulk IN transfer on endpoint %d : host ioctl() system call failed\n errno %d (%s)",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	740 test->test_params.bulk.endpoint & USB_ENDPOINT_NUMBER_MASK, errno,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	741 strerror_r(errno, errno_buf, USBTEST_MAX_MESSAGE));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	742 VERBOSE(2, "Bulk IN test %d: iteration %d, error:\n %s\n", test->id, i, test->result_message);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	743 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	744 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	745
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	746 // Did the target send the expected amount of data?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	747 if (transferred < tx_size) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	748 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	749 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	750 "Host, bulk IN transfer on endpoint %d : the target only sent %d bytes when %d were expected",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	751 test->test_params.bulk.endpoint & USB_ENDPOINT_NUMBER_MASK, transferred, tx_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	752 VERBOSE(2, "Bulk IN test %d: iteration %d, error:\n %s\n", test->id, i, test->result_message);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	753 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	754 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	755
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	756 if (verbose >= 3) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	757 // Output the first 32 bytes of data
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	758 char msg[256];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	759 int index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	760 int j;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	761 index = snprintf(msg, 255, "Bulk IN test %d: iteration %d, transferred %d\n Data %s:",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	762 test->id, i, transferred,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	763 (usbtestdata_none == test->test_params.bulk.data.format) ? "(uninitialized)" : "");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	764
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	765 for (j = 0; ((j + 3) < transferred) && (j < 32); j+= 4) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	766 index += snprintf(msg+index, 255-index, " %02x%02x%02x%02x",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	767 buf[j], buf[j+1], buf[j+2], buf[j+3]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	768 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	769 if (j < 32) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	770 index += snprintf(msg+index, 255-index, " ");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	771 for ( ; j < transferred; j++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	772 index += snprintf(msg+index, 255-index, "%02x", buf[j]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	773 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	774
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	775 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	776 VERBOSE(3, "%s\n", msg);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	777 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	778
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	779 // Is the data correct?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	780 if (!usbtest_check_buffer(&(test->test_params.bulk.data), buf, tx_size)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	781 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	782 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	783 "Host, bulk IN transfer on endpoint %d : mismatch between received and expected data",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	784 test->test_params.bulk.endpoint & USB_ENDPOINT_NUMBER_MASK);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	785 VERBOSE(2, "Bulk IN test %d: iteration %d, error:\n %s\n", test->id, i, test->result_message);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	786 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	787 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	788
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	789 if (0 != test->test_params.bulk.rx_delay) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	790 struct timespec delay;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	791
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	792 VERBOSE(2, "Bulk IN test %d: iteration %d, sleeping for %d nanoseconds\n", test->id, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	793 i, test->test_params.bulk.tx_delay);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	794 // Note that nanosleep() can return early due to incoming signals,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	795 // with the unelapsed time returned in a second argument. This
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	796 // allows for a retry loop. In practice this does not seem
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	797 // worthwhile, the delays are approximate anyway.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	798 delay.tv_sec = test->test_params.bulk.rx_delay / 1000000000;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	799 delay.tv_nsec = test->test_params.bulk.rx_delay % 1000000000;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	800 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	801 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	802
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	803 USBTEST_BULK_NEXT(test->test_params.bulk);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	804 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	805
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	806
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	807 // If all the packets have been transferred this test has passed.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	808 if (i >= test->test_params.bulk.number_packets) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	809 test->result_pass = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	810 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	811
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	812 VERBOSE(1, "Test %d bulk IN on endpoint %d, result %d\n", test->id, test->test_params.bulk.endpoint, test->result_pass);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	813 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	814
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	815 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	816 /{{{ control IN /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	817
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	818 // Receive appropriate packets via the control endpoint. This is somewhat
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	819 // different from bulk transfers. It is implemented using reserved control
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	820 // messages.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	821 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	822 // Note: it is not entirely clear that this test is safe. There will be
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	823 // concurrent control traffic to detect test termination and the like,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	824 // and these control messages may interfere with each other. It is not
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	825 // entirely clear how the Linux kernel handles concurrent control
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	826 // operations.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	827
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	828 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	829 run_test_control_in(UsbTest* test)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	830 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	831 unsigned char* buf = test->buffer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	832 int packet_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	833 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	834
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	835 packet_size = test->test_params.control_in.packet_size_initial;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	836 for (i = 0; i < test->test_params.control_in.number_packets; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	837 int transferred;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	838
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	839 test->recovery.endpoint = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	840 test->recovery.protocol = USB_ENDPOINT_XFER_CONTROL;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	841 test->recovery.size = packet_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	842
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	843 // Make sure there is no old data lying around
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	844 if (usbtestdata_none != test->test_params.control_in.data.format) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	845 memset(buf, 0, packet_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	846 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	847
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	848 // And do the actual transfer.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	849 transferred = usb_control_message(test->fd, USB_TYPE_RESERVED \| USB_RECIP_DEVICE \| USB_DIR_IN, USBTEST_RESERVED_CONTROL_IN,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	850 0, 0, packet_size, buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	851
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	852 // Has this test run been aborted for some reason?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	853 if (current_tests_terminated) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	854 return;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	855 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	856
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	857 // If an error occurred, abort this run.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	858 if (-1 == transferred) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	859 char errno_buf[USBTEST_MAX_MESSAGE];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	860 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	861 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	862 "Host, control IN transfer: host ioctl() system call failed\n errno %d (%s)",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	863 errno, strerror_r(errno, errno_buf, USBTEST_MAX_MESSAGE));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	864 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	865 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	866
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	867 // Did the target send the expected amount of data?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	868 if (transferred < packet_size) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	869 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	870 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	871 "Host, control IN transfer: the target only sent %d bytes when %d were expected",
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	872 transferred, packet_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	873 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	874 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	875
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	876 // Is the data correct?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	877 if (!usbtest_check_buffer(&(test->test_params.control_in.data), buf, packet_size)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	878 test->result_pass = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	879 snprintf(test->result_message, USBTEST_MAX_MESSAGE,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	880 "Host, control IN transfer: mismatch between received and expected data");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	881 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	882 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	883
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	884 USBTEST_CONTROL_NEXT_PACKET_SIZE(packet_size, test->test_params.control_in);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	885 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	886
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	887 // If all the packets have been transferred this test has passed.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	888 if (i >= test->test_params.control_in.number_packets) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	889 test->result_pass = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	890 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	891 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	892
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	893 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	894
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	895 // FIXME: add more tests
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	896
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	897 /{{{ run_test() /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	898
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	899 // This utility is invoked from a thread in the thread pool whenever there is
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	900 // work to be done. It simply dispatches to the appropriate handler.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	901 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	902 run_test(UsbTest* test)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	903 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	904 switch (test->which_test) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	905 case usbtest_bulk_out: run_test_bulk_out(test); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	906 case usbtest_bulk_in: run_test_bulk_in(test); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	907 case usbtest_control_in: run_test_control_in(test); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	908 default:
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	909 fprintf(stderr, "usbhost: internal error, attempt to execute an unknown test.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	910 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	911 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	912 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	913
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	914 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	915
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	916 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	917 /{{{ The thread pool /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	918
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	919 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	920 // A pool of threads and buffers which do the real work. The number of possible
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	921 // concurrent tests is defined in protocol.h. Each one requires a separate
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	922 // thread, transfer buffer, semaphore, and some state information.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	923 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	924 // Although the application is multi-threaded, in practice there is little
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	925 // need for synchronization. Tests will only be started while the pool threads
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	926 // are idle. When the pool threads are running the main thread will be waiting
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	927 // for them all to finish, with a bit of polling to detect error conditions.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	928 // The pool threads do not share any data, apart from the file descriptor for
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	929 // the USB device.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	930
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	931 typedef struct PoolEntry {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	932 pthread_t thread;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	933 sem_t wakeup;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	934 int running;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	935 UsbTest test;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	936 } PoolEntry;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	937
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	938 static PoolEntry pool[USBTEST_MAX_CONCURRENT_TESTS];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	939
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	940 // This is the entry point for every thread in the pool. It just loops forever,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	941 // waiting until it is supposed to run a test. These threads never actually
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	942 // exit, instead there should be a call to exit() somewhere.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	943 static void*
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	944 pool_function(void* arg)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	945 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	946 PoolEntry* pool_entry = (PoolEntry*) arg;
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	947 int ret;
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	948
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	949 for ( ; ; ) {
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	950 do {
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	951 ret = sem_wait(&(pool_entry->wakeup));
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	952 if (ret != 0 && errno != EINTR) {
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	953 perror("sem_wait");
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	954 exit(1);
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	955 }
33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	956 } while (ret != 0);
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	957 run_test(&(pool_entry->test));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	958 pool_entry->running = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	959 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	960
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	961 return NULL;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	962 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	963
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	964 // Initialize all threads in the pool.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	965 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	966 pool_initialize(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	967 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	968 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	969 for (i = 0; i < USBTEST_MAX_CONCURRENT_TESTS; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	970 pool[i].running = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	971 pool[i].test.fd = dup(usb_master_fd);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	972 if (0 != sem_init(&(pool[i].wakeup), 0, 0)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	973 fprintf(stderr, "usbhost: internal error, failed to initialize all semaphores.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	974 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	975 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	976 if (0 != pthread_create(&(pool[i].thread), NULL, &pool_function, (void*) &(pool[i]))) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	977 fprintf(stderr, "usbhost: internal error, failed to start all threads.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	978 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	979 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	980 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	981 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	982
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	983 // Allocate a single entry in the thread pool.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	984 static UsbTest*
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	985 pool_allocate(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	986 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	987 UsbTest* result = (UsbTest*) 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	988
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	989 if (local_thread_count == USBTEST_MAX_CONCURRENT_TESTS) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	990 fprintf(stderr, "usbhost: internal error, thread resource exhausted.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	991 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	992 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	993
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	994 result = &(pool[local_thread_count].test);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	995 local_thread_count++;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	996 reset_usbtest(result);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	997 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	998 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	999
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1000 // Start all the threads that are supposed to be running tests.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1001 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1002 pool_start(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1003 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1004 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1005 for (i = 0; i < local_thread_count; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1006 pool[i].running = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1007 sem_post(&(pool[i].wakeup));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1008 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1009 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1010
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1011 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1012 /{{{ Tcl routines /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1013
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1014 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1015 // Tcl routines to provide access to the USB device from inside Tcl
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1016 // scripts, plus some general utilities. These routines deal mostly
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1017 // with preparing a test run. The actual work is done in C: the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1018 // ioctl() operations are not readily accessible from Tcl, and
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1019 // operations like filling in buffers and calculating checksums are
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1020 // cpu-intensive.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1021
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1022 /{{{ pass/fail/abort /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1023
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1024 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1025 // Some simple routines accessible from Tcl to get the target to report pass/fail or
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1026 // to make the target abort.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1027
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1028 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1029 tcl_target_pass(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1030 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1031 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1032 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1033 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1034 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1035 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::target_pass <message>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1036 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1037 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1038 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_PASS, 0, 0, strlen(argv[1]) + 1, argv[1]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1039 usb_sync(usb_master_fd, -1);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1040 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1041 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1042
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1043 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1044 tcl_target_fail(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1045 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1046 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1047 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1048 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1049 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1050 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::target_fail <message>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1051 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1052 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1053 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_FAIL, 0, 0, strlen(argv[1]) + 1, argv[1]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1054 usb_sync(usb_master_fd, -1);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1055 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1056 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1057
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1058 // The next three routines cause the target to exit, so a usb_sync() is inappropriate.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1059 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1060 tcl_target_pass_exit(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1061 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1062 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1063 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1064 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1065 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1066 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::target_pass_exit <message>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1067 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1068 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1069 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_PASS_EXIT, 0, 0,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1070 strlen(argv[1]) + 1, argv[1]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1071 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1072 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1073
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1074
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1075 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1076 tcl_target_fail_exit(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1077 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1078 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1079 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1080 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1081 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1082 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::target_fail_exit <message>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1083 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1084 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1085 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_FAIL_EXIT, 0, 0,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1086 strlen(argv[1]) + 1, argv[1]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1087 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1088 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1089
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1090 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1091 tcl_target_abort(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1092 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1093 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1094 char** argv __attribute__ ((unused)) )
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1095 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1096 if (1 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1097 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::target_abort\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1098 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1099 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1100 usb_abort(usb_master_fd);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1101 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1102 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1103
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1104 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1105 /{{{ start bulk test /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1106
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1107 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1108 // Start a bulk test. The real Tcl interface to this functionality is
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1109 // implemented in Tcl: it takes care of figuring out sensible default
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1110 // arguments, validating the data, etc. All that this code does is
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1111 // allocate a thread and fill in the appropriate data, plus request
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1112 // the target-side to do the same thing.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1113
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1114 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1115 tcl_test_bulk(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1116 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1117 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1118 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1119 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1120 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1121 int tmp;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1122 UsbTest* test;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1123 unsigned char request[USBTEST_MAX_CONTROL_DATA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1124 int request_index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1125
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1126 // The data consists of 28 numbers for UsbTest_Bulk itself, and
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1127 // another 10 numbers for the test data definition.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1128 if (39 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1129 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::_test_bulk <message>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1130 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1131 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1132 for (i = 1; i < 39; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1133 int discard;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1134 if (TCL_OK != Tcl_GetInt(interp, argv[i], &discard)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1135 Tcl_SetResult(interp, "invalid argument: all arguments should be numbers", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1136 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1137 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1138 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1139
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1140 test = pool_allocate();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1141 Tcl_GetInt(interp, argv[1], &(test->test_params.bulk.number_packets));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1142 Tcl_GetInt(interp, argv[2], &(test->test_params.bulk.endpoint));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1143 test->which_test = (USB_DIR_IN == (test->test_params.bulk.endpoint & USB_ENDPOINT_DIR_MASK))
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1144 ? usbtest_bulk_in : usbtest_bulk_out;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1145 Tcl_GetInt(interp, argv[ 3], &(test->test_params.bulk.tx_size));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1146 Tcl_GetInt(interp, argv[ 4], &(test->test_params.bulk.tx_size_min));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1147 Tcl_GetInt(interp, argv[ 5], &(test->test_params.bulk.tx_size_max));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1148 Tcl_GetInt(interp, argv[ 6], &(test->test_params.bulk.tx_size_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1149 Tcl_GetInt(interp, argv[ 7], &(test->test_params.bulk.tx_size_divisor));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1150 Tcl_GetInt(interp, argv[ 8], &(test->test_params.bulk.tx_size_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1151 Tcl_GetInt(interp, argv[ 9], &(test->test_params.bulk.rx_size));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1152 Tcl_GetInt(interp, argv[10], &(test->test_params.bulk.rx_size_min));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1153 Tcl_GetInt(interp, argv[11], &(test->test_params.bulk.rx_size_max));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1154 Tcl_GetInt(interp, argv[12], &(test->test_params.bulk.rx_size_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1155 Tcl_GetInt(interp, argv[13], &(test->test_params.bulk.rx_size_divisor));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1156 Tcl_GetInt(interp, argv[14], &(test->test_params.bulk.rx_size_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1157 Tcl_GetInt(interp, argv[15], &(test->test_params.bulk.rx_padding));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1158 Tcl_GetInt(interp, argv[16], &(test->test_params.bulk.tx_delay));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1159 Tcl_GetInt(interp, argv[17], &(test->test_params.bulk.tx_delay_min));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1160 Tcl_GetInt(interp, argv[18], &(test->test_params.bulk.tx_delay_max));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1161 Tcl_GetInt(interp, argv[19], &(test->test_params.bulk.tx_delay_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1162 Tcl_GetInt(interp, argv[20], &(test->test_params.bulk.tx_delay_divisor));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1163 Tcl_GetInt(interp, argv[21], &(test->test_params.bulk.tx_delay_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1164 Tcl_GetInt(interp, argv[22], &(test->test_params.bulk.rx_delay));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1165 Tcl_GetInt(interp, argv[23], &(test->test_params.bulk.rx_delay_min));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1166 Tcl_GetInt(interp, argv[24], &(test->test_params.bulk.rx_delay_max));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1167 Tcl_GetInt(interp, argv[25], &(test->test_params.bulk.rx_delay_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1168 Tcl_GetInt(interp, argv[26], &(test->test_params.bulk.rx_delay_divisor));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1169 Tcl_GetInt(interp, argv[27], &(test->test_params.bulk.rx_delay_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1170 Tcl_GetInt(interp, argv[28], &tmp);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1171 test->test_params.bulk.io_mechanism = (usb_io_mechanism) tmp;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1172 Tcl_GetInt(interp, argv[29], &tmp);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1173 test->test_params.bulk.data.format = (usbtestdata) tmp;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1174 Tcl_GetInt(interp, argv[30], &(test->test_params.bulk.data.seed));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1175 Tcl_GetInt(interp, argv[31], &(test->test_params.bulk.data.multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1176 Tcl_GetInt(interp, argv[32], &(test->test_params.bulk.data.increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1177 Tcl_GetInt(interp, argv[33], &(test->test_params.bulk.data.transfer_seed_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1178 Tcl_GetInt(interp, argv[34], &(test->test_params.bulk.data.transfer_seed_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1179 Tcl_GetInt(interp, argv[35], &(test->test_params.bulk.data.transfer_multiplier_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1180 Tcl_GetInt(interp, argv[36], &(test->test_params.bulk.data.transfer_multiplier_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1181 Tcl_GetInt(interp, argv[37], &(test->test_params.bulk.data.transfer_increment_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1182 Tcl_GetInt(interp, argv[38], &(test->test_params.bulk.data.transfer_increment_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1183
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1184 VERBOSE(3, "Preparing USB bulk test on endpoint %d, direction %s, for %d packets\n", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1185 test->test_params.bulk.endpoint, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1186 (usbtest_bulk_in == test->which_test) ? "IN" : "OUT", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1187 test->test_params.bulk.number_packets);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1188 VERBOSE(3, " I/O mechanism is %s\n", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1189 (usb_io_mechanism_usb == test->test_params.bulk.io_mechanism) ? "low-level USB" : \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1190 (usb_io_mechanism_dev == test->test_params.bulk.io_mechanism) ? "devtab" : "<invalid>");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1191 VERBOSE(3, " Data format %s, data1 %d, data* %d, data+ %d, data1* %d, data1+ %d, data** %d, data+ %d, data+ %d, data++ %d\n",\
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1192 (usbtestdata_none == test->test_params.bulk.data.format) ? "none" : \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1193 (usbtestdata_bytefill == test->test_params.bulk.data.format) ? "bytefill" : \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1194 (usbtestdata_wordfill == test->test_params.bulk.data.format) ? "wordfill" : \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1195 (usbtestdata_byteseq == test->test_params.bulk.data.format) ? "byteseq" : \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1196 (usbtestdata_wordseq == test->test_params.bulk.data.format) ? "wordseq" : "<invalid>", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1197 test->test_params.bulk.data.seed, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1198 test->test_params.bulk.data.multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1199 test->test_params.bulk.data.increment, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1200 test->test_params.bulk.data.transfer_seed_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1201 test->test_params.bulk.data.transfer_seed_increment, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1202 test->test_params.bulk.data.transfer_multiplier_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1203 test->test_params.bulk.data.transfer_multiplier_increment, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1204 test->test_params.bulk.data.transfer_increment_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1205 test->test_params.bulk.data.transfer_increment_increment);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1206 VERBOSE(3, " txsize1 %d, txsize>= %d, txsize<= %d, txsize* %d, txsize/ %d, txsize+ %d\n", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1207 test->test_params.bulk.tx_size, test->test_params.bulk.tx_size_min, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1208 test->test_params.bulk.tx_size_max, test->test_params.bulk.tx_size_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1209 test->test_params.bulk.tx_size_divisor, test->test_params.bulk.tx_size_increment);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1210 VERBOSE(3, " rxsize1 %d, rxsize>= %d, rxsize<= %d, rxsize* %d, rxsize/ %d, rxsize+ %d\n", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1211 test->test_params.bulk.rx_size, test->test_params.bulk.rx_size_min, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1212 test->test_params.bulk.rx_size_max, test->test_params.bulk.rx_size_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1213 test->test_params.bulk.rx_size_divisor, test->test_params.bulk.rx_size_increment);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1214 VERBOSE(3, " txdelay1 %d, txdelay>= %d, txdelay<= %d, txdelay* %d, txdelay/ %d, txdelay+ %d\n", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1215 test->test_params.bulk.tx_delay, test->test_params.bulk.tx_delay_min, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1216 test->test_params.bulk.tx_delay_max, test->test_params.bulk.tx_delay_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1217 test->test_params.bulk.tx_delay_divisor, test->test_params.bulk.tx_delay_increment);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1218 VERBOSE(3, " rxdelay1 %d, rxdelay>= %d, rxdelay<= %d, rxdelay* %d, rxdelay/ %d, rxdelay+ %d\n", \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1219 test->test_params.bulk.rx_delay, test->test_params.bulk.rx_delay_min, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1220 test->test_params.bulk.rx_delay_max, test->test_params.bulk.rx_delay_multiplier, \
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1221 test->test_params.bulk.rx_delay_divisor, test->test_params.bulk.rx_delay_increment);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1222
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1223
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1224 // That is all the data converted from Tcl to C, and a local thread is set up to handle this
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1225 // request. Also set up a thread on the target.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1226 request_index = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1227 pack_usbtest_bulk(&(test->test_params.bulk), request, &request_index);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1228 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_TEST_BULK, 0, 0, request_index, request);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1229 remote_thread_count++;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1230
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1231 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1232 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1233
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1234 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1235 /{{{ start control-in test /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1236
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1237 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1238 // Start a control-in test. The real Tcl interface to this
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1239 // functionality is implemented in Tcl: it takes care of figuring out
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1240 // sensible default arguments, validating the data, etc. All that this
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1241 // code does is allocate a thread and fill in the appropriate data,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1242 // plus request the target-side to do the same thing.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1243
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1244 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1245 tcl_test_control_in(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1246 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1247 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1248 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1249 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1250 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1251 int tmp;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1252 UsbTest* test;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1253 unsigned char request[USBTEST_MAX_CONTROL_DATA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1254 int request_index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1255
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1256 // The data consists of 6 numbers for UsbTest_ControlIn itself, and
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1257 // another 10 numbers for the test data definition.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1258 if (17 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1259 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::_test_control_in <message>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1260 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1261 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1262 for (i = 1; i < 17; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1263 int discard;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1264 if (TCL_OK != Tcl_GetInt(interp, argv[i], &discard)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1265 Tcl_SetResult(interp, "invalid argument: all arguments should be numbers", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1266 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1267 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1268 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1269
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1270 test = pool_allocate();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1271 test->which_test = usbtest_control_in;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1272 Tcl_GetInt(interp, argv[1], &(test->test_params.control_in.number_packets));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1273 Tcl_GetInt(interp, argv[2], &(test->test_params.control_in.packet_size_initial));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1274 Tcl_GetInt(interp, argv[3], &(test->test_params.control_in.packet_size_min));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1275 Tcl_GetInt(interp, argv[4], &(test->test_params.control_in.packet_size_max));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1276 Tcl_GetInt(interp, argv[5], &(test->test_params.control_in.packet_size_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1277 Tcl_GetInt(interp, argv[6], &(test->test_params.control_in.packet_size_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1278 Tcl_GetInt(interp, argv[7], &tmp);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1279 test->test_params.bulk.data.format = (usbtestdata) tmp;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1280 Tcl_GetInt(interp, argv[ 8], &(test->test_params.control_in.data.seed));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1281 Tcl_GetInt(interp, argv[ 9], &(test->test_params.control_in.data.multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1282 Tcl_GetInt(interp, argv[10], &(test->test_params.control_in.data.increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1283 Tcl_GetInt(interp, argv[11], &(test->test_params.control_in.data.transfer_seed_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1284 Tcl_GetInt(interp, argv[12], &(test->test_params.control_in.data.transfer_seed_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1285 Tcl_GetInt(interp, argv[13], &(test->test_params.control_in.data.transfer_multiplier_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1286 Tcl_GetInt(interp, argv[14], &(test->test_params.control_in.data.transfer_multiplier_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1287 Tcl_GetInt(interp, argv[15], &(test->test_params.control_in.data.transfer_increment_multiplier));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1288 Tcl_GetInt(interp, argv[16], &(test->test_params.control_in.data.transfer_increment_increment));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1289
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1290 // That is all the data converted from Tcl to C, and a local thread is set up to handle this
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1291 // request. Also set up a thread on the target.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1292 request_index = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1293 pack_usbtest_control_in(&(test->test_params.control_in), request, &request_index);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1294 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_TEST_CONTROL_IN, 0, 0,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1295 request_index, request);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1296 remote_thread_count++;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1297
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1298 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1299 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1300
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1301 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1302 /{{{ Cancel the current batch of tests /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1303
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1304 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1305 tcl_cancel(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1306 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1307 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1308 char** argv __attribute__ ((unused)) )
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1309 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1310 if (1 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1311 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::cancel\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1312 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1313 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1314
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1315 // Send the request on to the target.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1316 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_CANCEL, 0, 0, 0, (void*)0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1317
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1318 // Now cancel all the local tests. This can be done by resetting the counter
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1319 // of allocated threads: no actual work will have been started yet.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1320 local_thread_count = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1321
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1322 // And synchronise with the target
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1323 if (!usb_sync(usb_master_fd, 30)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1324 fprintf(stderr, "usbhost: error, target has failed to process test cancel request.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1325 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1326
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1327 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1328 remote_thread_count = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1329
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1330 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1331 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1332
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1333 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1334 /{{{ Run a batch of tests /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1335
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1336 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1337 // This code does an awful lot of the hard work. Start with various utilities.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1338
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1339 // Has the current batch finished as far as the local threads are concerned?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1340 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1341 local_batch_finished(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1342 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1343 int result = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1344 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1345
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1346 for (i = 0; i < local_thread_count; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1347 if (pool[i].running) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1348 result = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1349 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1350 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1351 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1352 return result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1353 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1354
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1355 // Has the current batch finished as far as remote threads are concerned?
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1356 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1357 remote_batch_finished(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1358 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1359 char buf[1];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1360 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN, USBTEST_FINISHED,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1361 0, 0, 1, (void*) buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1362 return buf[0];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1363 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1364
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1365 // Perform recovery for a thread on the target. This involves asking the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1366 // target for recovery information, then performing an appropriate
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1367 // action. If no data is returned then no recovery is needed for this thread.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1368 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1369 recover_remote(int index)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1370 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1371 unsigned char buffer[USBTEST_MAX_CONTROL_DATA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1372 int buffer_index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1373 UsbTest_Recovery recovery;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1374 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1375
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1376 if (0 != usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1377 USBTEST_GET_RECOVERY, 0, index, 12, buffer)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1378 // There is work to be done
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1379 buffer_index = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1380 unpack_usbtest_recovery(&recovery, buffer, &buffer_index);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1381
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1382 // We have an endpoint, a protocol, and a size.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1383 if (0 == recovery.endpoint) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1384 // The target just needs a dummy reserved control message
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1385 usb_reliable_control_message(usb_master_fd, USB_TYPE_RESERVED \| USB_RECIP_DEVICE, USBTEST_RESERVED_CONTROL_IN,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1386 0, 0, 0, (void*) 0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1387 } else if (USB_ENDPOINT_XFER_BULK == recovery.protocol) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1388 // Either we need to send some data to the target, or we need to accept some data.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1389 static unsigned char recovery_buffer[USBTEST_MAX_BULK_DATA + USBTEST_MAX_BULK_DATA_EXTRA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1390
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1391 struct usbdevfs_bulktransfer transfer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1392 transfer.ep = recovery.endpoint;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1393 transfer.timeout = 2000; // Two seconds. Should be plenty, even for a large bulk transfer.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1394 transfer.data = recovery_buffer;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1395 if (USB_DIR_IN == (recovery.endpoint & USB_ENDPOINT_DIR_MASK)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1396 transfer.len = recovery.size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1397 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1398 transfer.len = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1399 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1400 errno = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1401 i = ioctl(usb_master_fd, USBDEVFS_BULK, &transfer);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1402 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1403
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1404 // There is no recovery support yet for other protocols.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1405 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1406 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1407
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1408 // Perform recovery for a local thread. This involves extracting the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1409 // recovery information from the local thread and asking the target
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1410 // to take appropriate action.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1411 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1412 recover_local(int index)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1413 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1414 unsigned char buffer[USBTEST_MAX_CONTROL_DATA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1415 int buffer_index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1416
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1417 if (pool[index].running) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1418 buffer_index = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1419 pack_usbtest_recovery(&(pool[index].test.recovery), buffer, &buffer_index);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1420 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_PERFORM_RECOVERY,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1421 0, 0, buffer_index, (void*) buffer);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1422 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1423 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1424
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1425 // All done, time for a clean-up on both target and host. The latter
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1426 // is achieved simply by resetting the thread pool, which actually
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1427 // just means resetting the counter since all the threads are blocked
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1428 // waiting for the next batch.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1429 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1430 run_done(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1431 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1432 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_BATCH_DONE, 0, 0, 0, (void*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1433 local_thread_count = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1434 remote_thread_count = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1435 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1436
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1437 // The main routine, as invoked from Tcl. This takes a single
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1438 // argument, a timeout in seconds.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1439 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1440 tcl_run(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1441 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1442 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1443 char** argv __attribute__ ((unused)) )
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1444 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1445 struct timespec delay;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1446 int timeout;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1447 time_t start;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1448 time_t now;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1449 int i, j;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1450 unsigned char result_buf[USBTEST_MAX_CONTROL_DATA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1451 int all_ok;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1452
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1453 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1454 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::_run <timeout>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1455 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1456 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1457 if (TCL_OK != Tcl_GetInt(interp, argv[1], &timeout)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1458 Tcl_SetResult(interp, "invalid argument: timeout should be numeric", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1459 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1460 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1461
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1462 VERBOSE(2, "Starting a testrun, timeout %d seconds\n", timeout);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1463
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1464 // Start the tests running on the target. The target USB hardware
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1465 // will not actually do anything except in response to packets
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1466 // from the host, so it is better to start the target before the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1467 // local threads.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1468 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_START, 0, 0, 0, (void*) 0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1469
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1470 // Now the local threads can get going.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1471 current_tests_terminated = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1472 pool_start();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1473
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1474 // Now leave the various testing threads to do their thing until
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1475 // either side believes that the batch has finished, or until the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1476 // timeout expires. Note that if one side decides that the batch
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1477 // has finished but the other disagrees, that in itself indicates
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1478 // a test failure of sorts.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1479 //
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1480 // There is a question of polling frequency. Once a second avoids
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1481 // excessive polling traffic on the USB bus, and should not impose
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1482 // intolerable delays for short-duration tests.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1483 start = time(NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1484 do {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1485 VERBOSE(3, "The tests are running, waiting for termination\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1486 delay.tv_sec = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1487 delay.tv_nsec = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1488 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1489 now = time(NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1490 } while (((start + timeout) > now) && !local_batch_finished() && !remote_batch_finished());
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1491
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1492 VERBOSE(2, "Termination detected, time elapsed %ld\n", (long) now - start);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1493
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1494 // If either side believes that testing is not complete, things
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1495 // get messy. Start by setting the terminated flag. Any tests that
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1496 // are actually still running happily but have not finished within
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1497 // the timeout should detect this and stop.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1498 if (!local_batch_finished() \|\| !remote_batch_finished()) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1499 VERBOSE(2, "Testing is not yet complete, setting TERMINATED flag\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1500 current_tests_terminated = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1501 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_SET_TERMINATED, 0, 0, 0, (void*) 0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1502 // And another delay, to give threads a chance to detect the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1503 // flag's update
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1504 delay.tv_sec = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1505 delay.tv_nsec = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1506 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1507 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1508
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1509 // If there is still are unfinished threads, recovery action
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1510 // is needed. It is not clear whether it is better to unlock
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1511 // the local threads first, or the remote threads. For now the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1512 // latter approach is taken.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1513 if (!remote_batch_finished()) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1514 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1515 VERBOSE(2, "Remote threads still running, performing remote recovery\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1516 for (i = 0; i < remote_thread_count; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1517 recover_remote(i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1518 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1519 // Allow the recovery actions to take effect
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1520 delay.tv_sec = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1521 delay.tv_nsec = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1522 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1523 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1524
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1525 if (!local_batch_finished()) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1526 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1527 VERBOSE(2, "Local threads still running, performing local recovery\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1528 for (i = 0; i < local_thread_count; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1529 recover_local(i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1530 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1531 // Allow the recovery actions to take effect
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1532 delay.tv_sec = 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1533 delay.tv_nsec = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1534 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1535 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1536
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1537 // One last check to make sure that everything is finished. If not,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1538 // testing has broken down and it is necessary to abort.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1539 if (!local_batch_finished() \|\| !remote_batch_finished()) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1540 VERBOSE(2, "Giving local and remote threads another chance to finish.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1541 // Allow the recovery actions to take effect
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1542 delay.tv_sec = 5;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1543 delay.tv_nsec = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1544 nanosleep(&delay, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1545 if (!local_batch_finished() \|\| !remote_batch_finished()) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1546 // OK, normality has not been restored.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1547 // It would be nice to get hold of and display any error messages.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1548 usb_abort(usb_master_fd);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1549 fprintf(stderr, "Fatal error: the host test program and the remote target are out of synch.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1550 fprintf(stderr, " recovery has been attempted, without success.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1551 fprintf(stderr, " USB testing cannot continue.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1552 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1553 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1554 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1555
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1556 VERBOSE(2, "Local and remote threads are in synch, collecting results.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1557
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1558 // The world is in a coherent state. Time to collect the results.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1559 // The return value of this function is a simple boolean. More
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1560 // detailed results will be held in a Tcl variable as a list of
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1561 // messages. It is desirable to keep both local and remote results
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1562 // in order.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1563 for (i = 0; i < ((local_thread_count < remote_thread_count) ? local_thread_count : remote_thread_count); i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1564 if (!pool[i].test.result_pass) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1565 Tcl_SetVar(interp, "usbtest::results", pool[i].test.result_message,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1566 all_ok ? (TCL_GLOBAL_ONLY \| TCL_LIST_ELEMENT) : (TCL_GLOBAL_ONLY \| TCL_APPEND_VALUE \| TCL_LIST_ELEMENT));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1567 all_ok = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1568 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1569 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN, USBTEST_GET_RESULT,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1570 0, i, USBTEST_MAX_CONTROL_DATA, (void*) result_buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1571 if (!result_buf[0]) {
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	1572 Tcl_SetVar(interp, "usbtest::results", (char *)&(result_buf[1]),
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1573 all_ok ? TCL_GLOBAL_ONLY : (TCL_GLOBAL_ONLY \| TCL_APPEND_VALUE \| TCL_LIST_ELEMENT));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1574 all_ok = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1575 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1576 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1577 for (j = i; j < local_thread_count; j++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1578 if (!pool[j].test.result_pass) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1579 Tcl_SetVar(interp, "usbtest::results", pool[j].test.result_message,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1580 all_ok ? TCL_GLOBAL_ONLY : (TCL_GLOBAL_ONLY \| TCL_APPEND_VALUE \| TCL_LIST_ELEMENT));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1581 all_ok = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1582 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1583 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1584 for (j = i; j < remote_thread_count; j++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1585 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN, USBTEST_GET_RESULT,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1586 0, i, USBTEST_MAX_CONTROL_DATA, (void*) result_buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1587 if (!result_buf[0]) {
2188 33a63029a5f8 * host/bulk-boundaries.tcl(New): test bulk transfers at asl parents: 2001 diff changeset	1588 Tcl_SetVar(interp, "usbtest::results", (char *)&(result_buf[1]),
213 3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1589 all_ok ? TCL_GLOBAL_ONLY : (TCL_GLOBAL_ONLY \| TCL_APPEND_VALUE \| TCL_LIST_ELEMENT));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1590 all_ok = 0;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1591 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1592 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1593 VERBOSE(2, "Overall test result %d\n", all_ok);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1594
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1595 Tcl_SetResult(interp, all_ok ? "1" : "0", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1596
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1597 run_done();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1598
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1599 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1600 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1601
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1602 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1603 /{{{ Set verbosity /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1604
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1605 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1606 // Allow Tcl scripts to control verbosity levels for both host and target
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1607 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1608 tcl_host_verbose(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1609 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1610 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1611 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1612 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1613 int level;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1614
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1615 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1616 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::host_verbose <level>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1617 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1618 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1619 if (TCL_OK != Tcl_GetInt(interp, argv[1], &level)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1620 Tcl_SetResult(interp, "invalid argument: verbosity level should be numeric", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1621 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1622 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1623
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1624 verbose = level;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1625 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1626 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1627
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1628 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1629 tcl_target_verbose(ClientData clientData __attribute__ ((unused)),
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1630 Tcl_Interp* interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1631 int argc,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1632 char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1633 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1634 int level;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1635
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1636 if (2 != argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1637 Tcl_SetResult(interp, "wrong # args: should be \"usbtest::target_verbose <level>\"", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1638 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1639 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1640 if (TCL_OK != Tcl_GetInt(interp, argv[1], &level)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1641 Tcl_SetResult(interp, "invalid argument: verbosity level should be numeric", TCL_STATIC);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1642 return TCL_ERROR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1643 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1644
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1645 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE, USBTEST_VERBOSE, level, 0, 0, NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1646 usb_sync(usb_master_fd, -1);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1647
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1648 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1649 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1650
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1651 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1652
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1653 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1654 /{{{ AppInit() /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1655
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1656 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1657 // Application-specific initialization. We have a bare Tcl interpreter ready
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1658 // to start executing scripts that define various test cases. However some
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1659 // additional functions will have to be added to the interpreter, plus
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1660 // information about the various endpoints.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1661
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1662 static int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1663 usbhost_appinit(Tcl_Interp* interp)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1664 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1665 unsigned char buf[USBTEST_MAX_CONTROL_DATA];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1666 int number_of_endpoints;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1667 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1668 char* location;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1669
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1670 // Start by creating a usbtest namespace, for use by the various functions
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1671 // and variables.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1672 if (TCL_OK != Tcl_Eval(interp,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1673 "namespace eval usbtest {\n"
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1674 " variable number_of_endpoints 0\n"
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1675 " array set endpoint [list]\n"
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1676 "}\n")) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1677 fprintf(stderr, "usbhost: internal error, failed to create Tcl usbtest:: namespace\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1678 fprintf(stderr, " Please check Tcl version (8.0b1 or later required).\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1679 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1680 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1681
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1682 // Add some information about the install path so that the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1683 // main Tcl script can find and execute test scripts.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1684 location = getenv("USBHOSTDIR");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1685 if (NULL == location) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1686 location = USBAUXDIR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1687 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1688 Tcl_SetVar(interp, "usbtest::USBAUXDIR", location, TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1689
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1690 // Also set the verbosity level correctly
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1691 Tcl_SetVar2Ex(interp, "usbtest::verbose", NULL, Tcl_NewIntObj(verbose), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1692
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1693 // Next we need to know the number of endpoints, and for each
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1694 // endpoint we want additional information such as type. The
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1695 // results are placed in a Tcl array.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1696 usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN, USBTEST_ENDPOINT_COUNT,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1697 0, 0, 1, buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1698 number_of_endpoints = buf[0];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1699 Tcl_SetVar2Ex(interp, "usbtest::endpoint_count", NULL, Tcl_NewIntObj(number_of_endpoints), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1700
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1701 for (i = 0; i < number_of_endpoints; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1702 char varname[256];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1703 int result;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1704 int endpoint_min_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1705 int endpoint_max_size;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1706 int index;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1707
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1708 memset(buf, 0, USBTEST_MAX_CONTROL_DATA);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1709 result = usb_reliable_control_message(usb_master_fd, USB_TYPE_CLASS \| USB_RECIP_DEVICE \| USB_DIR_IN,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1710 USBTEST_ENDPOINT_DETAILS, 0, i, USBTEST_MAX_CONTROL_DATA, buf);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1711 if (result < 13) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1712 fprintf(stderr, "usbhost: error, received insufficient endpoint data back from the target.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1713 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1714 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1715
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1716 // See protocol.h for the encoding used.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1717 sprintf(varname, "usbtest::endpoint_data(%d,type)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1718 switch(buf[0]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1719 case USB_ENDPOINT_XFER_CONTROL : Tcl_SetVar(interp, varname, "control", TCL_GLOBAL_ONLY); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1720 case USB_ENDPOINT_XFER_ISOC : Tcl_SetVar(interp, varname, "isochronous", TCL_GLOBAL_ONLY); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1721 case USB_ENDPOINT_XFER_BULK : Tcl_SetVar(interp, varname, "bulk", TCL_GLOBAL_ONLY); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1722 case USB_ENDPOINT_XFER_INT : Tcl_SetVar(interp, varname, "interrupt", TCL_GLOBAL_ONLY); break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1723 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1724
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1725 sprintf(varname, "usbtest::endpoint_data(%d,number)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1726 Tcl_SetVar2Ex(interp, varname, NULL, Tcl_NewIntObj((int) buf[1]), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1727
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1728 sprintf(varname, "usbtest::endpoint_data(%d,direction)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1729 if (USB_DIR_OUT == buf[2]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1730 Tcl_SetVar(interp, varname, "out", TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1731 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1732 Tcl_SetVar(interp, varname, "in", TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1733 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1734
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1735 sprintf(varname, "usbtest::endpoint_data(%d,max_in_padding)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1736 Tcl_SetVar2Ex(interp, varname, NULL, Tcl_NewIntObj((int) buf[3]), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1737
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1738 sprintf(varname, "usbtest::endpoint_data(%d,min_size)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1739 index = 4;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1740 endpoint_min_size = unpack_int(buf, &index);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1741 Tcl_SetVar2Ex(interp, varname, NULL, Tcl_NewIntObj(endpoint_min_size), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1742
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1743 sprintf(varname, "usbtest::endpoint_data(%d,max_size)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1744 endpoint_max_size = unpack_int(buf, &index);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1745 if (USB_ENDPOINT_XFER_CONTROL == buf[0]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1746 if (endpoint_max_size > USBTEST_MAX_CONTROL_DATA) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1747 endpoint_max_size = USBTEST_MAX_CONTROL_DATA;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1748 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1749 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1750 if ((-1 == endpoint_max_size) \|\| (endpoint_max_size > USBTEST_MAX_BULK_DATA)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1751 endpoint_max_size = USBTEST_MAX_BULK_DATA;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1752 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1753 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1754 Tcl_SetVar2Ex(interp, varname, NULL, Tcl_NewIntObj(endpoint_max_size), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1755
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1756 sprintf(varname, "usbtest::endpoint_data(%d,devtab)", i);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1757 Tcl_SetVar(interp, varname, (char*) &(buf[12]), TCL_GLOBAL_ONLY);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1758
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1759 // Perform any additional endpoint-specific initialization to make
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1760 // sure host and target can actually communicate via this endpoint.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1761 switch(buf[0]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1762 case USB_ENDPOINT_XFER_CONTROL :
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1763 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1764 usb_initialise_control_endpoint(endpoint_min_size, endpoint_max_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1765 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1766 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1767 case USB_ENDPOINT_XFER_ISOC :
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1768 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1769 if (USB_DIR_OUT == buf[2]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1770 usb_initialise_isochronous_out_endpoint(buf[1], endpoint_min_size, endpoint_max_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1771 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1772 usb_initialise_isochronous_in_endpoint(buf[1], endpoint_min_size, endpoint_max_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1773 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1774 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1775 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1776 case USB_ENDPOINT_XFER_BULK :
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1777 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1778 if (USB_DIR_OUT == buf[2]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1779 usb_initialise_bulk_out_endpoint(buf[1], endpoint_min_size, endpoint_max_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1780 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1781 usb_initialise_bulk_in_endpoint(buf[1], endpoint_min_size, endpoint_max_size, buf[3]);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1782 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1783
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1784 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1785 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1786 case USB_ENDPOINT_XFER_INT :
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1787 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1788 if (USB_DIR_OUT == buf[2]) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1789 usb_initialise_interrupt_out_endpoint(buf[1], endpoint_min_size, endpoint_max_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1790 } else {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1791 usb_initialise_interrupt_in_endpoint(buf[1], endpoint_min_size, endpoint_max_size);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1792 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1793 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1794 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1795 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1796 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1797
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1798 // Register appropriate commands with the Tcl interpreter
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1799 Tcl_CreateCommand(interp, "usbtest::target_pass", &tcl_target_pass, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1800 Tcl_CreateCommand(interp, "usbtest::target_pass_exit", &tcl_target_pass_exit, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1801 Tcl_CreateCommand(interp, "usbtest::target_fail", &tcl_target_fail, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1802 Tcl_CreateCommand(interp, "usbtest::target_fail_exit", &tcl_target_fail_exit, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1803 Tcl_CreateCommand(interp, "usbtest::target_abort", &tcl_target_abort, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1804 Tcl_CreateCommand(interp, "usbtest::_test_bulk", &tcl_test_bulk, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1805 Tcl_CreateCommand(interp, "usbtest::_test_control_in", &tcl_test_control_in, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1806 Tcl_CreateCommand(interp, "usbtest::_cancel", &tcl_cancel, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1807 Tcl_CreateCommand(interp, "usbtest::_run", &tcl_run, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1808 Tcl_CreateCommand(interp, "usbtest::host_verbose", &tcl_host_verbose, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1809 Tcl_CreateCommand(interp, "usbtest::target_verbose", &tcl_target_verbose, (ClientData) NULL, (Tcl_CmdDeleteProc*) NULL);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1810
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1811 return TCL_OK;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1812 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1813
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1814 /}}}/
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1815 /{{{ main() /
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1816
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1817 // ----------------------------------------------------------------------------
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1818 // System start-up. After argument processing this code checks that
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1819 // there is a suitable USB target attached - if not then there is no
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1820 // point in proceeding. Otherwise further initialization is performed
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1821 // and then control is passed to a Tcl interpreter.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1822
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1823 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1824 usage(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1825 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1826 printf("usbhost: usage, usbhost [-V\|--verbose] [-v\|--version] [-h\|--help] <test> [args]\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1827 printf(" -V, --verbose Make the host-side output additional information\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1828 printf(" during test runs. This argument can be repeated to\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1829 printf(" increase verbosity.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1830 printf(" -v, --version Output version information for usbhost.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1831 printf(" -h, --help Output this help information.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1832 printf(" <test> The name of a USB test case, for example list.tcl\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1833 printf(" [args] Optional additional arguments for the testcase.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1834 exit(0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1835 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1836
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1837 static void
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1838 version(void)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1839 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1840 printf("usbhost: version %s\n", USBHOST_VERSION);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1841 printf(" : built from USB slave package version %s\n", PKGVERSION);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1842 printf(" : support files installed in %s\n", USBAUXDIR);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1843 exit(0);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1844 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1845
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1846 int
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1847 main(int argc, char** argv)
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1848 {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1849 char* interpreter = argv[0];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1850 char** new_argv;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1851 char path[_POSIX_PATH_MAX];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1852 char* location;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1853 int i;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1854
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1855 // Argument processing
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1856 for (i = 1; i < argc; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1857 if ((0 == strcmp("-h", argv[i])) \|\| (0 == strcmp("-H", argv[i])) \|\| (0 == strcmp("--help", argv[i]))) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1858 usage();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1859 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1860 if ((0 == strcmp("-v", argv[i])) \|\| (0 == strcmp("--version", argv[i]))) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1861 version();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1862 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1863 if ((0 == strcmp("-V", argv[i])) \|\| (0 == strcmp("--verbose", argv[i]))) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1864 verbose++;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1865 continue;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1866 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1867
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1868 // The first unrecognised argument should correspond to the test script.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1869 break;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1870 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1871 argc = (argc - i) + 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1872 argv = (argv + i) - 1;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1873
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1874 if (1 == argc) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1875 fprintf(stderr, "usbhost: at least one test script must be specified on the command line.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1876 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1877 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1878
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1879 usb_master_fd = usb_open_device();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1880 if (-1 == usb_master_fd) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1881 return EXIT_FAILURE;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1882 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1883
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1884 // There is a valid USB target. Initialize the pool of threads etc.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1885 pool_initialize();
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1886
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1887 // Now start a Tcl interpreter. Tcl_Main() will interpret the
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1888 // first argument as the name of a Tcl script to execute,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1889 // i.e. usbhost.tcl. This can be found in the install tree,
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1890 // but during development it is inconvenient to run
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1891 // "make install" every time the Tcl script is edited so an
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1892 // environment variable can be used to override the location.
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1893 new_argv = malloc((argc + 2) * sizeof(char*));
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1894 if (NULL == new_argv) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1895 fprintf(stderr, "usbhost: internal error, out of memory.\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1896 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1897 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1898 new_argv[0] = interpreter;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1899
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1900 location = getenv("USBHOSTDIR");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1901 if (NULL == location) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1902 location = USBAUXDIR;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1903 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1904 snprintf(path, _POSIX_PATH_MAX, "%s/usbhost.tcl", location);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1905 if (0 != access(path, R_OK)) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1906 fprintf(stderr, "usbhost: cannot find or access required Tcl script\n");
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1907 fprintf(stderr, " : %s\n", path);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1908 exit(EXIT_FAILURE);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1909 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1910 new_argv[1] = path;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1911
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1912 for (i = 1; i < argc; i++) {
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1913 new_argv[i+1] = argv[i];
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1914 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1915 new_argv[i+1] = NULL;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1916
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1917 Tcl_Main(i+1, new_argv, &usbhost_appinit);
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1918
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1919 return EXIT_SUCCESS;
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1920 }
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1921
3a5832bf0564 Merge from eCos master repository on 2002-05-31-16:13:14-BST jlarmour parents: diff changeset	1922 /}}}/

Mercurial > ecos

annotate packages/io/usb/slave/current/host/usbhost.c @ 3292:7f8e529b4d82 default tip