/*
 *      DEMETER System Version 5.0
 *      Copyright (c) 1993 Northeastern University
 *
 */

#include <iostream.h>
#include <stdlib.h>
#include <string.h>
#include "cdlearn.h"

/*
 * GEN_DIR is a global variable containing the path of the generation 
 * environment. This path is used to find the cd-print and cd-parse 
 * class dictionaries. 
 * Do NOT delete the following statement.
 */

char* GEN_DIR = getenv( "GEN_DIR" );

extern int _demeter_hash(const char* classname);
int greeting = _demeter_hash("Greeting");




char* Usage = 
" Usages: cd-learn obj-input \n or      cd-learn obj-input cd-input\n or      cd-learn -or obj-input rename-input\n or      cd-learn -cr cd-input rename-input\n or      cd-learn -r obj-input cd-input rename-input\n";


void print_usages()
{ cerr <<Usage ;
}

int main( int argc, char* argv[], char* envp[] )
{
  if (GEN_DIR == NULL)
     GEN_DIR = "./scanner/";

    const int string_max_size = 256;
    char*  dem_in = new char [string_max_size];
    char*  obj_in = new char [string_max_size];
    char*  rename_in = new char [string_max_size];

    int rename,dem,obj,i;
  
  
    rename = dem = obj = 0;
    switch (argc) {
	    case 1:
	print_usages();
	return ; 
	    case 2:
	if  (!strcmp(argv[1], "-r") 
	     || !strcmp(argv[1], "-or")
	     || !strcmp(argv[1], "-cr"))
	    print_usages();
	else  { /* No existed CD input. */
	    strcpy(obj_in, argv[1]);
	    obj = 1;
	}
	break;
	    case 3:
	if  (!strcmp(argv[1], "-r") 
	     || !strcmp(argv[1], "-or")
	     || !strcmp(argv[1], "-cr"))
	    print_usages();
	else {   /* No renaming needed. */
	    strcpy(obj_in, argv[1]);
	    strcpy(dem_in, argv[2]);
	    obj = 1;
	    dem = 1;
	}
	break;
	    case 4:
	if  (!strcmp(argv[1], "-r") )
	    print_usages();
	else if (!strcmp(argv[1], "-or")) {
	    strcpy (obj_in, argv[2]);
	    strcpy (rename_in, argv[3]);
	    obj = 1;
	    rename = 1;
	}
	else if (!strcmp(argv[1], "-cr")) {
	    strcpy (dem_in, argv[2]);
	    strcpy (rename_in, argv[3]);
	    dem = 1;
	    rename = 1;
	}
	break;
	    case 5:
	if  (strcmp(argv[1], "-r") )
	    print_usages();
	else {
	    strcpy (obj_in, argv[2]);
	    strcpy (dem_in, argv[3]);
	    strcpy (rename_in, argv[4]);
	    obj = 1;
	    dem = 1;
	    rename = 1;
	}
	break;
	    default:
	print_usages();
	return;
    }

    CDL_Algorithm *iCDL = new CDL_Algorithm(new Obj_graph(),
				            NULL, NULL, 
                                            new Cd_graph(
                                                new Adjacency_Nlist()));

    if (dem == 1)  {
	iCDL->set_cd_in (new Demeter_in(new Cd_graph (new Adjacency_Nlist())));
	// read it
	(iCDL->get_cd_in())->g_parse(dem_in);
    }

    if (obj == 1) {
	// read object graph
	(iCDL->get_obj_graph())->g_parse(obj_in);
    }

    iCDL->Run (iCDL->get_obj_graph(), iCDL->get_cd_in());

    if (rename == 1) {
	Renames* iRenames = new Renames();
	iRenames = (Renames*)iRenames->g_parse(rename_in);
	iRenames->Rename(iCDL->get_cd_out());
    }
    iCDL->RemoveDuplicates();

    cout << "\n;; The learned class dictionary graph is:\n\n"<<endl;
    iCDL->PrintOutput();
//    (iCDL->get_cd_out())->g_print();
    cout << endl;

  return ( 0 );
}