rsalz@uunet.uu.net (Rich Salz) (11/11/88)
Submitted-by: Kazumasa Utashiro <kddlab!sra.junet!utashiro>
Posting-number: Volume 16, Issue 62
Archive-name: fep/part02
#!/bin/sh
# to extract, remove the header and type "sh filename"
if `test ! -s ./fep_hist.c`
then
echo "writing ./fep_hist.c"
cat > ./fep_hist.c << '\End\Of\File\'
/* Copyright (c) 1987, 1988 by Software Research Associates, Inc. */
#ifndef lint
static char rcsid[]=
"$Header: fep_hist.c,v 4.0 88/08/05 20:22:14 utashiro Rel $ (SRA)";
#endif lint
#include <stdio.h>
#include <ctype.h>
#include "fep_defs.h"
#include "fep_glob.h"
#include "fep_funcs.h"
char **HistoryTable;
int TopOfHist;
int TailOfHist;
int CurrentHist;
int HistorySize;
int uniqline = 1;
char *getOldestHistory();
char *getYoungestHistory();
char *argv[MAXARGS];
int argc;
init_hist(size)
int size;
{
char *itoa();
TopOfHist = 0;
TailOfHist = 0;
CurrentHist = 0;
HistorySize = size;
/*
* "set_var" will call "changeHistorySize" function for initilize
* history table.
*/
set_var ("history", itoa (HistorySize));
}
char *
itoa (i)
int i;
{
static char buf[64];
sprintf (buf, "%d", i);
return (buf);
}
addHistory(string)
char *string;
{
char *allocAndCopyThere();
char *prev;
if (HistorySize <= 0)
return;
CurrentHist = TailOfHist;
prev = getYoungestHistory ();
if (look_var ("ignore-same-line") && prev && !strcmp (string, prev))
return;
if (TailOfHist-HistorySize >= TopOfHist) {
if (HistoryTable[TopOfHist % HistorySize])
free(HistoryTable[TopOfHist % HistorySize]);
TopOfHist++;
}
HistoryTable[(TailOfHist++)%HistorySize] = allocAndCopyThere(string);
CurrentHist = TailOfHist;
}
void
resetCurrentHistory()
{
CurrentHist = TailOfHist;
}
char *
getPreviousHistory()
{
if (HistorySize <= 0)
return (0);
if (TailOfHist == 0) {
return((char *)0);
}
if (CurrentHist == TopOfHist)
CurrentHist = TailOfHist - 1;
else
CurrentHist--;
return (HistoryTable[CurrentHist % HistorySize]);
}
char *
getNextHistory()
{
if (HistorySize <= 0)
return (0);
if (CurrentHist == TailOfHist || CurrentHist == TailOfHist-1)
CurrentHist = TopOfHist;
else
CurrentHist++;
return (HistoryTable[CurrentHist % HistorySize]);
}
char *
getHistory(num)
int num;
{
if (HistorySize <= 0)
return (0);
if (num < TopOfHist || TailOfHist <= num) {
return ((char *)0);
}
else {
return (HistoryTable[num % HistorySize]);
}
}
getOldestHistNum()
{
return (TopOfHist);
}
getYoungestHistNum()
{
return (TailOfHist-1);
}
char *
getOldestHistory()
{
register char *cp;
if (TailOfHist == 0)
return("");
cp = HistoryTable[TopOfHist];
return (cp ? cp : "");
}
char *
getYoungestHistory()
{
register char *cp;
if (TailOfHist == 0)
return("");
cp = getHistory (getYoungestHistNum());
return (cp ? cp : "");
}
getCurrentHistNum()
{
return (CurrentHist);
}
char *
allocAndCopyThere(string)
char *string;
{
register char *cp;
cp = (char *)malloc(strlen(string)+1);
if (cp == (char *)0)
return ((char *)0);
strcpy(cp, string);
return(cp);
}
char *
historyExtract(string)
char *string;
{
char *search_reverse_history();
if (HistorySize <= 0)
return (0);
switch (*++string) {
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
{
register int histNum;
histNum = (atoi (string)) - 1;
if (TopOfHist <= histNum && histNum < TailOfHist) {
CurrentHist = histNum;
return (HistoryTable[histNum % HistorySize]);
}
else {
return ((char *) 0);
}
}
break;
case '-':
{
register int histNum;
if (! isdigit(*++string))
return ((char *) 0);
histNum = TailOfHist - (atoi (string));
if (TopOfHist <= histNum && histNum < TailOfHist) {
CurrentHist = histNum;
return (HistoryTable[histNum % HistorySize]);
}
else {
return ((char *) 0);
}
}
break;
case '!':
if (TailOfHist != 0) {
CurrentHist = TailOfHist - 1;
return (HistoryTable[(TailOfHist - 1) % HistorySize]);
}
break;
case '?':
return (search_reverse_history (++string));
default:
{
char *buf[64];
strcpy (buf, "^");
strncat (buf, string, 64);
return (search_reverse_history (buf));
}
}
return ((char *) 0);
}
char *
search_reverse_history (string)
{
register int i;
char *re_comp();
if (string != NULL) {
set_var ("search-string", string);
if (re_comp(string) != (char *)0)
return ((char *) 0);
i = TailOfHist - 1;
}
else
i = CurrentHist - 1;
for (; i >= TopOfHist; i--) {
if (re_exec(HistoryTable[i % HistorySize]) == 1) {
CurrentHist = i;
return(HistoryTable[i % HistorySize]);
}
}
return ((char *) 0);
}
char *
search_forward_history (string)
{
register int i;
char *re_comp();
if (string != NULL) {
if (re_comp(string) != (char *)0)
return ((char *) 0);
i = TopOfHist;
}
else
i = CurrentHist + 1;
for (; i <= TailOfHist; i++) {
if (re_exec(HistoryTable[i % HistorySize]) == 1) {
CurrentHist = i;
return(HistoryTable[i % HistorySize]);
}
}
return ((char *) 0);
}
/*
* Change history table size.
*/
changeHistorySize(newsize)
int newsize;
{
char **newHistTable;
register int newTop, i;
if (newsize > 0)
newHistTable = (char **)calloc(sizeof(char *), newsize);
newTop = (TailOfHist - newsize < TopOfHist)
? TopOfHist : TailOfHist - newsize;
/*
* This function can be called for initializing history table
*/
if (HistoryTable) {
for (i = TailOfHist-1; i >= TopOfHist && i >= newTop; i--) {
newHistTable[i%newsize] = HistoryTable[i%HistorySize];
}
for (i = TopOfHist; i < newTop; i++) {
if (HistoryTable[i%HistorySize]) {
free(HistoryTable[i%HistorySize]);
}
}
free(HistoryTable);
}
if (newsize <= 0)
HistoryTable = (char **) 0;
TopOfHist = newTop;
HistorySize = newsize;
HistoryTable = newHistTable;
if (look_var ("debug")) {
printf ("history: top=%d, tail=%d, size=%d\n",
TopOfHist, TailOfHist, HistorySize);
}
}
/*
* Built-in function "fep-history"
*/
fep_history (comline)
char *comline;
{
int num;
argc = mkargv (comline, argv, MAXARGS);
if (argc == 2)
num = atoi (argv[1]);
else
num = 0;
hist_showHistory (num);
}
hist_showHistory (num)
int num;
{
register int from, to, i;
char *cp;
if (num <= 0)
num = HistorySize;
from = getOldestHistNum ();
to = getYoungestHistNum ();
from = max (from, to - num + 1);
if (CurrentHist < from) {
from = max (getOldestHistNum(), CurrentHist - num/2);
to = min (getYoungestHistNum(), from + num - 1);
}
for (i = from; i <= to; i++) {
if (cp = getHistory(i)) {
printf("%c%4d ", (i == CurrentHist) ? '>' : ' ', i+1);
ctlprint(cp);
}
}
}
char *
mk_home_relative (cp)
char *cp;
{
char buf[256];
/*
* If variable "history-file" is not absolute path name,
* change it to relative path name from home directory.
*/
if (*cp != '/' && !(*cp == '.' && *(cp+1) == '/')) {
strcpy (buf, getenv ("HOME"));
strcat (buf, "/");
strcat (buf, cp);
}
else
strcpy (buf, cp);
return (buf);
}
fep_save_history (comline)
char *comline;
{
char *file;
char **argp;
FILE *fp;
int num = 0;
argc = mkargv (comline, argv, MAXARGS);
argp = argv;
++argp;
if (isdigit (**argp))
num = atoi (*argp++);
if (*argp == NULL) {
char *cp;
if ((cp = look_var ("history-file")) == NULL) {
clear_edit_line ();
printf (
"%s: Argument or \"history-file\" variables is required\n",
argv[0]
);
recover_edit_line ();
return;
}
file = mk_home_relative (cp);
}
else
file = *argp;
save_history (file, num);
}
#define MAXSAVEHIST 512
save_history (file, num)
char *file;
int num;
{
int old, new;
FILE *fp, *fopen();
char *cp;
old = getOldestHistNum ();
new = getYoungestHistNum ();
if (num <= 0)
num = MAXSAVEHIST;
if (new - num + 1 > old)
old = new - num + 1;
if (look_var ("debug")) {
printf ("save history from %d to %d\n", old, new);
}
if ((fp = fopen (file, "w")) == NULL) {
clear_edit_line ();
perror (file);
recover_edit_line ();
return;
}
while (old <= new) {
cp = getHistory (old++);
fprintf (fp, "%s\n", cp);
}
fclose (fp);
return;
}
fep_read_history (comline)
char *comline;
{
char *file;
char **argp;
FILE *fp;
argc = mkargv (comline, argv, MAXARGS);
argp = argv;
++argp;
if (*argp == NULL) {
char *cp;
if ((cp = look_var ("history-file")) == NULL) {
clear_edit_line ();
printf (
"%s: Argument or \"history-file\" variables is required\n",
argv[0]
);
recover_edit_line ();
return;
}
file = mk_home_relative (cp);
}
else
file = *argp;
read_history (file);
}
read_history (file)
char *file;
{
FILE *fp;
char line [MAXCOMLEN];
register int i;
if ((fp = fopen (file, "r")) == NULL) {
clear_edit_line ();
perror (file);
recover_edit_line ();
return;
}
while (fgets (line, MAXCOMLEN, fp)) {
i = strlen (line) - 1;
if (line [i] == '\n')
line [i] = '\0';
addHistory (line);
}
return;
}
\End\Of\File\
else
echo "will not over write ./fep_hist.c"
fi
if `test ! -s ./fep_com.c`
then
echo "writing ./fep_com.c"
cat > ./fep_com.c << '\End\Of\File\'
/* Copyright (c) 1987, 1988 by Software Research Associates, Inc. */
#ifndef lint
static char rcsid[]=
"$Header: fep_com.c,v 4.0 88/08/05 20:22:02 utashiro Rel $ (SRA)";
#endif lint
#include <stdio.h>
#include <sgtty.h>
#include <ctype.h>
#include <sys/param.h>
#include <sys/file.h>
#include <sys/stat.h>
#include <sys/ioctl.h>
#include "fep_defs.h"
#include "fep_glob.h"
#include "fep_funcs.h"
int tty_fix_bell = OFF; /* ring bell if the tty mode is changed */
/*
* Check command line if it call built-in function or not and execute it
*/
executeBuiltInFunction (line)
char *line;
{
register FunctionTableEnt *ftp;
int argc;
/*
* Skip white space.
*/
while (isspace (*line))
line++;
/*
* Skip comment and blank line
*/
if (*line == '#' || *line == '\0')
return (IGNORED);
/*
* All built-in command should be prefixed by 'fep-'
*/
if (strncmp (line, "fep-", 4) != 0)
return (NOT_PROCESSED);
for (ftp = BuiltinFuncTable; ftp->name; ftp++) {
if (is_same_command (line, ftp->name)) {
if (debug)
showArgs (line);
if (
condition()
/* control structure should be processed on any condition */
|| strncmp (line + 4, "if", 2) == 0
|| strncmp (line + 4, "endif", 5) == 0
|| strncmp (line + 4, "elseif", 6) == 0
|| strncmp (line + 4, "else", 4) == 0
)
(*ftp->func)(line);
return (PROCESSED);
}
}
return (NOT_PROCESSED);
}
is_same_command (a, b)
register char *a, *b;
{
while (*a && *b && *a == *b)
++a, ++b;
if ((*a == NULL || isspace (*a)) && (*b == NULL || isspace (*b)))
return 1;
else
return 0;
}
/*
* Process 'fep-if' and 'fep-elseif'
*/
fep_if (comline)
char *comline;
{
char *argv[MAXARGS];
int argc;
char *err;
int cond;
int i;
argc = mkargv (comline, argv, MAXARGS);
if (argc != 2 && argc != 4) {
printf ("%s: Illegal number of arguments\n", argv[0]);
return;
}
/*
* In case of only one argument,
* treat as true if the variable is set.
*/
if (argc == 2) {
char *cp;
if (argv[1][0] == '$')
cp = &argv[1][1];
else
cp = &argv[1][0];
cond = look_var (cp) ? 1 : 0;
}
else {
int value;
/*
* Substitute variable prefixed by '$' mark.
*/
for (i = 0; i < argc; i++) {
if (argv[i][0] == '$') {
char *v;
if (v = look_var (&argv[i][1]))
argv[i] = v;
else
argv[i] = "";
}
}
if (debug) {
int i;
char **argp;
for (i = 0, argp = argv; *argp; argp++, i++)
printf ("argv[%d] = \"%s\"\n", i, *argp);
}
/*
* Check operator.
*/
if (eq (argv[2], "==") || eq (argv[2], "="))
value = 1;
else if (eq (argv[2], "!="))
value = 0;
else {
printf ("%s: Unknown opperator \"%s\"", argv[0], argv[2]);
return;
}
if (eq (argv[1], argv[3]))
cond = value;
else
cond = !value;
}
if (eq (argv[0], "fep-elseif"))
err = change_condition (cond);
else
err = push_condition (cond);
if (err)
printf ("%s: %s", argv[0], err);
else if (debug)
printf ("%s: %s\n", comline, cond ? "TRUE" : "FALSE");
return;
}
fep_else ()
{
char *err;
if (err = change_condition (1))
printf ("fep-else: %s", err);
return;
}
fep_endif ()
{
char *err;
if (err = pop_condition ())
printf ("fep-endif: %s", err);
return;
}
bind_to_key (comline)
char *comline;
{
register FunctionTableEnt *fnte;
char *argv[MAXARGS];
int argc;
argc = mkargv (comline, argv, MAXARGS);
/*
* Something error occured. Print message and return
*/
if (argc < 0) {
printf ("%s\n", argv[0]);
return;
}
/*
* Number of arguments should be three.
*/
if (argc != 3) {
printf ("Invalid number of arguments\n");
return;
}
/*
* Find the function name from function name table.
*/
for (fnte = FunctionNameTable; fnte->func; fnte++) {
if (strcmp (fnte->name, argv[1]) == 0) {
bind_key (curFuncTab, fnte->func, argv[2], abort);
break;
}
}
/*
* Couldn't find such a function
*/
if (fnte->func == NULL)
printf ("%s: no such built-in command\n", argv[1]);
}
alias(comline)
char *comline;
{
char *argv[MAXARGS];
int argc;
argc = mkargv (comline, argv, MAXARGS);
switch (argc) {
case 1:
show_aliaslist (NULL);
break;
case 2:
show_aliaslist (argv[1]);
break;
case 3:
set_alias (argv[1], argv[2]);
break;
default:
printf ("%s: Illegal number of arguments.\n", argv[0]);
}
return;
}
unalias (comline)
char *comline;
{
char *argv[MAXARGS];
int argc;
int i;
argc = mkargv (comline, argv, MAXARGS);
for (i=1; i<argc; i++)
unset_alias (argv[i]);
return;
}
set (comline)
char *comline;
{
char line[MAXCOMLEN];
char *cp, *index();
char *argv[MAXARGS];
int argc;
/*
* If there is '=' character in command line, change it to space.
*/
strcpy (line, comline);
if (cp = index (line, '='))
*cp = ' ';
argc = mkargv (line, argv, MAXARGS);
switch (argc) {
/* set */
case 1:
show_varlist ();
return;
/* set var */
case 2:
set_var (argv[1], "");
return;
/* set var = val */
case 3:
set_var (argv[1], argv[2]);
break;
default:
printf ("Invalid number of arguments\n");
return;
}
}
unset(comline)
char *comline;
{
char **vp;
char *argv[MAXARGS];
int argc;
argc = mkargv (comline, argv, MAXARGS);
if (argc < 2) {
printf ("Invalid number of arguments\n");
return;
}
for (vp = &argv[1]; *vp; vp++)
unset_var (*vp);
}
extern int Transparency;
extern struct sgttyb slave_ttymode;
extern struct sgttyb master_ttymode;
extern int master, slave;
extern char slave_tty[];
/*
* Toggle transparency switch.
* If variable Transparency is ON, fep doesn't care about input.
* If OFF, line editing will be done by fep.
* But this Transparency is set automaticaly by getcharacter() routine,
* if the variable auto-tty-fix is ON.
*/
toggle_transparency()
{
int r;
int slave_fd;
struct sgttyb s;
if (Transparency == OFF) {
slave_fd = open (slave_tty, O_WRONLY);
if (slave_fd < 0) {
perror (slave_tty);
return;
}
r = ioctl (slave_fd, TIOCGETP, (char *) &s);
if (r < 0) {
perror (slave_tty);
(void) close (slave_fd);
return;
}
s.sg_flags |= CBREAK;
r = ioctl (0, TIOCSETN, (char *) & s);
if (r < 0) {
perror (slave_tty);
(void) close (slave_fd);
}
(void) close (slave_fd);
}
else
r = ioctl (0, TIOCSETN, (char *) & master_ttymode);
if (r < 0) {
printf ("Can't change pty mode.\n");
return;
}
Transparency = !Transparency;
}
/*
* Check tty mode of slave tty and fix stdout tty mode
*/
fix_transparency()
{
int r;
struct sgttyb s;
if (slave < 0)
return;
r = ioctl (slave, TIOCGETP, (char *) &s);
/*
* slave CRMOD is off, but master should be.
*/
s.sg_flags |= CRMOD;
if (r < 0) {
perror (slave_tty);
return;
}
/*
* If find slave tty mode is cbreak or raw, fix tty mode of stdout to
* same mode as slave and set Transparency ON.
*/
if (s.sg_flags & (CBREAK|RAW)) {
if (Transparency == OFF) {
r = ioctl (0, TIOCSETN, (char *) & s);
if (r < 0) {
perror ("stdout");
return;
}
if (tty_fix_bell) errorBell ();
Transparency = ON;
}
}
else {
if (Transparency == ON) {
r = ioctl (0, TIOCSETN, (char *) &master_ttymode);
if (r < 0) {
perror ("stdout");
return;
}
if (tty_fix_bell) errorBell ();
Transparency = OFF;
}
}
if (r < 0) {
printf ("Can't change pty mode.\n");
return;
}
}
int crt, sline;
show_bindings ()
{
crt = lookd_var ("crt");
if (crt < 0)
crt = 0;
sline = 0;
clear_edit_line ();
(void) showBindingTbl (curFuncTab, "");
recover_edit_line ();
}
showBindingTbl (ft, prefix)
FUNC ft[];
char *prefix;
{
register FunctionTableEnt *fnte;
register int i;
for (i = 0; i < 128; i++) {
if (ft[i] == self_insert || ft[i] == abort)
continue;
/*
* If the pointer to function has indirect flag print "indirect".
*/
if (isIndirect(ft[i])) {
char pf[64];
sprintf (pf, "%s%s%c-",
prefix, (i == 0 || isctlchar(i)) ? "^" : "", unctl(i));
if (showBindingTbl (maskIndirect(ft[i]), pf) == 0)
break;
continue;
}
/*
* Search function name table
*/
for (fnte = FunctionNameTable; fnte->func; fnte++) {
if (ft[i] == fnte->func) {
if (!check_more())
return (0);
/*
* Show binding
*/
printf ("%s%s%c\t%s\n",
prefix,
i == 0 || isctlchar(i) ? "^" : "",
unctl(i),
fnte->name
);
break;
}
}
/*
* Can't find such a function
*/
if (fnte->func == NULL)
printf (
"%s%c\tunknown function (0x%x)\n",
i == 0 || isctlchar(i) ? "^" : "",
unctl(i),
ft[i]
);
}
return (1);
}
show_help ()
{
crt = lines;
(crt < 0) && (crt = 0);
sline = 0;
clear_edit_line ();
check_more() &&
(printf ("Functions:\n") || 1) &&
showTable (FunctionNameTable) &&
check_more() &&
(printf ("Commands:\n") || 1) &&
showTable (BuiltinFuncTable) &&
check_more() &&
(printf ("Variables:\n") || 1) &&
showVariables ();
recover_edit_line ();
}
showTable (fnte)
FunctionTableEnt *fnte;
{
int i;
/*
* Search function name table
*/
for (; fnte->func; fnte++) {
if (!check_more())
return (0);
printf ("\t%-30s %s\n", fnte->name, fnte->help);
}
return (1);
}
showVariables ()
{
extern VAR default_set_vars[], default_unset_vars[];
VAR *vp;
for (vp = default_set_vars; vp->v_name; ++vp) {
if (!vp->v_help)
continue;
if (!check_more())
return (0);
printf ("\t%-30s %s\n", vp->v_name, vp->v_help);
}
for (vp = default_unset_vars; vp->v_name; ++vp) {
if (!vp->v_help)
continue;
if (!check_more())
return (0);
printf ("\t%-30s %s\n", vp->v_name, vp->v_help);
}
return (1);
}
putch (c)
int c;
{
putchar (c);
}
check_more()
{
if (sline == 0 && look_var ("clear-repaint") && term_clear)
tputs (term_clear, 1, putch);
/*
* Print more message
*/
# define PUTMORE printf ( "--More--");
# define DELMORE printf ("\r \r");
if (crt && ++sline >= crt) {
PUTMORE;
fflush (stdout);
switch (getcharacter()) {
case '\n': case '\r': case 'j':
--sline;
break;
case 'd': case CTRL(D):
sline /= 2;
break;
case 'q': case 'Q': case CTRL(C):
DELMORE;
return (0);
default:
sline = 0;
break;
}
DELMORE;
}
return (1);
}
/*
* Change directory
*/
fep_chdir (line)
char *line;
{
char *argv[MAXARGS];
int argc;
switch (mkargv (line, argv, MAXARGS)) {
/*
* Change directory with no arguments cause to chdir to home directory
*/
case 1: {
char *home, *getenv();
if (home = getenv ("HOME"))
argv[1] = home;
else {
printf ("Where is your home directory?\n");
return;
}
break;
}
/*
* Change directory command with argument
*/
case 2:
break;
/*
* Something error occured in mkargv.
*/
case -1:
printf ("%s\n", argv[0]);
return;
default:
printf ("fep-chdir: Invalid number of arguments.\n");
return;
}
/*
* Chane directory.
* Keep in mind that end process still in old directory
*/
if (chdir (argv[1]) < 0) {
perror (argv[1]);
return;
}
printf ("Working directory has been changed to \"%s\"\n", argv[1]);
}
fep_pwd (line)
char *line;
{
char cwd[MAXPATHLEN], *getwd();
(void) getwd (cwd);
printf ("%s\n", cwd);
}
fep_echo (comline)
char *comline;
{
char *argv[MAXARGS];
int argc;
char **argp;
int putnewline = 1, first;
argc = mkargv (comline, argv, MAXARGS);
argp = &argv[1];
if (*argp && strcmp (*argp, "-n") == NULL) {
putnewline = 0;
++argp;
}
for (first = 1; *argp; argp++) {
char *cp;
/*
* Put space
*/
if (! first)
printf ("%s", " ");
/*
* Print argument
*/
if (**argp == '$' && (cp = look_var (*argp + 1)))
printf ("%s", cp);
else
printf ("%s", *argp);
first = 0;
}
if (putnewline)
printf ("%c", '\n');
}
fep_command (comline)
char *comline;
{
char *argv[MAXARGS];
int argc;
int i;
char **argp;
char *buf[256];
argc = mkargv (comline, argv, MAXARGS);
if (argc == 1) {
printf ("Invalid number of arguments.\n");
return;
}
strcpy (buf, "");
for (i=1; i<argc; i++) {
strcat (buf, argv[i]);
strcat (buf, " ");
}
invoke_command (buf);
}
fep_source (comline)
char *comline;
{
FILE *fp;
static char *argv[MAXARGS];
char file [MAXPATHLEN];
int argc;
argc = mkargv (comline, argv, MAXARGS);
if (argc != 2) {
printf ("Invalid number of arguments.\n");
return;
}
strcpy (file, argv[1]);
source_file (file);
return;
}
sourceRcFile ()
{
char *home, filename[64], *getenv();
char line[256];
struct stat stb_home, stb_cur;
if (!(home = getenv ("HOME")))
return;
strcpy (filename, home);
strcat (filename, "/.feprc");
/*
* Source .feprc in home directory.
*/
stb_home.st_ino = 0;
if (stat (filename, &stb_home) >= 0 && (stb_home.st_mode&S_IREAD))
source_file (filename);
/*
* Source .feprc in current directory.
*/
if ((stat (".feprc", &stb_cur) >= 0 && stb_cur.st_ino != stb_home.st_ino))
source_file (".feprc");
return;
}
source_file (file)
char *file;
{
FILE *fp;
char line[512], line2[512];
int i = 0;
if ((fp = fopen (file, "r")) == NULL) {
perror (file);
return;
}
while (fgets (line, 256, fp)) {
i++;
if (executeBuiltInFunction (line) == NOT_PROCESSED) {
char *cp = line;
while (isspace (*cp))
cp++;
strcpy (line2, "fep-");
strcat (line2, cp);
if (executeBuiltInFunction (line2) == NOT_PROCESSED) {
printf ("\"%s\", line %d: cannot be executed\n", file, i);
printf (">>> %s", line);
}
}
}
fclose (fp);
return;
}
#define MAX_IF_NEST 10
#define CONDITION_MASK 0x00ff
#define HAS_BEEN_TRUE 0x0100
int condition_stack [MAX_IF_NEST] = {1};
int current_if_stack = 0;
condition ()
{
int cond = 1, i;
if (current_if_stack == 0)
return (1);
for (i = 1; i <= current_if_stack; i++)
cond &= condition_stack [i];
return (cond & CONDITION_MASK);
}
char *
change_condition (cond)
int cond;
{
if (debug)
printf ("old=0x%x, new=0x%x\n",
condition_stack [current_if_stack], cond);
if (current_if_stack > 0) {
if (condition_stack [current_if_stack] & HAS_BEEN_TRUE)
cond = 0;
else if (cond != 0)
condition_stack [current_if_stack] |= HAS_BEEN_TRUE;
condition_stack [current_if_stack] &= ~CONDITION_MASK;
condition_stack [current_if_stack] |= cond;
return ((char *)0);
}
else
return ("Not in if close\n");
}
char *
push_condition (cond)
int cond;
{
if (current_if_stack < MAX_IF_NEST){
++current_if_stack;
condition_stack [current_if_stack] = cond;
if (cond == 1)
condition_stack [current_if_stack] |= HAS_BEEN_TRUE;
return ((char*)0);
}
else
return ("If stack over flow\n");
}
char *
pop_condition ()
{
if (current_if_stack > 0) {
--current_if_stack;
return ((char*)0);
}
else
return ("No more if stack\n");
}
invoke_shell ()
{
char *shell = "/bin/sh";
if (look_var ("shell"))
shell = look_var ("shell");
invoke_command (shell);
}
invoke_command (cmd)
char *cmd;
{
int catchsig();
int (*func)();
clear_edit_line ();
if (look_var ("verbose"))
printf ("Invoke %s\n", cmd);
fflush (stdout);
recover_tty();
recover_signal ();
system (cmd);
fix_signal ();
fix_tty();
if (look_var ("verbose"))
printf ("Return to fep\n");
recover_edit_line ();
}
FILE *redirect_fp = NULL;
int redirect_line = 0;
fep_read_from_file (comline)
char *comline;
{
FILE *fp;
static char *argv[MAXARGS];
char file [MAXPATHLEN];
int argc;
argc = mkargv (comline, argv, MAXARGS);
if (argc != 2) {
printf ("Invalid number of arguments.\n");
return;
}
if (redirect_fp) {
fclose (redirect_fp);
redirect_fp = NULL;
}
redirect_fp = fopen (argv[1], "r");
if (redirect_fp = fopen (argv[1], "r")) {
if (look_var ("verbose"))
printf ("Input redirected from %s\n", argv[1]);
errorBell ();
redirect_line = 0;
}
else
perror (argv[0]);
return;
}
/*
* Process ID of the process redirecting from.
*/
int redirect_pid = 0;
fep_read_from_command (comline)
char *comline;
{
static char *argv[MAXARGS];
char buf[256];
int argc;
int i;
FILE *popen();
argc = mkargv (comline, argv, MAXARGS);
if (argc == 1) {
printf ("Invalid number of arguments.\n");
return;
}
if (redirect_fp) {
fclose (redirect_fp);
redirect_fp = NULL;
}
strcpy (buf, "");
for (i=1; i<argc; i++) {
strcat (buf, argv[i]);
strcat (buf, " ");
}
if (redirect_fp = popen (buf, "r")) {
if (look_var ("verbose"))
printf ("Input redirected from %s\n", argv[1]);
errorBell ();
redirect_line = 0;
}
else
perror (argv[0]);
return;
}
char script_file[128];
fep_start_script (comline)
char *comline;
{
char *name;
/*
* Caution!! If editstatus is EDITING, comline argument is never passed.
*/
if (editstatus == NOTEDITING) {
int argc;
static char *argv[MAXARGS];
char buf[256];
argc = mkargv (comline, argv, MAXARGS);
switch (argc) {
case 1:
name = look_var ("script-file");
break;
case 2:
name = argv[1];
break;
default:
printf ("%s: Illegal number of arguments.\n", argv[0]);
}
}
else
name = look_var ("script-file");
/*
* If script is running alread, reatun.
*/
if (script_fp) {
clear_edit_line ();
errorBell ();
printf ("script is already running.\n");
recover_edit_line ();
return;
}
if (!name) {
clear_edit_line ();
printf ("script-file is not set.\n");
recover_edit_line ();
return;
}
if ((script_fp = fopen (name, "a")) == NULL) {
clear_edit_line ();
perror (name);
recover_edit_line ();
return;
}
strncpy (script_file, name, sizeof (script_file));
clear_edit_line ();
printf ("script start (file=\"%s\").\n", script_file);
recover_edit_line ();
}
fep_end_script ()
{
if (!script_fp) {
clear_edit_line ();
errorBell ();
printf ("script is not started.\n");
return;
}
fclose (script_fp);
script_fp = NULL;
clear_edit_line ();
printf ("script end (file=\"%s\").\n", script_file);
recover_edit_line ();
return;
}
fep_repaint(comline)
char *comline;
{
int i;
int line;
CHAR ch;
char *crt_hight;
char *save_prompt;
BUFFER *bp = output_buffer;
/*
* Caution!! If editstatus is EDITING, comline argument is never passed.
*/
if (editstatus == NOTEDITING && comline) {
int argc;
static char *argv[MAXARGS];
char buf[256];
argc = mkargv (comline, argv, MAXARGS);
switch (argc) {
case 1:
crt_hight = look_var ("crt");
break;
case 2:
crt_hight = argv[1];
break;
default:
printf ("%s: Illegal number of arguments.\n", argv[0]);
}
}
else
crt_hight = look_var ("crt");
line = atoi (crt_hight);
clear_edit_line ();
ch = buf_char (bp, -1);
for (i = -1; ; --i) {
if ((ch = buf_char(bp, i)) == '\n')
--line;
if (ch == (CHAR)-1 || line <= 0)
break;
}
i += 1;
if (look_var("clear-repaint") && term_clear)
tputs (term_clear, 1, putch);
for (; i < 0; i++) {
char cd;
cd = buf_char (bp, i);
putchar (buf_char(bp, i));
}
/*
* In this case, prompt should not be printed.
* Saving prompt is ugly solution, but...
*/
save_prompt = prompt;
prompt = 0;
recover_edit_line ();
prompt = save_prompt;
fflush (stdout);
}
#ifdef STAT
#include "fep_stat.h"
long stat_obyte = 0;
long stat_ibyte = 0;
long stat_rerror = 0;
long stat_werror = 0;
long stat_nselect = 0;
struct statistics stat_info[] = {
"Command Output", &stat_obyte,
"Command Input ", &stat_ibyte,
"Read error ", &stat_rerror,
"Write error ", &stat_werror,
"Select count ", &stat_nselect,
NULL, NULL
};
fep_showstat ()
{
struct statistics *sp = stat_info;
BUFFER *bp = output_buffer;
printf ("I/O and system calls:\n");
for (sp = stat_info; sp->info_name; sp++) {
printf ("\t%s: %d\n", sp->info_name, *(sp->info_valp));
}
printf ("\nI/O Buffer:\n");
printf ("\tMax : %d\n", bp->b_max);
printf ("\tHiWtr: %d\n", bp->hiwater);
printf ("\tCount: %d\n", bp->count);
printf ("\tNext : %d\n", bp->next);
printf ("\tStart: %d\n", bp->start);
}
#endif
\End\Of\File\
else
echo "will not over write ./fep_com.c"
fi
echo "Finished archive 2 of 5"
exit
--
Please send comp.sources.unix-related mail to rsalz@uunet.uu.net.