root/trunk/FRII/app/FRII.cc

/*
 * This file is part of the FamilyRelations II source distribution.
 *
 * FamilyRelations II is part of the FamilyJewels package for comparative
 * sequence analysis: http://family.caltech.edu/.
 *
 * Contact author: C. Titus Brown, titus@caltech.edu.
 *
 * This program and all associated source code files are Copyright (C) 2003,
 * 2004 the California Institute of Technology, Pasadena, CA, 91125 USA.  It
 * is under the Lesser GNU Public License; please see the included
 * LICENSE.txt file for more information, or contact Titus directly.
 *
 */

// The main application: create a window with a variety of options for
// loading data.

#include <stdlib.h>

#include <FL/Fl.H>
#include <FL/Fl_Double_Window.H>
#include <FL/Fl_Tabs.H>

#include "load_canal.hh"
#include "load_sister.hh"

#include "LoginWindow.hh"
#include "LoadFileWindow.hh"
#include "PreferencesWindow.hh"

CartwheelServerInfo servers[] = {
  { "Woodward (Caltech public server)",
    "woodward.caltech.edu", "/canal/services/canal_svc/", 80 },
  { "UTSA server",
    "ross.cbi.utsa.edu", "/canal/services/canal_svc/", 80 },
  { "", "", "", 0 },
};

int load_xml_file(char * filename)
{
  //
  // OK, now go load everything.
  //

  sister::init();

  iff::AnalysisGroup* g = sister::parse_file(filename);

  if (g->n_sequences() == 1) {
    load_single((iff::SingleAnalysisGroup*) g);
  } else {
    load_pair((iff::PairAnalysisGroup*) g);
  }

  return Fl::run();
}

int main(int argc, char * argv[])
{
  int ch;
  char * filename = NULL;       // sisterXML filename to load.

  while(1) {
    ch = getopt(argc, argv, "");
    if (ch == -1) {             // end of options
      break;
    }
  }

  // allow exactly one extra argument: the filename
  if (optind < argc && optind + 1 == argc) {
    filename = argv[optind];
  }

  if (filename != NULL) {
    load_xml_file(filename);
  }
  else {
    // initialize necessary packages
    sister::init();
    canal::init();

    // create & display login window.
    Fl_Window* w = new Fl_Double_Window(550, 300);
    w->label("FamilyRelationsII");
    w->hotspot(w);

    Fl_Tabs * tabs = new Fl_Tabs(0, 0, 550, 300);
    w->add(tabs);

    LoginWindow* login_window = new LoginWindow(0, 30, 550, 270,
                                                servers,
                                                "Cartwheel login");
    login_window->selection_color(FL_LIGHT1);
    tabs->add(login_window);

    LoadFileWindow * load_file = new LoadFileWindow(0, 30, 550, 270);
    load_file->selection_color(FL_LIGHT1);

    tabs->add(load_file);

    PreferencesWindow * preferences_window;
    preferences_window = new PreferencesWindow(0, 30, 550, 270);
    preferences_window->label("Preferences");
    preferences_window->selection_color(FL_LIGHT1);

    tabs->add(preferences_window);

    w->show();
    Fl::run();

    delete w;
  }

  exit(0);
}