OpenEuphoria

1. Linux: position() bug?

• Posted by K_D_R Jan 22, 2012
• 1395 views

Running the demo file search.ex:

This is a screen capture from a run of the demo file search.ex:

string (* and ? may be used): load_files 
             y  --<<<-- cursor placed here after displaying "match case? (n)" 
match case? (n) 
file-spec (*.*): *.ex n --<<<-------- ? 
 
press q to quitries? (y) --? 
 
                                                                                             
   23 files scanned (*.ex) 
   20 files skipped 
    0 files contained "load_files" (case must match) 
 
search time: 0.0 seconds 
 

This is the code segment form search.ex:

 
 
if alphabetic(orig_string) then 
    puts(SCREEN, "match case? (n)") 
    pos = get_position() 
    position(pos[1], pos[2] - 2)--<<<----- pos[1] should place on the same line as the match case? (n)" prompt, yes? 
    match_case = find('y', gets(KEYB)) 
    puts(SCREEN, '\n') 
-- 
-- 
puts(SCREEN, "scan subdirectories? (y)") 
	    pos = get_position() 
	    position(pos[1], pos[2] - 2)  --<<------- 
	    scan_subdirs = not match("n", gets(KEYB)) 
 

Regards, Kenneth Rhodes

3. Re: Linux: position() bug?

• Posted by K_D_R Jan 22, 2012
• 1300 views

Running Derek's test code:

{1,1} 
match case? (n) 
 
{2,16} 

Ubuntu 11.10 gnome-terminal Intel® Core™2 Duo CPU E7400 @ 2.80GHz × 2 os type: 32 bit

5. Re: Linux: position() bug?

• Posted by K_D_R Jan 23, 2012
• 1268 views

I hope you guys can fix it.... oh, and there's that irritating cursor positoning problem in Linux at startup. Or is that the tail of the same horse?

kenneth@kenneth-OptiPlex-360:~/euphoria.4.0.3$  
 
kenneth@kenneth-OptiPlex-360:~/euphoria.4.0.3$ ed.ex  --<<<< executing ed.ex without an argument 
 
kenneth@ken$  --<<----- $ marks the prompt, 2 or 3 lines up, and minus 10 columns or so.                                                                                                      
file name:  
 
kenneth@kened.ex                                                                                                 
file name:  

That thing has been around forever. I am not sure that it has ever worked since Rob dropped ncurses.

Your efforts are appreciated. Regards, Kenneth Rhodes

7. Re: Linux: position() bug?

• Posted by jimcbrown (admin) Jan 24, 2012
• 1393 views

kenneth@kenneth-OptiPlex-360:~/euphoria.4.0.3$  
 
kenneth@kenneth-OptiPlex-360:~/euphoria.4.0.3$ ed.ex  --<<<< executing ed.ex without an argument 
 
kenneth@ken$  --<<----- $ marks the prompt, 2 or 3 lines up, and minus 10 columns or so.                                                                                                      
file name:  
 
kenneth@kened.ex                                                                                                 
file name:  

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 
ifdef LINUX then 
	get_real_text_starting_position() 
end ifdef 

I also tested this in demo/search.ex and it works as well, after I add an include for std/get.e . I call get_real_text_starting_position() as soon as it's defined (between the last include file and the first constant) and also immediately before both calls to get_position().