On 26 Apr 2006, at 20:06, J. Landman Gay wrote:
I played with this for about an hour last night. I was using the
same technique, converting the script to htmltext using the replace
command. I had it mostly working but got stuck on exactly the issue
you mention. So let's let Geoff do it. :)
I probably should, but a challenge is hard to resist.
I think the script below gets round the html entity issue. It also
preserves spaces more safely than my earlier attempt. And being a
nervous type, I added a check at the end so it won't change the
script if the new version doesn't match the old version. (I'm not
sure if the "answer" dialog is appropriate for this script.)
It still has limitations. It won't allow the coloring of ampersands.
The original didn't do this either, but it could have been added to
the tokencolors array. It doesn't color function names that are
followed by parentheses. It also depends on the engine's non-standard
handling of html with respect to multiple spaces and other non-ASCII
characters.
One thing that neither the original or this version do is color
tokens that have no space between them. Things like x&y. But it's a
bad habit anyway. :-)
But why DarkOrchid4? Isn't that the name of an Empire battle cruiser?
Cheers
Dave
------------------------------------------------
on colorizescript_2
local s, tAddReturn, tNL, tEachLine, tLine, tOff1, tOff2
local tComment, w, tNS
if tokencolors["if"] is empty then setupcolors
put field "Editor Field" into s
if char -1 of s = return then put true into tAddReturn
repeat for each line tEachLine in s
put empty into tNL
put tEachLine into tLine
replace "&" with "&" in tLine
if "<" is in tLine then replace "<" with "<" in tLine
if ">" is in tLine then replace ">" with ">" in tLine
put offset("#",tLine) into tOff1
put offset("--",tLine) into tOff2
if tOff1 > 0 or tOff2 > 0 then
if tOff1 = 0 then
put tOff2 into tOff1
else if tOff2 = 0 then
put tOff1 into tOff2
end if
put char min(tOff1,tOff2) to -1 of tLine into tComment
delete char min(tOff1,tOff2) to -1 of tLine
else
put empty into tComment
end if
replace space with return in tLine
repeat for each line w in tLine
if tokencolors[w] is not empty then
put "<font color=" & tokencolors[w] & ">"after tNL
put w after tNL
put "</font>" after tNL
else
put w after tNL
end if
put space after tNL
end repeat
if char -1 of tLine <> return then delete char -1 of tNL
if tComment <> empty then
put "<font color=DarkOrchid4>" & tComment & "</font>" after tNL
end if
put "<p>" & tNL & "</p>" after tNS
end repeat
if tAddReturn then put "<p></p>" after tNS
set the htmlText of field "Editor Field" to tNS
if the text of field "Editor Field" <> s then
answer "Unable to colorize script."
put s into field "Editor Field"
end if
end colorizescript_2
_______________________________________________
metacard mailing list
metacard@lists.runrev.com
http://lists.runrev.com/mailman/listinfo/metacard
