Changeset 3555

Timestamp:

Feb 14, 2013 6:01:19 AM (3 months ago)

Author:

quozl

Message:

OLPC - startup sound. Avoid searching jffs2 filesystem on XO-1 because mounting it takes a long time. Avoid checking for file existence; just try and if we fail, fallback to the built-in sound. Avoids one microSD or eMMC power cycle from boot on XO-1.5, XO-1.75, and XO-4 when the startup sound is present.

File:

• cpu/x86/pc/olpc/sound.fth (modified) (2 diffs)

cpu/x86/pc/olpc/sound.fth

@@ -29 +29 @@
 : louder  ( -- )   2 +volume  ;
 
-" int:\boot\jingle.wav"  d# 128 config-string jingle
-: sound-name$  ( -- adr len )
-   jingle $file-exists?  if
-      jingle
-   else
-      " rom:splash"
-   then
+: sound-int?  ( -- error? )
+   " int:\boot\jingle.wav" ['] $play-wav catch  dup if nip nip then
+;
+
+: sound-rom?  ( -- error? )
+   " rom:splash" ['] $play-wav catch  dup if nip nip then
+;
+
+: (sound)
+   [ifdef] jffs2-support
+   sound-rom?  drop  \ jffs2 is very slow to mount
+   [else]
+   sound-int?  if  sound-rom?  drop  then
+   [then]
 ;
 
@@ -43 +50 @@
    ['] load-started behavior  >r
    ['] noop to load-started
-   sound-name$ ['] $play-wav catch  if  2drop  then
+   (sound)
    r> to load-started
    r> to playback-volume