%-----------------------------------------------------------------------------%
% Copyright (C) 1995 University of Melbourne.
% This file may only be copied under the terms of the GNU General
% Public License - see the file COPYING in the Mercury distribution.
%-----------------------------------------------------------------------------%

:- module diff.
:- interface.
:- import_module io.

:- pred main(io__state :: di, io__state :: uo) is det.

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

:- implementation.
:- import_module string, list, file, lcss, std_util, require.

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

main -->
	io__command_line_arguments(Args0),
%	{ getopt__process_options(Args0, Args, Result0) },
%	postprocess_options(Result0, Result), 
%	main_2(Result, Args).
	main_2(no, Args0).

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

:- pred main_2(maybe(string), list(string), io__state, io__state).
:- mode main_2(in, in, di, uo) is det.

main_2(yes(_), _) --> [].
main_2(no, []) --> [].
main_2(no, [File1 | Rest]) -->
	( { Rest = [ File2 | _ ] },
	    ( { File1 = File2 } ->
	    	[]
	    ;
	        ( { File1 = "-" } ->
	    	    file__read_input(Contents1),
	    	    file__read_file(File2, Contents2)
	    	; { File2 = "-" } ->
	    	    file__read_file(File1, Contents1),
	    	    file__read_input(Contents2)
	    	;
	    	    file__read_file(File1, Contents1),
	    	    file__read_file(File2, Contents2)
	    	),
	        lcss__show_diff(Contents1, Contents2)
	    )
	; { Rest = [] },
	    []
	).

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