:- module(merge_batch_translation_files,
	  [merge_batch_translation_files/3]
	 ).

:- use_module('$REGULUS/Prolog/regulus_utilities').
:- use_module('$REGULUS/PrologLib/utilities').
:- use_module(library(lists)).

%----------------------------------------------------------------------

merge_batch_translation_files(InFile, RefInFile, OutFile) :-
	absolute_file_name(InFile, AbsInFile),
	absolute_file_name(RefInFile, AbsRefInFile),
	absolute_file_name(OutFile, AbsOutFile),

	prolog_file_to_list(AbsInFile, InList),
	length(InList, NInList),
	format('~N--- Read file (~d records): ~w~n', [NInList, AbsInFile]),
	
	prolog_file_to_list(AbsRefInFile, RefInList),
	length(RefInList, NRefInList),
	format('~N--- Read file (~d records): ~w~n', [NRefInList, AbsRefInFile]),

	(   NInList \== NRefInList ->
	    format2error('~N*** Error: files do not contain the same number of records~n', []) ;

	    true ->
	    
	    open(AbsOutFile, write, S),
	    merge_batch_translation_lists(InList, RefInList, S, 0-NOutList),
	    close(S),
	    format('~N--- Written file (~d records): ~w~n', [NOutList, AbsOutFile]),
	    copy_file(AbsOutFile, AbsInFile),
	    format('~N--- Copied output file to ~w~n', [AbsInFile])
	).
merge_batch_translation_files(InFile, RefInFile, OutFile) :-
	format2error('~N*** Error: bad call: ~w~n',
		     [merge_batch_translation_files(InFile, RefInFile, OutFile)]),
	fail.

merge_batch_translation_lists([], [], _S, N-N).
merge_batch_translation_lists([F | R], [F1 | R1], S, NIn-NOut) :-
	merge_batch_translation(F, F1, S),
	NNext is NIn + 1,
	!,
	merge_batch_translation_lists(R, R1, S, NNext-NOut).

/*
%---------------------------------------
%Wavfile: c:/cygwin/home/speech/speechtranslation/medslt2/fre/corpora/speech/pierrette/2005-11-21/14.15.47.156/utt0019.wav
%Source: avez vous � la t�te+do you have the headaches when you read
%Recognised: avez vous mal � la t�te
%Target: do you have the headaches
%*** BAD TRANSLATION ***
%    Source representation: [[body_part,t�te],[locative_prep,�],[path_proc,avoir],[pronoun,vous],[symptom,mal],[tense,present],[utterance_type,sentence],[voice,active]]
%         Source discourse: [[utterance_type,sentence],[voice,active],[tense,present],[path_proc,avoir],[pronoun,vous],[symptom,mal],[locative_prep,�],[body_part,t�te]]
%Resolved source discourse: [[utterance_type,sentence],[voice,active],[tense,present],[path_proc,avoir],[pronoun,vous],[symptom,mal],[locative_prep,�],[body_part,t�te]]
%    Resolution processing: trivial
%              Interlingua: [[symptom,headache],[state,have_symptom],[pronoun,you],[modal,can],[utterance_type,ynq],[voice,active]]
%    Target representation: [[pronoun,you],[secondary_symptom,headache],[state,have_symptom],[tense,present],[utterance_type,ynq],[voice,active]]

translation(
    'avez vous � la t�te'+'do you have the headaches when you read',
    'do you have the headaches',
    [wavfile='c:/cygwin/home/speech/speechtranslation/medslt2/fre/corpora/speech/pierrette/2005-11-21/14.15.47.156/utt0019.wav',recognised='avez vous mal � la t�te',n_parses=1,source_representation=[[body_part,t�te],[locative_prep,�],[path_proc,avoir],[pronoun,vous],[symptom,mal],[tense,present],[utterance_type,sentence],[voice,active]],source_discourse=[[utterance_type,sentence],[voice,active],[tense,present],[path_proc,avoir],[pronoun,vous],[symptom,mal],[locative_prep,�],[body_part,t�te]],resolved_source_discourse=[[utterance_type,sentence],[voice,active],[tense,present],[path_proc,avoir],[pronoun,vous],[symptom,mal],[locative_prep,�],[body_part,t�te]],resolution_processing=trivial,interlingua=[[symptom,headache],[state,have_symptom],[pronoun,you],[modal,can],[utterance_type,ynq],[voice,active]],target_representation=[[pronoun,you],[secondary_symptom,headache],[state,have_symptom],[tense,present],[utterance_type,ynq],[voice,active]],n_generations=1,other_translations=[]],
    bad
  ).
*/

merge_batch_translation(Record, RefRecord, S) :-
	Record = translation(Source, Target, Stats, Judgement),
	RefRecord = translation(_RefSource, RefTarget, _RefStats, RefJudgement),
	format(S, '~N~n%---------------------------------------', []),
	(   member(wavfile=Wavfile, Stats) ->
	    format(S, '~N%Wavfile: ~w', Wavfile) ;
	    true
	),
	format(S, '~N%Source: ~w', Source),
	(   member(recognised=Recognised, Stats) ->
	    format(S, '~N%Recognised: ~w~n', Recognised) ;
	    true
	),
	format(S, '~N%Target: ~w~n', Target),
	format(S, '~N%Ref Target: ~w (judgement: ~w)~n', [RefTarget, RefJudgement]),
	present_interesting_stats(S, Stats),
	format(S, '~N~ntranslation(~n', []),
	format(S, '~N    ~q,~n', [Source]),
	format(S, '~N    ~q,~n', [Target]),
	format(S, '~N    ~q,~n', [Stats]),
	format(S, '~N    ~q~n', [Judgement]),
	format(S, '~N  ).~n', []),
	!.

present_interesting_stats(S, Stats) :-
	(   member(source_representation=FirstParse, Stats) ->
	    format(S, '~N%    Source representation: ~w~n', [FirstParse]) ;
	    true
	),
	(   member(n_parses=NParses, Stats), NParses > 1 ->
	    format(S, '~N%*** WARNING *** ~d parses~n', [NParses]) ;
	    true
	),
	(   member(source_discourse=SourceDiscourse, Stats) ->
	    format(S, '~N%         Source discourse: ~w~n', [SourceDiscourse]) ;
	    true
	),
	(   member(resolved_source_discourse=ResolvedSourceDiscourse, Stats) ->
	    format(S, '~N%Resolved source discourse: ~w~n', [ResolvedSourceDiscourse]) ;
	    true
	),
	(   member(resolution_processing=ResolutionProcessing, Stats) ->
	    format(S, '~N%    Resolution processing: ~w~n', [ResolutionProcessing]) ;
	    true
	),
	(   member(interlingua=Interlingua, Stats) ->
	    format(S, '~N%              Interlingua: ~w~n', [Interlingua]) ;
	    true
	),
	(   member(target_representation=TransferredParse, Stats) ->
	    format(S, '~N%    Target representation: ~w~n', [TransferredParse]) ;
	    true
	),
	(   member(n_generations=NGenerations, Stats), NGenerations > 1 ->
	    format(S, '~N%*** WARNING *** ~d generated strings~n', [NGenerations]) ;
	    true
	).