/*-- datad.c --*/
/*
    This software may only be used by you under license from AT&T Corp.
    ("AT&T").  A copy of AT&T's Source Code Agreement is available at
    AT&T's Internet website having the URL:
    <http://www.research.att.com/areas/stat/ggobi/license.html>
    If you received this software without first entering into a license
    with AT&T, you have an infringing copy of this software and cannot use
    it without violating AT&T's intellectual property rights.
*/
#define GGOBIINTERN

#include <gtk/gtk.h>

#include "vars.h"
#include "externs.h"

#include <string.h> /* for memset() declaration */

#ifdef USE_CLASSES
datad::datad(ggobid *gg) 
{
  datad_new (this, gg);
}


datad *
datad_new (ggobid *gg) 
{
  datad *d = (datad *) g_malloc (sizeof (datad));
  return (datad_new (d, gg));
}
#endif

datad *
datad_new(datad *d, ggobid *gg)
{ 
  if (d == NULL)
    d = (datad *) g_malloc (sizeof (datad));

  d->gg = gg;

  memset(d, 0, sizeof(datad));

  /*-- initialize arrays to NULL --*/
  arrayf_init (&d->raw);
  arrayf_init (&d->tform);
  arrayl_init (&d->world);
  arrayl_init (&d->jitdata);

  arrays_init (&d->missing);
  arrayl_init (&d->missing_world);
  arrayl_init (&d->missing_jitter);

  vectori_init (&d->clusterid);

  /*-- linking --*/
/*
 * vectori_init (&d->rowid);
*/

  /*-- edges --*/
  vectors_init (&d->line.color);
  vectors_init (&d->line.color_now);
  vectors_init (&d->line.color_prev);
  vectorb_init (&d->line.hidden);
  vectorb_init (&d->line.hidden_now);
  vectorb_init (&d->line.hidden_prev);
  vectorb_init (&d->line.xed_by_brush);

  sphere_init (d);

  gg->d = g_slist_append (gg->d, d);
  return (d);
}

void
datad_free (datad *d, ggobid *gg) {
  arrayf_free (&d->raw, 0, 0);
  pipeline_arrays_free (d, gg);

  if (d->nmissing) {
    arrays_free (&d->missing, 0, 0);
    missing_world_free (d, gg);
  }

  g_free (d);
}

displayd *
datad_init (datad *d, ggobid *gg, gboolean cleanup)
{
  displayd *display = NULL;

  if (cleanup) {
    void varpanel_clear (datad *, ggobid *);
    varpanel_clear (d, gg);
  }

  /*-- if no edges were supplied, initialize with defaults --*/
  if (d->nedges == 0) {
    edges_create_defaults (d, gg);
    br_line_color_init (d, gg);
  }
  /*-- --*/


  varpanel_checkboxes_populate (d, gg);    /*-- checkboxes --*/
  varcircles_populate (d, gg);  /*-- circles: build but don't show --*/

  pipeline_init (d, gg);
  clusters_set (d, gg);  /*-- find the clusters for data just read in --*/

  if (cleanup) {
    display_free_all (gg);  /*-- destroy any existing displays --*/

    /*-- initialize the first display --*/
    display = scatterplot_new (false, NULL, d, gg);
    /* Need to make certain this is the only one there.
       See
    */
    gg->displays = g_list_append (gg->displays, (gpointer) display);
    display_set_current (display, gg);
    gg->current_splot = (splotd *)
      g_list_nth_data (gg->current_display->splots, 0);

    /*-- turn on event handling in the very first plot --*/
    /*-- ... but will it cause trouble for later plots?  ok so far --*/
    sp_event_handlers_toggle (gg->current_splot, on);

  }

  varpanel_refresh (gg);

  return (display);
}

/*
 * Several tables use notebook widgets to separate the controls
 * corresponding to different datad's.  This is a way to figure
 * out which datad we should be operating on in that case.
*/
datad *
datad_get_from_notebook (GtkWidget *notebook, ggobid *gg) {
  GtkNotebook *nb = GTK_NOTEBOOK (notebook);
  gint indx = gtk_notebook_get_current_page (nb);
  return ((datad *) g_slist_nth_data (gg->d, indx));
}