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

• \  Obvious pun intended...
  \   Updated Tue, 19 Apr 2005 at 17:28 by David L. Paktor
  
  fcode-version2
  
  headers
  
  char G emit
  control G emit
  control [ emit
  : bell
      [char] G dup
      control G 3drop
  ;
  
  : factl recursive  ( n -- n! )
      ?dup 0= if 1
      else  dup 1- * factl
      then
  ;
  
  : factl ( n -- n! )
      ?dup 0= if 1 factl
      else  dup 1- recurse *
      then
  ;
  
  variable naught
  defer  do-nothing
  20 value twenty
  30 value thirty
  40 buffer: forty
  50 constant fifty
  create three 0 , 00 , h# 000 ,
  struct
  4 field >four
  constant /four
  
  : peril
      ['] noop is  do-nothing
      100 is thirty
      5 is naught
  ;
  
  : thirty ( new-val -- )
      dup to thirty
  	alias .dec .d		\  Should this be allowed?
      ." Dirty"  .dec
  ;
  
  : droop ( -- )
      twenty
      tokenizer[
  	alias .x .h		\  Should this generate a warning?
      ]tokenizer
      0 ?do i .x loop
  ;
  : ploop ( -- )
      fifty  0 do i drop 2 +loop
  ;
  
  fcode-end
  
  
  
  

Download