openbios/fcode-utils/testsuite/TokeErrs/DecodProp.fth

• Show log

  Commit

• Hash : 57ccc1a8
  Author :
  Date : 2006-10-30T16:25:35
  

  update testsuite to 1.0.2 git-svn-id: svn://coreboot.org/openbios/fcode-utils@107 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• testsuite/TokeErrs/DecodProp.fth

• \  Updated Tue, 17 Oct 2006 at 15:32 PDT by David L. Paktor
  
  
  fcode-version2
  
  \  The classic definition, using the return-stack
  [macro] decade-bites  >r over r@ + swap r@ - rot r>
  
  " grubby-nit-picker" device-name
  " bloated lackey of the capitalist toy-mongers"
      encode-bytes " santa-claus"  property
  
  " name" get-my-property if   ." Sorry, Charlie!"
  else
      6 decade-bites ."  Starts with:  "  type
      2drop
  then   cr
  
  
  " santa-claus" get-my-property if   ." Eat flaming death!"
  else
      7 decode-bytes ."  Starts with:  "  type
      2drop
  then   cr
  
  fcode-end
  

Download