OpenEuphoria

Shian Lee's Unicode/Utf8 editor, "edu.ex" Tricks and Tips

• Posted by Senator Jan 18, 2018
• 1870 views

Version 2.0 of edu.ex for Euphoria 3.1.1 is available in Lee's lib2 library: Download: lib2

Very interesting Euphoria 3.1.1 library "upgrade" package with a nice installation program. Lee has added a number of neat enhancements to edu.ex check it out!

You probably would like to add the following code at the top of the edu.ex source code file just after the include statements:

edit 1/19/2018: platform used instead of ifdef which is not available in Euphoria 3.1.1

-- patch to fix Linux screen positioning 
-- from euphoria 4.x ed.ex, by John Brown, I think 
-- requires misc.e for platform() 
include misc.e 
procedure get_real_text_starting_position() 
    sequence sss = "" 
    integer ccc 
    puts(1, 27&"[6n") 
    while 1 do 
	ccc = get_key() 
	if ccc = 'R' then 
	    exit 
	end if 
	if ccc != -1 then 
	    sss &= ccc 
	end if 
    end while 
    sss = sss[3..$] 
    sequence aa, bb 
    aa = value(sss[1..find(';', sss)-1]) 
    bb = value(sss[find(';', sss)+1..$]) 
    position(aa[2], bb[2]) 
end procedure 
if platform = LINUX then 
    get_real_text_starting_position() 
end if