openbios/fcode-utils/testsuite/TokMisc/ContErr1.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/TokMisc/ContErr1.fth

• \  Another test of cunningly contrived Erroneous Control Constructs.
  \      This one doesn't pass the "Old" tokenizer, even though
  \      it doesn't have the check for Control-Structure matching,
  \      because the way it does its   case .. of .. endof ... endcase
  \      is completely incompatible with the way it does its  if ... then 
  \     
  
  \  Updated Wed, 04 May 2005 at 16:26 by David L. Paktor
  
  fcode-version2
  
  headers
  
  
  \  We can't fake this to the "Old" tokenizer, because
  \      it does its   case .. of .. endof ... endcase
  \      in a way that's completely incompatible with
  \      the way it does its  if ... then
  \  So just test this with the "New".
  
  : garfield
      ." if" if
      ." begin" begin
  	." Question-Leave?" ?leave
  	." 0 if unloop exit then"  0 if unloop exit then
          ." Would you be leave..."  leave
      ." loop?"  loop
     ." Done with garfield"
  ;
  
  : jon
     ." begin" begin
     ." if" if
     ." endof"  endof
     ." again" again
     ." then" then
     ." ouch"
  ;
  
  : nermal
     ." begin noop" begin noop
     ." if" if
     ." endof"  endof
     ." loop"  loop
  ;
  
  : liz-the-vet
     ." No concluding semicolon"
  
  fcode-end
  

Download