[Gambas-devel] Gambas 1.9.46 Help

[Benoit Minisini]

On Wednesday 15 November 2006 15:51, Stefano Palmeri wrote:
>
> Hi, Benoit.
>
> We had this discussion on the Gambas italian mailing list. Carlo Sorda
> suggested to use the exit code of which, that should be consistent
> in all distros. I think something like this:
>
> PUBLIC FUNCTION CheckProgram(sProg AS String) AS Boolean
>
>    DIM bError AS Boolean
>    DIM iPos AS Integer
>
>    iPos = InStr(sProg, " ")
>    IF iPos THEN sProg = Left(sProg, iPos - 1)
>
>    SHELL "which " & sProg & " &> /dev/null" WAIT
>
>    bError = CBool(Process.LastValue)
>
>    RETURN bError
>
> END
>

OK.

-- 
Benoit Minisini