Parse ->
Arg Target : &SyntaxTree,
    Name, Current_path, Command : String,
    Error_file_name, Log_file_name : String

Parser = . ..

- Ext >Parser<
      <
        Name : _,
        Mode : STD_PIPE_IO,
        Parameters : '-',
        Redirect : <
                     Std_out : '-',
                     Std_err : '--',
                     Std_log : Log_file_name
                   >,
        Workdir : Current_path
      >

- CharOut Parser.Std_in Command

Do while Lines( Parser.Std_out, Parser.Std_err )
 If CharsExists( Parser.Std_out ) then
  - LinesIn Parser.Std_out READ_PIPE (
                                       Line : - Process >Target< 'Temp_lines' Line
                                     )
  ' Temp_lines : List : String = <> ..
 ;

 If CharsExists( Parser.Std_err ) then
  Log Error_message
  ' Error_message - CharIn >Error_message< Parser.Std_err
 ;
;

/