OpenEuphoria

1. WEE under Wine

• Posted by K_D_R Feb 04, 2015
• 1442 views

The Run menu F5 hotkey options haven't worked for me while running wee under Wine on Ubuntu. So I copied some code from ed.ex into the run_start procedure in the file ui_win.e and it seems to work just fine now. I'm sure there is a better way to do this - can euphoria detect Wine?

--  mods to enable WEE's Run/F5 options to execute current file  
--  file ui_win.e 
include std/text.e  -- for lower 
procedure run_start() 
    -- atom result  -- not needed under wine 
 
    -- save, no confirm 
    if save_if_modified(0) = 0 or length(file_name) = 0 then 
      return -- cancelled, or no name 
    end if 
 
    run_file_name = file_name 
 
    ifdef UNIX then system 
            system("eui \"" & file_name & "\"") 
     elsedef 
            if match(".exw", lower(file_name)) or 
                  match(".ew",  lower(file_name)) then 
                system("euiw \"" & file_name & "\"") 
            else 
                system("eui \"" & file_name & "\"") 
            end if 
    end ifdef 
 
--    result = c_func(ShellExecute, { 
--  hMainWnd, NULL, 
--  alloc_string(run_file_name), 
--  NULL, 
--  NULL, 
--  1}) 
--    free_strings() 
 
end procedure 
 

3. Re: WEE under Wine

• Posted by ghaberek (admin) Feb 04, 2015
• 1421 views

Here is an example based on the code in that link. I have not properly tested because I do not have Wine installed. On Windows I get "did not detect Wine" as expected.

include std/dll.e 
include std/machine.e 
 
public function wine_get_version() 
     
    object version = 0 
     
ifdef WINDOWS then 
     
    atom ntdll = open_dll( "ntdll.dll" ) 
    integer _wine_get_version = define_c_func( ntdll, "+wine_get_version", {}, C_POINTER ) 
     
    if _wine_get_version != -1 then 
         
        atom pversion = c_func( _wine_get_version, {} ) 
        version = peek_string( pversion ) 
         
    end if 
     
end ifdef 
     
    return version 
end function 
 
object version = wine_get_version() 
 
if sequence( version ) then 
    printf( 1, "running on Wine %s\n", {version} ) 
else 
    puts( 1, "did not detect Wine\n" ) 
end if 

-Greg

5. Re: WEE under Wine

• Posted by K_D_R Feb 04, 2015
• 1361 views

With the regular run_start code using ShellExecute a "Wine Explorer" file browser windows opens up.

I have no idea how or where to set my ShellExecute association.

Thanks for all the other info.

I look forward to a ui_gtk version for Linux.

Regards, Ken