OpenEuphoria

2. Re: Backspace doesn't work in 4.1.0 programs?

• Posted by ChrisB (moderator) May 05, 2022
• 1761 views

Hi

Ok, there's a lot of guff in here, and most of it is plagerised from other programs, but this will read every key on the keyboard that you press, and return an integer

global object VOID 
 
--eu only 
--/*          
include graphics.e -- color names 
include dll.e 
include wildcard.e 
include misc.e 
include get.e 
include image.e 
--*/ 
 
without warning 
 
global constant EU_VERSION = 3, 
                PLAT = platform()         
         
 
constant COLORS = 1,  FGND = 1, BKGND = 2,   -- box structure 
         COORDS = 2,  ROW = 1, COL = 2, 
         SIZE   = 3,  HEIGHT = 1, WIDTH = 2, MINH = 4, MINW = 8,     
         STYLE  = 4,       
         SHADOW = 5, 
         HINT   = 6, 
         HINTCOLORS = 7, 
         BUFFER = 8 
 
global integer  SGL, DBL, DHL, DVL, NONE, 
                up, dn, left, right, ENTER, ESC, SP, 
                pgup, pgdn, home, endd, insert, bksp, del, tab, 
                F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12         
          
global sequence Lines, Divider, Shadow 
global integer TL, HL, TR, VL, BL, BR 
global object ENV = "Windows" 
 
ESC = 27 
global constant KEY_UP = {ESC, 91, 65}, 
                KEY_DOWN = {ESC, 91, 66}  
 
 
tab = '\t' 
TL = 1  HL = 2  TR = 3  VL = 4  BL = 5  BR = 6 
 
if platform() = LINUX then                
        SGL = 1 DBL = 2  DHL = 3  DVL = 4  NONE = 5  -- border styles 
        --key defines 
        up = 259  dn = 258  left = 260  right = 261  ENTER = 10  ESC = 27  SP = 32   
        pgup = 339  pgdn = 338  home = 262  endd = 360  insert = 331  bksp = 263 del = 330 
        F1 = 265 F2 = 266 F3 = 267 F4 = 268 F5 = 269 F6 = 270 F7 = 271 F8 = 272 F9 = 273 F10 = 274 F11 = 275 F12 = 276 
         
         
        --these have been changed from the 'graphic' character set 
        Lines = {{'+','-','+','|','+','+'}, -- single line borders 
                        {'+','-','+','|','+','+'}, -- double line borders 
                        {'+','-','+','|','+','+'}, -- double horizontal 
                        {'+','-','+','|','+','+'}, -- double vertical 
                        {' ',' ',' ',' ',' ',' '} } -- none 
                         
        Divider = {{'+','-','+'}, -- single style divider line 
                        {'+','-','+'}, 
                        {'+','-','+'}, -- double horizontal 
                        {'+','-','+'}, 
                        {' ',' ',' '}} 
         
        Shadow = {' ',' ',' '}  -- 3 different shadow backgrounds 
         
        ENV = getenv("TERM") 
        if sequence(ENV) and match(upper(ENV), "XTERM") = -10 then --set to -10 to ignore it for now 
                --xterms seem to work differently - try Windows set 
                Lines = {{218,196,191,179,192,217}, -- single line borders 
                                {201,205,187,186,200,188}, -- double line borders 
                                {213,205,184,179,212,190}, -- double horizontal 
                                {214,196,183,186,211,189}, -- double vertical 
                                {' ',' ',' ',' ',' ',' '}} -- none 
                                 
                Divider = {{195,196,180}, -- single style divider line 
                                {204,205,185}, 
                                {198,205,181}, -- double horizontal 
                                {199,196,182}, 
                                {' ',' ',' '}} 
                 
                Shadow = {176,177,178}  -- 3 different shadow backgrounds 
        end if 
                         
         
else 
        SGL = 1 DBL = 2  DHL = 3  DVL = 4  NONE = 5  -- border styles 
        --key defines wim32 / dos 
        up = 328  dn = 336  left = 331  right = 333  ENTER = 13  ESC = 27  SP = 32  
        pgup = 329  pgdn = 337  home = 327  endd = 335  insert = 338  bksp = 8 del = 339 
        F1 = 315 F12 = 316 F3 = 317 F4 = 318 F5 = 319 F6 = 320 F7 = 321 F8 = 322 F9 = 323 F10 = 324 F11 = 325 F12 = 326 
 
        --redefining for windows version 
        up = 1016400  dn = 1016432  left = 1016384  right = 1016416 
        pgup = 1016320  pgdn = 1016336 
 
        --have to work out codes for lines       
--    Lines = {{'?,'?,'¿','³','?,'?}, -- single line borders 
--                {'?,'?,'»','º','?,'¼'}, -- double line borders 
--                {'?,'?,'¸','³','?,'¾'}, -- double horizontal 
--                {'?,'?,'·','º','?,'½'}, -- double vertical 
--                {' ',' ',' ',' ',' ',' '}} -- none 
--                 
--    Divider = {{'?,'?,'´'}, -- single style divider line 
--                  {'?,'?,'¹'}, 
--                  {'?,'?,'µ'}, -- double horizontal 
--                  {'?,'?,'¶'}, 
--                  {' ',' ',' '}} 
-- 
--    Shadow = {'°','±','²'}  -- 3 different shadow backgrounds 
    Lines = {{218,196,191,179,192,217}, -- single line borders 
                  {201,205,187,186,200,188}, -- double line borders 
                  {213,205,184,179,212,190}, -- double horizontal 
                  {214,196,183,186,211,189}, -- double vertical 
                  {' ',' ',' ',' ',' ',' '}} -- none 
                   
    Divider = {{195,196,180}, -- single style divider line 
                    {204,205,185}, 
                    {198,205,181}, -- double horizontal 
                    {199,196,182}, 
                    {' ',' ',' '}} 
 
    Shadow = {176,177,178}  -- 3 different shadow backgrounds 
 
         
end if 
 
global atom SCREEN_BKGND 
SCREEN_BKGND = BLACK 
 
global atom LIST_KEY  
LIST_KEY = 0 
 
global integer LISTBOXINDEX_INITIAL_FLAG        --flag to set searching for first letter in list 
LISTBOXINDEX_INITIAL_FLAG = 0                   --doesn't always respond to this 
                                                --hence flag 
 
global integer INSERT_MODE                      --can set insert mode on and off from outside FDialogs 
INSERT_MODE = 0 
 
global sequence DefaultBox 
         DefaultBox = {{BRIGHT_WHITE,BLUE},  -- default colors 
                       {1,1},                -- coordinates top left corner 
                       {5,10},               -- box size 
                        SGL,                 -- single line border 
                        1,                   -- light shadow 
                        "Press any key...",  -- hint text 
                        {GREEN,BLACK},       -- hint colors 
                        {}}                  -- buffer for save screen 
 
--to accomodate usage in xterm or konsole that hasn't been set to 25 lines 
--if you know it has, then set it to 25, to appear at bottom of screen 
global integer SCREEN_LINES, SCREEN_COLS 
        SCREEN_LINES = 24 
        SCREEN_COLS = 80 
global sequence vid_conf 
 
integer TRUE = 1, FALSE = 0 
 
sequence HIGHLIGHT_COLORS = {BRIGHT_GREEN, BRIGHT_MAGENTA, BRIGHT_WHITE, BRIGHT_BLUE, BRIGHT_CYAN, BRIGHT_RED, YELLOW} 
sequence LOWLIGHT_COLORS = {GREEN, MAGENTA, WHITE, BLUE, CYAN, RED, BROWN} 
global integer BKGRND_HIGHLIGHT_SWITCH = 1, 
        WITH_SHADOW = FALSE                     --sets whether a box should have a shadow or not 
 
 
 
--------------------------------------------------------------------------------------------------------------------- 
vid_conf = video_config() 
SCREEN_LINES = vid_conf[VC_LINES] 
SCREEN_COLS = vid_conf[VC_COLUMNS] 
 
--------------------------------------------------------------------------------------------------------------------- 
global function resolve_queue(sequence kq) 
--------------------------------------------------------------------------------------------------------------------- 
 
if match(kq, {27,79,70}) then return endd end if 
if match(kq, {27,79,72}) then return home end if 
 
for i = 1 to length(kq) do 
        if kq[1] =  ESC then 
                if kq[2] = -1 then 
                        return ESC 
                elsif kq[2] = 79 then 
                        if kq[3] = 0 then return home 
                        elsif kq[3] = 101 then return endd 
                        elsif kq[3] = 80 then return F1 
                        elsif kq[3] = 81 then return F1 + 1 
                        elsif kq[3] = 82 then return F1 + 2 
                        elsif kq[3] = 83 then return F1 + 3 
                        end if 
                elsif kq[2] = 91 then 
                        if kq[3] >= 65 and kq[3] <= 68 then 
                                if kq[3] = 65 then return up 
                                elsif kq[3] = 66 then return dn 
                                elsif kq[3] = 67 then return right 
                                else return left 
                                end if 
                        elsif kq[3] = 49 then 
                                if kq[4] = 126 then return home end if 
                        elsif kq[3] = 50 then 
                                if kq[4] = 126 then return insert end if 
                        elsif kq[3] = 51 then return del 
                        elsif kq[3] = 52 then return endd 
                        elsif kq[3] = 53 then return pgup 
                        elsif kq[3] = 54 then return pgdn 
                        else  
                                return F1 + kq[3] - 49 
                        end if 
                end if 
        end if 
end for 
 
 
return -1 
end function 
 
--------------------------------------------------------------------------------------------------------------------- 
global function wait_key_nn() 
--new non ncurses wait_key replacement for eu 3 
--returns a single character, like versions previous to eu25t3 
--will also return a single character with versions prior to eu25t3 
--note lot of scrounging from ed.ex, RDS 
 
--------------------------------------------------------------------------------------------------------------------- 
atom key 
sequence kq 
object characters 
 
kq = {}  
 
--wait for the first key - less computing time! 
key = wait_key() 
 
--pre eu 3.0 compatability 
if EU_VERSION < 3 or PLAT = WIN32 then return key end if 
 
kq = {key} 
 
--now get the rest of the keys 
while 1 do 
        key = get_key() 
        if key = -1 then 
                exit 
        end if 
        kq &= key 
end while 
 
--thats filled the sequence, now process it 
 
if length(kq) = 1 then 
        if kq[1] =  127 then kq[1] = bksp end if  
        return kq[1] 
end if  
 
--puts(1, "Key pressed") 
--for i = 1 to length(kq) do 
--        printf(1, "%d,", {kq[i]}) 
--end for 
 
key = resolve_queue(kq) 
 
return key 
end function 
--------------------------------------------------------------------------------------------------------------------- 
global function get_key_nn(object c) 
--replaces original get_key function for n0 ncurses eu version 
--this won't work if there are too many key presses too quickly, better to use a match 
--------------------------------------------------------------------------------------------------------------------- 
atom key 
sequence kq 
 
if EU_VERSION < 3 or PLAT = WIN32 then return c end if 
 
kq = {c}        --the first element 
 
--now get the rest of the keys 
while 1 do 
        key = get_key() 
        if key = -1 then 
                exit 
        end if 
        kq &= key 
end while 
 
--thats filled the sequence, now process it 
 
if length(kq) = 1 then 
        if kq[1] =  127 then kq[1] = bksp end if  
        return kq[1] 
end if  
 
--puts(1, "Key pressed") 
--for i = 1 to length(kq) do 
--        printf(1, "%d,", {kq[i]}) 
--end for 
 
key = resolve_queue(kq) 
 
return key 
end function 
 
 
integer c 
 
/* 

object k 
while 1 do 
    k = wait_key() 
    printf(1, ": %d\n", {k}) 
end while 
*/ 
 
while 1 do 
    c = wait_key_nn() 
    printf(1, " - Returned key : %d\n", {c}) 
end while 
 

It's from a heavily modded dialog.ex, for a menu system, which actually looks quite nice on windows

Cheers

Chris

4. Re: Backspace doesn't work in 4.1.0 programs?

• Posted by RobertS May 06, 2022
• 1737 views

Chris: Thank you! I'm afraid I don't understand how to use it, though. I need it for reading single lines from the Windows console:

object line
line = prompt_string("? ")

That is, I need a function that returns a string, and that more or less looks like and works like entering something at the console prompt. Insert/delete as the console command line has it would be nice but isn't necessary, but Backspace is essential for fixing typing errors. If I can use the code you've provided as a replacement for prompt_string(), I haven't found how?

Greg: Thank you - but, I'm not familiar with GitHub, and I'm too stupid to figure it out: I do not find the files that I can download?

Robert

6. Re: Backspace doesn't work in 4.1.0 programs?

• Posted by ghaberek (admin) May 06, 2022
• 1712 views

The Artifacts listed at the bottom of the page include output from that run of the build. Clicking on an artifact will give you a zip file of the contents. Inside the zip file you'll find a new copy of each executable like eui.exe, etc. You can use these in place of the executables you currently have installed. So if you're currently using Euphoria 4.1.0 64-bit on Windows, download the euphoria-4.1.0-WINDOWS-x86_64-d8fb2e2 package and then grab the eui.exe from inside and copy it to your C:\Euphoria\bin directory. (I'd recommend renaming the existing one first in case you want to put it back.)

-Greg

8. Re: Backspace doesn't work in 4.1.0 programs?

• Posted by RobertS May 07, 2022
• 1658 views

I've just discovered something strange:

In this example, Backspace works with gets(0)

object line
line = gets(0)
puts(1, "\n")
puts(1, "input line: " & line)

After I write anything to the screen, Backspace stops working:

object line
puts(1, "anything\n")
line = gets(0)
puts(1, "\n")
puts(1, "input line: " & line)

Also, in the first example puts(1, "\n") creates an extra blank line, but as soon as something got written to the screen and Backspace stops working, \n is needed to start a new line - as it had been until 4.05.

Maybe this can give a hint where the problem may lie?

Still have to try Chris's code! Thanks, Robert

10. Re: Backspace doesn't work in 4.1.0 programs?

• Posted by ChrisB (moderator) May 09, 2022
• 1530 views

You're welcome!

Chris