openbios/fcode-utils/testsuite/TokeErrs/UserMacroErrors.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/TokeErrs/UserMacroErrors.fth

• \  Test Error-catching for user-defined macros and other new features.
  \  Including: erroneous attempt at recursive macro invocation...
  \  Updated Tue, 17 Jan 2006 at 11:25 PST by David L. Paktor
  
  global-definitions
  
  [macro] lookma
  [macro]
  [macro] lookpa  .( Hey, Pa!  Hands! HaHa! ) 
  [macro] heylookmeover  .( What's clover?)  \  It's money, honey!
  [macro] lookout .( Look out, look out look out! 
  [macro] f[looknoquote  f[ ." I forgot
  #message  Are you ready?
  alias foop dup
  overload [macro] dup  #message" Faking a DUP here"  foop
  
  device-definitions
  
  fcode-version2
  headers
  
  lookpa
  heylookmeover
  lookpa
  
  lookout
  f[looknoquote ]f
  
  : whatzit
     heylookmeover
     dup
     to heylookmeover
     dup
     to 2+
  ;
  
     a#
  
  #message  Here comes a little bit of macro recursion.
  [macro] foop  #message" It's a call to dup, but which one?"  dup
  
  : now-what?
      #message  Don't try this at home, kids...
      dup
  ;
  
  fcode-end
  

Download