Compatiblity with former standards, miscellaneous useful words.
ok
0
1
2
3
CSP
!CSP ( -- )
?CSP ( -- )
COLD ( -- )
((LIT)) ( -- value )
.LINE ( line# block# -- )
?COMP ( -- )
?EXEC ( -- )
?FILE ( file-id -- )
?LOADING ( -- )
?PAIRS ( a b -- )
?STACK ( -- )
TOGGLE ( c-addr charmask -- )
LATEST ( -- nfa )
SMUDGE (modified from FIG definition)
UNSMUDGE (turn smudge-bit off)
OUT
DP
HLD
R0
S0
UD.R ( 2val r -- )
UD. ( 2val -- )
.NAME ( nfa -- )
-ROLL ( xn ... x2 x1 n -- x1 xn ... x2 )
R>DROP ( -- )
DUP>R ( val -- val )
RANDOM ( n1 -- n2 )
SRAND ( n -- )
UNDER+
+TO name ( val -- )
BUILD-ARRAY ( n1 n2 ... nX X --- n )
ACCESS-ARRAY
0<= ( a -- flag )
0>=
<= ( a b -- flag )
>= ( a b -- flag )
U<= ( a b -- flag )
U>= ( a b -- flag )
UMIN ( a b -- min )
UMAX ( a b -- max )
EXCEPTION_MAGIC
INPUT_MAGIC
DEST_MAGIC
ORIG_MAGIC
LOOP_MAGIC
CASE_MAGIC
OF_MAGIC
FLIT
F0
FLOAT-INPUT
FP@ ( -- addr )
FP! ( addr -- )
SHOW-STATUS ( -- )
LOWER-CASE
LOWER-CASE-FN
REDEFINED-MSG
APPLICATION
SOURCE-LINE ( -- n )
POCKET ( n -- addr u )
W@ ( addr -- w-val )
W! ( w-val addr -- )
W+! ( w-val addr -- )
WL-HASH ( c-addr n1 -- n2 )
TOPMOST ( wid -- a-addr )
LAST
LS.WORDS ( -- )
LS.PRIMITIVES ( -- )
LS.COLON-DEFS ( -- )
LS.DOES-DEFS ( -- )
LS.CONSTANTS ( -- )
LS.VARIABLES ( -- )
LS.VOCABULARIES ( -- )
LS.MARKERS ( -- )
(FORGET) ( addr -- )
TAB ( n -- )
BACKSPACE ( -- )
?STOP ( -- flag )
START?CR ( -- )
?CR ( -- flag )
CLOSE-ALL-FILES ( -- )
.MEMORY ( -- )
.VERSION ( -- )
.PFE-DATE ( -- )
LICENSE ( -- )
WARRANTY ( -- )
*EMIT*
*EXPECT*
*KEY*
*TYPE*
(EMIT) ( val -- )
(EXPECT) ( . -- . )
(KEY) ( -- ... )
(TYPE) ( val -- )
STANDARD-I/O ( -- )
HELP ( -- )
COPY-FILE ( src-str src-strlen dst-str dst-strlen -- errno|0 )
MOVE-FILE ( src-str src-strlen dst-str dst-strlen -- errno|0 )
FILE-R/W ( addr blk f fid -- )
BLOCK-FILE
FILE-BLOCK ( a file-id -- c )
FILE-BUFFER ( a file-id -- c )
FILE-EMPTY-BUFFERS ( file-id -- )
FILE-FLUSH ( file-id -- )
FILE-LIST ( x file-id -- )
FILE-LOAD ( x file-id -- )
FILE-SAVE-BUFFERS ( file-id -- )
FILE-THRU ( lo hi file-id -- )
FILE-UPDATE ( file-id -- )
ARGC ( -- n )
ARGV ( n -- addr u )
EXITCODE
STDIN
STDOUT
STDERR
EXPAND-FN ( addr1 u1 addr2 -- addr2 cnt2 )
USING filename ( -- )
USING-NEW filename ( -- )
LOAD" filename" ( -- ?
SYSTEM ( addr u -- ret-val )
SYSTEM" commandline" ( -- ret-val )
INCLUDE filename ( -- ? )
RAISE ( n -- )
SIGNAL ( xt1 n -- xt2 )
EXECUTES word ( n -- )
HEADER ( bstring -- )
ok
reference: p4_ok in ../src/misc.c:1280, export CO ok
0
reference: 0 in ../src/misc.c:1282, export OC 0
1
reference: 1 in ../src/misc.c:1283, export OC 1
2
reference: 2 in ../src/misc.c:1284, export OC 2
3
reference: 3 in ../src/misc.c:1285, export OC 3
CSP
!CSP
reference: csp in ../src/misc.c:1287, export DV CSP
!CSP ( -- )
SP
CSP
reference: p4_store_csp in ../src/misc.c:0073, export CO !CSP
?CSP ( -- )
SP
CSP
THROW
reference: p4_Q_csp in ../src/misc.c:0083, export CO ?CSP
COLD ( -- )
cold abort - reinitialize everything and go to => QUIT routine
reference: p4_cold in ../src/misc.c:0045, export CO COLD
((LIT)) ( -- value )
LITERAL
reference: p4_literal_execution in ../src/core.c:1384, export CO LIT
.LINE ( line# block# -- )
reference: p4_dot_line in ../src/misc.c:0062, export CO .LINE
?COMP ( -- )
STATE
THROW
reference: p4_Q_comp in ../src/misc.c:0094, export CO ?COMP
?EXEC ( -- )
STATE
THROW
reference: p4_Q_exec in ../src/misc.c:0105, export CO ?EXEC
?FILE ( file-id -- )
reference: p4_Q_file in ../src/misc.c:0114, export CO ?FILE
?LOADING ( -- )
THROW
reference: p4_Q_loading in ../src/misc.c:0126, export CO ?LOADING
?PAIRS ( a b -- )
CS-STACK
reference: p4_Q_pairs in ../src/misc.c:0137, export CO ?PAIRS
?STACK ( -- )
THROW
reference: p4_Q_stack in ../src/misc.c:0147, export CO ?STACK
TOGGLE ( c-addr charmask -- )
SMUDGE
example: the fig-style SMUDGE had been defined such : FIG-SMUDGE LATEST >FFA (SMUDGE#) TOGGLE ;
reference: p4_toggle in ../src/misc.c:0165, export CO TOGGLE
LATEST ( -- nfa )
CURRENT
reference: p4_latest in ../src/misc.c:0175, export CO LATEST
SMUDGE (modified from FIG definition)
reference: p4_smudge in ../src/misc.c:0183, export CO SMUDGE
UNSMUDGE (turn smudge-bit off)
SMUDGE
reference: p4_unsmudge in ../src/misc.c:0194, export CO UNSMUDGE
OUT
OUT
DP
HLD
R0
S0
reference: out in ../src/misc.c:1305, export DV OUT
DP
OUT
DP
HLD
R0
S0
reference: dp in ../src/misc.c:1306, export DV DP
HLD
OUT
DP
HLD
R0
S0
reference: hld in ../src/misc.c:1307, export DV HLD
R0
OUT
DP
HLD
R0
S0
reference: r0 in ../src/misc.c:1308, export DV R0
S0
OUT
DP
HLD
R0
S0
reference: s0 in ../src/misc.c:1309, export DV S0
UD.R ( 2val r -- )
reference: p4_u_d_dot_r in ../src/misc.c:0208, export CO UD.R
UD. ( 2val -- )
UD.R
reference: p4_u_d_dot in ../src/misc.c:0222, export CO UD.
.NAME ( nfa -- )
: .NAME COUNT 32 AND TYPE ;if the name-field and flag-field are different, then this word does effectivly
: .NAME COUNT TYPE ;
reference: p4_dot_name in ../src/misc.c:0239, export CO .NAME
-ROLL ( xn ... x2 x1 n -- x1 xn ... x2 )
ROLL
reference: p4_dash_roll in ../src/misc.c:0247, export CO -ROLL
R>DROP ( -- )
: R>DROP R> DROP ;would be wrong - for a non-direct-threaded forth it would be
: R>DROP R> R> NIP >R ;
reference: p4_r_from_drop in ../src/misc.c:0265, export CO R>DROP
DUP>R ( val -- val )
R>DROP
: DUP>R DUP >R ;
reference: p4_dup_to_r in ../src/misc.c:0275, export CO DUP>R
RANDOM ( n1 -- n2 )
reference: p4_random in ../src/misc.c:0292, export CO RANDOM
SRAND ( n -- )
reference: p4_srand in ../src/misc.c:0304, export CO SRAND
UNDER+
no forth documentation available (p4_under_plus)
reference: p4_under_plus in ../src/misc.c:0316, export CO UNDER+
+TO name ( val -- )
VALUE
LOCALS|
reference: p4_plus_to in ../src/misc.c:0346, export CS +TO
BUILD-ARRAY ( n1 n2 ... nX X --- n )
reference: p4_build_array in ../src/misc.c:0387, export CO BUILD-ARRAY
ACCESS-ARRAY
no forth documentation available (p4_access_array)
reference: p4_access_array in ../src/misc.c:0403, export CO ACCESS-ARRAY
0<= ( a -- flag )
simulate : 0<= 0> 0= ;
reference: p4_zero_less_equal in ../src/misc.c:0428, export CO 0<=
0>=
no forth documentation available (p4_zero_greater_equal)
reference: p4_zero_greater_equal in ../src/misc.c:0436, export CO 0>=
<= ( a b -- flag )
simulate : <= > 0= ;
reference: p4_less_equal in ../src/misc.c:0444, export CO <=
>= ( a b -- flag )
simulate : >= < 0= ;
reference: p4_greater_equal in ../src/misc.c:0453, export CO >=
U<= ( a b -- flag )
simulate : U<= U> 0= ;
reference: p4_u_less_equal in ../src/misc.c:0462, export CO U<=
U>= ( a b -- flag )
simulate : U>= U< 0= ;
reference: p4_u_greater_equal in ../src/misc.c:0471, export CO U>=
UMIN ( a b -- min )
MIN
MAX
UMAX
reference: p4_u_min in ../src/misc.c:0490, export CO UMIN
UMAX ( a b -- max )
MAX
reference: p4_u_max in ../src/misc.c:0480, export CO UMAX
EXCEPTION_MAGIC
reference: EXCEPTION_MAGIC in ../src/misc.c:1339, export OC EXCEPTION_MAGIC
INPUT_MAGIC
reference: INPUT_MAGIC in ../src/misc.c:1340, export OC INPUT_MAGIC
DEST_MAGIC
reference: DEST_MAGIC in ../src/misc.c:1341, export OC DEST_MAGIC
ORIG_MAGIC
reference: ORIG_MAGIC in ../src/misc.c:1342, export OC ORIG_MAGIC
LOOP_MAGIC
reference: LOOP_MAGIC in ../src/misc.c:1343, export OC LOOP_MAGIC
CASE_MAGIC
reference: CASE_MAGIC in ../src/misc.c:1344, export OC CASE_MAGIC
OF_MAGIC
reference: OF_MAGIC in ../src/misc.c:1345, export OC OF_MAGIC
FLIT
reference: p4_f_literal_execution in ../src/floating.c:0384, export CO FLIT
F0
reference: f0 in ../src/misc.c:1349, export DV F0
FLOAT-INPUT
reference: float_input in ../src/misc.c:1350, export DV FLOAT-INPUT
FP@ ( -- addr )
reference: p4_f_p_fetch in ../src/misc.c:0505, export CO FP@
FP! ( addr -- )
FP@
reference: p4_f_p_store in ../src/misc.c:0514, export CO FP!
SHOW-STATUS ( -- )
reference: p4_show_status in ../src/misc.c:0772, export CO SHOW-STATUS
LOWER-CASE
LOWER-CASE
LOWER-CASE-FN
reference: wordl_flag in ../src/misc.c:1356, export DV LOWER-CASE
LOWER-CASE-FN
LOWER-CASE
LOWER-CASE-FN
reference: lower_case_fn in ../src/misc.c:1357, export DV LOWER-CASE-FN
REDEFINED-MSG
ORDER
reference: redefined_msg in ../src/misc.c:1359, export DV REDEFINED-MSG
APPLICATION
ARGC
ARGV
reference: application in ../src/misc.c:1361, export DV APPLICATION
SOURCE-LINE ( -- n )
SOURCE
EVALUATE
QUERY
reference: p4_source_line in ../src/misc.c:0525, export CO SOURCE-LINE
POCKET ( n -- addr u )
S"
reference: p4_pocket in ../src/misc.c:0544, export CO POCKET
W@ ( addr -- w-val )
reference: p4_w_fetch in ../src/misc.c:0630, export CO W@
W! ( w-val addr -- )
reference: p4_w_store in ../src/misc.c:0638, export CO W!
W+! ( w-val addr -- )
reference: p4_w_plus_store in ../src/misc.c:0647, export CO W+!
WL-HASH ( c-addr n1 -- n2 )
reference: p4_wl_hash in ../src/misc.c:0557, export CO WL-HASH
TOPMOST ( wid -- a-addr )
reference: p4_topmost in ../src/misc.c:0566, export CO TOPMOST
LAST
LATEST
reference: last in ../src/misc.c:1372, export DV LAST
LS.WORDS ( -- )
WORDS
reference: p4_ls_words in ../src/misc.c:0588, export CO LS.WORDS
LS.PRIMITIVES ( -- )
WORDS
reference: p4_ls_primitives in ../src/misc.c:0593, export CO LS.PRIMITIVES
LS.COLON-DEFS ( -- )
WORDS
reference: p4_ls_cdefs in ../src/misc.c:0598, export CO LS.COLON-DEFS
LS.DOES-DEFS ( -- )
WORDS
reference: p4_ls_ddefs in ../src/misc.c:0603, export CO LS.DOES-DEFS
LS.CONSTANTS ( -- )
WORDS
reference: p4_ls_constants in ../src/misc.c:0608, export CO LS.CONSTANTS
LS.VARIABLES ( -- )
WORDS
reference: p4_ls_variables in ../src/misc.c:0613, export CO LS.VARIABLES
LS.VOCABULARIES ( -- )
WORDS
reference: p4_ls_vocabularies in ../src/misc.c:0618, export CO LS.VOCABULARIES
LS.MARKERS ( -- )
WORDS
reference: p4_ls_markers in ../src/misc.c:0623, export CO LS.MARKERS
(FORGET) ( addr -- )
FORGET
reference: p4_paren_forget in ../src/misc.c:0657, export CO (FORGET)
TAB ( n -- )
reference: p4_tab in ../src/misc.c:0665, export CO TAB
BACKSPACE ( -- )
SPACE
reference: p4_backspace in ../src/misc.c:0673, export CO BACKSPACE
?STOP ( -- flag )
?CR
reference: p4_Q_stop in ../src/misc.c:0682, export CO ?STOP
START?CR ( -- )
?CR
reference: p4_start_Q_cr in ../src/misc.c:0691, export CO START?CR
?CR ( -- flag )
CR
START?CR
reference: p4_Q_cr in ../src/misc.c:0700, export CO ?CR
CLOSE-ALL-FILES ( -- )
reference: p4_close_all_files in ../src/misc.c:0707, export CO CLOSE-ALL-FILES
.MEMORY ( -- )
reference: p4_dot_memory in ../src/misc.c:0726, export CO .MEMORY
.VERSION ( -- )
reference: p4_dot_version in ../src/misc.c:0742, export CO .VERSION
.PFE-DATE ( -- )
reference: p4_dot_date in ../src/misc.c:0749, export CO .PFE-DATE
LICENSE ( -- )
reference: p4_license in ../src/misc.c:0757, export CO LICENSE
WARRANTY ( -- )
reference: p4_warranty in ../src/misc.c:0764, export CO WARRANTY
*EMIT*
STANDARD-I/O
reference: emit in ../src/misc.c:1397, export DV *EMIT*
*EXPECT*
STANDARD-I/O
reference: expect in ../src/misc.c:1398, export DV *EXPECT*
*KEY*
STANDARD-I/O
reference: key in ../src/misc.c:1399, export DV *KEY*
*TYPE*
STANDARD-I/O
reference: type in ../src/misc.c:1400, export DV *TYPE*
(EMIT) ( val -- )
EMIT
*EMIT*
reference: p4_paren_emit in ../src/misc.c:0814, export CO (EMIT)
(EXPECT) ( . -- . )
EXPECT
*EXPECT*
reference: p4_paren_expect in ../src/misc.c:0823, export CO (EXPECT)
(KEY) ( -- ... )
KEY
*KEY*
reference: p4_paren_key in ../src/misc.c:0833, export CO (KEY)
(TYPE) ( val -- )
TYPE
*TYPE*
reference: p4_paren_type in ../src/misc.c:0847, export CO (TYPE)
STANDARD-I/O ( -- )
*TYPE*
*EMIT*
*EXPECT*
*KEY*
(TYPE)
(EMIT)
(EXPECT)
(KEY)
reference: p4_standard_io in ../src/misc.c:0858, export CO STANDARD-I/O
HELP ( -- )
reference: p4_help in ../src/misc.c:0926, export CO HELP
COPY-FILE ( src-str src-strlen dst-str dst-strlen -- errno|0 )
RENAME-FILE
reference: p4_copy_file in ../src/misc.c:0948, export CO COPY-FILE
MOVE-FILE ( src-str src-strlen dst-str dst-strlen -- errno|0 )
RENAME-FILE
reference: p4_move_file in ../src/misc.c:0963, export CO MOVE-FILE
FILE-R/W ( addr blk f fid -- )
R/W
reference: p4_file_rw in ../src/misc.c:0976, export CO FILE-R/W
BLOCK-FILE
USING
reference: input.block_file in ../src/misc.c:1415, export DC BLOCK-FILE
FILE-BLOCK ( a file-id -- c )
reference: p4_file_block in ../src/misc.c:0987, export CO FILE-BLOCK
FILE-BUFFER ( a file-id -- c )
reference: p4_file_buffer in ../src/misc.c:0996, export CO FILE-BUFFER
FILE-EMPTY-BUFFERS ( file-id -- )
reference: p4_file_empty_buffers in ../src/misc.c:1006, export CO FILE-EMPTY-BUFFERS
FILE-FLUSH ( file-id -- )
simulate : FILE-FLUSH DUP FILE-SAVE-BUFFERS FILE-EMTPY-BUFFERS ;
reference: p4_file_flush in ../src/misc.c:1014, export CO FILE-FLUSH
FILE-LIST ( x file-id -- )
reference: p4_file_list in ../src/misc.c:1024, export CO FILE-LIST
FILE-LOAD ( x file-id -- )
reference: p4_file_load in ../src/misc.c:1033, export CO FILE-LOAD
FILE-SAVE-BUFFERS ( file-id -- )
reference: p4_file_save_buffers in ../src/misc.c:1042, export CO FILE-SAVE-BUFFERS
FILE-THRU ( lo hi file-id -- )
THRU
reference: p4_file_thru in ../src/misc.c:1052, export CO FILE-THRU
FILE-UPDATE ( file-id -- )
reference: p4_file_update in ../src/misc.c:1063, export CO FILE-UPDATE
ARGC ( -- n )
reference: p4_argc in ../src/misc.c:1074, export CO ARGC
ARGV ( n -- addr u )
reference: p4_argv in ../src/misc.c:1081, export CO ARGV
EXITCODE
reference: exitcode in ../src/misc.c:1429, export DV EXITCODE
STDIN
reference: stdIn in ../src/misc.c:1431, export DC STDIN
STDOUT
reference: stdOut in ../src/misc.c:1432, export DC STDOUT
STDERR
reference: stdErr in ../src/misc.c:1433, export DC STDERR
EXPAND-FN ( addr1 u1 addr2 -- addr2 cnt2 )
reference: p4_expand_fn in ../src/misc.c:1093, export CO EXPAND-FN
USING filename ( -- )
reference: p4_using in ../src/misc.c:1110, export CO USING
USING-NEW filename ( -- )
USING
reference: p4_using_new in ../src/misc.c:1126, export CO USING-NEW
LOAD" filename" ( -- ?
reference: p4_load_quote in ../src/misc.c:1164, export CS LOAD"
SYSTEM ( addr u -- ret-val )
reference: p4_system in ../src/misc.c:1199, export CO SYSTEM
SYSTEM" commandline" ( -- ret-val )
reference: p4_system_quote in ../src/misc.c:1220, export CS SYSTEM"
INCLUDE filename ( -- ? )
LOAD"
reference: p4_include in ../src/misc.c:1187, export CO INCLUDE
RAISE ( n -- )
SIGNAL
reference: p4_raise in ../src/misc.c:1243, export CO RAISE
SIGNAL ( xt1 n -- xt2 )
reference: p4_signal in ../src/misc.c:1252, export CO SIGNAL
EXECUTES word ( n -- )
reference: p4_executes in ../src/misc.c:0902, export CO EXECUTES
HEADER ( bstring -- )
CREATE
CREATE
usage: : CREATE BL WORD HERE HEADER ;
reference: p4_header in ../src/misc.c:1268, export CO HEADER