/** 
 *  Copyright (C) Tektronix, Inc. 1998 - 2001. All rights reserved.
 *
 *  @see    LGPL
 *  @author Tektronix CTE             @(#) %derived_by: guidod %
 *  @version %version: bln_mpt1!32.84 %
 *    (%date_modified: Tue Jul 09 17:05:18 2002 %)
 *  @description
 *               Initial wordsets loaded at boottime.
 */
/*@{*/

#if defined(__version_control__) && defined(__GNUC__)
static char* id __attribute__((unused)) = 
"@(#) $Id: %full_filespec: pfe-words.c~bln_mpt1!32.84:csrc:bln_12xx!1 % $";
#endif

#define _P4_SOURCE 1

#include <pfe/pfe-base.h>
#include <pfe/def-xtra.h>

extern const p4Words
    P4WORDS(core),	P4WORDS(core_misc),
    P4WORDS(block),	P4WORDS(block_misc),
    P4WORDS(double),	P4WORDS(double_misc),
    P4WORDS(exception), P4WORDS(cdecl),     
    P4WORDS(environ),   P4WORDS(facility),	
    P4WORDS(file),	P4WORDS(file_misc),
    P4WORDS(header),    P4WORDS(locals),
    P4WORDS(memory),	P4WORDS(chainlist),
    P4WORDS(tools),     P4WORDS(tools_misc),
    P4WORDS(search),	P4WORDS(string),
    P4WORDS(forth_83),	P4WORDS(forth_usual),
    P4WORDS(misc),	P4WORDS(debug),
    P4WORDS(shell),	P4WORDS(posix),
    P4WORDS(term),      P4WORDS(dlfcn),
    P4WORDS(signals),   P4WORDS(system),
#if 1 && defined PFE_WITH_SPY
    P4WORDS(with_spy),
#endif
#if 1 && defined _K12_SOURCE
    P4WORDS(host_k12),
#endif
    P4WORDS(useful),    P4WORDS(your);

P4_LISTWORDS(forth) =
{
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ), 
     (, ),
     (, ),
     (, ),
     (, ),
     (, ),
     (, ), 	
     (, ), 
     (, ),
     (, ),
     (, ), 
};    
P4_COUNTWORDS(forth, "Forth Base system");

P4_LISTWORDS(extensions) =
{
     (, ),
     (, ), 	
     (, ), 	
     (, ), 
     (, ),
     (, ),   
     (, ),
#if 1 && defined PFE_WITH_SPY
     (, ),
#endif
#if 1 && defined _K12_SOURCE
     (, ),
#endif
};
P4_COUNTWORDS(extensions, "Extensions To Forth Base System");

/** [ANS] ( -- ) immediate
 * the VOCABULARY that holds only the standardwords.
 * see FORTH for a definition that will search-also point to ANS'
 */

/** FORTH ( -- )
 * in pfe it is not actually a VOCABULARY anymore but 
 * behaves likewise. it will fetch the VALUE from FORTH-WORDLIST 
 * and execute it as if it were a VOCABULARY
 */

/** EXTENSIONS ( -- )
 * in pfe it is not actually a VOCABULARY anymore but 
 * behaves likewise. it will fetch the VALUE from EXTRA-WORDLIST 
 * and execute it as if it were a VOCABULARY
 */

/* --------------------------------------------------------------- *
 * some old cruft
 */

#ifdef P4_MODULES 

#include "lined.h"

void*
p4_lined_executes (void* a)
{
    void* R = PFE.accept_lined.executes;
    PFE.accept_lined.executes = a;
    return R;
}

void* p4_wait_for_stdin (void* a)
{
    void* R = PFE.wait_for_stdin;
    PFE.wait_for_stdin = a;
    return R;
}

#endif /* P4_MODULES */

/*@}*/