Author: wmb Date: 2009-12-08 07:21:21 +0100 (Tue, 08 Dec 2009) New Revision: 1549
Added: cpu/x86/pc/olpc/via/factory.fth cpu/x86/pc/olpc/via/leds.fth cpu/x86/pc/olpc/via/switches.fth Log: More changes to support OLPC manufacturing tests.
Added: cpu/x86/pc/olpc/via/factory.fth =================================================================== --- cpu/x86/pc/olpc/via/factory.fth (rev 0) +++ cpu/x86/pc/olpc/via/factory.fth 2009-12-08 06:21:21 UTC (rev 1549) @@ -0,0 +1,122 @@ +\ See license at end of file +purpose: Factory test mode definitions + +0 value test-station +: smt-test? ( -- ) test-station 1 = ; +: final-test? ( -- ) test-station 5 = ; +: decode-ts ( adr len -- station# ) + 2dup " SMT" $= if 2drop 1 exit then + 2dup " ASSY" $= if 2drop 2 exit then + 2dup " DL" $= if 2drop 3 exit then + 2dup " RUNIN" $= if 2drop 4 exit then + 2dup " FINAL" $= if 2drop 5 exit then + 2dup " SHIP" $= if 2drop 6 exit then + 2dup " FQA" $= if 2drop 7 exit then + ." Unknown value in TS tag" cr + 2drop 0 +; +: set-test-station ( -- ) + " TS" find-tag if ( adr len ) + ?-null ( name$ ) + decode-ts ( station# ) + else ( ) + ." Missing TS tag" cr + \ Missing TS tag is treated as not factory mode + 0 ( station# ) + then ( station# ) + to test-station +; + +: set-boot-device ( -- ) + " BD" find-tag if ( adr len ) + ?-null + to boot-device + then +; + +0 0 2value factory-server$ +: set-factory-server ( -- ) + " MS" find-tag if ( adr len ) + ?-null + to factory-server$ + then +; + +0 value cifs-ih +d# 256 buffer: tempname-buf +: tempname$ ( -- adr len ) tempname-buf count ; +: $call-cifs ( ?? -- ?? ) cifs-ih $call-method ; + +: cifs-write ( adr len -- ) " write" $call-cifs drop ; + +: cifs-connect ( -- ) + factory-server$ open-dev to cifs-ih + cifs-ih 0= abort" Cannot open SMB share" +; +: cifs-disconnect ( -- ) + cifs-ih if cifs-ih close-dev 0 to cifs-ih then +; + +: open-temp-file ( filename$ -- ) + tempname-buf place + + tempname$ " $create" $call-cifs abort" Cannot open temp file" + cifs-ih 0= abort" Can't open temp file on manufacturing server" +; + +: put-key-line ( $ -- ) cifs-write " "r"n" cifs-write ; +: put-key+value ( value$ key$ -- ) cifs-write put-key-line ; +: submit-file ( subdir$ -- ) + " flush" $call-cifs abort" CIFS flush failed" + " close-file" $call-cifs abort" CIFS close-file failed" + tempname$ 2swap " %s\%s" sprintf ( new-name$ ) + tempname$ 2swap " $rename" $call-cifs abort" CIFS rename failed" +; +: get-response ( subdir$ -- adr len ) + tempname$ 2swap " %s\%s" sprintf ( response-name$ ) + d# 10 0 do ( response-name$ ) + d# 1000 ms ( response-name$ ) + 2dup 0 " open-file" $call-cifs 0= if ( response-name$ ) + 2drop ( ) + " size" $call-cifs ( d.size ) + abort" Size is > 4 GB" ( size ) + dup alloc-mem swap ( adr len ) +\ 0. " seek" $call-cifs drop ( adr len ) + 2dup " read" $call-cifs ( adr len actual ) + over <> abort" CIFS read of response file filed" + unloop exit + then + loop ( response-name$ ) + 2drop ( ) + true abort" Server did not respond with 10 seconds" +; + +stand-init: + set-boot-device + set-test-station + set-factory-server +; + +\ LICENSE_BEGIN +\ Copyright (c) 2009 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/olpc/via/leds.fth =================================================================== --- cpu/x86/pc/olpc/via/leds.fth (rev 0) +++ cpu/x86/pc/olpc/via/leds.fth 2009-12-08 06:21:21 UTC (rev 1549) @@ -0,0 +1,43 @@ +\ See license at end of file +purpose: Driver/selftest for OLPC XO-1.5 LEDs + +0 0 " 0" " /" begin-package +" leds" device-name +: open ( -- okay? ) true ; +: close ( -- ) ; +: gpio-lo ( mask -- ) h# 4c acpi-l@ swap invert and h# 4c acpi-l! ; +: gpio-hi ( mask -- ) h# 4c acpi-l@ swap or h# 4c acpi-l! ; +: hdd-led-on ( -- ) h# 400000 gpio-lo ; +: hdd-led-off ( -- ) h# 400000 gpio-hi ; +: selftest ( -- ) + ." Flashing LEDs" cr + " /wlan" test-dev + d# 10 0 do hdd-led-on d# 100 ms hdd-led-off d# 100 ms loop + confirm-selftest? +; + +end-package + +\ LICENSE_BEGIN +\ Copyright (c) 2009 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END
Added: cpu/x86/pc/olpc/via/switches.fth =================================================================== --- cpu/x86/pc/olpc/via/switches.fth (rev 0) +++ cpu/x86/pc/olpc/via/switches.fth 2009-12-08 06:21:21 UTC (rev 1549) @@ -0,0 +1,62 @@ +\ See license at end of file +purpose: Driver/selftest for OLPC lid and ebook switches + +0 0 " 0" " /" begin-package +" switches" device-name +: open ( -- okay? ) true ; +: close ( -- ) ; +: lid? ( -- flag ) h# 48 acpi-l@ h# 80 and 0= ; +: ebook? ( -- flag ) h# 48 acpi-l@ h# 200 and 0= ; + +: ?key-abort ( -- ) key? if key esc = abort" Aborted" then ; +: wait-not-lid ( -- ) + ." Deactivate lid switch" cr + begin ?key-abort lid? 0= until +; +: wait-lid ( -- ) + ." Activate lid switch" cr + begin ?key-abort lid? until +; +: wait-not-ebook ( -- ) + ." Deactivate ebook switch" cr + begin ?key-abort ebook? 0= until +; +: wait-ebook ( -- ) + ." Activate ebook switch" cr + begin ?key-abort ebook? until +; + +: all-switch-states ( -- ) + lid? if wait-not-lid else wait-lid then + ebook? if wait-not-ebook else wait-ebook then +; + +: selftest ( -- error? ) + ['] all-switch-states catch +; + +end-package + +\ LICENSE_BEGIN +\ Copyright (c) 2009 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END