mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-27 04:12:51 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
442
src/xrdopt.c
Executable file
442
src/xrdopt.c
Executable file
@@ -0,0 +1,442 @@
|
||||
/* $Id: xrdopt.c,v 1.6 2001/12/26 22:17:07 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
static char *id = "$Id: xrdopt.c,v 1.6 2001/12/26 22:17:07 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989, 1990, 1990, 1991, 1992, 1993, 1994, 1995 Venue. */
|
||||
/* All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/* The contents of this file are proprietary information */
|
||||
/* belonging to Venue, and are provided to you under license. */
|
||||
/* They may not be further distributed or disclosed to third */
|
||||
/* parties without the specific permission of Venue. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <sys/file.h>
|
||||
#include <sys/time.h>
|
||||
#ifndef NOETHER
|
||||
#ifndef USE_DLPI
|
||||
#include <net/nit.h> /* needed for Ethernet stuff below */
|
||||
#endif /* USE_DLPI */
|
||||
#endif /* NOETHER */
|
||||
#ifdef SYSVONLY
|
||||
#include <unistd.h>
|
||||
#endif /* SYSVONLY */
|
||||
#include <X11/Xlib.h>
|
||||
#include <X11/Xutil.h>
|
||||
#include <X11/Xresource.h>
|
||||
|
||||
#ifdef __STDC__
|
||||
#include <stdlib.h>
|
||||
#endif /* __STDC__ */
|
||||
|
||||
#include "xdefs.h"
|
||||
#include "dbprint.h"
|
||||
|
||||
XrmDatabase commandlineDB, applicationDB, serverDB, homeDB, rDB;
|
||||
int opTableEntries = 33;
|
||||
extern int LispWindowRequestedX,
|
||||
LispWindowRequestedY,
|
||||
LispWindowRequestedWidth,
|
||||
LispWindowRequestedHeight;
|
||||
|
||||
extern int LispDisplayRequestedX,
|
||||
LispDisplayRequestedY,
|
||||
LispDisplayRequestedWidth,
|
||||
LispDisplayRequestedHeight;
|
||||
|
||||
extern int xsync;
|
||||
|
||||
XrmOptionDescRec opTable[] = {
|
||||
{"-help", "*help", XrmoptionIsArg, (caddr_t) NULL},
|
||||
{"-h", "*help", XrmoptionIsArg, (caddr_t) NULL},
|
||||
{"-sysout", "*sysout", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-display", "*display", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-d", "*display", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-borderWidth", "*borderWidth", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-bw", "*borderWidth", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-screen", "*screen", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-sc", "*screen", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-geometry", "*geometry", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-g", "*geometry", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-foreground", "*foreground", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-fg", "*foreground", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-background", "*background", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-bg", "*background", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-title", "*title", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-t", "*title", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-icontitle", "*icontitle", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-it", "*icontitle", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-iconbitmap", "*iconbitmap", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-ibm", "*iconbitmap", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-key", "*key", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-k", "*key", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-timer", "*timer", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-xpages", "*maxpages", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-m", "*memory", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-NF", "*NoFork", XrmoptionIsArg, (caddr_t) NULL},
|
||||
{"-NoFork", "*NoFork", XrmoptionIsArg, (caddr_t) NULL},
|
||||
{"-INIT", "*Init", XrmoptionIsArg, (caddr_t) NULL},
|
||||
{"-EtherNet", "*EtherNet", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-E", "*EtherNet", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-autorepeat", "*autorepeat", XrmoptionSepArg, (caddr_t) NULL},
|
||||
{"-xsync", "*xsync", XrmoptionIsArg, (caddr_t) NULL},
|
||||
};
|
||||
/* autorepeat is a global setting for X, not anything that
|
||||
Medley has to be concerned with. Item kept for historical
|
||||
reasons /jarl
|
||||
*/
|
||||
|
||||
char Display_Name[128];
|
||||
char iconpixmapfile[1024];
|
||||
char Window_Title[255];
|
||||
char Icon_Title[255];
|
||||
|
||||
extern char sysout_name[], keystring[];
|
||||
extern int sysout_size, for_makeinit, please_fork, Scroll_Border;
|
||||
/* diagnostic flag for sysout dumping */
|
||||
/* extern int maxpages; */
|
||||
|
||||
extern char keystring[];
|
||||
|
||||
int Lisp_Border = 2;
|
||||
|
||||
/*** Ethernet stuff (JRB) **/
|
||||
#ifndef NOETHER
|
||||
extern int ether_fd;
|
||||
extern u_char ether_host[6];
|
||||
#ifndef USE_DLPI
|
||||
extern struct sockaddr_nit snit;
|
||||
#endif /* USE_DLPI */
|
||||
#endif /* NOETHER */
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* r e a d _ X o p t i o n */
|
||||
/* */
|
||||
/* Parse command-line options related to X windows. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void read_Xoption( argc, argv )
|
||||
int *argc;
|
||||
char **argv;
|
||||
{
|
||||
int bitmask;
|
||||
XrmValue value;
|
||||
char *str_type[30], tmp[1024], *envname;
|
||||
Display *xdisplay;
|
||||
int i;
|
||||
|
||||
/**********************************************/
|
||||
/* */
|
||||
/* Take care of -help & -info flags, which */
|
||||
/* aren't handled correctly by the X code. */
|
||||
/* */
|
||||
/**********************************************/
|
||||
|
||||
for (i = 1; i < *argc; i++)
|
||||
{
|
||||
if (argv[i] && ((strcmp(argv[i], "-info") == 0) ||
|
||||
(strcmp(argv[i], "-INFO") == 0))) {
|
||||
print_info_lines();
|
||||
}
|
||||
|
||||
if (argv[i] &&
|
||||
((strcmp(argv[i], "-help") == 0) ||
|
||||
(strcmp(argv[i], "-HELP") == 0)))
|
||||
{
|
||||
print_Xusage( argv[0] );
|
||||
exit(0);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* Now let X handle the parsing. */
|
||||
|
||||
(void)XrmInitialize();
|
||||
/* If the first argv lacks '-' in front it is the sysout. */
|
||||
#ifdef NEVEFR
|
||||
/* JDS 12/20/01: app name should always be "ldex", not what's in argv?? */
|
||||
XrmParseCommand(&commandlineDB, opTable, opTableEntries, argv[0], argc, argv);
|
||||
#endif
|
||||
XrmParseCommand(&commandlineDB, opTable, opTableEntries, "ldex", argc, argv);
|
||||
|
||||
if (XrmGetResource(commandlineDB, "ldex.help", "Ldex.Help",
|
||||
str_type, &value) == True) {
|
||||
print_Xusage( argv[0] );
|
||||
}
|
||||
|
||||
if(*argc == 2) /* There was probably a sysoutarg */
|
||||
{
|
||||
sysout_name[0] = '\0';
|
||||
(void)strcat(sysout_name, argv[1]);
|
||||
}
|
||||
else if ((envname = (char *)getenv("LDESRCESYSOUT")) != NULL)
|
||||
{
|
||||
strcpy(sysout_name, envname);
|
||||
}
|
||||
else if ((envname = (char *)getenv("LDESOURCESYSOUT")) != NULL)
|
||||
strcpy(sysout_name, envname);
|
||||
else {
|
||||
envname = (char *)getenv("HOME");
|
||||
(void)strcat(sysout_name, envname);
|
||||
(void)strcat(sysout_name, "/lisp.virtualmem");
|
||||
|
||||
if( access(sysout_name, R_OK) != 0)
|
||||
{
|
||||
(void)strcat(sysout_name, "");
|
||||
}
|
||||
}
|
||||
|
||||
/* In order to access other DB's we have to open the main display now */
|
||||
/* This is just temporary. We'll need this display struct to open the */
|
||||
/* main databases for medley. After it is used the display will be */
|
||||
/* closed and the opening of the other displays will follow the standard */
|
||||
/* protocoll. */
|
||||
|
||||
if (XrmGetResource(commandlineDB,
|
||||
"ldex.display", "Ldex.Display",
|
||||
str_type, &value) == True) {
|
||||
(void) strncpy(Display_Name, value.addr, (int)value.size);
|
||||
}
|
||||
else if (getenv("DISPLAY") == (char *)NULL){
|
||||
fprintf( stderr, "Can't find a display. Either set the shell\n");
|
||||
fprintf( stderr, "variabel DISPLAY to an appropriate display\n");
|
||||
fprintf( stderr, "or provide a -display argument.\n");
|
||||
print_Xusage( argv[0] );
|
||||
}
|
||||
else {
|
||||
envname = (char *)getenv("DISPLAY");
|
||||
(void)strcpy(Display_Name, envname);
|
||||
}
|
||||
if( (xdisplay = XOpenDisplay( Display_Name )) != NULL )
|
||||
{
|
||||
/* read the other databases */
|
||||
/* Start with app-defaults/medley */
|
||||
(void)strcpy(tmp, "/usr/lib/X11/app-defaults/");
|
||||
(void)strcat(tmp, "medley");
|
||||
applicationDB = XrmGetFileDatabase(tmp);
|
||||
if (applicationDB != NULL){
|
||||
(void)XrmMergeDatabases(applicationDB, &rDB);
|
||||
}
|
||||
/* Then try the displays defaults */
|
||||
if (XResourceManagerString(xdisplay) != NULL) {
|
||||
serverDB = XrmGetStringDatabase(XResourceManagerString(xdisplay));
|
||||
if (serverDB != NULL){
|
||||
(void)XrmMergeDatabases(serverDB, &rDB);
|
||||
}
|
||||
}
|
||||
XCloseDisplay(xdisplay);
|
||||
} else {
|
||||
fprintf( stderr, "Open_Display: cannot connect to display %s."
|
||||
,XDisplayName(Display_Name));
|
||||
exit(-1);
|
||||
}
|
||||
|
||||
envname = (char *)getenv("HOME");
|
||||
(void)strcat(tmp, envname);
|
||||
(void)strcat(tmp, "/.Xdefaults");
|
||||
if( access(tmp, R_OK) != 0) {
|
||||
serverDB = XrmGetFileDatabase(tmp);
|
||||
if (serverDB != NULL){
|
||||
(void)XrmMergeDatabases(serverDB, &rDB);
|
||||
}
|
||||
}
|
||||
|
||||
/* Now for the commandline */
|
||||
(void)XrmMergeDatabases(commandlineDB, &rDB);
|
||||
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.sysout",
|
||||
"Ldex.Sysout",
|
||||
str_type, &value) == True) {
|
||||
/* Get Sysout */
|
||||
(void)strncpy(sysout_name, value.addr, (int)value.size);
|
||||
}
|
||||
if (sysout_name == NULL) {
|
||||
fprintf(stderr, "Coudn't find a sysout to run;\n");
|
||||
print_Xusage( argv[0] );
|
||||
}
|
||||
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.title",
|
||||
"Ldex.Title",
|
||||
str_type, &value) == True) {
|
||||
(void)strncpy(Window_Title, value.addr, (int)value.size);
|
||||
} else {
|
||||
(void)strcpy(Window_Title,
|
||||
WINDOW_NAME);
|
||||
}
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.icontitle",
|
||||
"Ldex.icontitle",
|
||||
str_type, &value) == True) {
|
||||
(void)strncpy(Icon_Title, value.addr, (int)value.size);
|
||||
} else {
|
||||
(void)strcpy(Icon_Title, "Medley");
|
||||
}
|
||||
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.iconbitmap",
|
||||
"Ldex.Iconbitmap",
|
||||
str_type, &value) == True) {
|
||||
(void)strncpy(iconpixmapfile, value.addr, (int)value.size);
|
||||
}
|
||||
|
||||
/* Old style geometry definition. */
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.geometry",
|
||||
"Ldex.geometry",
|
||||
str_type, &value) == True) {
|
||||
/* Get Geometry */
|
||||
(void)strncpy(tmp, value.addr, (int)value.size);
|
||||
bitmask = XParseGeometry(tmp , &LispWindowRequestedX, &LispWindowRequestedY
|
||||
, &LispWindowRequestedWidth, &LispWindowRequestedHeight ); }
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.screen",
|
||||
"Ldex.screen",
|
||||
str_type, &value) == True) {
|
||||
/* Get Geometry */
|
||||
(void)strncpy(tmp, value.addr, (int)value.size);
|
||||
bitmask = XParseGeometry(tmp , &LispDisplayRequestedX, &LispDisplayRequestedY
|
||||
, &LispDisplayRequestedWidth, &LispDisplayRequestedHeight );
|
||||
}
|
||||
|
||||
(void)strcpy(tmp, ""); /* Clear the string */
|
||||
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.NoFork",
|
||||
"Ldex.NoFork",
|
||||
str_type, &value) == True) {
|
||||
please_fork = 0;
|
||||
}
|
||||
|
||||
/* if (XrmGetResource(rDB,
|
||||
"ldex.maxpages",
|
||||
"Ldex.maxpages",
|
||||
str_type, &value) == True) {
|
||||
(void)strncpy(tmp, value.addr, (int)value.size);
|
||||
maxpages = atoi(tmp);
|
||||
}
|
||||
*/
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.memory",
|
||||
"Ldex.memory",
|
||||
str_type, &value) == True) {
|
||||
(void)strncpy(tmp, value.addr, (int)value.size);
|
||||
sysout_size = atoi(tmp);
|
||||
}
|
||||
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.Init",
|
||||
"Ldex.Init",
|
||||
str_type, &value) == True) {
|
||||
for_makeinit = 1;
|
||||
}
|
||||
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.key",
|
||||
"Ldex.key",
|
||||
str_type, &value) == True) {
|
||||
(void)strncpy(keystring, value.addr, (int)value.size);
|
||||
}
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.xsync",
|
||||
"Ldex.xsync",
|
||||
str_type, &value) == True) {
|
||||
xsync = True;
|
||||
}
|
||||
#ifdef NOETHER
|
||||
#else
|
||||
if (XrmGetResource(rDB,
|
||||
"ldex.EtherNet",
|
||||
"Ldex.EtherNet",
|
||||
str_type, &value) == True) {
|
||||
int b0, b1, b2, b3, b4, b5;
|
||||
(void)strncpy(tmp, value.addr, (int)value.size);
|
||||
#ifdef USE_DLPI
|
||||
if (sscanf(tmp,"%d:%x:%x:%x:%x:%x:%x",ðer_fd,
|
||||
&b0, &b1, &b2, &b3, &b4, &b5) == 7)
|
||||
#else
|
||||
if (sscanf(tmp,"%d:%x:%x:%x:%x:%x:%x:%s",ðer_fd,
|
||||
&b0, &b1, &b2, &b3, &b4, &b5, snit.snit_ifname) == 8)
|
||||
#endif /* USE_DLPI */
|
||||
{
|
||||
ether_host[0] = b0; ether_host[1] = b1;
|
||||
ether_host[2] = b2; ether_host[3] = b3;
|
||||
ether_host[4] = b4; ether_host[5] = b5;
|
||||
} else {
|
||||
fprintf(stderr, "Missing or bogus -E argument\n");
|
||||
ether_fd = -1;
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
#endif /* NOETHER */
|
||||
} /* end readXoption */
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* p r i n t _ l i s p u s a g e */
|
||||
/* */
|
||||
/* Print out command-line usage info if user enters wrong stuff. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
print_lispusage( prog )
|
||||
char *prog;
|
||||
{
|
||||
TPRINT(( "TRACE: print_lisp_usage()\n" ));
|
||||
|
||||
/* Lisp Option */
|
||||
fprintf(stderr,"lde[ether] [sysout] [-k access-key]");
|
||||
fprintf(stderr," [-E <ethernet-info>]");
|
||||
fprintf(stderr,"\n");
|
||||
|
||||
} /* end print_lisp_usage() */
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* p r i n t _ X u s a g e */
|
||||
/* */
|
||||
/* Print out command-line options for X, to help user. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
print_Xusage( prog )
|
||||
char *prog;
|
||||
{
|
||||
fprintf(stderr, " %s options:\n", prog);
|
||||
fprintf(stderr, " [-sysout] [<sysout>] -path to the Medley image\n");
|
||||
fprintf(stderr, " -k[ey] <access-key> -see manual for details\n");
|
||||
fprintf(stderr, " -h[elp] -prints this text\n");
|
||||
fprintf(stderr, " -d[isplay] <host>:<display>.<screen>\n");
|
||||
fprintf(stderr, " -g[eometry] <geom> -size & placement for the medley window on your X screen\n");
|
||||
fprintf(stderr, " -sc[reen] <geom> -size & placement for the medley display\n");
|
||||
fprintf(stderr, " -t[itle] <string> -titlebar text for the window manager\n");
|
||||
fprintf(stderr, " -icontitle <string> | -it <string> -text for the medley icon\n");
|
||||
fprintf(stderr, " -iconbitmap <path> | -ibm <path> -bitmap for the medley icon\n");
|
||||
fprintf(stderr, " -xsync -turn XSyncronize on. (default is off)\n\n");
|
||||
fprintf(stderr, "If you have any further questions, please refer to the manual or\n");
|
||||
fprintf(stderr, "call our tech support at (800)228-5325 or (510)763-0516.\n\n");
|
||||
exit(0);
|
||||
} /* end print_Xusage() */
|
||||
Reference in New Issue
Block a user