system_call

generate_temporary_cspm_file(CSPFile,CSPFileNameTemp):-
    get_writable_compiled_filename(CSPFile,'.tmp',CSPFileNameTemp).

get_command_path(CmdName,CmdPath) :-
    absolute_file_name(path(CmdName),
    CmdPath,
    [access(exist),extensions(['.exe','']),solutions(all),file_errors(fail)]),!.

get_command_path(CmdName,_) :-
    add_error_fail(get_command_path,'Could not get path to command: ',CmdName).

get_temporary_filename(PreferredFileName,WritableFile) :-
    debug_println(9,trying_to_get_temporary_filename(PreferredFileName)),
    open_temp_file(PreferredFileName, WritableFile, S1),
    debug_println(9,temporary_file(WritableFile)),
    close(S1).

get_writable_compiled_filename(SourceFile,Extension,WritableFile) :-
    get_writable_compiled_filename(SourceFile,Extension,WritableFile,_).

get_writable_compiled_filename(SourceFile,Extension,WritableFile,IsTemporaryFile) :-
    atom_concat(SourceFile,Extension,WFile),
    debug_println(9,generating_writable_file(SourceFile,Extension)),
    (file_exists(WFile),
    file_property(WFile,writable)
    -> debug_println(9,file_writable(WFile)), IsTemporaryFile=false,
    WritableFile=WFile
    ; get_tail_filename(WFile,TFile),
    safe_on_exception(_E,
    (open(WFile,write,S1,[]),close(S1),WritableFile=WFile,
    IsTemporaryFile=false),
    (IsTemporaryFile=true,
    get_temporary_filename(TFile,WritableFile)) )
).

my_process_wait(Process,ExitCode) :- (ExitCode == no_process_wait -> true ; process_wait(Process,ExitCode)).

read_all(S,Command,Pipe,Text) :-
    call_cleanup(read_all1(S,Command,Pipe,Text),
    close(S)).

read_all1(S,Command,Pipe,Text) :-
    catch(read_all2(S,Lines), error(_,E), ( % E could be system_error('SPIO_E_ENCODING_INVALID')
    ajoin(['Error reading ',Pipe,' for "',Command,'" due to exception: '],Msg),
    add_error(system_call,Msg,E),
    fail
    )),
    append(Lines,Text).

read_all2(S,Text) :-
    read_line(S,Line),
    ( Line==end_of_file ->
    Text=[[]]
    ;
    Text = [Line, [0'\n] | Rest],
    read_all2(S,Rest)).

system_call(Command,Args,ErrorTextAsCodeList,ExitCode) :-
    system_call_with_options(Command,Args,[],ErrorTextAsCodeList,ExitCode).

system_call(Command,Args,OutputTextAsCodeList,ErrorTextAsCodeList,ExitCode) :-
    system_call_with_options(Command,Args,[],OutputTextAsCodeList,ErrorTextAsCodeList,ExitCode).

system_call_internal(Command,Args,ProcessCreateOptions) :-
    safe_on_exception(E,
    process:process_create(Command, Args, ProcessCreateOptions),
    ( ajoin(['Could not execute command "',Command,'" due to exception: '],Msg),
    add_error(system_call,Msg,E),fail)).

system_call_keep_open(Command,Args,Process,STDIn,STDOut,STDErr,Env) :-
    system_call_internal(Command,Args,
    [process(Process),
    stdout(pipe(STDOut,[encoding(utf8)])),
    stdin(pipe(STDIn,[encoding(utf8)])),
    stderr(pipe(STDErr,[encoding(utf8)])),
    environment(Env)]).

system_call_keep_open_no_pipes(Command,Args,Process,Env) :-
    system_call_internal(Command, Args,
    [process(Process),environment(Env)]).

system_call_with_options(Command,Args,Options,ErrorTextAsCodeList,ExitCode) :-
    system_call_internal(Command, Args,
    [process(Process),stderr(pipe(JStderr,[encoding(utf8)]))|Options]),
   
    read_all(JStderr,Command,stderr,ErrorTextAsCodeList),
    my_process_wait(Process,ExitCode).

system_call_with_options(Command,Args,Options,OutputTextAsCodeList,ErrorTextAsCodeList,ExitCode) :-
    %StreamOptions = [encoding('UTF-8')], % we could use pipe(JStdout,StreamOptions), ... below
    system_call_internal(Command, Args,
    [process(Process),
    stdout(pipe(JStdout,[encoding(utf8)])),stderr(pipe(JStderr,[encoding(utf8)]))|Options]),
    read_all(JStdout,Command,stdout,OutputTextAsCodeList),
    read_all(JStderr,Command,stderr,ErrorTextAsCodeList),
    my_process_wait(Process,ExitCode).