/*-
 * Copyright (c) 1996
 *	Rob Zimmermann.  All rights reserved.
 * Copyright (c) 1996
 *	Keith Bostic.  All rights reserved.
 *
 * See the LICENSE file for redistribution information.
 */

#include "config.h"

#include <sys/cdefs.h>
#if 0
#ifndef lint
static const char sccsid[] = "Id: m_search.c,v 8.14 2003/11/05 17:10:00 skimo Exp  (Berkeley) Date: 2003/11/05 17:10:00 ";
#endif /* not lint */
#else
__RCSID("$NetBSD: m_search.c,v 1.2 2014/01/26 21:43:45 christos Exp $");
#endif

#include <sys/queue.h>

/* context */
#include <X11/X.h>
#include <X11/Intrinsic.h>
#include <Xm/DialogS.h>
#include <Xm/Form.h>
#include <Xm/Label.h>
#include <Xm/PushBG.h>
#include <Xm/TextF.h>
#include <Xm/ToggleB.h>
#include <Xm/RowColumn.h>

#include <bitstring.h>
#include <stdio.h>
#include <stdlib.h>

#undef LOCK_SUCCESS
#include "../common/common.h"
#include "../ipc/ip.h"
#include "m_motif.h"

extern int vi_ofd;


/* types */

typedef struct sds {
    struct sds	*next;
    Widget	shell;
} save_dialog;

static	save_dialog	*dialogs = NULL;

typedef struct	{
    String	name;
    void	(*cb)();
} ButtonData;


/* globals and constants */

static	String	PatternWidget = "text";
static	String	pattern = NULL;

static optData  search_toggles[] = {
	{ optToggle,	"extended",	NULL,	VI_SEARCH_EXT	},
	{ optToggle,	"iclower",	NULL,	VI_SEARCH_ICL	},
	{ optToggle,	"ignorecase",	NULL,	VI_SEARCH_IC	},
	{ optToggle,	"literal",	NULL,	VI_SEARCH_LIT	},
	{ optToggle,	"searchincr",	NULL,	VI_SEARCH_INCR	},
	{ optToggle,	"wrapscan",	NULL,	VI_SEARCH_WR	},
	{ optTerminator,		},
};

static void done_func __P((Widget));
static void next_func __P((Widget));
static void prev_func __P((Widget));
static void search __P((Widget, int));

static	ButtonData button_data[] = {
    { "Next",		next_func	},
    { "Previous", 	prev_func	},
    { "Cancel", 	done_func	}	/* always last */
};


/* Xt utilities */

#if defined(__STDC__)
static	Widget	get_child_widget( Widget parent, String name )
#else
static	Widget	get_child_widget( parent, name )
	Widget	parent;
	String	name;
#endif
{
    char buffer[1024];

    strcpy( buffer, "*" );
    strcat( buffer, name );
    return XtNameToWidget( parent, buffer );
}


/* sync the global state */

#if defined(__STDC__)
static	void	get_state( Widget w )
#else
static	void	get_state( w )
	Widget	w;
#endif
{
#if defined(SelfTest)
    int		i;
#endif
    Widget	shell = w;

    /* get all the data from the root of the widget tree */
    while ( ! XtIsShell(shell) ) shell = XtParent(shell);

#if defined(SelfTest)
    /* which flags? */
    for (i=0; i<XtNumber(toggle_data); i++) {
	if (( w = get_child_widget( shell, toggle_data[i].name )) != NULL ) {
	    XtVaGetValues( w, XmNset, &toggle_data[i].value, 0 );
	}
    }
#endif

    /* what's the pattern? */
    if (( w = get_child_widget( shell, PatternWidget )) != NULL ) {
	if ( pattern != NULL ) XtFree( pattern );
	pattern = XmTextFieldGetString( w );
    }
}


/* Translate the user's actions into nvi commands */
/*
 * next_func --
 *	Action for next button.
 */
static void
next_func(Widget w)
{
	search(w, 0);
}

/*
 * prev_func --
 *	Action for previous button.
 */
static void
prev_func(Widget w)
{
	search(w, VI_SEARCH_REV);
}

/*
 * search --
 *	Perform the search.
 */
static void
search(Widget w, int flags)
{
	IP_BUF ipb;
	optData *opt;
	Widget shell;

	shell = w;
	while ( ! XtIsShell(shell) ) shell = XtParent(shell);

	/* Get current data from the root of the widget tree?
	 * Do it if we are a child of a dialog shell (assume we
	 * are a 'Find' dialog).  Otherwise don't (we are the child
	 * of a menu and being invoked via accelerator)
	 */
	if (XmIsDialogShell(shell))
		get_state(w);

	/* no pattern? probably, we haven't posted a search dialog yet.
	 * there ought to be a better thing to do here.
	 */
	if ( pattern == NULL ) {
	    vi_info_message( w, "No previous string specified" );
	    return;
	}

	ipb.str1 = pattern;
	ipb.len1 = strlen(pattern);

	/* Initialize the search flags based on the buttons. */
	ipb.val1 = flags;
	for (opt = search_toggles; opt->kind != optTerminator; ++opt)
		if (opt->value != NULL)
			ipb.val1 |= opt->flags;

	ipb.code = VI_C_SEARCH;
	vi_send(vi_ofd, "a1", &ipb);
}

#if defined(__STDC__)
static	void	done_func( Widget w )
#else
static	void	done_func( w )
	Widget	w;
#endif
{
    save_dialog	*ptr;

#if defined(SelfTest)
    puts( XtName(w) );
#endif

    while ( ! XtIsShell(w) ) w = XtParent(w);
    XtPopdown( w );

    /* save it for later */
    ptr		= (save_dialog *) malloc( sizeof(save_dialog) );
    ptr->next	= dialogs;
    ptr->shell	= w;
    dialogs	= ptr;
}


/* create a set of push buttons */

#define	SpacingRatio	4	/* 3:1 button to spaces */

#if defined(__STDC__)
static	Widget	create_push_buttons( Widget parent,
				     ButtonData *data,
				     int count
				    )
#else
static	Widget	create_push_buttons( parent, data, count )
    Widget	parent;
    ButtonData	*data;
    int		count;
#endif
{
    Widget	w, form;
    int		pos = 1, base;

    base = SpacingRatio*count + 1;
    form = XtVaCreateManagedWidget( "buttons", 
				    xmFormWidgetClass,
				    parent,
				    XmNleftAttachment,	XmATTACH_FORM,
				    XmNrightAttachment,	XmATTACH_FORM,
				    XmNfractionBase,	base,
				    XmNshadowType,	XmSHADOW_ETCHED_IN,
				    XmNshadowThickness,	2,
				    XmNverticalSpacing,	4,
				    0
				    );

    while ( count-- > 0 ) {
	w = XtVaCreateManagedWidget(data->name,
				    xmPushButtonGadgetClass,
				    form,
				    XmNtopAttachment,	XmATTACH_FORM,
				    XmNbottomAttachment,XmATTACH_FORM,
				    XmNleftAttachment,	XmATTACH_POSITION,
				    XmNleftPosition,	pos,
				    XmNshowAsDefault,	False,
				    XmNrightAttachment,	XmATTACH_POSITION,
				    XmNrightPosition,	pos+SpacingRatio-1,
				    0
				    );
	XtAddCallback( w, XmNactivateCallback, data->cb, 0 );
	pos += SpacingRatio;
	data++;
    }

    /* last button is 'cancel' */
    XtVaSetValues( XtParent(form), XmNcancelButton, w, 0 );

    return form;
}


/* create a set of check boxes */

#if defined(SelfTest)

#if defined(__STDC__)
static	Widget	create_check_boxes( Widget parent,
				    ToggleData *toggles,
				    int count
				    )
#else
static	Widget	create_check_boxes( parent, toggles, count )
	Widget	parent;
	ToggleData *toggles;
	int	count;
#endif
{
    Widget	form;
    int		pos = 1, base;

    base = SpacingRatio*count +1;
    form = XtVaCreateManagedWidget( "toggles", 
				    xmFormWidgetClass,
				    parent,
				    XmNleftAttachment,	XmATTACH_FORM,
				    XmNrightAttachment,	XmATTACH_FORM,
				    XmNfractionBase,	base,
				    XmNverticalSpacing,	4,
				    0
				    );

    while ( count-- > 0 ) {
	XtVaCreateManagedWidget(toggles->name,
				xmToggleButtonWidgetClass,
				form,
				XmNtopAttachment,	XmATTACH_FORM,
				XmNbottomAttachment,	XmATTACH_FORM,
				XmNleftAttachment,	XmATTACH_POSITION,
				XmNleftPosition,	pos,
				XmNrightAttachment,	XmATTACH_POSITION,
				XmNrightPosition,	pos+SpacingRatio-1,
				0
				);
	pos += SpacingRatio;
	++toggles;
    }

    return form;
}

#endif


/* Routines to handle the text field widget */

/* when the user hits 'CR' in a text widget, fire the default pushbutton */
#if defined(__STDC__)
static	void	text_cr( Widget w, void *ptr, void *ptr2 )
#else
static	void	text_cr( w, ptr, ptr2 )
	Widget	w;
	void	*ptr;
	void	*ptr2;
#endif
{
    next_func( w );
}


#ifdef notdef
/*
 * when the user hits any other character, if we are doing incremental
 * search, send the updated string to nvi
 *
 * XXX
 * I don't currently see any way to make this work -- incremental search
 * is going to be really nasty.  What makes it worse is that the dialog
 * box almost certainly obscured a chunk of the text file, so there's no
 * way to use it even if it works.  
 */
#if defined(__STDC__)
static	void	value_changed( Widget w, void *ptr, void *ptr2 )
#else
static	void	value_changed( w, ptr, ptr2 )
	Widget	w;
	void	*ptr;
	void	*ptr2;
#endif
{
    /* get all the data from the root of the widget tree */
    get_state( w );

    /* send it along? */
#if defined(SelfTest)
    if ( incremental_search ) send_command( w );
#else
    if ( __vi_incremental_search() ) send_command( w );
#endif
}
#endif /* notdef */


/* Draw and display a dialog the describes nvi search capability */

#if defined(__STDC__)
static	Widget	create_search_dialog( Widget parent, String title )
#else
static	Widget	create_search_dialog( parent, title )
	Widget	parent;
	String	title;
#endif
{
    Widget	box, form, label, text, checks, buttons, form2;
    save_dialog	*ptr;

    /* use an existing one? */
    if ( dialogs != NULL ) {
	box = dialogs->shell;
	ptr = dialogs->next;
	free( dialogs );
	dialogs = ptr;
	return box;
    }

    box = XtVaCreatePopupShell( title,
				xmDialogShellWidgetClass,
				parent,
				XmNtitle,		title,
				XmNallowShellResize,	False,
				0
				);

    form = XtVaCreateWidget( "form", 
				xmFormWidgetClass,
				box,
				XmNverticalSpacing,	4,
				XmNhorizontalSpacing,	4,
				0
				);

    form2 = XtVaCreateManagedWidget( "form", 
				xmFormWidgetClass,
				form,
				XmNtopAttachment,	XmATTACH_FORM,
				XmNleftAttachment,	XmATTACH_FORM,
				XmNrightAttachment,	XmATTACH_FORM,
				0
				);

    label = XtVaCreateManagedWidget( "Pattern:", 
				    xmLabelWidgetClass,
				    form2,
				    XmNtopAttachment,	XmATTACH_FORM,
				    XmNbottomAttachment,XmATTACH_FORM,
				    XmNleftAttachment,	XmATTACH_FORM,
				    0
				    );

    text = XtVaCreateManagedWidget( PatternWidget, 
				    xmTextFieldWidgetClass,
				    form2,
				    XmNtopAttachment,	XmATTACH_FORM,
				    XmNbottomAttachment,XmATTACH_FORM,
				    XmNleftAttachment,	XmATTACH_WIDGET,
				    XmNleftWidget,	label,
				    XmNrightAttachment,	XmATTACH_FORM,
				    0
				    );
#ifdef notdef
    XtAddCallback( text, XmNvalueChangedCallback, value_changed, 0 );
#endif
    XtAddCallback( text, XmNactivateCallback, text_cr, 0 );

    buttons = create_push_buttons( form, button_data, XtNumber(button_data) );
    XtVaSetValues( buttons,
		   XmNbottomAttachment,	XmATTACH_FORM,
		   0
		   );

#if defined(SelfTest)
    checks = create_check_boxes( form, toggle_data, XtNumber(toggle_data) );
#else
    checks = (Widget) __vi_create_search_toggles( form, search_toggles );
#endif
    XtVaSetValues( checks,
		   XmNtopAttachment,	XmATTACH_WIDGET,
		   XmNtopWidget,	form2,
		   XmNbottomAttachment,	XmATTACH_WIDGET,
		   XmNbottomWidget,	buttons,
		   0
		   );

    XtManageChild( form );
    return box;
}


/* Module interface to the outside world
 *
 *	xip_show_search_dialog( parent, title )
 *	pops up a search dialog
 *
 *	xip_next_search()
 *	simulates a 'next' assuming that a search has been done
 */

#if defined(__STDC__)
void 	__vi_show_search_dialog( Widget parent, String title )
#else
void	__vi_show_search_dialog( parent, data, cbs )
Widget	parent;
String	title;
#endif
{
    Widget 	db = create_search_dialog( parent, title );
    Dimension	height;

    /* we can handle getting taller and wider or narrower, but not shorter */
    XtVaGetValues( db, XmNheight, &height, 0 );
    XtVaSetValues( db, XmNmaxHeight, height, XmNminHeight, height, 0 );

    /* post the dialog */
    XtPopup( db, XtGrabNone );

    /* request initial focus to the text widget */
    XmProcessTraversal( get_child_widget( db, PatternWidget ),
			XmTRAVERSE_CURRENT
			);
}


/*
 * __vi_search --
 *
 * PUBLIC: void __vi_search __P((Widget));
 */
void
__vi_search(Widget w)
{
    next_func( w );
}


#if defined(SelfTest)

#if defined(__STDC__)
static void show_search( Widget w, XtPointer data, XtPointer cbs )
#else
static void show_search( w, data, cbs )
Widget w;
XtPointer	data;
XtPointer	cbs;
#endif
{
    __vi_show_search_dialog( data, "Search" );
}

main( int argc, char *argv[] )
{
    XtAppContext	ctx;
    Widget		top_level, rc, button;
    extern		exit();

    /* create a top-level shell for the window manager */
    top_level = XtVaAppInitialize( &ctx,
				   argv[0],
				   NULL, 0,	/* options */
				   (ArgcType) &argc,
				   argv,	/* might get modified */
				   NULL,
				   NULL
				   );

    rc = XtVaCreateManagedWidget( "rc",
				  xmRowColumnWidgetClass,
				  top_level,
				  0
				  );

    button = XtVaCreateManagedWidget( "Pop up search dialog",
				      xmPushButtonGadgetClass,
				      rc,
				      0
				      );
    XtAddCallback( button, XmNactivateCallback, show_search, rc );

    button = XtVaCreateManagedWidget( "Quit",
				      xmPushButtonGadgetClass,
				      rc,
				      0
				      );
    XtAddCallback( button, XmNactivateCallback, exit, 0 );

    XtRealizeWidget(top_level);
    XtAppMainLoop(ctx);
}
#endif