search wordset

description

-- The Optional Search Order Word Set

Copyright (C) Tektronix, Inc. 1998 - 2001. All rights reserved.

description: The Search Order Word Set as defined by the Standard.

Note that there a some extensions in the Portable Forth Environment. Wordlists can be made case-sensitive always or only at request. Wordlists can be linear or hashed vocabularies. There are other words to recursivly search an implicit vocabulary along with another.

FORTH

DEFINITIONS ( -- )();
p4:"definitions";

make the current context-vocabulary the definition-vocabulary, that is where new names are declared in. see ORDER

dpANS 16.6.1.1180 - standard forth word

FORTH

GET-CURRENT ( -- voc )();
p4:"get-current";

return the current definition vocabulary, see DEFINITIONS

dpANS 16.6.1.1643 - standard forth word

FORTH
GET-ORDER ( -- vocn ... voc1 n )(); 
 ;

get the current search order onto the stack, see SET-ORDER

dpANS 16.6.1.1647 - standard forth word

FORTH
SEARCH-WORDLIST ( str-ptr str-len voc -- 0 | xt 1 | xt -1 )(); 
 ;

almost like FIND or (FIND) -- but searches only the specified vocabulary.

dpANS 16.6.1.2192 - standard forth word

FORTH

SET-CURRENT ( voc -- )();
p4:"set-current";

set the definition-vocabulary. see DEFINITIONS

dpANS 16.6.1.2195 - standard forth word

FORTH
SET-ORDER ( vocn ... voc1 n -- )(); 
 ;

set the search-order -- probably saved beforehand using GET-ORDER

dpANS 16.6.1.2197 - standard forth word

FORTH

WORDLIST ( -- voc )();
p4:"wordlist";

return a new vocabulary-body for private definitions.

dpANS 16.6.1.2460 - standard forth word

FORTH

ALSO ( -- )();
p4:"also";

a DUP on the search ORDER - each named vocabulary replaces the topmost ORDER vocabulary. Using ALSO will make it fixed to the search-order. (but it is not nailed in trap-conditions as if using DEFAULT-ORDER )

 order:   vocn ... voc2 voc1 -- vocn ... voc2 voc1 voc1
 

dpANS 16.6.2.0715 - standard forth word

FORTH

ORDER ( -- )();
p4:"order";

show the current search-order, followed by the CURRENT DEFINITIONS vocabulary and the ONLY base vocabulary

dpANS 16.6.2.1985 - standard forth word

FORTH

PREVIOUS ( -- )();
p4:"previous";

the invers of ALSO , does a DROP on the search ORDER of vocabularies.

 order: vocn ... voc2 voc1 -- vocn ... voc2 
 example: ALSO PRIVATE-VOC DEFINTIONS (...do some...) PREVIOUS DEFINITIONS
 

dpANS 16.6.2.2037 - standard forth word

FORTH
FORTH-WORDLIST ( .. )(); 
 ;

- loader type P4_DVaL FORTH-WORDLIST

forth_wl (no special usage info)

dpANS 16.6.1.1595 - standard forth word

FORTH

DEFAULT-ORDER ( -- )();
p4:"default-order";

nail the current search ORDER so that it will even survive a trap-condition. This default-order can be explicitly loaded with RESET-ORDER

FORTH

RESET-ORDER ( -- )();
p4:"reset-order";

load the DEFAULT-ORDER into the current search ORDER - this is implicitly done when a trap is encountered.

FORTH
RESET-ORDER-IS ( .. )(); 
 ;

threadstate variable RESET-ORDER-IS

reset_order (no special usage info)

ENVIRONMENT
SEARCH-ORDER-EXT ( .. )(); 
 ;
( 1994  )  constant SEARCH-ORDER-EXT

an ordinary constant (no special usage info)

ENVIRONMENT
CHAIN-WORDLISTS ( .. )(); 
 ;
( P4_TRUE  )  constant CHAIN-WORDLISTS

an ordinary constant (no special usage info)

ENVIRONMENT
SEARCH-LOADED ( .. )(); 
 ;

constructor primitive SEARCH-LOADED

an executable word (no special usage info)

or wrapper call around p4_search_init