openbios/openboot/obp/fm/lib/needs.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/needs.fth

• \ needs.fth 2.5 94/11/15
  \ Copyright 1985-1994 Bradley Forthware
  
  \ Implements needs and \needs.  These work as follows:
  \
  \ needs foo tools.fth
  \
  \ If foo is not defined, the file tools.fth will be loaded, which should
  \ define foo.  If foo is already defined, nothing will happen.
  \
  \ \needs foo <arbitrary Forth commands>
  \
  \ If foo is not defined, the rest of the line is executed, else it is ignored
  
  : needs  \ wordname filename  ( -- )
     safe-parse-word $canonical $find  if  ( cfa +-1 )
        drop  safe-parse-word 2drop
     else
        2drop safe-parse-word included
     then
  ;
  : \needs ( -- ) ( Input Stream: desired-word  more-forth-commands )
     safe-parse-word $canonical $find  if  ( cfa +-1 )
        drop  postpone \
     else                                  ( adr len )
        2drop
     then
  ;
  

Download