openbios/fcode-utils/toke/examples/simple.fs

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

• Show log

  Commit

• Hash : 837b7737
  Author :
  Date : 2006-08-18T09:07:34
  

  moving fcode suite to an extra directory git-svn-id: svn://coreboot.org/openbios/fcode-utils@74 f158a5a8-5612-0410-a976-696ce0be7e32

Download

• toke/examples/simple.fs

• \ this is an fcode test file.
  
  fcode-version2
  
  : gray ( n1 -- n2 )
    dup begin 
      2/ swap over xor swap 
    while repeat  
    ;
    
  : macrotest 
    dup dup >> 1+ 1+ accept 
    ;
    
  \ another comment.
  
  fcode-end
  
  

Download