EXTENSIONS <<edit-init>>
no special info, see general notes
edit constructor primitive
* EDIT-BLOCK ( blk -- ) start the internal block-editor on the assigned block
EDIT-BLOCK
( blk -- )
edit ordinary primitive
#ifndef NO_SYSTEM
* EDIT-TEXT name ( -- ) start an external EDITOR with the specified filename
EDIT-TEXT
name ( -- )
EDITOR
* EDIT-ERROR ( -- ) if an error occured, this routine can be called to invoke an appropriate EDITOR (see also EDIT-BLOCK)
EDIT-ERROR
( -- )
#endif
FORTH EDIT-BLOCK-START