/*-
 * 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_main.c,v 8.40 2003/11/05 17:09:58 skimo Exp  (Berkeley) Date: 2003/11/05 17:09:58 ";
#endif /* not lint */
#else
__RCSID("$NetBSD: m_main.c,v 1.3 2014/01/26 21:43:45 christos Exp $");
#endif

#include <sys/types.h>
#include <sys/queue.h>

#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include <Xm/MainW.h>

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

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

int     vi_ifd = -1;
int     vi_ofd = -1;
IPVIWIN   *ipvi_motif;

#if XtSpecificationRelease == 4
#define	ArgcType	Cardinal *
#else
#define	ArgcType	int *
#endif

#if defined(ColorIcon)
#if XT_REVISION >= 6
#include <X11/xpm.h>
#else
#include "xpm.h"
#endif

#include "nvi.xpm"		/* Icon pixmap. */
#else
#include "nvi.xbm"		/* Icon bitmap. */
#endif

static	pid_t		pid;
static	Pixel		icon_fg,
			icon_bg;
static	Pixmap		icon_pm;
static	Widget		top_level;
static	XtAppContext	ctx;

static void XutInstallColormap __P((String, Widget));
static void XutSetIcon __P((Widget, int, int, Pixmap));
static void onchld __P((int));
static void onexit __P((void));

#if ! defined(ColorIcon)
static  XutResource resource[] = {
    { "iconForeground",	XutRKpixel,	&icon_fg	},
    { "iconBackground",	XutRKpixel,	&icon_bg	},
};
#endif


/* resources for the vi widgets unless the user overrides them */
String	fallback_rsrcs[] = {

    "*font:			-*-*-*-r-*--14-*-*-*-m-*-*-*",
    "*text*fontList:		-*-*-*-r-*--14-*-*-*-m-*-*-*",
    "*Menu*fontList:		-*-helvetica-bold-r-normal--14-*-*-*-*-*-*-*",
    "*fontList:			-*-helvetica-medium-r-normal--14-*-*-*-*-*-*-*",
    "*pointerShape:		xterm",
    "*busyShape:		watch",
    "*iconName:			vi",

#if ! defined(ColorIcon)
    /* coloring for the icons */
    "*iconForeground:	XtDefaultForeground",
    "*iconBackground:	XtDefaultBackground",
#endif

    /* layout for the tag stack dialog */
    "*Tags*visibleItemCount:			5",

    /* for the text ruler */
    "*rulerFont:		-*-helvetica-medium-r-normal--14-*-*-*-*-*-*-*",
    "*rulerBorder:		5",

    /* layout for the new, temporary preferences page */
    "*toggleOptions.numColumns:			6",	/* also used by Find */
    "*Preferences*tabWidthPercentage:		0",
    "*Preferences*tabs.shadowThickness:		2",
    "*Preferences*tabs.font:	-*-helvetica-bold-r-normal--14-*-*-*-*-*-*-*",

    /* --------------------------------------------------------------------- *
     * anything below this point is only defined when we are not running CDE *
     * --------------------------------------------------------------------- */

    /* Do not define default colors when running under CDE
     * (e.g. VUE on HPUX). The result is that you don't look
     * like a normal desktop application
     */
    "?background:			gray75",
    "?screen.background:		wheat",
    "?highlightColor:			red",
    "?Preferences*options.background:	gray90",
};

#if defined(__STDC__)
static	String	*get_fallback_rsrcs( String name )
#else
static	String	*get_fallback_rsrcs( name )
	String	name;
#endif
{
    String	*copy = (String *) malloc( (1+XtNumber(fallback_rsrcs))*sizeof(String) );
    int		i, running_cde;
    Display	*d;

    /* connect to server and see if the CDE atoms are present */
    d = XOpenDisplay(0);
    running_cde = is_cde( d );
    XCloseDisplay(d);

    for ( i=0; i<XtNumber(fallback_rsrcs); i++ ) {

	/* stop here if running CDE */
	if ( fallback_rsrcs[i][0] == '?' ) {
	    if ( running_cde ) break;
	    fallback_rsrcs[i] = strdup(fallback_rsrcs[i]);
	    fallback_rsrcs[i][0] = '*';
	}

	copy[i] = malloc( strlen(name) + strlen(fallback_rsrcs[i]) + 1 );
	strcpy( copy[i], name );
	strcat( copy[i], fallback_rsrcs[i] );
    }

    copy[i] = NULL;
    return copy;
}


/* create the shell widgetry */

#if defined(__STDC__)
static	void	create_top_level_shell( int *argc, char **argv )
#else
static	void	create_top_level_shell( argc, argv )
	int	*argc;
	char	**argv;
#endif
{
    char	*ptr;
    Widget	main_w, editor;
    Display	*display;

    /* X gets quite upset if the program name is not simple */
    if (( ptr = strrchr( argv[0], '/' )) != NULL ) argv[0] = ++ptr;
    vi_progname = argv[0];

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

    /* might need to go technicolor... */
    XutInstallColormap( argv[0], top_level );

    /* create our icon
     * do this *before* realizing the shell widget in case the -iconic
     * option was specified.
     */
    {
#if defined(ColorIcon)
    int			nvi_width, nvi_height;
    XpmAttributes	attr;

    attr.valuemask = 0;
    XpmCreatePixmapFromData( display,
			     DefaultRootWindow(display),
			     nvi_xpm,
			     &icon_pm,
			     NULL,
			     &attr
			     );
    nvi_width = attr.width;
    nvi_height = attr.height;
#else
    /* check the resource database for interesting resources */
    __XutConvertResources( top_level,
			 vi_progname,
			 resource,
			 XtNumber(resource)
			 );

    icon_pm = XCreatePixmapFromBitmapData(
			display,
		        DefaultRootWindow(display),
			(char *) nvi_bits,
			nvi_width,
			nvi_height,
			icon_fg,
			icon_bg,
			DefaultDepth( display, DefaultScreen(display) )
			);
#endif
    XutSetIcon( top_level, nvi_height, nvi_width, icon_pm );
    }

    /* in the shell, we will stack a menubar an editor */
    main_w = XtVaCreateManagedWidget( "main",
				      xmMainWindowWidgetClass,
				      top_level,
				      NULL
				      );

    /* create the menubar */
    XtManageChild( (Widget) vi_create_menubar( main_w ) );

    /* add the VI widget from the library */
    editor = vi_create_editor( "editor", main_w, onexit );

    /* put it up */
    XtRealizeWidget( top_level );

    /* We *may* want all keyboard events to go to the editing screen.
     * If the editor is the only widget in the shell that accepts
     * keyboard input, then the user will expect that he can type when
     * the pointer is over the scrollbar (for example).  This call
     * causes that to happen.
     */
    XtSetKeyboardFocus( top_level, XtNameToWidget( editor, "*screen" ) );
}


int
main(int argc, char **argv)
{
	IPVI* ipvi;
	/*
	 * Initialize the X widgetry.  We must do this before picking off
	 * arguments as well-behaved X programs have common argument lists
	 * (e.g. -rv for reverse video).
	 */
	create_top_level_shell(&argc, argv);

	/* We need to know if the child process goes away. */
	(void)signal(SIGCHLD, onchld);

	vi_create(&ipvi, 0);
	(void)ipvi->run(ipvi, argc, argv);
	ipvi->new_window(ipvi,&ipvi_motif,-1);
	ipvi_motif->set_ops(ipvi_motif, &ipsi_ops_motif);
	/* Run vi: the parent returns, the child is the vi process. */
	vi_ifd = ipvi_motif->ifd;
	vi_ofd = ipvi_motif->ofd;
	pid = ipvi->pid;

	/* Tell X that we are interested in input on the pipe. */
	XtAppAddInput(ctx, vi_ifd,
	    (XtPointer)XtInputReadMask, vi_input_func, NULL);

	/* Main loop. */
	XtAppMainLoop(ctx);

	/* NOTREACHED */
	abort();
}

static void
XutSetIcon(Widget wid, int height, int width, Pixmap p)
{
    Display	*display = XtDisplay(wid);
    Window	win;

    /* best bet is to set the icon window */
    XtVaGetValues( wid, XtNiconWindow, &win, 0 );

    if ( win == None ) {
	win = XCreateSimpleWindow( display,
				   RootWindow( display,
				   DefaultScreen( display ) ),
				   0, 0,
				   width, height,
				   0,
				   CopyFromParent,
				   CopyFromParent
				   );
    }

    if ( win != None ) {
	XtVaSetValues( wid, XtNiconWindow, win, 0 );
	XSetWindowBackgroundPixmap( display, win, p );
    }

    else {
	/* do it the old fashioned way */
	XtVaSetValues( wid, XtNiconPixmap, p, 0 );
    }
}

/* Support for multiple colormaps
 *
 * XutInstallColormap( String name, Widget wid )
 *	The first time called, this routine checks to see if the
 *	resource "name*installColormap" is "True".  If so, the
 *	widget is assigned a newly allocated colormap.
 *
 *	Subsequent calls ignore the "name" parameter and use the
 *	same colormap.
 *
 *	Future versions of this routine may handle multiple colormaps
 *	by name.
 */
static	enum { cmap_look, cmap_use, cmap_ignore } cmap_state = cmap_look;

static	Boolean	use_colormap = False;

static XutResource	colormap_resources[] = {
    { "installColormap",	XutRKboolean,	&use_colormap	}
};

static void
XutInstallColormap(String name, Widget wid)
{
    static Colormap cmap = 0;
    static Display  *cmap_display = 0;
    Display	*display = XtDisplay(wid);

    /* what is the current finite state? */
    if ( cmap_state == cmap_look ) {

	/* what does the resource say? */
	__XutConvertResources( wid,
			     name,
			     colormap_resources,
			     XtNumber(colormap_resources)
			     );

	/* was the result "True"? */
	if ( ! use_colormap ) {
	    cmap_state = cmap_ignore;
	    return;
	}

	/* yes it was */
	cmap_state = cmap_use;
	cmap_display = display;
	cmap = XCopyColormapAndFree( display,
				     DefaultColormap( display,
						      DefaultScreen( display )
						      )
				     );
    }

    /* use the private colormap? */
    if ( cmap_state == cmap_use ) {
	XtVaSetValues( wid, XtNcolormap, cmap, 0 );
    }
}

/*
 * onchld --
 *	Handle SIGCHLD.
 */
static void
onchld(int signo)
{
	/* If the vi process goes away, we exit as well. */
	if (kill(pid, 0))
		vi_fatal_message(top_level, "The vi process died.  Exiting.");
}

/*
 * onexit --
 *	Function called when the editor "quits".
 */
static void
onexit(void)
{
	exit (0);
}