adding zephyr-im master branch
This commit is contained in:
305
zwgc/standard_ports.c
Normal file
305
zwgc/standard_ports.c
Normal file
@ -0,0 +1,305 @@
|
||||
/* This file is part of the Project Athena Zephyr Notification System.
|
||||
* It is one of the source files comprising zwgc, the Zephyr WindowGram
|
||||
* client.
|
||||
*
|
||||
* Created by: Marc Horowitz <marc@athena.mit.edu>
|
||||
*
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (c) 1989 by the Massachusetts Institute of Technology.
|
||||
* For copying and distribution information, see the file
|
||||
* "mit-copyright.h".
|
||||
*/
|
||||
|
||||
#include <sysdep.h>
|
||||
|
||||
#if (!defined(lint) && !defined(SABER))
|
||||
static const char rcsid_standard_ports_c[] = "$Id$";
|
||||
#endif
|
||||
|
||||
#include <zephyr/mit-copyright.h>
|
||||
|
||||
/****************************************************************************/
|
||||
/* */
|
||||
/* Code to setup standard ports: */
|
||||
/* */
|
||||
/****************************************************************************/
|
||||
|
||||
#include <zephyr/zephyr.h>
|
||||
#include "new_memory.h"
|
||||
#include "port.h"
|
||||
#include "variables.h"
|
||||
#include "error.h"
|
||||
#include "main.h"
|
||||
#include "tty_filter.h"
|
||||
#ifndef X_DISPLAY_MISSING
|
||||
#include "X_driver.h"
|
||||
#endif
|
||||
|
||||
|
||||
extern char *tty_filter(string, int);
|
||||
extern int tty_filter_init(char *, char, int *, char **);
|
||||
|
||||
extern void usage(void);
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
static char *
|
||||
plain_driver(string input)
|
||||
{
|
||||
string processed_input = tty_filter(input, 0);
|
||||
|
||||
fputs(processed_input, stdout);
|
||||
fflush(stdout);
|
||||
free(processed_input);
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
static char *
|
||||
tty_driver(string input)
|
||||
{
|
||||
string processed_input = tty_filter(input, 1);
|
||||
|
||||
fputs(processed_input, stdout);
|
||||
fflush(stdout);
|
||||
free(processed_input);
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
static string
|
||||
noop_filter(string input)
|
||||
{
|
||||
return(input);
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
static string
|
||||
plain_filter(string input)
|
||||
{
|
||||
return(tty_filter(input, 0));
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
static string
|
||||
fancy_filter(string input)
|
||||
{
|
||||
return(tty_filter(input, 1));
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
static struct standard_port_info {
|
||||
char *port_name;
|
||||
/*
|
||||
* 0 = ok to use as the default output port
|
||||
* 1 = not ok to use as the default output port
|
||||
* 2 = disabled
|
||||
*/
|
||||
#define DEFAULT_OK 0
|
||||
#define DEFAULT_NOTOK 1
|
||||
#define DISABLED 2
|
||||
|
||||
int port_setup_status;
|
||||
int (*port_init)(char *, char, int *, char **);
|
||||
#define INPUT_DESC 0
|
||||
#define OUTPUT_DESC 1
|
||||
#define FILTER 2
|
||||
#define OUTPUT_PROC 3
|
||||
int type;
|
||||
char *(*function)(string);
|
||||
int setup_arg;
|
||||
} standard_port_info_table[] = {
|
||||
#ifndef X_DISPLAY_MISSING
|
||||
{ "X", DEFAULT_OK, X_driver_init, OUTPUT_PROC, X_driver, 0},
|
||||
{ "tty", DEFAULT_NOTOK, tty_filter_init, OUTPUT_PROC, tty_driver, 0},
|
||||
#else
|
||||
{ "tty", DEFAULT_OK, tty_filter_init, OUTPUT_PROC, tty_driver, 0},
|
||||
#endif
|
||||
{ "plain", DEFAULT_NOTOK, tty_filter_init, OUTPUT_PROC, plain_driver, 0},
|
||||
{ "stdout", DEFAULT_NOTOK, NULL, OUTPUT_DESC, NULL, 1},
|
||||
{ "stderr", DEFAULT_NOTOK, NULL, OUTPUT_DESC, NULL, 2},
|
||||
|
||||
{ "stdin", DEFAULT_NOTOK, NULL, INPUT_DESC, NULL, 0},
|
||||
{ "loopback", DEFAULT_NOTOK, NULL, FILTER, noop_filter, 0},
|
||||
{ "plain_filter", DEFAULT_NOTOK, tty_filter_init, FILTER, plain_filter, 0},
|
||||
{ "tty_filter", DEFAULT_NOTOK, tty_filter_init, FILTER, fancy_filter, 0},
|
||||
|
||||
{ NULL, DISABLED, NULL, FILTER, NULL, 0} };
|
||||
|
||||
/*
|
||||
* <<<>>>
|
||||
*/
|
||||
|
||||
static struct standard_port_info *
|
||||
get_standard_port_info(string port_name)
|
||||
{
|
||||
struct standard_port_info *p;
|
||||
|
||||
for (p=standard_port_info_table; p->port_name; p++)
|
||||
if (string_Eq(p->port_name, port_name) && p->port_setup_status!=DISABLED)
|
||||
return(p);
|
||||
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
/*
|
||||
* Internal Routine:
|
||||
*
|
||||
* int boolean_value_of(string text)
|
||||
* Effects: If text represents yes/true/on, return 1. If text
|
||||
* representes no/false/off, return 0. Otherwise,
|
||||
* returns -1.
|
||||
*/
|
||||
|
||||
static int
|
||||
boolean_value_of(string text)
|
||||
{
|
||||
if (!text)
|
||||
return(-1); /* not set */
|
||||
if (!strcasecmp("yes", text) || !strcasecmp("y", text) ||
|
||||
!strcasecmp("true", text) || !strcasecmp("t", text) ||
|
||||
!strcasecmp("on", text))
|
||||
return(1);
|
||||
else if (!strcasecmp("no", text) || !strcasecmp("n", text) ||
|
||||
!strcasecmp("false", text) || !strcasecmp("f", text) ||
|
||||
!strcasecmp("off", text))
|
||||
return(0);
|
||||
else
|
||||
return(-1);
|
||||
}
|
||||
|
||||
/*
|
||||
*
|
||||
*/
|
||||
|
||||
void init_standard_ports(int *pargc,
|
||||
char **argv)
|
||||
{
|
||||
struct standard_port_info *p;
|
||||
string first_working_port = "";
|
||||
string default_port = "";
|
||||
char **new, **current;
|
||||
int fallback;
|
||||
char *charset = NULL;
|
||||
|
||||
/*
|
||||
* Process argument list handling "-disable <port>" and
|
||||
* "-default <output port>" arguments, as well as "-ttymode"
|
||||
* and -charset, because tty_filter_init gets run twice
|
||||
*/
|
||||
for (new=current=argv+1; *current; current++) {
|
||||
if (string_Eq((string) *current, "-disable")) {
|
||||
current++; *pargc -= 2;
|
||||
if (!*current)
|
||||
usage();
|
||||
p = get_standard_port_info((string) *current);
|
||||
if (p)
|
||||
p->port_setup_status = DISABLED;
|
||||
} else if (string_Eq((string) *current, "-default")) {
|
||||
current++; *pargc -= 2;
|
||||
if (!*current)
|
||||
usage();
|
||||
default_port = (string) *current;
|
||||
p = get_standard_port_info((string) *current);
|
||||
if (p)
|
||||
p->port_setup_status = DEFAULT_OK;
|
||||
} else if (string_Eq((string) *current, "-charset")) {
|
||||
current++; *pargc -= 2;
|
||||
if (!*current)
|
||||
usage();
|
||||
charset = *current;
|
||||
} else if (string_Eq((string) *current, "-ttymode")) {
|
||||
default_port = (string) "tty";
|
||||
(*pargc)--;
|
||||
p = get_standard_port_info(default_port);
|
||||
if (p) {
|
||||
p->port_setup_status = DEFAULT_OK;
|
||||
p = get_standard_port_info ((string) "X");
|
||||
if (p)
|
||||
p->port_setup_status = DISABLED;
|
||||
}
|
||||
} else
|
||||
*(new++) = *current;
|
||||
}
|
||||
*new = *current;
|
||||
|
||||
var_set_variable_then_free_value("tty_charset", (string)ZGetCharsetString(charset));
|
||||
|
||||
fallback = boolean_value_of(ZGetVariable("fallback"));
|
||||
/*
|
||||
* Initialize all non-disabled ports. If a port reports an error,
|
||||
* disable that port. Set default_port if not already set
|
||||
* by the -default argument to the first non-disabled port.
|
||||
*/
|
||||
for (p = standard_port_info_table; p->port_name; p++) {
|
||||
if (p->port_setup_status == DISABLED)
|
||||
continue;
|
||||
|
||||
if (p->port_init && (*(p->port_init))(p->port_name,
|
||||
*first_working_port,
|
||||
pargc, argv)) {
|
||||
p->port_setup_status = DISABLED;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (fallback == 1) {
|
||||
/* we are doing fallback, make DEFAULT_NOTOK ports OK */
|
||||
p->port_setup_status = DEFAULT_OK;
|
||||
}
|
||||
if (!*first_working_port)
|
||||
first_working_port = p->port_name;
|
||||
switch (p->type) {
|
||||
case INPUT_DESC:
|
||||
create_port_from_files(p->port_name, fdopen(p->setup_arg, "r"),0);
|
||||
break;
|
||||
|
||||
case OUTPUT_DESC:
|
||||
create_port_from_files(p->port_name, 0, fdopen(p->setup_arg, "w"));
|
||||
break;
|
||||
|
||||
case FILTER:
|
||||
create_port_from_filter(p->port_name, p->function);
|
||||
break;
|
||||
|
||||
case OUTPUT_PROC:
|
||||
create_port_from_output_proc(p->port_name, p->function);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (!default_port[0]) {
|
||||
/* no default port has been set */
|
||||
for (p = get_standard_port_info(first_working_port); p->port_name; p++)
|
||||
if ((p->port_setup_status == DEFAULT_OK))
|
||||
break;
|
||||
if (p->port_name)
|
||||
var_set_variable("output_driver", p->port_name);
|
||||
else { /* no suitable default has been found */
|
||||
if (fallback == -1) /* complain, since indeterminate */
|
||||
ERROR2(
|
||||
"To receive Zephyrgrams, (type `%s -ttymode').\n",
|
||||
progname);
|
||||
exit(1);
|
||||
}
|
||||
} else
|
||||
var_set_variable("output_driver", default_port);
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user