openbios/openboot/obp/fm/lib/seechain.fth

• Show log

  Commit

• Hash : 1a08f436
  Author :
  Date : 2010-08-25T09:23:17
  

  change to well-formed svn directory structure. git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb

Download

• obp/fm/lib/seechain.fth

• \ seechain.fth 2.7 95/04/19
  \ Copyright 1985-1990 Bradley Forthware
  
  \ Recursively decompile initialization chains.
  \
  \ (see-chain)   ( acf -- )
  \ see-chain  \ name  ( -- )
  
  only forth also hidden also forth definitions
  headers
  : (see-chain)  ( acf -- )
     dup definer ['] defer =  if  behavior  then  ( acf )
     begin                                        ( acf )
        dup  definer  ['] :  =  exit? 0=  and     ( acf cont? )
     while                                        ( acf )
         dup .x dup (see) >body                   ( apf )
         dup token@ dup ['] (") =  if             ( apf acf' )
            drop ta1+ +str token@                 ( acf" )
         else                                     ( apf acf' )
            nip                                   ( acf' )
         then                                     ( acf"|acf' )
     repeat                                       ( acf"|acf' )
     drop                                         (  )
  ;
  : see-chain  \ name  ( -- )
     '  ['] (see-chain)  catch  if  drop  then
  ;
  
  only forth also definitions
  

Download