freebsd-dev/usr.bin/ee/ee.c
Joerg Wunsch 33bb39cd50 Make it more explicit in the main help window that the magic to leave
`ee' is ``ESC-Enter''.  This supposedly fixes the biggest complaint
about it. ;)

(I hope ``ESC-Enter'' ain't too anglicistic in the French text...)
1996-05-27 21:00:06 +00:00

4796 lines
108 KiB
C

/*
| ee (easy editor)
|
| An easy to use, simple screen oriented editor.
|
| written by Hugh Mahon
|
| THIS MATERIAL IS PROVIDED "AS IS". THERE ARE
| NO WARRANTIES OF ANY KIND WITH REGARD TO THIS
| MATERIAL, INCLUDING, BUT NOT LIMITED TO, THE
| IMPLIED WARRANTIES OF MERCHANTABILITY AND
| FITNESS FOR A PARTICULAR PURPOSE. Neither
| Hewlett-Packard nor Hugh Mahon shall be liable
| for errors contained herein, nor for
| incidental or consequential damages in
| connection with the furnishing, performance or
| use of this material. Neither Hewlett-Packard
| nor Hugh Mahon assumes any responsibility for
| the use or reliability of this software or
| documentation. This software and
| documentation is totally UNSUPPORTED. There
| is no support contract available. Hewlett-
| Packard has done NO Quality Assurance on ANY
| of the program or documentation. You may find
| the quality of the materials inferior to
| supported materials.
|
| This software is not a product of Hewlett-Packard, Co., or any
| other company. No support is implied or offered with this software.
| You've got the source, and you're on your own.
|
| This software may be distributed under the terms of Larry Wall's
| Artistic license, a copy of which is included in this distribution.
|
| This notice must be included with this software and any derivatives.
|
| This editor was purposely developed to be simple, both in
| interface and implementation. This editor was developed to
| address a specific audience: the user who is new to computers
| (especially UNIX).
|
| ee is not aimed at technical users; for that reason more
| complex features were intentionally left out. In addition,
| ee is intended to be compiled by people with little computer
| experience, which means that it needs to be small, relatively
| simple in implementation, and portable.
|
| This software and documentation contains
| proprietary information which is protected by
| copyright. All rights are reserved.
|
| $Header: /home/ncvs/src/usr.bin/ee/ee.c,v 1.5 1995/11/08 09:54:19 ache Exp $
|
*/
char *ee_copyright_message =
"Copyright (c) 1986, 1990, 1991, 1992, 1993, 1994, 1995 Hugh Mahon ";
char *ee_long_notice[] = {
"This software and documentation contains",
"proprietary information which is protected by",
"copyright. All rights are reserved."
};
char *version = "@(#) ee, version 1.2.4 $Revision: 1.5 $";
#ifdef NCURSE
#include "new_curse.h"
#else
#ifdef HAS_NCURSES
#include <ncurses.h>
#else
#include <curses.h>
#endif
#endif
#include <signal.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <errno.h>
#include <string.h>
#include <pwd.h>
#ifdef HAS_SYS_WAIT
#include <sys/wait.h>
#endif
#ifdef HAS_STDLIB
#include <stdlib.h>
#endif
#ifdef HAS_STDARG
#include <stdarg.h>
#endif
#ifdef HAS_UNISTD
#include <unistd.h>
#endif
#ifdef HAS_CTYPE
#include <ctype.h>
#endif
#ifndef NO_CATGETS
#include <locale.h>
#include <nl_types.h>
nl_catd catalog;
#else
#define catgetlocal(a, b) (b)
#endif /* NO_CATGETS */
#ifndef SIGCHLD
#define SIGCHLD SIGCLD
#endif
#define TAB 9
#define max(a, b) (a > b ? a : b)
#define min(a, b) (a < b ? a : b)
/*
| defines for type of data to show in info window
*/
#define CONTROL_KEYS 1
#define COMMANDS 2
struct text {
char *line; /* line of characters */
int line_number; /* line number */
int line_length; /* actual number of characters in the line */
int max_length; /* maximum number of characters the line handles */
struct text *next_line; /* next line of text */
struct text *prev_line; /* previous line of text */
};
struct text *first_line; /* first line of current buffer */
struct text *dlt_line; /* structure for info on deleted line */
struct text *curr_line; /* current line cursor is on */
struct text *tmp_line; /* temporary line pointer */
struct text *srch_line; /* temporary pointer for search routine */
struct files { /* structure to store names of files to be edited*/
char *name; /* name of file */
struct files *next_name;
};
struct files *top_of_stack = NULL;
int d_wrd_len; /* length of deleted word */
int position; /* offset in bytes from begin of line */
int scr_pos; /* horizontal position */
int scr_vert; /* vertical position on screen */
int scr_horz; /* horizontal position on screen */
int tmp_vert, tmp_horz;
int input_file; /* indicate to read input file */
int recv_file; /* indicate reading a file */
int edit; /* continue executing while true */
int gold; /* 'gold' function key pressed */
int fildes; /* file descriptor */
int case_sen; /* case sensitive search flag */
int last_line; /* last line for text display */
int last_col; /* last column for text display */
int horiz_offset = 0; /* offset from left edge of text */
int clear_com_win; /* flag to indicate com_win needs clearing */
int text_changes = FALSE; /* indicate changes have been made to text */
int get_fd; /* file descriptor for reading a file */
int info_window = TRUE; /* flag to indicate if help window visible */
int info_type = CONTROL_KEYS; /* flag to indicate type of info to display */
int expand_tabs = TRUE; /* flag for expanding tabs */
int right_margin = 0; /* the right margin */
int observ_margins = TRUE; /* flag for whether margins are observed */
int shell_fork;
int temp_stdin; /* temporary storage for stdin */
int temp_stdout; /* temp storage for stdout descriptor */
int temp_stderr; /* temp storage for stderr descriptor */
int pipe_out[2]; /* pipe file desc for output */
int pipe_in[2]; /* pipe file descriptors for input */
int out_pipe; /* flag that info is piped out */
int in_pipe; /* flag that info is piped in */
int formatted = FALSE; /* flag indicating paragraph formatted */
int auto_format = FALSE; /* flag for auto_format mode */
int restricted = FALSE; /* flag to indicate restricted mode */
int nohighlight = FALSE; /* turns off highlighting */
int eightbit = TRUE; /* eight bit character flag */
int local_LINES = 0; /* copy of LINES, to detect when win resizes */
int local_COLS = 0; /* copy of COLS, to detect when win resizes */
int curses_initialized = FALSE; /* flag indicating if curses has been started*/
int emacs_keys_mode = FALSE; /* mode for if emacs key binings are used */
char *point; /* points to current position in line */
char *srch_str; /* pointer for search string */
char *u_srch_str; /* pointer to non-case sensitive search */
char *srch_1; /* pointer to start of suspect string */
char *srch_2; /* pointer to next character of string */
char *srch_3;
char *in_file_name = NULL; /* name of input file */
char *tmp_file; /* temporary file name */
char d_char; /* deleted character */
char *d_word; /* deleted word */
char *d_line; /* deleted line */
char in_string[513]; /* buffer for reading a file */
char *print_command = "lp"; /* string to use for the print command */
char *start_at_line = NULL; /* move to this line at start of session*/
int in; /* input character */
FILE *temp_fp; /* temporary file pointer */
FILE *bit_bucket; /* file pointer to /dev/null */
char *table[] = {
"^@", "^A", "^B", "^C", "^D", "^E", "^F", "^G", "^H", "\t", "^J",
"^K", "^L", "^M", "^N", "^O", "^P", "^Q", "^R", "^S", "^T", "^U",
"^V", "^W", "^X", "^Y", "^Z", "^[", "^\\", "^]", "^^", "^_"
};
WINDOW *com_win;
WINDOW *text_win;
WINDOW *help_win;
WINDOW *info_win;
#if defined(__STDC__) || defined(__cplusplus)
#define P_(s) s
#else
#define P_(s) ()
#endif
/*
| The following structure allows menu items to be flexibly declared.
| The first item is the string describing the selection, the second
| is the address of the procedure to call when the item is selected,
| and the third is the argument for the procedure.
|
| For those systems with i18n, the string should be accompanied by a
| catalog number. The 'int *' should be replaced with 'void *' on
| systems with that type.
|
| The first menu item will be the title of the menu, with NULL
| parameters for the procedure and argument, followed by the menu items.
|
| If the procedure value is NULL, the menu item is displayed, but no
| procedure is called when the item is selected. The number of the
| item will be returned. If the third (argument) parameter is -1, no
| argument is given to the procedure when it is called.
*/
struct menu_entries {
char *item_string;
int (*procedure)P_((struct menu_entries *));
struct menu_entries *ptr_argument;
int (*iprocedure)P_((int));
void (*nprocedure)P_((void));
unsigned int argument;
};
int main P_((int argc, char *argv[]));
char *resiz_line P_((int factor, struct text *rline, int rpos));
void insert P_((int character));
void delete P_((int disp));
void scanline P_((char *pos));
int tabshift P_((int temp_int));
int out_char P_((WINDOW *window, int character, int column));
int len_char P_((int character, int column));
void draw_line P_((int vertical, int horiz, char *ptr, int t_pos, int length));
void insert_line P_((int disp));
struct text *txtalloc P_((void));
struct files *name_alloc P_((void));
char *next_word P_((char *string));
void prev_word P_((void));
void control P_((void));
void emacs_control P_((void));
void bottom P_((void));
void top P_((void));
void nextline P_((void));
void prevline P_((void));
void left P_((int disp));
void right P_((int disp));
void find_pos P_((void));
void up P_((void));
void down P_((void));
void function_key P_((void));
void print_buffer P_((void));
void command_prompt P_((void));
void command P_((char *cmd_str1));
int scan P_((char *line, int offset, int column));
char *get_string P_((char *prompt, int advance));
int compare P_((char *string1, char *string2, int sensitive));
void goto_line P_((char *cmd_str));
void midscreen P_((int line, char *pnt));
void get_options P_((int numargs, char *arguments[]));
void check_fp P_((void));
void get_file P_((char *file_name));
void get_line P_((int length, char *in_string, int *append));
void draw_screen P_((void));
void finish P_((void));
int quit P_((int noverify));
void edit_abort P_((int arg));
void delete_text P_((void));
int write_file P_((char *file_name));
int search P_((int display_message));
void search_prompt P_((void));
void del_char P_((void));
void undel_char P_((void));
void del_word P_((void));
void undel_word P_((void));
void del_line P_((void));
void undel_line P_((void));
void adv_word P_((void));
void move_rel P_((char *direction, int lines));
void eol P_((void));
void bol P_((void));
void adv_line P_((void));
void sh_command P_((char *string));
void set_up_term P_((void));
void resize_check P_((void));
int menu_op P_((struct menu_entries *));
void help P_((void));
void paint_info_win P_((void));
void no_info_window P_((void));
void create_info_window P_((void));
int file_op P_((int arg));
void shell_op P_((void));
void leave_op P_((void));
void redraw P_((void));
int Blank_Line P_((struct text *test_line));
void Format P_((void));
void ee_init P_((void));
void echo_string P_((char *string));
void spell_op P_((void));
void ispell_op P_((void));
int first_word_len P_((struct text *test_line));
void Auto_Format P_((void));
void modes_op P_((void));
char *is_in_string P_((char *string, char *substring));
char *resolve_name P_((char *name));
int restrict_mode P_((void));
int unique_test P_((char *string, char *list[]));
void strings_init P_((void));
#undef P_
/*
| allocate space here for the strings that will be in the menu
*/
struct menu_entries modes_menu[] = {
{"", NULL, NULL, NULL, NULL, 0},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, NULL, -1},
{NULL, NULL, NULL, NULL, NULL, -1}
};
char *mode_strings[9];
#define NUM_MODES_ITEMS 9
struct menu_entries leave_menu[] = {
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, finish, -1},
{"", NULL, NULL, quit, NULL, TRUE},
{NULL, NULL, NULL, NULL, NULL, -1}
};
#define READ_FILE 1
#define WRITE_FILE 2
#define SAVE_FILE 3
struct menu_entries file_menu[] = {
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, file_op, NULL, READ_FILE},
{"", NULL, NULL, file_op, NULL, WRITE_FILE},
{"", NULL, NULL, file_op, NULL, SAVE_FILE},
{"", NULL, NULL, NULL, print_buffer, -1},
{NULL, NULL, NULL, NULL, NULL, -1}
};
struct menu_entries search_menu[] = {
{"", NULL, NULL, NULL, NULL, 0},
{"", NULL, NULL, NULL, search_prompt, -1},
{"", NULL, NULL, search, NULL, TRUE},
{NULL, NULL, NULL, NULL, NULL, -1}
};
struct menu_entries spell_menu[] = {
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, spell_op, -1},
{"", NULL, NULL, NULL, ispell_op, -1},
{NULL, NULL, NULL, NULL, NULL, -1}
};
struct menu_entries misc_menu[] = {
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, Format, -1},
{"", NULL, NULL, NULL, shell_op, -1},
{"", menu_op, spell_menu, NULL, NULL, -1},
{NULL, NULL, NULL, NULL, NULL, -1}
};
struct menu_entries main_menu[] = {
{"", NULL, NULL, NULL, NULL, -1},
{"", NULL, NULL, NULL, leave_op, -1},
{"", NULL, NULL, NULL, help, -1},
{"", menu_op, file_menu, NULL, NULL, -1},
{"", NULL, NULL, NULL, redraw, -1},
{"", NULL, NULL, NULL, modes_op, -1},
{"", menu_op, search_menu, NULL, NULL, -1},
{"", menu_op, misc_menu, NULL, NULL, -1},
{NULL, NULL, NULL, NULL, NULL, -1}
};
char *help_text[22];
char *control_keys[5];
char *emacs_help_text[22];
char *emacs_control_keys[5];
char *command_strings[5];
char *commands[30];
char *init_strings[20];
/*
| Declarations for strings for localization
*/
char *com_win_message; /* to be shown in com_win if no info window */
char *no_file_string;
char *ascii_code_str;
char *printer_msg_str;
char *command_str;
char *file_write_prompt_str;
char *file_read_prompt_str;
char *char_str;
char *unkn_cmd_str;
char *non_unique_cmd_msg;
char *line_num_str;
char *line_len_str;
char *current_file_str;
char *usage0;
char *usage1;
char *usage2;
char *usage3;
char *usage4;
char *file_is_dir_msg;
char *new_file_msg;
char *cant_open_msg;
char *open_file_msg;
char *file_read_fin_msg;
char *reading_file_msg;
char *read_only_msg;
char *file_read_lines_msg;
char *save_file_name_prompt;
char *file_not_saved_msg;
char *changes_made_prompt;
char *yes_char;
char *file_exists_prompt;
char *create_file_fail_msg;
char *writing_file_msg;
char *file_written_msg;
char *searching_msg;
char *str_not_found_msg;
char *search_prompt_str;
char *exec_err_msg;
char *continue_msg;
char *menu_cancel_msg;
char *menu_size_err_msg;
char *press_any_key_msg;
char *shell_prompt;
char *formatting_msg;
char *shell_echo_msg;
char *spell_in_prog_msg;
char *margin_prompt;
char *restricted_msg;
char *ON;
char *OFF;
char *HELP;
char *WRITE;
char *READ;
char *LINE;
char *FILE_str;
char *CHARACTER;
char *REDRAW;
char *RESEQUENCE;
char *AUTHOR;
char *VERSION;
char *CASE;
char *NOCASE;
char *EXPAND;
char *NOEXPAND;
char *Exit_string;
char *QUIT_string;
char *INFO;
char *NOINFO;
char *MARGINS;
char *NOMARGINS;
char *AUTOFORMAT;
char *NOAUTOFORMAT;
char *Echo;
char *PRINTCOMMAND;
char *RIGHTMARGIN;
char *HIGHLIGHT;
char *NOHIGHLIGHT;
char *EIGHTBIT;
char *NOEIGHTBIT;
char *EMACS_string;
char *NOEMACS_string;
#ifndef __STDC__
#ifndef HAS_STDLIB
extern char *malloc();
extern char *realloc();
extern char *getenv();
FILE *fopen(); /* declaration for open function */
#endif /* HAS_STDLIB */
#endif /* __STDC__ */
int
main(argc, argv) /* beginning of main program */
int argc;
char *argv[];
{
int counter;
for (counter = 1; counter < 24; counter++)
signal(counter, SIG_IGN);
signal(SIGCHLD, SIG_DFL);
signal(SIGSEGV, SIG_DFL);
signal(SIGINT, edit_abort);
d_char = 0;
d_word = malloc(150);
*d_word = (char) NULL;
d_line = NULL;
dlt_line = txtalloc();
dlt_line->line = d_line;
curr_line = first_line = txtalloc();
curr_line->line = point = malloc(10);
curr_line->line_length = 1;
curr_line->max_length = 10;
curr_line->prev_line = NULL;
curr_line->next_line = NULL;
curr_line->line_number = 1;
srch_str = NULL;
u_srch_str = NULL;
position = 1;
scr_pos =0;
scr_vert = 0;
scr_horz = 0;
bit_bucket = fopen("/dev/null", "w");
edit = TRUE;
gold = case_sen = FALSE;
shell_fork = TRUE;
strings_init();
ee_init();
if (argc > 0 )
get_options(argc, argv);
set_up_term();
if (right_margin == 0)
right_margin = COLS - 1;
if (top_of_stack == NULL)
{
wprintw(com_win, no_file_string);
wrefresh(com_win);
}
else
check_fp();
clear_com_win = TRUE;
while(edit)
{
wrefresh(text_win);
in = wgetch(text_win);
if (in == -1)
exit(0);
resize_check();
if (clear_com_win)
{
clear_com_win = FALSE;
wmove(com_win, 0, 0);
werase(com_win);
if (!info_window)
{
wprintw(com_win, "%s", com_win_message);
}
wrefresh(com_win);
}
if (in > 255)
function_key();
else if ((in == '\10') || (in == 127))
delete(TRUE);
else if ((in > 31) || (in == 9))
insert(in);
else if ((in >= 0) && (in <= 31))
{
if (emacs_keys_mode)
emacs_control();
else
control();
}
}
return(0);
}
char *
resiz_line(factor, rline, rpos) /* resize the line to length + factor*/
int factor; /* resize factor */
struct text *rline; /* position in line */
int rpos;
{
char *rpoint;
int resiz_var;
rline->max_length += factor;
rpoint = rline->line = realloc(rline->line, rline->max_length );
for (resiz_var = 1 ; (resiz_var < rpos) ; resiz_var++)
rpoint++;
return(rpoint);
}
void
insert(character) /* insert character into line */
int character; /* new character */
{
int counter;
int value;
char *temp; /* temporary pointer */
char *temp2; /* temporary pointer */
if ((character == '\011') && (expand_tabs))
{
counter = len_char('\011', scr_horz);
for (; counter > 0; counter--)
insert(' ');
if (auto_format)
Auto_Format();
return;
}
text_changes = TRUE;
if ((curr_line->max_length - curr_line->line_length) < 5)
point = resiz_line(10, curr_line, position);
curr_line->line_length++;
temp = point;
counter = position;
while (counter < curr_line->line_length) /* find end of line */
{
counter++;
temp++;
}
temp++; /* increase length of line by one */
while (point < temp)
{
temp2=temp - 1;
*temp= *temp2; /* shift characters over by one */
temp--;
}
*point = character; /* insert new character */
wclrtoeol(text_win);
if (((character >= 0) && (character < ' ')) || (character >= 127)) /* check for TAB character*/
{
scr_pos = scr_horz += out_char(text_win, character, scr_horz);
point++;
position++;
}
else
{
waddch(text_win, character);
scr_pos = ++scr_horz;
point++;
position ++;
}
if ((observ_margins) && (right_margin < scr_pos))
{
counter = position;
while (scr_pos > right_margin)
prev_word();
if (scr_pos == 0)
{
while (position < counter)
right(TRUE);
}
else
{
counter -= position;
insert_line(TRUE);
for (value = 0; value < counter; value++)
right(TRUE);
}
}
if ((scr_horz - horiz_offset) > last_col)
{
horiz_offset += 8;
midscreen(scr_vert, point);
}
if ((auto_format) && (character == ' ') && (!formatted))
Auto_Format();
else if ((character != ' ') && (character != '\t'))
formatted = FALSE;
draw_line(scr_vert, scr_horz, point, position, curr_line->line_length);
}
void
delete(disp) /* delete character */
int disp;
{
char *tp;
char *temp2;
struct text *temp_buff;
int temp_vert;
int temp_pos;
if (point != curr_line->line) /* if not at beginning of line */
{
text_changes = TRUE;
temp2 = tp = point;
tp--;
point--;
if ((*tp >= '\000') && (*tp < ' ')) /* check for TAB */
scanline(tp);
else
--scr_horz;
scr_pos = scr_horz;
if (in == 8)
d_char = *point; /* save deleted character */
temp_pos = --position;
curr_line->line_length--;
while (temp_pos <= curr_line->line_length)
{
temp_pos++;
*tp= *temp2;
tp++;
temp2++;
}
if (scr_horz < horiz_offset)
{
horiz_offset -= 8;
midscreen(scr_vert, point);
}
}
else if (curr_line->prev_line != NULL)
{
text_changes = TRUE;
left(disp); /* go to previous line */
temp_buff = curr_line->next_line;
point = resiz_line(temp_buff->line_length, curr_line, position);
if (temp_buff->next_line != NULL)
temp_buff->next_line->prev_line = curr_line;
curr_line->next_line = temp_buff->next_line;
temp2 = temp_buff->line;
if (in == 8)
d_char = '\n';
tp = point;
temp_pos = 1;
while (temp_pos < temp_buff->line_length)
{
curr_line->line_length++;
temp_pos++;
*tp = *temp2;
tp++;
temp2++;
}
*tp = (char) NULL;
free(temp_buff->line);
free(temp_buff);
temp_buff = curr_line;
temp_vert = scr_vert;
scr_pos = scr_horz;
if (scr_vert < last_line)
{
wmove(text_win, scr_vert + 1, 0);
wdeleteln(text_win);
}
while ((temp_buff != NULL) && (temp_vert < last_line))
{
temp_buff = temp_buff->next_line;
temp_vert++;
}
if ((temp_vert == last_line) && (temp_buff != NULL))
{
tp = temp_buff->line;
wmove(text_win, last_line,0);
wclrtobot(text_win);
draw_line(last_line, 0, tp, 1, temp_buff->line_length);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
}
draw_line(scr_vert, scr_horz, point, position, curr_line->line_length);
formatted = FALSE;
}
void
scanline(pos) /* find the proper horizontal position for the pointer */
char *pos;
{
int temp;
char *ptr;
ptr = curr_line->line;
temp = 0;
while (ptr < pos)
{
if ((*ptr >= 0) && (*ptr <= 8))
temp += 2;
else if (*ptr == 9)
temp += tabshift(temp);
else if ((*ptr >= 10) && (*ptr <= 31))
temp += 2;
else if ((*ptr >= 32) && (*ptr < 127))
temp++;
else if (*ptr == 127)
temp += 2;
else if (!eightbit)
temp += 5;
else
temp++;
ptr++;
}
scr_horz = temp;
if ((scr_horz - horiz_offset) > last_col)
{
horiz_offset = (scr_horz - (scr_horz % 8)) - (COLS - 8);
midscreen(scr_vert, point);
}
else if (scr_horz < horiz_offset)
{
horiz_offset = max(0, (scr_horz - (scr_horz % 8)));
midscreen(scr_vert, point);
}
}
int
tabshift(temp_int) /* give the number of spaces to shift */
int temp_int;
{
int leftover;
leftover = ((temp_int + 1) % 8);
if (leftover == 0)
return (1);
else
return (9 - leftover);
}
int
out_char(window, character, column) /* output non-printing character */
WINDOW *window;
char character;
int column;
{
int i1, i2;
char *string;
char string2[8];
if (character == TAB)
{
i1 = tabshift(column);
for (i2 = 0;
(i2 < i1) && (((column+i2+1)-horiz_offset) < last_col); i2++)
{
waddch(window, ' ');
}
return(i1);
}
else if ((character >= '\0') && (character < ' '))
{
string = table[(int) character];
}
else if ((character < 0) || (character >= 127))
{
if (character == 127)
string = "^?";
else if (!eightbit)
{
sprintf(string2, "<%d>", (character < 0) ? (character + 256) : character);
string = string2;
}
else
{
waddch(window, (unsigned char)character );
return(1);
}
}
else
{
waddch(window, (unsigned char)character);
return(1);
}
for (i2 = 0; (string[i2] != (char) NULL) && (((column+i2+1)-horiz_offset) < last_col); i2++)
waddch(window, string[i2]);
return(strlen(string));
}
int
len_char(character, column) /* return the length of the character */
char character;
int column; /* the column must be known to provide spacing for tabs */
{
int length;
if (character == '\t')
length = tabshift(column);
else if ((character >= 0) && (character < 32))
length = 2;
else if ((character >= 32) && (character <= 126))
length = 1;
else if (character == 127)
length = 2;
else if (((character > 126) || (character < 0)) && (!eightbit))
length = 5;
else
length = 1;
return(length);
}
void
draw_line(vertical, horiz, ptr, t_pos, length) /* redraw line from current position */
int vertical; /* current vertical position on screen */
int horiz; /* current horizontal position on screen */
char *ptr; /* pointer to line */
int t_pos; /* current position (offset in bytes) from bol */
int length; /* length (in bytes) of line */
{
int d; /* partial length of special or tab char to display */
char *temp; /* temporary pointer to position in line */
int abs_column; /* offset in screen units from begin of line */
int column; /* horizontal position on screen */
int row; /* vertical position on screen */
int posit; /* temporary position indicator within line */
abs_column = horiz;
column = horiz - horiz_offset;
row = vertical;
temp = ptr;
d = 0;
posit = t_pos;
if (column < 0)
{
wmove(text_win, row, 0);
wclrtoeol(text_win);
}
while (column < 0)
{
d = len_char(*temp, abs_column);
abs_column += d;
column += d;
posit++;
temp++;
}
wmove(text_win, row, column);
wclrtoeol(text_win);
while ((posit < length) && (column <= last_col))
{
if ((*temp < 32) || (*temp == 127))
{
column += len_char(*temp, abs_column);
abs_column += out_char(text_win, *temp, abs_column);
}
else
{
abs_column++;
column++;
waddch(text_win, *temp);
}
posit++;
temp++;
}
if (column < last_col)
wclrtoeol(text_win);
wmove(text_win, vertical, (horiz - horiz_offset));
}
void
insert_line(disp) /* insert new line */
int disp;
{
int temp_pos;
int temp_pos2;
char *temp;
char *extra;
struct text *temp_nod;
text_changes = TRUE;
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
wclrtoeol(text_win);
temp_nod= txtalloc();
temp_nod->line = extra= malloc(10);
temp_nod->line_length = 1;
temp_nod->max_length = 10;
temp_nod->line_number = curr_line->line_number + 1;
temp_nod->next_line = curr_line->next_line;
if (temp_nod->next_line != NULL)
temp_nod->next_line->prev_line = temp_nod;
temp_nod->prev_line = curr_line;
curr_line->next_line = temp_nod;
temp_pos2 = position;
temp = point;
if (temp_pos2 < curr_line->line_length)
{
temp_pos = 1;
while (temp_pos2 < curr_line->line_length)
{
if ((temp_nod->max_length - temp_nod->line_length)< 5)
extra = resiz_line(10, temp_nod, temp_pos);
temp_nod->line_length++;
temp_pos++;
temp_pos2++;
*extra= *temp;
extra++;
temp++;
}
temp=point;
*temp = (char) NULL;
temp = resiz_line((1 - temp_nod->line_length), curr_line, position);
curr_line->line_length = 1 + temp - curr_line->line;
}
curr_line->line_length = position;
curr_line = temp_nod;
*extra = (char) NULL;
position = 1;
point= curr_line->line;
if (disp)
{
if (scr_vert < last_line)
{
scr_vert++;
wclrtoeol(text_win);
wmove(text_win, scr_vert, 0);
winsertln(text_win);
}
else
{
wmove(text_win, 0,0);
wdeleteln(text_win);
wmove(text_win, last_line,0);
wclrtobot(text_win);
}
scr_pos = scr_horz = 0;
if (horiz_offset)
{
horiz_offset = 0;
midscreen(scr_vert, point);
}
draw_line(scr_vert, scr_horz, point, position,
curr_line->line_length);
}
}
struct text *txtalloc() /* allocate space for line structure */
{
return((struct text *) malloc(sizeof( struct text)));
}
struct files *name_alloc() /* allocate space for file name list node */
{
return((struct files *) malloc(sizeof( struct files)));
}
char *next_word(string) /* move to next word in string */
char *string;
{
while ((*string != (char) NULL) && ((*string != 32) && (*string != 9)))
string++;
while ((*string != (char) NULL) && ((*string == 32) || (*string == 9)))
string++;
return(string);
}
void
prev_word() /* move to start of previous word in text */
{
if (position != 1)
{
if ((position != 1) && ((point[-1] == ' ') || (point[-1] == '\t')))
{ /* if at the start of a word */
while ((position != 1) && ((*point != ' ') && (*point != '\t')))
left(TRUE);
}
while ((position != 1) && ((*point == ' ') || (*point == '\t')))
left(TRUE);
while ((position != 1) && ((*point != ' ') && (*point != '\t')))
left(TRUE);
if ((position != 1) && ((*point == ' ') || (*point == '\t')))
right(TRUE);
}
else
left(TRUE);
}
void
control() /* use control for commands */
{
char *string;
if (in == 1) /* control a */
{
string = get_string(ascii_code_str, TRUE);
if (*string != (char) NULL)
{
in = atoi(string);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
insert(in);
}
free(string);
}
else if (in == 2) /* control b */
bottom();
else if (in == 3) /* control c */
{
command_prompt();
}
else if (in == 4) /* control d */
down();
else if (in == 5) /* control e */
search_prompt();
else if (in == 6) /* control f */
undel_char();
else if (in == 7) /* control g */
bol();
else if (in == 8) /* control h */
delete(TRUE);
else if (in == 9) /* control i */
;
else if (in == 10) /* control j */
insert_line(TRUE);
else if (in == 11) /* control k */
del_char();
else if (in == 12) /* control l */
left(TRUE);
else if (in == 13) /* control m */
insert_line(TRUE);
else if (in == 14) /* control n */
move_rel("d", max(5, (last_line - 5)));
else if (in == 15) /* control o */
eol();
else if (in == 16) /* control p */
move_rel("u", max(5, (last_line - 5)));
else if (in == 17) /* control q */
;
else if (in == 18) /* control r */
right(TRUE);
else if (in == 19) /* control s */
;
else if (in == 20) /* control t */
top();
else if (in == 21) /* control u */
up();
else if (in == 22) /* control v */
undel_word();
else if (in == 23) /* control w */
del_word();
else if (in == 24) /* control x */
search(TRUE);
else if (in == 25) /* control y */
del_line();
else if (in == 26) /* control z */
undel_line();
else if (in == 27) /* control [ (escape) */
{
menu_op(main_menu);
}
}
/*
| Emacs control-key bindings
*/
void
emacs_control()
{
char *string;
if (in == 1) /* control a */
bol();
else if (in == 2) /* control b */
left(TRUE);
else if (in == 3) /* control c */
{
command_prompt();
}
else if (in == 4) /* control d */
del_char();
else if (in == 5) /* control e */
eol();
else if (in == 6) /* control f */
right(TRUE);
else if (in == 7) /* control g */
move_rel("u", max(5, (last_line - 5)));
else if (in == 8) /* control h */
delete(TRUE);
else if (in == 9) /* control i */
;
else if (in == 10) /* control j */
undel_char();
else if (in == 11) /* control k */
del_line();
else if (in == 12) /* control l */
undel_line();
else if (in == 13) /* control m */
insert_line(TRUE);
else if (in == 14) /* control n */
down();
else if (in == 15) /* control o */
{
string = get_string(ascii_code_str, TRUE);
if (*string != (char) NULL)
{
in = atoi(string);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
insert(in);
}
free(string);
}
else if (in == 16) /* control p */
up();
else if (in == 17) /* control q */
;
else if (in == 18) /* control r */
undel_word();
else if (in == 19) /* control s */
;
else if (in == 20) /* control t */
top();
else if (in == 21) /* control u */
bottom();
else if (in == 22) /* control v */
move_rel("d", max(5, (last_line - 5)));
else if (in == 23) /* control w */
del_word();
else if (in == 24) /* control x */
search(TRUE);
else if (in == 25) /* control y */
search_prompt();
else if (in == 26) /* control z */
adv_word();
else if (in == 27) /* control [ (escape) */
{
menu_op(main_menu);
}
}
void
bottom() /* go to bottom of file */
{
while (curr_line->next_line != NULL)
curr_line = curr_line->next_line;
point = curr_line->line;
if (horiz_offset)
horiz_offset = 0;
position = 1;
midscreen(last_line, point);
scr_pos = scr_horz;
}
void
top() /* go to top of file */
{
while (curr_line->prev_line != NULL)
curr_line = curr_line->prev_line;
point = curr_line->line;
if (horiz_offset)
horiz_offset = 0;
position = 1;
midscreen(0, point);
scr_pos = scr_horz;
}
void
nextline() /* move pointers to start of next line */
{
curr_line = curr_line->next_line;
point = curr_line->line;
position = 1;
if (scr_vert == last_line)
{
wmove(text_win, 0,0);
wdeleteln(text_win);
wmove(text_win, last_line,0);
wclrtobot(text_win);
draw_line(last_line,0,point,1,curr_line->line_length);
}
else
scr_vert++;
}
void
prevline() /* move pointers to start of previous line*/
{
curr_line = curr_line->prev_line;
point = curr_line->line;
position = 1;
if (scr_vert == 0)
{
winsertln(text_win);
draw_line(0,0,point,1,curr_line->line_length);
}
else
scr_vert--;
while (position < curr_line->line_length)
{
position++;
point++;
}
}
void
left(disp) /* move left one character */
int disp;
{
if (point != curr_line->line) /* if not at begin of line */
{
point--;
position--;
scanline(point);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
scr_pos = scr_horz;
}
else if (curr_line->prev_line != NULL)
{
if (!disp)
{
curr_line = curr_line->prev_line;
point = curr_line->line + curr_line->line_length;
position = curr_line->line_length;
return;
}
position = 1;
prevline();
scanline(point);
scr_pos = scr_horz;
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
}
void
right(disp) /* move right one character */
int disp;
{
if (position < curr_line->line_length)
{
point++;
position++;
scanline(point);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
scr_pos = scr_horz;
}
else if (curr_line->next_line != NULL)
{
if (!disp)
{
curr_line = curr_line->next_line;
point = curr_line->line;
position = 1;
return;
}
nextline();
scr_pos = scr_horz = 0;
if (horiz_offset)
{
horiz_offset = 0;
midscreen(scr_vert, point);
}
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
position = 1;
}
}
void
find_pos() /* move to the same column as on other line */
{
scr_horz = 0;
position = 1;
while ((scr_horz < scr_pos) && (position < curr_line->line_length))
{
if (*point == 9)
scr_horz += tabshift(scr_horz);
else if ((*point >= '\0') && (*point < ' '))
scr_horz += 2;
else
scr_horz++;
position++;
point++;
}
if ((scr_horz - horiz_offset) > last_col)
{
horiz_offset = (scr_horz - (scr_horz % 8)) - (COLS - 8);
midscreen(scr_vert, point);
}
else if (scr_horz < horiz_offset)
{
horiz_offset = max(0, (scr_horz - (scr_horz % 8)));
midscreen(scr_vert, point);
}
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
void
up() /* move up one line */
{
if (curr_line->prev_line != NULL)
{
prevline();
point = curr_line->line;
find_pos();
}
}
void
down() /* move down one line */
{
if (curr_line->next_line != NULL)
{
nextline();
find_pos();
}
}
void
function_key() /* process function key */
{
if (in == KEY_LEFT)
left(TRUE);
else if (in == KEY_RIGHT)
right(TRUE);
else if ( in == KEY_HOME)
top();
else if ( in == KEY_UP)
up();
else if (in == KEY_DOWN)
down();
else if (in == KEY_NPAGE)
move_rel("d", max( 5, (last_line - 5)));
else if (in == KEY_PPAGE)
move_rel("u", max(5, (last_line - 5)));
else if (in == KEY_DL)
del_line();
else if (in == KEY_DC)
del_char();
else if (in == KEY_BACKSPACE)
delete(TRUE);
else if (in == KEY_IL)
{ /* insert a line before current line */
insert_line(TRUE);
left(TRUE);
}
else if (in == KEY_F(1))
gold = !gold;
else if (in == KEY_F(2))
{
if (gold)
{
gold = FALSE;
undel_line();
}
else
undel_char();
}
else if (in == KEY_F(3))
{
if (gold)
{
gold = FALSE;
undel_word();
}
else
del_word();
}
else if (in == KEY_F(4))
{
if (gold)
{
gold = FALSE;
paint_info_win();
midscreen(scr_vert, point);
}
else
adv_word();
}
else if (in == KEY_F(5))
{
if (gold)
{
gold = FALSE;
search_prompt();
}
else
search(TRUE);
}
else if (in == KEY_F(6))
{
if (gold)
{
gold = FALSE;
bottom();
}
else
top();
}
else if (in == KEY_F(7))
{
if (gold)
{
gold = FALSE;
eol();
}
else
bol();
}
else if (in == KEY_F(8))
{
if (gold)
{
gold = FALSE;
command_prompt();
}
else
adv_line();
}
}
void
print_buffer()
{
char buffer[256];
sprintf(buffer, ">!%s", print_command);
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, printer_msg_str, print_command);
wrefresh(com_win);
command(buffer);
}
void
command_prompt()
{
char *cmd_str;
int result;
info_type = COMMANDS;
paint_info_win();
cmd_str = get_string(command_str, TRUE);
if ((result = unique_test(cmd_str, commands)) != 1)
{
werase(com_win);
wmove(com_win, 0, 0);
if (result == 0)
wprintw(com_win, unkn_cmd_str, cmd_str);
else
wprintw(com_win, non_unique_cmd_msg);
wrefresh(com_win);
info_type = CONTROL_KEYS;
paint_info_win();
if (cmd_str != NULL)
free(cmd_str);
return;
}
command(cmd_str);
wrefresh(com_win);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
info_type = CONTROL_KEYS;
paint_info_win();
if (cmd_str != NULL)
free(cmd_str);
}
void
command(cmd_str1) /* process commands from keyboard */
char *cmd_str1;
{
char *cmd_str2 = NULL;
char *cmd_str = cmd_str1;
clear_com_win = TRUE;
if (compare(cmd_str, HELP, FALSE))
help();
else if (compare(cmd_str, WRITE, FALSE))
{
if (restrict_mode())
{
return;
}
cmd_str = next_word(cmd_str);
if (*cmd_str == (char) NULL)
{
cmd_str = cmd_str2 = get_string(file_write_prompt_str, TRUE);
}
tmp_file = resolve_name(cmd_str);
write_file(tmp_file);
if (tmp_file != cmd_str)
free(tmp_file);
}
else if (compare(cmd_str, READ, FALSE))
{
if (restrict_mode())
{
return;
}
cmd_str = next_word(cmd_str);
if (*cmd_str == (char) NULL)
{
cmd_str = cmd_str2 = get_string(file_read_prompt_str, TRUE);
}
tmp_file = cmd_str;
recv_file = TRUE;
tmp_file = resolve_name(cmd_str);
check_fp();
if (tmp_file != cmd_str)
free(tmp_file);
}
else if (compare(cmd_str, LINE, FALSE))
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, line_num_str, curr_line->line_number);
wprintw(com_win, line_len_str, curr_line->line_length);
}
else if (compare(cmd_str, FILE_str, FALSE))
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
if (in_file_name == NULL)
wprintw(com_win, no_file_string);
else
wprintw(com_win, current_file_str, in_file_name);
}
else if ((*cmd_str >= '0') && (*cmd_str <= '9'))
goto_line(cmd_str);
else if (compare(cmd_str, CHARACTER, FALSE))
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
if (*point >= '\0')
wprintw(com_win, char_str, *point);
else
wprintw(com_win, char_str, (*point + 256));
}
else if (compare(cmd_str, REDRAW, FALSE))
redraw();
else if (compare(cmd_str, RESEQUENCE, FALSE))
{
tmp_line = first_line->next_line;
while (tmp_line != NULL)
{
tmp_line->line_number = tmp_line->prev_line->line_number + 1;
tmp_line = tmp_line->next_line;
}
}
else if (compare(cmd_str, AUTHOR, FALSE))
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, "written by Hugh Mahon");
}
else if (compare(cmd_str, VERSION, FALSE))
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, "%s", version);
}
else if (compare(cmd_str, CASE, FALSE))
case_sen = TRUE;
else if (compare(cmd_str, NOCASE, FALSE))
case_sen = FALSE;
else if (compare(cmd_str, EXPAND, FALSE))
expand_tabs = TRUE;
else if (compare(cmd_str, NOEXPAND, FALSE))
expand_tabs = FALSE;
else if (compare(cmd_str, Exit_string, FALSE))
finish();
else if (compare(cmd_str, QUIT_string, FALSE))
quit(0);
else if (*cmd_str == '!')
{
cmd_str++;
if ((*cmd_str == ' ') || (*cmd_str == 9))
cmd_str = next_word(cmd_str);
sh_command(cmd_str);
}
else if ((*cmd_str == '<') && (!in_pipe))
{
in_pipe = TRUE;
shell_fork = FALSE;
cmd_str++;
if ((*cmd_str == ' ') || (*cmd_str == '\t'))
cmd_str = next_word(cmd_str);
command(cmd_str);
in_pipe = FALSE;
shell_fork = TRUE;
}
else if ((*cmd_str == '>') && (!out_pipe))
{
out_pipe = TRUE;
cmd_str++;
if ((*cmd_str == ' ') || (*cmd_str == '\t'))
cmd_str = next_word(cmd_str);
command(cmd_str);
out_pipe = FALSE;
}
else
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, unkn_cmd_str, cmd_str);
}
if (cmd_str2 != NULL)
free(cmd_str2);
}
int
scan(line, offset, column) /* determine horizontal position for get_string */
char *line;
int offset;
int column;
{
char *stemp;
int i;
int j;
stemp = line;
i = 0;
j = column;
while (i < offset)
{
i++;
j += len_char(*stemp, j);
stemp++;
}
return(j);
}
char *
get_string(prompt, advance) /* read string from input on command line */
char *prompt; /* string containing user prompt message */
int advance; /* if true, skip leading spaces and tabs */
{
char *string;
char *tmp_string;
char *nam_str;
char *g_point;
int tmp_int;
int g_horz, g_position, g_pos;
int esc_flag;
g_point = tmp_string = malloc(512);
wmove(com_win,0,0);
wclrtoeol(com_win);
waddstr(com_win, prompt);
wrefresh(com_win);
nam_str = tmp_string;
clear_com_win = TRUE;
g_horz = g_position = scan(prompt, strlen(prompt), 0);
g_pos = 0;
do
{
esc_flag = FALSE;
in = wgetch(com_win);
if (in == -1)
exit(0);
if (((in == 8) || (in == 127) || (in == KEY_BACKSPACE)) && (g_pos > 0))
{
tmp_int = g_horz;
g_pos--;
g_horz = scan(g_point, g_pos, g_position);
tmp_int = tmp_int - g_horz;
for (; 0 < tmp_int; tmp_int--)
{
if ((g_horz+tmp_int) < (last_col - 1))
{
waddch(com_win, '\010');
waddch(com_win, ' ');
waddch(com_win, '\010');
}
}
nam_str--;
}
else if ((in != 8) && (in != 127) && (in != '\n') && (in != '\r') && (in < 256))
{
if (in == '\026') /* control-v, accept next character verbatim */
{ /* allows entry of ^m, ^j, and ^h */
esc_flag = TRUE;
in = wgetch(com_win);
if (in == -1)
exit(0);
}
*nam_str = in;
g_pos++;
if (((in < ' ') || (in > 126)) && (g_horz < (last_col - 1)))
g_horz += out_char(com_win, in, g_horz);
else
{
g_horz++;
if (g_horz < (last_col - 1))
waddch(com_win, in);
}
nam_str++;
}
wrefresh(com_win);
if (esc_flag)
in = (char) NULL;
} while ((in != '\n') && (in != '\r'));
*nam_str = (char) NULL;
nam_str = tmp_string;
if (((*nam_str == ' ') || (*nam_str == 9)) && (advance))
nam_str = next_word(nam_str);
string = malloc(strlen(nam_str) + 1);
strcpy(string, nam_str);
free(tmp_string);
wrefresh(com_win);
return(string);
}
int
compare(string1, string2, sensitive) /* compare two strings */
char *string1;
char *string2;
int sensitive;
{
char *strng1;
char *strng2;
int tmp;
int equal;
strng1 = string1;
strng2 = string2;
tmp = 0;
if ((strng1 == NULL) || (strng2 == NULL) || (*strng1 == (char) NULL) || (*strng2 == (char) NULL))
return(FALSE);
equal = TRUE;
while (equal)
{
if (sensitive)
{
if (*strng1 != *strng2)
equal = FALSE;
}
else
{
if (toupper(*strng1) != toupper(*strng2))
equal = FALSE;
}
strng1++;
strng2++;
if ((*strng1 == (char) NULL) || (*strng2 == (char) NULL) || (*strng1 == ' ') || (*strng2 == ' '))
break;
tmp++;
}
return(equal);
}
void
goto_line(cmd_str)
char *cmd_str;
{
int number;
int i;
char *ptr;
char *direction;
struct text *t_line;
ptr = cmd_str;
i= 0;
while ((*ptr >='0') && (*ptr <= '9'))
{
i= i * 10 + (*ptr - '0');
ptr++;
}
number = i;
i = 0;
t_line = curr_line;
while ((t_line->line_number > number) && (t_line->prev_line != NULL))
{
i++;
t_line = t_line->prev_line;
direction = "u";
}
while ((t_line->line_number < number) && (t_line->next_line != NULL))
{
i++;
direction = "d";
t_line = t_line->next_line;
}
if ((i < 30) && (i > 0))
{
move_rel(direction, i);
}
else
{
curr_line = t_line;
point = curr_line->line;
position = 1;
midscreen((last_line / 2), point);
scr_pos = scr_horz;
}
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, line_num_str, curr_line->line_number);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
void
midscreen(line, pnt) /* put current line in middle of screen */
int line;
char *pnt;
{
struct text *mid_line;
int i;
line = min(line, last_line);
mid_line = curr_line;
for (i = 0; ((i < line) && (curr_line->prev_line != NULL)); i++)
curr_line = curr_line->prev_line;
scr_vert = scr_horz = 0;
wmove(text_win, 0, 0);
draw_screen();
scr_vert = i;
curr_line = mid_line;
scanline(pnt);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
void
get_options(numargs, arguments) /* get arguments from command line */
int numargs;
char *arguments[];
{
char *buff;
int count;
struct files *temp_names;
char *name;
char *ptr;
/*
| see if editor was invoked as 'ree' (restricted mode)
*/
if (!(name = strrchr(arguments[0], '/')))
name = arguments[0];
else
name++;
if (!strcmp(name, "ree"))
restricted = TRUE;
top_of_stack = NULL;
input_file = FALSE;
recv_file = FALSE;
count = 1;
while (count < numargs)
{
buff = arguments[count];
if (!strcmp("-i", buff))
{
info_window = FALSE;
}
else if (!strcmp("-e", buff))
{
expand_tabs = FALSE;
}
else if (!strcmp("-h", buff))
{
nohighlight = TRUE;
}
else if (!strcmp("-?", buff))
{
fprintf(stderr, usage0, arguments[0]);
fprintf(stderr, usage1);
fprintf(stderr, usage2);
fprintf(stderr, usage3);
fprintf(stderr, usage4);
exit(1);
}
else if (*buff == '+')
{
buff++;
start_at_line = buff;
}
else
{
if (top_of_stack == NULL)
{
temp_names = top_of_stack = name_alloc();
}
else
{
temp_names->next_name = name_alloc();
temp_names = temp_names->next_name;
}
ptr = temp_names->name = malloc(strlen(buff) + 1);
while (*buff != (char) NULL)
{
*ptr = *buff;
buff++;
ptr++;
}
*ptr = (char) NULL;
temp_names->next_name = NULL;
input_file = TRUE;
recv_file = TRUE;
}
count++;
}
}
void
check_fp() /* open or close files according to flags */
{
int line_num;
int temp;
struct stat buf;
clear_com_win = TRUE;
tmp_vert = scr_vert;
tmp_horz = scr_horz;
tmp_line = curr_line;
if (input_file)
{
in_file_name = tmp_file = top_of_stack->name;
top_of_stack = top_of_stack->next_name;
}
temp = stat(tmp_file, &buf);
buf.st_mode &= ~07777;
if ((temp != -1) && (buf.st_mode != 0100000) && (buf.st_mode != 0))
{
wprintw(com_win, file_is_dir_msg, tmp_file);
wrefresh(com_win);
if (input_file)
{
quit(0);
return;
}
else
return;
}
if ((get_fd = open(tmp_file, O_RDONLY)) == -1)
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
if (input_file)
wprintw(com_win, new_file_msg, tmp_file);
else
wprintw(com_win, cant_open_msg, tmp_file);
wrefresh(com_win);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
wrefresh(text_win);
recv_file = FALSE;
input_file = FALSE;
return;
}
else
get_file(tmp_file);
recv_file = FALSE;
line_num = curr_line->line_number;
scr_vert = tmp_vert;
scr_horz = tmp_horz;
if (input_file)
curr_line= first_line;
else
curr_line = tmp_line;
point = curr_line->line;
draw_screen();
wmove(com_win, 0, 0);
wclrtoeol(com_win);
if (input_file)
{
wprintw(com_win, open_file_msg, in_file_name, line_num);
input_file = FALSE;
if (start_at_line != NULL)
{
line_num = atoi(start_at_line) - 1;
move_rel("d", line_num);
line_num = 0;
start_at_line = NULL;
}
}
else
{
text_changes = TRUE;
if ((tmp_file != NULL) && (*tmp_file != (char) NULL))
wprintw(com_win, file_read_fin_msg, tmp_file);
}
wrefresh(com_win);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
wrefresh(text_win);
}
void
get_file(file_name) /* read specified file into current buffer */
char *file_name;
{
int can_read; /* file has at least one character */
int length; /* length of line read by read */
int append; /* should text be appended to current line */
struct text *temp_line;
if (recv_file) /* if reading a file */
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, reading_file_msg, file_name);
if (access(file_name, 2)) /* check permission to write */
{
if ((errno == ENOTDIR) || (errno == EACCES) || (errno == EROFS) || (errno == ETXTBSY) || (errno == EFAULT))
wprintw(com_win, read_only_msg);
}
wrefresh(com_win);
}
if (curr_line->line_length > 1) /* if current line is not blank */
{
insert_line(FALSE);
left(FALSE);
append = FALSE;
}
else
append = TRUE;
can_read = FALSE; /* test if file has any characters */
while (((length = read(get_fd, in_string, 512)) != 0) && (length != -1))
{
can_read = TRUE; /* if set file has at least 1 character */
get_line(length, in_string, &append);
}
if ((can_read) && (curr_line->line_length == 1))
{
temp_line = curr_line->prev_line;
temp_line->next_line = curr_line->next_line;
if (temp_line->next_line != NULL)
temp_line->next_line->prev_line = temp_line;
if (curr_line->line != NULL)
free(curr_line->line);
free(curr_line);
curr_line = temp_line;
}
if (input_file) /* if this is the file to be edited display number of lines */
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, file_read_lines_msg, in_file_name, curr_line->line_number);
wrefresh(com_win);
}
else if (can_read) /* not input_file and file is non-zero size */
text_changes = TRUE;
if (recv_file) /* if reading a file */
{
in = EOF;
}
}
void
get_line(length, in_string, append) /* read string and split into lines */
int length; /* length of string read by read */
char *in_string; /* string read by read */
int *append; /* TRUE if must append more text to end of current line */
{
char *str1;
char *str2;
int num; /* offset from start of string */
int char_count; /* length of new line (or added portion */
int temp_counter; /* temporary counter value */
struct text *tline; /* temporary pointer to new line */
int first_time; /* if TRUE, the first time through the loop */
str2 = in_string;
num = 0;
first_time = TRUE;
while (num < length)
{
if (!first_time)
{
if (num < length)
{
str2++;
num++;
}
}
else
first_time = FALSE;
str1 = str2;
char_count = 1;
/* find end of line */
while ((*str2 != '\n') && (num < length))
{
str2++;
num++;
char_count++;
}
if (!(*append)) /* if not append to current line, insert new one */
{
tline = txtalloc(); /* allocate data structure for next line */
tline->line_number = curr_line->line_number + 1;
tline->next_line = curr_line->next_line;
tline->prev_line = curr_line;
curr_line->next_line = tline;
if (tline->next_line != NULL)
tline->next_line->prev_line = tline;
curr_line = tline;
curr_line->line = point = (char *) malloc(char_count);
curr_line->line_length = char_count;
curr_line->max_length = char_count;
}
else
{
point = resiz_line(char_count, curr_line, curr_line->line_length);
curr_line->line_length += (char_count - 1);
}
for (temp_counter = 1; temp_counter < char_count; temp_counter++)
{
*point = *str1;
point++;
str1++;
}
*point = (char) NULL;
*append = FALSE;
if ((num == length) && (*str2 != '\n'))
*append = TRUE;
}
}
void
draw_screen() /* redraw the screen from current postion */
{
struct text *temp_line;
char *line_out;
int temp_vert;
temp_line = curr_line;
temp_vert = scr_vert;
wclrtobot(text_win);
while ((temp_line != NULL) && (temp_vert <= last_line))
{
line_out = temp_line->line;
draw_line(temp_vert, 0, line_out, 1, temp_line->line_length);
temp_vert++;
temp_line = temp_line->next_line;
}
wmove(text_win, temp_vert, 0);
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
void
finish() /* prepare to exit edit session */
{
char *file_name = in_file_name;
/*
| changes made here should be reflected in the 'save'
| portion of file_op()
*/
if ((file_name == NULL) || (*file_name == (char) NULL))
file_name = get_string(save_file_name_prompt, TRUE);
if ((file_name == NULL) || (*file_name == (char) NULL))
{
wmove(com_win, 0, 0);
wprintw(com_win, file_not_saved_msg);
wclrtoeol(com_win);
wrefresh(com_win);
clear_com_win = TRUE;
return;
}
tmp_file = resolve_name(file_name);
if (tmp_file != file_name)
{
free(file_name);
file_name = tmp_file;
}
if (write_file(file_name))
{
text_changes = FALSE;
quit(0);
}
}
int
quit(noverify) /* exit editor */
int noverify;
{
char *ans;
touchwin(text_win);
wrefresh(text_win);
if ((text_changes) && (!noverify))
{
ans = get_string(changes_made_prompt, TRUE);
if (toupper(*ans) == toupper(*yes_char))
text_changes = FALSE;
else
return(0);
free(ans);
}
if (top_of_stack == NULL)
{
if (info_window)
wrefresh(info_win);
wrefresh(com_win);
resetty();
endwin();
putchar('\n');
exit(0);
}
else
{
delete_text();
recv_file = TRUE;
input_file = TRUE;
check_fp();
}
return(0);
}
void
edit_abort(arg)
int arg;
{
wrefresh(com_win);
resetty();
endwin();
putchar('\n');
exit(1);
}
void
delete_text()
{
while (curr_line->next_line != NULL)
curr_line = curr_line->next_line;
while (curr_line != first_line)
{
free(curr_line->line);
curr_line = curr_line->prev_line;
free(curr_line->next_line);
}
curr_line->next_line = NULL;
*curr_line->line = (char) NULL;
curr_line->line_length = 1;
curr_line->line_number = 1;
point = curr_line->line;
scr_pos = scr_vert = scr_horz = 0;
position = 1;
}
int
write_file(file_name)
char *file_name;
{
char cr;
char *tmp_point;
struct text *out_line;
int lines, charac;
int temp_pos;
int write_flag = TRUE;
charac = lines = 0;
if ((in_file_name == NULL) || strcmp(in_file_name, file_name))
{
if ((temp_fp = fopen(file_name, "r")))
{
tmp_point = get_string(file_exists_prompt, TRUE);
if (toupper(*tmp_point) == toupper(*yes_char))
write_flag = TRUE;
else
write_flag = FALSE;
fclose(temp_fp);
free(tmp_point);
}
}
clear_com_win = TRUE;
if (write_flag)
{
if ((temp_fp = fopen(file_name, "w")) == NULL)
{
clear_com_win = TRUE;
wmove(com_win,0,0);
wclrtoeol(com_win);
wprintw(com_win, create_file_fail_msg, file_name);
wrefresh(com_win);
return(FALSE);
}
else
{
wmove(com_win,0,0);
wclrtoeol(com_win);
wprintw(com_win, writing_file_msg, file_name);
wrefresh(com_win);
cr = '\n';
out_line = first_line;
while (out_line != NULL)
{
temp_pos = 1;
tmp_point= out_line->line;
while (temp_pos < out_line->line_length)
{
putc(*tmp_point, temp_fp);
tmp_point++;
temp_pos++;
}
charac += out_line->line_length;
out_line = out_line->next_line;
putc(cr, temp_fp);
lines++;
}
fclose(temp_fp);
wmove(com_win,0,0);
wclrtoeol(com_win);
wprintw(com_win, file_written_msg, file_name, lines, charac);
wrefresh(com_win);
return(TRUE);
}
}
else
return(FALSE);
}
int
search(display_message) /* search for string in srch_str */
int display_message;
{
int lines_moved;
int iter;
int found;
if ((srch_str == NULL) || (*srch_str == (char) NULL))
return(FALSE);
if (display_message)
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, searching_msg);
wrefresh(com_win);
clear_com_win = TRUE;
}
lines_moved = 0;
found = FALSE;
srch_line = curr_line;
srch_1 = point;
if (position < curr_line->line_length)
srch_1++;
iter = position + 1;
while ((!found) && (srch_line != NULL))
{
while ((iter < srch_line->line_length) && (!found))
{
srch_2 = srch_1;
if (case_sen) /* if case sensitive */
{
srch_3 = srch_str;
while ((*srch_2 == *srch_3) && (*srch_3 != (char) NULL))
{
found = TRUE;
srch_2++;
srch_3++;
} /* end while */
}
else /* if not case sensitive */
{
srch_3 = u_srch_str;
while ((toupper(*srch_2) == *srch_3) && (*srch_3 != (char) NULL))
{
found = TRUE;
srch_2++;
srch_3++;
}
} /* end else */
if (!((*srch_3 == (char) NULL) && (found)))
{
found = FALSE;
if (iter < srch_line->line_length)
srch_1++;
iter++;
}
}
if (!found)
{
srch_line = srch_line->next_line;
if (srch_line != NULL)
srch_1 = srch_line->line;
iter = 1;
lines_moved++;
}
}
if (found)
{
if (display_message)
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wrefresh(com_win);
}
if (lines_moved == 0)
{
while (position < iter)
right(TRUE);
}
else
{
if (lines_moved < 30)
{
move_rel("d", lines_moved);
while (position < iter)
right(TRUE);
}
else
{
curr_line = srch_line;
point = srch_1;
position = iter;
scanline(point);
scr_pos = scr_horz;
midscreen((last_line / 2), point);
}
}
}
else
{
if (display_message)
{
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, str_not_found_msg, srch_str);
wrefresh(com_win);
}
wmove(text_win, scr_vert,(scr_horz - horiz_offset));
}
return(found);
}
void
search_prompt() /* prompt and read search string (srch_str) */
{
if (srch_str != NULL)
free(srch_str);
if ((u_srch_str != NULL) && (*u_srch_str != (char) NULL))
free(u_srch_str);
srch_str = get_string(search_prompt_str, FALSE);
gold = FALSE;
srch_3 = srch_str;
srch_1 = u_srch_str = malloc(strlen(srch_str) + 1);
while (*srch_3 != (char) NULL)
{
*srch_1 = toupper(*srch_3);
srch_1++;
srch_3++;
}
*srch_1 = (char) NULL;
search(TRUE);
}
void
del_char() /* delete current character */
{
in = 8; /* backspace */
if (position < curr_line->line_length) /* if not end of line */
{
position++;
point++;
scanline(point);
delete(TRUE);
}
else
{
right(FALSE);
delete(FALSE);
}
}
void
undel_char() /* undelete last deleted character */
{
if (d_char == '\n') /* insert line if last del_char deleted eol */
insert_line(TRUE);
else
{
in = d_char;
insert(in);
}
}
void
del_word() /* delete word in front of cursor */
{
int tposit;
int difference;
char *d_word2;
char *d_word3;
char tmp_char;
if (d_word != NULL)
free(d_word);
d_word = malloc(curr_line->line_length);
tmp_char = d_char;
d_word3 = point;
d_word2 = d_word;
tposit = position;
while ((tposit < curr_line->line_length) &&
((*d_word3 != ' ') && (*d_word3 != '\t')))
{
tposit++;
*d_word2 = *d_word3;
d_word2++;
d_word3++;
}
while ((tposit < curr_line->line_length) &&
((*d_word3 == ' ') || (*d_word3 == '\t')))
{
tposit++;
*d_word2 = *d_word3;
d_word2++;
d_word3++;
}
*d_word2 = (char) NULL;
d_wrd_len = difference = d_word2 - d_word;
d_word2 = point;
while (tposit < curr_line->line_length)
{
tposit++;
*d_word2 = *d_word3;
d_word2++;
d_word3++;
}
curr_line->line_length -= difference;
*d_word2 = (char) NULL;
draw_line(scr_vert, scr_horz,point,position,curr_line->line_length);
d_char = tmp_char;
text_changes = TRUE;
formatted = FALSE;
}
void
undel_word() /* undelete last deleted word */
{
int temp;
int tposit;
char *tmp_old_ptr;
char *tmp_space;
char *tmp_ptr;
char *d_word_ptr;
/*
| resize line to handle undeleted word
*/
if ((curr_line->max_length - (curr_line->line_length + d_wrd_len)) < 5)
point = resiz_line(d_wrd_len, curr_line, position);
tmp_ptr = tmp_space = malloc(curr_line->line_length + d_wrd_len);
d_word_ptr = d_word;
temp = 1;
/*
| copy d_word contents into temp space
*/
while (temp <= d_wrd_len)
{
temp++;
*tmp_ptr = *d_word_ptr;
tmp_ptr++;
d_word_ptr++;
}
tmp_old_ptr = point;
tposit = position;
/*
| copy contents of line from curent position to eol into
| temp space
*/
while (tposit < curr_line->line_length)
{
temp++;
tposit++;
*tmp_ptr = *tmp_old_ptr;
tmp_ptr++;
tmp_old_ptr++;
}
curr_line->line_length += d_wrd_len;
tmp_old_ptr = point;
*tmp_ptr = (char) NULL;
tmp_ptr = tmp_space;
tposit = 1;
/*
| now copy contents from temp space back to original line
*/
while (tposit < temp)
{
tposit++;
*tmp_old_ptr = *tmp_ptr;
tmp_ptr++;
tmp_old_ptr++;
}
*tmp_old_ptr = (char) NULL;
free(tmp_space);
draw_line(scr_vert, scr_horz, point, position, curr_line->line_length);
}
void
del_line() /* delete from cursor to end of line */
{
char *dl1;
char *dl2;
int tposit;
if (d_line != NULL)
free(d_line);
d_line = malloc(curr_line->line_length);
dl1 = d_line;
dl2 = point;
tposit = position;
while (tposit < curr_line->line_length)
{
*dl1 = *dl2;
dl1++;
dl2++;
tposit++;
}
dlt_line->line_length = 1 + tposit - position;
*dl1 = (char) NULL;
*point = (char) NULL;
curr_line->line_length = position;
wclrtoeol(text_win);
if (curr_line->next_line != NULL)
{
right(FALSE);
delete(FALSE);
}
text_changes = TRUE;
}
void
undel_line() /* undelete last deleted line */
{
char *ud1;
char *ud2;
int tposit;
insert_line(TRUE);
left(TRUE);
point = resiz_line(dlt_line->line_length, curr_line, position);
curr_line->line_length += dlt_line->line_length - 1;
ud1 = point;
ud2 = d_line;
tposit = 1;
while (tposit < dlt_line->line_length)
{
tposit++;
*ud1 = *ud2;
ud1++;
ud2++;
}
*ud1 = (char) NULL;
draw_line(scr_vert, scr_horz,point,position,curr_line->line_length);
}
void
adv_word() /* advance to next word */
{
while ((position < curr_line->line_length) && ((*point != 32) && (*point != 9)))
right(TRUE);
while ((position < curr_line->line_length) && ((*point == 32) || (*point == 9)))
right(TRUE);
}
void
move_rel(direction, lines) /* move relative to current line */
char *direction;
int lines;
{
int i;
char *tmp;
if (*direction == 'u')
{
scr_pos = 0;
while (position > 1)
left(TRUE);
for (i = 0; i < lines; i++)
{
up();
}
if ((last_line > 5) && ( scr_vert < 4))
{
tmp = point;
tmp_line = curr_line;
for (i= 0;(i<5)&&(curr_line->prev_line != NULL); i++)
{
up();
}
scr_vert = scr_vert + i;
curr_line = tmp_line;
point = tmp;
scanline(point);
}
}
else
{
if ((position != 1) && (curr_line->next_line != NULL))
{
nextline();
scr_pos = scr_horz = 0;
if (horiz_offset)
{
horiz_offset = 0;
midscreen(scr_vert, point);
}
}
else
adv_line();
for (i = 1; i < lines; i++)
{
down();
}
if ((last_line > 10) && (scr_vert > (last_line - 5)))
{
tmp = point;
tmp_line = curr_line;
for (i=0; (i<5) && (curr_line->next_line != NULL); i++)
{
down();
}
scr_vert = scr_vert - i;
curr_line = tmp_line;
point = tmp;
scanline(point);
}
}
wmove(text_win, scr_vert, (scr_horz - horiz_offset));
}
void
eol() /* go to end of line */
{
if (position < curr_line->line_length)
{
while (position < curr_line->line_length)
right(TRUE);
}
else if (curr_line->next_line != NULL)
{
right(TRUE);
while (position < curr_line->line_length)
right(TRUE);
}
}
void
bol() /* move to beginning of line */
{
if (point != curr_line->line)
{
while (point != curr_line->line)
left(TRUE);
}
else if (curr_line->prev_line != NULL)
{
scr_pos = 0;
up();
}
}
void
adv_line() /* advance to beginning of next line */
{
if ((point != curr_line->line) || (scr_pos > 0))
{
while (position < curr_line->line_length)
right(TRUE);
right(TRUE);
}
else if (curr_line->next_line != NULL)
{
scr_pos = 0;
down();
}
}
void
sh_command(string) /* execute shell command */
char *string; /* string containing user command */
{
char *temp_point;
char *last_slash;
char *path; /* directory path to executable */
int parent; /* zero if child, child's pid if parent */
int value;
int return_val;
struct text *line_holder;
if (restrict_mode())
{
return;
}
if (!(path = getenv("SHELL")))
path = "/bin/sh";
last_slash = temp_point = path;
while (*temp_point != (char) NULL)
{
if (*temp_point == '/')
last_slash = ++temp_point;
else
temp_point++;
}
/*
| if in_pipe is true, then output of the shell operation will be
| read by the editor, and curses doesn't need to be turned off
*/
if (!in_pipe)
{
keypad(com_win, FALSE);
keypad(text_win, FALSE);
echo();
nl();
noraw();
resetty();
#ifndef NCURSE
endwin();
#endif
}
if (in_pipe)
{
pipe(pipe_in); /* create a pipe */
parent = fork();
if (!parent) /* if the child */
{
/*
| child process which will fork and exec shell command (if shell output is
| to be read by editor)
*/
in_pipe = FALSE;
/*
| redirect stdout to pipe
*/
temp_stdout = dup(1);
close(1);
dup(pipe_in[1]);
/*
| redirect stderr to pipe
*/
temp_stderr = dup(2);
close(2);
dup(pipe_in[1]);
close(pipe_in[1]);
/*
| child will now continue down 'if (!in_pipe)'
| path below
*/
}
else /* if the parent */
{
/*
| prepare editor to read from the pipe
*/
signal(SIGCHLD, SIG_IGN);
line_holder = curr_line;
tmp_vert = scr_vert;
close(pipe_in[1]);
get_fd = pipe_in[0];
get_file("");
close(pipe_in[0]);
scr_vert = tmp_vert;
scr_horz = scr_pos = 0;
position = 1;
curr_line = line_holder;
point = curr_line->line;
out_pipe = FALSE;
signal(SIGCHLD, SIG_DFL);
/*
| since flag "in_pipe" is still TRUE, the path which waits for the child
| process to die will be avoided.
| (the pipe is closed, no more output can be expected)
*/
}
}
if (!in_pipe)
{
signal(SIGINT, SIG_IGN);
if (out_pipe)
{
pipe(pipe_out);
}
/*
| fork process which will exec command
*/
parent = fork();
if (!parent) /* if the child */
{
if (shell_fork)
putchar('\n');
if (out_pipe)
{
/*
| prepare the child process (soon to exec a shell command) to read from the
| pipe (which will be output from the editor's buffer)
*/
close(0);
dup(pipe_out[0]);
close(pipe_out[0]);
close(pipe_out[1]);
}
for (value = 1; value < 24; value++)
signal(value, SIG_DFL);
execl(path, last_slash, "-c", string, NULL);
printf(exec_err_msg, path);
exit(-1);
}
else /* if the parent */
{
if (out_pipe)
{
/*
| output the contents of the buffer to the pipe (to be read by the
| process forked and exec'd above as stdin)
*/
close(pipe_out[0]);
line_holder = first_line;
while (line_holder != NULL)
{
write(pipe_out[1], line_holder->line, (line_holder->line_length-1));
write(pipe_out[1], "\n", 1);
line_holder = line_holder->next_line;
}
close(pipe_out[1]);
out_pipe = FALSE;
}
do
{
return_val = wait((int *) 0);
}
while ((return_val != parent) && (return_val != -1));
/*
| if this process is actually the child of the editor, exit. Here's how it
| works:
| The editor forks a process. If output must be sent to the command to be
| exec'd another process is forked, and that process (the child's child)
| will exec the command. In this case, "shell_fork" will be FALSE. If no
| output is to be performed to the shell command, "shell_fork" will be TRUE.
| If this is the editor process, shell_fork will be true, otherwise this is
| the child of the edit process.
*/
if (!shell_fork)
exit(0);
}
signal(SIGINT, edit_abort);
}
if (shell_fork)
{
printf(continue_msg);
fflush(stdout);
while ((in = getchar()) != '\n')
;
}
if (!in_pipe)
{
fixterm();
noecho();
nonl();
raw();
keypad(text_win, TRUE);
keypad(com_win, TRUE);
if (info_window)
clearok(info_win, TRUE);
}
redraw();
}
void
set_up_term() /* set up the terminal for operating with ae */
{
if (!curses_initialized)
{
initscr();
savetty();
noecho();
raw();
nonl();
curses_initialized = TRUE;
}
if (((LINES > 15) && (COLS >= 80)) && info_window)
last_line = LINES - 8;
else
{
info_window = FALSE;
last_line = LINES - 2;
}
idlok(stdscr, TRUE);
com_win = newwin(1, COLS, (LINES - 1), 0);
keypad(com_win, TRUE);
idlok(com_win, TRUE);
wrefresh(com_win);
if (!info_window)
text_win = newwin((LINES - 1), COLS, 0, 0);
else
text_win = newwin((LINES - 7), COLS, 6, 0);
keypad(text_win, TRUE);
idlok(text_win, TRUE);
wrefresh(text_win);
help_win = newwin((LINES - 1), COLS, 0, 0);
keypad(help_win, TRUE);
idlok(help_win, TRUE);
if (info_window)
{
info_type = CONTROL_KEYS;
info_win = newwin(6, COLS, 0, 0);
werase(info_win);
paint_info_win();
}
last_col = COLS - 1;
local_LINES = LINES;
local_COLS = COLS;
}
void
resize_check()
{
if ((LINES == local_LINES) && (COLS == local_COLS))
return;
if (info_window)
delwin(info_win);
delwin(text_win);
delwin(com_win);
delwin(help_win);
set_up_term();
redraw();
wrefresh(text_win);
}
int
menu_op(menu_list)
struct menu_entries * menu_list;
{
WINDOW *temp_win;
int max_width, max_height;
int x_off, y_off;
int counter;
int length;
int input;
int list_size;
int top_offset;
int temp_int;
char *cancel_string = menu_cancel_msg;
/*
| determine number and width of menu items
*/
list_size = 1;
while (menu_list[list_size + 1].item_string != NULL)
list_size++;
max_width = strlen(cancel_string);
for (counter = 0; counter <= list_size; counter++)
{
if ((length = strlen(menu_list[counter].item_string)) > max_width)
max_width = length;
}
max_width += 6;
/*
| make sure that window is large enough to handle menu
| if not, print error message and return to calling function
*/
if ((LINES < list_size) || (max_width > COLS))
{
wmove(com_win, 0, 0);
werase(com_win);
wprintw(com_win, menu_size_err_msg);
clear_com_win = TRUE;
return(0);
}
top_offset = 0;
max_height = list_size;
if (LINES >= (list_size + 8))
{
max_height = list_size + 8;
top_offset = 4;
}
x_off = (COLS - max_width) / 2;
y_off = (LINES - max_height - 1) / 2;
temp_win = newwin(max_height, max_width, y_off, x_off);
keypad(temp_win, TRUE);
werase(temp_win);
/*
| output top and bottom portions of menu box only if window
| large enough
*/
if (max_height > list_size)
{
wmove(temp_win, 1, 1);
if (!nohighlight)
wstandout(temp_win);
waddch(temp_win, '+');
for (counter = 0; counter < (max_width - 4); counter++)
waddch(temp_win, '-');
waddch(temp_win, '+');
wmove(temp_win, (max_height - 2), 1);
waddch(temp_win, '+');
for (counter = 0; counter < (max_width - 4); counter++)
waddch(temp_win, '-');
waddch(temp_win, '+');
wstandend(temp_win);
wmove(temp_win, 2, 3);
waddstr(temp_win, menu_list[0].item_string);
wmove(temp_win, (max_height - 3), 3);
waddstr(temp_win, cancel_string);
}
if (!nohighlight)
wstandout(temp_win);
for (counter = 0; counter < (list_size + top_offset); counter++)
{
if (top_offset == 4)
{
temp_int = counter + 2;
}
else
temp_int = counter;
wmove(temp_win, temp_int, 1);
waddch(temp_win, '|');
wmove(temp_win, temp_int, (max_width - 2));
waddch(temp_win, '|');
}
wstandend(temp_win);
for (counter = 1; counter <= list_size; counter++)
{
wmove(temp_win, (top_offset + counter - 1), 3);
waddstr(temp_win, menu_list[counter].item_string);
}
counter = 1;
do
{
wmove(temp_win, (counter + top_offset - 1), 3);
wrefresh(temp_win);
input = wgetch(temp_win);
if (input == -1)
exit(0);
switch (input)
{
case ' ': /* space */
case '\022': /* ^r, right */
case '\004': /* ^d, down */
case KEY_RIGHT:
case KEY_DOWN:
counter++;
if (counter > list_size)
counter = 1;
break;
case '\010': /* ^h, backspace*/
case '\014': /* ^l, left */
case '\025': /* ^u, up */
case 127: /* ^?, delete */
case KEY_LEFT:
case KEY_UP:
counter--;
if (counter == 0)
counter = list_size;
break;
case '\033': /* escape key */
counter = 0;
break;
default:
break;
}
}
while ((input != '\r') && (input != '\n') && (input != '\033'));
werase(temp_win);
wrefresh(temp_win);
delwin(temp_win);
if ((menu_list[counter].procedure != NULL) ||
(menu_list[counter].iprocedure != NULL) ||
(menu_list[counter].nprocedure != NULL))
{
if (menu_list[counter].argument != -1)
(*menu_list[counter].iprocedure)(menu_list[counter].argument);
else if (menu_list[counter].ptr_argument != NULL)
(*menu_list[counter].procedure)(menu_list[counter].ptr_argument);
else
(*menu_list[counter].nprocedure)();
}
if (info_window)
paint_info_win();
midscreen(scr_vert, point);
return(counter);
}
void
help()
{
int counter;
werase(help_win);
clearok(help_win, TRUE);
for (counter = 0; counter < 22; counter++)
{
wmove(help_win, counter, 0);
waddstr(help_win, (emacs_keys_mode) ?
emacs_help_text[counter] : help_text[counter]);
}
wrefresh(help_win);
werase(com_win);
wmove(com_win, 0, 0);
wprintw(com_win, press_any_key_msg);
wrefresh(com_win);
counter = wgetch(com_win);
if (counter == -1)
exit(0);
werase(com_win);
wmove(com_win, 0, 0);
werase(help_win);
wrefresh(help_win);
wrefresh(com_win);
redraw();
}
void
paint_info_win()
{
int counter;
if (!info_window)
return;
werase(info_win);
for (counter = 0; counter < 5; counter++)
{
wmove(info_win, counter, 0);
wclrtoeol(info_win);
if (info_type == CONTROL_KEYS)
waddstr(info_win, (emacs_keys_mode) ?
emacs_control_keys[counter] : control_keys[counter]);
else if (info_type == COMMANDS)
waddstr(info_win, command_strings[counter]);
}
wmove(info_win, 5, 0);
if (!nohighlight)
wstandout(info_win);
waddstr(info_win, "===============================================================================");
wstandend(info_win);
wrefresh(info_win);
}
void
no_info_window()
{
if (!info_window)
return;
delwin(info_win);
delwin(text_win);
info_window = FALSE;
last_line = LINES - 2;
text_win = newwin((LINES - 1), COLS, 0, 0);
keypad(text_win, TRUE);
idlok(text_win, TRUE);
clearok(text_win, TRUE);
midscreen(scr_vert, point);
wrefresh(text_win);
clear_com_win = TRUE;
}
void
create_info_window()
{
if (info_window)
return;
last_line = LINES - 8;
delwin(text_win);
text_win = newwin((LINES - 7), COLS, 6, 0);
keypad(text_win, TRUE);
idlok(text_win, TRUE);
werase(text_win);
info_window = TRUE;
info_win = newwin(6, COLS, 0, 0);
werase(info_win);
info_type = CONTROL_KEYS;
midscreen(min(scr_vert, last_line), point);
clearok(info_win, TRUE);
paint_info_win();
wrefresh(text_win);
clear_com_win = TRUE;
}
int
file_op(arg)
int arg;
{
char *string;
int flag;
if (restrict_mode())
{
return(0);
}
if (arg == READ_FILE)
{
string = get_string(file_read_prompt_str, TRUE);
recv_file = TRUE;
tmp_file = resolve_name(string);
check_fp();
if (tmp_file != string)
free(tmp_file);
free(string);
}
else if (arg == WRITE_FILE)
{
string = get_string(file_write_prompt_str, TRUE);
tmp_file = resolve_name(string);
write_file(tmp_file);
if (tmp_file != string)
free(tmp_file);
free(string);
}
else if (arg == SAVE_FILE)
{
/*
| changes made here should be reflected in finish()
*/
if (in_file_name)
flag = TRUE;
else
flag = FALSE;
string = in_file_name;
if ((string == NULL) || (*string == (char) NULL))
string = get_string(save_file_name_prompt, TRUE);
if ((string == NULL) || (*string == (char) NULL))
{
wmove(com_win, 0, 0);
wprintw(com_win, file_not_saved_msg);
wclrtoeol(com_win);
wrefresh(com_win);
clear_com_win = TRUE;
return(0);
}
if (!flag)
{
tmp_file = resolve_name(string);
if (tmp_file != string)
{
free(string);
string = tmp_file;
}
}
if (write_file(string))
{
in_file_name = string;
text_changes = FALSE;
}
else if (!flag)
free(string);
}
return(0);
}
void
shell_op()
{
char *string;
if (((string = get_string(shell_prompt, TRUE)) != NULL) &&
(*string != (char) NULL))
{
sh_command(string);
free(string);
}
}
void
leave_op()
{
if (text_changes)
{
menu_op(leave_menu);
}
else
quit(TRUE);
}
void
redraw()
{
if (info_window)
{
clearok(info_win, TRUE);
paint_info_win();
}
else
clearok(text_win, TRUE);
midscreen(scr_vert, point);
}
/*
| The following routines will "format" a paragraph (as defined by a
| block of text with blank lines before and after the block).
*/
int
Blank_Line(test_line) /* test if line has any non-space characters */
struct text *test_line;
{
char *line;
int length;
if (test_line == NULL)
return(TRUE);
length = 1;
line = test_line->line;
/*
| To handle troff/nroff documents, consider a line with a
| period ('.') in the first column to be blank. To handle mail
| messages with included text, consider a line with a '>' blank.
*/
if ((*line == '.') || (*line == '>'))
return(TRUE);
while (((*line == ' ') || (*line == '\t')) && (length < test_line->line_length))
{
length++;
line++;
}
if (length != test_line->line_length)
return(FALSE);
else
return(TRUE);
}
void
Format() /* format the paragraph according to set margins */
{
int string_count;
int offset;
int temp_case;
int status;
int tmp_af;
int counter;
char *line;
char *tmp_srchstr;
char *temp1, *temp2;
char *temp_dword;
char temp_d_char = d_char;
/*
| if observ_margins is not set, or the current line is blank,
| do not format the current paragraph
*/
if ((!observ_margins) || (Blank_Line(curr_line)))
return;
/*
| save the currently set flags, and clear them
*/
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, formatting_msg);
wrefresh(com_win);
/*
| get current position in paragraph, so after formatting, the cursor
| will be in the same relative position
*/
tmp_af = auto_format;
auto_format = FALSE;
offset = position;
if (position != 1)
prev_word();
temp_dword = d_word;
d_word = NULL;
temp_case = case_sen;
case_sen = TRUE;
tmp_srchstr = srch_str;
temp2 = srch_str = (char *) malloc(1 + curr_line->line_length - position);
if ((*point == ' ') || (*point == '\t'))
adv_word();
offset -= position;
counter = position;
line = temp1 = point;
while ((*temp1 != (char) NULL) && (*temp1 != ' ') && (*temp1 != '\t') && (counter < curr_line->line_length))
{
*temp2 = *temp1;
temp2++;
temp1++;
counter++;
}
*temp2 = (char) NULL;
if (position != 1)
bol();
while (!Blank_Line(curr_line->prev_line))
bol();
string_count = 0;
status = TRUE;
while ((line != point) && (status))
{
status = search(FALSE);
string_count++;
}
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, formatting_msg);
wrefresh(com_win);
/*
| now get back to the start of the paragraph to start formatting
*/
if (position != 1)
bol();
while (!Blank_Line(curr_line->prev_line))
bol();
observ_margins = FALSE;
/*
| Start going through lines, putting spaces at end of lines if they do
| not already exist. Append lines together to get one long line, and
| eliminate spacing at begin of lines.
*/
while (!Blank_Line(curr_line->next_line))
{
eol();
left(TRUE);
if (*point != ' ')
{
right(TRUE);
insert(' ');
}
else
right(TRUE);
del_char();
if ((*point == ' ') || (*point == '\t'))
del_word();
}
/*
| Now there is one long line. Eliminate extra spaces within the line
| after the first word (so as not to blow away any indenting the user
| may have put in).
*/
bol();
adv_word();
while (position < curr_line->line_length)
{
if ((*point == ' ') && (*(point + 1) == ' '))
del_char();
else
right(TRUE);
}
/*
| Now make sure there are two spaces after a '.'.
*/
bol();
while (position < curr_line->line_length)
{
if ((*point == '.') && (*(point + 1) == ' '))
{
right(TRUE);
insert(' ');
insert(' ');
while (*point == ' ')
del_char();
}
right(TRUE);
}
observ_margins = TRUE;
bol();
wmove(com_win, 0, 0);
wclrtoeol(com_win);
wprintw(com_win, formatting_msg);
wrefresh(com_win);
/*
| create lines between margins
*/
while (position < curr_line->line_length)
{
while ((scr_pos < right_margin) && (position < curr_line->line_length))
right(TRUE);
if (position < curr_line->line_length)
{
prev_word();
if (position == 1)
adv_word();
insert_line(TRUE);
}
}
/*
| go back to begin of paragraph, put cursor back to original position
*/
bol();
while (!Blank_Line(curr_line->prev_line))
bol();
/*
| find word cursor was in
*/
while ((status) && (string_count > 0))
{
search(FALSE);
string_count--;
}
/*
| offset the cursor to where it was before from the start of the word
*/
while (offset > 0)
{
offset--;
right(TRUE);
}
/*
| reset flags and strings to what they were before formatting
*/
if (d_word != NULL)
free(d_word);
d_word = temp_dword;
case_sen = temp_case;
free(srch_str);
srch_str = tmp_srchstr;
d_char = temp_d_char;
auto_format = tmp_af;
midscreen(scr_vert, point);
werase(com_win);
wrefresh(com_win);
}
char *init_name[3] = {
"/usr/share/misc/init.ee",
NULL,
".init.ee"
};
void
ee_init() /* check for init file and read it if it exists */
{
FILE *init_file;
char *string;
char *str1;
char *str2;
char *home;
int counter;
int temp_int;
string = getenv("HOME");
if (!string)
string = "/root"; /* Set to reasonable default so we don't crash */
str1 = home = malloc(strlen(string)+10);
strcpy(home, string);
strcat(home, "/.init.ee");
init_name[1] = home;
string = malloc(512);
for (counter = 0; counter < 3; counter++)
{
if (!(access(init_name[counter], 4)))
{
init_file = fopen(init_name[counter], "r");
while ((str2 = fgets(string, 512, init_file)) != NULL)
{
if (unique_test(string, init_strings) != 1)
continue;
str1 = str2 = string;
while (*str2 != '\n')
str2++;
*str2 = (char) NULL;
if (compare(str1, CASE, FALSE))
case_sen = TRUE;
else if (compare(str1, NOCASE, FALSE))
case_sen = FALSE;
else if (compare(str1, EXPAND, FALSE))
expand_tabs = TRUE;
else if (compare(str1, NOEXPAND, FALSE))
expand_tabs = FALSE;
else if (compare(str1, INFO, FALSE))
info_window = TRUE;
else if (compare(str1, NOINFO, FALSE))
info_window = FALSE;
else if (compare(str1, MARGINS, FALSE))
observ_margins = TRUE;
else if (compare(str1, NOMARGINS, FALSE))
observ_margins = FALSE;
else if (compare(str1, AUTOFORMAT, FALSE))
{
auto_format = TRUE;
observ_margins = TRUE;
}
else if (compare(str1, NOAUTOFORMAT, FALSE))
auto_format = FALSE;
else if (compare(str1, Echo, FALSE))
{
str1 = next_word(str1);
if (*str1 != (char) NULL)
echo_string(str1);
}
else if (compare(str1, PRINTCOMMAND, FALSE))
{
str1 = next_word(str1);
print_command = malloc(strlen(str1)+1);
strcpy(print_command, str1);
}
else if (compare(str1, RIGHTMARGIN, FALSE))
{
str1 = next_word(str1);
if ((*str1 >= '0') && (*str1 <= '9'))
{
temp_int = atoi(str1);
if (temp_int > 0)
right_margin = temp_int;
}
}
else if (compare(str1, HIGHLIGHT, FALSE))
nohighlight = FALSE;
else if (compare(str1, NOHIGHLIGHT, FALSE))
nohighlight = TRUE;
else if (compare(str1, EIGHTBIT, FALSE))
eightbit = TRUE;
else if (compare(str1, NOEIGHTBIT, FALSE))
eightbit = FALSE;
else if (compare(str1, EMACS_string, FALSE))
emacs_keys_mode = TRUE;
else if (compare(str1, NOEMACS_string, FALSE))
emacs_keys_mode = FALSE;
}
fclose(init_file);
}
}
free(string);
free(home);
}
void
echo_string(string) /* echo the given string */
char *string;
{
char *temp;
int Counter;
temp = string;
while (*temp != (char) NULL)
{
if (*temp == '\\')
{
temp++;
if (*temp == 'n')
putchar('\n');
else if (*temp == 't')
putchar('\t');
else if (*temp == 'b')
putchar('\b');
else if (*temp == 'r')
putchar('\r');
else if (*temp == 'f')
putchar('\f');
else if ((*temp == 'e') || (*temp == 'E'))
putchar('\033'); /* escape */
else if (*temp == '\\')
putchar('\\');
else if (*temp == '\'')
putchar('\'');
else if ((*temp >= '0') && (*temp <= '9'))
{
Counter = 0;
while ((*temp >= '0') && (*temp <= '9'))
{
Counter = (8 * Counter) + (*temp - '0');
temp++;
}
putchar(Counter);
temp--;
}
temp++;
}
else
{
putchar(*temp);
temp++;
}
}
fflush(stdout);
}
void
spell_op() /* check spelling of words in the editor */
{
if (restrict_mode())
{
return;
}
top(); /* go to top of file */
insert_line(FALSE); /* create two blank lines */
insert_line(FALSE);
top();
command(shell_echo_msg);
adv_line();
wmove(com_win, 0, 0);
wprintw(com_win, spell_in_prog_msg);
wrefresh(com_win);
command("<>!spell"); /* send contents of buffer to command 'spell'
and read the results back into the editor */
}
void
ispell_op()
{
char name[128];
char string[256];
int pid;
if (restrict_mode())
{
return;
}
pid = getpid();
sprintf(name, "/tmp/ee.%d", pid);
if (write_file(name))
{
sprintf(string, "ispell %s", name);
sh_command(string);
delete_text();
tmp_file = name;
recv_file = TRUE;
check_fp();
unlink(name);
}
}
int
first_word_len(test_line)
struct text *test_line;
{
int counter;
char *pnt;
pnt = test_line->line;
if ((test_line == NULL) || (pnt == NULL) || (*pnt == (char) NULL) ||
(*pnt == '.') || (*pnt == '>'))
return(0);
if ((*pnt == ' ') || (*pnt == '\t'))
{
pnt = next_word(pnt);
}
if (*pnt == (char) NULL)
return(0);
counter = 0;
while ((*pnt != (char) NULL) && ((*pnt != ' ') && (*pnt != '\t')))
{
pnt++;
counter++;
}
while ((*pnt != (char) NULL) && ((*pnt == ' ') || (*pnt == '\t')))
{
pnt++;
counter++;
}
return(counter);
}
void
Auto_Format() /* format the paragraph according to set margins */
{
int string_count;
int offset;
int temp_case;
int word_len;
int temp_dwl;
int tmp_d_line_length;
int leave_loop = FALSE;
int status;
int counter;
char *line;
char *tmp_srchstr;
char *temp1, *temp2;
char *temp_dword;
char temp_d_char = d_char;
char *tmp_d_line;
/*
| if observ_margins is not set, or the current line is blank,
| do not format the current paragraph
*/
if ((!observ_margins) || (Blank_Line(curr_line)))
return;
/*
| get current position in paragraph, so after formatting, the cursor
| will be in the same relative position
*/
tmp_d_line = d_line;
tmp_d_line_length = dlt_line->line_length;
d_line = NULL;
auto_format = FALSE;
offset = position;
if ((position != 1) && ((*point == ' ') || (*point == '\t') || (position == curr_line->line_length) || (*point == (char) NULL)))
prev_word();
temp_dword = d_word;
temp_dwl = d_wrd_len;
d_wrd_len = 0;
d_word = NULL;
temp_case = case_sen;
case_sen = TRUE;
tmp_srchstr = srch_str;
temp2 = srch_str = (char *) malloc(1 + curr_line->line_length - position);
if ((*point == ' ') || (*point == '\t'))
adv_word();
offset -= position;
counter = position;
line = temp1 = point;
while ((*temp1 != (char) NULL) && (*temp1 != ' ') && (*temp1 != '\t') && (counter < curr_line->line_length))
{
*temp2 = *temp1;
temp2++;
temp1++;
counter++;
}
*temp2 = (char) NULL;
if (position != 1)
bol();
while (!Blank_Line(curr_line->prev_line))
bol();
string_count = 0;
status = TRUE;
while ((line != point) && (status))
{
status = search(FALSE);
string_count++;
}
/*
| now get back to the start of the paragraph to start checking
*/
if (position != 1)
bol();
while (!Blank_Line(curr_line->prev_line))
bol();
/*
| Start going through lines, putting spaces at end of lines if they do
| not already exist. Check line length, and move words to the next line
| if they cross the margin. Then get words from the next line if they
| will fit in before the margin.
*/
while (!leave_loop)
{
if (position != curr_line->line_length)
eol();
left(TRUE);
if (*point != ' ')
{
right(TRUE);
insert(' ');
}
else
right(TRUE);
/*
| fill line if first word on next line will fit
| in the line without crossing the margin
*/
while ((curr_line->next_line != NULL) &&
((word_len = first_word_len(curr_line->next_line)) > 0)
&& ((scr_pos + word_len) < right_margin))
{
adv_line();
if ((*point == ' ') || (*point == '\t'))
adv_word();
del_word();
if (position != 1)
bol();
if (Blank_Line(curr_line))
{
del_line();
}
/*
| go to end of previous line
*/
left(TRUE);
undel_word();
eol();
/*
| make sure there's a space at the end of the line
*/
left(TRUE);
if (*point != ' ')
{
right(TRUE);
insert(' ');
}
else
right(TRUE);
}
/*
| make sure line does not cross right margin
*/
while (right_margin <= scr_pos)
{
prev_word();
if (position != 1)
{
del_word();
if (Blank_Line(curr_line->next_line))
insert_line(TRUE);
else
adv_line();
if ((*point == ' ') || (*point == '\t'))
adv_word();
undel_word();
if (position != 1)
bol();
left(TRUE);
}
}
if (!Blank_Line(curr_line->next_line))
adv_line();
else
leave_loop = TRUE;
}
/*
| go back to begin of paragraph, put cursor back to original position
*/
bol();
while (!Blank_Line(curr_line->prev_line))
bol();
/*
| find word cursor was in
*/
status = TRUE;
while ((status) && (string_count > 0))
{
status = search(FALSE);
string_count--;
}
/*
| offset the cursor to where it was before from the start of the word
*/
while (offset > 0)
{
offset--;
right(TRUE);
}
if ((string_count > 0) && (offset < 0))
{
while (offset < 0)
{
offset++;
left(TRUE);
}
}
/*
| reset flags and strings to what they were before formatting
*/
if (d_word != NULL)
free(d_word);
d_word = temp_dword;
d_wrd_len = temp_dwl;
case_sen = temp_case;
free(srch_str);
srch_str = tmp_srchstr;
d_char = temp_d_char;
auto_format = TRUE;
dlt_line->line_length = tmp_d_line_length;
d_line = tmp_d_line;
formatted = TRUE;
midscreen(scr_vert, point);
}
void
modes_op()
{
int ret_value;
int counter;
char *string;
do
{
sprintf(modes_menu[1].item_string, "%s %s", mode_strings[1],
(expand_tabs ? ON : OFF));
sprintf(modes_menu[2].item_string, "%s %s", mode_strings[2],
(case_sen ? ON : OFF));
sprintf(modes_menu[3].item_string, "%s %s", mode_strings[3],
(observ_margins ? ON : OFF));
sprintf(modes_menu[4].item_string, "%s %s", mode_strings[4],
(auto_format ? ON : OFF));
sprintf(modes_menu[5].item_string, "%s %s", mode_strings[5],
(eightbit ? ON : OFF));
sprintf(modes_menu[6].item_string, "%s %s", mode_strings[6],
(info_window ? ON : OFF));
sprintf(modes_menu[7].item_string, "%s %s", mode_strings[7],
(emacs_keys_mode ? ON : OFF));
sprintf(modes_menu[8].item_string, "%s %d", mode_strings[8],
right_margin);
ret_value = menu_op(modes_menu);
switch (ret_value)
{
case 1:
expand_tabs = !expand_tabs;
break;
case 2:
case_sen = !case_sen;
break;
case 3:
observ_margins = !observ_margins;
break;
case 4:
auto_format = !auto_format;
if (auto_format)
observ_margins = TRUE;
break;
case 5:
eightbit = !eightbit;
redraw();
wnoutrefresh(text_win);
break;
case 6:
if (info_window)
no_info_window();
else
create_info_window();
break;
case 7:
emacs_keys_mode = !emacs_keys_mode;
if (info_window)
paint_info_win();
break;
case 8:
string = get_string(margin_prompt, TRUE);
if (string != NULL)
{
counter = atoi(string);
if (counter > 0)
right_margin = counter;
free(string);
}
break;
default:
break;
}
}
while (ret_value != 0);
}
char *
is_in_string(string, substring) /* a strstr() look-alike for systems without
strstr() */
char * string, *substring;
{
char *full, *sub;
for (sub = substring; (sub != NULL) && (*sub != (char)NULL); sub++)
{
for (full = string; (full != NULL) && (*full != (char)NULL);
full++)
{
if (*sub == *full)
return(full);
}
}
return(NULL);
}
/*
| handle names of the form "~/file", "~user/file",
| "$HOME/foo", "~/$FOO", etc.
*/
char *
resolve_name(name)
char *name;
{
char long_buffer[1024];
char short_buffer[128];
char *buffer;
char *slash;
char *tmp;
char *start_of_var;
int offset;
int index;
int counter;
struct passwd *user;
if (name[0] == '~')
{
if (name[1] == '/')
{
index = getuid();
user = (struct passwd *) getpwuid(index);
slash = name + 1;
}
else
{
slash = strchr(name, '/');
if (slash == NULL)
return(name);
*slash = (char) NULL;
user = (struct passwd *) getpwnam((name + 1));
*slash = '/';
}
if (user == NULL)
{
return(name);
}
buffer = malloc(strlen(user->pw_dir) + strlen(slash) + 1);
strcpy(buffer, user->pw_dir);
strcat(buffer, slash);
}
else
buffer = name;
if (is_in_string(buffer, "$"))
{
tmp = buffer;
index = 0;
while ((*tmp != (char) NULL) && (index < 1024))
{
while ((*tmp != (char) NULL) && (*tmp != '$') &&
(index < 1024))
{
long_buffer[index] = *tmp;
tmp++;
index++;
}
if ((*tmp == '$') && (index < 1024))
{
counter = 0;
start_of_var = tmp;
tmp++;
if (*tmp == '{') /* } */ /* bracketed variable name */
{
tmp++; /* { */
while ((*tmp != (char) NULL) &&
(*tmp != '}') &&
(counter < 128))
{
short_buffer[counter] = *tmp;
counter++;
tmp++;
} /* { */
if (*tmp == '}')
tmp++;
}
else
{
while ((*tmp != (char) NULL) &&
(*tmp != '/') &&
(*tmp != '$') &&
(counter < 128))
{
short_buffer[counter] = *tmp;
counter++;
tmp++;
}
}
short_buffer[counter] = (char) NULL;
if ((slash = getenv(short_buffer)) != NULL)
{
offset = strlen(slash);
if ((offset + index) < 1024)
strcpy(&long_buffer[index], slash);
index += offset;
}
else
{
while ((start_of_var != tmp) && (index < 1024))
{
long_buffer[index] = *start_of_var;
start_of_var++;
index++;
}
}
}
}
if (index == 1024)
return(buffer);
else
long_buffer[index] = (char) NULL;
if (name != buffer)
free(buffer);
buffer = malloc(index + 1);
strcpy(buffer, long_buffer);
}
return(buffer);
}
int
restrict_mode()
{
if (!restricted)
return(FALSE);
wmove(com_win, 0, 0);
wprintw(com_win, restricted_msg);
wclrtoeol(com_win);
wrefresh(com_win);
clear_com_win = TRUE;
return(TRUE);
}
/*
| The following routine tests the input string against the list of
| strings, to determine if the string is a unique match with one of the
| valid values.
*/
int
unique_test(string, list)
char *string;
char *list[];
{
int counter;
int num_match;
int result;
num_match = 0;
counter = 0;
while (list[counter] != NULL)
{
result = compare(string, list[counter], FALSE);
if (result)
num_match++;
counter++;
}
return(num_match);
}
#ifndef NO_CATGETS
/*
| Get the catalog entry, and if it got it from the catalog,
| make a copy, since the buffer will be overwritten by the
| next call to catgets().
*/
char *
catgetlocal(number, string)
int number;
char *string;
{
char *temp1;
char *temp2;
temp1 = catgets(catalog, 1, number, string);
if (temp1 != string)
{
temp2 = malloc(strlen(temp1) + 1);
strcpy(temp2, temp1);
temp1 = temp2;
}
return(temp1);
}
#endif /* NO_CATGETS */
/*
| The following is to allow for using message catalogs which allow
| the software to be 'localized', that is, to use different languages
| all with the same binary. For more information, see your system
| documentation, or the X/Open Internationalization Guide.
*/
void
strings_init()
{
int counter;
#ifndef NO_CATGETS
setlocale(LC_ALL, "");
catalog = catopen("ee", 0);
#endif /* NO_CATGETS */
modes_menu[0].item_string = catgetlocal( 1, "modes menu");
mode_strings[1] = catgetlocal( 2, "tabs to spaces ");
mode_strings[2] = catgetlocal( 3, "case sensitive search");
mode_strings[3] = catgetlocal( 4, "margins observed ");
mode_strings[4] = catgetlocal( 5, "auto-paragraph format");
mode_strings[5] = catgetlocal( 6, "eightbit characters ");
mode_strings[6] = catgetlocal( 7, "info window ");
mode_strings[8] = catgetlocal( 8, "right margin ");
leave_menu[0].item_string = catgetlocal( 9, "leave menu");
leave_menu[1].item_string = catgetlocal( 10, "save changes");
leave_menu[2].item_string = catgetlocal( 11, "no save");
file_menu[0].item_string = catgetlocal( 12, "file menu");
file_menu[1].item_string = catgetlocal( 13, "read a file");
file_menu[2].item_string = catgetlocal( 14, "write a file");
file_menu[3].item_string = catgetlocal( 15, "save file");
file_menu[4].item_string = catgetlocal( 16, "print editor contents");
search_menu[0].item_string = catgetlocal( 17, "search menu");
search_menu[1].item_string = catgetlocal( 18, "search for ...");
search_menu[2].item_string = catgetlocal( 19, "search");
spell_menu[0].item_string = catgetlocal( 20, "spell menu");
spell_menu[1].item_string = catgetlocal( 21, "use 'spell'");
spell_menu[2].item_string = catgetlocal( 22, "use 'ispell'");
misc_menu[0].item_string = catgetlocal( 23, "miscellaneous menu");
misc_menu[1].item_string = catgetlocal( 24, "format paragraph");
misc_menu[2].item_string = catgetlocal( 25, "shell command");
misc_menu[3].item_string = catgetlocal( 26, "check spelling");
main_menu[0].item_string = catgetlocal( 27, "main menu");
main_menu[1].item_string = catgetlocal( 28, "leave editor");
main_menu[2].item_string = catgetlocal( 29, "help");
main_menu[3].item_string = catgetlocal( 30, "file operations");
main_menu[4].item_string = catgetlocal( 31, "redraw screen");
main_menu[5].item_string = catgetlocal( 32, "settings");
main_menu[6].item_string = catgetlocal( 33, "search");
main_menu[7].item_string = catgetlocal( 34, "miscellaneous");
help_text[0] = catgetlocal( 35, "Control keys: ");
help_text[1] = catgetlocal( 36, "^a ascii code ^i tab ^r right ");
help_text[2] = catgetlocal( 37, "^b bottom of text ^j newline ^t top of text ");
help_text[3] = catgetlocal( 38, "^c command ^k delete char ^u up ");
help_text[4] = catgetlocal( 39, "^d down ^l left ^v undelete word ");
help_text[5] = catgetlocal( 40, "^e search prompt ^m newline ^w delete word ");
help_text[6] = catgetlocal( 41, "^f undelete char ^n next page ^x search ");
help_text[7] = catgetlocal( 42, "^g begin of line ^o end of line ^y delete line ");
help_text[8] = catgetlocal( 43, "^h backspace ^p prev page ^z undelete line ");
help_text[9] = catgetlocal( 44, "^[ (escape) menu ESC-Enter: exit ee ");
help_text[10] = catgetlocal( 45, " ");
help_text[11] = catgetlocal( 46, "Commands: ");
help_text[12] = catgetlocal( 47, "help : get this info file : print file name ");
help_text[13] = catgetlocal( 48, "read : read a file char : ascii code of char ");
help_text[14] = catgetlocal( 49, "write : write a file case : case sensitive search ");
help_text[15] = catgetlocal( 50, "exit : leave and save nocase : case insensitive search ");
help_text[16] = catgetlocal( 51, "quit : leave, no save !cmd : execute \"cmd\" in shell ");
help_text[17] = catgetlocal( 52, "line : display line # 0-9 : go to line \"#\" ");
help_text[18] = catgetlocal( 53, "expand : expand tabs noexpand: do not expand tabs ");
help_text[19] = catgetlocal( 54, " ");
help_text[20] = catgetlocal( 55, " ee [-i] [-e] [-h] [file(s)] ");
help_text[21] = catgetlocal( 56, " -i : no information window -e : do not expand tabs -h : no highlight ");
control_keys[0] = catgetlocal( 57, "^[ (escape) menu ^e search prompt ^y delete line ^u up ^p prev page ");
control_keys[1] = catgetlocal( 58, "^a ascii code ^x search ^z undelete line ^d down ^n next page ");
control_keys[2] = catgetlocal( 59, "^b bottom of text ^g begin of line ^w delete word ^l left ");
control_keys[3] = catgetlocal( 60, "^t top of text ^o end of line ^v undelete word ^r right ");
control_keys[4] = catgetlocal( 61, "^c command ^k delete char ^f undelete char ESC-Enter: exit ee ");
command_strings[0] = catgetlocal( 62, "help : get help info |file : print file name |line : print line # ");
command_strings[1] = catgetlocal( 63, "read : read a file |char : ascii code of char |0-9 : go to line \"#\"");
command_strings[2] = catgetlocal( 64, "write: write a file |case : case sensitive search |exit : leave and save ");
command_strings[3] = catgetlocal( 65, "!cmd : shell \"cmd\" |nocase: ignore case in search |quit : leave, no save");
command_strings[4] = catgetlocal( 66, "expand: expand tabs |noexpand: do not expand tabs ");
com_win_message = catgetlocal( 67, " press Escape (^[) for menu");
no_file_string = catgetlocal( 68, "no file");
ascii_code_str = catgetlocal( 69, "ascii code: ");
printer_msg_str = catgetlocal( 70, "sending contents of buffer to \"%s\" ");
command_str = catgetlocal( 71, "command: ");
file_write_prompt_str = catgetlocal( 72, "name of file to write: ");
file_read_prompt_str = catgetlocal( 73, "name of file to read: ");
char_str = catgetlocal( 74, "character = %d");
unkn_cmd_str = catgetlocal( 75, "unknown command \"%s\"");
non_unique_cmd_msg = catgetlocal( 76, "entered command is not unique");
line_num_str = catgetlocal( 77, "line %d ");
line_len_str = catgetlocal( 78, "length = %d");
current_file_str = catgetlocal( 79, "current file is \"%s\" ");
usage0 = catgetlocal( 80, "usage: %s [-i] [-e] [-h] [+line_number] [file(s)]\n");
usage1 = catgetlocal( 81, " -i turn off info window\n");
usage2 = catgetlocal( 82, " -e do not convert tabs to spaces\n");
usage3 = catgetlocal( 83, " -h do not use highlighting\n");
file_is_dir_msg = catgetlocal( 84, "file \"%s\" is a directory");
new_file_msg = catgetlocal( 85, "new file \"%s\"");
cant_open_msg = catgetlocal( 86, "can't open \"%s\"");
open_file_msg = catgetlocal( 87, "file \"%s\", %d lines");
file_read_fin_msg = catgetlocal( 88, "finished reading file \"%s\"");
reading_file_msg = catgetlocal( 89, "reading file \"%s\"");
read_only_msg = catgetlocal( 90, ", read only");
file_read_lines_msg = catgetlocal( 91, "file \"%s\", %d lines");
save_file_name_prompt = catgetlocal( 92, "enter name of file: ");
file_not_saved_msg = catgetlocal( 93, "no filename entered: file not saved");
changes_made_prompt = catgetlocal( 94, "changes have been made, are you sure? (y/n [n]) ");
yes_char = catgetlocal( 95, "y");
file_exists_prompt = catgetlocal( 96, "file already exists, overwrite? (y/n) [n] ");
create_file_fail_msg = catgetlocal( 97, "unable to create file \"%s\"");
writing_file_msg = catgetlocal( 98, "writing file \"%s\"");
file_written_msg = catgetlocal( 99, "\"%s\" %d lines, %d characters");
searching_msg = catgetlocal( 100, " ...searching");
str_not_found_msg = catgetlocal( 101, "string \"%s\" not found");
search_prompt_str = catgetlocal( 102, "search for: ");
exec_err_msg = catgetlocal( 103, "could not exec %s\n");
continue_msg = catgetlocal( 104, "press return to continue ");
menu_cancel_msg = catgetlocal( 105, "press Esc to cancel");
menu_size_err_msg = catgetlocal( 106, "menu too large for window");
press_any_key_msg = catgetlocal( 107, "press any key to continue ");
shell_prompt = catgetlocal( 108, "shell command: ");
formatting_msg = catgetlocal( 109, "...formatting paragraph...");
shell_echo_msg = catgetlocal( 110, "<!echo 'list of unrecognized words'; echo -=-=-=-=-=-");
spell_in_prog_msg = catgetlocal( 111, "sending contents of edit buffer to 'spell'");
margin_prompt = catgetlocal( 112, "right margin is: ");
restricted_msg = catgetlocal( 113, "restricted mode: unable to perform requested operation");
ON = catgetlocal( 114, "ON");
OFF = catgetlocal( 115, "OFF");
HELP = catgetlocal( 116, "HELP");
WRITE = catgetlocal( 117, "WRITE");
READ = catgetlocal( 118, "READ");
LINE = catgetlocal( 119, "LINE");
FILE_str = catgetlocal( 120, "FILE");
CHARACTER = catgetlocal( 121, "CHARACTER");
REDRAW = catgetlocal( 122, "REDRAW");
RESEQUENCE = catgetlocal( 123, "RESEQUENCE");
AUTHOR = catgetlocal( 124, "AUTHOR");
VERSION = catgetlocal( 125, "VERSION");
CASE = catgetlocal( 126, "CASE");
NOCASE = catgetlocal( 127, "NOCASE");
EXPAND = catgetlocal( 128, "EXPAND");
NOEXPAND = catgetlocal( 129, "NOEXPAND");
Exit_string = catgetlocal( 130, "EXIT");
QUIT_string = catgetlocal( 131, "QUIT");
INFO = catgetlocal( 132, "INFO");
NOINFO = catgetlocal( 133, "NOINFO");
MARGINS = catgetlocal( 134, "MARGINS");
NOMARGINS = catgetlocal( 135, "NOMARGINS");
AUTOFORMAT = catgetlocal( 136, "AUTOFORMAT");
NOAUTOFORMAT = catgetlocal( 137, "NOAUTOFORMAT");
Echo = catgetlocal( 138, "ECHO");
PRINTCOMMAND = catgetlocal( 139, "PRINTCOMMAND");
RIGHTMARGIN = catgetlocal( 140, "RIGHTMARGIN");
HIGHLIGHT = catgetlocal( 141, "HIGHLIGHT");
NOHIGHLIGHT = catgetlocal( 142, "NOHIGHLIGHT");
EIGHTBIT = catgetlocal( 143, "EIGHTBIT");
NOEIGHTBIT = catgetlocal( 144, "NOEIGHTBIT");
/*
| additions
*/
mode_strings[7] = catgetlocal( 145, "emacs key bindings ");
emacs_help_text[0] = help_text[0];
emacs_help_text[1] = catgetlocal( 146, "^a beginning of line ^i tab ^r restore word ");
emacs_help_text[2] = catgetlocal( 147, "^b back 1 char ^j undel char ^t top of text ");
emacs_help_text[3] = catgetlocal( 148, "^c command ^k delete line ^u bottom of text ");
emacs_help_text[4] = catgetlocal( 149, "^d delete char ^l undelete line ^v next page ");
emacs_help_text[5] = catgetlocal( 150, "^e end of line ^m newline ^w delete word ");
emacs_help_text[6] = catgetlocal( 151, "^f forward 1 char ^n next line ^x search ");
emacs_help_text[7] = catgetlocal( 152, "^g go back 1 page ^o ascii char insert ^y search prompt ");
emacs_help_text[8] = catgetlocal( 153, "^h backspace ^p prev line ^z next word ");
emacs_help_text[9] = help_text[9];
emacs_help_text[10] = help_text[10];
emacs_help_text[11] = help_text[11];
emacs_help_text[12] = help_text[12];
emacs_help_text[13] = help_text[13];
emacs_help_text[14] = help_text[14];
emacs_help_text[15] = help_text[15];
emacs_help_text[16] = help_text[16];
emacs_help_text[17] = help_text[17];
emacs_help_text[18] = help_text[18];
emacs_help_text[19] = help_text[19];
emacs_help_text[20] = help_text[20];
emacs_help_text[21] = help_text[21];
emacs_control_keys[0] = catgetlocal( 154, "^[ (escape) menu ^y search prompt ^k delete line ^p prev li ^g prev page");
emacs_control_keys[1] = catgetlocal( 155, "^o ascii code ^x search ^l undelete line ^n next li ^v next page");
emacs_control_keys[2] = catgetlocal( 156, "^u end of file ^a begin of line ^w delete word ^b back 1 char ");
emacs_control_keys[3] = catgetlocal( 157, "^t top of text ^e end of line ^r restore word ^f forward 1 char ");
emacs_control_keys[4] = catgetlocal( 158, "^c command ^d delete char ^j undelete char ^z next word ");
EMACS_string = catgetlocal( 159, "EMACS");
NOEMACS_string = catgetlocal( 160, "NOEMACS");
usage4 = catgetlocal( 161, " +# put cursor at line #\n");
commands[0] = HELP;
commands[1] = WRITE;
commands[2] = READ;
commands[3] = LINE;
commands[4] = FILE_str;
commands[5] = REDRAW;
commands[6] = RESEQUENCE;
commands[7] = AUTHOR;
commands[8] = VERSION;
commands[9] = CASE;
commands[10] = NOCASE;
commands[11] = EXPAND;
commands[12] = NOEXPAND;
commands[13] = Exit_string;
commands[14] = QUIT_string;
commands[15] = "<";
commands[16] = ">";
commands[17] = "!";
commands[18] = "0";
commands[19] = "1";
commands[20] = "2";
commands[21] = "3";
commands[22] = "4";
commands[23] = "5";
commands[24] = "6";
commands[25] = "7";
commands[26] = "8";
commands[27] = "9";
commands[28] = CHARACTER;
commands[29] = NULL;
init_strings[0] = CASE;
init_strings[1] = NOCASE;
init_strings[2] = EXPAND;
init_strings[3] = NOEXPAND;
init_strings[4] = INFO;
init_strings[5] = NOINFO;
init_strings[6] = MARGINS;
init_strings[7] = NOMARGINS;
init_strings[8] = AUTOFORMAT;
init_strings[9] = NOAUTOFORMAT;
init_strings[10] = Echo;
init_strings[11] = PRINTCOMMAND;
init_strings[12] = RIGHTMARGIN;
init_strings[13] = HIGHLIGHT;
init_strings[14] = NOHIGHLIGHT;
init_strings[15] = EIGHTBIT;
init_strings[16] = NOEIGHTBIT;
init_strings[17] = EMACS_string;
init_strings[18] = NOEMACS_string;
init_strings[19] = NULL;
/*
| allocate space for strings here for settings menu
*/
for (counter = 1; counter < NUM_MODES_ITEMS; counter++)
{
modes_menu[counter].item_string = malloc(80);
}
#ifndef NO_CATGETS
catclose(catalog);
#endif /* NO_CATGETS */
}