OS/2 Shareware BBS: 5 Edit

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmmac.zip / EPMLEX.E < prev next >

Wrap

Text File | 1996-03-27 | 68KB | 1,720 lines

/* ╔════════════════════════════════════════════════════════════════════════════╗ ║ What's it called: EPMLEX.E ║ ║ ║ ║ What does it do : Spell checking and Synonym support for the EPM editor. ║ ║ ║ ║ There are two major components to spell and synonym ║ ║ checking in EPM. The first and most important is the ║ ║ actual word verification and word/dictionary lookup. ║ ║ This is done by the internal EPM opcode, "lexam". ║ ║ This opcode can take on the variations indicated by ║ ║ the LXF constants defined below. ║ ║ ║ ║ The second most important part to word checking is the ║ ║ presentation of the results. This is neatly done in ║ ║ EPM using a PM list box. E has an internal list dialog ║ ║ accessible through the 'listbox' function. See ║ ║ STDCTRL.E for details on the 'listbox' function. ║ ║ ║ ║ Who and When : Larry Margolis, 11/91 ║ ║ Updated from the original ║ ║ EPMLEX.E done by: C.Maurer, R.Yozzo, Gennaro Cuomo, and Larry Margolis ║ ║ 1/89 - 10/90 ║ ╚════════════════════════════════════════════════════════════════════════════╝ */ ; Customizing information: Any of the following customizing constants can ; be overridden by including the appropriate definition after a CONST statement ; in your MYCNF.E. ; ; Example of customizing: include the following lines in your MYCNF.E ; (with the ';' deleted from the beginning of each line). ; ; const -- Customizations for EPMLEX: ; RESPECT_case_for_addenda = 0 -- Ignore case of addenda words. ; my_ADDENDA_FILENAME= 'd:\doc\margoli.adf' -- I keep these in my ; my_DICTIONARY_FILENAME= 'd:\doc\us.dct' -- d:\doc directory. ; Can also have multiple dictionaries, separated by spaces - all will be loaded: ; my_DICTIONARY_FILENAME= 'd:\doc\us.dct d:\doc\medical.dct d:\doc\legal.dct' 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 */ LXRFIFCN = 0201 /* Invalid Function */ compile if EVERSION >= 6.01 DEFAULT_LEXAM_PUNCTUATION ='~!@#$¢£¥%^&*()_+|`1234567890-=\{}[]:";''<>?,./¬─═╔╗╚╝┌┐└┘║╦╠╣╩╬┬├┤┴┼│' compile else -- Keep these two strings the same. LEXAM_PUNCTUATION ='~!@#$¢£¥%^&*()_+|`1234567890-=\{}[]:";''<>?,./¬─═╔╗╚╝┌┐└┘║╦╠╣╩╬┬├┤┴┼│' compile endif compile if (EVERSION >= '5.60c' & EVERSION < 6) | EVERSION >= '6.00c' USE_CUSTOM_PROOF_DIALOG = 1 compile else USE_CUSTOM_PROOF_DIALOG = 0 compile endif definit universal addenda_has_been_modified universal ADDENDA_FILENAME universal DICTIONARY_FILENAME universal Dictionary_loaded compile if EVERSION >= 6.01 universal LEXAM_PUNCTUATION LEXAM_PUNCTUATION = DEFAULT_LEXAM_PUNCTUATION compile if defined(my_LEXAM_PUNCTUATION) 'proof_punctuation' my_LEXAM_PUNCTUATION compile endif compile endif ; Note: don't initialize the universals here for EPM if SPELL_SUPPORT = ; 'DYNALINK'; it will be done in STDCNF so that this won't override the ; config info read from the .INI file. compile if EVERSION < 5 or SPELL_SUPPORT <> 'DYNALINK' compile if defined(my_ADDENDA_FILENAME) ADDENDA_FILENAME= my_ADDENDA_FILENAME compile else ADDENDA_FILENAME= 'c:\lexam\lexam.adl' compile endif compile if defined(my_DICTIONARY_FILENAME) DICTIONARY_FILENAME= my_DICTIONARY_FILENAME compile else DICTIONARY_FILENAME= 'us.dct' compile endif compile endif addenda_has_been_modified=0 Dictionary_loaded = 0 /* ╔════════════════════════════════════════════════════════════════════════════╗ ║ Synonym Support ║ ╚════════════════════════════════════════════════════════════════════════════╝ */ /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: syn │ │ │ │ What does it do : The syn command uses E's lexam support to retrieve │ │ possible synonyms for a specified word. │ │ If synonyms are found a │ │ PM list box is shown containing the possible new words. │ │ │ └────────────────────────────────────────────────────────────────────────────┘ */ defc syn = if load_lexam() then return endif call pbegin_word() call synonym() call drop_dictionary() /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: synonym() │ │ │ │ What does it do : checks the next word on a line for its possible synonyms.│ │ possible synonyms for a specified word. │ │ If synonyms are found a │ │ PM list box is shown containing the possible new words. │ │ │ └────────────────────────────────────────────────────────────────────────────┘ */ defproc synonym() getline line /* get the current line */ compile if EVERSION >= '5.21' line = translate(line, ' ', \9) -- Convert tabs to spaces compile endif if line<>'' then /* if it is NOT blank */ i=.col /* get the current column number */ l=pos(' ',line,.col) /* get possible word */ if l=0 then /* could this be a word??? */ l=length(line)+1 if l<i then l=i endif endif wrd=strip(substr(line,i,l-i)) /* extract word candidate */ oldwordlen=length(wrd) /* save the length of the word */ result=lexam(LXFVERFY,wrd) /* authenticate word using lexam */ if result and wrd<>'' then /* was it a success??? */ call strippunct(wrd,l,i) .col=.col+i-1 result = lexam(LXFVERFY,wrd) endif if(result <> LXRFGOOD) then /* was it a success ??? */ sayerror NO_MATCH__MSG '<'wrd'>' /* NO */ return '' /* exit function */ endif /* It's a word!!! */ /* get list of synonyms using lex*/ parse value lexam(LXFSYN,wrd) with 2 '/' result if result='' then sayerror NO_SYN__MSG '<'wrd'>' return '' endif compile if EVERSION < 5.21 -- The old way do forever newword = listbox(SYNONYMS__MSG,'/'result,'/'REPLACE__MSG'/'CANCEL__MSG'/'HELP__MSG'/') if newword<>3 then leave; endif -- help was pressed 'helpmenu 14002' return '' enddo compile else parse value listbox(SYNONYMS__MSG,'/'result,'/'REPLACE__MSG'/'CANCEL__MSG'/'HELP__MSG'/',0,0,0,0, compile if EVERSION >= 5.60 gethwndc(APP_HANDLE) || atoi(1) || atoi(1) || atoi(14002) || \26 wrd) with button 2 newword \0 compile else atoi(1) || atoi(1) || atoi(14002) || gethwndc(APP_HANDLE) || \26 wrd) with button 2 newword \0 compile endif if button<>\1 then newword = '' endif compile endif -- EVERSION < 5.21 if newword<>'' then compile if EVERSION < 5.50 -- Don't have to worry about losing attributes... getline line /* get the current line */ replaceline leftstr(line,.col-1)||newword||substr(line,l) compile else getsearch oldsearch 'xcom c '\1 || wrd || \1 || newword || \1 setsearch oldsearch compile endif return length(newword)-oldwordlen endif endif /* ╔════════════════════════════════════════════════════════════════════════════╗ ║ Spell Checking Support ║ ╚════════════════════════════════════════════════════════════════════════════╝ */ compile if PROOF_DIALOG_FIXED define DIALOG_POSN = ', -2, .windowwidth' compile elseif EVERSION < 5.21 define DIALOG_POSN = ' ' compile else define DIALOG_POSN = ', 0, 0 ' compile endif /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: proof() │ │ │ │ What does it do : The proof command uses E's lexam support to spell check │ │ either the next word or a given word. If a misspelled │ │ word is encountered, a PM list box is shown containing │ │ the possible corrections. │ │ syntax: proof [word] │ │ - if 'word' is not specified, proof searchs for │ │ the next word (after the cursor) and checks it. │ └────────────────────────────────────────────────────────────────────────────┘ */ compile if not USE_CUSTOM_PROOF_DIALOG --**************************************** defc proof universal ADDENDA_FILENAME if load_lexam() then return endif if arg(1)<>'' then call proof1(arg(1)) else call proof2() endif compile if ADDENDASUPPORT if addenda_filename<>'' then call maybe_save_addenda() endif compile endif call drop_dictionary() if arg(1)='' then sayerror DONE__MSG endif /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: proof2() │ │ │ │ What does it do : Start at the current cursor position, locate the next │ │ word, and check the spelling of that word. The spelling│ │ of each word is done by calling the lexam function. │ │ The 'lexam' fuction is a internal │ │ opcode that uses the dynalink feature to access the │ │ LEXAM.DLL │ │ │ └────────────────────────────────────────────────────────────────────────────┘ */ defproc proof2 compile if EVERSION >= 6.01 universal LEXAM_PUNCTUATION compile endif script_file_type=AMU_script_verification() compile if defined(TEX_FILETYPES) tex_file_type = wordpos(filetype(),TEX_FILETYPES) compile else tex_file_type = (filetype() = 'TEX') compile endif --@@ If there's a line-marked area in the current file, proof only in there. firstline=max(.line,1); lastline=.last; what = FILE__MSG if marktype() then /* if no mark, default to entire file */ getfileid curfileid getmark fl,ll,fc,lc,markfileid if markfileid = curfileid then firstline=fl; lastline=ll what = MARKED_AREA__MSG endif endif partial_lines = marktype()='BLOCK' | marktype()='CHAR' /* start checking at next word...*/ ;getline line ;.col=1 ;if leftstr(line,1)==' 'then ; tabword ;endif if partial_lines then .col=fc; else .col=1; endif firstline for zz= firstline to lastline --@@ zz /* advance to next (new) line */ getline line compile if EVERSION >= '5.21' line = translate(line, ' ', \9) -- Convert tabs to spaces compile endif compile if EVERSION >= '5.21' display -8 compile endif ; sayerror 'Spell Checking 'what'...' sayerror CHECKING__MSG what '(line' zz'; last='lastline')...' compile if EVERSION >= '5.21' display 8 compile endif loop if substr(line, .col, 1)=' ' & substr(line, .col)<>' ' then tabword endif if partial_lines then if .col>lc & (zz=lastline | marktype()='BLOCK') then if marktype()='BLOCK' then .col=fc; endif leave endif endif l=pos(' ',line,.col) /* find first word */ if not l then /* no more words on this line... */ l=length(line)+1 /* or there is only one word on */ if l<=.col then /* the line... */ if marktype()='BLOCK' then .col=fc; else .col=1; endif leave endif endif wrd=substr(line,.col,l-.col) /* extract word from line */ if not verify(wrd, LEXAM_PUNCTUATION) then -- No letters in "word"; skip it. result = 0 else result = lexam(LXFVERFY,wrd) /* verify word using lexam */ endif if result and wrd<>'' then /* was it a success??? */ /* YES, ignore script tags */ if script_file_type then -- Do just the cheap test first. if (pos(leftstr(wrd,1),':&.') or pos(substr(line,max(.col-1,1),1),':&')) then result=0 if leftstr(wrd,1)=':' then newl=pos('.',line,.col) if newl then l=newl endif endif endif elseif tex_file_type & pos('\', wrd) then result=0 endif if result then /* strip punctuation and try again */ call strippunct(wrd,l,i) .col=.col+i-1 result = lexam(LXFVERFY,wrd) endif endif if result and wrd<>'' then ;; result = lexam(LXFVERFY,wrd) -- Redundant??? ;; if result and wrd<>'' then compile if EVERSION < 5.21 -- Help is now handled by the dialog box -- t=-3 means help was requested, so call spellword again. t=-3 do while t=-3 compile endif compile if ADDENDASUPPORT t=spellword2(wrd, l, '/~Next/~Temp. Add') -- spell check the word compile else t=spellword2(wrd, l, '/~Next') -- spell check the word compile endif compile if EVERSION < 5.21 -- Help is now handled by the dialog box enddo compile endif if t=0 then -- error occured return 0 endif if t>0 then l=l + t - 100 elseif t=-4 then -- Edit was selected. l = .col -1 -- (so .col won't change; recheck from current point) endif getline line compile if EVERSION >= '5.21' line = translate(line, ' ', \9) -- Convert tabs to spaces compile endif ;; endif endif .col=l+1 endloop endfor /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: spellword() │ │ │ │ What does it do : Check the word at the cursor position, removing │ │ punctuation characters. It is assumed that the cursor │ │ is positioned at the beginning of the word. (Used by │ │ proof2 and proofword.) If it's a valid word then check │ │ the spelling of the word using the lexam opcode. If a │ │ valid result is returned place it in a PM list box using │ │ the 'listbox' procedure. Returns the length of the word │ │ found. The optional argument is a string containing a │ │ button name. E.g., '/Next' │ └────────────────────────────────────────────────────────────────────────────┘ */ defproc spellword getline line /* ignore script tags */ compile if EVERSION >= '5.21' line = translate(line, ' ', \9) -- Convert tabs to spaces compile endif if line<>'' then /* if the line is not empty... */ i=.col /* save the cursor column */ l=pos(' ',line,.col) /* get next word after cursor */ if l=0 then /* is it a word??? */ l=max(length(line)+1, i) endif wrd=strip(substr(line,i,l-i)) /* extract word from line */ result = lexam(LXFVERFY,wrd) /* verify word */ if result and wrd<>'' then /* was it a success */ start_l = l do forever call strippunct(wrd,l,i) /* strip punctuation/ try again */ .col=.col+i-1 /* move to next column */ if l>=arg(2) | wrd='' then -- Will always be true if arg(2) omitted. leave endif .col = l l = start_l wrd=strip(substr(line,.col,l-.col)) /* extract word from line */ enddo result = lexam(LXFVERFY,wrd) /* try word verification again */ endif if (result or abbrev('FORCE', upcase(arg(3)), 1)) and wrd<>'' then /* was it a success */ return spellword2(wrd, l, arg(1)) else --.messageline='word is spelled correctly' return -2 endif endif return 0 defproc spellword2(wrd, l) oldwordlen=length(wrd) /* yes it's a word..... */ /* use lexam to spell check word*/ refresh parse value lexam(LXFSPAID,wrd) with 2 '/' result if rc>=LXRFINIT then sayerror LOOKUP_FAILED__MSG '<' wrd '> RC='rc return -1 -- next word else if result='' then result='*Nothing Found*' endif oldcol = .col; .col = .col + oldwordlen; .col = oldcol; compile if EVERSION < '5.50' refresh sayat wrd, .cursory, .cursorx, .textcolor%16+(.textcolor // 16)*16, oldwordlen compile elseif EVERSION >= 5.60 circleit PROOF_CIRCLE_STYLE, .line, .col, .col+oldwordlen-1, PROOF_CIRCLE_COLOR1, PROOF_CIRCLE_COLOR2 refresh -- Refresh required to display circle, because control isn't being returned to the user compile else circleit PROOF_CIRCLE_STYLE, .line, .col, .col+oldwordlen-1, 1 -- color irrelevant now refresh -- Refresh required to display circle, because control isn't being returned to the user compile endif compile if ADDENDASUPPORT compile if EVERSION < 5.21 -- The old way newword=listbox(PROOF__MSG '<'wrd'>', '/'result, '/'REPLACE__MSG'/'CANCEL__MSG||arg(3)'/'ADD__MSG'/'EDIT__MSG'.../'HELP__MSG $DIALOG_POSN) -- put result in PM list box compile else parse value listbox(PROOF__MSG '<'wrd'>', '/'result, '/'REPLACE__MSG'/'CANCEL__MSG||arg(3)'/'ADD__MSG'/'EDIT__MSG'.../'HELP__MSG $DIALOG_POSN ,0,0, compile if EVERSION >= 5.60 gethwndc(APP_HANDLE) || atoi(1) || atoi(1) || atoi(14000)) with button 2 newword \0 compile else atoi(1) || atoi(1) || atoi(14000) || gethwndc(APP_HANDLE)) with button 2 newword \0 compile endif if button=\0 | button=\2 then -- Close or Cancel newword = '' endif compile endif -- EVERSION < 5.21 if arg(3)='' then butlist='7 7 3 4 5' -- Next; Temp. Add; Add; Edit; Help else butlist='3 4 5 6 7' -- Next; Temp. Add; Add; Edit; Help endif compile else compile if EVERSION < 5.21 -- The old way 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, '/'REPLACE__MSG'/'CANCEL__MSG||arg(3)'/'EDIT__MSG'.../'HELP__MSG $DIALOG_POSN ,0,0, compile if EVERSION >= 5.60 gethwndc(APP_HANDLE) || atoi(1) || atoi(1) || atoi(14000)) with button 2 newword \0 compile else atoi(1) || atoi(1) || atoi(14000) || gethwndc(APP_HANDLE)) with button 2 newword \0 compile endif if button=\0 | button=\2 then -- Close or Cancel newword = '' endif compile endif -- EVERSION < 5.21 if arg(3)='' then butlist='7 7 7 3 4' -- Next; Temp. Add; Add; Edit; Help else butlist='3 7 7 4 5' -- Next; Temp. Add; Add; Edit; Help endif compile endif parse value butlist with but_next but_temp_add but_add but_edit but_help compile if EVERSION < 5.21 -- Help is now handled by the dialog box if newword=but_help then 'helpmenu 14000' return -3 -- do line over again endif if newword=but_edit then compile else if button=chr(but_edit) then compile endif newword=entrybox(REPLACEMENT__MSG '<'wrd'>','/'REPLACE__MSG'/'CANCEL__MSG,wrd) if newword='' then return -1 -- next word endif compile if EVERSION < 5.50 -- Don't have to worry about losing attributes... getline line replaceline leftstr(line,.col-1)||newword||substr(line,l) compile else getsearch oldsearch 'xcom c '\1 || wrd || \1 || newword || \1 setsearch oldsearch compile endif refresh ;; return -100 - (length(newword)-oldwordlen) -- Don't care about new len. return -4 -- re-check line endif compile if EVERSION < '5.50' sayat wrd, .cursory, .cursorx, .textcolor, oldwordlen compile else ; refresh -- maybe can leave out... compile endif compile if EVERSION < 5.21 if newword=but_next then -- goto next word compile else if button=chr(but_next) then -- goto next word compile endif return -1 endif compile if ADDENDASUPPORT compile if EVERSION < 5.21 if newword=but_temp_add then -- temporary addenda (just for this PROOF session) compile else if button=chr(but_temp_add) then -- goto next word compile endif compile if RESPECT_CASE_FOR_ADDENDA call lexam(LXFAD2TRS, wrd) compile else call lexam(LXFAD2TRS,lowcase(wrd)) compile endif return -1 endif compile if EVERSION < 5.21 if newword=but_add then -- addenda compile else if button=chr(but_add) then -- goto next word compile endif call AMU_addenda_addition_processing(wrd) return -1 endif compile endif if newword='*Nothing Found*' then return -1 endif if newword<>'' then /* was it a valid result ??? */ /* replace word in line */ compile if EVERSION < 5.50 -- Don't have to worry about losing attributes... getline line replaceline leftstr(line,.col-1)||newword||substr(line,l) refresh compile else getsearch oldsearch 'xcom c '\1 || wrd || \1 || newword || \1 setsearch oldsearch compile endif return 100 + length(newword)-oldwordlen ; return -1 endif endif return 0 /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: proof1() │ │ │ │ What does it do : Takes a word argument and looks it up in the lexam │ │ dictionary using the 'lexam' opcode. │ │ If the word is found a list box is presented with the │ │ possible correct word choices. │ └────────────────────────────────────────────────────────────────────────────┘ */ defproc proof1( wrd ) result = lexam(LXFVERFY,wrd) /* first off, is it a word? */ if result then /* well is it??? */ result = lexam(LXFSPAID,wrd) /* YES, now check it with lexam*/ parse value result with .'/' result /* remove first word */ if rc>=LXRFINIT then sayerror LOOKUP_FAILED__MSG '<' wrd '>' else if result='' then result='*Nothing Found*' endif compile if EVERSION < 5.21 -- The old way do forever compile if ADDENDASUPPORT newword=listbox(PROOF_WORD__MSG,'/'result,'/'REPLACE__MSG'/'EXIT__MSG'/'ADD__MSG'/'HELP__MSG) /* put result in PM list box */ if newword='3' then -- addenda call AMU_addenda_addition_processing(wrd) return -1 endif if newword<>4 then leave; endif compile else newword=listbox(PROOF_WORD__MSG,'/'strip(result),'/'REPLACE__MSG'/'EXIT__MSG'/'HELP__MSG) /* put result in PM list box */ if newword<>3 then leave; endif compile endif 'helpmenu 14001' enddo compile else parse value listbox(PROOF_WORD__MSG, '/'result, compile if ADDENDASUPPORT '/'REPLACE__MSG'/'EXIT__MSG'/'ADD__MSG'/'HELP__MSG, compile else '/'REPLACE__MSG'/'EXIT__MSG'/'HELP__MSG compile endif compile if EVERSION >= 5.60 gethwndc(APP_HANDLE) || atoi(1) || atoi(1) || atoi(14001)) with button 2 newword \0 compile else atoi(1) || atoi(1) || atoi(14001) || gethwndc(APP_HANDLE)) with button 2 newword \0 compile endif if button=\0 | button=\2 then -- Close or Cancel newword = '' compile if ADDENDASUPPORT elseif button=\3 then -- addenda call AMU_addenda_addition_processing(wrd) return -1 compile endif endif compile endif -- EVERSION < 5.21 if newword='*Nothing Found*' then return endif return newword endif endif compile endif -- not USE_CUSTOM_PROOF_DIALOG ************************************* /* ╔════════════════════════════════════════════════════════════════════════════╗ ║ Addenda Support ║ ╚════════════════════════════════════════════════════════════════════════════╝ */ compile if ADDENDASUPPORT /* ┌────────────────────────────────────────────────────────────────────────────┐ │ What's it called: maybe_save_addenda │ │ │ │ What does it do : │ │ │ └────────────────────────────────────────────────────────────────────────────┘ */ ; Addenda support commands defproc maybe_save_addenda universal addenda_has_been_modified universal AMU_addenda_file_identification universal ADDENDA_FILENAME universal Dictionary_loaded if Dictionary_loaded < 2 then ; if addenda_has_been_modified then -- sayatbox 'saving addenda 'ADDENDA_FILENAME if AMU_addenda_file_identification<>'' then getfileid AMU_current_file_identification rc = 0 activatefile AMU_addenda_file_identification if not rc then if .modify then 'xcom save'; endif ;; 'xcom quit' endif -- sayerror 'addenda file filed' activatefile AMU_current_file_identification endif addenda_has_been_modified=0 -- sayerror 0 endif ;defc AMU_addenda_pickup ; universal ADDENDA_FILENAME ; call lexam(LXFAMUGDIC,ADDENDA_FILENAME) ;defc AMU_addenda_addition ; call lexam(LXFAD2TRS,arg(1)) defproc AMU_addenda_processing universal AMU_addenda_file_identification universal ADDENDA_FILENAME getfileid AMU_current_file_identification 'xcom e' ADDENDA_FILENAME -- sayerror 'addenda file loaded' if not rc or rc = sayerror('New file') then getfileid AMU_addenda_file_identification else AMU_addenda_file_identification ='' sayerror BAD_ADDENDA__MSG ADDENDA_FILENAME 'rc=' rc return rc -- was STOP; made non-fatal endif .visible=0 -- hidden file activatefile AMU_current_file_identification if AMU_addenda_file_identification <>'' then for i = 1 to AMU_addenda_file_identification.last getline line,i,AMU_addenda_file_identification if upcase(leftstr(line, 8))='.DU ADD ' then line=substr(line,9) endif do while line <> '' parse value line with wrd line compile if RESPECT_CASE_FOR_ADDENDA call lexam(LXFAD2TRS,wrd) compile else call lexam(LXFAD2TRS,lowcase(wrd)) compile endif enddo endfor endif defproc AMU_addenda_addition_processing(AMU_addenda_entry) universal addenda_has_been_modified universal AMU_addenda_file_identification, ADDENDA_FILENAME addenda_has_been_modified=1 compile if not RESPECT_CASE_FOR_ADDENDA AMU_addenda_entry=lowcase(AMU_addenda_entry) compile endif call lexam(LXFAD2TRS,AMU_addenda_entry) if ADDENDA_FILENAME<>'' & AMU_addenda_file_identification<>'' then insertline AMU_addenda_entry,AMU_addenda_file_identification.last+1,AMU_addenda_file_identification endif compile endif -- ADDENDASUPPORT ; The following is a script file type verification algorithm ; suggested by Larry Margolis. (Thanks, Larry) defproc AMU_script_verification() compile if EVERSION >= 5.50 compile if defined(my_SCRIPT_FILE_TYPE) return (wordpos(filetype(), 'SCR SCT SCRIPT IPF' my_SCRIPT_FILE_TYPE)>0) compile else return (wordpos(filetype(), 'SCR SCT SCRIPT IPF')>0) compile endif compile else ext=filetype() compile if defined(my_SCRIPT_FILE_TYPE) return ext='SCR' or ext='SCT' or ext='SCRIPT' or ext='IPF' or ext=my_SCRIPT_FILE_TYPE compile else return ext='SCR' or ext='SCT' or ext='SCRIPT' or ext='IPF' compile endif compile endif /* ╔════════════════════════════════════════════════════════════════════════════╗ ║ General Lexam Support ║ ╚════════════════════════════════════════════════════════════════════════════╝ */ defproc load_lexam universal DICTIONARY_FILENAME universal ADDENDA_FILENAME universal Dictionary_loaded if not dictionary_loaded then rc = 0 result = lexam(LXFINIT) if (result<>LXRFGOOD and result<>LXRFIFCN) or rc=-322 then if result='febe' or rc=-322 then -- x'febe' = -322 = sayerror('Dynalink: unrecognized library name') compile if EVERSION < '5.60a' -- 5.60a and above give the message internally sayerror sayerrortext(-322) LEXAM_DLL'.DLL' compile endif else sayerror INIT_ERROR__MSG '('rc')' endif return 1 endif dictlist=DICTIONARY_FILENAME do while dictlist <> '' parse value dictlist with dictionary dictlist if not(verify(dictionary,'\:','M')) then if not exist(dictionary) then findfile destfilename, dictionary, '','D' if not rc then dictionary = destfilename; endif endif endif result=lexam(LXFGDIC, dictionary) if result>=LXRFNFND & result<>LXRFDUPD then -- Duplicate Dictionary; didn't unload? if exist(dictionary) then sayerror BAD_DICT__MSG '"'dictionary'";' ERROR__MSG result else call winmessagebox(PROOF__MSG, NO_DICT__MSG\10'"'dictionary'"'\10\10 || DICT_PTR__MSG, MB_CANCEL + MB_ERROR + MB_MOVEABLE) ; sayerror NO_DICT__MSG '"'dictionary'"' DICT_PTR__MSG endif return 1 endif enddo compile if ADDENDASUPPORT if ADDENDA_FILENAME<>'' then result = lexam(LXFAMUGDIC,ADDENDA_FILENAME) if result & result<>LXRFUPDC then sayerror BAD_ADDENDA__MSG '"'ADDENDA_FILENAME'";' ERROR__MSG result else call AMU_addenda_processing() endif endif compile endif endif dictionary_loaded = dictionary_loaded + 1 return 0 defproc drop_dictionary universal DICTIONARY_FILENAME universal ADDENDA_FILENAME universal Dictionary_loaded if dictionary_loaded then dictionary_loaded = dictionary_loaded - 1 endif if not dictionary_loaded then -- Only unload if use-count now 0. dictlist=DICTIONARY_FILENAME do while dictlist <> '' parse value dictlist with dictionary dictlist call lexam(LXFFDIC, dictionary); enddo compile if ADDENDASUPPORT if ADDENDA_FILENAME<>'' then call lexam(LXFFDIC,ADDENDA_FILENAME); endif compile endif call lexam(LXFTERM) endif defproc strippunct(var wrd,var l,var i) compile if EVERSION >= 6.01 universal LEXAM_PUNCTUATION compile endif /* strip leading and trailing punctuation and try again*/ i=verify(wrd, LEXAM_PUNCTUATION) if i then j = length(wrd) do while pos(substr(wrd, j, 1), '.?!,:;') -- Extra check, to accept "didn't." j = j - 1 enddo if j<length(wrd) then if not lexam(LXFVERFY, leftstr(wrd, j)) then -- If result is 0, word is good. i = 1 ;; l = l - length(wrd) + j wrd = leftstr(wrd, j) return endif endif l=l-length(wrd) wrd=substr(wrd,i) j=verify(wrd, LEXAM_PUNCTUATION,'m') if j then wrd=leftstr(wrd,j-1) else j=length(wrd)+1 endif l=l+j+i-2 else i=length(wrd)+1 endif compile if not USE_CUSTOM_PROOF_DIALOG defc proofword,verify universal ADDENDA_FILENAME if load_lexam() then return endif orig_col = .col call pbegin_word() if substr(textline(.line), orig_col, 1)=' ' & .col < orig_col then tmp = .col call pend_word() orig_col = .col .col = tmp endif spellrc = spellword('', orig_col, arg(1)) compile if ADDENDASUPPORT if addenda_filename<>'' then call maybe_save_addenda() endif compile endif call drop_dictionary() if -2 = spellrc then sayerror SPELLED_OK__MSG endif compile endif -- not USE_CUSTOM_PROOF_DIALOG defc dict universal DICTIONARY_FILENAME dictlist = arg(1) if dictlist='' then sayerror DICTLIST_IS__MSG DICTIONARY_FILENAME return endif do while dictlist <> '' parse value dictlist with dictionary dictlist if not exist(dictionary) then sayerror FILE_NOT_FOUND__MSG '"'dictionary'"; 'DICT_REMAINS__MSG DICTIONARY_FILENAME return endif enddo DICTIONARY_FILENAME = arg(1) compile if 0 -- EVERSION >= 5.60 defc newproof universal ADDENDA_FILENAME if load_lexam() then return endif script_file_type=AMU_script_verification() compile if defined(TEX_FILETYPES) tex_file_type = wordpos(filetype(),TEX_FILETYPES) compile else tex_file_type = (filetype() = 'TEX') compile endif --@@ If there's a line-marked area in the current file, proof only in there. firstline=max(.line,1); lastline=.last; what = FILE__MSG if marktype() then /* if no mark, default to entire file */ getfileid curfileid getmark fl,ll,fc,lc,markfileid if markfileid = curfileid then firstline=fl; lastline=ll what = MARKED_AREA__MSG endif endif partial_lines = marktype()='BLOCK' | marktype()='CHAR' ;; if partial_lines then .col=fc; else .col=1; endif while firstline<=lastline do compile if EVERSION >= '5.21' display -8 compile endif sayerror CHECKING__MSG what'...' ;; sayerror 'Spell Checking 'what '(line' zz'; last='lastline')...' compile if EVERSION >= '5.21' display 8 compile endif .col = 1 rc = '[not set]' result = lexam(LXFPRFLINE, firstline, lastline) if length(result) then sayerror 'rc=' rc'; result =' c2x(result) firstline = ltoa(leftstr(result, 4), 10) if length(result)=4 then sayerror 'Unexpected error on line' firstline'; aborting.'; stop; endif firstline offst = 0 oldlen = length(textline(firstline)) do i = 5 to length(result) by 2 .col = itoa(substr(result, i, 2), 10) + offst compile if ADDENDASUPPORT t=spellword('/~Next/~Temp. Add') -- spell check the word compile else t=spellword('/~Next') -- spell check the word compile endif if t=0 then -- error occured return 0 endif if t>0 then offst = offst + t - 100 elseif t=-4 then -- Edit was selected. i = i - 2 -- Repeat at this position. (???) newlen = length(textline(firstline)) offst = offst + newlen - oldlen oldlen = newlen endif enddo firstline = firstline + 1 else -- proofed the entire block successfully leave endif endwhile compile if ADDENDASUPPORT if addenda_filename<>'' then call maybe_save_addenda() endif compile endif call drop_dictionary() if arg(1)='' then sayerror DONE__MSG endif compile endif -- >= 5.60 compile if EVERSION >= 6.01 defc proof_punctuation universal LEXAM_PUNCTUATION if arg(1)<>'' then newpunct = DEFAULT_LEXAM_PUNCTUATION else newpunct = arg(1) endif result = lexam(LXFSETPUNCT, newpunct) /* Set punctuation */ if result then sayerror result else LEXAM_PUNCTUATION = newpunct endif compile endif -- >= 6.01 compile if USE_CUSTOM_PROOF_DIALOG ; New commands for use with custom Proof dialog. ; Proof - proofs the document or marked area. ; It uses the new Lexam subop that proofs lines and doesn't stop ; until it hits an error or finishes the last line. ; ProofWord - proofs the current word. ; Both set up state information, then call SpellWordD (like SpellWord) to check ; an individual word. If SpellWordD decides the word is bad, then if the dialog ; has been started, it tells it to display the word, otherwise it starts the ; dialog and relies on the Init message coming from the dialog to tell the dialog ; to show the word. ; State information: ; proofdlg_hwnd Proof Dialog's window handle ; proofdlg_whatflag What we're proofing - 1 = file, 2 = mark, 3 = word in file, 4 = word as PROOF argument ; proof_curline Current line we're checking ; proof_lastline Last line to be checked ; proof_lexresult Result from Lexam(proofline) ; proof_resultofs Current offset in proof_lexresult we're checking ; proof_offst offset from the columns in proof_lexresult we should use ; (changes from 0 if we replace an earlier word in that line ; with one of a different length) ; proof_prev_col Saves the previous column (to be used after replacing ; a word with a user-entered word; we need to use the old offset, ; not the new one). defc proof universal proofdlg_hwnd, proofdlg_whatflag, proof_curline, proof_lastline, proof_lexresult, proofdlg_filetypeflags, proof_word if load_lexam() then return endif if arg(1)<>'' then -- A word to be proofed was given as an argument. proofdlg_whatflag = 4 result = lexam(LXFVERFY,arg(1)) /* verify word */ if not result then -- was it a success call drop_dictionary() sayerror SPELLED_OK__MSG return endif proof_word = arg(1) if proofdlg_hwnd then -- Dialog started 'proofdlg' proofdlg_hwnd 'newword' else sayerror 0 -- (Clear a "Spell checking..." message, if one was up.) 'proofdlg pop' -- Start the dialog; it will do the rest endif return endif ; script_file_type=AMU_script_verification() ;compile if defined(TEX_FILETYPES) ; tex_file_type = wordpos(filetype(),TEX_FILETYPES) ;compile else ; tex_file_type = (filetype() = 'TEX') ;compile endif compile if defined(TEX_FILETYPES) proofdlg_filetypeflags = AMU_script_verification() + 2*(wordpos(filetype(),TEX_FILETYPES)>0) + 4*abbrev('HTML', filetype(), 3) compile else proofdlg_filetypeflags = AMU_script_verification() + 2*(filetype() = 'TEX') + 4*abbrev('HTML', filetype(), 3) compile endif --@@ If there's a line-marked area in the current file, proof only in there. proof_curline=max(.line,1); proof_lastline=.last; /* what = FILE__MSG;*/ proofdlg_whatflag = 1 if marktype() then /* if no mark, default to entire file */ getfileid curfileid getmark fl,ll,fc,lc,markfileid if markfileid = curfileid then proof_curline=fl; proof_lastline=ll /* what = MARKED_AREA__MSG */ proofdlg_whatflag = 2 endif endif partial_lines = marktype()='BLOCK' | marktype()='CHAR' ;; if partial_lines then .col=fc; else .col=1; endif proof_lexresult = '' 'keep_on_prufin' defc keep_on_prufin universal ADDENDA_FILENAME universal proofdlg_hwnd, proofdlg_whatflag, proof_curline, proof_lastline, proof_lexresult, proof_resultofs, proof_offst, proof_prev_col, proofdlg_filetypeflags while proof_curline<=proof_lastline do if not proofdlg_hwnd then display -8 ;; sayerror 'Spell Checking 'subword('file marked area', proofdlg_whatflag, proofdlg_whatflag)'...' if proofdlg_whatflag=1 then sayerror CHECKING__MSG FILE__MSG elseif proofdlg_whatflag=1 then sayerror CHECKING__MSG MARKED_AREA__MSG endif display 8 ;; else ;; msg = 'Checking spelling...'\0 ;; call windowmessage(1, proofdlg_hwnd, -- send message back to dialog ;; 32, -- WM_COMMAND - 0x0020 ;; 9190, -- Set dialog prompt ;; ltoa(offset(msg) || selector(msg), 10) ) endif if proof_lexresult='' then .col = 1 proof_lexresult = lexam(LXFPRFLINE, proof_curline, proof_lastline, proofdlg_filetypeflags) ;sayerror 'proof_lexresult('proof_curline',' proof_lastline') =' c2x(leftstr(proof_lexresult,4)) c2x(substr(proof_lexresult, 5)) proof_resultofs = 5 proof_offst = 0 proof_prev_col = '' endif if length(proof_lexresult) then ;sayerror 'rc=' rc'; proof_lexresult =' c2x(proof_lexresult) proof_curline = ltoa(leftstr(proof_lexresult, 4), 10) if length(proof_lexresult)=4 then sayerror PROOF_ERROR1__MSG proof_curline PROOF_ERROR2__MSG proof_curline = proof_curline + 1 proof_lexresult='' iterate endif proof_curline oldlen = length(textline(proof_curline)) do i = proof_resultofs to length(proof_lexresult) by 2 if proof_prev_col then .col = proof_prev_col else .col = itoa(substr(proof_lexresult, i, 2), 10) + proof_offst endif t=spellwordd('') -- spell check the word ;sayerror 'i='i'; .col =' .col '=' itoa(substr(proof_lexresult, i, 2), 10) + proof_offst'; proof_offst='proof_offst 't='t if t = -3 then -- Dialog will continue proof_resultofs = i + 2 return endif proof_prev_col='' if not t then -- error occured leave endif enddo proof_curline = proof_curline + 1 proof_lexresult = '' else -- proofed the entire block successfully leave endif endwhile compile if ADDENDASUPPORT if addenda_filename<>'' then call maybe_save_addenda() endif compile endif call drop_dictionary() if proofdlg_hwnd then call windowmessage(0, proofdlg_hwnd, -- send message to dialog 41, -- WM_CLOSE - 0x0029 0, 0) endif if arg(1)='' then sayerror DONE__MSG endif defc proofword, verify universal ADDENDA_FILENAME universal proofdlg_hwnd, proofdlg_whatflag if load_lexam() then return endif orig_col = .col call pbegin_word() if substr(textline(.line), orig_col, 1)=' ' & .col < orig_col then tmp = .col call pend_word() orig_col = .col .col = tmp endif proofdlg_whatflag = 3 spellrc = spellwordd('', orig_col, arg(1)) if -2 = spellrc then sayerror SPELLED_OK__MSG call drop_dictionary() -- Otherwise, closing the dialog will unload lexam. endif ; return codes: 0 = unexpected error (line blank) ; X >0 = 100 + length(newword)-length(oldword) ; X -1 = Lookup failed or user selected Next or (Temp)Add; go on to next word. ; -2 = Word was spelled correctly ; -3 = Dialog invoked ; X -4 = User selected Edit; recheck line. ; (X means not returned by this version of the routine.) defproc spellwordd compile if EVERSION >= 6.01 universal LEXAM_PUNCTUATION compile endif universal proofdlg_hwnd, proof_word, proofdlg_filetypeflags, proofdlg_whatflag getline line line = translate(line, ' ', \9) -- Convert tabs to spaces if line='' then /* if the line is empty... */ return 0 endif i=.col /* save the cursor column */ l=pos(' ',line,.col) /* get next word after cursor */ if l=0 then /* is it a word??? */ l=max(length(line)+1, i) endif wrd=strip(substr(line,i,l-i)) /* extract word from line */ if wrd='' then return -2 endif if not verify(wrd, LEXAM_PUNCTUATION) then -- No letters in "word"; skip it. return -2 endif if proofdlg_whatflag = 3 then script_file_type=AMU_script_verification() compile if defined(TEX_FILETYPES) tex_file_type = wordpos(filetype(),TEX_FILETYPES) compile else tex_file_type = (filetype() = 'TEX') compile endif else script_file_type=proofdlg_filetypeflags // 2 compile if EVERSION >= '6.01b' tex_file_type = proofdlg_filetypeflags bitand 2 compile else tex_file_type = proofdlg_filetypeflags%2 - 2 * (proofdlg_filetypeflags % 4) compile endif endif result = 1 if script_file_type then -- Do just the cheap test first. tmp = substr(line,max(.col-1,1),1) if (pos(leftstr(wrd,1),':&.') or pos(tmp,':&')) then result=0 if leftstr(wrd,1)=':' | tmp=':' then tmp=pos('.',line,.col) if tmp then result = 1 .col = tmp+1 wrd = substr(wrd, .col) ; l=tmp endif endif endif elseif tex_file_type & pos('\', wrd) then result=0 endif if result then -- If not set to 0 by SCRIPT or TeX result = lexam(LXFVERFY,wrd) /* verify word */ endif start_l = l if result then /* was it a success */ do forever call strippunct(wrd,l,i) /* strip punctuation/ try again */ .col=.col+i-1 /* move to next column */ if wrd='' then return -2 endif if l>=arg(2) then -- Will always be true if arg(2) omitted. leave endif .col = l l = start_l wrd=strip(substr(line,.col,l-.col)) /* extract word from line */ enddo result = lexam(LXFVERFY,wrd) /* try word verification again */ endif if not (result or abbrev('FORCE', upcase(arg(3)), 1)) then -- was it a success --.messageline='word is spelled correctly' if l<start_l & arg(2)='' then .col = l return spellwordd(arg(1)) endif return -2 endif proof_word = wrd if proofdlg_hwnd then -- Dialog started 'proofdlg' proofdlg_hwnd 'newword' else sayerror 0 -- (Clear a "Spell checking..." message, if one was up.) 'proofdlg pop' -- Start the dialog; it will do the rest endif return -3 #define PRFDLG_REPLACE 9103 -- Proof dialog buttons #define PRFDLG_NEXT 9105 #define PRFDLG_TEMPADD 9106 #define PRFDLG_ADD 9107 #define PRFDLG_HELP 9108 #define PRFDLG_EDIT 9111 #define DID_CANCEL 2 defc proofdlg universal ADDENDA_FILENAME universal proofdlg_hwnd, proof_word, proofdlg_whatflag, proof_offst, proof_resultofs, proof_prev_col, dynaspel_closecmd ;; universal proof_nextcol -- temp parse arg hndle opt rest continue = 0 if arg(1)='pop' then compile if E_DLL = 'UTKE600' call windowmessage(0, getpminfo(EPMINFO_OWNERCLIENT), 5549, --WM_USER + 0x0500 + 0x00AD = OBJEPM_PROOFDLG 0, 0) compile else call windowmessage(0, getpminfo(APP_HANDLE), 5150, -- EPM_POPPROOFDLG 0, 0) compile endif -- E_DLL = 'UTKE600' elseif opt='init' then if proofdlg_whatflag = 1 then msg = CHECKING__MSG FILE__MSG\0 elseif proofdlg_whatflag = 2 then msg = CHECKING__MSG MARKED_AREA__MSG\0 elseif proofdlg_whatflag = 3 | proofdlg_whatflag = 4 then msg = PROOF_WORD__MSG\0 else return endif call windowmessage(1, hndle, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9193, -- Set dialog title ltoa(offset(msg) || selector(msg), 10) ) proofdlg_hwnd = hndle if proof_word<>'' then 'proofdlg' proofdlg_hwnd 'newword' endif elseif opt='newword' then if proof_word<>'' then oldwordlen=length(proof_word) oldcol = .col; .col = .col + oldwordlen; .col = oldcol; circleit PROOF_CIRCLE_STYLE, .line, .col, .col+oldwordlen-1, PROOF_CIRCLE_COLOR1, PROOF_CIRCLE_COLOR2 ;; refresh -- Refresh required to display circle, because control isn't being returned to the user msg = \26 proof_word\0 -- \26 is right arrow (also, EOF character!) call windowmessage(1, proofdlg_hwnd, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9191, -- Set current word being proofed ltoa(offset(msg) || selector(msg), 10) ) endif -- The following must be here, because 9191 re-enables the buttons. if proofdlg_whatflag = 3 | proofdlg_whatflag = 4 then call windowmessage(1, proofdlg_hwnd, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9195, -- Disable buttons 2+8+(64+1)*(proofdlg_whatflag=4) ) -- Temp. Add, Next, and for whatflg=4, Edit & Replace compile if PROOF_NEXT_DEFAULT else call windowmessage(1, proofdlg_hwnd, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9196, -- Set default button PRFDLG_NEXT) compile endif endif elseif opt='suggest' then oldwordlen=length(proof_word) circleit PROOF_CIRCLE_STYLE, .line, .col, .col+oldwordlen-1, PROOF_CIRCLE_COLOR1, PROOF_CIRCLE_COLOR2 parse value lexam(LXFSPAID, proof_word) with 2 '/' result if rc>=LXRFINIT then msg = LOOKUP_FAILED__MSG '<' proof_word '> RC='rc\0 call windowmessage(1, hndle, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9190, -- Set dialog prompt ltoa(offset(msg) || selector(msg), 10) ) elseif result='' then msg = WORD_NOT_FOUND__MSG '<' proof_word '>'\0 call windowmessage(1, hndle, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9190, -- Set dialog prompt ltoa(offset(msg) || selector(msg), 10) ) else msg = result\0 compile if PROOF_NEXT_DEFAULT call windowmessage(1, proofdlg_hwnd, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9196, -- Set default button PRFDLG_REPLACE) compile endif call windowmessage(1, hndle, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9192, -- Fill listbox ltoa(offset(msg) || selector(msg), 10) ) endif elseif opt='edit' then msg = proof_word\0 call windowmessage(1, hndle, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9197, -- Set entry field ltoa(offset(msg) || selector(msg), 10) ) elseif opt='rep_l' | opt='rep_n' then -- Replace from list / Replace with new word if proofdlg_whatflag <> 4 then -- Shouldn't be, since we disable the button... compile if 0 -- The following loses attributes. getline line replaceline leftstr(line,.col-1) || rest || substr(line,.col+length(proof_word)) compile else -- A Change command will preserve them. getsearch oldsearch 'xcom c '\1 || proof_word || \1 || rest || \1 setsearch oldsearch compile endif endif continue = 1 if proofdlg_whatflag < 3 then proof_offst = proof_offst + length(rest) - length(proof_word) if opt='rep_n' then -- Replace from list / Replace with new word proof_resultofs = proof_resultofs - 2 -- back up one word (recheck replaced word) proof_prev_col = .col ;; proof_nextcol = .col endif endif elseif opt='add' then call AMU_addenda_addition_processing(proof_word) continue = 1 elseif opt='tempadd' then compile if RESPECT_CASE_FOR_ADDENDA call lexam(LXFAD2TRS, proof_word) compile else call lexam(LXFAD2TRS,lowcase(proof_word)) compile endif continue = 1 elseif opt='next' then continue = 1 elseif opt='close' then compile if ADDENDASUPPORT if addenda_filename<>'' then call maybe_save_addenda() endif compile endif call drop_dictionary() proofdlg_hwnd = '' if dynaspel_closecmd then dynaspel_closecmd dynaspel_closecmd = '' endif else sayerror 'ProofDlg' arg(1) endif ;sayerror 'proofdlg "'arg(1)'", continue =' continue if continue then -- Continue to next word ;; .col = proof_nextcol if proofdlg_whatflag >= 3 then -- We were proofing a single word; all done! call windowmessage(0, hndle, -- send message to dialog 41, -- WM_CLOSE - 0x0029 0, 0) else -- really have to keep going call windowmessage(1, hndle, -- send message back to dialog 32, -- WM_COMMAND - 0x0020 9194, -- Disable everything 0) if opt<>'rep_n' then proof_prev_col = '' endif 'keep_on_prufin' endif endif compile endif -- USE_CUSTOM_PROOF_DIALOG const SPELL_DEBUG = 0 defkeys spell_keys overlay -- For dynamic spell-checking def space, enter = compile if EVERSION >= 6.01 universal LEXAM_PUNCTUATION compile endif universal EPM_utility_array_ID universal dynaspel_line, dynaspel_col saveline = .line savecol = .col - 1 getfileid fid do_array 3, EPM_utility_array_ID, 'dspl.'fid, xkeyset -- Restore original keyset for this fileid. .keyset = xkeyset executekey lastkey() keys spell_keys getline line, saveline if not savecol or line = '' then compile if SPELL_DEBUG sayerror '[Line was blank]' compile endif -- DEBUG return endif if substr(line, savecol, 1) = ' ' then compile if SPELL_DEBUG sayerror '[Prev. char was blank]' compile endif -- DEBUG return endif ; newcol = .col start = lastpos(' ', line, savecol) ; wrd = substr(line, start+1, savecol - start) parse value substr(line, start+1) with wrd . if not verify(wrd, LEXAM_PUNCTUATION) then -- No letters in "word"; skip it. compile if SPELL_DEBUG sayerror '[Only punctuation in word 'wrd']' compile endif -- DEBUG return endif firstchar = leftstr(wrd, 1) if firstchar='\' then -- Do the cheap test first compile if defined(TEX_FILETYPES) if wordpos(filetype(),TEX_FILETYPES) then compile else if filetype() = 'TEX' then compile endif compile if SPELL_DEBUG sayerror '[TEX token: 'wrd']' compile endif -- DEBUG return endif elseif pos(firstchar, ':&') then -- (Do the cheap test first) Script markup or variable? if AMU_script_verification() then p=pos('.', wrd) if p & p<length(wrd) then wrd = substr(wrd, p+1) else compile if SPELL_DEBUG if firstchar='&' then sayerror '[SCRIPT variable: 'wrd']' else sayerror '[SCRIPT markup: 'wrd']' endif compile endif -- DEBUG return endif endif elseif firstchar='.' & not start then -- (Do the cheap test first) SCRIPT control word? if AMU_script_verification() then compile if SPELL_DEBUG sayerror '[SCRIPT control word: 'wrd']' compile endif -- DEBUG return endif endif result=lexam(LXFVERFY,wrd) /* authenticate word using lexam */ if result then call strippunct(wrd,savecol,tmp) result = lexam(LXFVERFY,wrd) endif if(result <> LXRFGOOD) then /* was it a success ??? */ compile if DYNASPELL_BEEP = 'ALARM' compile if EPM32 call dynalink32('PMWIN', '#701', -- ORD_WIN32ALARM atol(1) || -- HWND_DESKTOP atol(0) ) -- WA_WARNING compile else call dynalink('PMWIN', 'WINALARM', atoi(0) || -- atol_swap( atoi(1) || -- HWND_DESKTOP) atoi(0) ) -- WA_WARNING compile endif compile elseif DYNASPELL_BEEP call beep(1000, 100) compile endif dynaspel_line = saveline dynaspel_col = savecol sayerror DYNASPEL_PROMPT1__MSG || wrd || DYNASPEL_PROMPT2__MSG compile if SPELL_DEBUG else sayerror '[Word was 'wrd' - OK]' compile endif -- DEBUG endif compile if not defined(DYNASPELL_KEY) define DYNASPELL_KEY = 'c_A' compile endif def $DYNASPELL_KEY = universal dynaspel_line, dynaspel_col, dynaspel_closecmd if not dynaspel_line then sayerror DYNASPEL_NORECALL__MSG return endif if .line=dynaspel_line then oldlen = length(textline(dynaspel_line)) endif call psave_pos(save_pos) dynaspel_line; .col = dynaspel_col compile if USE_CUSTOM_PROOF_DIALOG dynaspel_closecmd = 'dynaspell_restorepos' oldlen save_pos compile endif 'proofword' compile if USE_CUSTOM_PROOF_DIALOG defc dynaspell_restorepos universal dynaspel_line, dynaspel_col parse arg oldlen save_pos compile endif call prestore_pos(save_pos) if .line=dynaspel_line then diff = length(textline(dynaspel_line)) - oldlen if diff>0 then right diff elseif diff<0 then left -diff endif endif defc dynaspell = -- Takes no arguments; just toggles setting. universal EPM_utility_array_ID universal ADDENDA_FILENAME getfileid fid if .keyset<>'SPELL_KEYS' then -- Dynamic spell-checking off for this file if load_lexam() then return endif tmp_keyset = .keyset do_array 2, EPM_utility_array_ID, 'dspl.'fid, tmp_keyset -- Remember original keyset for this fileid. keys spell_keys else -- Dynamic spell-checking is on; now being turned off. compile if ADDENDASUPPORT if addenda_filename<>'' then call maybe_save_addenda() endif compile endif call drop_dictionary() do_array 3, EPM_utility_array_ID, 'dspl.'fid, tmp_keyset -- Retrieve original keyset for this fileid. .keyset = tmp_keyset empty = '' do_array 2, EPM_utility_array_ID, 'dspl.'fid, empty endif