xref: /openbmc/u-boot/common/usb.c (revision 71a988aa)
1 /*
2  *
3  * Most of this source has been derived from the Linux USB
4  * project:
5  * (C) Copyright Linus Torvalds 1999
6  * (C) Copyright Johannes Erdfelt 1999-2001
7  * (C) Copyright Andreas Gal 1999
8  * (C) Copyright Gregory P. Smith 1999
9  * (C) Copyright Deti Fliegl 1999 (new USB architecture)
10  * (C) Copyright Randy Dunlap 2000
11  * (C) Copyright David Brownell 2000 (kernel hotplug, usb_device_id)
12  * (C) Copyright Yggdrasil Computing, Inc. 2000
13  *     (usb_device_id matching changes by Adam J. Richter)
14  *
15  * Adapted for U-Boot:
16  * (C) Copyright 2001 Denis Peter, MPL AG Switzerland
17  *
18  * See file CREDITS for list of people who contributed to this
19  * project.
20  *
21  * This program is free software; you can redistribute it and/or
22  * modify it under the terms of the GNU General Public License as
23  * published by the Free Software Foundation; either version 2 of
24  * the License, or (at your option) any later version.
25  *
26  * This program is distributed in the hope that it will be useful,
27  * but WITHOUT ANY WARRANTY; without even the implied warranty of
28  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
29  * GNU General Public License for more details.
30  *
31  * You should have received a copy of the GNU General Public License
32  * along with this program; if not, write to the Free Software
33  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
34  * MA 02111-1307 USA
35  *
36  */
37 
38 /*
39  * How it works:
40  *
41  * Since this is a bootloader, the devices will not be automatic
42  * (re)configured on hotplug, but after a restart of the USB the
43  * device should work.
44  *
45  * For each transfer (except "Interrupt") we wait for completion.
46  */
47 #include <common.h>
48 #include <command.h>
49 #include <asm/processor.h>
50 #include <linux/compiler.h>
51 #include <linux/ctype.h>
52 #include <asm/byteorder.h>
53 #include <asm/unaligned.h>
54 
55 #include <usb.h>
56 #ifdef CONFIG_4xx
57 #include <asm/4xx_pci.h>
58 #endif
59 
60 #ifdef DEBUG
61 #define USB_DEBUG	1
62 #define USB_HUB_DEBUG	1
63 #else
64 #define USB_DEBUG	0
65 #define USB_HUB_DEBUG	0
66 #endif
67 
68 #define USB_PRINTF(fmt, args...)	debug_cond(USB_DEBUG, fmt, ##args)
69 #define USB_HUB_PRINTF(fmt, args...)	debug_cond(USB_HUB_DEBUG, fmt, ##args)
70 
71 #define USB_BUFSIZ	512
72 
73 static struct usb_device usb_dev[USB_MAX_DEVICE];
74 static int dev_index;
75 static int asynch_allowed;
76 
77 char usb_started; /* flag for the started/stopped USB status */
78 
79 #ifndef CONFIG_USB_MAX_CONTROLLER_COUNT
80 #define CONFIG_USB_MAX_CONTROLLER_COUNT 1
81 #endif
82 
83 /***************************************************************************
84  * Init USB Device
85  */
86 int usb_init(void)
87 {
88 	void *ctrl;
89 	struct usb_device *dev;
90 	int i, start_index = 0;
91 
92 	dev_index = 0;
93 	asynch_allowed = 1;
94 	usb_hub_reset();
95 
96 	/* first make all devices unknown */
97 	for (i = 0; i < USB_MAX_DEVICE; i++) {
98 		memset(&usb_dev[i], 0, sizeof(struct usb_device));
99 		usb_dev[i].devnum = -1;
100 	}
101 
102 	/* init low_level USB */
103 	for (i = 0; i < CONFIG_USB_MAX_CONTROLLER_COUNT; i++) {
104 		/* init low_level USB */
105 		printf("USB%d:   ", i);
106 		if (usb_lowlevel_init(i, &ctrl)) {
107 			puts("lowlevel init failed\n");
108 			continue;
109 		}
110 		/*
111 		 * lowlevel init is OK, now scan the bus for devices
112 		 * i.e. search HUBs and configure them
113 		 */
114 		start_index = dev_index;
115 		printf("scanning bus %d for devices... ", i);
116 		dev = usb_alloc_new_device(ctrl);
117 		/*
118 		 * device 0 is always present
119 		 * (root hub, so let it analyze)
120 		 */
121 		if (dev)
122 			usb_new_device(dev);
123 
124 		if (start_index == dev_index)
125 			puts("No USB Device found\n");
126 		else
127 			printf("%d USB Device(s) found\n",
128 				dev_index - start_index);
129 
130 		usb_started = 1;
131 	}
132 
133 	USB_PRINTF("scan end\n");
134 	/* if we were not able to find at least one working bus, bail out */
135 	if (!usb_started) {
136 		puts("USB error: all controllers failed lowlevel init\n");
137 		return -1;
138 	}
139 
140 	return 0;
141 }
142 
143 /******************************************************************************
144  * Stop USB this stops the LowLevel Part and deregisters USB devices.
145  */
146 int usb_stop(void)
147 {
148 	int i;
149 
150 	if (usb_started) {
151 		asynch_allowed = 1;
152 		usb_started = 0;
153 		usb_hub_reset();
154 
155 		for (i = 0; i < CONFIG_USB_MAX_CONTROLLER_COUNT; i++) {
156 			if (usb_lowlevel_stop(i))
157 				printf("failed to stop USB controller %d\n", i);
158 		}
159 	}
160 
161 	return 0;
162 }
163 
164 /*
165  * disables the asynch behaviour of the control message. This is used for data
166  * transfers that uses the exclusiv access to the control and bulk messages.
167  * Returns the old value so it can be restored later.
168  */
169 int usb_disable_asynch(int disable)
170 {
171 	int old_value = asynch_allowed;
172 
173 	asynch_allowed = !disable;
174 	return old_value;
175 }
176 
177 
178 /*-------------------------------------------------------------------
179  * Message wrappers.
180  *
181  */
182 
183 /*
184  * submits an Interrupt Message
185  */
186 int usb_submit_int_msg(struct usb_device *dev, unsigned long pipe,
187 			void *buffer, int transfer_len, int interval)
188 {
189 	return submit_int_msg(dev, pipe, buffer, transfer_len, interval);
190 }
191 
192 /*
193  * submits a control message and waits for comletion (at least timeout * 1ms)
194  * If timeout is 0, we don't wait for completion (used as example to set and
195  * clear keyboards LEDs). For data transfers, (storage transfers) we don't
196  * allow control messages with 0 timeout, by previousely resetting the flag
197  * asynch_allowed (usb_disable_asynch(1)).
198  * returns the transfered length if OK or -1 if error. The transfered length
199  * and the current status are stored in the dev->act_len and dev->status.
200  */
201 int usb_control_msg(struct usb_device *dev, unsigned int pipe,
202 			unsigned char request, unsigned char requesttype,
203 			unsigned short value, unsigned short index,
204 			void *data, unsigned short size, int timeout)
205 {
206 	ALLOC_CACHE_ALIGN_BUFFER(struct devrequest, setup_packet, 1);
207 
208 	if ((timeout == 0) && (!asynch_allowed)) {
209 		/* request for a asynch control pipe is not allowed */
210 		return -1;
211 	}
212 
213 	/* set setup command */
214 	setup_packet->requesttype = requesttype;
215 	setup_packet->request = request;
216 	setup_packet->value = cpu_to_le16(value);
217 	setup_packet->index = cpu_to_le16(index);
218 	setup_packet->length = cpu_to_le16(size);
219 	USB_PRINTF("usb_control_msg: request: 0x%X, requesttype: 0x%X, " \
220 		   "value 0x%X index 0x%X length 0x%X\n",
221 		   request, requesttype, value, index, size);
222 	dev->status = USB_ST_NOT_PROC; /*not yet processed */
223 
224 	if (submit_control_msg(dev, pipe, data, size, setup_packet) < 0)
225 		return -1;
226 	if (timeout == 0)
227 		return (int)size;
228 
229 	/*
230 	 * Wait for status to update until timeout expires, USB driver
231 	 * interrupt handler may set the status when the USB operation has
232 	 * been completed.
233 	 */
234 	while (timeout--) {
235 		if (!((volatile unsigned long)dev->status & USB_ST_NOT_PROC))
236 			break;
237 		mdelay(1);
238 	}
239 	if (dev->status)
240 		return -1;
241 
242 	return dev->act_len;
243 
244 }
245 
246 /*-------------------------------------------------------------------
247  * submits bulk message, and waits for completion. returns 0 if Ok or
248  * -1 if Error.
249  * synchronous behavior
250  */
251 int usb_bulk_msg(struct usb_device *dev, unsigned int pipe,
252 			void *data, int len, int *actual_length, int timeout)
253 {
254 	if (len < 0)
255 		return -1;
256 	dev->status = USB_ST_NOT_PROC; /*not yet processed */
257 	if (submit_bulk_msg(dev, pipe, data, len) < 0)
258 		return -1;
259 	while (timeout--) {
260 		if (!((volatile unsigned long)dev->status & USB_ST_NOT_PROC))
261 			break;
262 		mdelay(1);
263 	}
264 	*actual_length = dev->act_len;
265 	if (dev->status == 0)
266 		return 0;
267 	else
268 		return -1;
269 }
270 
271 
272 /*-------------------------------------------------------------------
273  * Max Packet stuff
274  */
275 
276 /*
277  * returns the max packet size, depending on the pipe direction and
278  * the configurations values
279  */
280 int usb_maxpacket(struct usb_device *dev, unsigned long pipe)
281 {
282 	/* direction is out -> use emaxpacket out */
283 	if ((pipe & USB_DIR_IN) == 0)
284 		return dev->epmaxpacketout[((pipe>>15) & 0xf)];
285 	else
286 		return dev->epmaxpacketin[((pipe>>15) & 0xf)];
287 }
288 
289 /*
290  * The routine usb_set_maxpacket_ep() is extracted from the loop of routine
291  * usb_set_maxpacket(), because the optimizer of GCC 4.x chokes on this routine
292  * when it is inlined in 1 single routine. What happens is that the register r3
293  * is used as loop-count 'i', but gets overwritten later on.
294  * This is clearly a compiler bug, but it is easier to workaround it here than
295  * to update the compiler (Occurs with at least several GCC 4.{1,2},x
296  * CodeSourcery compilers like e.g. 2007q3, 2008q1, 2008q3 lite editions on ARM)
297  *
298  * NOTE: Similar behaviour was observed with GCC4.6 on ARMv5.
299  */
300 static void noinline
301 usb_set_maxpacket_ep(struct usb_device *dev, int if_idx, int ep_idx)
302 {
303 	int b;
304 	struct usb_endpoint_descriptor *ep;
305 	u16 ep_wMaxPacketSize;
306 
307 	ep = &dev->config.if_desc[if_idx].ep_desc[ep_idx];
308 
309 	b = ep->bEndpointAddress & USB_ENDPOINT_NUMBER_MASK;
310 	ep_wMaxPacketSize = get_unaligned(&ep->wMaxPacketSize);
311 
312 	if ((ep->bmAttributes & USB_ENDPOINT_XFERTYPE_MASK) ==
313 						USB_ENDPOINT_XFER_CONTROL) {
314 		/* Control => bidirectional */
315 		dev->epmaxpacketout[b] = ep_wMaxPacketSize;
316 		dev->epmaxpacketin[b] = ep_wMaxPacketSize;
317 		USB_PRINTF("##Control EP epmaxpacketout/in[%d] = %d\n",
318 			   b, dev->epmaxpacketin[b]);
319 	} else {
320 		if ((ep->bEndpointAddress & 0x80) == 0) {
321 			/* OUT Endpoint */
322 			if (ep_wMaxPacketSize > dev->epmaxpacketout[b]) {
323 				dev->epmaxpacketout[b] = ep_wMaxPacketSize;
324 				USB_PRINTF("##EP epmaxpacketout[%d] = %d\n",
325 					   b, dev->epmaxpacketout[b]);
326 			}
327 		} else {
328 			/* IN Endpoint */
329 			if (ep_wMaxPacketSize > dev->epmaxpacketin[b]) {
330 				dev->epmaxpacketin[b] = ep_wMaxPacketSize;
331 				USB_PRINTF("##EP epmaxpacketin[%d] = %d\n",
332 					   b, dev->epmaxpacketin[b]);
333 			}
334 		} /* if out */
335 	} /* if control */
336 }
337 
338 /*
339  * set the max packed value of all endpoints in the given configuration
340  */
341 static int usb_set_maxpacket(struct usb_device *dev)
342 {
343 	int i, ii;
344 
345 	for (i = 0; i < dev->config.desc.bNumInterfaces; i++)
346 		for (ii = 0; ii < dev->config.if_desc[i].desc.bNumEndpoints; ii++)
347 			usb_set_maxpacket_ep(dev, i, ii);
348 
349 	return 0;
350 }
351 
352 /*******************************************************************************
353  * Parse the config, located in buffer, and fills the dev->config structure.
354  * Note that all little/big endian swapping are done automatically.
355  */
356 static int usb_parse_config(struct usb_device *dev,
357 			unsigned char *buffer, int cfgno)
358 {
359 	struct usb_descriptor_header *head;
360 	int index, ifno, epno, curr_if_num;
361 	int i;
362 	u16 ep_wMaxPacketSize;
363 
364 	ifno = -1;
365 	epno = -1;
366 	curr_if_num = -1;
367 
368 	dev->configno = cfgno;
369 	head = (struct usb_descriptor_header *) &buffer[0];
370 	if (head->bDescriptorType != USB_DT_CONFIG) {
371 		printf(" ERROR: NOT USB_CONFIG_DESC %x\n",
372 			head->bDescriptorType);
373 		return -1;
374 	}
375 	memcpy(&dev->config, buffer, buffer[0]);
376 	le16_to_cpus(&(dev->config.desc.wTotalLength));
377 	dev->config.no_of_if = 0;
378 
379 	index = dev->config.desc.bLength;
380 	/* Ok the first entry must be a configuration entry,
381 	 * now process the others */
382 	head = (struct usb_descriptor_header *) &buffer[index];
383 	while (index + 1 < dev->config.desc.wTotalLength) {
384 		switch (head->bDescriptorType) {
385 		case USB_DT_INTERFACE:
386 			if (((struct usb_interface_descriptor *) \
387 			     &buffer[index])->bInterfaceNumber != curr_if_num) {
388 				/* this is a new interface, copy new desc */
389 				ifno = dev->config.no_of_if;
390 				dev->config.no_of_if++;
391 				memcpy(&dev->config.if_desc[ifno],
392 					&buffer[index], buffer[index]);
393 				dev->config.if_desc[ifno].no_of_ep = 0;
394 				dev->config.if_desc[ifno].num_altsetting = 1;
395 				curr_if_num =
396 				     dev->config.if_desc[ifno].desc.bInterfaceNumber;
397 			} else {
398 				/* found alternate setting for the interface */
399 				dev->config.if_desc[ifno].num_altsetting++;
400 			}
401 			break;
402 		case USB_DT_ENDPOINT:
403 			epno = dev->config.if_desc[ifno].no_of_ep;
404 			/* found an endpoint */
405 			dev->config.if_desc[ifno].no_of_ep++;
406 			memcpy(&dev->config.if_desc[ifno].ep_desc[epno],
407 				&buffer[index], buffer[index]);
408 			ep_wMaxPacketSize = get_unaligned(&dev->config.\
409 							if_desc[ifno].\
410 							ep_desc[epno].\
411 							wMaxPacketSize);
412 			put_unaligned(le16_to_cpu(ep_wMaxPacketSize),
413 					&dev->config.\
414 					if_desc[ifno].\
415 					ep_desc[epno].\
416 					wMaxPacketSize);
417 			USB_PRINTF("if %d, ep %d\n", ifno, epno);
418 			break;
419 		default:
420 			if (head->bLength == 0)
421 				return 1;
422 
423 			USB_PRINTF("unknown Description Type : %x\n",
424 				   head->bDescriptorType);
425 
426 			{
427 #ifdef USB_DEBUG
428 				unsigned char *ch = (unsigned char *)head;
429 #endif
430 				for (i = 0; i < head->bLength; i++)
431 					USB_PRINTF("%02X ", *ch++);
432 				USB_PRINTF("\n\n\n");
433 			}
434 			break;
435 		}
436 		index += head->bLength;
437 		head = (struct usb_descriptor_header *)&buffer[index];
438 	}
439 	return 1;
440 }
441 
442 /***********************************************************************
443  * Clears an endpoint
444  * endp: endpoint number in bits 0-3;
445  * direction flag in bit 7 (1 = IN, 0 = OUT)
446  */
447 int usb_clear_halt(struct usb_device *dev, int pipe)
448 {
449 	int result;
450 	int endp = usb_pipeendpoint(pipe)|(usb_pipein(pipe)<<7);
451 
452 	result = usb_control_msg(dev, usb_sndctrlpipe(dev, 0),
453 				 USB_REQ_CLEAR_FEATURE, USB_RECIP_ENDPOINT, 0,
454 				 endp, NULL, 0, USB_CNTL_TIMEOUT * 3);
455 
456 	/* don't clear if failed */
457 	if (result < 0)
458 		return result;
459 
460 	/*
461 	 * NOTE: we do not get status and verify reset was successful
462 	 * as some devices are reported to lock up upon this check..
463 	 */
464 
465 	usb_endpoint_running(dev, usb_pipeendpoint(pipe), usb_pipeout(pipe));
466 
467 	/* toggle is reset on clear */
468 	usb_settoggle(dev, usb_pipeendpoint(pipe), usb_pipeout(pipe), 0);
469 	return 0;
470 }
471 
472 
473 /**********************************************************************
474  * get_descriptor type
475  */
476 static int usb_get_descriptor(struct usb_device *dev, unsigned char type,
477 			unsigned char index, void *buf, int size)
478 {
479 	int res;
480 	res = usb_control_msg(dev, usb_rcvctrlpipe(dev, 0),
481 			USB_REQ_GET_DESCRIPTOR, USB_DIR_IN,
482 			(type << 8) + index, 0,
483 			buf, size, USB_CNTL_TIMEOUT);
484 	return res;
485 }
486 
487 /**********************************************************************
488  * gets configuration cfgno and store it in the buffer
489  */
490 int usb_get_configuration_no(struct usb_device *dev,
491 			     unsigned char *buffer, int cfgno)
492 {
493 	int result;
494 	unsigned int tmp;
495 	struct usb_config_descriptor *config;
496 
497 	config = (struct usb_config_descriptor *)&buffer[0];
498 	result = usb_get_descriptor(dev, USB_DT_CONFIG, cfgno, buffer, 9);
499 	if (result < 9) {
500 		if (result < 0)
501 			printf("unable to get descriptor, error %lX\n",
502 				dev->status);
503 		else
504 			printf("config descriptor too short " \
505 				"(expected %i, got %i)\n", 9, result);
506 		return -1;
507 	}
508 	tmp = le16_to_cpu(config->wTotalLength);
509 
510 	if (tmp > USB_BUFSIZ) {
511 		printf("usb_get_configuration_no: failed to get " \
512 		       "descriptor - too long: %d\n", tmp);
513 		return -1;
514 	}
515 
516 	result = usb_get_descriptor(dev, USB_DT_CONFIG, cfgno, buffer, tmp);
517 	USB_PRINTF("get_conf_no %d Result %d, wLength %d\n",
518 		   cfgno, result, tmp);
519 	return result;
520 }
521 
522 /********************************************************************
523  * set address of a device to the value in dev->devnum.
524  * This can only be done by addressing the device via the default address (0)
525  */
526 static int usb_set_address(struct usb_device *dev)
527 {
528 	int res;
529 
530 	USB_PRINTF("set address %d\n", dev->devnum);
531 	res = usb_control_msg(dev, usb_snddefctrl(dev),
532 				USB_REQ_SET_ADDRESS, 0,
533 				(dev->devnum), 0,
534 				NULL, 0, USB_CNTL_TIMEOUT);
535 	return res;
536 }
537 
538 /********************************************************************
539  * set interface number to interface
540  */
541 int usb_set_interface(struct usb_device *dev, int interface, int alternate)
542 {
543 	struct usb_interface *if_face = NULL;
544 	int ret, i;
545 
546 	for (i = 0; i < dev->config.desc.bNumInterfaces; i++) {
547 		if (dev->config.if_desc[i].desc.bInterfaceNumber == interface) {
548 			if_face = &dev->config.if_desc[i];
549 			break;
550 		}
551 	}
552 	if (!if_face) {
553 		printf("selecting invalid interface %d", interface);
554 		return -1;
555 	}
556 	/*
557 	 * We should return now for devices with only one alternate setting.
558 	 * According to 9.4.10 of the Universal Serial Bus Specification
559 	 * Revision 2.0 such devices can return with a STALL. This results in
560 	 * some USB sticks timeouting during initialization and then being
561 	 * unusable in U-Boot.
562 	 */
563 	if (if_face->num_altsetting == 1)
564 		return 0;
565 
566 	ret = usb_control_msg(dev, usb_sndctrlpipe(dev, 0),
567 				USB_REQ_SET_INTERFACE, USB_RECIP_INTERFACE,
568 				alternate, interface, NULL, 0,
569 				USB_CNTL_TIMEOUT * 5);
570 	if (ret < 0)
571 		return ret;
572 
573 	return 0;
574 }
575 
576 /********************************************************************
577  * set configuration number to configuration
578  */
579 static int usb_set_configuration(struct usb_device *dev, int configuration)
580 {
581 	int res;
582 	USB_PRINTF("set configuration %d\n", configuration);
583 	/* set setup command */
584 	res = usb_control_msg(dev, usb_sndctrlpipe(dev, 0),
585 				USB_REQ_SET_CONFIGURATION, 0,
586 				configuration, 0,
587 				NULL, 0, USB_CNTL_TIMEOUT);
588 	if (res == 0) {
589 		dev->toggle[0] = 0;
590 		dev->toggle[1] = 0;
591 		return 0;
592 	} else
593 		return -1;
594 }
595 
596 /********************************************************************
597  * set protocol to protocol
598  */
599 int usb_set_protocol(struct usb_device *dev, int ifnum, int protocol)
600 {
601 	return usb_control_msg(dev, usb_sndctrlpipe(dev, 0),
602 		USB_REQ_SET_PROTOCOL, USB_TYPE_CLASS | USB_RECIP_INTERFACE,
603 		protocol, ifnum, NULL, 0, USB_CNTL_TIMEOUT);
604 }
605 
606 /********************************************************************
607  * set idle
608  */
609 int usb_set_idle(struct usb_device *dev, int ifnum, int duration, int report_id)
610 {
611 	return usb_control_msg(dev, usb_sndctrlpipe(dev, 0),
612 		USB_REQ_SET_IDLE, USB_TYPE_CLASS | USB_RECIP_INTERFACE,
613 		(duration << 8) | report_id, ifnum, NULL, 0, USB_CNTL_TIMEOUT);
614 }
615 
616 /********************************************************************
617  * get report
618  */
619 int usb_get_report(struct usb_device *dev, int ifnum, unsigned char type,
620 		   unsigned char id, void *buf, int size)
621 {
622 	return usb_control_msg(dev, usb_rcvctrlpipe(dev, 0),
623 			USB_REQ_GET_REPORT,
624 			USB_DIR_IN | USB_TYPE_CLASS | USB_RECIP_INTERFACE,
625 			(type << 8) + id, ifnum, buf, size, USB_CNTL_TIMEOUT);
626 }
627 
628 /********************************************************************
629  * get class descriptor
630  */
631 int usb_get_class_descriptor(struct usb_device *dev, int ifnum,
632 		unsigned char type, unsigned char id, void *buf, int size)
633 {
634 	return usb_control_msg(dev, usb_rcvctrlpipe(dev, 0),
635 		USB_REQ_GET_DESCRIPTOR, USB_RECIP_INTERFACE | USB_DIR_IN,
636 		(type << 8) + id, ifnum, buf, size, USB_CNTL_TIMEOUT);
637 }
638 
639 /********************************************************************
640  * get string index in buffer
641  */
642 static int usb_get_string(struct usb_device *dev, unsigned short langid,
643 		   unsigned char index, void *buf, int size)
644 {
645 	int i;
646 	int result;
647 
648 	for (i = 0; i < 3; ++i) {
649 		/* some devices are flaky */
650 		result = usb_control_msg(dev, usb_rcvctrlpipe(dev, 0),
651 			USB_REQ_GET_DESCRIPTOR, USB_DIR_IN,
652 			(USB_DT_STRING << 8) + index, langid, buf, size,
653 			USB_CNTL_TIMEOUT);
654 
655 		if (result > 0)
656 			break;
657 	}
658 
659 	return result;
660 }
661 
662 
663 static void usb_try_string_workarounds(unsigned char *buf, int *length)
664 {
665 	int newlength, oldlength = *length;
666 
667 	for (newlength = 2; newlength + 1 < oldlength; newlength += 2)
668 		if (!isprint(buf[newlength]) || buf[newlength + 1])
669 			break;
670 
671 	if (newlength > 2) {
672 		buf[0] = newlength;
673 		*length = newlength;
674 	}
675 }
676 
677 
678 static int usb_string_sub(struct usb_device *dev, unsigned int langid,
679 		unsigned int index, unsigned char *buf)
680 {
681 	int rc;
682 
683 	/* Try to read the string descriptor by asking for the maximum
684 	 * possible number of bytes */
685 	rc = usb_get_string(dev, langid, index, buf, 255);
686 
687 	/* If that failed try to read the descriptor length, then
688 	 * ask for just that many bytes */
689 	if (rc < 2) {
690 		rc = usb_get_string(dev, langid, index, buf, 2);
691 		if (rc == 2)
692 			rc = usb_get_string(dev, langid, index, buf, buf[0]);
693 	}
694 
695 	if (rc >= 2) {
696 		if (!buf[0] && !buf[1])
697 			usb_try_string_workarounds(buf, &rc);
698 
699 		/* There might be extra junk at the end of the descriptor */
700 		if (buf[0] < rc)
701 			rc = buf[0];
702 
703 		rc = rc - (rc & 1); /* force a multiple of two */
704 	}
705 
706 	if (rc < 2)
707 		rc = -1;
708 
709 	return rc;
710 }
711 
712 
713 /********************************************************************
714  * usb_string:
715  * Get string index and translate it to ascii.
716  * returns string length (> 0) or error (< 0)
717  */
718 int usb_string(struct usb_device *dev, int index, char *buf, size_t size)
719 {
720 	ALLOC_CACHE_ALIGN_BUFFER(unsigned char, mybuf, USB_BUFSIZ);
721 	unsigned char *tbuf;
722 	int err;
723 	unsigned int u, idx;
724 
725 	if (size <= 0 || !buf || !index)
726 		return -1;
727 	buf[0] = 0;
728 	tbuf = &mybuf[0];
729 
730 	/* get langid for strings if it's not yet known */
731 	if (!dev->have_langid) {
732 		err = usb_string_sub(dev, 0, 0, tbuf);
733 		if (err < 0) {
734 			USB_PRINTF("error getting string descriptor 0 " \
735 				   "(error=%lx)\n", dev->status);
736 			return -1;
737 		} else if (tbuf[0] < 4) {
738 			USB_PRINTF("string descriptor 0 too short\n");
739 			return -1;
740 		} else {
741 			dev->have_langid = -1;
742 			dev->string_langid = tbuf[2] | (tbuf[3] << 8);
743 				/* always use the first langid listed */
744 			USB_PRINTF("USB device number %d default " \
745 				   "language ID 0x%x\n",
746 				   dev->devnum, dev->string_langid);
747 		}
748 	}
749 
750 	err = usb_string_sub(dev, dev->string_langid, index, tbuf);
751 	if (err < 0)
752 		return err;
753 
754 	size--;		/* leave room for trailing NULL char in output buffer */
755 	for (idx = 0, u = 2; u < err; u += 2) {
756 		if (idx >= size)
757 			break;
758 		if (tbuf[u+1])			/* high byte */
759 			buf[idx++] = '?';  /* non-ASCII character */
760 		else
761 			buf[idx++] = tbuf[u];
762 	}
763 	buf[idx] = 0;
764 	err = idx;
765 	return err;
766 }
767 
768 
769 /********************************************************************
770  * USB device handling:
771  * the USB device are static allocated [USB_MAX_DEVICE].
772  */
773 
774 
775 /* returns a pointer to the device with the index [index].
776  * if the device is not assigned (dev->devnum==-1) returns NULL
777  */
778 struct usb_device *usb_get_dev_index(int index)
779 {
780 	if (usb_dev[index].devnum == -1)
781 		return NULL;
782 	else
783 		return &usb_dev[index];
784 }
785 
786 /* returns a pointer of a new device structure or NULL, if
787  * no device struct is available
788  */
789 struct usb_device *usb_alloc_new_device(void *controller)
790 {
791 	int i;
792 	USB_PRINTF("New Device %d\n", dev_index);
793 	if (dev_index == USB_MAX_DEVICE) {
794 		printf("ERROR, too many USB Devices, max=%d\n", USB_MAX_DEVICE);
795 		return NULL;
796 	}
797 	/* default Address is 0, real addresses start with 1 */
798 	usb_dev[dev_index].devnum = dev_index + 1;
799 	usb_dev[dev_index].maxchild = 0;
800 	for (i = 0; i < USB_MAXCHILDREN; i++)
801 		usb_dev[dev_index].children[i] = NULL;
802 	usb_dev[dev_index].parent = NULL;
803 	usb_dev[dev_index].controller = controller;
804 	dev_index++;
805 	return &usb_dev[dev_index - 1];
806 }
807 
808 /*
809  * Free the newly created device node.
810  * Called in error cases where configuring a newly attached
811  * device fails for some reason.
812  */
813 void usb_free_device(void)
814 {
815 	dev_index--;
816 	USB_PRINTF("Freeing device node: %d\n", dev_index);
817 	memset(&usb_dev[dev_index], 0, sizeof(struct usb_device));
818 	usb_dev[dev_index].devnum = -1;
819 }
820 
821 /*
822  * By the time we get here, the device has gotten a new device ID
823  * and is in the default state. We need to identify the thing and
824  * get the ball rolling..
825  *
826  * Returns 0 for success, != 0 for error.
827  */
828 int usb_new_device(struct usb_device *dev)
829 {
830 	int addr, err;
831 	int tmp;
832 	ALLOC_CACHE_ALIGN_BUFFER(unsigned char, tmpbuf, USB_BUFSIZ);
833 
834 	/* We still haven't set the Address yet */
835 	addr = dev->devnum;
836 	dev->devnum = 0;
837 
838 #ifdef CONFIG_LEGACY_USB_INIT_SEQ
839 	/* this is the old and known way of initializing devices, it is
840 	 * different than what Windows and Linux are doing. Windows and Linux
841 	 * both retrieve 64 bytes while reading the device descriptor
842 	 * Several USB stick devices report ERR: CTL_TIMEOUT, caused by an
843 	 * invalid header while reading 8 bytes as device descriptor. */
844 	dev->descriptor.bMaxPacketSize0 = 8;	    /* Start off at 8 bytes  */
845 	dev->maxpacketsize = PACKET_SIZE_8;
846 	dev->epmaxpacketin[0] = 8;
847 	dev->epmaxpacketout[0] = 8;
848 
849 	err = usb_get_descriptor(dev, USB_DT_DEVICE, 0, tmpbuf, 8);
850 	if (err < 8) {
851 		printf("\n      USB device not responding, " \
852 		       "giving up (status=%lX)\n", dev->status);
853 		return 1;
854 	}
855 	memcpy(&dev->descriptor, tmpbuf, 8);
856 #else
857 	/* This is a Windows scheme of initialization sequence, with double
858 	 * reset of the device (Linux uses the same sequence)
859 	 * Some equipment is said to work only with such init sequence; this
860 	 * patch is based on the work by Alan Stern:
861 	 * http://sourceforge.net/mailarchive/forum.php?
862 	 * thread_id=5729457&forum_id=5398
863 	 */
864 	struct usb_device_descriptor *desc;
865 	int port = -1;
866 	struct usb_device *parent = dev->parent;
867 	unsigned short portstatus;
868 
869 	/* send 64-byte GET-DEVICE-DESCRIPTOR request.  Since the descriptor is
870 	 * only 18 bytes long, this will terminate with a short packet.  But if
871 	 * the maxpacket size is 8 or 16 the device may be waiting to transmit
872 	 * some more, or keeps on retransmitting the 8 byte header. */
873 
874 	desc = (struct usb_device_descriptor *)tmpbuf;
875 	dev->descriptor.bMaxPacketSize0 = 64;	    /* Start off at 64 bytes  */
876 	/* Default to 64 byte max packet size */
877 	dev->maxpacketsize = PACKET_SIZE_64;
878 	dev->epmaxpacketin[0] = 64;
879 	dev->epmaxpacketout[0] = 64;
880 
881 	err = usb_get_descriptor(dev, USB_DT_DEVICE, 0, desc, 64);
882 	if (err < 0) {
883 		USB_PRINTF("usb_new_device: usb_get_descriptor() failed\n");
884 		return 1;
885 	}
886 
887 	dev->descriptor.bMaxPacketSize0 = desc->bMaxPacketSize0;
888 
889 	/* find the port number we're at */
890 	if (parent) {
891 		int j;
892 
893 		for (j = 0; j < parent->maxchild; j++) {
894 			if (parent->children[j] == dev) {
895 				port = j;
896 				break;
897 			}
898 		}
899 		if (port < 0) {
900 			printf("usb_new_device:cannot locate device's port.\n");
901 			return 1;
902 		}
903 
904 		/* reset the port for the second time */
905 		err = hub_port_reset(dev->parent, port, &portstatus);
906 		if (err < 0) {
907 			printf("\n     Couldn't reset port %i\n", port);
908 			return 1;
909 		}
910 	}
911 #endif
912 
913 	dev->epmaxpacketin[0] = dev->descriptor.bMaxPacketSize0;
914 	dev->epmaxpacketout[0] = dev->descriptor.bMaxPacketSize0;
915 	switch (dev->descriptor.bMaxPacketSize0) {
916 	case 8:
917 		dev->maxpacketsize  = PACKET_SIZE_8;
918 		break;
919 	case 16:
920 		dev->maxpacketsize = PACKET_SIZE_16;
921 		break;
922 	case 32:
923 		dev->maxpacketsize = PACKET_SIZE_32;
924 		break;
925 	case 64:
926 		dev->maxpacketsize = PACKET_SIZE_64;
927 		break;
928 	}
929 	dev->devnum = addr;
930 
931 	err = usb_set_address(dev); /* set address */
932 
933 	if (err < 0) {
934 		printf("\n      USB device not accepting new address " \
935 			"(error=%lX)\n", dev->status);
936 		return 1;
937 	}
938 
939 	mdelay(10);	/* Let the SET_ADDRESS settle */
940 
941 	tmp = sizeof(dev->descriptor);
942 
943 	err = usb_get_descriptor(dev, USB_DT_DEVICE, 0,
944 				 tmpbuf, sizeof(dev->descriptor));
945 	if (err < tmp) {
946 		if (err < 0)
947 			printf("unable to get device descriptor (error=%d)\n",
948 			       err);
949 		else
950 			printf("USB device descriptor short read " \
951 				"(expected %i, got %i)\n", tmp, err);
952 		return 1;
953 	}
954 	memcpy(&dev->descriptor, tmpbuf, sizeof(dev->descriptor));
955 	/* correct le values */
956 	le16_to_cpus(&dev->descriptor.bcdUSB);
957 	le16_to_cpus(&dev->descriptor.idVendor);
958 	le16_to_cpus(&dev->descriptor.idProduct);
959 	le16_to_cpus(&dev->descriptor.bcdDevice);
960 	/* only support for one config for now */
961 	err = usb_get_configuration_no(dev, tmpbuf, 0);
962 	if (err < 0) {
963 		printf("usb_new_device: Cannot read configuration, " \
964 		       "skipping device %04x:%04x\n",
965 		       dev->descriptor.idVendor, dev->descriptor.idProduct);
966 		return -1;
967 	}
968 	usb_parse_config(dev, tmpbuf, 0);
969 	usb_set_maxpacket(dev);
970 	/* we set the default configuration here */
971 	if (usb_set_configuration(dev, dev->config.desc.bConfigurationValue)) {
972 		printf("failed to set default configuration " \
973 			"len %d, status %lX\n", dev->act_len, dev->status);
974 		return -1;
975 	}
976 	USB_PRINTF("new device strings: Mfr=%d, Product=%d, SerialNumber=%d\n",
977 		   dev->descriptor.iManufacturer, dev->descriptor.iProduct,
978 		   dev->descriptor.iSerialNumber);
979 	memset(dev->mf, 0, sizeof(dev->mf));
980 	memset(dev->prod, 0, sizeof(dev->prod));
981 	memset(dev->serial, 0, sizeof(dev->serial));
982 	if (dev->descriptor.iManufacturer)
983 		usb_string(dev, dev->descriptor.iManufacturer,
984 			   dev->mf, sizeof(dev->mf));
985 	if (dev->descriptor.iProduct)
986 		usb_string(dev, dev->descriptor.iProduct,
987 			   dev->prod, sizeof(dev->prod));
988 	if (dev->descriptor.iSerialNumber)
989 		usb_string(dev, dev->descriptor.iSerialNumber,
990 			   dev->serial, sizeof(dev->serial));
991 	USB_PRINTF("Manufacturer %s\n", dev->mf);
992 	USB_PRINTF("Product      %s\n", dev->prod);
993 	USB_PRINTF("SerialNumber %s\n", dev->serial);
994 	/* now prode if the device is a hub */
995 	usb_hub_probe(dev, 0);
996 	return 0;
997 }
998 
999 /* EOF */
1000