Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Spell Checker

From: al:bri:xtra at: 19-Jan-2001 17:47

Spurred on by Reichart's comment [on Rebol/Ahem] about a Rebol Spell Checker and Corrector being needed and needing one myself for my eText project (plain text with human understandable formatting into HTML), I wrote up this quick spell checker. Unfortunately, it doesn't work yet. I really need to know what Rebol word I need to put in the "action" block for the buttons to continue or "exit" the "view layout" part. Also, what word is used to retrieve the text from the 'Correction field? Does anyone know these? Thank you for your help. [ Rebol [ Name: 'Spell Title: "Spell Checker and Corrector" File: %Spell.r Author: "Andrew Martin" eMail: [Al--Bri--xtra--co--nz] Date: 19/Jan/2001 ] Spell!: make object! [ Directory: %Spell/ if not exists? Directory [md Directory] Dictionary: make block! 0 error? try [Dictionary: sort load Directory/Dictionary.txt] Lower: charset [#"a" - #"z"] Upper: charset [#"A" - #"Z"] Alpha: union Upper Lower set 'Spell function [Text [string!]][Word WordStart WordEnd][ parse/all Text [ some [ WordStart: [some Alpha opt [[{'} | {-}] some Alpha]] WordEnd: ( Word: copy/part WordStart WordEnd if not found? find Dictionary Word [ view layout [ h1 "Spell" h2 "Miss-spelled word?" across text Word Add: button 200 "Add to Dictionary" [append Dictionary Word] return text "Correction: " Correction: field return button "Cancel" button "OK" [] ] ] ) | skip ] ] Text ] ] Spell "hello" ] Andrew Martin ICQ: 26227169 http://members.nbci.com/AndrewMartin/