/*
// This file is a part of the TMI distribution mudlib.
// Please retain this header if you use this code.
// Devised & Written by Douglas Reay (Pallando @ TMI, Ephemeral Dale, etc)
// Version 1.0  92-11-28
// Version 1.1  93-02-13  Improved security [querying name to using euid pvob]
//
// Watcher@TMI (04/10/93) changed it so the output is put through the
//  user's more pager system, and made the headlines stand out a bit better.
*/

#include <mudlib.h>

inherit DAEMON;

int sort( string mem, mixed arr )
{
  return -1 == member_array( mem, arr );
}

mixed get_lines( string file_name )
{
  string file;

  file_name = resolv_path( "cwd", file_name );
  switch( file_size( file_name ) ) 
  {
    case -2: { write( file_name + " is a directory.\n" ); return 0; }
    case -1: { write( file_name + " is not a file.\n" ); return 0; }
  }
  if( !master()-> valid_read( file_name,
    geteuid( previous_object() ), "compare" ) )
  {
    write( file_name + " : Permission denied.\n" );
    return 0;
  }
  file = read_file( file_name );
  if( !file ) 
  {
    write( file_name + " is empty.\n" );
    return 0;
  }
  return explode( file, "\n" );
}

int cmd_compare( string a )
{
  string output, file_name1, file_name2;
  string *lines1, *lines2;
  string *ONEnotTWO, *TWOnotONE;

  seteuid( getuid( previous_object() ) );
  if( !a || 2 != sscanf( a, "%s %s", file_name1, file_name2 ) )
  {
    notify_fail( "Syntax: compare <file1> <file2>\n" ); 
    return 0;
  }
  lines1 = get_lines( file_name1 );
  lines2 = get_lines( file_name2 );
  if( !pointerp( lines1 ) || !pointerp( lines2 ) )
  {
    notify_fail( "No comparison made.\n" );
    return 0;
  }
  if( lines1 == lines2 )
  {
    write( file_name1 + " and " + file_name2 + " are the same file.\n" );
    return 1;
  }
  ONEnotTWO = filter_array( lines1, "sort", this_object(), lines2 );
  TWOnotONE = filter_array( lines2, "sort", this_object(), lines1 );
  if( ONEnotTWO == TWOnotONE )
  {
    write( file_name1 + " and " + file_name2 + " have the same lines.\n" );
    return 1;
  }
  output = "[In " + file_name1 + " but not in " + file_name2 + ":]\n" +
	   implode( ONEnotTWO, "\n" ) + "\n" +
	   "\n[In " + file_name2 + " but not in " + file_name1 + ":]\n" +
	   implode( TWOnotONE, "\n" ) + "\n";
 
   this_player()->more( explode(output, "\n") );
 
  return 1;
}

string help()
{
  return( ""+
"Syntax: compare <file1> <file2>\n"+
"Effect: Finds the differences between two files.\n"+
  "" );
}