3e1db26a5a
Removing elvis, importing nvi, ctags, updating libedit. Change-Id: I881eb04d2dc64cf112facd992de1114e1a59107f
405 lines
9.7 KiB
C
405 lines
9.7 KiB
C
/* $NetBSD: m_main.c,v 1.1.1.2 2008/05/18 14:31:26 aymeric Exp $ */
|
||
|
||
/*-
|
||
* 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"
|
||
|
||
#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 */
|
||
|
||
#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"
|
||
#include "extern.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);
|
||
}
|