openbios/fcode-utils/testsuite/TokMisc/ExtCont.fth

• 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/TokMisc/ExtCont.fth

• \  Test extended-control constructs
  
  \  Updated Tue, 03 May 2005 at 12:40 by David L. Paktor
  
  fcode-version2
  
  headers
  
  \  First, something ordinary
  : goose
     ." begin" begin
     ." 4 until" 4 until
     ." Done with goose"
   ;
   : caboose
      ." begin" begin
      ." 5 while" 5 while
      ." repeat" repeat
     ." Done with caboose"
  ;
  
  : fusbat
     ." begin" begin
     ." 1 while" 1 while
     ." 2 while" 2 while
     ." 3 until" 3 until
     ." 2 then" then ( 2 )
     ." 1 then" then ( 1 )
     ." Done with fusbat"
  ;
  
  fcode-end
  

Download