openbios/fcode-utils/testsuite/TokCondl/TokConstCondTst02.fth

Branch - branch -master- tag -v1.0.3v1.0.2v1.0.1v1.0.0

• Show log

  Commit

• Hash : acf5213f
  Author :
  Date : 2006-10-14T20:31:53
  

  testsuite 1.0.0 git-svn-id: svn://coreboot.org/openbios/fcode-utils@91 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokCondl/TokConstCondTst02.fth

• \  Common code (insert obligatory sneeze here)
  \      for second Nested "Constant" Conditionals test
  
  \  Updated Wed, 29 Jun 2005 at 13:41 by David L. Paktor
  
  \  File that FLOADs this has already put TRUE or FALSE on the stack.
  
  f[  constant  boobalah? f]
  
  : whatziz
      ." This is the "
      f[ boobalah? [if] f] ." True "  f[  [else]  f] ." False"  f[  [then]  f]
      ."  side of the test." cr
  ;
  headers
  
  : tell-me
      ." Begin Nested ""Constant"" Test Test"
      f[ boobalah? f] [if]
      [message]  The TRUE path has wisely been chosen, Boobalah!
         ." Is True, level 1"
         f[ boobalah? f] [if]
  	   " Is True and is True, level 2"
         [else]
  	   " Is True but is Not True.  What?"
         [then]
         ." Middle of level 2"
         f[ boobalah? 0= f] [if]
  	   " Is True and is False.  What?"
         [else]
  	   " Is True and is Not False, level 2"
         [then]
      [else]
      [message]  Oy, Boobalah.  You have foolishly chosen the FALSE path.
         ." Is Not True, level 1"
         f[ boobalah? f] [if]
  	   " Is Not True but is True.  What?"
         [else]
  	   " Is Not True and is Not True, level 2"
         [then]
         ." Middle of Not level 2"
         f[ boobalah? 0= f] [if]
  	   " Is Not True and is False, level 2"
         [else]
  	   " Is Not True and is Not False.  What?"
         [then]
      [then]
  ;
  
  : whoozis  whatziz  ;
  
  
  

Download