OpenEuphoria

2. Re: running another program with system / system_exec

• Posted by BRyan Oct 01, 2013
• 1457 views

Chris:

Instead of trying to explain what you are doing; Pleas post the exact euphoria code

that you are trying to run.

4. Re: running another program with system / system_exec

• Posted by useless_ Oct 01, 2013
• 1434 views

PS:
When i say i quote everything, i mean i also quote the quotes. Lines with paths with spaces in them must be recieved by dos with the quotes.

useless

6. Re: running another program with system / system_exec

• Posted by useless_ Oct 02, 2013
• 1373 views

What do you get when you puts(1,sys_command)?

useless

8. Re: running another program with system / system_exec

• Posted by DerekParnell (admin) Oct 04, 2013
• 1261 views

Try something like this ... remember to quote each component of the command line and never trust anything entered by a human.

function enquote(sequence x) 
    -- Remove existing enclosing quotes 
    if length(x) >= 2 then 
        if x[1] = '"' and x[$] = '"' then 
           x = x[2..$-1] 
        end if 
    end if 
    -- Replace all remaining quotes with a double-quote 
    for i = length(x) to 1 by -1 do 
        if x[i] = '"' then 
           x = x[1 .. i] & '"' & x[i+1 .. $] 
        end if 
    end for 
    -- Enclose input with quotes. 
    return '"' & x & '"' 
end function 
 
----------------------------------------------------------------------------------------------------------------- 
global procedure List13Click() 
--show the clicked image 
----------------------------------------------------------------------------------------------------------------- 
sequence showFile, dataPath, sys_command 
 
showFile = GetItem(List13) 
while length(showFile) > 0 and showFile[1] = '\\' then 
    showFile = showFile[2..$] 
end while 
 
dataPath = GetText(Edit25) 
if length(dataPath) > 0 and dataPath[$] != '\\' then 
    dataPath &= '\\' 
end if 
 
 
--List13 is the chosen file 
--Edit25 is the path to the file 
 
sys_command = enquote(GetText(Edit32)) & ' ' & enquote(dataPath & showFile) 
 
system_exec(sys_command, 0) 
 
 
end procedure 

And to be safer, you might want to validate the USER ENTERED program to execute to make sure its an allowable one. Don't want the user to format your C: drive now do you?

10. Re: running another program with system / system_exec

• Posted by ChrisB (moderator) Oct 04, 2013
• 1325 views

Hi

Success, this works

sequence showFile, sys_command = "" 
sequence string1 = "", string2 = "" 
 
showFile = GetItem(List13) 
showFile = GetText(Edit25) & "\\" & showFile 
 
--string2 = ShortFileName(showFile) 
 
--sys_command = '\"' & GetText(Edit32) & '\" ' & GetText(Edit25) & "\\1054-20081022-7055-current-21456-i.jpg"  & '"' 
 
showFile = GetText(Edit25) & "\\1054-20081022-7055-current-21456-i.jpg" 
 
string1 = "\"" & GetText(Edit32) & "\"" 
string2 = "\"" & showFile & "\"" 
 
puts(1, string1 & "\n") 
puts(1, string2 & "\n") 
puts(1, sys_command & "\n") 
 
system_exec(string1 & " " & string2, 0) 
 

The puts'd strings are fully quoted, and there are spaces in the executables path\filename.

BUT - if you put spaces in the parameters path\filename then the program opens, but the program fails to open the file. Having said that I am using an older version of paint shop pro - so it may be ok with a more modern image viewer - I shall try IrfanView, and report back.

Thanks to all those that pointed me in the right direction. Perhaps this should be added to the manual as system_exec gotchas.