compile if not defined(SMALL) -- If SMALL not defined, then being separately compiled
include 'stdconst.e'
define INCLUDING_FILE = 'EPMLEX.E'
tryinclude 'MYCNF.E' -- Include the user's configuration customizations.
compile if not defined(SITE_CONFIG)
const SITE_CONFIG = 'SITECNF.E'
compile endif
compile if SITE_CONFIG
tryinclude SITE_CONFIG
compile endif
const
compile if not defined(SPELL_SUPPORT) -- Must set here, since set to 0 in ENGLISH.E
SPELL_SUPPORT = 'DYNALINK' -- New default
compile endif
compile if not defined(NLS_LANGUAGE)
NLS_LANGUAGE = 'ENGLISH'
compile endif
include NLS_LANGUAGE'.e'
compile if EVERSION >= 6
EA_comment 'This contains the spell-checking code. It can be linked explicitly, or will be linked automatically if the base .ex file is configured for it.'
compile endif
compile endif
const
compile if not defined(PROOF_DIALOG_FIXED)
PROOF_DIALOG_FIXED = 0 -- 1 if dialog should stay in one spot
compile endif
compile if not defined(ADDENDASUPPORT)
ADDENDASUPPORT = 1 -- 1 if addenda support
compile endif
compile if ADDENDASUPPORT
compile if not defined(RESPECT_case_for_addenda)
RESPECT_case_for_addenda = 1 /* If addenda entries are to be */
compile endif /* placed in the addenda without */
/* modifying their case, then */
/* this variable should be 1 */
/* Otherwise, it should be 0 */
compile endif -- ADDENDASUPPORT
compile if not defined(PROOF_CIRCLE_STYLE)
PROOF_CIRCLE_STYLE = 2
compile endif
compile if not defined(PROOF_CIRCLE_COLOR1)
PROOF_CIRCLE_COLOR1 = 16777220
compile endif
compile if not defined(PROOF_CIRCLE_COLOR2)
PROOF_CIRCLE_COLOR2 = 16777218
compile endif
compile if not defined(DYNASPELL_BEEP)
DYNASPELL_BEEP = 'ALARM'
compile endif
compile if not defined(PROOF_NEXT_DEFAULT)
PROOF_NEXT_DEFAULT = 0
compile endif
const
; Functions
compile if EVERSION >= 5.50 -- Use the new function numbers
LXFINIT = 0 /* Initialize */
LXFTERM = 1 /* Terminate */
LXFGDIC = 2 /* Pickup Dictionary */
LXFFDIC = 3 /* Drop Dictionary */
LXFSETADD = 4 /* Set Addenda Language Type */
LXFAD2TRS = 5 /* Add to Transient Addenda */
LXFREDTRS = 6 /* Read from Transient Addenda */
LXFSAVTRS = 7 /* Save Transient Addenda */
LXFVERFY = 8 /* Verification */
LXFSPAID = 9 /* Spelling Aid */
LXFHYPH =10 /* Hyphenation */
LXFDHYPH =11 /* Dehyphenation */
LXFSYN =12 /* Synonym */
LXFAMUGDIC=255 /* Addenda Pickup Dictionary */
/* (Pseudo-op; calls LXFGDIC internally) */
LXFQLIB = -1 /* Query Lexam library */ /* √ */
LXFFINIS = -2 /* Drop all dicts & terminate */ /* √ */
LXFPRFLINE = -3 /* Proof an entire line in file */ /* */
LXFSETPUNCT= -4 /* Set punctuation for ProofLine*/
compile else -- The old way; uses strings
LXFINIT = 'I' -- Initialize
LXFTERM = 'T' -- Terminate
LXFGDIC = 'PI' -- Pickup Dictionary
LXFFDIC = 'DR' -- Drop Dictionary
LXFAD2TRS = 'ADDI' -- Add(ition) to Transient Addenda
LXFVERFY = 'V' -- Verification
LXFSPAID = 'SP' -- Spelling Aid
LXFSYN = 'SY' -- Synonym
LXFAMUGDIC= 'ADDE' -- Addenda Pickup Dictionary
compile endif
; Return codes
LXRFGOOD = 0000 /* Function Successful: Good Return Code */
LXRFUPDC = 0005 /* Function Successful: Updateable dictionary created */
LXRFNFND = 0100 /* Function Unsuccessful: Word Not Found */
LXRFDUPD = 0107 /* Function Unsuccessful: Duplicate Dictionary */
LXRFINIT = 0200 /* PC LEXAM Not Initialized: Control Block/Parameter Err */
newword=listbox(PROOF__MSG '<'wrd'>','/'result,'/'REPLACE__MSG'/'CANCEL__MSG ||arg(3)'/'EDIT__MSG'.../'HELP__MSG $DIALOG_POSN) -- put result in PM list box
compile else
parse value listbox(PROOF__MSG '<'wrd'>', '/'result,