/****
 *
 * Top-level of the RSL-to-Data-Dictionary generator.  The main function
 * constructs a TransInterface object, an RSLDict object, and calls the
 * appropriate top-level functions in each.
 *
 */

#include <stdio.h>
#include "std-macros++.h"
//#include "trans-interface.h"
#include "rsl-to-dict.h"

void ListAllTopLevelObjects(EntityStructList* el);

main (int argc, char** argv) {

    EntityStruct* es;
    TransInterface* ti = new TransInterface(argc, argv);
    RSLToDict* rtdd = new RSLToDict(ti);
    BrowserSymLists* allsyms;
    int result;

    if ((result = ti->Translate(argc, argv)) == 1) {
//	ti->GetAllSyms();
//	ti->DebugPrint(ti->SortSyms()->objs);
//	exit(0);
        allsyms = ti->GetAllSyms();
        rtdd->Generate(allsyms);
    }
    else {
	cout << endl << endl <<
	    "*** No output generated due to translation errors. ***" <<
		endl << endl;
    }

    // ListAllTopLevelObjects(allsyms->objs);

}


void ListAllTopLevelObjects(EntityStructList* objs) {
    EntityStruct* e;

    cout << "TOP-LEVEL OBJS:\n";

    while (e = objs->Enum()) {
	if (e->GetSym()->Info.Obj.brPartof->Len() == 0) {
	    cout << e->GetName() << endl;
	}
    }
}