![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to usb-storage-wrapper.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / usb|
Return to usb-storage-wrapper.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / usb |
1.1 root 1: \ *****************************************************************************
2: \ * Copyright (c) 2004, 2008 IBM Corporation
3: \ * All rights reserved.
4: \ * This program and the accompanying materials
5: \ * are made available under the terms of the BSD License
6: \ * which accompanies this distribution, and is available at
7: \ * http://www.opensource.org/licenses/bsd-license.php
8: \ *
9: \ * Contributors:
10: \ * IBM Corporation - initial implementation
11: \ ****************************************************************************/
12:
13: \ -----------------------------------------------------------
14: \ OF properties
15: \ -----------------------------------------------------------
16:
17: s" scsi" device-name
18: s" block-type" device-type
19: 1 encode-int s" #address-cells" property
20: 0 encode-int s" #size-cells" property
21:
22:
23: : encode-unit 1 hex-encode-unit ;
24:
25: : decode-unit 1 hex-decode-unit ;
26:
27:
28: \ -----------------------------------------------------------
29: \ Specific properties
30: \ -----------------------------------------------------------
31:
32: 1 chars alloc-mem VALUE ch-buffer
33: 8 VALUE mps-dcp
34: 0 VALUE port-number
35: 0 VALUE my-usb-address
36:
37:
38: : control-std-get-maxlun
39: ( MPS fun-addr dir data-buff data-len -- TRUE | FALSE )
40: s" control-std-get-maxlun" $call-parent
41: ;
42:
43:
44: : control-std-get-configuration-descriptor
45: ( data-buffer data-len MPS funcAddr -- TRUE|FALSE )
46: s" control-std-get-configuration-descriptor" $call-parent
47: ;
48:
49: : rw-endpoint
50: ( pt ed-type toggle buffer length mps address -- toggle TRUE|toggle FALSE )
51: s" rw-endpoint" $call-parent
52: ;
53:
54: : controlxfer ( dir addr dlen setup-packet MPS ep-fun -- TRUE|FALSE )
55: s" controlxfer" $call-parent
56: ;
57:
58: : control-std-set-configuration
59: ( configvalue FuncAddr -- TRUE|FALSE )
60: s" control-std-set-configuration" $call-parent
61: ;
62:
63: \ This method is used for extracting the properties from it's parent and
64: \ storing these value to temporary variable so that they can used later.
65:
66: : extract-properties ( -- )
67: s" USB-ADDRESS" get-inherited-property ( prop-addr prop-len FALSE | TRUE )
68: IF
69: s" notpossible" usb-debug-print
70: ELSE
71: decode-int nip nip to my-usb-address
72: THEN
73: s" MPS-DCP" get-inherited-property ( prop-addr prop-len FALSE | TRUE )
74: IF
75: s" MPS-DCP property not found.Assume 8 as MAX PACKET SIZE" usb-debug-print
76: s" for the default control pipe" usb-debug-print
77: 8 to mps-dcp
78: ELSE
79: s" MPS-DCP property found!!" usb-debug-print
80: decode-int nip nip to mps-dcp
81: THEN
82: s" reg" get-inherited-property ( prop-addr prop-len FLASE | TRUE )
83: IF
84: s" notpossible" usb-debug-print
85: ELSE
86: decode-int nip nip to port-number
87: THEN
88: ;
89:
90:
91: \ This method is used for creating the child nodes for every Logical unit
92: \ available in the device, this method will call control-std-get-maxlun for
93: \ for finding the maximum Logical units supported by the device and along with
94: \ the creation of nodes this method encodes the properties of the node also.
95:
96: : create-tree ( -- )
97: mps-dcp my-usb-address 0 ch-buffer 1 ( MPS fun-addr dir data-buff data-len )
98: control-std-get-maxlun ( TRUE | FALSE )
99:
100: \ This method extracts the maximum number of Logical Units Supported by
101: \ the Device . if no Logical Units are present then 0 will be taken as the
102: \ max logical units. if the device doesn't support the GET-MAX-LUN command
103: \ then the device may can be stalled as a temporary fix to come out from
104: \ the stalling situations we can issue the control-std-set-configuration with
105: \ appropriate arguments
106:
107:
108: IF
109: s" GET-MAX-LUN IS WORKING :" usb-debug-print
110: ELSE
111: s" ERROR in GET-MAX-LUN " usb-debug-print
112: THEN
113: ch-buffer c@ 1 + 0 ( max-lun+1 0 )
114: DO
115: s" iManufacturer" get-inherited-property drop ( prop-addr prop-len TRUE )
116: decode-int nip nip ( iManu )
117: s" iProduct" get-inherited-property drop
118: ( iManu prop-addr prop-len TRUE | FALSE )
119: decode-int nip nip ( iManu iProd )
120: s" iSerialNumber" get-inherited-property drop
121: ( iManu iProd prop-addr prop-len TRUE | FALSE )
122: decode-int nip nip ( iManu iProd iSerNum )
123: s" MPS-BULKOUT" get-inherited-property drop
124: ( iManu iProd iSerNum prop-len prop-addr TRUE | FALSE )
125: decode-int nip nip ( iManu iProd iSerNum MPS-BULKOUT )
126: s" BULK-OUT-EP-ADDR" get-inherited-property drop
127: ( iManu iProd iSerNum MPS-BULKOUT prop-addr prop-len TRUE|FALSE )
128: decode-int nip nip ( iManu iProd iSerNum MPS-BULKOUT BULK-OUT-EP-ADDR )
129: s" MPS-BULKIN" get-inherited-property drop
130: ( iManu iProd iSerNum MPS-BULKOUT BULK-OUT-EP-ADDR prop-addr prop-len
131: TRUE | FALSE )
132: decode-int nip nip
133: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN )
134: s" BULK-IN-EP-ADDR" get-inherited-property drop
135: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN prop-addr
136: prop-len TRUE | FALSE )
137: decode-int nip nip
138: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
139: BULKIN-EP-ADDR )
140: mps-dcp port-number my-usb-address I
141: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
142: BULKIN-EP-ADDR mps-dcp port-address my-usb-address lun-number )
143: new-device
144:
145: \ creates new device child node, doesn't consume any argument from stack
146:
147: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
148: BULKIN-EP-ADDR mps-dcp port-address my-usb-address lun-number )
149:
150: set-space
151: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
152: BULKIN-EP-ADDR mps-dcp port-number my-usb-address )
153: encode-int s" USB-ADDRESS" property
154: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
155: BULKIN-EP-ADDR mps-dcp port-number )
156: encode-int s" reg" property
157: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN )
158: ( BULKIN-EP-ADDR mps-dcp port-number )
159: encode-int s" MPS-DCP" property
160: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
161: BULKIN-EP-ADDR )
162: I encode-int s" LUN" property
163: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN
164: BULKIN-EP-ADDR )
165: encode-int s" BULK-IN-EP-ADDR" property
166: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR MPS-BULKIN )
167: encode-int s" MPS-BULKIN" property
168: ( iManu iProd iSernum MPS-BULKOUT BULK-OUT-EP-ADDR )
169: encode-int s" BULK-OUT-EP-ADDR" property
170: ( iManu iProd iSernum MPS-BULKOUT )
171: encode-int s" MPS-BULKOUT" property ( iManu iProd iSerNum )
172: encode-int s" iSerialNumber" property ( iManu iProd )
173: encode-int s" iProduct" property ( iManu )
174: encode-int s" iManufacturer" property ( -- )
175: s" usb-storage.fs" INCLUDED
176: finish-device
177: LOOP
178: ;
179:
180: extract-properties \ Extract the properties from parent
181: create-tree \ this method creates the node for every lun with properties
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.