1. Q: Unfortunately, it doesn't work yet
A: I thought you were going to say�"because you misspelled something.
But, hey Cool!
You build the basic structure, I will go gather some PD dictionaries, and
convert them. We can then submit to Rebol as the keeper of the files.
While spelling is by in far my primary goal, Word Def (dictionary), and
Thesaurus are my secondary goals. So also, let me ask now that you make
the format easily upgrade-able to handle several fields:
Such as:
TYPE: Non, verb, etc.
ROOT: Where the word comes from.
PHONEME: Phonetic spelling.
MEANINGS: The different examples of the meaning of the word.
EXAMPLES: Example sentences using the word.
Then as things grow we can start looking at language to language
dictionaries.
The world is getting smaller everyday.
Reichart�
"No man is an island�"
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] On Behalf Of
Andrew Martin
Sent: Thursday, January 18, 2001 8:47 PM
To: [EMAIL PROTECTED]
Subject: [REBOL] Spell Checker
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: [EMAIL PROTECTED]
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/
-><-
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
