/*
 * xtext.c
 *
 * This an example of how to use the Text and Paned widgets.
 *
 * November 14, 1989 - Chris D. Peterson 
 *
 * Updated to also demonstrate XtAppAddInput() -- Bruce Irvin 3/8/94
 */

/*
 * $XConsortium: xtext.c,v 1.16 91/05/16 14:56:23 swick Exp $
 *
 * Copyright 1989 Massachusetts Institute of Technology
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of M.I.T. not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  M.I.T. makes no representations about the
 * suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL M.I.T.
 * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <stdio.h>
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>

#include <X11/Xaw/AsciiText.h>
#include <X11/Xaw/Command.h>
#include <X11/Xaw/Paned.h>

#include <X11/Xaw/Cardinals.h>

//////////////////////////////////
#include "../h/visualization.h"
//////////////////////////////////

static void ClearText(Widget w,XtPointer text_ptr,XtPointer call_data);
static void PrintText(Widget w,XtPointer text_ptr,XtPointer call_data);
static void QuitProgram(Widget w,XtAppContext app_con,XtPointer call_data);
static void Syntax(XtAppContext app_con,char *call);
//////////////////////////////
XtAppContext app_con;
Widget toplevel, paned, clear, print, quit, text;
Widget getMR, stopMR, phaseN;
//////////////////////////////

// extern int fprintf(), bcopy(), read(), perror(), printf();

String fallback_resources[] = { 
    "*input:				True",
    "*showGrip:				off",
    "?.?.text.preferredPaneSize:	200", 
    "?.?.text.width:			200", 
    "?.?.text.textSource.editType:	edit",
    "?.?.text.scrollVertical:		whenNeeded",
    "?.?.text.scrollHorizontal:		whenNeeded",
    "?.?.text.autoFill:			on",
    "*clear*label:            Clear",
    "*print*label:            Print",
    "*quit*label:              Quit",
    NULL,
};
 
// callback routine for FOLD and DATAVALUES 
int fd_input(int dummy){

  Arg args[1];
  XawTextPosition pos;
  XawTextBlock tb;
  char buf[100];
  int i,j,k;
  int noMetrics,noResources,noBins;
  int size;
  float value;

  XtSetArg(args[0], XtNinsertPosition, &pos);
  XtGetValues(text, args, ONE);


  fprintf(stderr,"@@@@ in callback for datavalues and fold\n");
  noMetrics = dataGrid.NumMetrics();
  noResources = dataGrid.NumResources();
  noBins = dataGrid.NumBins();
  for(i=0;i < noMetrics; i++)
   for(j=0;j<noResources;j++){
    for(k=0;k<noBins;k++){
      if((value = dataGrid[i][j][k]) != ERROR){
      sprintf(&buf[0],"%s%d%s%d%s%d%s%f\n","dataGrid[",i,"][",j,"][",k,
	      "] = ",value); 
      }
      else{
        sprintf(&buf[0],"%s%d%s%d%s%d%s\n","dataGrid[",i,"][",j,"][",k ,
		"] = NaN"); 
      }
      size = strlen(buf);  
      tb.firstPos = 0;
      tb.length = size;
      tb.ptr = buf;
      tb.format = FMT8BIT;
      if (XawTextReplace(text,pos,pos+size-1,&tb) != XawEditDone) {
          fprintf(stderr,"XawTextReplace returned error\n");
      }
      pos += size;
      XtSetArg(args[0], XtNinsertPosition, pos);
      XtSetValues(text, args, ONE);
    }
    
    sprintf(&buf[0],"\n");
    size = strlen(buf);  
    tb.firstPos = 0;
    tb.length = size;
    tb.ptr = buf;
    tb.format = FMT8BIT;
    if (XawTextReplace(text,pos,pos+size-1,&tb) != XawEditDone) {
      fprintf(stderr,"XawTextReplace returned error\n");
    }
    pos += size;
    XtSetArg(args[0], XtNinsertPosition, pos);
    XtSetValues(text, args, ONE);
  }
  fprintf(stderr,"@@@@ leaving callback for datavalues and fold\n");

}

// callback routine for ADDMETRICSRESOURCES
int fd_input2(int dummy){
  Arg args[1];
  XawTextPosition pos;
  XawTextBlock tb;
  char buf[100];
  int size;
  int noMetrics,noResources,noBins;
  int aggr;
  float value;

  XtSetArg(args[0], XtNinsertPosition, &pos);
  XtGetValues(text, args, ONE);
  noMetrics = dataGrid.NumMetrics();
  noResources = dataGrid.NumResources();
  noBins = dataGrid.NumBins();
  value  = dataGrid.BinWidth();
  aggr   = dataGrid.FoldMethod(0);
  sprintf(&buf[0],"\n%s%d%s%d%s%d%s%f%s%d\n","noMetrics = ",noMetrics,
	 ", no resources = ",noResources,", num Bins = ",noBins,
	 "\nbinWidth = ",value,", Fold Method = ",aggr);

  size = strlen(buf);  
  tb.firstPos = 0;
  tb.length = size;
  tb.ptr = buf;
  tb.format = FMT8BIT;
  if (XawTextReplace(text,pos,pos+size-1,&tb) != XawEditDone) {
    fprintf(stderr,"XawTextReplace returned error\n");
  }
  pos += size;
  XtSetArg(args[0], XtNinsertPosition, pos);
  XtSetValues(text, args, ONE);

  return(OK);
}

// callback routine for NEWMETRICSRESOURCES, PHASENAME
int fd_input3(int dummy){
  Arg args[1];
  XawTextPosition pos;
  XawTextBlock tb;
  char buf[100];
  int size;

  XtSetArg(args[0], XtNinsertPosition, &pos);
  XtGetValues(text, args, ONE);
  sprintf(&buf[0],"\n%s\n",
  "This operation is not fully supported: only the call is implemented");
  size = strlen(buf);  
  tb.firstPos = 0;
  tb.length = size;
  tb.ptr = buf;
  tb.format = FMT8BIT;
  if (XawTextReplace(text,pos,pos+size-1,&tb) != XawEditDone) {
    fprintf(stderr,"XawTextReplace returned error\n");
  }
  pos += size;
  XtSetArg(args[0], XtNinsertPosition, pos);
  XtSetValues(text, args, ONE);

  return(OK);
}

/////////////////////////////////////
static void GetMetsRes(Widget w,XtAppContext app_con,XtPointer call_data){

 fprintf(stderr,"@@@@ in GetMetsRes before call\n"); 
  vp->GetMetricResource(" "," ",0);  
 fprintf(stderr,"@@@@ in GetMetsRes after call\n"); 
}

static void StopMetsRes(Widget w,XtAppContext app_con,XtPointer call_data){

 fprintf(stderr,"@@@@ in StopMetsRes before call\n"); 
  vp->StopMetricResource(0,0);  
 fprintf(stderr,"@@@@ in StopMetsRes after call\n"); 
}

static void PName(Widget w,XtAppContext app_con,XtPointer call_data){

 fprintf(stderr,"@@@@ in PName before call\n"); 
  vp->PhaseName(0.0,1.0," ");  
 fprintf(stderr,"@@@@ in PName after call\n"); 
}
/////////////////////////////////////


int main(int argc,char **argv)
{
 //   XtAppContext app_con;
 //  Widget toplevel, paned, clear, print, quit, text;
 Arg args[1];

/////////////////////////////////////
// variables added for paradyn integration 
    int ok, fd;
/////////////////////////////////////

    toplevel = XtAppInitialize(&app_con, "Xtext", NULL, ZERO,
			       &argc, argv, fallback_resources,
			       NULL, ZERO);

    /*
     * Check to see that all arguments were processed, and if not then
     * report an error and exit.
     */

    if (argc != 1)		
	Syntax(app_con, argv[0]);

//////////////////////////////////////
// call VisiInit: step (1) from README file

   if((fd = VisiInit()) < 0){
	 exit(-1);
    }
//////////////////////////////////////

//////////////////////////////////////
// register event callbacks: step (2) from README file

   ok = RegistrationCallback(ADDMETRICSRESOURCES,fd_input2); 
   ok = RegistrationCallback(DATAVALUES,fd_input); 
   ok = RegistrationCallback(FOLD,fd_input); 
   ok = RegistrationCallback(INVALIDMETRICSRESOURCES,fd_input);
   ok = RegistrationCallback(NEWMETRICSRESOURCES,fd_input3);
   ok = RegistrationCallback(PHASENAME,fd_input3);
//////////////////////////////////////

//////////////////////////////////////
// start visi: get initial metric and resource choices: step (3) from README

   ok = StartVisi(0,0);
//////////////////////////////////////

    paned = XtCreateManagedWidget("paned", panedWidgetClass, toplevel, 
				  NULL, ZERO);
    clear = XtCreateManagedWidget("clear", commandWidgetClass, paned, 
				  NULL, ZERO);
    print = XtCreateManagedWidget("print", commandWidgetClass, paned, 
				  NULL, ZERO);
    quit = XtCreateManagedWidget("quit", commandWidgetClass, paned, 
				  NULL, ZERO);
//////////////////////////////////////
// this is for an upcall to Paradyn: step (3a) from README

    getMR = XtCreateManagedWidget("Get Metric Resource",commandWidgetClass,
				  paned,NULL,ZERO);
    stopMR = XtCreateManagedWidget("Stop Metric Resource",commandWidgetClass,
				  paned,NULL,ZERO);
    phaseN = XtCreateManagedWidget("Name a Phase",commandWidgetClass,
				  paned,NULL,ZERO);

//////////////////////////////////////

    XtSetArg(args[0], XtNstring, "This is a test.\n");

    text = XtCreateManagedWidget("text", asciiTextWidgetClass, paned, 
				 args, ONE);

    XtAddCallback(clear, XtNcallback, ClearText, (XtPointer) text);
    XtAddCallback(print, XtNcallback, PrintText, (XtPointer) text);
    XtAddCallback(quit, XtNcallback, QuitProgram, (XtPointer) app_con);

///////////////////////////////////////
//  Add callbacks for upcalls to Paradyn: step (3b) from README

    XtAddCallback(getMR, XtNcallback, GetMetsRes, (XtPointer) app_con);
    XtAddCallback(stopMR, XtNcallback, StopMetsRes, (XtPointer) app_con);
    XtAddCallback(phaseN, XtNcallback, PName, (XtPointer) app_con);
//////////////////////////////////////

//////////////////////////////////////
// register visi_callback routine as callback on events assoc. w/ file desc
// step (4) from README file

   XtAppAddInput(app_con,fd,(XtPointer) XtInputReadMask,
		 (XtInputCallbackProc) visi_callback, text); 
//////////////////////////////////////

    XtRealizeWidget(toplevel);
    XtAppMainLoop(app_con);
}

/*	Function Name: ClearText
 *	Description: This function clears all text out of the text widget.
 *	Arguments: w - *** UNUSED ***
 *                 text_ptr - a pointer to the text widget.
 *                 call_data - *** UNUSED ***.
 *	Returns: none.
 */

/* ARGSUSED */
static void ClearText(Widget w,XtPointer text_ptr,XtPointer call_data)
{
    Widget text = (Widget) text_ptr;
    Arg args[1];

    XtSetArg(args[0], XtNstring, "");
    XtSetValues(text, args, ONE);
}

/*	Function Name: PrintText
 *	Description: This function clears all text out of the text widget.
 *	Arguments: w - *** UNUSED ***
 *                 text_ptr - a pointer to the text widget.
 *                 call_data - *** UNUSED ***.
 *	Returns: none.
 */

/* ARGSUSED */
static void PrintText(Widget w,XtPointer text_ptr,XtPointer call_data)
{
    Widget text = (Widget) text_ptr;
    Arg args[1];
    String str;

    XtSetArg(args[0], XtNstring, &str);
    XtGetValues(text, args, ONE);

    fprintf(stderr, "Text String is:\n--------\n%s\n--------\n", str);
}

/*	Function Name: QuitProgram
 *	Description: This function exits the program
 *	Arguments: w - *** UNUSED ***
 *                 text_ptr - a pointer to the text widget.
 *                 call_data - *** UNUSED ***.
 *	Returns: none.
 */

/* ARGSUSED */
static void QuitProgram(Widget w,XtAppContext app_con,XtPointer call_data)
{
    fprintf(stderr, "Bye!\n");
    XtDestroyApplicationContext(app_con);
    exit(0);
}

/*	Function Name: Syntax
 *	Description: Prints a the calling syntax for this function to stdout.
 *	Arguments: app_con - the application context.
 *                 call - the name of the application.
 *	Returns: none - exits tho.
 */

static void Syntax(XtAppContext app_con,char *call)
{
    XtDestroyApplicationContext(app_con);
    fprintf( stderr, "Usage: %s \n", call);
    exit(1);
}