xref: /freebsd/contrib/ee/ee.c (revision 91517e3b8186d8fc161884fea27871f312ca8bea)
172fcea8cSEd Schouten /*
272fcea8cSEd Schouten  |	ee (easy editor)
372fcea8cSEd Schouten  |
472fcea8cSEd Schouten  |	An easy to use, simple screen oriented editor.
572fcea8cSEd Schouten  |
672fcea8cSEd Schouten  |	written by Hugh Mahon
772fcea8cSEd Schouten  |
872fcea8cSEd Schouten  |
996b676e9SEd Schouten  |      Copyright (c) 2009, Hugh Mahon
1096b676e9SEd Schouten  |      All rights reserved.
1172fcea8cSEd Schouten  |
1296b676e9SEd Schouten  |      Redistribution and use in source and binary forms, with or without
1396b676e9SEd Schouten  |      modification, are permitted provided that the following conditions
1496b676e9SEd Schouten  |      are met:
1572fcea8cSEd Schouten  |
1696b676e9SEd Schouten  |          * Redistributions of source code must retain the above copyright
1796b676e9SEd Schouten  |            notice, this list of conditions and the following disclaimer.
1896b676e9SEd Schouten  |          * Redistributions in binary form must reproduce the above
1996b676e9SEd Schouten  |            copyright notice, this list of conditions and the following
2096b676e9SEd Schouten  |            disclaimer in the documentation and/or other materials provided
2196b676e9SEd Schouten  |            with the distribution.
2296b676e9SEd Schouten  |
2396b676e9SEd Schouten  |      THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
2496b676e9SEd Schouten  |      "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
2596b676e9SEd Schouten  |      LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
2696b676e9SEd Schouten  |      FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
2796b676e9SEd Schouten  |      COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
2896b676e9SEd Schouten  |      INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
2996b676e9SEd Schouten  |      BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
3096b676e9SEd Schouten  |      LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
3196b676e9SEd Schouten  |      CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
3296b676e9SEd Schouten  |      LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
3396b676e9SEd Schouten  |      ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
3496b676e9SEd Schouten  |      POSSIBILITY OF SUCH DAMAGE.
3596b676e9SEd Schouten  |
3696b676e9SEd Schouten  |     -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
3772fcea8cSEd Schouten  |
3872fcea8cSEd Schouten  |	This editor was purposely developed to be simple, both in
3972fcea8cSEd Schouten  |	interface and implementation.  This editor was developed to
4072fcea8cSEd Schouten  |	address a specific audience: the user who is new to computers
4172fcea8cSEd Schouten  |	(especially UNIX).
4272fcea8cSEd Schouten  |
4372fcea8cSEd Schouten  |	ee is not aimed at technical users; for that reason more
4472fcea8cSEd Schouten  |	complex features were intentionally left out.  In addition,
4572fcea8cSEd Schouten  |	ee is intended to be compiled by people with little computer
4672fcea8cSEd Schouten  |	experience, which means that it needs to be small, relatively
4772fcea8cSEd Schouten  |	simple in implementation, and portable.
4872fcea8cSEd Schouten  |
4972fcea8cSEd Schouten  |	This software and documentation contains
5072fcea8cSEd Schouten  |	proprietary information which is protected by
5172fcea8cSEd Schouten  |	copyright.  All rights are reserved.
5272fcea8cSEd Schouten  |
537bf1ea96SEd Schouten  |	$Header: /home/hugh/sources/old_ae/RCS/ee.c,v 1.104 2010/06/04 01:55:31 hugh Exp hugh $
5472fcea8cSEd Schouten  |
5572fcea8cSEd Schouten  */
5672fcea8cSEd Schouten 
57cfe04e82SEd Schouten #include <sys/cdefs.h>
58cfe04e82SEd Schouten __FBSDID("$FreeBSD$");
59cfe04e82SEd Schouten 
6072fcea8cSEd Schouten char *ee_copyright_message =
6196b676e9SEd Schouten "Copyright (c) 1986, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 2009 Hugh Mahon ";
6272fcea8cSEd Schouten 
6396b676e9SEd Schouten #include "ee_version.h"
6472fcea8cSEd Schouten 
657bf1ea96SEd Schouten char *version = "@(#) ee, version "  EE_VERSION  " $Revision: 1.104 $";
6672fcea8cSEd Schouten 
6772fcea8cSEd Schouten #ifdef NCURSE
6872fcea8cSEd Schouten #include "new_curse.h"
69cfe04e82SEd Schouten #elif HAS_NCURSES
70cfe04e82SEd Schouten #include <ncurses.h>
7172fcea8cSEd Schouten #else
7272fcea8cSEd Schouten #include <curses.h>
7372fcea8cSEd Schouten #endif
7472fcea8cSEd Schouten 
7572fcea8cSEd Schouten #include <ctype.h>
76cfe04e82SEd Schouten #include <signal.h>
7796b676e9SEd Schouten #include <fcntl.h>
78cfe04e82SEd Schouten #include <sys/types.h>
79cfe04e82SEd Schouten #include <sys/stat.h>
8096b676e9SEd Schouten #include <errno.h>
8196b676e9SEd Schouten #include <string.h>
8296b676e9SEd Schouten #include <pwd.h>
83db07ef76SAndrey A. Chernov #include <locale.h>
8496b676e9SEd Schouten 
85cfe04e82SEd Schouten #ifdef HAS_SYS_WAIT
86cfe04e82SEd Schouten #include <sys/wait.h>
87cfe04e82SEd Schouten #endif
8896b676e9SEd Schouten 
89cfe04e82SEd Schouten #ifdef HAS_STDLIB
90cfe04e82SEd Schouten #include <stdlib.h>
91cfe04e82SEd Schouten #endif
9296b676e9SEd Schouten 
9396b676e9SEd Schouten #ifdef HAS_STDARG
9496b676e9SEd Schouten #include <stdarg.h>
9596b676e9SEd Schouten #endif
9696b676e9SEd Schouten 
97cfe04e82SEd Schouten #ifdef HAS_UNISTD
98cfe04e82SEd Schouten #include <unistd.h>
99cfe04e82SEd Schouten #endif
10072fcea8cSEd Schouten 
10172fcea8cSEd Schouten #ifndef NO_CATGETS
10272fcea8cSEd Schouten #include <nl_types.h>
10372fcea8cSEd Schouten 
10472fcea8cSEd Schouten nl_catd catalog;
10572fcea8cSEd Schouten #else
10672fcea8cSEd Schouten #define catgetlocal(a, b) (b)
10772fcea8cSEd Schouten #endif /* NO_CATGETS */
10872fcea8cSEd Schouten 
10972fcea8cSEd Schouten #ifndef SIGCHLD
11072fcea8cSEd Schouten #define SIGCHLD SIGCLD
11172fcea8cSEd Schouten #endif
11272fcea8cSEd Schouten 
11372fcea8cSEd Schouten #define TAB 9
11472fcea8cSEd Schouten #define max(a, b)	(a > b ? a : b)
11572fcea8cSEd Schouten #define min(a, b)	(a < b ? a : b)
11672fcea8cSEd Schouten 
11772fcea8cSEd Schouten /*
11872fcea8cSEd Schouten  |	defines for type of data to show in info window
11972fcea8cSEd Schouten  */
12072fcea8cSEd Schouten 
12172fcea8cSEd Schouten #define CONTROL_KEYS 1
12272fcea8cSEd Schouten #define COMMANDS     2
12372fcea8cSEd Schouten 
12472fcea8cSEd Schouten struct text {
12572fcea8cSEd Schouten 	unsigned char *line;		/* line of characters		*/
12672fcea8cSEd Schouten 	int line_number;		/* line number			*/
12772fcea8cSEd Schouten 	int line_length;	/* actual number of characters in the line */
12872fcea8cSEd Schouten 	int max_length;	/* maximum number of characters the line handles */
12972fcea8cSEd Schouten 	struct text *next_line;		/* next line of text		*/
13072fcea8cSEd Schouten 	struct text *prev_line;		/* previous line of text	*/
13172fcea8cSEd Schouten 	};
13272fcea8cSEd Schouten 
13372fcea8cSEd Schouten struct text *first_line;	/* first line of current buffer		*/
13472fcea8cSEd Schouten struct text *dlt_line;		/* structure for info on deleted line	*/
13572fcea8cSEd Schouten struct text *curr_line;		/* current line cursor is on		*/
13672fcea8cSEd Schouten struct text *tmp_line;		/* temporary line pointer		*/
13772fcea8cSEd Schouten struct text *srch_line;		/* temporary pointer for search routine */
13872fcea8cSEd Schouten 
13972fcea8cSEd Schouten struct files {		/* structure to store names of files to be edited*/
14072fcea8cSEd Schouten 	unsigned char *name;		/* name of file				*/
14172fcea8cSEd Schouten 	struct files *next_name;
14272fcea8cSEd Schouten 	};
14372fcea8cSEd Schouten 
14472fcea8cSEd Schouten struct files *top_of_stack = NULL;
14572fcea8cSEd Schouten 
14672fcea8cSEd Schouten int d_wrd_len;			/* length of deleted word		*/
14772fcea8cSEd Schouten int position;			/* offset in bytes from begin of line	*/
14872fcea8cSEd Schouten int scr_pos;			/* horizontal position			*/
14972fcea8cSEd Schouten int scr_vert;			/* vertical position on screen		*/
15072fcea8cSEd Schouten int scr_horz;			/* horizontal position on screen	*/
15196b676e9SEd Schouten int absolute_lin;		/* number of lines from top		*/
15272fcea8cSEd Schouten int tmp_vert, tmp_horz;
15372fcea8cSEd Schouten int input_file;			/* indicate to read input file		*/
15472fcea8cSEd Schouten int recv_file;			/* indicate reading a file		*/
15572fcea8cSEd Schouten int edit;			/* continue executing while true	*/
15672fcea8cSEd Schouten int gold;			/* 'gold' function key pressed		*/
15772fcea8cSEd Schouten int fildes;			/* file descriptor			*/
15872fcea8cSEd Schouten int case_sen;			/* case sensitive search flag		*/
15972fcea8cSEd Schouten int last_line;			/* last line for text display		*/
16072fcea8cSEd Schouten int last_col;			/* last column for text display		*/
16172fcea8cSEd Schouten int horiz_offset = 0;		/* offset from left edge of text	*/
16272fcea8cSEd Schouten int clear_com_win;		/* flag to indicate com_win needs clearing */
16372fcea8cSEd Schouten int text_changes = FALSE;	/* indicate changes have been made to text */
16472fcea8cSEd Schouten int get_fd;			/* file descriptor for reading a file	*/
16572fcea8cSEd Schouten int info_window = TRUE;		/* flag to indicate if help window visible */
16672fcea8cSEd Schouten int info_type = CONTROL_KEYS;	/* flag to indicate type of info to display */
16772fcea8cSEd Schouten int expand_tabs = TRUE;		/* flag for expanding tabs		*/
16872fcea8cSEd Schouten int right_margin = 0;		/* the right margin 			*/
16972fcea8cSEd Schouten int observ_margins = TRUE;	/* flag for whether margins are observed */
17072fcea8cSEd Schouten int shell_fork;
17172fcea8cSEd Schouten int temp_stdin;			/* temporary storage for stdin		*/
17272fcea8cSEd Schouten int temp_stdout;		/* temp storage for stdout descriptor	*/
17372fcea8cSEd Schouten int temp_stderr;		/* temp storage for stderr descriptor	*/
17472fcea8cSEd Schouten int pipe_out[2];		/* pipe file desc for output		*/
17572fcea8cSEd Schouten int pipe_in[2];			/* pipe file descriptors for input	*/
17672fcea8cSEd Schouten int out_pipe;			/* flag that info is piped out		*/
17772fcea8cSEd Schouten int in_pipe;			/* flag that info is piped in		*/
17872fcea8cSEd Schouten int formatted = FALSE;		/* flag indicating paragraph formatted	*/
17972fcea8cSEd Schouten int auto_format = FALSE;	/* flag for auto_format mode		*/
18072fcea8cSEd Schouten int restricted = FALSE;		/* flag to indicate restricted mode	*/
18172fcea8cSEd Schouten int nohighlight = FALSE;	/* turns off highlighting		*/
18272fcea8cSEd Schouten int eightbit = TRUE;		/* eight bit character flag		*/
18372fcea8cSEd Schouten int local_LINES = 0;		/* copy of LINES, to detect when win resizes */
18472fcea8cSEd Schouten int local_COLS = 0;		/* copy of COLS, to detect when win resizes  */
18572fcea8cSEd Schouten int curses_initialized = FALSE;	/* flag indicating if curses has been started*/
18672fcea8cSEd Schouten int emacs_keys_mode = FALSE;	/* mode for if emacs key binings are used    */
18772fcea8cSEd Schouten int ee_chinese = FALSE;		/* allows handling of multi-byte characters  */
18872fcea8cSEd Schouten 				/* by checking for high bit in a byte the    */
18972fcea8cSEd Schouten 				/* code recognizes a two-byte character      */
19072fcea8cSEd Schouten 				/* sequence				     */
19172fcea8cSEd Schouten 
19272fcea8cSEd Schouten unsigned char *point;		/* points to current position in line	*/
19372fcea8cSEd Schouten unsigned char *srch_str;	/* pointer for search string		*/
19472fcea8cSEd Schouten unsigned char *u_srch_str;	/* pointer to non-case sensitive search	*/
19572fcea8cSEd Schouten unsigned char *srch_1;		/* pointer to start of suspect string	*/
19672fcea8cSEd Schouten unsigned char *srch_2;		/* pointer to next character of string	*/
19772fcea8cSEd Schouten unsigned char *srch_3;
19872fcea8cSEd Schouten unsigned char *in_file_name = NULL;	/* name of input file		*/
19972fcea8cSEd Schouten char *tmp_file;	/* temporary file name			*/
20072fcea8cSEd Schouten unsigned char *d_char;		/* deleted character			*/
20172fcea8cSEd Schouten unsigned char *d_word;		/* deleted word				*/
20272fcea8cSEd Schouten unsigned char *d_line;		/* deleted line				*/
20372fcea8cSEd Schouten char in_string[513];	/* buffer for reading a file		*/
20496b676e9SEd Schouten unsigned char *print_command = (unsigned char *)"lpr";	/* string to use for the print command 	*/
20572fcea8cSEd Schouten unsigned char *start_at_line = NULL;	/* move to this line at start of session*/
20672fcea8cSEd Schouten int in;				/* input character			*/
20772fcea8cSEd Schouten 
20872fcea8cSEd Schouten FILE *temp_fp;			/* temporary file pointer		*/
20972fcea8cSEd Schouten FILE *bit_bucket;		/* file pointer to /dev/null		*/
21072fcea8cSEd Schouten 
21172fcea8cSEd Schouten char *table[] = {
21272fcea8cSEd Schouten 	"^@", "^A", "^B", "^C", "^D", "^E", "^F", "^G", "^H", "\t", "^J",
21372fcea8cSEd Schouten 	"^K", "^L", "^M", "^N", "^O", "^P", "^Q", "^R", "^S", "^T", "^U",
21472fcea8cSEd Schouten 	"^V", "^W", "^X", "^Y", "^Z", "^[", "^\\", "^]", "^^", "^_"
21572fcea8cSEd Schouten 	};
21672fcea8cSEd Schouten 
21772fcea8cSEd Schouten WINDOW *com_win;
21872fcea8cSEd Schouten WINDOW *text_win;
21972fcea8cSEd Schouten WINDOW *help_win;
22072fcea8cSEd Schouten WINDOW *info_win;
22172fcea8cSEd Schouten 
22272fcea8cSEd Schouten 
22372fcea8cSEd Schouten /*
22472fcea8cSEd Schouten  |	The following structure allows menu items to be flexibly declared.
22572fcea8cSEd Schouten  |	The first item is the string describing the selection, the second
22672fcea8cSEd Schouten  |	is the address of the procedure to call when the item is selected,
22772fcea8cSEd Schouten  |	and the third is the argument for the procedure.
22872fcea8cSEd Schouten  |
22972fcea8cSEd Schouten  |	For those systems with i18n, the string should be accompanied by a
23072fcea8cSEd Schouten  |	catalog number.  The 'int *' should be replaced with 'void *' on
23172fcea8cSEd Schouten  |	systems with that type.
23272fcea8cSEd Schouten  |
23372fcea8cSEd Schouten  |	The first menu item will be the title of the menu, with NULL
23472fcea8cSEd Schouten  |	parameters for the procedure and argument, followed by the menu items.
23572fcea8cSEd Schouten  |
23672fcea8cSEd Schouten  |	If the procedure value is NULL, the menu item is displayed, but no
23772fcea8cSEd Schouten  |	procedure is called when the item is selected.  The number of the
23872fcea8cSEd Schouten  |	item will be returned.  If the third (argument) parameter is -1, no
23972fcea8cSEd Schouten  |	argument is given to the procedure when it is called.
24072fcea8cSEd Schouten  */
24172fcea8cSEd Schouten 
24272fcea8cSEd Schouten struct menu_entries {
24372fcea8cSEd Schouten 	char *item_string;
24487cc8c6bSJohn Baldwin 	int (*procedure)(struct menu_entries *);
24572fcea8cSEd Schouten 	struct menu_entries *ptr_argument;
24687cc8c6bSJohn Baldwin 	int (*iprocedure)(int);
24787cc8c6bSJohn Baldwin 	void (*nprocedure)(void);
24872fcea8cSEd Schouten 	int argument;
24972fcea8cSEd Schouten 	};
25072fcea8cSEd Schouten 
25187cc8c6bSJohn Baldwin unsigned char *resiz_line(int factor, struct text *rline, int rpos);
25287cc8c6bSJohn Baldwin void insert(int character);
25387cc8c6bSJohn Baldwin void delete(int disp);
25487cc8c6bSJohn Baldwin void scanline(unsigned char *pos);
25587cc8c6bSJohn Baldwin int tabshift(int temp_int);
25687cc8c6bSJohn Baldwin int out_char(WINDOW *window, int character, int column);
25787cc8c6bSJohn Baldwin int len_char(int character, int column);
25887cc8c6bSJohn Baldwin void draw_line(int vertical, int horiz, unsigned char *ptr, int t_pos, int length);
25987cc8c6bSJohn Baldwin void insert_line(int disp);
26087cc8c6bSJohn Baldwin struct text *txtalloc(void);
26187cc8c6bSJohn Baldwin struct files *name_alloc(void);
26287cc8c6bSJohn Baldwin unsigned char *next_word(unsigned char *string);
26387cc8c6bSJohn Baldwin void prev_word(void);
26487cc8c6bSJohn Baldwin void control(void);
26587cc8c6bSJohn Baldwin void emacs_control(void);
26687cc8c6bSJohn Baldwin void bottom(void);
26787cc8c6bSJohn Baldwin void top(void);
26887cc8c6bSJohn Baldwin void nextline(void);
26987cc8c6bSJohn Baldwin void prevline(void);
27087cc8c6bSJohn Baldwin void left(int disp);
27187cc8c6bSJohn Baldwin void right(int disp);
27287cc8c6bSJohn Baldwin void find_pos(void);
27387cc8c6bSJohn Baldwin void up(void);
27487cc8c6bSJohn Baldwin void down(void);
27587cc8c6bSJohn Baldwin void function_key(void);
27687cc8c6bSJohn Baldwin void print_buffer(void);
27787cc8c6bSJohn Baldwin void command_prompt(void);
27887cc8c6bSJohn Baldwin void command(char *cmd_str1);
27987cc8c6bSJohn Baldwin int scan(char *line, int offset, int column);
28087cc8c6bSJohn Baldwin char *get_string(char *prompt, int advance);
28187cc8c6bSJohn Baldwin int compare(char *string1, char *string2, int sensitive);
28287cc8c6bSJohn Baldwin void goto_line(char *cmd_str);
28387cc8c6bSJohn Baldwin void midscreen(int line, unsigned char *pnt);
28487cc8c6bSJohn Baldwin void get_options(int numargs, char *arguments[]);
28587cc8c6bSJohn Baldwin void check_fp(void);
28687cc8c6bSJohn Baldwin void get_file(char *file_name);
28787cc8c6bSJohn Baldwin void get_line(int length, unsigned char *in_string, int *append);
28887cc8c6bSJohn Baldwin void draw_screen(void);
28987cc8c6bSJohn Baldwin void finish(void);
29087cc8c6bSJohn Baldwin int quit(int noverify);
29187cc8c6bSJohn Baldwin void edit_abort(int arg);
29287cc8c6bSJohn Baldwin void delete_text(void);
29387cc8c6bSJohn Baldwin int write_file(char *file_name, int warn_if_exists);
29487cc8c6bSJohn Baldwin int search(int display_message);
29587cc8c6bSJohn Baldwin void search_prompt(void);
29687cc8c6bSJohn Baldwin void del_char(void);
29787cc8c6bSJohn Baldwin void undel_char(void);
29887cc8c6bSJohn Baldwin void del_word(void);
29987cc8c6bSJohn Baldwin void undel_word(void);
30087cc8c6bSJohn Baldwin void del_line(void);
30187cc8c6bSJohn Baldwin void undel_line(void);
30287cc8c6bSJohn Baldwin void adv_word(void);
30387cc8c6bSJohn Baldwin void move_rel(int direction, int lines);
30487cc8c6bSJohn Baldwin void eol(void);
30587cc8c6bSJohn Baldwin void bol(void);
30687cc8c6bSJohn Baldwin void adv_line(void);
30787cc8c6bSJohn Baldwin void sh_command(char *string);
30887cc8c6bSJohn Baldwin void set_up_term(void);
30987cc8c6bSJohn Baldwin void resize_check(void);
31087cc8c6bSJohn Baldwin int menu_op(struct menu_entries *);
31187cc8c6bSJohn Baldwin void paint_menu(struct menu_entries menu_list[], int max_width, int max_height, int list_size, int top_offset, WINDOW *menu_win, int off_start, int vert_size);
31287cc8c6bSJohn Baldwin void help(void);
31387cc8c6bSJohn Baldwin void paint_info_win(void);
31487cc8c6bSJohn Baldwin void no_info_window(void);
31587cc8c6bSJohn Baldwin void create_info_window(void);
31687cc8c6bSJohn Baldwin int file_op(int arg);
31787cc8c6bSJohn Baldwin void shell_op(void);
31887cc8c6bSJohn Baldwin void leave_op(void);
31987cc8c6bSJohn Baldwin void redraw(void);
32087cc8c6bSJohn Baldwin int Blank_Line(struct text *test_line);
32187cc8c6bSJohn Baldwin void Format(void);
32287cc8c6bSJohn Baldwin void ee_init(void);
32387cc8c6bSJohn Baldwin void dump_ee_conf(void);
32487cc8c6bSJohn Baldwin void echo_string(char *string);
32587cc8c6bSJohn Baldwin void spell_op(void);
32687cc8c6bSJohn Baldwin void ispell_op(void);
32787cc8c6bSJohn Baldwin int first_word_len(struct text *test_line);
32887cc8c6bSJohn Baldwin void Auto_Format(void);
32987cc8c6bSJohn Baldwin void modes_op(void);
33087cc8c6bSJohn Baldwin char *is_in_string(char *string, char *substring);
33187cc8c6bSJohn Baldwin char *resolve_name(char *name);
33287cc8c6bSJohn Baldwin int restrict_mode(void);
33387cc8c6bSJohn Baldwin int unique_test(char *string, char *list[]);
33487cc8c6bSJohn Baldwin void strings_init(void);
33572fcea8cSEd Schouten 
33672fcea8cSEd Schouten #undef P_
33772fcea8cSEd Schouten /*
33872fcea8cSEd Schouten  |	allocate space here for the strings that will be in the menu
33972fcea8cSEd Schouten  */
34072fcea8cSEd Schouten 
34172fcea8cSEd Schouten struct menu_entries modes_menu[] = {
34272fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, 0}, 	/* title		*/
34372fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 1. tabs to spaces	*/
34472fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 2. case sensitive search*/
34572fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 3. margins observed	*/
34672fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 4. auto-paragraph	*/
34772fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 5. eightbit characters*/
34872fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 6. info window	*/
34972fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 7. emacs key bindings*/
35072fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 8. right margin	*/
35172fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1}, 	/* 9. chinese text	*/
35272fcea8cSEd Schouten 	{"", NULL, NULL, NULL, dump_ee_conf, -1}, /* 10. save editor config */
35372fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}	/* terminator		*/
35472fcea8cSEd Schouten 	};
35572fcea8cSEd Schouten 
35672fcea8cSEd Schouten char *mode_strings[11];
35772fcea8cSEd Schouten 
35872fcea8cSEd Schouten #define NUM_MODES_ITEMS 10
35972fcea8cSEd Schouten 
36072fcea8cSEd Schouten struct menu_entries config_dump_menu[] = {
36172fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, 0},
36272fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
36372fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
36472fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
36572fcea8cSEd Schouten 	};
36672fcea8cSEd Schouten 
36772fcea8cSEd Schouten struct menu_entries leave_menu[] = {
36872fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
36972fcea8cSEd Schouten 	{"", NULL, NULL, NULL, finish, -1},
37072fcea8cSEd Schouten 	{"", NULL, NULL, quit, NULL, TRUE},
37172fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
37272fcea8cSEd Schouten 	};
37372fcea8cSEd Schouten 
37472fcea8cSEd Schouten #define READ_FILE 1
37572fcea8cSEd Schouten #define WRITE_FILE 2
37672fcea8cSEd Schouten #define SAVE_FILE 3
37772fcea8cSEd Schouten 
37872fcea8cSEd Schouten struct menu_entries file_menu[] = {
37972fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
38072fcea8cSEd Schouten 	{"", NULL, NULL, file_op, NULL, READ_FILE},
38172fcea8cSEd Schouten 	{"", NULL, NULL, file_op, NULL, WRITE_FILE},
38272fcea8cSEd Schouten 	{"", NULL, NULL, file_op, NULL, SAVE_FILE},
38372fcea8cSEd Schouten 	{"", NULL, NULL, NULL, print_buffer, -1},
38472fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
38572fcea8cSEd Schouten 	};
38672fcea8cSEd Schouten 
38772fcea8cSEd Schouten struct menu_entries search_menu[] = {
38872fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, 0},
38972fcea8cSEd Schouten 	{"", NULL, NULL, NULL, search_prompt, -1},
39072fcea8cSEd Schouten 	{"", NULL, NULL, search, NULL, TRUE},
39172fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
39272fcea8cSEd Schouten 	};
39372fcea8cSEd Schouten 
39472fcea8cSEd Schouten struct menu_entries spell_menu[] = {
39572fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
39672fcea8cSEd Schouten 	{"", NULL, NULL, NULL, spell_op, -1},
39772fcea8cSEd Schouten 	{"", NULL, NULL, NULL, ispell_op, -1},
39872fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
39972fcea8cSEd Schouten 	};
40072fcea8cSEd Schouten 
40172fcea8cSEd Schouten struct menu_entries misc_menu[] = {
40272fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
40372fcea8cSEd Schouten 	{"", NULL, NULL, NULL, Format, -1},
40472fcea8cSEd Schouten 	{"", NULL, NULL, NULL, shell_op, -1},
40572fcea8cSEd Schouten 	{"", menu_op, spell_menu, NULL, NULL, -1},
40672fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
40772fcea8cSEd Schouten 	};
40872fcea8cSEd Schouten 
40972fcea8cSEd Schouten struct menu_entries main_menu[] = {
41072fcea8cSEd Schouten 	{"", NULL, NULL, NULL, NULL, -1},
41172fcea8cSEd Schouten 	{"", NULL, NULL, NULL, leave_op, -1},
41272fcea8cSEd Schouten 	{"", NULL, NULL, NULL, help, -1},
41372fcea8cSEd Schouten 	{"", menu_op, file_menu, NULL, NULL, -1},
41472fcea8cSEd Schouten 	{"", NULL, NULL, NULL, redraw, -1},
41572fcea8cSEd Schouten 	{"", NULL, NULL, NULL, modes_op, -1},
41672fcea8cSEd Schouten 	{"", menu_op, search_menu, NULL, NULL, -1},
41772fcea8cSEd Schouten 	{"", menu_op, misc_menu, NULL, NULL, -1},
41872fcea8cSEd Schouten 	{NULL, NULL, NULL, NULL, NULL, -1}
41972fcea8cSEd Schouten 	};
42072fcea8cSEd Schouten 
42172fcea8cSEd Schouten char *help_text[23];
42272fcea8cSEd Schouten char *control_keys[5];
42372fcea8cSEd Schouten 
42472fcea8cSEd Schouten char *emacs_help_text[22];
42572fcea8cSEd Schouten char *emacs_control_keys[5];
42672fcea8cSEd Schouten 
42772fcea8cSEd Schouten char *command_strings[5];
42872fcea8cSEd Schouten char *commands[32];
42972fcea8cSEd Schouten char *init_strings[22];
43072fcea8cSEd Schouten 
43172fcea8cSEd Schouten #define MENU_WARN 1
43272fcea8cSEd Schouten 
43372fcea8cSEd Schouten #define max_alpha_char 36
43472fcea8cSEd Schouten 
43572fcea8cSEd Schouten /*
43672fcea8cSEd Schouten  |	Declarations for strings for localization
43772fcea8cSEd Schouten  */
43872fcea8cSEd Schouten 
43972fcea8cSEd Schouten char *com_win_message;		/* to be shown in com_win if no info window */
44072fcea8cSEd Schouten char *no_file_string;
44172fcea8cSEd Schouten char *ascii_code_str;
44272fcea8cSEd Schouten char *printer_msg_str;
44372fcea8cSEd Schouten char *command_str;
44472fcea8cSEd Schouten char *file_write_prompt_str;
44572fcea8cSEd Schouten char *file_read_prompt_str;
44672fcea8cSEd Schouten char *char_str;
44772fcea8cSEd Schouten char *unkn_cmd_str;
44872fcea8cSEd Schouten char *non_unique_cmd_msg;
44972fcea8cSEd Schouten char *line_num_str;
45072fcea8cSEd Schouten char *line_len_str;
45172fcea8cSEd Schouten char *current_file_str;
45272fcea8cSEd Schouten char *usage0;
45372fcea8cSEd Schouten char *usage1;
45472fcea8cSEd Schouten char *usage2;
45572fcea8cSEd Schouten char *usage3;
45672fcea8cSEd Schouten char *usage4;
45772fcea8cSEd Schouten char *file_is_dir_msg;
45872fcea8cSEd Schouten char *new_file_msg;
45972fcea8cSEd Schouten char *cant_open_msg;
46072fcea8cSEd Schouten char *open_file_msg;
46172fcea8cSEd Schouten char *file_read_fin_msg;
46272fcea8cSEd Schouten char *reading_file_msg;
46372fcea8cSEd Schouten char *read_only_msg;
46472fcea8cSEd Schouten char *file_read_lines_msg;
46572fcea8cSEd Schouten char *save_file_name_prompt;
46672fcea8cSEd Schouten char *file_not_saved_msg;
46772fcea8cSEd Schouten char *changes_made_prompt;
46872fcea8cSEd Schouten char *yes_char;
46972fcea8cSEd Schouten char *file_exists_prompt;
47072fcea8cSEd Schouten char *create_file_fail_msg;
47172fcea8cSEd Schouten char *writing_file_msg;
47272fcea8cSEd Schouten char *file_written_msg;
47372fcea8cSEd Schouten char *searching_msg;
47472fcea8cSEd Schouten char *str_not_found_msg;
47572fcea8cSEd Schouten char *search_prompt_str;
47672fcea8cSEd Schouten char *exec_err_msg;
47772fcea8cSEd Schouten char *continue_msg;
47872fcea8cSEd Schouten char *menu_cancel_msg;
47972fcea8cSEd Schouten char *menu_size_err_msg;
48072fcea8cSEd Schouten char *press_any_key_msg;
48172fcea8cSEd Schouten char *shell_prompt;
48272fcea8cSEd Schouten char *formatting_msg;
48372fcea8cSEd Schouten char *shell_echo_msg;
48472fcea8cSEd Schouten char *spell_in_prog_msg;
48572fcea8cSEd Schouten char *margin_prompt;
48672fcea8cSEd Schouten char *restricted_msg;
48772fcea8cSEd Schouten char *ON;
48872fcea8cSEd Schouten char *OFF;
48972fcea8cSEd Schouten char *HELP;
49072fcea8cSEd Schouten char *WRITE;
49172fcea8cSEd Schouten char *READ;
49272fcea8cSEd Schouten char *LINE;
49372fcea8cSEd Schouten char *FILE_str;
49472fcea8cSEd Schouten char *CHARACTER;
49572fcea8cSEd Schouten char *REDRAW;
49672fcea8cSEd Schouten char *RESEQUENCE;
49772fcea8cSEd Schouten char *AUTHOR;
49872fcea8cSEd Schouten char *VERSION;
49972fcea8cSEd Schouten char *CASE;
50072fcea8cSEd Schouten char *NOCASE;
50172fcea8cSEd Schouten char *EXPAND;
50272fcea8cSEd Schouten char *NOEXPAND;
50372fcea8cSEd Schouten char *Exit_string;
50472fcea8cSEd Schouten char *QUIT_string;
50572fcea8cSEd Schouten char *INFO;
50672fcea8cSEd Schouten char *NOINFO;
50772fcea8cSEd Schouten char *MARGINS;
50872fcea8cSEd Schouten char *NOMARGINS;
50972fcea8cSEd Schouten char *AUTOFORMAT;
51072fcea8cSEd Schouten char *NOAUTOFORMAT;
51172fcea8cSEd Schouten char *Echo;
51272fcea8cSEd Schouten char *PRINTCOMMAND;
51372fcea8cSEd Schouten char *RIGHTMARGIN;
51472fcea8cSEd Schouten char *HIGHLIGHT;
51572fcea8cSEd Schouten char *NOHIGHLIGHT;
51672fcea8cSEd Schouten char *EIGHTBIT;
51772fcea8cSEd Schouten char *NOEIGHTBIT;
51872fcea8cSEd Schouten char *EMACS_string;
51972fcea8cSEd Schouten char *NOEMACS_string;
52072fcea8cSEd Schouten char *conf_dump_err_msg;
52172fcea8cSEd Schouten char *conf_dump_success_msg;
52272fcea8cSEd Schouten char *conf_not_saved_msg;
52372fcea8cSEd Schouten char *ree_no_file_msg;
52472fcea8cSEd Schouten char *cancel_string;
52572fcea8cSEd Schouten char *menu_too_lrg_msg;
52672fcea8cSEd Schouten char *more_above_str, *more_below_str;
52796b676e9SEd Schouten char *separator = "===============================================================================";
52872fcea8cSEd Schouten 
52972fcea8cSEd Schouten char *chinese_cmd, *nochinese_cmd;
53072fcea8cSEd Schouten 
53196b676e9SEd Schouten #ifndef __STDC__
53296b676e9SEd Schouten #ifndef HAS_STDLIB
53396b676e9SEd Schouten extern char *malloc();
53496b676e9SEd Schouten extern char *realloc();
53596b676e9SEd Schouten extern char *getenv();
53696b676e9SEd Schouten FILE *fopen();			/* declaration for open function	*/
53796b676e9SEd Schouten #endif /* HAS_STDLIB */
53896b676e9SEd Schouten #endif /* __STDC__ */
53972fcea8cSEd Schouten 
540*91517e3bSJohn Baldwin /* beginning of main program		*/
54172fcea8cSEd Schouten int
542*91517e3bSJohn Baldwin main(int argc, char *argv[])
54372fcea8cSEd Schouten {
54496b676e9SEd Schouten 	int counter;
54596b676e9SEd Schouten 
54696b676e9SEd Schouten 	for (counter = 1; counter < 24; counter++)
54796b676e9SEd Schouten 		signal(counter, SIG_IGN);
54872fcea8cSEd Schouten 
5490cb61a32SYuri Pankov 	/* Always read from (and write to) a terminal. */
5500cb61a32SYuri Pankov 	if (!isatty(STDIN_FILENO) || !isatty(STDOUT_FILENO)) {
5510cb61a32SYuri Pankov 		fprintf(stderr,
5520cb61a32SYuri Pankov 		    "ee's standard input and output must be a terminal\n");
5530cb61a32SYuri Pankov 		exit(1);
5540cb61a32SYuri Pankov 	}
5550cb61a32SYuri Pankov 
55672fcea8cSEd Schouten 	signal(SIGCHLD, SIG_DFL);
55772fcea8cSEd Schouten 	signal(SIGSEGV, SIG_DFL);
55872fcea8cSEd Schouten 	signal(SIGINT, edit_abort);
55972fcea8cSEd Schouten 	d_char = malloc(3);	/* provide a buffer for multi-byte chars */
56072fcea8cSEd Schouten 	d_word = malloc(150);
56196b676e9SEd Schouten 	*d_word = '\0';
56272fcea8cSEd Schouten 	d_line = NULL;
56372fcea8cSEd Schouten 	dlt_line = txtalloc();
56472fcea8cSEd Schouten 	dlt_line->line = d_line;
56572fcea8cSEd Schouten 	dlt_line->line_length = 0;
56672fcea8cSEd Schouten 	curr_line = first_line = txtalloc();
56772fcea8cSEd Schouten 	curr_line->line = point = malloc(10);
56872fcea8cSEd Schouten 	curr_line->line_length = 1;
56972fcea8cSEd Schouten 	curr_line->max_length = 10;
57072fcea8cSEd Schouten 	curr_line->prev_line = NULL;
57172fcea8cSEd Schouten 	curr_line->next_line = NULL;
57272fcea8cSEd Schouten 	curr_line->line_number  = 1;
57372fcea8cSEd Schouten 	srch_str = NULL;
57472fcea8cSEd Schouten 	u_srch_str = NULL;
57572fcea8cSEd Schouten 	position = 1;
57672fcea8cSEd Schouten 	scr_pos =0;
57772fcea8cSEd Schouten 	scr_vert = 0;
57872fcea8cSEd Schouten 	scr_horz = 0;
57996b676e9SEd Schouten 	absolute_lin = 1;
58096b676e9SEd Schouten 	bit_bucket = fopen("/dev/null", "w");
58172fcea8cSEd Schouten 	edit = TRUE;
58272fcea8cSEd Schouten 	gold = case_sen = FALSE;
58372fcea8cSEd Schouten 	shell_fork = TRUE;
58472fcea8cSEd Schouten 	strings_init();
58572fcea8cSEd Schouten 	ee_init();
58672fcea8cSEd Schouten 	if (argc > 0 )
58772fcea8cSEd Schouten 		get_options(argc, argv);
58872fcea8cSEd Schouten 	set_up_term();
58972fcea8cSEd Schouten 	if (right_margin == 0)
59072fcea8cSEd Schouten 		right_margin = COLS - 1;
59172fcea8cSEd Schouten 	if (top_of_stack == NULL)
59272fcea8cSEd Schouten 	{
59372fcea8cSEd Schouten 		if (restrict_mode())
59472fcea8cSEd Schouten 		{
59572fcea8cSEd Schouten 			wmove(com_win, 0, 0);
59672fcea8cSEd Schouten 			werase(com_win);
59772fcea8cSEd Schouten 			wprintw(com_win, ree_no_file_msg);
59872fcea8cSEd Schouten 			wrefresh(com_win);
59972fcea8cSEd Schouten 			edit_abort(0);
60072fcea8cSEd Schouten 		}
60172fcea8cSEd Schouten 		wprintw(com_win, no_file_string);
60272fcea8cSEd Schouten 		wrefresh(com_win);
60372fcea8cSEd Schouten 	}
60472fcea8cSEd Schouten 	else
60572fcea8cSEd Schouten 		check_fp();
60672fcea8cSEd Schouten 
60772fcea8cSEd Schouten 	clear_com_win = TRUE;
60872fcea8cSEd Schouten 
60996b676e9SEd Schouten 	counter = 0;
61096b676e9SEd Schouten 
61172fcea8cSEd Schouten 	while(edit)
61272fcea8cSEd Schouten 	{
61396b676e9SEd Schouten 		/*
61496b676e9SEd Schouten 		 |  display line and column information
61596b676e9SEd Schouten 		 */
616cfe04e82SEd Schouten 		if (info_window)
617cfe04e82SEd Schouten 		{
618cfe04e82SEd Schouten 			if (!nohighlight)
61996b676e9SEd Schouten 				wstandout(info_win);
62096b676e9SEd Schouten 			wmove(info_win, 5, 0);
62196b676e9SEd Schouten 			wprintw(info_win, separator);
62296b676e9SEd Schouten 			wmove(info_win, 5, 5);
62396b676e9SEd Schouten 			wprintw(info_win, "line %d col %d lines from top %d ",
62496b676e9SEd Schouten 			          curr_line->line_number, scr_horz, absolute_lin);
62596b676e9SEd Schouten 			wstandend(info_win);
62696b676e9SEd Schouten 			wrefresh(info_win);
627cfe04e82SEd Schouten 		}
628cfe04e82SEd Schouten 
62996b676e9SEd Schouten 		wrefresh(text_win);
63072fcea8cSEd Schouten 		in = wgetch(text_win);
63172fcea8cSEd Schouten 		if (in == -1)
63296b676e9SEd Schouten 			exit(0);  /* without this exit ee will go into an
63396b676e9SEd Schouten 			             infinite loop if the network
63496b676e9SEd Schouten 			             session detaches */
63572fcea8cSEd Schouten 
63672fcea8cSEd Schouten 		resize_check();
63772fcea8cSEd Schouten 
63872fcea8cSEd Schouten 		if (clear_com_win)
63972fcea8cSEd Schouten 		{
64072fcea8cSEd Schouten 			clear_com_win = FALSE;
64172fcea8cSEd Schouten 			wmove(com_win, 0, 0);
64272fcea8cSEd Schouten 			werase(com_win);
64372fcea8cSEd Schouten 			if (!info_window)
64472fcea8cSEd Schouten 			{
64572fcea8cSEd Schouten 				wprintw(com_win, "%s", com_win_message);
64672fcea8cSEd Schouten 			}
64772fcea8cSEd Schouten 			wrefresh(com_win);
64872fcea8cSEd Schouten 		}
64972fcea8cSEd Schouten 
65072fcea8cSEd Schouten 		if (in > 255)
65172fcea8cSEd Schouten 			function_key();
65272fcea8cSEd Schouten 		else if ((in == '\10') || (in == 127))
65372fcea8cSEd Schouten 		{
65472fcea8cSEd Schouten 			in = 8;		/* make sure key is set to backspace */
65572fcea8cSEd Schouten 			delete(TRUE);
65672fcea8cSEd Schouten 		}
65772fcea8cSEd Schouten 		else if ((in > 31) || (in == 9))
65872fcea8cSEd Schouten 			insert(in);
65972fcea8cSEd Schouten 		else if ((in >= 0) && (in <= 31))
66072fcea8cSEd Schouten 		{
66172fcea8cSEd Schouten 			if (emacs_keys_mode)
66272fcea8cSEd Schouten 				emacs_control();
66372fcea8cSEd Schouten 			else
66472fcea8cSEd Schouten 				control();
66572fcea8cSEd Schouten 		}
66672fcea8cSEd Schouten 	}
66772fcea8cSEd Schouten 	return(0);
66872fcea8cSEd Schouten }
66972fcea8cSEd Schouten 
670*91517e3bSJohn Baldwin /* resize the line to length + factor*/
67172fcea8cSEd Schouten unsigned char *
672*91517e3bSJohn Baldwin resiz_line(int factor, struct text *rline, int rpos)
67372fcea8cSEd Schouten {
67472fcea8cSEd Schouten 	unsigned char *rpoint;
67572fcea8cSEd Schouten 	int resiz_var;
67672fcea8cSEd Schouten 
67772fcea8cSEd Schouten 	rline->max_length += factor;
67872fcea8cSEd Schouten 	rpoint = rline->line = realloc(rline->line, rline->max_length );
67972fcea8cSEd Schouten 	for (resiz_var = 1 ; (resiz_var < rpos) ; resiz_var++)
68072fcea8cSEd Schouten 		rpoint++;
68172fcea8cSEd Schouten 	return(rpoint);
68272fcea8cSEd Schouten }
68372fcea8cSEd Schouten 
684*91517e3bSJohn Baldwin /* insert character into line		*/
68572fcea8cSEd Schouten void
686*91517e3bSJohn Baldwin insert(int character)
68772fcea8cSEd Schouten {
68872fcea8cSEd Schouten 	int counter;
68972fcea8cSEd Schouten 	int value;
69072fcea8cSEd Schouten 	unsigned char *temp;	/* temporary pointer			*/
69172fcea8cSEd Schouten 	unsigned char *temp2;	/* temporary pointer			*/
69272fcea8cSEd Schouten 
69372fcea8cSEd Schouten 	if ((character == '\011') && (expand_tabs))
69472fcea8cSEd Schouten 	{
69572fcea8cSEd Schouten 		counter = len_char('\011', scr_horz);
69672fcea8cSEd Schouten 		for (; counter > 0; counter--)
69772fcea8cSEd Schouten 			insert(' ');
69872fcea8cSEd Schouten 		if (auto_format)
69972fcea8cSEd Schouten 			Auto_Format();
70072fcea8cSEd Schouten 		return;
70172fcea8cSEd Schouten 	}
70272fcea8cSEd Schouten 	text_changes = TRUE;
70372fcea8cSEd Schouten 	if ((curr_line->max_length - curr_line->line_length) < 5)
70472fcea8cSEd Schouten 		point = resiz_line(10, curr_line, position);
70572fcea8cSEd Schouten 	curr_line->line_length++;
70672fcea8cSEd Schouten 	temp = point;
70772fcea8cSEd Schouten 	counter = position;
70872fcea8cSEd Schouten 	while (counter < curr_line->line_length)	/* find end of line */
70972fcea8cSEd Schouten 	{
71072fcea8cSEd Schouten 		counter++;
71172fcea8cSEd Schouten 		temp++;
71272fcea8cSEd Schouten 	}
71372fcea8cSEd Schouten 	temp++;			/* increase length of line by one	*/
71472fcea8cSEd Schouten 	while (point < temp)
71572fcea8cSEd Schouten 	{
71672fcea8cSEd Schouten 		temp2=temp - 1;
71772fcea8cSEd Schouten 		*temp= *temp2;	/* shift characters over by one		*/
71872fcea8cSEd Schouten 		temp--;
71972fcea8cSEd Schouten 	}
72072fcea8cSEd Schouten 	*point = character;	/* insert new character			*/
72172fcea8cSEd Schouten 	wclrtoeol(text_win);
722f39e07f3SAndrey A. Chernov 	if (!isprint((unsigned char)character)) /* check for TAB character*/
72372fcea8cSEd Schouten 	{
72472fcea8cSEd Schouten 		scr_pos = scr_horz += out_char(text_win, character, scr_horz);
72572fcea8cSEd Schouten 		point++;
72672fcea8cSEd Schouten 		position++;
72772fcea8cSEd Schouten 	}
72872fcea8cSEd Schouten 	else
72972fcea8cSEd Schouten 	{
730f39e07f3SAndrey A. Chernov 		waddch(text_win, (unsigned char)character);
73172fcea8cSEd Schouten 		scr_pos = ++scr_horz;
73272fcea8cSEd Schouten 		point++;
73372fcea8cSEd Schouten 		position ++;
73472fcea8cSEd Schouten 	}
73572fcea8cSEd Schouten 
73672fcea8cSEd Schouten 	if ((observ_margins) && (right_margin < scr_pos))
73772fcea8cSEd Schouten 	{
73872fcea8cSEd Schouten 		counter = position;
73972fcea8cSEd Schouten 		while (scr_pos > right_margin)
74072fcea8cSEd Schouten 			prev_word();
74172fcea8cSEd Schouten 		if (scr_pos == 0)
74272fcea8cSEd Schouten 		{
74372fcea8cSEd Schouten 			while (position < counter)
74472fcea8cSEd Schouten 				right(TRUE);
74572fcea8cSEd Schouten 		}
74672fcea8cSEd Schouten 		else
74772fcea8cSEd Schouten 		{
74872fcea8cSEd Schouten 			counter -= position;
74972fcea8cSEd Schouten 			insert_line(TRUE);
75072fcea8cSEd Schouten 			for (value = 0; value < counter; value++)
75172fcea8cSEd Schouten 				right(TRUE);
75272fcea8cSEd Schouten 		}
75372fcea8cSEd Schouten 	}
75472fcea8cSEd Schouten 
75572fcea8cSEd Schouten 	if ((scr_horz - horiz_offset) > last_col)
75672fcea8cSEd Schouten 	{
75772fcea8cSEd Schouten 		horiz_offset += 8;
75872fcea8cSEd Schouten 		midscreen(scr_vert, point);
75972fcea8cSEd Schouten 	}
76072fcea8cSEd Schouten 
76172fcea8cSEd Schouten 	if ((auto_format) && (character == ' ') && (!formatted))
76272fcea8cSEd Schouten 		Auto_Format();
76372fcea8cSEd Schouten 	else if ((character != ' ') && (character != '\t'))
76472fcea8cSEd Schouten 		formatted = FALSE;
76572fcea8cSEd Schouten 
76672fcea8cSEd Schouten 	draw_line(scr_vert, scr_horz, point, position, curr_line->line_length);
76772fcea8cSEd Schouten }
76872fcea8cSEd Schouten 
769*91517e3bSJohn Baldwin /* delete character		*/
77072fcea8cSEd Schouten void
771*91517e3bSJohn Baldwin delete(int disp)
77272fcea8cSEd Schouten {
77372fcea8cSEd Schouten 	unsigned char *tp;
77472fcea8cSEd Schouten 	unsigned char *temp2;
77572fcea8cSEd Schouten 	struct text *temp_buff;
77672fcea8cSEd Schouten 	int temp_vert;
77772fcea8cSEd Schouten 	int temp_pos;
77872fcea8cSEd Schouten 	int del_width = 1;
77972fcea8cSEd Schouten 
78072fcea8cSEd Schouten 	if (point != curr_line->line)	/* if not at beginning of line	*/
78172fcea8cSEd Schouten 	{
78272fcea8cSEd Schouten 		text_changes = TRUE;
78372fcea8cSEd Schouten 		temp2 = tp = point;
78472fcea8cSEd Schouten 		if ((ee_chinese) && (position >= 2) && (*(point - 2) > 127))
78572fcea8cSEd Schouten 		{
78672fcea8cSEd Schouten 			del_width = 2;
78772fcea8cSEd Schouten 		}
78872fcea8cSEd Schouten 		tp -= del_width;
78972fcea8cSEd Schouten 		point -= del_width;
79072fcea8cSEd Schouten 		position -= del_width;
79172fcea8cSEd Schouten 		temp_pos = position;
79272fcea8cSEd Schouten 		curr_line->line_length -= del_width;
79372fcea8cSEd Schouten 		if ((*tp < ' ') || (*tp >= 127))	/* check for TAB */
79472fcea8cSEd Schouten 			scanline(tp);
79572fcea8cSEd Schouten 		else
79672fcea8cSEd Schouten 			scr_horz -= del_width;
79772fcea8cSEd Schouten 		scr_pos = scr_horz;
79872fcea8cSEd Schouten 		if (in == 8)
79972fcea8cSEd Schouten 		{
80072fcea8cSEd Schouten 			if (del_width == 1)
80172fcea8cSEd Schouten 				*d_char = *point; /* save deleted character  */
80272fcea8cSEd Schouten 			else
80372fcea8cSEd Schouten 			{
80472fcea8cSEd Schouten 				d_char[0] = *point;
80572fcea8cSEd Schouten 				d_char[1] = *(point + 1);
80672fcea8cSEd Schouten 			}
80796b676e9SEd Schouten 			d_char[del_width] = '\0';
80872fcea8cSEd Schouten 		}
80972fcea8cSEd Schouten 		while (temp_pos <= curr_line->line_length)
81072fcea8cSEd Schouten 		{
81172fcea8cSEd Schouten 			temp_pos++;
81272fcea8cSEd Schouten 			*tp = *temp2;
81372fcea8cSEd Schouten 			tp++;
81472fcea8cSEd Schouten 			temp2++;
81572fcea8cSEd Schouten 		}
8167bf1ea96SEd Schouten 		if ((scr_horz < horiz_offset) && (horiz_offset > 0))
81772fcea8cSEd Schouten 		{
81872fcea8cSEd Schouten 			horiz_offset -= 8;
81972fcea8cSEd Schouten 			midscreen(scr_vert, point);
82072fcea8cSEd Schouten 		}
82172fcea8cSEd Schouten 	}
82272fcea8cSEd Schouten 	else if (curr_line->prev_line != NULL)
82372fcea8cSEd Schouten 	{
82472fcea8cSEd Schouten 		text_changes = TRUE;
82572fcea8cSEd Schouten 		left(disp);			/* go to previous line	*/
82672fcea8cSEd Schouten 		temp_buff = curr_line->next_line;
82772fcea8cSEd Schouten 		point = resiz_line(temp_buff->line_length, curr_line, position);
82872fcea8cSEd Schouten 		if (temp_buff->next_line != NULL)
82972fcea8cSEd Schouten 			temp_buff->next_line->prev_line = curr_line;
83072fcea8cSEd Schouten 		curr_line->next_line = temp_buff->next_line;
83172fcea8cSEd Schouten 		temp2 = temp_buff->line;
83272fcea8cSEd Schouten 		if (in == 8)
83372fcea8cSEd Schouten 		{
83472fcea8cSEd Schouten 			d_char[0] = '\n';
83596b676e9SEd Schouten 			d_char[1] = '\0';
83672fcea8cSEd Schouten 		}
83772fcea8cSEd Schouten 		tp = point;
83872fcea8cSEd Schouten 		temp_pos = 1;
83972fcea8cSEd Schouten 		while (temp_pos < temp_buff->line_length)
84072fcea8cSEd Schouten 		{
84172fcea8cSEd Schouten 			curr_line->line_length++;
84272fcea8cSEd Schouten 			temp_pos++;
84372fcea8cSEd Schouten 			*tp = *temp2;
84472fcea8cSEd Schouten 			tp++;
84572fcea8cSEd Schouten 			temp2++;
84672fcea8cSEd Schouten 		}
84796b676e9SEd Schouten 		*tp = '\0';
84872fcea8cSEd Schouten 		free(temp_buff->line);
84972fcea8cSEd Schouten 		free(temp_buff);
85072fcea8cSEd Schouten 		temp_buff = curr_line;
85172fcea8cSEd Schouten 		temp_vert = scr_vert;
85272fcea8cSEd Schouten 		scr_pos = scr_horz;
85372fcea8cSEd Schouten 		if (scr_vert < last_line)
85472fcea8cSEd Schouten 		{
85572fcea8cSEd Schouten 			wmove(text_win, scr_vert + 1, 0);
85672fcea8cSEd Schouten 			wdeleteln(text_win);
85772fcea8cSEd Schouten 		}
85872fcea8cSEd Schouten 		while ((temp_buff != NULL) && (temp_vert < last_line))
85972fcea8cSEd Schouten 		{
86072fcea8cSEd Schouten 			temp_buff = temp_buff->next_line;
86172fcea8cSEd Schouten 			temp_vert++;
86272fcea8cSEd Schouten 		}
86372fcea8cSEd Schouten 		if ((temp_vert == last_line) && (temp_buff != NULL))
86472fcea8cSEd Schouten 		{
86572fcea8cSEd Schouten 			tp = temp_buff->line;
86672fcea8cSEd Schouten 			wmove(text_win, last_line,0);
86772fcea8cSEd Schouten 			wclrtobot(text_win);
86872fcea8cSEd Schouten 			draw_line(last_line, 0, tp, 1, temp_buff->line_length);
86972fcea8cSEd Schouten 			wmove(text_win, scr_vert, (scr_horz - horiz_offset));
87072fcea8cSEd Schouten 		}
87172fcea8cSEd Schouten 	}
87272fcea8cSEd Schouten 	draw_line(scr_vert, scr_horz, point, position, curr_line->line_length);
87372fcea8cSEd Schouten 	formatted = FALSE;
87472fcea8cSEd Schouten }
87572fcea8cSEd Schouten 
876*91517e3bSJohn Baldwin /* find the proper horizontal position for the pointer	*/
87772fcea8cSEd Schouten void
878*91517e3bSJohn Baldwin scanline(unsigned char *pos)
87972fcea8cSEd Schouten {
88072fcea8cSEd Schouten 	int temp;
88172fcea8cSEd Schouten 	unsigned char *ptr;
88272fcea8cSEd Schouten 
88372fcea8cSEd Schouten 	ptr = curr_line->line;
88472fcea8cSEd Schouten 	temp = 0;
88572fcea8cSEd Schouten 	while (ptr < pos)
88672fcea8cSEd Schouten 	{
88772fcea8cSEd Schouten 		if (*ptr <= 8)
88872fcea8cSEd Schouten 			temp += 2;
88972fcea8cSEd Schouten 		else if (*ptr == 9)
89072fcea8cSEd Schouten 			temp += tabshift(temp);
89172fcea8cSEd Schouten 		else if ((*ptr >= 10) && (*ptr <= 31))
89272fcea8cSEd Schouten 			temp += 2;
89372fcea8cSEd Schouten 		else if ((*ptr >= 32) && (*ptr < 127))
89472fcea8cSEd Schouten 			temp++;
89572fcea8cSEd Schouten 		else if (*ptr == 127)
89672fcea8cSEd Schouten 			temp += 2;
89772fcea8cSEd Schouten 		else if (!eightbit)
89872fcea8cSEd Schouten 			temp += 5;
89972fcea8cSEd Schouten 		else
90072fcea8cSEd Schouten 			temp++;
90172fcea8cSEd Schouten 		ptr++;
90272fcea8cSEd Schouten 	}
90372fcea8cSEd Schouten 	scr_horz = temp;
90472fcea8cSEd Schouten 	if ((scr_horz - horiz_offset) > last_col)
90572fcea8cSEd Schouten 	{
90672fcea8cSEd Schouten 		horiz_offset = (scr_horz - (scr_horz % 8)) - (COLS - 8);
90772fcea8cSEd Schouten 		midscreen(scr_vert, point);
90872fcea8cSEd Schouten 	}
90972fcea8cSEd Schouten 	else if (scr_horz < horiz_offset)
91072fcea8cSEd Schouten 	{
91172fcea8cSEd Schouten 		horiz_offset = max(0, (scr_horz - (scr_horz % 8)));
91272fcea8cSEd Schouten 		midscreen(scr_vert, point);
91372fcea8cSEd Schouten 	}
91472fcea8cSEd Schouten }
91572fcea8cSEd Schouten 
916*91517e3bSJohn Baldwin /* give the number of spaces to shift	*/
91772fcea8cSEd Schouten int
918*91517e3bSJohn Baldwin tabshift(int temp_int)
91972fcea8cSEd Schouten {
92072fcea8cSEd Schouten 	int leftover;
92172fcea8cSEd Schouten 
92272fcea8cSEd Schouten 	leftover = ((temp_int + 1) % 8);
92372fcea8cSEd Schouten 	if (leftover == 0)
92472fcea8cSEd Schouten 		return (1);
92572fcea8cSEd Schouten 	else
92672fcea8cSEd Schouten 		return (9 - leftover);
92772fcea8cSEd Schouten }
92872fcea8cSEd Schouten 
929*91517e3bSJohn Baldwin /* output non-printing character */
93072fcea8cSEd Schouten int
931*91517e3bSJohn Baldwin out_char(WINDOW *window, int character, int column)
93272fcea8cSEd Schouten {
93372fcea8cSEd Schouten 	int i1, i2;
93496b676e9SEd Schouten 	char *string;
93572fcea8cSEd Schouten 	char string2[8];
93672fcea8cSEd Schouten 
93772fcea8cSEd Schouten 	if (character == TAB)
93872fcea8cSEd Schouten 	{
93972fcea8cSEd Schouten 		i1 = tabshift(column);
94072fcea8cSEd Schouten 		for (i2 = 0;
94172fcea8cSEd Schouten 		  (i2 < i1) && (((column+i2+1)-horiz_offset) < last_col); i2++)
94272fcea8cSEd Schouten 		{
94372fcea8cSEd Schouten 			waddch(window, ' ');
94472fcea8cSEd Schouten 		}
94572fcea8cSEd Schouten 		return(i1);
94672fcea8cSEd Schouten 	}
94772fcea8cSEd Schouten 	else if ((character >= '\0') && (character < ' '))
94872fcea8cSEd Schouten 	{
94972fcea8cSEd Schouten 		string = table[(int) character];
95072fcea8cSEd Schouten 	}
95172fcea8cSEd Schouten 	else if ((character < 0) || (character >= 127))
95272fcea8cSEd Schouten 	{
95372fcea8cSEd Schouten 		if (character == 127)
95472fcea8cSEd Schouten 			string = "^?";
95572fcea8cSEd Schouten 		else if (!eightbit)
95672fcea8cSEd Schouten 		{
95772fcea8cSEd Schouten 			sprintf(string2, "<%d>", (character < 0) ? (character + 256) : character);
95872fcea8cSEd Schouten 			string = string2;
95972fcea8cSEd Schouten 		}
96072fcea8cSEd Schouten 		else
96172fcea8cSEd Schouten 		{
962f39e07f3SAndrey A. Chernov 			waddch(window, (unsigned char)character );
96372fcea8cSEd Schouten 			return(1);
96472fcea8cSEd Schouten 		}
96572fcea8cSEd Schouten 	}
96672fcea8cSEd Schouten 	else
96772fcea8cSEd Schouten 	{
968f39e07f3SAndrey A. Chernov 		waddch(window, (unsigned char)character);
96972fcea8cSEd Schouten 		return(1);
97072fcea8cSEd Schouten 	}
97196b676e9SEd Schouten 	for (i2 = 0; (string[i2] != '\0') && (((column+i2+1)-horiz_offset) < last_col); i2++)
972f39e07f3SAndrey A. Chernov 		waddch(window, (unsigned char)string[i2]);
97372fcea8cSEd Schouten 	return(strlen(string));
97472fcea8cSEd Schouten }
97572fcea8cSEd Schouten 
976*91517e3bSJohn Baldwin /* return the length of the character	*/
97772fcea8cSEd Schouten int
978*91517e3bSJohn Baldwin len_char(int character, int column)
97972fcea8cSEd Schouten {
98072fcea8cSEd Schouten 	int length;
98172fcea8cSEd Schouten 
98272fcea8cSEd Schouten 	if (character == '\t')
98372fcea8cSEd Schouten 		length = tabshift(column);
98472fcea8cSEd Schouten 	else if ((character >= 0) && (character < 32))
98572fcea8cSEd Schouten 		length = 2;
98672fcea8cSEd Schouten 	else if ((character >= 32) && (character <= 126))
98772fcea8cSEd Schouten 		length = 1;
98872fcea8cSEd Schouten 	else if (character == 127)
98972fcea8cSEd Schouten 		length = 2;
99072fcea8cSEd Schouten 	else if (((character > 126) || (character < 0)) && (!eightbit))
99172fcea8cSEd Schouten 		length = 5;
99272fcea8cSEd Schouten 	else
99372fcea8cSEd Schouten 		length = 1;
99472fcea8cSEd Schouten 
99572fcea8cSEd Schouten 	return(length);
99672fcea8cSEd Schouten }
99772fcea8cSEd Schouten 
998*91517e3bSJohn Baldwin /* redraw line from current position */
99972fcea8cSEd Schouten void
1000*91517e3bSJohn Baldwin draw_line(int vertical, int horiz, unsigned char *ptr, int t_pos, int length)
100172fcea8cSEd Schouten {
100272fcea8cSEd Schouten 	int d;		/* partial length of special or tab char to display  */
100372fcea8cSEd Schouten 	unsigned char *temp;	/* temporary pointer to position in line	     */
100472fcea8cSEd Schouten 	int abs_column;	/* offset in screen units from begin of line	     */
100572fcea8cSEd Schouten 	int column;	/* horizontal position on screen		     */
100672fcea8cSEd Schouten 	int row;	/* vertical position on screen			     */
100772fcea8cSEd Schouten 	int posit;	/* temporary position indicator within line	     */
100872fcea8cSEd Schouten 
100972fcea8cSEd Schouten 	abs_column = horiz;
101072fcea8cSEd Schouten 	column = horiz - horiz_offset;
101172fcea8cSEd Schouten 	row = vertical;
101272fcea8cSEd Schouten 	temp = ptr;
101372fcea8cSEd Schouten 	d = 0;
101472fcea8cSEd Schouten 	posit = t_pos;
101572fcea8cSEd Schouten 	if (column < 0)
101672fcea8cSEd Schouten 	{
101772fcea8cSEd Schouten 		wmove(text_win, row, 0);
101872fcea8cSEd Schouten 		wclrtoeol(text_win);
101972fcea8cSEd Schouten 	}
102072fcea8cSEd Schouten 	while (column < 0)
102172fcea8cSEd Schouten 	{
102272fcea8cSEd Schouten 		d = len_char(*temp, abs_column);
102372fcea8cSEd Schouten 		abs_column += d;
102472fcea8cSEd Schouten 		column += d;
102572fcea8cSEd Schouten 		posit++;
102672fcea8cSEd Schouten 		temp++;
102772fcea8cSEd Schouten 	}
102872fcea8cSEd Schouten 	wmove(text_win, row, column);
102972fcea8cSEd Schouten 	wclrtoeol(text_win);
103072fcea8cSEd Schouten 	while ((posit < length) && (column <= last_col))
103172fcea8cSEd Schouten 	{
1032f39e07f3SAndrey A. Chernov 		if (!isprint(*temp))
103372fcea8cSEd Schouten 		{
103472fcea8cSEd Schouten 			column += len_char(*temp, abs_column);
103572fcea8cSEd Schouten 			abs_column += out_char(text_win, *temp, abs_column);
103672fcea8cSEd Schouten 		}
103772fcea8cSEd Schouten 		else
103872fcea8cSEd Schouten 		{
103972fcea8cSEd Schouten 			abs_column++;
104072fcea8cSEd Schouten 			column++;
104172fcea8cSEd Schouten 			waddch(text_win, *temp);
104272fcea8cSEd Schouten 		}
104372fcea8cSEd Schouten 		posit++;
104472fcea8cSEd Schouten 		temp++;
104572fcea8cSEd Schouten 	}
104672fcea8cSEd Schouten 	if (column < last_col)
104772fcea8cSEd Schouten 		wclrtoeol(text_win);
104872fcea8cSEd Schouten 	wmove(text_win, vertical, (horiz - horiz_offset));
104972fcea8cSEd Schouten }
105072fcea8cSEd Schouten 
1051*91517e3bSJohn Baldwin /* insert new line		*/
105272fcea8cSEd Schouten void
1053*91517e3bSJohn Baldwin insert_line(int disp)
105472fcea8cSEd Schouten {
105572fcea8cSEd Schouten 	int temp_pos;
105672fcea8cSEd Schouten 	int temp_pos2;
105772fcea8cSEd Schouten 	unsigned char *temp;
105872fcea8cSEd Schouten 	unsigned char *extra;
105972fcea8cSEd Schouten 	struct text *temp_nod;
106072fcea8cSEd Schouten 
106172fcea8cSEd Schouten 	text_changes = TRUE;
106272fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
106372fcea8cSEd Schouten 	wclrtoeol(text_win);
106472fcea8cSEd Schouten 	temp_nod= txtalloc();
106572fcea8cSEd Schouten 	temp_nod->line = extra= malloc(10);
106672fcea8cSEd Schouten 	temp_nod->line_length = 1;
106772fcea8cSEd Schouten 	temp_nod->max_length = 10;
106896b676e9SEd Schouten 	temp_nod->line_number = curr_line->line_number + 1;
106972fcea8cSEd Schouten 	temp_nod->next_line = curr_line->next_line;
107072fcea8cSEd Schouten 	if (temp_nod->next_line != NULL)
107172fcea8cSEd Schouten 		temp_nod->next_line->prev_line = temp_nod;
107272fcea8cSEd Schouten 	temp_nod->prev_line = curr_line;
107372fcea8cSEd Schouten 	curr_line->next_line = temp_nod;
107472fcea8cSEd Schouten 	temp_pos2 = position;
107572fcea8cSEd Schouten 	temp = point;
107672fcea8cSEd Schouten 	if (temp_pos2 < curr_line->line_length)
107772fcea8cSEd Schouten 	{
107872fcea8cSEd Schouten 		temp_pos = 1;
107972fcea8cSEd Schouten 		while (temp_pos2 < curr_line->line_length)
108072fcea8cSEd Schouten 		{
108172fcea8cSEd Schouten 			if ((temp_nod->max_length - temp_nod->line_length)< 5)
108272fcea8cSEd Schouten 				extra = resiz_line(10, temp_nod, temp_pos);
108372fcea8cSEd Schouten 			temp_nod->line_length++;
108472fcea8cSEd Schouten 			temp_pos++;
108572fcea8cSEd Schouten 			temp_pos2++;
108672fcea8cSEd Schouten 			*extra= *temp;
108772fcea8cSEd Schouten 			extra++;
108872fcea8cSEd Schouten 			temp++;
108972fcea8cSEd Schouten 		}
109072fcea8cSEd Schouten 		temp=point;
109196b676e9SEd Schouten 		*temp = '\0';
109272fcea8cSEd Schouten 		temp = resiz_line((1 - temp_nod->line_length), curr_line, position);
109372fcea8cSEd Schouten 		curr_line->line_length = 1 + temp - curr_line->line;
109472fcea8cSEd Schouten 	}
109572fcea8cSEd Schouten 	curr_line->line_length = position;
109696b676e9SEd Schouten 	absolute_lin++;
109772fcea8cSEd Schouten 	curr_line = temp_nod;
109896b676e9SEd Schouten 	*extra = '\0';
109972fcea8cSEd Schouten 	position = 1;
110072fcea8cSEd Schouten 	point= curr_line->line;
110172fcea8cSEd Schouten 	if (disp)
110272fcea8cSEd Schouten 	{
110372fcea8cSEd Schouten 		if (scr_vert < last_line)
110472fcea8cSEd Schouten 		{
110572fcea8cSEd Schouten 			scr_vert++;
110672fcea8cSEd Schouten 			wclrtoeol(text_win);
110772fcea8cSEd Schouten 			wmove(text_win, scr_vert, 0);
110872fcea8cSEd Schouten 			winsertln(text_win);
110972fcea8cSEd Schouten 		}
111072fcea8cSEd Schouten 		else
111172fcea8cSEd Schouten 		{
111272fcea8cSEd Schouten 			wmove(text_win, 0,0);
111372fcea8cSEd Schouten 			wdeleteln(text_win);
111472fcea8cSEd Schouten 			wmove(text_win, last_line,0);
111572fcea8cSEd Schouten 			wclrtobot(text_win);
111672fcea8cSEd Schouten 		}
111772fcea8cSEd Schouten 		scr_pos = scr_horz = 0;
111872fcea8cSEd Schouten 		if (horiz_offset)
111972fcea8cSEd Schouten 		{
112072fcea8cSEd Schouten 			horiz_offset = 0;
112172fcea8cSEd Schouten 			midscreen(scr_vert, point);
112272fcea8cSEd Schouten 		}
112372fcea8cSEd Schouten 		draw_line(scr_vert, scr_horz, point, position,
112472fcea8cSEd Schouten 			curr_line->line_length);
112572fcea8cSEd Schouten 	}
112672fcea8cSEd Schouten }
112772fcea8cSEd Schouten 
1128*91517e3bSJohn Baldwin /* allocate space for line structure	*/
1129*91517e3bSJohn Baldwin struct text *
1130*91517e3bSJohn Baldwin txtalloc(void)
113172fcea8cSEd Schouten {
113272fcea8cSEd Schouten 	return((struct text *) malloc(sizeof( struct text)));
113372fcea8cSEd Schouten }
113472fcea8cSEd Schouten 
1135*91517e3bSJohn Baldwin /* allocate space for file name list node */
1136*91517e3bSJohn Baldwin struct files *
1137*91517e3bSJohn Baldwin name_alloc(void)
113872fcea8cSEd Schouten {
113972fcea8cSEd Schouten 	return((struct files *) malloc(sizeof( struct files)));
114072fcea8cSEd Schouten }
114172fcea8cSEd Schouten 
1142*91517e3bSJohn Baldwin /* move to next word in string		*/
1143*91517e3bSJohn Baldwin unsigned char *
1144*91517e3bSJohn Baldwin next_word(unsigned char *string)
114572fcea8cSEd Schouten {
114696b676e9SEd Schouten 	while ((*string != '\0') && ((*string != 32) && (*string != 9)))
114772fcea8cSEd Schouten 		string++;
114896b676e9SEd Schouten 	while ((*string != '\0') && ((*string == 32) || (*string == 9)))
114972fcea8cSEd Schouten 		string++;
115072fcea8cSEd Schouten 	return(string);
115172fcea8cSEd Schouten }
115272fcea8cSEd Schouten 
1153*91517e3bSJohn Baldwin /* move to start of previous word in text	*/
115472fcea8cSEd Schouten void
1155*91517e3bSJohn Baldwin prev_word(void)
115672fcea8cSEd Schouten {
115772fcea8cSEd Schouten 	if (position != 1)
115872fcea8cSEd Schouten 	{
115972fcea8cSEd Schouten 		if ((position != 1) && ((point[-1] == ' ') || (point[-1] == '\t')))
116072fcea8cSEd Schouten 		{	/* if at the start of a word	*/
116172fcea8cSEd Schouten 			while ((position != 1) && ((*point != ' ') && (*point != '\t')))
116272fcea8cSEd Schouten 				left(TRUE);
116372fcea8cSEd Schouten 		}
116472fcea8cSEd Schouten 		while ((position != 1) && ((*point == ' ') || (*point == '\t')))
116572fcea8cSEd Schouten 			left(TRUE);
116672fcea8cSEd Schouten 		while ((position != 1) && ((*point != ' ') && (*point != '\t')))
116772fcea8cSEd Schouten 			left(TRUE);
116872fcea8cSEd Schouten 		if ((position != 1) && ((*point == ' ') || (*point == '\t')))
116972fcea8cSEd Schouten 			right(TRUE);
117072fcea8cSEd Schouten 	}
117172fcea8cSEd Schouten 	else
117272fcea8cSEd Schouten 		left(TRUE);
117372fcea8cSEd Schouten }
117472fcea8cSEd Schouten 
1175*91517e3bSJohn Baldwin /* use control for commands		*/
117672fcea8cSEd Schouten void
1177*91517e3bSJohn Baldwin control(void)
117872fcea8cSEd Schouten {
117972fcea8cSEd Schouten 	char *string;
118072fcea8cSEd Schouten 
118172fcea8cSEd Schouten 	if (in == 1)		/* control a	*/
118272fcea8cSEd Schouten 	{
118372fcea8cSEd Schouten 		string = get_string(ascii_code_str, TRUE);
118496b676e9SEd Schouten 		if (*string != '\0')
118572fcea8cSEd Schouten 		{
118672fcea8cSEd Schouten 			in = atoi(string);
118772fcea8cSEd Schouten 			wmove(text_win, scr_vert, (scr_horz - horiz_offset));
118872fcea8cSEd Schouten 			insert(in);
118972fcea8cSEd Schouten 		}
119072fcea8cSEd Schouten 		free(string);
119172fcea8cSEd Schouten 	}
119272fcea8cSEd Schouten 	else if (in == 2)	/* control b	*/
119372fcea8cSEd Schouten 		bottom();
119472fcea8cSEd Schouten 	else if (in == 3)	/* control c	*/
119572fcea8cSEd Schouten 	{
119672fcea8cSEd Schouten 		command_prompt();
119772fcea8cSEd Schouten 	}
119872fcea8cSEd Schouten 	else if (in == 4)	/* control d	*/
119972fcea8cSEd Schouten 		down();
120072fcea8cSEd Schouten 	else if (in == 5)	/* control e	*/
120172fcea8cSEd Schouten 		search_prompt();
120272fcea8cSEd Schouten 	else if (in == 6)	/* control f	*/
120372fcea8cSEd Schouten 		undel_char();
120472fcea8cSEd Schouten 	else if (in == 7)	/* control g	*/
120572fcea8cSEd Schouten 		bol();
120672fcea8cSEd Schouten 	else if (in == 8)	/* control h	*/
120772fcea8cSEd Schouten 		delete(TRUE);
120872fcea8cSEd Schouten 	else if (in == 9)	/* control i	*/
120972fcea8cSEd Schouten 		;
121072fcea8cSEd Schouten 	else if (in == 10)	/* control j	*/
121172fcea8cSEd Schouten 		insert_line(TRUE);
121272fcea8cSEd Schouten 	else if (in == 11)	/* control k	*/
121372fcea8cSEd Schouten 		del_char();
121472fcea8cSEd Schouten 	else if (in == 12)	/* control l	*/
121572fcea8cSEd Schouten 		left(TRUE);
121672fcea8cSEd Schouten 	else if (in == 13)	/* control m	*/
121772fcea8cSEd Schouten 		insert_line(TRUE);
121872fcea8cSEd Schouten 	else if (in == 14)	/* control n	*/
12197bf1ea96SEd Schouten 		move_rel('d', max(5, (last_line - 5)));
122072fcea8cSEd Schouten 	else if (in == 15)	/* control o	*/
122172fcea8cSEd Schouten 		eol();
122272fcea8cSEd Schouten 	else if (in == 16)	/* control p	*/
12237bf1ea96SEd Schouten 		move_rel('u', max(5, (last_line - 5)));
122472fcea8cSEd Schouten 	else if (in == 17)	/* control q	*/
122572fcea8cSEd Schouten 		;
122672fcea8cSEd Schouten 	else if (in == 18)	/* control r	*/
122772fcea8cSEd Schouten 		right(TRUE);
122872fcea8cSEd Schouten 	else if (in == 19)	/* control s	*/
122972fcea8cSEd Schouten 		;
123072fcea8cSEd Schouten 	else if (in == 20)	/* control t	*/
123172fcea8cSEd Schouten 		top();
123272fcea8cSEd Schouten 	else if (in == 21)	/* control u	*/
123372fcea8cSEd Schouten 		up();
123472fcea8cSEd Schouten 	else if (in == 22)	/* control v	*/
123572fcea8cSEd Schouten 		undel_word();
123672fcea8cSEd Schouten 	else if (in == 23)	/* control w	*/
123772fcea8cSEd Schouten 		del_word();
123872fcea8cSEd Schouten 	else if (in == 24)	/* control x	*/
123972fcea8cSEd Schouten 		search(TRUE);
124072fcea8cSEd Schouten 	else if (in == 25)	/* control y	*/
124172fcea8cSEd Schouten 		del_line();
124272fcea8cSEd Schouten 	else if (in == 26)	/* control z	*/
124372fcea8cSEd Schouten 		undel_line();
124472fcea8cSEd Schouten 	else if (in == 27)	/* control [ (escape)	*/
124572fcea8cSEd Schouten 	{
124672fcea8cSEd Schouten 		menu_op(main_menu);
124772fcea8cSEd Schouten 	}
124872fcea8cSEd Schouten }
124972fcea8cSEd Schouten 
125072fcea8cSEd Schouten /*
125172fcea8cSEd Schouten  |	Emacs control-key bindings
125272fcea8cSEd Schouten  */
125372fcea8cSEd Schouten 
125472fcea8cSEd Schouten void
1255*91517e3bSJohn Baldwin emacs_control(void)
125672fcea8cSEd Schouten {
125772fcea8cSEd Schouten 	char *string;
125872fcea8cSEd Schouten 
125972fcea8cSEd Schouten 	if (in == 1)		/* control a	*/
126072fcea8cSEd Schouten 		bol();
126172fcea8cSEd Schouten 	else if (in == 2)	/* control b	*/
126272fcea8cSEd Schouten 		left(TRUE);
126372fcea8cSEd Schouten 	else if (in == 3)	/* control c	*/
126472fcea8cSEd Schouten 	{
126572fcea8cSEd Schouten 		command_prompt();
126672fcea8cSEd Schouten 	}
126772fcea8cSEd Schouten 	else if (in == 4)	/* control d	*/
126872fcea8cSEd Schouten 		del_char();
126972fcea8cSEd Schouten 	else if (in == 5)	/* control e	*/
127072fcea8cSEd Schouten 		eol();
127172fcea8cSEd Schouten 	else if (in == 6)	/* control f	*/
127272fcea8cSEd Schouten 		right(TRUE);
127372fcea8cSEd Schouten 	else if (in == 7)	/* control g	*/
12747bf1ea96SEd Schouten 		move_rel('u', max(5, (last_line - 5)));
127572fcea8cSEd Schouten 	else if (in == 8)	/* control h	*/
127672fcea8cSEd Schouten 		delete(TRUE);
127772fcea8cSEd Schouten 	else if (in == 9)	/* control i	*/
127872fcea8cSEd Schouten 		;
127972fcea8cSEd Schouten 	else if (in == 10)	/* control j	*/
128072fcea8cSEd Schouten 		undel_char();
128172fcea8cSEd Schouten 	else if (in == 11)	/* control k	*/
128272fcea8cSEd Schouten 		del_line();
128372fcea8cSEd Schouten 	else if (in == 12)	/* control l	*/
128472fcea8cSEd Schouten 		undel_line();
128572fcea8cSEd Schouten 	else if (in == 13)	/* control m	*/
128672fcea8cSEd Schouten 		insert_line(TRUE);
128772fcea8cSEd Schouten 	else if (in == 14)	/* control n	*/
128872fcea8cSEd Schouten 		down();
128972fcea8cSEd Schouten 	else if (in == 15)	/* control o	*/
129072fcea8cSEd Schouten 	{
129172fcea8cSEd Schouten 		string = get_string(ascii_code_str, TRUE);
129296b676e9SEd Schouten 		if (*string != '\0')
129372fcea8cSEd Schouten 		{
129472fcea8cSEd Schouten 			in = atoi(string);
129572fcea8cSEd Schouten 			wmove(text_win, scr_vert, (scr_horz - horiz_offset));
129672fcea8cSEd Schouten 			insert(in);
129772fcea8cSEd Schouten 		}
129872fcea8cSEd Schouten 		free(string);
129972fcea8cSEd Schouten 	}
130072fcea8cSEd Schouten 	else if (in == 16)	/* control p	*/
130172fcea8cSEd Schouten 		up();
130272fcea8cSEd Schouten 	else if (in == 17)	/* control q	*/
130372fcea8cSEd Schouten 		;
130472fcea8cSEd Schouten 	else if (in == 18)	/* control r	*/
130572fcea8cSEd Schouten 		undel_word();
130672fcea8cSEd Schouten 	else if (in == 19)	/* control s	*/
130772fcea8cSEd Schouten 		;
130872fcea8cSEd Schouten 	else if (in == 20)	/* control t	*/
130972fcea8cSEd Schouten 		top();
131072fcea8cSEd Schouten 	else if (in == 21)	/* control u	*/
131172fcea8cSEd Schouten 		bottom();
131272fcea8cSEd Schouten 	else if (in == 22)	/* control v	*/
13137bf1ea96SEd Schouten 		move_rel('d', max(5, (last_line - 5)));
131472fcea8cSEd Schouten 	else if (in == 23)	/* control w	*/
131572fcea8cSEd Schouten 		del_word();
131672fcea8cSEd Schouten 	else if (in == 24)	/* control x	*/
131772fcea8cSEd Schouten 		search(TRUE);
131872fcea8cSEd Schouten 	else if (in == 25)	/* control y	*/
131972fcea8cSEd Schouten 		search_prompt();
132072fcea8cSEd Schouten 	else if (in == 26)	/* control z	*/
132172fcea8cSEd Schouten 		adv_word();
132272fcea8cSEd Schouten 	else if (in == 27)	/* control [ (escape)	*/
132372fcea8cSEd Schouten 	{
132472fcea8cSEd Schouten 		menu_op(main_menu);
132572fcea8cSEd Schouten 	}
132672fcea8cSEd Schouten }
132772fcea8cSEd Schouten 
1328*91517e3bSJohn Baldwin /* go to bottom of file			*/
132972fcea8cSEd Schouten void
1330*91517e3bSJohn Baldwin bottom(void)
133172fcea8cSEd Schouten {
133272fcea8cSEd Schouten 	while (curr_line->next_line != NULL)
133396b676e9SEd Schouten 	{
133472fcea8cSEd Schouten 		curr_line = curr_line->next_line;
133596b676e9SEd Schouten 		absolute_lin++;
133696b676e9SEd Schouten 	}
133772fcea8cSEd Schouten 	point = curr_line->line;
133872fcea8cSEd Schouten 	if (horiz_offset)
133972fcea8cSEd Schouten 		horiz_offset = 0;
134072fcea8cSEd Schouten 	position = 1;
134172fcea8cSEd Schouten 	midscreen(last_line, point);
134272fcea8cSEd Schouten 	scr_pos = scr_horz;
134372fcea8cSEd Schouten }
134472fcea8cSEd Schouten 
1345*91517e3bSJohn Baldwin /* go to top of file			*/
134672fcea8cSEd Schouten void
1347*91517e3bSJohn Baldwin top(void)
134872fcea8cSEd Schouten {
134972fcea8cSEd Schouten 	while (curr_line->prev_line != NULL)
135096b676e9SEd Schouten 	{
135172fcea8cSEd Schouten 		curr_line = curr_line->prev_line;
135296b676e9SEd Schouten 		absolute_lin--;
135396b676e9SEd Schouten 	}
135472fcea8cSEd Schouten 	point = curr_line->line;
135572fcea8cSEd Schouten 	if (horiz_offset)
135672fcea8cSEd Schouten 		horiz_offset = 0;
135772fcea8cSEd Schouten 	position = 1;
135872fcea8cSEd Schouten 	midscreen(0, point);
135972fcea8cSEd Schouten 	scr_pos = scr_horz;
136072fcea8cSEd Schouten }
136172fcea8cSEd Schouten 
1362*91517e3bSJohn Baldwin /* move pointers to start of next line	*/
136372fcea8cSEd Schouten void
1364*91517e3bSJohn Baldwin nextline(void)
136572fcea8cSEd Schouten {
136672fcea8cSEd Schouten 	curr_line = curr_line->next_line;
136796b676e9SEd Schouten 	absolute_lin++;
136872fcea8cSEd Schouten 	point = curr_line->line;
136972fcea8cSEd Schouten 	position = 1;
137072fcea8cSEd Schouten 	if (scr_vert == last_line)
137172fcea8cSEd Schouten 	{
137272fcea8cSEd Schouten 		wmove(text_win, 0,0);
137372fcea8cSEd Schouten 		wdeleteln(text_win);
137472fcea8cSEd Schouten 		wmove(text_win, last_line,0);
137572fcea8cSEd Schouten 		wclrtobot(text_win);
137672fcea8cSEd Schouten 		draw_line(last_line,0,point,1,curr_line->line_length);
137772fcea8cSEd Schouten 	}
137872fcea8cSEd Schouten 	else
137972fcea8cSEd Schouten 		scr_vert++;
138072fcea8cSEd Schouten }
138172fcea8cSEd Schouten 
1382*91517e3bSJohn Baldwin /* move pointers to start of previous line*/
138372fcea8cSEd Schouten void
1384*91517e3bSJohn Baldwin prevline(void)
138572fcea8cSEd Schouten {
138672fcea8cSEd Schouten 	curr_line = curr_line->prev_line;
138796b676e9SEd Schouten 	absolute_lin--;
138872fcea8cSEd Schouten 	point = curr_line->line;
138972fcea8cSEd Schouten 	position = 1;
139072fcea8cSEd Schouten 	if (scr_vert == 0)
139172fcea8cSEd Schouten 	{
139272fcea8cSEd Schouten 		winsertln(text_win);
139372fcea8cSEd Schouten 		draw_line(0,0,point,1,curr_line->line_length);
139472fcea8cSEd Schouten 	}
139572fcea8cSEd Schouten 	else
139672fcea8cSEd Schouten 		scr_vert--;
139772fcea8cSEd Schouten 	while (position < curr_line->line_length)
139872fcea8cSEd Schouten 	{
139972fcea8cSEd Schouten 		position++;
140072fcea8cSEd Schouten 		point++;
140172fcea8cSEd Schouten 	}
140272fcea8cSEd Schouten }
140372fcea8cSEd Schouten 
1404*91517e3bSJohn Baldwin /* move left one character	*/
140572fcea8cSEd Schouten void
1406*91517e3bSJohn Baldwin left(int disp)
140772fcea8cSEd Schouten {
140872fcea8cSEd Schouten 	if (point != curr_line->line)	/* if not at begin of line	*/
140972fcea8cSEd Schouten 	{
141072fcea8cSEd Schouten 		if ((ee_chinese) && (position >= 2) && (*(point - 2) > 127))
141172fcea8cSEd Schouten 		{
141272fcea8cSEd Schouten 			point--;
141372fcea8cSEd Schouten 			position--;
141472fcea8cSEd Schouten 		}
141572fcea8cSEd Schouten 		point--;
141672fcea8cSEd Schouten 		position--;
141772fcea8cSEd Schouten 		scanline(point);
141872fcea8cSEd Schouten 		wmove(text_win, scr_vert, (scr_horz - horiz_offset));
141972fcea8cSEd Schouten 		scr_pos = scr_horz;
142072fcea8cSEd Schouten 	}
142172fcea8cSEd Schouten 	else if (curr_line->prev_line != NULL)
142272fcea8cSEd Schouten 	{
142372fcea8cSEd Schouten 		if (!disp)
142472fcea8cSEd Schouten 		{
142596b676e9SEd Schouten 			absolute_lin--;
142672fcea8cSEd Schouten 			curr_line = curr_line->prev_line;
142772fcea8cSEd Schouten 			point = curr_line->line + curr_line->line_length;
142872fcea8cSEd Schouten 			position = curr_line->line_length;
142972fcea8cSEd Schouten 			return;
143072fcea8cSEd Schouten 		}
143172fcea8cSEd Schouten 		position = 1;
143272fcea8cSEd Schouten 		prevline();
143372fcea8cSEd Schouten 		scanline(point);
143472fcea8cSEd Schouten 		scr_pos = scr_horz;
143572fcea8cSEd Schouten 		wmove(text_win, scr_vert, (scr_horz - horiz_offset));
143672fcea8cSEd Schouten 	}
143772fcea8cSEd Schouten }
143872fcea8cSEd Schouten 
1439*91517e3bSJohn Baldwin /* move right one character	*/
144072fcea8cSEd Schouten void
1441*91517e3bSJohn Baldwin right(int disp)
144272fcea8cSEd Schouten {
144372fcea8cSEd Schouten 	if (position < curr_line->line_length)
144472fcea8cSEd Schouten 	{
144572fcea8cSEd Schouten 		if ((ee_chinese) && (*point > 127) &&
144672fcea8cSEd Schouten 		    ((curr_line->line_length - position) >= 2))
144772fcea8cSEd Schouten 		{
144872fcea8cSEd Schouten 			point++;
144972fcea8cSEd Schouten 			position++;
145072fcea8cSEd Schouten 		}
145172fcea8cSEd Schouten 		point++;
145272fcea8cSEd Schouten 		position++;
145372fcea8cSEd Schouten 		scanline(point);
145472fcea8cSEd Schouten 		wmove(text_win, scr_vert, (scr_horz - horiz_offset));
145572fcea8cSEd Schouten 		scr_pos = scr_horz;
145672fcea8cSEd Schouten 	}
145772fcea8cSEd Schouten 	else if (curr_line->next_line != NULL)
145872fcea8cSEd Schouten 	{
145972fcea8cSEd Schouten 		if (!disp)
146072fcea8cSEd Schouten 		{
146196b676e9SEd Schouten 			absolute_lin++;
146272fcea8cSEd Schouten 			curr_line = curr_line->next_line;
146372fcea8cSEd Schouten 			point = curr_line->line;
146472fcea8cSEd Schouten 			position = 1;
146572fcea8cSEd Schouten 			return;
146672fcea8cSEd Schouten 		}
146772fcea8cSEd Schouten 		nextline();
146872fcea8cSEd Schouten 		scr_pos = scr_horz = 0;
146972fcea8cSEd Schouten 		if (horiz_offset)
147072fcea8cSEd Schouten 		{
147172fcea8cSEd Schouten 			horiz_offset = 0;
147272fcea8cSEd Schouten 			midscreen(scr_vert, point);
147372fcea8cSEd Schouten 		}
147472fcea8cSEd Schouten 		wmove(text_win, scr_vert, (scr_horz - horiz_offset));
147572fcea8cSEd Schouten 		position = 1;
147672fcea8cSEd Schouten 	}
147772fcea8cSEd Schouten }
147872fcea8cSEd Schouten 
1479*91517e3bSJohn Baldwin /* move to the same column as on other line	*/
148072fcea8cSEd Schouten void
1481*91517e3bSJohn Baldwin find_pos(void)
148272fcea8cSEd Schouten {
148372fcea8cSEd Schouten 	scr_horz = 0;
148472fcea8cSEd Schouten 	position = 1;
148572fcea8cSEd Schouten 	while ((scr_horz < scr_pos) && (position < curr_line->line_length))
148672fcea8cSEd Schouten 	{
148772fcea8cSEd Schouten 		if (*point == 9)
148872fcea8cSEd Schouten 			scr_horz += tabshift(scr_horz);
148972fcea8cSEd Schouten 		else if (*point < ' ')
149072fcea8cSEd Schouten 			scr_horz += 2;
149172fcea8cSEd Schouten 		else if ((ee_chinese) && (*point > 127) &&
149272fcea8cSEd Schouten 		    ((curr_line->line_length - position) >= 2))
149372fcea8cSEd Schouten 		{
149472fcea8cSEd Schouten 			scr_horz += 2;
149572fcea8cSEd Schouten 			point++;
149672fcea8cSEd Schouten 			position++;
149772fcea8cSEd Schouten 		}
149872fcea8cSEd Schouten 		else
149972fcea8cSEd Schouten 			scr_horz++;
150072fcea8cSEd Schouten 		position++;
150172fcea8cSEd Schouten 		point++;
150272fcea8cSEd Schouten 	}
150372fcea8cSEd Schouten 	if ((scr_horz - horiz_offset) > last_col)
150472fcea8cSEd Schouten 	{
150572fcea8cSEd Schouten 		horiz_offset = (scr_horz - (scr_horz % 8)) - (COLS - 8);
150672fcea8cSEd Schouten 		midscreen(scr_vert, point);
150772fcea8cSEd Schouten 	}
150872fcea8cSEd Schouten 	else if (scr_horz < horiz_offset)
150972fcea8cSEd Schouten 	{
151072fcea8cSEd Schouten 		horiz_offset = max(0, (scr_horz - (scr_horz % 8)));
151172fcea8cSEd Schouten 		midscreen(scr_vert, point);
151272fcea8cSEd Schouten 	}
151372fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
151472fcea8cSEd Schouten }
151572fcea8cSEd Schouten 
1516*91517e3bSJohn Baldwin /* move up one line		*/
151772fcea8cSEd Schouten void
1518*91517e3bSJohn Baldwin up(void)
151972fcea8cSEd Schouten {
152072fcea8cSEd Schouten 	if (curr_line->prev_line != NULL)
152172fcea8cSEd Schouten 	{
152272fcea8cSEd Schouten 		prevline();
152372fcea8cSEd Schouten 		point = curr_line->line;
152472fcea8cSEd Schouten 		find_pos();
152572fcea8cSEd Schouten 	}
152672fcea8cSEd Schouten }
152772fcea8cSEd Schouten 
1528*91517e3bSJohn Baldwin /* move down one line		*/
152972fcea8cSEd Schouten void
1530*91517e3bSJohn Baldwin down(void)
153172fcea8cSEd Schouten {
153272fcea8cSEd Schouten 	if (curr_line->next_line != NULL)
153372fcea8cSEd Schouten 	{
153472fcea8cSEd Schouten 		nextline();
153572fcea8cSEd Schouten 		find_pos();
153672fcea8cSEd Schouten 	}
153772fcea8cSEd Schouten }
153872fcea8cSEd Schouten 
1539*91517e3bSJohn Baldwin /* process function key		*/
154072fcea8cSEd Schouten void
1541*91517e3bSJohn Baldwin function_key(void)
154272fcea8cSEd Schouten {
154372fcea8cSEd Schouten 	if (in == KEY_LEFT)
154472fcea8cSEd Schouten 		left(TRUE);
154572fcea8cSEd Schouten 	else if (in == KEY_RIGHT)
154672fcea8cSEd Schouten 		right(TRUE);
154772fcea8cSEd Schouten 	else if (in == KEY_HOME)
1548cfe04e82SEd Schouten 		bol();
1549cfe04e82SEd Schouten 	else if (in == KEY_END)
1550cfe04e82SEd Schouten 		eol();
155172fcea8cSEd Schouten 	else if (in == KEY_UP)
155272fcea8cSEd Schouten 		up();
155372fcea8cSEd Schouten 	else if (in == KEY_DOWN)
155472fcea8cSEd Schouten 		down();
155572fcea8cSEd Schouten 	else if (in == KEY_NPAGE)
15567bf1ea96SEd Schouten 		move_rel('d', max( 5, (last_line - 5)));
155772fcea8cSEd Schouten 	else if (in == KEY_PPAGE)
15587bf1ea96SEd Schouten 		move_rel('u', max(5, (last_line - 5)));
155972fcea8cSEd Schouten 	else if (in == KEY_DL)
156072fcea8cSEd Schouten 		del_line();
156172fcea8cSEd Schouten 	else if (in == KEY_DC)
156272fcea8cSEd Schouten 		del_char();
156372fcea8cSEd Schouten 	else if (in == KEY_BACKSPACE)
156472fcea8cSEd Schouten 		delete(TRUE);
156572fcea8cSEd Schouten 	else if (in == KEY_IL)
156672fcea8cSEd Schouten 	{		/* insert a line before current line	*/
156772fcea8cSEd Schouten 		insert_line(TRUE);
156872fcea8cSEd Schouten 		left(TRUE);
156972fcea8cSEd Schouten 	}
157072fcea8cSEd Schouten 	else if (in == KEY_F(1))
157172fcea8cSEd Schouten 		gold = !gold;
157272fcea8cSEd Schouten 	else if (in == KEY_F(2))
157372fcea8cSEd Schouten 	{
157472fcea8cSEd Schouten 		if (gold)
157572fcea8cSEd Schouten 		{
157672fcea8cSEd Schouten 			gold = FALSE;
157772fcea8cSEd Schouten 			undel_line();
157872fcea8cSEd Schouten 		}
157972fcea8cSEd Schouten 		else
158072fcea8cSEd Schouten 			undel_char();
158172fcea8cSEd Schouten 	}
158272fcea8cSEd Schouten 	else if (in == KEY_F(3))
158372fcea8cSEd Schouten 	{
158472fcea8cSEd Schouten 		if (gold)
158572fcea8cSEd Schouten 		{
158672fcea8cSEd Schouten 			gold = FALSE;
158772fcea8cSEd Schouten 			undel_word();
158872fcea8cSEd Schouten 		}
158972fcea8cSEd Schouten 		else
159072fcea8cSEd Schouten 			del_word();
159172fcea8cSEd Schouten 	}
159272fcea8cSEd Schouten 	else if (in == KEY_F(4))
159372fcea8cSEd Schouten 	{
159472fcea8cSEd Schouten 		if (gold)
159572fcea8cSEd Schouten 		{
159672fcea8cSEd Schouten 			gold = FALSE;
159772fcea8cSEd Schouten 			paint_info_win();
159872fcea8cSEd Schouten 			midscreen(scr_vert, point);
159972fcea8cSEd Schouten 		}
160072fcea8cSEd Schouten 		else
160172fcea8cSEd Schouten 			adv_word();
160272fcea8cSEd Schouten 	}
160372fcea8cSEd Schouten 	else if (in == KEY_F(5))
160472fcea8cSEd Schouten 	{
160572fcea8cSEd Schouten 		if (gold)
160672fcea8cSEd Schouten 		{
160772fcea8cSEd Schouten 			gold = FALSE;
160872fcea8cSEd Schouten 			search_prompt();
160972fcea8cSEd Schouten 		}
161072fcea8cSEd Schouten 		else
161172fcea8cSEd Schouten 			search(TRUE);
161272fcea8cSEd Schouten 	}
161372fcea8cSEd Schouten 	else if (in == KEY_F(6))
161472fcea8cSEd Schouten 	{
161572fcea8cSEd Schouten 		if (gold)
161672fcea8cSEd Schouten 		{
161772fcea8cSEd Schouten 			gold = FALSE;
161872fcea8cSEd Schouten 			bottom();
161972fcea8cSEd Schouten 		}
162072fcea8cSEd Schouten 		else
162172fcea8cSEd Schouten 			top();
162272fcea8cSEd Schouten 	}
162372fcea8cSEd Schouten 	else if (in == KEY_F(7))
162472fcea8cSEd Schouten 	{
162572fcea8cSEd Schouten 		if (gold)
162672fcea8cSEd Schouten 		{
162772fcea8cSEd Schouten 			gold = FALSE;
162872fcea8cSEd Schouten 			eol();
162972fcea8cSEd Schouten 		}
163072fcea8cSEd Schouten 		else
163172fcea8cSEd Schouten 			bol();
163272fcea8cSEd Schouten 	}
163372fcea8cSEd Schouten 	else if (in == KEY_F(8))
163472fcea8cSEd Schouten 	{
163572fcea8cSEd Schouten 		if (gold)
163672fcea8cSEd Schouten 		{
163772fcea8cSEd Schouten 			gold = FALSE;
163872fcea8cSEd Schouten 			command_prompt();
163972fcea8cSEd Schouten 		}
164072fcea8cSEd Schouten 		else
164172fcea8cSEd Schouten 			adv_line();
164272fcea8cSEd Schouten 	}
164372fcea8cSEd Schouten }
164472fcea8cSEd Schouten 
164572fcea8cSEd Schouten void
1646*91517e3bSJohn Baldwin print_buffer(void)
164772fcea8cSEd Schouten {
164872fcea8cSEd Schouten 	char buffer[256];
164972fcea8cSEd Schouten 
165072fcea8cSEd Schouten 	sprintf(buffer, ">!%s", print_command);
165172fcea8cSEd Schouten 	wmove(com_win, 0, 0);
165272fcea8cSEd Schouten 	wclrtoeol(com_win);
165372fcea8cSEd Schouten 	wprintw(com_win, printer_msg_str, print_command);
165472fcea8cSEd Schouten 	wrefresh(com_win);
165572fcea8cSEd Schouten 	command(buffer);
165672fcea8cSEd Schouten }
165772fcea8cSEd Schouten 
165872fcea8cSEd Schouten void
1659*91517e3bSJohn Baldwin command_prompt(void)
166072fcea8cSEd Schouten {
166172fcea8cSEd Schouten 	char *cmd_str;
166272fcea8cSEd Schouten 	int result;
166372fcea8cSEd Schouten 
166472fcea8cSEd Schouten 	info_type = COMMANDS;
166572fcea8cSEd Schouten 	paint_info_win();
166672fcea8cSEd Schouten 	cmd_str = get_string(command_str, TRUE);
166772fcea8cSEd Schouten 	if ((result = unique_test(cmd_str, commands)) != 1)
166872fcea8cSEd Schouten 	{
166972fcea8cSEd Schouten 		werase(com_win);
167072fcea8cSEd Schouten 		wmove(com_win, 0, 0);
167172fcea8cSEd Schouten 		if (result == 0)
167272fcea8cSEd Schouten 			wprintw(com_win, unkn_cmd_str, cmd_str);
167372fcea8cSEd Schouten 		else
167472fcea8cSEd Schouten 			wprintw(com_win, non_unique_cmd_msg);
167572fcea8cSEd Schouten 
167672fcea8cSEd Schouten 		wrefresh(com_win);
167772fcea8cSEd Schouten 
167872fcea8cSEd Schouten 		info_type = CONTROL_KEYS;
167972fcea8cSEd Schouten 		paint_info_win();
168072fcea8cSEd Schouten 
168172fcea8cSEd Schouten 		if (cmd_str != NULL)
168272fcea8cSEd Schouten 			free(cmd_str);
168372fcea8cSEd Schouten 		return;
168472fcea8cSEd Schouten 	}
168572fcea8cSEd Schouten 	command(cmd_str);
168672fcea8cSEd Schouten 	wrefresh(com_win);
168772fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
168872fcea8cSEd Schouten 	info_type = CONTROL_KEYS;
168972fcea8cSEd Schouten 	paint_info_win();
169072fcea8cSEd Schouten 	if (cmd_str != NULL)
169172fcea8cSEd Schouten 		free(cmd_str);
169272fcea8cSEd Schouten }
169372fcea8cSEd Schouten 
1694*91517e3bSJohn Baldwin /* process commands from keyboard	*/
169572fcea8cSEd Schouten void
1696*91517e3bSJohn Baldwin command(char *cmd_str1)
169772fcea8cSEd Schouten {
169872fcea8cSEd Schouten 	char *cmd_str2 = NULL;
169972fcea8cSEd Schouten 	char *cmd_str = cmd_str1;
170072fcea8cSEd Schouten 
170172fcea8cSEd Schouten 	clear_com_win = TRUE;
170272fcea8cSEd Schouten 	if (compare(cmd_str, HELP, FALSE))
170372fcea8cSEd Schouten 		help();
170472fcea8cSEd Schouten 	else if (compare(cmd_str, WRITE, FALSE))
170572fcea8cSEd Schouten 	{
170672fcea8cSEd Schouten 		if (restrict_mode())
170772fcea8cSEd Schouten 		{
170872fcea8cSEd Schouten 			return;
170972fcea8cSEd Schouten 		}
171072fcea8cSEd Schouten 		cmd_str = next_word(cmd_str);
171196b676e9SEd Schouten 		if (*cmd_str == '\0')
171272fcea8cSEd Schouten 		{
171372fcea8cSEd Schouten 			cmd_str = cmd_str2 = get_string(file_write_prompt_str, TRUE);
171472fcea8cSEd Schouten 		}
171572fcea8cSEd Schouten 		tmp_file = resolve_name(cmd_str);
1716cfe04e82SEd Schouten 		write_file(tmp_file, 1);
171772fcea8cSEd Schouten 		if (tmp_file != cmd_str)
171872fcea8cSEd Schouten 			free(tmp_file);
171972fcea8cSEd Schouten 	}
172072fcea8cSEd Schouten 	else if (compare(cmd_str, READ, FALSE))
172172fcea8cSEd Schouten 	{
172272fcea8cSEd Schouten 		if (restrict_mode())
172372fcea8cSEd Schouten 		{
172472fcea8cSEd Schouten 			return;
172572fcea8cSEd Schouten 		}
172672fcea8cSEd Schouten 		cmd_str = next_word(cmd_str);
172796b676e9SEd Schouten 		if (*cmd_str == '\0')
172872fcea8cSEd Schouten 		{
172972fcea8cSEd Schouten 			cmd_str = cmd_str2 = get_string(file_read_prompt_str, TRUE);
173072fcea8cSEd Schouten 		}
173172fcea8cSEd Schouten 		tmp_file = cmd_str;
173272fcea8cSEd Schouten 		recv_file = TRUE;
173372fcea8cSEd Schouten 		tmp_file = resolve_name(cmd_str);
173472fcea8cSEd Schouten 		check_fp();
173572fcea8cSEd Schouten 		if (tmp_file != cmd_str)
173672fcea8cSEd Schouten 			free(tmp_file);
173772fcea8cSEd Schouten 	}
173872fcea8cSEd Schouten 	else if (compare(cmd_str, LINE, FALSE))
173972fcea8cSEd Schouten 	{
174072fcea8cSEd Schouten 		wmove(com_win, 0, 0);
174172fcea8cSEd Schouten 		wclrtoeol(com_win);
174272fcea8cSEd Schouten 		wprintw(com_win, line_num_str, curr_line->line_number);
174372fcea8cSEd Schouten 		wprintw(com_win, line_len_str, curr_line->line_length);
174472fcea8cSEd Schouten 	}
174572fcea8cSEd Schouten 	else if (compare(cmd_str, FILE_str, FALSE))
174672fcea8cSEd Schouten 	{
174772fcea8cSEd Schouten 		wmove(com_win, 0, 0);
174872fcea8cSEd Schouten 		wclrtoeol(com_win);
174972fcea8cSEd Schouten 		if (in_file_name == NULL)
175072fcea8cSEd Schouten 			wprintw(com_win, no_file_string);
175172fcea8cSEd Schouten 		else
175272fcea8cSEd Schouten 			wprintw(com_win, current_file_str, in_file_name);
175372fcea8cSEd Schouten 	}
175472fcea8cSEd Schouten 	else if ((*cmd_str >= '0') && (*cmd_str <= '9'))
175572fcea8cSEd Schouten 		goto_line(cmd_str);
175672fcea8cSEd Schouten 	else if (compare(cmd_str, CHARACTER, FALSE))
175772fcea8cSEd Schouten 	{
175872fcea8cSEd Schouten 		wmove(com_win, 0, 0);
175972fcea8cSEd Schouten 		wclrtoeol(com_win);
176072fcea8cSEd Schouten 		wprintw(com_win, char_str, *point);
176172fcea8cSEd Schouten 	}
176272fcea8cSEd Schouten 	else if (compare(cmd_str, REDRAW, FALSE))
176372fcea8cSEd Schouten 		redraw();
176472fcea8cSEd Schouten 	else if (compare(cmd_str, RESEQUENCE, FALSE))
176572fcea8cSEd Schouten 	{
176672fcea8cSEd Schouten 		tmp_line = first_line->next_line;
176772fcea8cSEd Schouten 		while (tmp_line != NULL)
176872fcea8cSEd Schouten 		{
176972fcea8cSEd Schouten 		tmp_line->line_number = tmp_line->prev_line->line_number + 1;
177072fcea8cSEd Schouten 			tmp_line = tmp_line->next_line;
177172fcea8cSEd Schouten 		}
177272fcea8cSEd Schouten 	}
177372fcea8cSEd Schouten 	else if (compare(cmd_str, AUTHOR, FALSE))
177472fcea8cSEd Schouten 	{
177572fcea8cSEd Schouten 		wmove(com_win, 0, 0);
177672fcea8cSEd Schouten 		wclrtoeol(com_win);
177772fcea8cSEd Schouten 		wprintw(com_win, "written by Hugh Mahon");
177872fcea8cSEd Schouten 	}
177972fcea8cSEd Schouten 	else if (compare(cmd_str, VERSION, FALSE))
178072fcea8cSEd Schouten 	{
178172fcea8cSEd Schouten 		wmove(com_win, 0, 0);
178272fcea8cSEd Schouten 		wclrtoeol(com_win);
178372fcea8cSEd Schouten 		wprintw(com_win, "%s", version);
178472fcea8cSEd Schouten 	}
178572fcea8cSEd Schouten 	else if (compare(cmd_str, CASE, FALSE))
178672fcea8cSEd Schouten 		case_sen = TRUE;
178772fcea8cSEd Schouten 	else if (compare(cmd_str, NOCASE, FALSE))
178872fcea8cSEd Schouten 		case_sen = FALSE;
178972fcea8cSEd Schouten 	else if (compare(cmd_str, EXPAND, FALSE))
179072fcea8cSEd Schouten 		expand_tabs = TRUE;
179172fcea8cSEd Schouten 	else if (compare(cmd_str, NOEXPAND, FALSE))
179272fcea8cSEd Schouten 		expand_tabs = FALSE;
179372fcea8cSEd Schouten 	else if (compare(cmd_str, Exit_string, FALSE))
179472fcea8cSEd Schouten 		finish();
179572fcea8cSEd Schouten 	else if (compare(cmd_str, chinese_cmd, FALSE))
179672fcea8cSEd Schouten 	{
179772fcea8cSEd Schouten 		ee_chinese = TRUE;
179872fcea8cSEd Schouten #ifdef NCURSE
179972fcea8cSEd Schouten 		nc_setattrib(A_NC_BIG5);
180072fcea8cSEd Schouten #endif /* NCURSE */
180172fcea8cSEd Schouten 	}
180272fcea8cSEd Schouten 	else if (compare(cmd_str, nochinese_cmd, FALSE))
180372fcea8cSEd Schouten 	{
180472fcea8cSEd Schouten 		ee_chinese = FALSE;
180572fcea8cSEd Schouten #ifdef NCURSE
180672fcea8cSEd Schouten 		nc_clearattrib(A_NC_BIG5);
180772fcea8cSEd Schouten #endif /* NCURSE */
180872fcea8cSEd Schouten 	}
180972fcea8cSEd Schouten 	else if (compare(cmd_str, QUIT_string, FALSE))
181072fcea8cSEd Schouten 		quit(0);
181172fcea8cSEd Schouten 	else if (*cmd_str == '!')
181272fcea8cSEd Schouten 	{
181372fcea8cSEd Schouten 		cmd_str++;
181472fcea8cSEd Schouten 		if ((*cmd_str == ' ') || (*cmd_str == 9))
181572fcea8cSEd Schouten 			cmd_str = next_word(cmd_str);
181672fcea8cSEd Schouten 		sh_command(cmd_str);
181772fcea8cSEd Schouten 	}
181872fcea8cSEd Schouten 	else if ((*cmd_str == '<') && (!in_pipe))
181972fcea8cSEd Schouten 	{
182072fcea8cSEd Schouten 		in_pipe = TRUE;
182172fcea8cSEd Schouten 		shell_fork = FALSE;
182272fcea8cSEd Schouten 		cmd_str++;
182372fcea8cSEd Schouten 		if ((*cmd_str == ' ') || (*cmd_str == '\t'))
182472fcea8cSEd Schouten 			cmd_str = next_word(cmd_str);
182572fcea8cSEd Schouten 		command(cmd_str);
182672fcea8cSEd Schouten 		in_pipe = FALSE;
182772fcea8cSEd Schouten 		shell_fork = TRUE;
182872fcea8cSEd Schouten 	}
182972fcea8cSEd Schouten 	else if ((*cmd_str == '>') && (!out_pipe))
183072fcea8cSEd Schouten 	{
183172fcea8cSEd Schouten 		out_pipe = TRUE;
183272fcea8cSEd Schouten 		cmd_str++;
183372fcea8cSEd Schouten 		if ((*cmd_str == ' ') || (*cmd_str == '\t'))
183472fcea8cSEd Schouten 			cmd_str = next_word(cmd_str);
183572fcea8cSEd Schouten 		command(cmd_str);
183672fcea8cSEd Schouten 		out_pipe = FALSE;
183772fcea8cSEd Schouten 	}
183872fcea8cSEd Schouten 	else
183972fcea8cSEd Schouten 	{
184072fcea8cSEd Schouten 		wmove(com_win, 0, 0);
184172fcea8cSEd Schouten 		wclrtoeol(com_win);
184272fcea8cSEd Schouten 		wprintw(com_win, unkn_cmd_str, cmd_str);
184372fcea8cSEd Schouten 	}
184472fcea8cSEd Schouten 	if (cmd_str2 != NULL)
184572fcea8cSEd Schouten 		free(cmd_str2);
184672fcea8cSEd Schouten }
184772fcea8cSEd Schouten 
1848*91517e3bSJohn Baldwin /* determine horizontal position for get_string	*/
184972fcea8cSEd Schouten int
1850*91517e3bSJohn Baldwin scan(char *line, int offset, int column)
185172fcea8cSEd Schouten {
185272fcea8cSEd Schouten 	char *stemp;
185372fcea8cSEd Schouten 	int i;
185472fcea8cSEd Schouten 	int j;
185572fcea8cSEd Schouten 
185672fcea8cSEd Schouten 	stemp = line;
185772fcea8cSEd Schouten 	i = 0;
185872fcea8cSEd Schouten 	j = column;
185972fcea8cSEd Schouten 	while (i < offset)
186072fcea8cSEd Schouten 	{
186172fcea8cSEd Schouten 		i++;
186272fcea8cSEd Schouten 		j += len_char(*stemp, j);
186372fcea8cSEd Schouten 		stemp++;
186472fcea8cSEd Schouten 	}
186572fcea8cSEd Schouten 	return(j);
186672fcea8cSEd Schouten }
186772fcea8cSEd Schouten 
1868*91517e3bSJohn Baldwin /* read string from input on command line */
186972fcea8cSEd Schouten char *
1870*91517e3bSJohn Baldwin get_string(char *prompt, int advance)
187172fcea8cSEd Schouten {
187272fcea8cSEd Schouten 	char *string;
187372fcea8cSEd Schouten 	char *tmp_string;
187472fcea8cSEd Schouten 	char *nam_str;
187572fcea8cSEd Schouten 	char *g_point;
187672fcea8cSEd Schouten 	int tmp_int;
187772fcea8cSEd Schouten 	int g_horz, g_position, g_pos;
187872fcea8cSEd Schouten 	int esc_flag;
187972fcea8cSEd Schouten 
188072fcea8cSEd Schouten 	g_point = tmp_string = malloc(512);
188172fcea8cSEd Schouten 	wmove(com_win,0,0);
188272fcea8cSEd Schouten 	wclrtoeol(com_win);
188372fcea8cSEd Schouten 	waddstr(com_win, prompt);
188472fcea8cSEd Schouten 	wrefresh(com_win);
188572fcea8cSEd Schouten 	nam_str = tmp_string;
188672fcea8cSEd Schouten 	clear_com_win = TRUE;
188772fcea8cSEd Schouten 	g_horz = g_position = scan(prompt, strlen(prompt), 0);
188872fcea8cSEd Schouten 	g_pos = 0;
188972fcea8cSEd Schouten 	do
189072fcea8cSEd Schouten 	{
189172fcea8cSEd Schouten 		esc_flag = FALSE;
189272fcea8cSEd Schouten 		in = wgetch(com_win);
189372fcea8cSEd Schouten 		if (in == -1)
189496b676e9SEd Schouten 			exit(0);
189572fcea8cSEd Schouten 		if (((in == 8) || (in == 127) || (in == KEY_BACKSPACE)) && (g_pos > 0))
189672fcea8cSEd Schouten 		{
189772fcea8cSEd Schouten 			tmp_int = g_horz;
189872fcea8cSEd Schouten 			g_pos--;
189972fcea8cSEd Schouten 			g_horz = scan(g_point, g_pos, g_position);
190072fcea8cSEd Schouten 			tmp_int = tmp_int - g_horz;
190172fcea8cSEd Schouten 			for (; 0 < tmp_int; tmp_int--)
190272fcea8cSEd Schouten 			{
190372fcea8cSEd Schouten 				if ((g_horz+tmp_int) < (last_col - 1))
190472fcea8cSEd Schouten 				{
190572fcea8cSEd Schouten 					waddch(com_win, '\010');
190672fcea8cSEd Schouten 					waddch(com_win, ' ');
190772fcea8cSEd Schouten 					waddch(com_win, '\010');
190872fcea8cSEd Schouten 				}
190972fcea8cSEd Schouten 			}
191072fcea8cSEd Schouten 			nam_str--;
191172fcea8cSEd Schouten 		}
191272fcea8cSEd Schouten 		else if ((in != 8) && (in != 127) && (in != '\n') && (in != '\r') && (in < 256))
191372fcea8cSEd Schouten 		{
191472fcea8cSEd Schouten 			if (in == '\026')	/* control-v, accept next character verbatim	*/
191572fcea8cSEd Schouten 			{			/* allows entry of ^m, ^j, and ^h	*/
191672fcea8cSEd Schouten 				esc_flag = TRUE;
191772fcea8cSEd Schouten 				in = wgetch(com_win);
191872fcea8cSEd Schouten 				if (in == -1)
191996b676e9SEd Schouten 					exit(0);
192072fcea8cSEd Schouten 			}
192172fcea8cSEd Schouten 			*nam_str = in;
192272fcea8cSEd Schouten 			g_pos++;
1923f39e07f3SAndrey A. Chernov 			if (!isprint((unsigned char)in) && (g_horz < (last_col - 1)))
192472fcea8cSEd Schouten 				g_horz += out_char(com_win, in, g_horz);
192572fcea8cSEd Schouten 			else
192672fcea8cSEd Schouten 			{
192772fcea8cSEd Schouten 				g_horz++;
192872fcea8cSEd Schouten 				if (g_horz < (last_col - 1))
1929f39e07f3SAndrey A. Chernov 					waddch(com_win, (unsigned char)in);
193072fcea8cSEd Schouten 			}
193172fcea8cSEd Schouten 			nam_str++;
193272fcea8cSEd Schouten 		}
193372fcea8cSEd Schouten 		wrefresh(com_win);
193472fcea8cSEd Schouten 		if (esc_flag)
193596b676e9SEd Schouten 			in = '\0';
193672fcea8cSEd Schouten 	} while ((in != '\n') && (in != '\r'));
193796b676e9SEd Schouten 	*nam_str = '\0';
193872fcea8cSEd Schouten 	nam_str = tmp_string;
193972fcea8cSEd Schouten 	if (((*nam_str == ' ') || (*nam_str == 9)) && (advance))
194072fcea8cSEd Schouten 		nam_str = next_word(nam_str);
194172fcea8cSEd Schouten 	string = malloc(strlen(nam_str) + 1);
194272fcea8cSEd Schouten 	strcpy(string, nam_str);
194372fcea8cSEd Schouten 	free(tmp_string);
194472fcea8cSEd Schouten 	wrefresh(com_win);
194572fcea8cSEd Schouten 	return(string);
194672fcea8cSEd Schouten }
194772fcea8cSEd Schouten 
1948*91517e3bSJohn Baldwin /* compare two strings	*/
194972fcea8cSEd Schouten int
1950*91517e3bSJohn Baldwin compare(char *string1, char *string2, int sensitive)
195172fcea8cSEd Schouten {
195272fcea8cSEd Schouten 	char *strng1;
195372fcea8cSEd Schouten 	char *strng2;
195472fcea8cSEd Schouten 	int tmp;
195572fcea8cSEd Schouten 	int equal;
195672fcea8cSEd Schouten 
195772fcea8cSEd Schouten 	strng1 = string1;
195872fcea8cSEd Schouten 	strng2 = string2;
195972fcea8cSEd Schouten 	tmp = 0;
196096b676e9SEd Schouten 	if ((strng1 == NULL) || (strng2 == NULL) || (*strng1 == '\0') || (*strng2 == '\0'))
196172fcea8cSEd Schouten 		return(FALSE);
196272fcea8cSEd Schouten 	equal = TRUE;
196372fcea8cSEd Schouten 	while (equal)
196472fcea8cSEd Schouten 	{
196572fcea8cSEd Schouten 		if (sensitive)
196672fcea8cSEd Schouten 		{
196772fcea8cSEd Schouten 			if (*strng1 != *strng2)
196872fcea8cSEd Schouten 				equal = FALSE;
196972fcea8cSEd Schouten 		}
197072fcea8cSEd Schouten 		else
197172fcea8cSEd Schouten 		{
197231dcbfadSAndrey A. Chernov 			if (toupper((unsigned char)*strng1) != toupper((unsigned char)*strng2))
197372fcea8cSEd Schouten 				equal = FALSE;
197472fcea8cSEd Schouten 		}
197572fcea8cSEd Schouten 		strng1++;
197672fcea8cSEd Schouten 		strng2++;
197796b676e9SEd Schouten 		if ((*strng1 == '\0') || (*strng2 == '\0') || (*strng1 == ' ') || (*strng2 == ' '))
197872fcea8cSEd Schouten 			break;
197972fcea8cSEd Schouten 		tmp++;
198072fcea8cSEd Schouten 	}
198172fcea8cSEd Schouten 	return(equal);
198272fcea8cSEd Schouten }
198372fcea8cSEd Schouten 
198472fcea8cSEd Schouten void
1985*91517e3bSJohn Baldwin goto_line(char *cmd_str)
198672fcea8cSEd Schouten {
198772fcea8cSEd Schouten 	int number;
198872fcea8cSEd Schouten 	int i;
198972fcea8cSEd Schouten 	char *ptr;
19907bf1ea96SEd Schouten 	char direction = '\0';
199172fcea8cSEd Schouten 	struct text *t_line;
199272fcea8cSEd Schouten 
199372fcea8cSEd Schouten 	ptr = cmd_str;
199472fcea8cSEd Schouten 	i= 0;
199572fcea8cSEd Schouten 	while ((*ptr >='0') && (*ptr <= '9'))
199672fcea8cSEd Schouten 	{
199772fcea8cSEd Schouten 		i= i * 10 + (*ptr - '0');
199872fcea8cSEd Schouten 		ptr++;
199972fcea8cSEd Schouten 	}
200072fcea8cSEd Schouten 	number = i;
200172fcea8cSEd Schouten 	i = 0;
200272fcea8cSEd Schouten 	t_line = curr_line;
200372fcea8cSEd Schouten 	while ((t_line->line_number > number) && (t_line->prev_line != NULL))
200472fcea8cSEd Schouten 	{
200572fcea8cSEd Schouten 		i++;
200672fcea8cSEd Schouten 		t_line = t_line->prev_line;
20077bf1ea96SEd Schouten 		direction = 'u';
200872fcea8cSEd Schouten 	}
200972fcea8cSEd Schouten 	while ((t_line->line_number < number) && (t_line->next_line != NULL))
201072fcea8cSEd Schouten 	{
201172fcea8cSEd Schouten 		i++;
20127bf1ea96SEd Schouten 		direction = 'd';
201372fcea8cSEd Schouten 		t_line = t_line->next_line;
201472fcea8cSEd Schouten 	}
201572fcea8cSEd Schouten 	if ((i < 30) && (i > 0))
201672fcea8cSEd Schouten 	{
201772fcea8cSEd Schouten 		move_rel(direction, i);
201872fcea8cSEd Schouten 	}
201972fcea8cSEd Schouten 	else
202072fcea8cSEd Schouten 	{
20217bf1ea96SEd Schouten 		if (direction != 'd')
202296b676e9SEd Schouten 		{
202396b676e9SEd Schouten 			absolute_lin += i;
202496b676e9SEd Schouten 		}
202596b676e9SEd Schouten 		else
202696b676e9SEd Schouten 		{
202796b676e9SEd Schouten 			absolute_lin -= i;
202896b676e9SEd Schouten 		}
202972fcea8cSEd Schouten 		curr_line = t_line;
203072fcea8cSEd Schouten 		point = curr_line->line;
203172fcea8cSEd Schouten 		position = 1;
203272fcea8cSEd Schouten 		midscreen((last_line / 2), point);
203372fcea8cSEd Schouten 		scr_pos = scr_horz;
203472fcea8cSEd Schouten 	}
203572fcea8cSEd Schouten 	wmove(com_win, 0, 0);
203672fcea8cSEd Schouten 	wclrtoeol(com_win);
203772fcea8cSEd Schouten 	wprintw(com_win, line_num_str, curr_line->line_number);
203872fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
203972fcea8cSEd Schouten }
204072fcea8cSEd Schouten 
2041*91517e3bSJohn Baldwin /* put current line in middle of screen	*/
204272fcea8cSEd Schouten void
2043*91517e3bSJohn Baldwin midscreen(int line, unsigned char *pnt)
204472fcea8cSEd Schouten {
204572fcea8cSEd Schouten 	struct text *mid_line;
204672fcea8cSEd Schouten 	int i;
204772fcea8cSEd Schouten 
204872fcea8cSEd Schouten 	line = min(line, last_line);
204972fcea8cSEd Schouten 	mid_line = curr_line;
205072fcea8cSEd Schouten 	for (i = 0; ((i < line) && (curr_line->prev_line != NULL)); i++)
205172fcea8cSEd Schouten 		curr_line = curr_line->prev_line;
205272fcea8cSEd Schouten 	scr_vert = scr_horz = 0;
205372fcea8cSEd Schouten 	wmove(text_win, 0, 0);
205472fcea8cSEd Schouten 	draw_screen();
205572fcea8cSEd Schouten 	scr_vert = i;
205672fcea8cSEd Schouten 	curr_line = mid_line;
205772fcea8cSEd Schouten 	scanline(pnt);
205872fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
205972fcea8cSEd Schouten }
206072fcea8cSEd Schouten 
2061*91517e3bSJohn Baldwin /* get arguments from command line	*/
206272fcea8cSEd Schouten void
2063*91517e3bSJohn Baldwin get_options(int numargs, char *arguments[])
206472fcea8cSEd Schouten {
206572fcea8cSEd Schouten 	char *buff;
206672fcea8cSEd Schouten 	int count;
2067cfe04e82SEd Schouten 	struct files *temp_names = NULL;
206872fcea8cSEd Schouten 	char *name;
206972fcea8cSEd Schouten 	char *ptr;
2070cfe04e82SEd Schouten 	int no_more_opts = FALSE;
207172fcea8cSEd Schouten 
207272fcea8cSEd Schouten 	/*
207372fcea8cSEd Schouten 	 |	see if editor was invoked as 'ree' (restricted mode)
207472fcea8cSEd Schouten 	 */
207572fcea8cSEd Schouten 
207672fcea8cSEd Schouten 	if (!(name = strrchr(arguments[0], '/')))
207772fcea8cSEd Schouten 		name = arguments[0];
207872fcea8cSEd Schouten 	else
207972fcea8cSEd Schouten 		name++;
208072fcea8cSEd Schouten 	if (!strcmp(name, "ree"))
208172fcea8cSEd Schouten 		restricted = TRUE;
208272fcea8cSEd Schouten 
208372fcea8cSEd Schouten 	top_of_stack = NULL;
208472fcea8cSEd Schouten 	input_file = FALSE;
208572fcea8cSEd Schouten 	recv_file = FALSE;
208672fcea8cSEd Schouten 	count = 1;
2087cfe04e82SEd Schouten 	while ((count < numargs)&& (!no_more_opts))
208872fcea8cSEd Schouten 	{
208972fcea8cSEd Schouten 		buff = arguments[count];
209072fcea8cSEd Schouten 		if (!strcmp("-i", buff))
209172fcea8cSEd Schouten 		{
209272fcea8cSEd Schouten 			info_window = FALSE;
209372fcea8cSEd Schouten 		}
209472fcea8cSEd Schouten 		else if (!strcmp("-e", buff))
209572fcea8cSEd Schouten 		{
209672fcea8cSEd Schouten 			expand_tabs = FALSE;
209772fcea8cSEd Schouten 		}
209872fcea8cSEd Schouten 		else if (!strcmp("-h", buff))
209972fcea8cSEd Schouten 		{
210072fcea8cSEd Schouten 			nohighlight = TRUE;
210172fcea8cSEd Schouten 		}
210272fcea8cSEd Schouten 		else if (!strcmp("-?", buff))
210372fcea8cSEd Schouten 		{
210472fcea8cSEd Schouten 			fprintf(stderr, usage0, arguments[0]);
21058f04da68SDimitry Andric 			fputs(usage1, stderr);
21068f04da68SDimitry Andric 			fputs(usage2, stderr);
21078f04da68SDimitry Andric 			fputs(usage3, stderr);
21088f04da68SDimitry Andric 			fputs(usage4, stderr);
210972fcea8cSEd Schouten 			exit(1);
211072fcea8cSEd Schouten 		}
211196b676e9SEd Schouten 		else if ((*buff == '+') && (start_at_line == NULL))
211272fcea8cSEd Schouten 		{
211372fcea8cSEd Schouten 			buff++;
211472fcea8cSEd Schouten 			start_at_line = buff;
211572fcea8cSEd Schouten 		}
2116cfe04e82SEd Schouten 		else if (!(strcmp("--", buff)))
2117cfe04e82SEd Schouten 			no_more_opts = TRUE;
211872fcea8cSEd Schouten 		else
211972fcea8cSEd Schouten 		{
2120cfe04e82SEd Schouten 			count--;
2121cfe04e82SEd Schouten 			no_more_opts = TRUE;
2122cfe04e82SEd Schouten 		}
2123cfe04e82SEd Schouten 		count++;
2124cfe04e82SEd Schouten 	}
2125cfe04e82SEd Schouten 	while (count < numargs)
2126cfe04e82SEd Schouten 	{
2127cfe04e82SEd Schouten 		buff = arguments[count];
212872fcea8cSEd Schouten 		if (top_of_stack == NULL)
212972fcea8cSEd Schouten 		{
213072fcea8cSEd Schouten 			temp_names = top_of_stack = name_alloc();
213172fcea8cSEd Schouten 		}
213272fcea8cSEd Schouten 		else
213372fcea8cSEd Schouten 		{
213472fcea8cSEd Schouten 			temp_names->next_name = name_alloc();
213572fcea8cSEd Schouten 			temp_names = temp_names->next_name;
213672fcea8cSEd Schouten 		}
213772fcea8cSEd Schouten 		ptr = temp_names->name = malloc(strlen(buff) + 1);
213896b676e9SEd Schouten 		while (*buff != '\0')
213972fcea8cSEd Schouten 		{
214072fcea8cSEd Schouten 			*ptr = *buff;
214172fcea8cSEd Schouten 			buff++;
214272fcea8cSEd Schouten 			ptr++;
214372fcea8cSEd Schouten 		}
214496b676e9SEd Schouten 		*ptr = '\0';
214572fcea8cSEd Schouten 		temp_names->next_name = NULL;
214672fcea8cSEd Schouten 		input_file = TRUE;
214772fcea8cSEd Schouten 		recv_file = TRUE;
214872fcea8cSEd Schouten 		count++;
214972fcea8cSEd Schouten 	}
215072fcea8cSEd Schouten }
215172fcea8cSEd Schouten 
2152*91517e3bSJohn Baldwin /* open or close files according to flags */
215372fcea8cSEd Schouten void
2154*91517e3bSJohn Baldwin check_fp(void)
215572fcea8cSEd Schouten {
215672fcea8cSEd Schouten 	int line_num;
215772fcea8cSEd Schouten 	int temp;
215872fcea8cSEd Schouten 	struct stat buf;
215972fcea8cSEd Schouten 
216072fcea8cSEd Schouten 	clear_com_win = TRUE;
216172fcea8cSEd Schouten 	tmp_vert = scr_vert;
216272fcea8cSEd Schouten 	tmp_horz = scr_horz;
216372fcea8cSEd Schouten 	tmp_line = curr_line;
216472fcea8cSEd Schouten 	if (input_file)
216572fcea8cSEd Schouten 	{
216672fcea8cSEd Schouten 		in_file_name = tmp_file = top_of_stack->name;
216772fcea8cSEd Schouten 		top_of_stack = top_of_stack->next_name;
216872fcea8cSEd Schouten 	}
216972fcea8cSEd Schouten 	temp = stat(tmp_file, &buf);
217072fcea8cSEd Schouten 	buf.st_mode &= ~07777;
217172fcea8cSEd Schouten 	if ((temp != -1) && (buf.st_mode != 0100000) && (buf.st_mode != 0))
217272fcea8cSEd Schouten 	{
217372fcea8cSEd Schouten 		wprintw(com_win, file_is_dir_msg, tmp_file);
217472fcea8cSEd Schouten 		wrefresh(com_win);
217572fcea8cSEd Schouten 		if (input_file)
217672fcea8cSEd Schouten 		{
217772fcea8cSEd Schouten 			quit(0);
217872fcea8cSEd Schouten 			return;
217972fcea8cSEd Schouten 		}
218072fcea8cSEd Schouten 		else
218172fcea8cSEd Schouten 			return;
218272fcea8cSEd Schouten 	}
218372fcea8cSEd Schouten 	if ((get_fd = open(tmp_file, O_RDONLY)) == -1)
218472fcea8cSEd Schouten 	{
218572fcea8cSEd Schouten 		wmove(com_win, 0, 0);
218672fcea8cSEd Schouten 		wclrtoeol(com_win);
218772fcea8cSEd Schouten 		if (input_file)
218872fcea8cSEd Schouten 			wprintw(com_win, new_file_msg, tmp_file);
218972fcea8cSEd Schouten 		else
219072fcea8cSEd Schouten 			wprintw(com_win, cant_open_msg, tmp_file);
219172fcea8cSEd Schouten 		wrefresh(com_win);
219272fcea8cSEd Schouten 		wmove(text_win, scr_vert, (scr_horz - horiz_offset));
219372fcea8cSEd Schouten 		wrefresh(text_win);
219472fcea8cSEd Schouten 		recv_file = FALSE;
219572fcea8cSEd Schouten 		input_file = FALSE;
219672fcea8cSEd Schouten 		return;
219772fcea8cSEd Schouten 	}
219872fcea8cSEd Schouten 	else
219972fcea8cSEd Schouten 		get_file(tmp_file);
220072fcea8cSEd Schouten 
220172fcea8cSEd Schouten 	recv_file = FALSE;
220272fcea8cSEd Schouten 	line_num = curr_line->line_number;
220372fcea8cSEd Schouten 	scr_vert = tmp_vert;
220472fcea8cSEd Schouten 	scr_horz = tmp_horz;
220572fcea8cSEd Schouten 	if (input_file)
220672fcea8cSEd Schouten 		curr_line= first_line;
220772fcea8cSEd Schouten 	else
220872fcea8cSEd Schouten 		curr_line = tmp_line;
220972fcea8cSEd Schouten 	point = curr_line->line;
221072fcea8cSEd Schouten 	draw_screen();
221172fcea8cSEd Schouten 	if (input_file)
221272fcea8cSEd Schouten 	{
221372fcea8cSEd Schouten 		input_file = FALSE;
221472fcea8cSEd Schouten 		if (start_at_line != NULL)
221572fcea8cSEd Schouten 		{
221672fcea8cSEd Schouten 			line_num = atoi(start_at_line) - 1;
22177bf1ea96SEd Schouten 			move_rel('d', line_num);
221872fcea8cSEd Schouten 			line_num = 0;
221972fcea8cSEd Schouten 			start_at_line = NULL;
222072fcea8cSEd Schouten 		}
222172fcea8cSEd Schouten 	}
222272fcea8cSEd Schouten 	else
222372fcea8cSEd Schouten 	{
222472fcea8cSEd Schouten 		wmove(com_win, 0, 0);
222572fcea8cSEd Schouten 		wclrtoeol(com_win);
222672fcea8cSEd Schouten 		text_changes = TRUE;
222796b676e9SEd Schouten 		if ((tmp_file != NULL) && (*tmp_file != '\0'))
222872fcea8cSEd Schouten 			wprintw(com_win, file_read_fin_msg, tmp_file);
222972fcea8cSEd Schouten 	}
223072fcea8cSEd Schouten 	wrefresh(com_win);
223172fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
223272fcea8cSEd Schouten 	wrefresh(text_win);
223372fcea8cSEd Schouten }
223472fcea8cSEd Schouten 
2235*91517e3bSJohn Baldwin /* read specified file into current buffer	*/
223672fcea8cSEd Schouten void
2237*91517e3bSJohn Baldwin get_file(char *file_name)
223872fcea8cSEd Schouten {
223972fcea8cSEd Schouten 	int can_read;		/* file has at least one character	*/
224072fcea8cSEd Schouten 	int length;		/* length of line read by read		*/
224172fcea8cSEd Schouten 	int append;		/* should text be appended to current line */
224272fcea8cSEd Schouten 	struct text *temp_line;
224372fcea8cSEd Schouten 	char ro_flag = FALSE;
224472fcea8cSEd Schouten 
224572fcea8cSEd Schouten 	if (recv_file)		/* if reading a file			*/
224672fcea8cSEd Schouten 	{
224772fcea8cSEd Schouten 		wmove(com_win, 0, 0);
224872fcea8cSEd Schouten 		wclrtoeol(com_win);
224972fcea8cSEd Schouten 		wprintw(com_win, reading_file_msg, file_name);
225072fcea8cSEd Schouten 		if (access(file_name, 2))	/* check permission to write */
225172fcea8cSEd Schouten 		{
225272fcea8cSEd Schouten 			if ((errno == ENOTDIR) || (errno == EACCES) || (errno == EROFS) || (errno == ETXTBSY) || (errno == EFAULT))
225372fcea8cSEd Schouten 			{
225472fcea8cSEd Schouten 				wprintw(com_win, read_only_msg);
225572fcea8cSEd Schouten 				ro_flag = TRUE;
225672fcea8cSEd Schouten 			}
225772fcea8cSEd Schouten 		}
225872fcea8cSEd Schouten 		wrefresh(com_win);
225972fcea8cSEd Schouten 	}
226072fcea8cSEd Schouten 	if (curr_line->line_length > 1)	/* if current line is not blank	*/
226172fcea8cSEd Schouten 	{
226272fcea8cSEd Schouten 		insert_line(FALSE);
226372fcea8cSEd Schouten 		left(FALSE);
226472fcea8cSEd Schouten 		append = FALSE;
226572fcea8cSEd Schouten 	}
226672fcea8cSEd Schouten 	else
226772fcea8cSEd Schouten 		append = TRUE;
226872fcea8cSEd Schouten 	can_read = FALSE;		/* test if file has any characters  */
226972fcea8cSEd Schouten 	while (((length = read(get_fd, in_string, 512)) != 0) && (length != -1))
227072fcea8cSEd Schouten 	{
227172fcea8cSEd Schouten 		can_read = TRUE;  /* if set file has at least 1 character   */
227272fcea8cSEd Schouten 		get_line(length, in_string, &append);
227372fcea8cSEd Schouten 	}
227472fcea8cSEd Schouten 	if ((can_read) && (curr_line->line_length == 1))
227572fcea8cSEd Schouten 	{
227672fcea8cSEd Schouten 		temp_line = curr_line->prev_line;
227772fcea8cSEd Schouten 		temp_line->next_line = curr_line->next_line;
227872fcea8cSEd Schouten 		if (temp_line->next_line != NULL)
227972fcea8cSEd Schouten 			temp_line->next_line->prev_line = temp_line;
228072fcea8cSEd Schouten 		if (curr_line->line != NULL)
228172fcea8cSEd Schouten 			free(curr_line->line);
228272fcea8cSEd Schouten 		free(curr_line);
228372fcea8cSEd Schouten 		curr_line = temp_line;
228472fcea8cSEd Schouten 	}
228572fcea8cSEd Schouten 	if (input_file)	/* if this is the file to be edited display number of lines	*/
228672fcea8cSEd Schouten 	{
228772fcea8cSEd Schouten 		wmove(com_win, 0, 0);
228872fcea8cSEd Schouten 		wclrtoeol(com_win);
228972fcea8cSEd Schouten 		wprintw(com_win, file_read_lines_msg, in_file_name, curr_line->line_number);
229072fcea8cSEd Schouten 		if (ro_flag)
229172fcea8cSEd Schouten 			wprintw(com_win, read_only_msg);
229272fcea8cSEd Schouten 		wrefresh(com_win);
229372fcea8cSEd Schouten 	}
229472fcea8cSEd Schouten 	else if (can_read)	/* not input_file and file is non-zero size */
229572fcea8cSEd Schouten 		text_changes = TRUE;
229672fcea8cSEd Schouten 
229772fcea8cSEd Schouten 	if (recv_file)		/* if reading a file			*/
229872fcea8cSEd Schouten 	{
229972fcea8cSEd Schouten 		in = EOF;
230072fcea8cSEd Schouten 	}
230172fcea8cSEd Schouten }
230272fcea8cSEd Schouten 
2303*91517e3bSJohn Baldwin /* read string and split into lines */
230472fcea8cSEd Schouten void
2305*91517e3bSJohn Baldwin get_line(int length, unsigned char *in_string, int *append)
230672fcea8cSEd Schouten {
230772fcea8cSEd Schouten 	unsigned char *str1;
230872fcea8cSEd Schouten 	unsigned char *str2;
230972fcea8cSEd Schouten 	int num;		/* offset from start of string		*/
231072fcea8cSEd Schouten 	int char_count;		/* length of new line (or added portion	*/
231172fcea8cSEd Schouten 	int temp_counter;	/* temporary counter value		*/
231272fcea8cSEd Schouten 	struct text *tline;	/* temporary pointer to new line	*/
231372fcea8cSEd Schouten 	int first_time;		/* if TRUE, the first time through the loop */
231472fcea8cSEd Schouten 
231572fcea8cSEd Schouten 	str2 = in_string;
231672fcea8cSEd Schouten 	num = 0;
231772fcea8cSEd Schouten 	first_time = TRUE;
231872fcea8cSEd Schouten 	while (num < length)
231972fcea8cSEd Schouten 	{
232072fcea8cSEd Schouten 		if (!first_time)
232172fcea8cSEd Schouten 		{
232272fcea8cSEd Schouten 			if (num < length)
232372fcea8cSEd Schouten 			{
232472fcea8cSEd Schouten 				str2++;
232572fcea8cSEd Schouten 				num++;
232672fcea8cSEd Schouten 			}
232772fcea8cSEd Schouten 		}
232872fcea8cSEd Schouten 		else
232972fcea8cSEd Schouten 			first_time = FALSE;
233072fcea8cSEd Schouten 		str1 = str2;
233172fcea8cSEd Schouten 		char_count = 1;
233272fcea8cSEd Schouten 		/* find end of line	*/
233372fcea8cSEd Schouten 		while ((*str2 != '\n') && (num < length))
233472fcea8cSEd Schouten 		{
233572fcea8cSEd Schouten 			str2++;
233672fcea8cSEd Schouten 			num++;
233772fcea8cSEd Schouten 			char_count++;
233872fcea8cSEd Schouten 		}
233972fcea8cSEd Schouten 		if (!(*append))	/* if not append to current line, insert new one */
234072fcea8cSEd Schouten 		{
234172fcea8cSEd Schouten 			tline = txtalloc();	/* allocate data structure for next line */
234296b676e9SEd Schouten 			tline->line_number = curr_line->line_number + 1;
234372fcea8cSEd Schouten 			tline->next_line = curr_line->next_line;
234472fcea8cSEd Schouten 			tline->prev_line = curr_line;
234572fcea8cSEd Schouten 			curr_line->next_line = tline;
234672fcea8cSEd Schouten 			if (tline->next_line != NULL)
234772fcea8cSEd Schouten 				tline->next_line->prev_line = tline;
234872fcea8cSEd Schouten 			curr_line = tline;
234972fcea8cSEd Schouten 			curr_line->line = point = (unsigned char *) malloc(char_count);
235072fcea8cSEd Schouten 			curr_line->line_length = char_count;
235172fcea8cSEd Schouten 			curr_line->max_length = char_count;
235272fcea8cSEd Schouten 		}
235372fcea8cSEd Schouten 		else
235472fcea8cSEd Schouten 		{
235572fcea8cSEd Schouten 			point = resiz_line(char_count, curr_line, curr_line->line_length);
235672fcea8cSEd Schouten 			curr_line->line_length += (char_count - 1);
235772fcea8cSEd Schouten 		}
235872fcea8cSEd Schouten 		for (temp_counter = 1; temp_counter < char_count; temp_counter++)
235972fcea8cSEd Schouten 		{
236072fcea8cSEd Schouten 			*point = *str1;
236172fcea8cSEd Schouten 			point++;
236272fcea8cSEd Schouten 			str1++;
236372fcea8cSEd Schouten 		}
236496b676e9SEd Schouten 		*point = '\0';
236572fcea8cSEd Schouten 		*append = FALSE;
236672fcea8cSEd Schouten 		if ((num == length) && (*str2 != '\n'))
236772fcea8cSEd Schouten 			*append = TRUE;
236872fcea8cSEd Schouten 	}
236972fcea8cSEd Schouten }
237072fcea8cSEd Schouten 
237172fcea8cSEd Schouten void
237272fcea8cSEd Schouten draw_screen()		/* redraw the screen from current postion	*/
237372fcea8cSEd Schouten {
237472fcea8cSEd Schouten 	struct text *temp_line;
237572fcea8cSEd Schouten 	unsigned char *line_out;
237672fcea8cSEd Schouten 	int temp_vert;
237772fcea8cSEd Schouten 
237872fcea8cSEd Schouten 	temp_line = curr_line;
237972fcea8cSEd Schouten 	temp_vert = scr_vert;
238072fcea8cSEd Schouten 	wclrtobot(text_win);
238172fcea8cSEd Schouten 	while ((temp_line != NULL) && (temp_vert <= last_line))
238272fcea8cSEd Schouten 	{
238372fcea8cSEd Schouten 		line_out = temp_line->line;
238472fcea8cSEd Schouten 		draw_line(temp_vert, 0, line_out, 1, temp_line->line_length);
238572fcea8cSEd Schouten 		temp_vert++;
238672fcea8cSEd Schouten 		temp_line = temp_line->next_line;
238772fcea8cSEd Schouten 	}
238872fcea8cSEd Schouten 	wmove(text_win, temp_vert, 0);
238972fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
239072fcea8cSEd Schouten }
239172fcea8cSEd Schouten 
2392*91517e3bSJohn Baldwin /* prepare to exit edit session	*/
239372fcea8cSEd Schouten void
2394*91517e3bSJohn Baldwin finish(void)
239572fcea8cSEd Schouten {
239672fcea8cSEd Schouten 	char *file_name = in_file_name;
239772fcea8cSEd Schouten 
239872fcea8cSEd Schouten 	/*
239972fcea8cSEd Schouten 	 |	changes made here should be reflected in the 'save'
240072fcea8cSEd Schouten 	 |	portion of file_op()
240172fcea8cSEd Schouten 	 */
240272fcea8cSEd Schouten 
240396b676e9SEd Schouten 	if ((file_name == NULL) || (*file_name == '\0'))
240472fcea8cSEd Schouten 		file_name = get_string(save_file_name_prompt, TRUE);
240572fcea8cSEd Schouten 
240696b676e9SEd Schouten 	if ((file_name == NULL) || (*file_name == '\0'))
240772fcea8cSEd Schouten 	{
240872fcea8cSEd Schouten 		wmove(com_win, 0, 0);
240972fcea8cSEd Schouten 		wprintw(com_win, file_not_saved_msg);
241072fcea8cSEd Schouten 		wclrtoeol(com_win);
241172fcea8cSEd Schouten 		wrefresh(com_win);
241272fcea8cSEd Schouten 		clear_com_win = TRUE;
241372fcea8cSEd Schouten 		return;
241472fcea8cSEd Schouten 	}
241572fcea8cSEd Schouten 
241672fcea8cSEd Schouten 	tmp_file = resolve_name(file_name);
241772fcea8cSEd Schouten 	if (tmp_file != file_name)
241872fcea8cSEd Schouten 	{
241972fcea8cSEd Schouten 		free(file_name);
242072fcea8cSEd Schouten 		file_name = tmp_file;
242172fcea8cSEd Schouten 	}
242272fcea8cSEd Schouten 
2423cfe04e82SEd Schouten 	if (write_file(file_name, 1))
242472fcea8cSEd Schouten 	{
242572fcea8cSEd Schouten 		text_changes = FALSE;
242672fcea8cSEd Schouten 		quit(0);
242772fcea8cSEd Schouten 	}
242872fcea8cSEd Schouten }
242972fcea8cSEd Schouten 
2430*91517e3bSJohn Baldwin /* exit editor			*/
243172fcea8cSEd Schouten int
2432*91517e3bSJohn Baldwin quit(int noverify)
243372fcea8cSEd Schouten {
243472fcea8cSEd Schouten 	char *ans;
243572fcea8cSEd Schouten 
243672fcea8cSEd Schouten 	touchwin(text_win);
243772fcea8cSEd Schouten 	wrefresh(text_win);
243872fcea8cSEd Schouten 	if ((text_changes) && (!noverify))
243972fcea8cSEd Schouten 	{
244072fcea8cSEd Schouten 		ans = get_string(changes_made_prompt, TRUE);
244131dcbfadSAndrey A. Chernov 		if (toupper((unsigned char)*ans) == toupper((unsigned char)*yes_char))
244272fcea8cSEd Schouten 			text_changes = FALSE;
244372fcea8cSEd Schouten 		else
244472fcea8cSEd Schouten 			return(0);
244572fcea8cSEd Schouten 		free(ans);
244672fcea8cSEd Schouten 	}
244772fcea8cSEd Schouten 	if (top_of_stack == NULL)
244872fcea8cSEd Schouten 	{
244972fcea8cSEd Schouten 		if (info_window)
245072fcea8cSEd Schouten 			wrefresh(info_win);
245172fcea8cSEd Schouten 		wrefresh(com_win);
245272fcea8cSEd Schouten 		resetty();
245372fcea8cSEd Schouten 		endwin();
245472fcea8cSEd Schouten 		putchar('\n');
245572fcea8cSEd Schouten 		exit(0);
245672fcea8cSEd Schouten 	}
245772fcea8cSEd Schouten 	else
245872fcea8cSEd Schouten 	{
245972fcea8cSEd Schouten 		delete_text();
246072fcea8cSEd Schouten 		recv_file = TRUE;
246172fcea8cSEd Schouten 		input_file = TRUE;
246272fcea8cSEd Schouten 		check_fp();
246372fcea8cSEd Schouten 	}
246472fcea8cSEd Schouten 	return(0);
246572fcea8cSEd Schouten }
246672fcea8cSEd Schouten 
246772fcea8cSEd Schouten void
2468*91517e3bSJohn Baldwin edit_abort(int arg)
246972fcea8cSEd Schouten {
247072fcea8cSEd Schouten 	wrefresh(com_win);
247172fcea8cSEd Schouten 	resetty();
247272fcea8cSEd Schouten 	endwin();
247372fcea8cSEd Schouten 	putchar('\n');
247472fcea8cSEd Schouten 	exit(1);
247572fcea8cSEd Schouten }
247672fcea8cSEd Schouten 
247772fcea8cSEd Schouten void
2478*91517e3bSJohn Baldwin delete_text(void)
247972fcea8cSEd Schouten {
248072fcea8cSEd Schouten 	while (curr_line->next_line != NULL)
248172fcea8cSEd Schouten 		curr_line = curr_line->next_line;
248272fcea8cSEd Schouten 	while (curr_line != first_line)
248372fcea8cSEd Schouten 	{
248472fcea8cSEd Schouten 		free(curr_line->line);
248572fcea8cSEd Schouten 		curr_line = curr_line->prev_line;
248696b676e9SEd Schouten 		absolute_lin--;
248772fcea8cSEd Schouten 		free(curr_line->next_line);
248872fcea8cSEd Schouten 	}
248972fcea8cSEd Schouten 	curr_line->next_line = NULL;
249096b676e9SEd Schouten 	*curr_line->line = '\0';
249172fcea8cSEd Schouten 	curr_line->line_length = 1;
249272fcea8cSEd Schouten 	curr_line->line_number = 1;
249372fcea8cSEd Schouten 	point = curr_line->line;
249472fcea8cSEd Schouten 	scr_pos = scr_vert = scr_horz = 0;
249572fcea8cSEd Schouten 	position = 1;
249672fcea8cSEd Schouten }
249772fcea8cSEd Schouten 
249872fcea8cSEd Schouten int
2499*91517e3bSJohn Baldwin write_file(char *file_name, int warn_if_exists)
250072fcea8cSEd Schouten {
250172fcea8cSEd Schouten 	char cr;
250272fcea8cSEd Schouten 	char *tmp_point;
250372fcea8cSEd Schouten 	struct text *out_line;
250472fcea8cSEd Schouten 	int lines, charac;
250572fcea8cSEd Schouten 	int temp_pos;
250672fcea8cSEd Schouten 	int write_flag = TRUE;
250772fcea8cSEd Schouten 
250872fcea8cSEd Schouten 	charac = lines = 0;
2509cfe04e82SEd Schouten 	if (warn_if_exists &&
2510cfe04e82SEd Schouten 	    ((in_file_name == NULL) || strcmp(in_file_name, file_name)))
251172fcea8cSEd Schouten 	{
251272fcea8cSEd Schouten 		if ((temp_fp = fopen(file_name, "r")))
251372fcea8cSEd Schouten 		{
251472fcea8cSEd Schouten 			tmp_point = get_string(file_exists_prompt, TRUE);
251531dcbfadSAndrey A. Chernov 			if (toupper((unsigned char)*tmp_point) == toupper((unsigned char)*yes_char))
251672fcea8cSEd Schouten 				write_flag = TRUE;
251772fcea8cSEd Schouten 			else
251872fcea8cSEd Schouten 				write_flag = FALSE;
251972fcea8cSEd Schouten 			fclose(temp_fp);
252072fcea8cSEd Schouten 			free(tmp_point);
252172fcea8cSEd Schouten 		}
252272fcea8cSEd Schouten 	}
252372fcea8cSEd Schouten 
252472fcea8cSEd Schouten 	clear_com_win = TRUE;
252572fcea8cSEd Schouten 
252672fcea8cSEd Schouten 	if (write_flag)
252772fcea8cSEd Schouten 	{
252872fcea8cSEd Schouten 		if ((temp_fp = fopen(file_name, "w")) == NULL)
252972fcea8cSEd Schouten 		{
253072fcea8cSEd Schouten 			clear_com_win = TRUE;
253172fcea8cSEd Schouten 			wmove(com_win,0,0);
253272fcea8cSEd Schouten 			wclrtoeol(com_win);
253372fcea8cSEd Schouten 			wprintw(com_win, create_file_fail_msg, file_name);
253472fcea8cSEd Schouten 			wrefresh(com_win);
253572fcea8cSEd Schouten 			return(FALSE);
253672fcea8cSEd Schouten 		}
253772fcea8cSEd Schouten 		else
253872fcea8cSEd Schouten 		{
253972fcea8cSEd Schouten 			wmove(com_win,0,0);
254072fcea8cSEd Schouten 			wclrtoeol(com_win);
254172fcea8cSEd Schouten 			wprintw(com_win, writing_file_msg, file_name);
254272fcea8cSEd Schouten 			wrefresh(com_win);
254372fcea8cSEd Schouten 			cr = '\n';
254472fcea8cSEd Schouten 			out_line = first_line;
254572fcea8cSEd Schouten 			while (out_line != NULL)
254672fcea8cSEd Schouten 			{
254772fcea8cSEd Schouten 				temp_pos = 1;
254872fcea8cSEd Schouten 				tmp_point= out_line->line;
254972fcea8cSEd Schouten 				while (temp_pos < out_line->line_length)
255072fcea8cSEd Schouten 				{
255172fcea8cSEd Schouten 					putc(*tmp_point, temp_fp);
255272fcea8cSEd Schouten 					tmp_point++;
255372fcea8cSEd Schouten 					temp_pos++;
255472fcea8cSEd Schouten 				}
255572fcea8cSEd Schouten 				charac += out_line->line_length;
255672fcea8cSEd Schouten 				out_line = out_line->next_line;
255772fcea8cSEd Schouten 				putc(cr, temp_fp);
255872fcea8cSEd Schouten 				lines++;
255972fcea8cSEd Schouten 			}
256072fcea8cSEd Schouten 			fclose(temp_fp);
256172fcea8cSEd Schouten 			wmove(com_win,0,0);
256272fcea8cSEd Schouten 			wclrtoeol(com_win);
256372fcea8cSEd Schouten 			wprintw(com_win, file_written_msg, file_name, lines, charac);
256472fcea8cSEd Schouten 			wrefresh(com_win);
256572fcea8cSEd Schouten 			return(TRUE);
256672fcea8cSEd Schouten 		}
256772fcea8cSEd Schouten 	}
256872fcea8cSEd Schouten 	else
256972fcea8cSEd Schouten 		return(FALSE);
257072fcea8cSEd Schouten }
257172fcea8cSEd Schouten 
2572*91517e3bSJohn Baldwin /* search for string in srch_str	*/
257372fcea8cSEd Schouten int
2574*91517e3bSJohn Baldwin search(int display_message)
257572fcea8cSEd Schouten {
257672fcea8cSEd Schouten 	int lines_moved;
257772fcea8cSEd Schouten 	int iter;
257872fcea8cSEd Schouten 	int found;
257972fcea8cSEd Schouten 
258096b676e9SEd Schouten 	if ((srch_str == NULL) || (*srch_str == '\0'))
258172fcea8cSEd Schouten 		return(FALSE);
258272fcea8cSEd Schouten 	if (display_message)
258372fcea8cSEd Schouten 	{
258472fcea8cSEd Schouten 		wmove(com_win, 0, 0);
258572fcea8cSEd Schouten 		wclrtoeol(com_win);
258672fcea8cSEd Schouten 		wprintw(com_win, searching_msg);
258772fcea8cSEd Schouten 		wrefresh(com_win);
258872fcea8cSEd Schouten 		clear_com_win = TRUE;
258972fcea8cSEd Schouten 	}
259072fcea8cSEd Schouten 	lines_moved = 0;
259172fcea8cSEd Schouten 	found = FALSE;
259272fcea8cSEd Schouten 	srch_line = curr_line;
259372fcea8cSEd Schouten 	srch_1 = point;
259472fcea8cSEd Schouten 	if (position < curr_line->line_length)
259572fcea8cSEd Schouten 		srch_1++;
259672fcea8cSEd Schouten 	iter = position + 1;
259772fcea8cSEd Schouten 	while ((!found) && (srch_line != NULL))
259872fcea8cSEd Schouten 	{
259972fcea8cSEd Schouten 		while ((iter < srch_line->line_length) && (!found))
260072fcea8cSEd Schouten 		{
260172fcea8cSEd Schouten 			srch_2 = srch_1;
260272fcea8cSEd Schouten 			if (case_sen)	/* if case sensitive		*/
260372fcea8cSEd Schouten 			{
260472fcea8cSEd Schouten 				srch_3 = srch_str;
260596b676e9SEd Schouten 			while ((*srch_2 == *srch_3) && (*srch_3 != '\0'))
260672fcea8cSEd Schouten 				{
260772fcea8cSEd Schouten 					found = TRUE;
260872fcea8cSEd Schouten 					srch_2++;
260972fcea8cSEd Schouten 					srch_3++;
261072fcea8cSEd Schouten 				}	/* end while	*/
261172fcea8cSEd Schouten 			}
261272fcea8cSEd Schouten 			else		/* if not case sensitive	*/
261372fcea8cSEd Schouten 			{
261472fcea8cSEd Schouten 				srch_3 = u_srch_str;
261596b676e9SEd Schouten 			while ((toupper(*srch_2) == *srch_3) && (*srch_3 != '\0'))
261672fcea8cSEd Schouten 				{
261772fcea8cSEd Schouten 					found = TRUE;
261872fcea8cSEd Schouten 					srch_2++;
261972fcea8cSEd Schouten 					srch_3++;
262072fcea8cSEd Schouten 				}
262172fcea8cSEd Schouten 			}	/* end else	*/
262296b676e9SEd Schouten 			if (!((*srch_3 == '\0') && (found)))
262372fcea8cSEd Schouten 			{
262472fcea8cSEd Schouten 				found = FALSE;
262572fcea8cSEd Schouten 				if (iter < srch_line->line_length)
262672fcea8cSEd Schouten 					srch_1++;
262772fcea8cSEd Schouten 				iter++;
262872fcea8cSEd Schouten 			}
262972fcea8cSEd Schouten 		}
263072fcea8cSEd Schouten 		if (!found)
263172fcea8cSEd Schouten 		{
263272fcea8cSEd Schouten 			srch_line = srch_line->next_line;
263372fcea8cSEd Schouten 			if (srch_line != NULL)
263472fcea8cSEd Schouten 				srch_1 = srch_line->line;
263572fcea8cSEd Schouten 			iter = 1;
263672fcea8cSEd Schouten 			lines_moved++;
263772fcea8cSEd Schouten 		}
263872fcea8cSEd Schouten 	}
263972fcea8cSEd Schouten 	if (found)
264072fcea8cSEd Schouten 	{
264172fcea8cSEd Schouten 		if (display_message)
264272fcea8cSEd Schouten 		{
264372fcea8cSEd Schouten 			wmove(com_win, 0, 0);
264472fcea8cSEd Schouten 			wclrtoeol(com_win);
264572fcea8cSEd Schouten 			wrefresh(com_win);
264672fcea8cSEd Schouten 		}
264772fcea8cSEd Schouten 		if (lines_moved == 0)
264872fcea8cSEd Schouten 		{
264972fcea8cSEd Schouten 			while (position < iter)
265072fcea8cSEd Schouten 				right(TRUE);
265172fcea8cSEd Schouten 		}
265272fcea8cSEd Schouten 		else
265372fcea8cSEd Schouten 		{
265472fcea8cSEd Schouten 			if (lines_moved < 30)
265572fcea8cSEd Schouten 			{
26567bf1ea96SEd Schouten 				move_rel('d', lines_moved);
265772fcea8cSEd Schouten 				while (position < iter)
265872fcea8cSEd Schouten 					right(TRUE);
265972fcea8cSEd Schouten 			}
266072fcea8cSEd Schouten 			else
266172fcea8cSEd Schouten 			{
266296b676e9SEd Schouten 				absolute_lin += lines_moved;
266372fcea8cSEd Schouten 				curr_line = srch_line;
266472fcea8cSEd Schouten 				point = srch_1;
266572fcea8cSEd Schouten 				position = iter;
266672fcea8cSEd Schouten 				scanline(point);
266772fcea8cSEd Schouten 				scr_pos = scr_horz;
266872fcea8cSEd Schouten 				midscreen((last_line / 2), point);
266972fcea8cSEd Schouten 			}
267072fcea8cSEd Schouten 		}
267172fcea8cSEd Schouten 	}
267272fcea8cSEd Schouten 	else
267372fcea8cSEd Schouten 	{
267472fcea8cSEd Schouten 		if (display_message)
267572fcea8cSEd Schouten 		{
267672fcea8cSEd Schouten 			wmove(com_win, 0, 0);
267772fcea8cSEd Schouten 			wclrtoeol(com_win);
267872fcea8cSEd Schouten 			wprintw(com_win, str_not_found_msg, srch_str);
267972fcea8cSEd Schouten 			wrefresh(com_win);
268072fcea8cSEd Schouten 		}
268172fcea8cSEd Schouten 		wmove(text_win, scr_vert,(scr_horz - horiz_offset));
268272fcea8cSEd Schouten 	}
268372fcea8cSEd Schouten 	return(found);
268472fcea8cSEd Schouten }
268572fcea8cSEd Schouten 
2686*91517e3bSJohn Baldwin /* prompt and read search string (srch_str)	*/
268772fcea8cSEd Schouten void
2688*91517e3bSJohn Baldwin search_prompt(void)
268972fcea8cSEd Schouten {
269072fcea8cSEd Schouten 	if (srch_str != NULL)
269172fcea8cSEd Schouten 		free(srch_str);
269296b676e9SEd Schouten 	if ((u_srch_str != NULL) && (*u_srch_str != '\0'))
269372fcea8cSEd Schouten 		free(u_srch_str);
269472fcea8cSEd Schouten 	srch_str = get_string(search_prompt_str, FALSE);
269572fcea8cSEd Schouten 	gold = FALSE;
269672fcea8cSEd Schouten 	srch_3 = srch_str;
269772fcea8cSEd Schouten 	srch_1 = u_srch_str = malloc(strlen(srch_str) + 1);
269896b676e9SEd Schouten 	while (*srch_3 != '\0')
269972fcea8cSEd Schouten 	{
270072fcea8cSEd Schouten 		*srch_1 = toupper(*srch_3);
270172fcea8cSEd Schouten 		srch_1++;
270272fcea8cSEd Schouten 		srch_3++;
270372fcea8cSEd Schouten 	}
270496b676e9SEd Schouten 	*srch_1 = '\0';
270572fcea8cSEd Schouten 	search(TRUE);
270672fcea8cSEd Schouten }
270772fcea8cSEd Schouten 
2708*91517e3bSJohn Baldwin /* delete current character	*/
270972fcea8cSEd Schouten void
2710*91517e3bSJohn Baldwin del_char(void)
271172fcea8cSEd Schouten {
271272fcea8cSEd Schouten 	in = 8;  /* backspace */
271372fcea8cSEd Schouten 	if (position < curr_line->line_length)	/* if not end of line	*/
271472fcea8cSEd Schouten 	{
271572fcea8cSEd Schouten 		if ((ee_chinese) && (*point > 127) &&
271672fcea8cSEd Schouten 		    ((curr_line->line_length - position) >= 2))
271772fcea8cSEd Schouten 		{
271872fcea8cSEd Schouten 			point++;
271972fcea8cSEd Schouten 			position++;
272072fcea8cSEd Schouten 		}
272172fcea8cSEd Schouten 		position++;
272272fcea8cSEd Schouten 		point++;
272372fcea8cSEd Schouten 		scanline(point);
272472fcea8cSEd Schouten 		delete(TRUE);
272572fcea8cSEd Schouten 	}
272672fcea8cSEd Schouten 	else
272772fcea8cSEd Schouten 	{
27287bf1ea96SEd Schouten 		right(TRUE);
27297bf1ea96SEd Schouten 		delete(TRUE);
273072fcea8cSEd Schouten 	}
273172fcea8cSEd Schouten }
273272fcea8cSEd Schouten 
2733*91517e3bSJohn Baldwin /* undelete last deleted character	*/
273472fcea8cSEd Schouten void
2735*91517e3bSJohn Baldwin undel_char(void)
273672fcea8cSEd Schouten {
273772fcea8cSEd Schouten 	if (d_char[0] == '\n')	/* insert line if last del_char deleted eol */
273872fcea8cSEd Schouten 		insert_line(TRUE);
273972fcea8cSEd Schouten 	else
274072fcea8cSEd Schouten 	{
274172fcea8cSEd Schouten 		in = d_char[0];
274272fcea8cSEd Schouten 		insert(in);
274396b676e9SEd Schouten 		if (d_char[1] != '\0')
274472fcea8cSEd Schouten 		{
274572fcea8cSEd Schouten 			in = d_char[1];
274672fcea8cSEd Schouten 			insert(in);
274772fcea8cSEd Schouten 		}
274872fcea8cSEd Schouten 	}
274972fcea8cSEd Schouten }
275072fcea8cSEd Schouten 
2751*91517e3bSJohn Baldwin /* delete word in front of cursor	*/
275272fcea8cSEd Schouten void
2753*91517e3bSJohn Baldwin del_word(void)
275472fcea8cSEd Schouten {
275572fcea8cSEd Schouten 	int tposit;
275672fcea8cSEd Schouten 	int difference;
275772fcea8cSEd Schouten 	unsigned char *d_word2;
275872fcea8cSEd Schouten 	unsigned char *d_word3;
275972fcea8cSEd Schouten 	unsigned char tmp_char[3];
276072fcea8cSEd Schouten 
276172fcea8cSEd Schouten 	if (d_word != NULL)
276272fcea8cSEd Schouten 		free(d_word);
276372fcea8cSEd Schouten 	d_word = malloc(curr_line->line_length);
276472fcea8cSEd Schouten 	tmp_char[0] = d_char[0];
276572fcea8cSEd Schouten 	tmp_char[1] = d_char[1];
276672fcea8cSEd Schouten 	tmp_char[2] = d_char[2];
276772fcea8cSEd Schouten 	d_word3 = point;
276872fcea8cSEd Schouten 	d_word2 = d_word;
276972fcea8cSEd Schouten 	tposit = position;
277072fcea8cSEd Schouten 	while ((tposit < curr_line->line_length) &&
277172fcea8cSEd Schouten 				((*d_word3 != ' ') && (*d_word3 != '\t')))
277272fcea8cSEd Schouten 	{
277372fcea8cSEd Schouten 		tposit++;
277472fcea8cSEd Schouten 		*d_word2 = *d_word3;
277572fcea8cSEd Schouten 		d_word2++;
277672fcea8cSEd Schouten 		d_word3++;
277772fcea8cSEd Schouten 	}
277872fcea8cSEd Schouten 	while ((tposit < curr_line->line_length) &&
277972fcea8cSEd Schouten 				((*d_word3 == ' ') || (*d_word3 == '\t')))
278072fcea8cSEd Schouten 	{
278172fcea8cSEd Schouten 		tposit++;
278272fcea8cSEd Schouten 		*d_word2 = *d_word3;
278372fcea8cSEd Schouten 		d_word2++;
278472fcea8cSEd Schouten 		d_word3++;
278572fcea8cSEd Schouten 	}
278696b676e9SEd Schouten 	*d_word2 = '\0';
278772fcea8cSEd Schouten 	d_wrd_len = difference = d_word2 - d_word;
278872fcea8cSEd Schouten 	d_word2 = point;
278972fcea8cSEd Schouten 	while (tposit < curr_line->line_length)
279072fcea8cSEd Schouten 	{
279172fcea8cSEd Schouten 		tposit++;
279272fcea8cSEd Schouten 		*d_word2 = *d_word3;
279372fcea8cSEd Schouten 		d_word2++;
279472fcea8cSEd Schouten 		d_word3++;
279572fcea8cSEd Schouten 	}
279672fcea8cSEd Schouten 	curr_line->line_length -= difference;
279796b676e9SEd Schouten 	*d_word2 = '\0';
279872fcea8cSEd Schouten 	draw_line(scr_vert, scr_horz,point,position,curr_line->line_length);
279972fcea8cSEd Schouten 	d_char[0] = tmp_char[0];
280072fcea8cSEd Schouten 	d_char[1] = tmp_char[1];
280172fcea8cSEd Schouten 	d_char[2] = tmp_char[2];
280272fcea8cSEd Schouten 	text_changes = TRUE;
280372fcea8cSEd Schouten 	formatted = FALSE;
280472fcea8cSEd Schouten }
280572fcea8cSEd Schouten 
2806*91517e3bSJohn Baldwin /* undelete last deleted word		*/
280772fcea8cSEd Schouten void
2808*91517e3bSJohn Baldwin undel_word(void)
280972fcea8cSEd Schouten {
281072fcea8cSEd Schouten 	int temp;
281172fcea8cSEd Schouten 	int tposit;
281272fcea8cSEd Schouten 	unsigned char *tmp_old_ptr;
281372fcea8cSEd Schouten 	unsigned char *tmp_space;
281472fcea8cSEd Schouten 	unsigned char *tmp_ptr;
281572fcea8cSEd Schouten 	unsigned char *d_word_ptr;
281672fcea8cSEd Schouten 
281772fcea8cSEd Schouten 	/*
281872fcea8cSEd Schouten 	 |	resize line to handle undeleted word
281972fcea8cSEd Schouten 	 */
282072fcea8cSEd Schouten 	if ((curr_line->max_length - (curr_line->line_length + d_wrd_len)) < 5)
282172fcea8cSEd Schouten 		point = resiz_line(d_wrd_len, curr_line, position);
282272fcea8cSEd Schouten 	tmp_ptr = tmp_space = malloc(curr_line->line_length + d_wrd_len);
282372fcea8cSEd Schouten 	d_word_ptr = d_word;
282472fcea8cSEd Schouten 	temp = 1;
282572fcea8cSEd Schouten 	/*
282672fcea8cSEd Schouten 	 |	copy d_word contents into temp space
282772fcea8cSEd Schouten 	 */
282872fcea8cSEd Schouten 	while (temp <= d_wrd_len)
282972fcea8cSEd Schouten 	{
283072fcea8cSEd Schouten 		temp++;
283172fcea8cSEd Schouten 		*tmp_ptr = *d_word_ptr;
283272fcea8cSEd Schouten 		tmp_ptr++;
283372fcea8cSEd Schouten 		d_word_ptr++;
283472fcea8cSEd Schouten 	}
283572fcea8cSEd Schouten 	tmp_old_ptr = point;
283672fcea8cSEd Schouten 	tposit = position;
283772fcea8cSEd Schouten 	/*
283872fcea8cSEd Schouten 	 |	copy contents of line from curent position to eol into
283972fcea8cSEd Schouten 	 |	temp space
284072fcea8cSEd Schouten 	 */
284172fcea8cSEd Schouten 	while (tposit < curr_line->line_length)
284272fcea8cSEd Schouten 	{
284372fcea8cSEd Schouten 		temp++;
284472fcea8cSEd Schouten 		tposit++;
284572fcea8cSEd Schouten 		*tmp_ptr = *tmp_old_ptr;
284672fcea8cSEd Schouten 		tmp_ptr++;
284772fcea8cSEd Schouten 		tmp_old_ptr++;
284872fcea8cSEd Schouten 	}
284972fcea8cSEd Schouten 	curr_line->line_length += d_wrd_len;
285072fcea8cSEd Schouten 	tmp_old_ptr = point;
285196b676e9SEd Schouten 	*tmp_ptr = '\0';
285272fcea8cSEd Schouten 	tmp_ptr = tmp_space;
285372fcea8cSEd Schouten 	tposit = 1;
285472fcea8cSEd Schouten 	/*
285572fcea8cSEd Schouten 	 |	now copy contents from temp space back to original line
285672fcea8cSEd Schouten 	 */
285772fcea8cSEd Schouten 	while (tposit < temp)
285872fcea8cSEd Schouten 	{
285972fcea8cSEd Schouten 		tposit++;
286072fcea8cSEd Schouten 		*tmp_old_ptr = *tmp_ptr;
286172fcea8cSEd Schouten 		tmp_ptr++;
286272fcea8cSEd Schouten 		tmp_old_ptr++;
286372fcea8cSEd Schouten 	}
286496b676e9SEd Schouten 	*tmp_old_ptr = '\0';
286572fcea8cSEd Schouten 	free(tmp_space);
286672fcea8cSEd Schouten 	draw_line(scr_vert, scr_horz, point, position, curr_line->line_length);
286772fcea8cSEd Schouten }
286872fcea8cSEd Schouten 
2869*91517e3bSJohn Baldwin /* delete from cursor to end of line	*/
287072fcea8cSEd Schouten void
2871*91517e3bSJohn Baldwin del_line(void)
287272fcea8cSEd Schouten {
287372fcea8cSEd Schouten 	unsigned char *dl1;
287472fcea8cSEd Schouten 	unsigned char *dl2;
287572fcea8cSEd Schouten 	int tposit;
287672fcea8cSEd Schouten 
287772fcea8cSEd Schouten 	if (d_line != NULL)
287872fcea8cSEd Schouten 		free(d_line);
287972fcea8cSEd Schouten 	d_line = malloc(curr_line->line_length);
288072fcea8cSEd Schouten 	dl1 = d_line;
288172fcea8cSEd Schouten 	dl2 = point;
288272fcea8cSEd Schouten 	tposit = position;
288372fcea8cSEd Schouten 	while (tposit < curr_line->line_length)
288472fcea8cSEd Schouten 	{
288572fcea8cSEd Schouten 		*dl1 = *dl2;
288672fcea8cSEd Schouten 		dl1++;
288772fcea8cSEd Schouten 		dl2++;
288872fcea8cSEd Schouten 		tposit++;
288972fcea8cSEd Schouten 	}
289072fcea8cSEd Schouten 	dlt_line->line_length = 1 + tposit - position;
289196b676e9SEd Schouten 	*dl1 = '\0';
289296b676e9SEd Schouten 	*point = '\0';
289372fcea8cSEd Schouten 	curr_line->line_length = position;
289472fcea8cSEd Schouten 	wclrtoeol(text_win);
289572fcea8cSEd Schouten 	if (curr_line->next_line != NULL)
289672fcea8cSEd Schouten 	{
289772fcea8cSEd Schouten 		right(FALSE);
289872fcea8cSEd Schouten 		delete(FALSE);
289972fcea8cSEd Schouten 	}
290072fcea8cSEd Schouten 	text_changes = TRUE;
290172fcea8cSEd Schouten }
290272fcea8cSEd Schouten 
2903*91517e3bSJohn Baldwin /* undelete last deleted line		*/
290472fcea8cSEd Schouten void
2905*91517e3bSJohn Baldwin undel_line(void)
290672fcea8cSEd Schouten {
290772fcea8cSEd Schouten 	unsigned char *ud1;
290872fcea8cSEd Schouten 	unsigned char *ud2;
290972fcea8cSEd Schouten 	int tposit;
291072fcea8cSEd Schouten 
291172fcea8cSEd Schouten 	if (dlt_line->line_length == 0)
291272fcea8cSEd Schouten 		return;
291372fcea8cSEd Schouten 
291472fcea8cSEd Schouten 	insert_line(TRUE);
291572fcea8cSEd Schouten 	left(TRUE);
291672fcea8cSEd Schouten 	point = resiz_line(dlt_line->line_length, curr_line, position);
291772fcea8cSEd Schouten 	curr_line->line_length += dlt_line->line_length - 1;
291872fcea8cSEd Schouten 	ud1 = point;
291972fcea8cSEd Schouten 	ud2 = d_line;
292072fcea8cSEd Schouten 	tposit = 1;
292172fcea8cSEd Schouten 	while (tposit < dlt_line->line_length)
292272fcea8cSEd Schouten 	{
292372fcea8cSEd Schouten 		tposit++;
292472fcea8cSEd Schouten 		*ud1 = *ud2;
292572fcea8cSEd Schouten 		ud1++;
292672fcea8cSEd Schouten 		ud2++;
292772fcea8cSEd Schouten 	}
292896b676e9SEd Schouten 	*ud1 = '\0';
292972fcea8cSEd Schouten 	draw_line(scr_vert, scr_horz,point,position,curr_line->line_length);
293072fcea8cSEd Schouten }
293172fcea8cSEd Schouten 
2932*91517e3bSJohn Baldwin /* advance to next word		*/
293372fcea8cSEd Schouten void
2934*91517e3bSJohn Baldwin adv_word(void)
293572fcea8cSEd Schouten {
293672fcea8cSEd Schouten while ((position < curr_line->line_length) && ((*point != 32) && (*point != 9)))
293772fcea8cSEd Schouten 		right(TRUE);
293872fcea8cSEd Schouten while ((position < curr_line->line_length) && ((*point == 32) || (*point == 9)))
293972fcea8cSEd Schouten 		right(TRUE);
294072fcea8cSEd Schouten }
294172fcea8cSEd Schouten 
2942*91517e3bSJohn Baldwin /* move relative to current line	*/
294372fcea8cSEd Schouten void
2944*91517e3bSJohn Baldwin move_rel(int direction, int lines)
294572fcea8cSEd Schouten {
294672fcea8cSEd Schouten 	int i;
294772fcea8cSEd Schouten 	char *tmp;
294872fcea8cSEd Schouten 
29497bf1ea96SEd Schouten 	if (direction == 'u')
295072fcea8cSEd Schouten 	{
295172fcea8cSEd Schouten 		scr_pos = 0;
295272fcea8cSEd Schouten 		while (position > 1)
295372fcea8cSEd Schouten 			left(TRUE);
295472fcea8cSEd Schouten 		for (i = 0; i < lines; i++)
295572fcea8cSEd Schouten 		{
295672fcea8cSEd Schouten 			up();
295772fcea8cSEd Schouten 		}
295872fcea8cSEd Schouten 		if ((last_line > 5) && ( scr_vert < 4))
295972fcea8cSEd Schouten 		{
296072fcea8cSEd Schouten 			tmp = point;
296172fcea8cSEd Schouten 			tmp_line = curr_line;
296272fcea8cSEd Schouten 			for (i= 0;(i<5)&&(curr_line->prev_line != NULL); i++)
296372fcea8cSEd Schouten 			{
296472fcea8cSEd Schouten 				up();
296572fcea8cSEd Schouten 			}
296672fcea8cSEd Schouten 			scr_vert = scr_vert + i;
296772fcea8cSEd Schouten 			curr_line = tmp_line;
296896b676e9SEd Schouten 			absolute_lin += i;
296972fcea8cSEd Schouten 			point = tmp;
297072fcea8cSEd Schouten 			scanline(point);
297172fcea8cSEd Schouten 		}
297272fcea8cSEd Schouten 	}
297372fcea8cSEd Schouten 	else
297472fcea8cSEd Schouten 	{
297572fcea8cSEd Schouten 		if ((position != 1) && (curr_line->next_line != NULL))
297672fcea8cSEd Schouten 		{
297772fcea8cSEd Schouten 			nextline();
297872fcea8cSEd Schouten 			scr_pos = scr_horz = 0;
297972fcea8cSEd Schouten 			if (horiz_offset)
298072fcea8cSEd Schouten 			{
298172fcea8cSEd Schouten 				horiz_offset = 0;
298272fcea8cSEd Schouten 				midscreen(scr_vert, point);
298372fcea8cSEd Schouten 			}
298472fcea8cSEd Schouten 		}
298572fcea8cSEd Schouten 		else
298672fcea8cSEd Schouten 			adv_line();
298772fcea8cSEd Schouten 		for (i = 1; i < lines; i++)
298872fcea8cSEd Schouten 		{
298972fcea8cSEd Schouten 			down();
299072fcea8cSEd Schouten 		}
299172fcea8cSEd Schouten 		if ((last_line > 10) && (scr_vert > (last_line - 5)))
299272fcea8cSEd Schouten 		{
299372fcea8cSEd Schouten 			tmp = point;
299472fcea8cSEd Schouten 			tmp_line = curr_line;
299572fcea8cSEd Schouten 			for (i=0; (i<5) && (curr_line->next_line != NULL); i++)
299672fcea8cSEd Schouten 			{
299772fcea8cSEd Schouten 				down();
299872fcea8cSEd Schouten 			}
299996b676e9SEd Schouten 			absolute_lin -= i;
300072fcea8cSEd Schouten 			scr_vert = scr_vert - i;
300172fcea8cSEd Schouten 			curr_line = tmp_line;
300272fcea8cSEd Schouten 			point = tmp;
300372fcea8cSEd Schouten 			scanline(point);
300472fcea8cSEd Schouten 		}
300572fcea8cSEd Schouten 	}
300672fcea8cSEd Schouten 	wmove(text_win, scr_vert, (scr_horz - horiz_offset));
300772fcea8cSEd Schouten }
300872fcea8cSEd Schouten 
3009*91517e3bSJohn Baldwin /* go to end of line			*/
301072fcea8cSEd Schouten void
3011*91517e3bSJohn Baldwin eol(void)
301272fcea8cSEd Schouten {
301372fcea8cSEd Schouten 	if (position < curr_line->line_length)
301472fcea8cSEd Schouten 	{
301572fcea8cSEd Schouten 		while (position < curr_line->line_length)
301672fcea8cSEd Schouten 			right(TRUE);
301772fcea8cSEd Schouten 	}
301872fcea8cSEd Schouten 	else if (curr_line->next_line != NULL)
301972fcea8cSEd Schouten 	{
302072fcea8cSEd Schouten 		right(TRUE);
302172fcea8cSEd Schouten 		while (position < curr_line->line_length)
302272fcea8cSEd Schouten 			right(TRUE);
302372fcea8cSEd Schouten 	}
302472fcea8cSEd Schouten }
302572fcea8cSEd Schouten 
3026*91517e3bSJohn Baldwin /* move to beginning of line	*/
302772fcea8cSEd Schouten void
3028*91517e3bSJohn Baldwin bol(void)
302972fcea8cSEd Schouten {
303072fcea8cSEd Schouten 	if (point != curr_line->line)
303172fcea8cSEd Schouten 	{
303272fcea8cSEd Schouten 		while (point != curr_line->line)
303372fcea8cSEd Schouten 			left(TRUE);
303472fcea8cSEd Schouten 	}
303572fcea8cSEd Schouten 	else if (curr_line->prev_line != NULL)
303672fcea8cSEd Schouten 	{
303772fcea8cSEd Schouten 		scr_pos = 0;
303872fcea8cSEd Schouten 		up();
303972fcea8cSEd Schouten 	}
304072fcea8cSEd Schouten }
304172fcea8cSEd Schouten 
3042*91517e3bSJohn Baldwin /* advance to beginning of next line	*/
304372fcea8cSEd Schouten void
3044*91517e3bSJohn Baldwin adv_line(void)
304572fcea8cSEd Schouten {
304672fcea8cSEd Schouten 	if ((point != curr_line->line) || (scr_pos > 0))
304772fcea8cSEd Schouten 	{
304872fcea8cSEd Schouten 		while (position < curr_line->line_length)
304972fcea8cSEd Schouten 			right(TRUE);
305072fcea8cSEd Schouten 		right(TRUE);
305172fcea8cSEd Schouten 	}
305272fcea8cSEd Schouten 	else if (curr_line->next_line != NULL)
305372fcea8cSEd Schouten 	{
305472fcea8cSEd Schouten 		scr_pos = 0;
305572fcea8cSEd Schouten 		down();
305672fcea8cSEd Schouten 	}
305772fcea8cSEd Schouten }
305872fcea8cSEd Schouten 
305972fcea8cSEd Schouten void
3060*91517e3bSJohn Baldwin from_top(void)
306196b676e9SEd Schouten {
306296b676e9SEd Schouten 	struct text *tmpline = first_line;
306396b676e9SEd Schouten 	int x = 1;
306496b676e9SEd Schouten 
306596b676e9SEd Schouten 	while ((tmpline != NULL) && (tmpline != curr_line))
306696b676e9SEd Schouten 	{
306796b676e9SEd Schouten 		x++;
306896b676e9SEd Schouten 		tmpline = tmpline->next_line;
306996b676e9SEd Schouten 	}
307096b676e9SEd Schouten 	absolute_lin = x;
307196b676e9SEd Schouten }
307296b676e9SEd Schouten 
3073*91517e3bSJohn Baldwin /* execute shell command			*/
307496b676e9SEd Schouten void
3075*91517e3bSJohn Baldwin sh_command(char *string)
307672fcea8cSEd Schouten {
307772fcea8cSEd Schouten 	char *temp_point;
307872fcea8cSEd Schouten 	char *last_slash;
307972fcea8cSEd Schouten 	char *path;		/* directory path to executable		*/
308072fcea8cSEd Schouten 	int parent;		/* zero if child, child's pid if parent	*/
308172fcea8cSEd Schouten 	int value;
308272fcea8cSEd Schouten 	int return_val;
308372fcea8cSEd Schouten 	struct text *line_holder;
308472fcea8cSEd Schouten 
308572fcea8cSEd Schouten 	if (restrict_mode())
308672fcea8cSEd Schouten 	{
308772fcea8cSEd Schouten 		return;
308872fcea8cSEd Schouten 	}
308972fcea8cSEd Schouten 
309072fcea8cSEd Schouten 	if (!(path = getenv("SHELL")))
309172fcea8cSEd Schouten 		path = "/bin/sh";
309272fcea8cSEd Schouten 	last_slash = temp_point = path;
309396b676e9SEd Schouten 	while (*temp_point != '\0')
309472fcea8cSEd Schouten 	{
309572fcea8cSEd Schouten 		if (*temp_point == '/')
309672fcea8cSEd Schouten 			last_slash = ++temp_point;
309772fcea8cSEd Schouten 		else
309872fcea8cSEd Schouten 			temp_point++;
309972fcea8cSEd Schouten 	}
310072fcea8cSEd Schouten 
310172fcea8cSEd Schouten 	/*
310272fcea8cSEd Schouten 	 |	if in_pipe is true, then output of the shell operation will be
310372fcea8cSEd Schouten 	 |	read by the editor, and curses doesn't need to be turned off
310472fcea8cSEd Schouten 	 */
310572fcea8cSEd Schouten 
310672fcea8cSEd Schouten 	if (!in_pipe)
310772fcea8cSEd Schouten 	{
310872fcea8cSEd Schouten 		keypad(com_win, FALSE);
310972fcea8cSEd Schouten 		keypad(text_win, FALSE);
311072fcea8cSEd Schouten 		echo();
311172fcea8cSEd Schouten 		nl();
311272fcea8cSEd Schouten 		noraw();
311372fcea8cSEd Schouten 		resetty();
311472fcea8cSEd Schouten 
311572fcea8cSEd Schouten #ifndef NCURSE
311672fcea8cSEd Schouten 		endwin();
311772fcea8cSEd Schouten #endif
311872fcea8cSEd Schouten 	}
311972fcea8cSEd Schouten 
312072fcea8cSEd Schouten 	if (in_pipe)
312172fcea8cSEd Schouten 	{
312272fcea8cSEd Schouten 		pipe(pipe_in);		/* create a pipe	*/
312372fcea8cSEd Schouten 		parent = fork();
312472fcea8cSEd Schouten 		if (!parent)		/* if the child		*/
312572fcea8cSEd Schouten 		{
312672fcea8cSEd Schouten /*
312772fcea8cSEd Schouten  |  child process which will fork and exec shell command (if shell output is
312872fcea8cSEd Schouten  |  to be read by editor)
312972fcea8cSEd Schouten  */
313072fcea8cSEd Schouten 			in_pipe = FALSE;
313172fcea8cSEd Schouten /*
313272fcea8cSEd Schouten  |  redirect stdout to pipe
313372fcea8cSEd Schouten  */
313472fcea8cSEd Schouten 			temp_stdout = dup(1);
313572fcea8cSEd Schouten 			close(1);
313672fcea8cSEd Schouten 			dup(pipe_in[1]);
313772fcea8cSEd Schouten /*
313872fcea8cSEd Schouten  |  redirect stderr to pipe
313972fcea8cSEd Schouten  */
314072fcea8cSEd Schouten 			temp_stderr = dup(2);
314172fcea8cSEd Schouten 			close(2);
314272fcea8cSEd Schouten 			dup(pipe_in[1]);
314372fcea8cSEd Schouten 			close(pipe_in[1]);
314472fcea8cSEd Schouten 			/*
314572fcea8cSEd Schouten 			 |	child will now continue down 'if (!in_pipe)'
314672fcea8cSEd Schouten 			 |	path below
314772fcea8cSEd Schouten 			 */
314872fcea8cSEd Schouten 		}
314972fcea8cSEd Schouten 		else  /* if the parent	*/
315072fcea8cSEd Schouten 		{
315172fcea8cSEd Schouten /*
315272fcea8cSEd Schouten  |  prepare editor to read from the pipe
315372fcea8cSEd Schouten  */
315472fcea8cSEd Schouten 			signal(SIGCHLD, SIG_IGN);
315572fcea8cSEd Schouten 			line_holder = curr_line;
315672fcea8cSEd Schouten 			tmp_vert = scr_vert;
315772fcea8cSEd Schouten 			close(pipe_in[1]);
315872fcea8cSEd Schouten 			get_fd = pipe_in[0];
315972fcea8cSEd Schouten 			get_file("");
316072fcea8cSEd Schouten 			close(pipe_in[0]);
316172fcea8cSEd Schouten 			scr_vert = tmp_vert;
316272fcea8cSEd Schouten 			scr_horz = scr_pos = 0;
316372fcea8cSEd Schouten 			position = 1;
316472fcea8cSEd Schouten 			curr_line = line_holder;
316596b676e9SEd Schouten 			from_top();
316672fcea8cSEd Schouten 			point = curr_line->line;
316772fcea8cSEd Schouten 			out_pipe = FALSE;
316872fcea8cSEd Schouten 			signal(SIGCHLD, SIG_DFL);
316972fcea8cSEd Schouten /*
317072fcea8cSEd Schouten  |  since flag "in_pipe" is still TRUE, the path which waits for the child
317172fcea8cSEd Schouten  |  process to die will be avoided.
317272fcea8cSEd Schouten  |  (the pipe is closed, no more output can be expected)
317372fcea8cSEd Schouten  */
317472fcea8cSEd Schouten 		}
317572fcea8cSEd Schouten 	}
317672fcea8cSEd Schouten 	if (!in_pipe)
317772fcea8cSEd Schouten 	{
317872fcea8cSEd Schouten 		signal(SIGINT, SIG_IGN);
317972fcea8cSEd Schouten 		if (out_pipe)
318072fcea8cSEd Schouten 		{
318172fcea8cSEd Schouten 			pipe(pipe_out);
318272fcea8cSEd Schouten 		}
318372fcea8cSEd Schouten /*
318472fcea8cSEd Schouten  |  fork process which will exec command
318572fcea8cSEd Schouten  */
318672fcea8cSEd Schouten 		parent = fork();
318772fcea8cSEd Schouten 		if (!parent)		/* if the child	*/
318872fcea8cSEd Schouten 		{
318972fcea8cSEd Schouten 			if (shell_fork)
319072fcea8cSEd Schouten 				putchar('\n');
319172fcea8cSEd Schouten 			if (out_pipe)
319272fcea8cSEd Schouten 			{
319372fcea8cSEd Schouten /*
319472fcea8cSEd Schouten  |  prepare the child process (soon to exec a shell command) to read from the
319572fcea8cSEd Schouten  |  pipe (which will be output from the editor's buffer)
319672fcea8cSEd Schouten  */
319772fcea8cSEd Schouten 				close(0);
319872fcea8cSEd Schouten 				dup(pipe_out[0]);
319972fcea8cSEd Schouten 				close(pipe_out[0]);
320072fcea8cSEd Schouten 				close(pipe_out[1]);
320172fcea8cSEd Schouten 			}
320272fcea8cSEd Schouten 			for (value = 1; value < 24; value++)
320372fcea8cSEd Schouten 				signal(value, SIG_DFL);
320496b676e9SEd Schouten 			execl(path, last_slash, "-c", string, NULL);
320596b676e9SEd Schouten 			fprintf(stderr, exec_err_msg, path);
320696b676e9SEd Schouten 			exit(-1);
320772fcea8cSEd Schouten 		}
320872fcea8cSEd Schouten 		else	/* if the parent	*/
320972fcea8cSEd Schouten 		{
321072fcea8cSEd Schouten 			if (out_pipe)
321172fcea8cSEd Schouten 			{
321272fcea8cSEd Schouten /*
321372fcea8cSEd Schouten  |  output the contents of the buffer to the pipe (to be read by the
321472fcea8cSEd Schouten  |  process forked and exec'd above as stdin)
321572fcea8cSEd Schouten  */
321672fcea8cSEd Schouten 				close(pipe_out[0]);
321772fcea8cSEd Schouten 				line_holder = first_line;
321872fcea8cSEd Schouten 				while (line_holder != NULL)
321972fcea8cSEd Schouten 				{
322072fcea8cSEd Schouten 					write(pipe_out[1], line_holder->line, (line_holder->line_length-1));
322172fcea8cSEd Schouten 					write(pipe_out[1], "\n", 1);
322272fcea8cSEd Schouten 					line_holder = line_holder->next_line;
322372fcea8cSEd Schouten 				}
322472fcea8cSEd Schouten 				close(pipe_out[1]);
322572fcea8cSEd Schouten 				out_pipe = FALSE;
322672fcea8cSEd Schouten 			}
322772fcea8cSEd Schouten 			do
322872fcea8cSEd Schouten 			{
322972fcea8cSEd Schouten 				return_val = wait((int *) 0);
323072fcea8cSEd Schouten 			}
323172fcea8cSEd Schouten 			while ((return_val != parent) && (return_val != -1));
323272fcea8cSEd Schouten /*
323372fcea8cSEd Schouten  |  if this process is actually the child of the editor, exit.  Here's how it
323472fcea8cSEd Schouten  |  works:
323572fcea8cSEd Schouten  |  The editor forks a process.  If output must be sent to the command to be
323672fcea8cSEd Schouten  |  exec'd another process is forked, and that process (the child's child)
323772fcea8cSEd Schouten  |  will exec the command.  In this case, "shell_fork" will be FALSE.  If no
323872fcea8cSEd Schouten  |  output is to be performed to the shell command, "shell_fork" will be TRUE.
323972fcea8cSEd Schouten  |  If this is the editor process, shell_fork will be true, otherwise this is
324072fcea8cSEd Schouten  |  the child of the edit process.
324172fcea8cSEd Schouten  */
324272fcea8cSEd Schouten 			if (!shell_fork)
324372fcea8cSEd Schouten 				exit(0);
324472fcea8cSEd Schouten 		}
324572fcea8cSEd Schouten 		signal(SIGINT, edit_abort);
324672fcea8cSEd Schouten 	}
324772fcea8cSEd Schouten 	if (shell_fork)
324872fcea8cSEd Schouten 	{
32498f04da68SDimitry Andric 		fputs(continue_msg, stdout);
325072fcea8cSEd Schouten 		fflush(stdout);
325172fcea8cSEd Schouten 		while ((in = getchar()) != '\n')
325272fcea8cSEd Schouten 			;
325372fcea8cSEd Schouten 	}
325472fcea8cSEd Schouten 
325572fcea8cSEd Schouten 	if (!in_pipe)
325672fcea8cSEd Schouten 	{
325772fcea8cSEd Schouten 		fixterm();
325872fcea8cSEd Schouten 		noecho();
325972fcea8cSEd Schouten 		nonl();
326072fcea8cSEd Schouten 		raw();
326172fcea8cSEd Schouten 		keypad(text_win, TRUE);
326272fcea8cSEd Schouten 		keypad(com_win, TRUE);
326372fcea8cSEd Schouten 		if (info_window)
326472fcea8cSEd Schouten 			clearok(info_win, TRUE);
326572fcea8cSEd Schouten 	}
326672fcea8cSEd Schouten 
326772fcea8cSEd Schouten 	redraw();
326872fcea8cSEd Schouten }
326972fcea8cSEd Schouten 
3270*91517e3bSJohn Baldwin /* set up the terminal for operating with ae	*/
327172fcea8cSEd Schouten void
3272*91517e3bSJohn Baldwin set_up_term(void)
327372fcea8cSEd Schouten {
327472fcea8cSEd Schouten 	if (!curses_initialized)
327572fcea8cSEd Schouten 	{
327672fcea8cSEd Schouten 		initscr();
327772fcea8cSEd Schouten 		savetty();
327872fcea8cSEd Schouten 		noecho();
327972fcea8cSEd Schouten 		raw();
328072fcea8cSEd Schouten 		nonl();
328172fcea8cSEd Schouten 		curses_initialized = TRUE;
328272fcea8cSEd Schouten 	}
328372fcea8cSEd Schouten 
328472fcea8cSEd Schouten 	if (((LINES > 15) && (COLS >= 80)) && info_window)
328572fcea8cSEd Schouten 		last_line = LINES - 8;
328672fcea8cSEd Schouten 	else
328772fcea8cSEd Schouten 	{
328872fcea8cSEd Schouten 		info_window = FALSE;
328972fcea8cSEd Schouten 		last_line = LINES - 2;
329072fcea8cSEd Schouten 	}
329172fcea8cSEd Schouten 
329272fcea8cSEd Schouten 	idlok(stdscr, TRUE);
329372fcea8cSEd Schouten 	com_win = newwin(1, COLS, (LINES - 1), 0);
329472fcea8cSEd Schouten 	keypad(com_win, TRUE);
329572fcea8cSEd Schouten 	idlok(com_win, TRUE);
329672fcea8cSEd Schouten 	wrefresh(com_win);
329772fcea8cSEd Schouten 	if (!info_window)
329872fcea8cSEd Schouten 		text_win = newwin((LINES - 1), COLS, 0, 0);
329972fcea8cSEd Schouten 	else
330072fcea8cSEd Schouten 		text_win = newwin((LINES - 7), COLS, 6, 0);
330172fcea8cSEd Schouten 	keypad(text_win, TRUE);
330272fcea8cSEd Schouten 	idlok(text_win, TRUE);
330372fcea8cSEd Schouten 	wrefresh(text_win);
330472fcea8cSEd Schouten 	help_win = newwin((LINES - 1), COLS, 0, 0);
330572fcea8cSEd Schouten 	keypad(help_win, TRUE);
330672fcea8cSEd Schouten 	idlok(help_win, TRUE);
330772fcea8cSEd Schouten 	if (info_window)
330872fcea8cSEd Schouten 	{
330972fcea8cSEd Schouten 		info_type = CONTROL_KEYS;
331096b676e9SEd Schouten 		info_win = newwin(6, COLS, 0, 0);
331172fcea8cSEd Schouten 		werase(info_win);
331272fcea8cSEd Schouten 		paint_info_win();
331372fcea8cSEd Schouten 	}
331472fcea8cSEd Schouten 
331572fcea8cSEd Schouten 	last_col = COLS - 1;
331672fcea8cSEd Schouten 	local_LINES = LINES;
331772fcea8cSEd Schouten 	local_COLS = COLS;
331872fcea8cSEd Schouten 
331972fcea8cSEd Schouten #ifdef NCURSE
332072fcea8cSEd Schouten 	if (ee_chinese)
332172fcea8cSEd Schouten 		nc_setattrib(A_NC_BIG5);
332272fcea8cSEd Schouten #endif /* NCURSE */
332372fcea8cSEd Schouten 
332472fcea8cSEd Schouten }
332572fcea8cSEd Schouten 
332672fcea8cSEd Schouten void
3327*91517e3bSJohn Baldwin resize_check(void)
332872fcea8cSEd Schouten {
332972fcea8cSEd Schouten 	if ((LINES == local_LINES) && (COLS == local_COLS))
333072fcea8cSEd Schouten 		return;
333172fcea8cSEd Schouten 
333272fcea8cSEd Schouten 	if (info_window)
333372fcea8cSEd Schouten 		delwin(info_win);
333472fcea8cSEd Schouten 	delwin(text_win);
333572fcea8cSEd Schouten 	delwin(com_win);
333672fcea8cSEd Schouten 	delwin(help_win);
333772fcea8cSEd Schouten 	set_up_term();
333872fcea8cSEd Schouten 	redraw();
333972fcea8cSEd Schouten 	wrefresh(text_win);
334072fcea8cSEd Schouten }
334172fcea8cSEd Schouten 
334272fcea8cSEd Schouten static char item_alpha[] = "abcdefghijklmnopqrstuvwxyz0123456789 ";
334372fcea8cSEd Schouten 
334472fcea8cSEd Schouten int
3345*91517e3bSJohn Baldwin menu_op(struct menu_entries menu_list[])
334672fcea8cSEd Schouten {
334772fcea8cSEd Schouten 	WINDOW *temp_win;
334872fcea8cSEd Schouten 	int max_width, max_height;
334972fcea8cSEd Schouten 	int x_off, y_off;
335072fcea8cSEd Schouten 	int counter;
335172fcea8cSEd Schouten 	int length;
335272fcea8cSEd Schouten 	int input;
335396b676e9SEd Schouten 	int temp;
335472fcea8cSEd Schouten 	int list_size;
335572fcea8cSEd Schouten 	int top_offset;		/* offset from top where menu items start */
335672fcea8cSEd Schouten 	int vert_pos;		/* vertical position			  */
335772fcea8cSEd Schouten 	int vert_size;		/* vertical size for menu list item display */
335872fcea8cSEd Schouten 	int off_start = 1;	/* offset from start of menu items to start display */
335972fcea8cSEd Schouten 
336072fcea8cSEd Schouten 
336172fcea8cSEd Schouten 	/*
336272fcea8cSEd Schouten 	 |	determine number and width of menu items
336372fcea8cSEd Schouten 	 */
336472fcea8cSEd Schouten 
336572fcea8cSEd Schouten 	list_size = 1;
336672fcea8cSEd Schouten 	while (menu_list[list_size + 1].item_string != NULL)
336772fcea8cSEd Schouten 		list_size++;
336872fcea8cSEd Schouten 	max_width = 0;
336972fcea8cSEd Schouten 	for (counter = 0; counter <= list_size; counter++)
337072fcea8cSEd Schouten 	{
337172fcea8cSEd Schouten 		if ((length = strlen(menu_list[counter].item_string)) > max_width)
337272fcea8cSEd Schouten 			max_width = length;
337372fcea8cSEd Schouten 	}
337472fcea8cSEd Schouten 	max_width += 3;
337572fcea8cSEd Schouten 	max_width = max(max_width, strlen(menu_cancel_msg));
337672fcea8cSEd Schouten 	max_width = max(max_width, max(strlen(more_above_str), strlen(more_below_str)));
337772fcea8cSEd Schouten 	max_width += 6;
337872fcea8cSEd Schouten 
337972fcea8cSEd Schouten 	/*
338072fcea8cSEd Schouten 	 |	make sure that window is large enough to handle menu
338172fcea8cSEd Schouten 	 |	if not, print error message and return to calling function
338272fcea8cSEd Schouten 	 */
338372fcea8cSEd Schouten 
338472fcea8cSEd Schouten 	if (max_width > COLS)
338572fcea8cSEd Schouten 	{
338672fcea8cSEd Schouten 		wmove(com_win, 0, 0);
338772fcea8cSEd Schouten 		werase(com_win);
338872fcea8cSEd Schouten 		wprintw(com_win, menu_too_lrg_msg);
338972fcea8cSEd Schouten 		wrefresh(com_win);
339072fcea8cSEd Schouten 		clear_com_win = TRUE;
339172fcea8cSEd Schouten 		return(0);
339272fcea8cSEd Schouten 	}
339372fcea8cSEd Schouten 
339472fcea8cSEd Schouten 	top_offset = 0;
339572fcea8cSEd Schouten 
339672fcea8cSEd Schouten 	if (list_size > LINES)
339772fcea8cSEd Schouten 	{
339872fcea8cSEd Schouten 		max_height = LINES;
339972fcea8cSEd Schouten 		if (max_height > 11)
340072fcea8cSEd Schouten 			vert_size = max_height - 8;
340172fcea8cSEd Schouten 		else
340272fcea8cSEd Schouten 			vert_size = max_height;
340372fcea8cSEd Schouten 	}
340472fcea8cSEd Schouten 	else
340572fcea8cSEd Schouten 	{
340672fcea8cSEd Schouten 		vert_size = list_size;
340772fcea8cSEd Schouten 		max_height = list_size;
340872fcea8cSEd Schouten 	}
340972fcea8cSEd Schouten 
341072fcea8cSEd Schouten 	if (LINES >= (vert_size + 8))
341172fcea8cSEd Schouten 	{
341272fcea8cSEd Schouten 		if (menu_list[0].argument != MENU_WARN)
341372fcea8cSEd Schouten 			max_height = vert_size + 8;
341472fcea8cSEd Schouten 		else
341572fcea8cSEd Schouten 			max_height = vert_size + 7;
341672fcea8cSEd Schouten 		top_offset = 4;
341772fcea8cSEd Schouten 	}
341872fcea8cSEd Schouten 	x_off = (COLS - max_width) / 2;
341972fcea8cSEd Schouten 	y_off = (LINES - max_height - 1) / 2;
342072fcea8cSEd Schouten 	temp_win = newwin(max_height, max_width, y_off, x_off);
342172fcea8cSEd Schouten 	keypad(temp_win, TRUE);
342272fcea8cSEd Schouten 
342372fcea8cSEd Schouten 	paint_menu(menu_list, max_width, max_height, list_size, top_offset, temp_win, off_start, vert_size);
342472fcea8cSEd Schouten 
342572fcea8cSEd Schouten 	counter = 1;
342672fcea8cSEd Schouten 	vert_pos = 0;
342772fcea8cSEd Schouten 	do
342872fcea8cSEd Schouten 	{
342972fcea8cSEd Schouten 		if (off_start > 2)
343072fcea8cSEd Schouten 			wmove(temp_win, (1 + counter + top_offset - off_start), 3);
343172fcea8cSEd Schouten 		else
343272fcea8cSEd Schouten 			wmove(temp_win, (counter + top_offset - off_start), 3);
343372fcea8cSEd Schouten 
343472fcea8cSEd Schouten 		wrefresh(temp_win);
343596b676e9SEd Schouten 		in = wgetch(temp_win);
343696b676e9SEd Schouten 		input = in;
343796b676e9SEd Schouten 		if (input == -1)
343896b676e9SEd Schouten 			exit(0);
343972fcea8cSEd Schouten 
344031dcbfadSAndrey A. Chernov 		if (isascii(input) && isalnum(input))
344172fcea8cSEd Schouten 		{
344231dcbfadSAndrey A. Chernov 			if (isalpha(input))
344372fcea8cSEd Schouten 			{
344472fcea8cSEd Schouten 				temp = 1 + tolower(input) - 'a';
344572fcea8cSEd Schouten 			}
344631dcbfadSAndrey A. Chernov 			else if (isdigit(input))
344772fcea8cSEd Schouten 			{
344872fcea8cSEd Schouten 				temp = (2 + 'z' - 'a') + (input - '0');
344972fcea8cSEd Schouten 			}
345072fcea8cSEd Schouten 
345172fcea8cSEd Schouten 			if (temp <= list_size)
345272fcea8cSEd Schouten 			{
345372fcea8cSEd Schouten 				input = '\n';
345472fcea8cSEd Schouten 				counter = temp;
345572fcea8cSEd Schouten 			}
345672fcea8cSEd Schouten 		}
345772fcea8cSEd Schouten 		else
345872fcea8cSEd Schouten 		{
345972fcea8cSEd Schouten 			switch (input)
346072fcea8cSEd Schouten 			{
346172fcea8cSEd Schouten 				case ' ':	/* space	*/
346272fcea8cSEd Schouten 				case '\004':	/* ^d, down	*/
346372fcea8cSEd Schouten 				case KEY_RIGHT:
346472fcea8cSEd Schouten 				case KEY_DOWN:
346572fcea8cSEd Schouten 					counter++;
346672fcea8cSEd Schouten 					if (counter > list_size)
346772fcea8cSEd Schouten 						counter = 1;
346872fcea8cSEd Schouten 					break;
346972fcea8cSEd Schouten 				case '\010':	/* ^h, backspace*/
347072fcea8cSEd Schouten 				case '\025':	/* ^u, up	*/
347172fcea8cSEd Schouten 				case 127:	/* ^?, delete	*/
347272fcea8cSEd Schouten 				case KEY_BACKSPACE:
347372fcea8cSEd Schouten 				case KEY_LEFT:
347472fcea8cSEd Schouten 				case KEY_UP:
347572fcea8cSEd Schouten 					counter--;
347672fcea8cSEd Schouten 					if (counter == 0)
347772fcea8cSEd Schouten 						counter = list_size;
347872fcea8cSEd Schouten 					break;
347972fcea8cSEd Schouten 				case '\033':	/* escape key	*/
348072fcea8cSEd Schouten 					if (menu_list[0].argument != MENU_WARN)
348172fcea8cSEd Schouten 						counter = 0;
348272fcea8cSEd Schouten 					break;
348372fcea8cSEd Schouten 				case '\014':	/* ^l       	*/
348472fcea8cSEd Schouten 				case '\022':	/* ^r, redraw	*/
348572fcea8cSEd Schouten 					paint_menu(menu_list, max_width, max_height,
348672fcea8cSEd Schouten 						list_size, top_offset, temp_win,
348772fcea8cSEd Schouten 						off_start, vert_size);
348872fcea8cSEd Schouten 					break;
348972fcea8cSEd Schouten 				default:
349072fcea8cSEd Schouten 					break;
349172fcea8cSEd Schouten 			}
349272fcea8cSEd Schouten 		}
349372fcea8cSEd Schouten 
349472fcea8cSEd Schouten 		if (((list_size - off_start) >= (vert_size - 1)) &&
349572fcea8cSEd Schouten 			(counter > (off_start + vert_size - 3)) &&
349672fcea8cSEd Schouten 				(off_start > 1))
349772fcea8cSEd Schouten 		{
349872fcea8cSEd Schouten 			if (counter == list_size)
349972fcea8cSEd Schouten 				off_start = (list_size - vert_size) + 2;
350072fcea8cSEd Schouten 			else
350172fcea8cSEd Schouten 				off_start++;
350272fcea8cSEd Schouten 
350372fcea8cSEd Schouten 			paint_menu(menu_list, max_width, max_height,
350472fcea8cSEd Schouten 				   list_size, top_offset, temp_win, off_start,
350572fcea8cSEd Schouten 				   vert_size);
350672fcea8cSEd Schouten 		}
350772fcea8cSEd Schouten 		else if ((list_size != vert_size) &&
350872fcea8cSEd Schouten 				(counter > (off_start + vert_size - 2)))
350972fcea8cSEd Schouten 		{
351072fcea8cSEd Schouten 			if (counter == list_size)
351172fcea8cSEd Schouten 				off_start = 2 + (list_size - vert_size);
351272fcea8cSEd Schouten 			else if (off_start == 1)
351372fcea8cSEd Schouten 				off_start = 3;
351472fcea8cSEd Schouten 			else
351572fcea8cSEd Schouten 				off_start++;
351672fcea8cSEd Schouten 
351772fcea8cSEd Schouten 			paint_menu(menu_list, max_width, max_height,
351872fcea8cSEd Schouten 				   list_size, top_offset, temp_win, off_start,
351972fcea8cSEd Schouten 				   vert_size);
352072fcea8cSEd Schouten 		}
352172fcea8cSEd Schouten 		else if (counter < off_start)
352272fcea8cSEd Schouten 		{
352372fcea8cSEd Schouten 			if (counter <= 2)
352472fcea8cSEd Schouten 				off_start = 1;
352572fcea8cSEd Schouten 			else
352672fcea8cSEd Schouten 				off_start = counter;
352772fcea8cSEd Schouten 
352872fcea8cSEd Schouten 			paint_menu(menu_list, max_width, max_height,
352972fcea8cSEd Schouten 				   list_size, top_offset, temp_win, off_start,
353072fcea8cSEd Schouten 				   vert_size);
353172fcea8cSEd Schouten 		}
353272fcea8cSEd Schouten 	}
353372fcea8cSEd Schouten 	while ((input != '\r') && (input != '\n') && (counter != 0));
353472fcea8cSEd Schouten 
353572fcea8cSEd Schouten 	werase(temp_win);
353672fcea8cSEd Schouten 	wrefresh(temp_win);
353772fcea8cSEd Schouten 	delwin(temp_win);
353872fcea8cSEd Schouten 
353972fcea8cSEd Schouten 	if ((menu_list[counter].procedure != NULL) ||
354072fcea8cSEd Schouten 	    (menu_list[counter].iprocedure != NULL) ||
354172fcea8cSEd Schouten 	    (menu_list[counter].nprocedure != NULL))
354272fcea8cSEd Schouten 	{
354372fcea8cSEd Schouten 		if (menu_list[counter].argument != -1)
354472fcea8cSEd Schouten 			(*menu_list[counter].iprocedure)(menu_list[counter].argument);
354572fcea8cSEd Schouten 		else if (menu_list[counter].ptr_argument != NULL)
354672fcea8cSEd Schouten 			(*menu_list[counter].procedure)(menu_list[counter].ptr_argument);
354772fcea8cSEd Schouten 		else
354872fcea8cSEd Schouten 			(*menu_list[counter].nprocedure)();
354972fcea8cSEd Schouten 	}
355072fcea8cSEd Schouten 
355172fcea8cSEd Schouten 	if (info_window)
355272fcea8cSEd Schouten 		paint_info_win();
355372fcea8cSEd Schouten 	redraw();
355472fcea8cSEd Schouten 
355572fcea8cSEd Schouten 	return(counter);
355672fcea8cSEd Schouten }
355772fcea8cSEd Schouten 
355872fcea8cSEd Schouten void
3559*91517e3bSJohn Baldwin paint_menu(struct menu_entries menu_list[], int max_width, int max_height,
3560*91517e3bSJohn Baldwin     int list_size, int top_offset, WINDOW *menu_win, int off_start,
3561*91517e3bSJohn Baldwin     int vert_size)
356272fcea8cSEd Schouten {
356372fcea8cSEd Schouten 	int counter, temp_int;
356472fcea8cSEd Schouten 
356572fcea8cSEd Schouten 	werase(menu_win);
356672fcea8cSEd Schouten 
356772fcea8cSEd Schouten 	/*
356872fcea8cSEd Schouten 	 |	output top and bottom portions of menu box only if window
356972fcea8cSEd Schouten 	 |	large enough
357072fcea8cSEd Schouten 	 */
357172fcea8cSEd Schouten 
357272fcea8cSEd Schouten 	if (max_height > vert_size)
357372fcea8cSEd Schouten 	{
357472fcea8cSEd Schouten 		wmove(menu_win, 1, 1);
357572fcea8cSEd Schouten 		if (!nohighlight)
357672fcea8cSEd Schouten 			wstandout(menu_win);
357772fcea8cSEd Schouten 		waddch(menu_win, '+');
357872fcea8cSEd Schouten 		for (counter = 0; counter < (max_width - 4); counter++)
357972fcea8cSEd Schouten 			waddch(menu_win, '-');
358072fcea8cSEd Schouten 		waddch(menu_win, '+');
358172fcea8cSEd Schouten 
358272fcea8cSEd Schouten 		wmove(menu_win, (max_height - 2), 1);
358372fcea8cSEd Schouten 		waddch(menu_win, '+');
358472fcea8cSEd Schouten 		for (counter = 0; counter < (max_width - 4); counter++)
358572fcea8cSEd Schouten 			waddch(menu_win, '-');
358672fcea8cSEd Schouten 		waddch(menu_win, '+');
358772fcea8cSEd Schouten 		wstandend(menu_win);
358872fcea8cSEd Schouten 		wmove(menu_win, 2, 3);
358972fcea8cSEd Schouten 		waddstr(menu_win, menu_list[0].item_string);
359072fcea8cSEd Schouten 		wmove(menu_win, (max_height - 3), 3);
359172fcea8cSEd Schouten 		if (menu_list[0].argument != MENU_WARN)
359272fcea8cSEd Schouten 			waddstr(menu_win, menu_cancel_msg);
359372fcea8cSEd Schouten 	}
359472fcea8cSEd Schouten 	if (!nohighlight)
359572fcea8cSEd Schouten 		wstandout(menu_win);
359672fcea8cSEd Schouten 
359772fcea8cSEd Schouten 	for (counter = 0; counter < (vert_size + top_offset); counter++)
359872fcea8cSEd Schouten 	{
359972fcea8cSEd Schouten 		if (top_offset == 4)
360072fcea8cSEd Schouten 		{
360172fcea8cSEd Schouten 			temp_int = counter + 2;
360272fcea8cSEd Schouten 		}
360372fcea8cSEd Schouten 		else
360472fcea8cSEd Schouten 			temp_int = counter;
360572fcea8cSEd Schouten 
360672fcea8cSEd Schouten 		wmove(menu_win, temp_int, 1);
360772fcea8cSEd Schouten 		waddch(menu_win, '|');
360872fcea8cSEd Schouten 		wmove(menu_win, temp_int, (max_width - 2));
360972fcea8cSEd Schouten 		waddch(menu_win, '|');
361072fcea8cSEd Schouten 	}
361172fcea8cSEd Schouten 	wstandend(menu_win);
361272fcea8cSEd Schouten 
361372fcea8cSEd Schouten 	if (list_size > vert_size)
361472fcea8cSEd Schouten 	{
361572fcea8cSEd Schouten 		if (off_start >= 3)
361672fcea8cSEd Schouten 		{
361772fcea8cSEd Schouten 			temp_int = 1;
361872fcea8cSEd Schouten 			wmove(menu_win, top_offset, 3);
361972fcea8cSEd Schouten 			waddstr(menu_win, more_above_str);
362072fcea8cSEd Schouten 		}
362172fcea8cSEd Schouten 		else
362272fcea8cSEd Schouten 			temp_int = 0;
362372fcea8cSEd Schouten 
362472fcea8cSEd Schouten 		for (counter = off_start;
362572fcea8cSEd Schouten 			((temp_int + counter - off_start) < (vert_size - 1));
362672fcea8cSEd Schouten 				counter++)
362772fcea8cSEd Schouten 		{
362872fcea8cSEd Schouten 			wmove(menu_win, (top_offset + temp_int +
362972fcea8cSEd Schouten 						(counter - off_start)), 3);
363072fcea8cSEd Schouten 			if (list_size > 1)
363172fcea8cSEd Schouten 				wprintw(menu_win, "%c) ", item_alpha[min((counter - 1), max_alpha_char)]);
363272fcea8cSEd Schouten 			waddstr(menu_win, menu_list[counter].item_string);
363372fcea8cSEd Schouten 		}
363472fcea8cSEd Schouten 
363572fcea8cSEd Schouten 		wmove(menu_win, (top_offset + (vert_size - 1)), 3);
363672fcea8cSEd Schouten 
363772fcea8cSEd Schouten 		if (counter == list_size)
363872fcea8cSEd Schouten 		{
363972fcea8cSEd Schouten 			if (list_size > 1)
364072fcea8cSEd Schouten 				wprintw(menu_win, "%c) ", item_alpha[min((counter - 1), max_alpha_char)]);
364172fcea8cSEd Schouten 			wprintw(menu_win, menu_list[counter].item_string);
364272fcea8cSEd Schouten 		}
364372fcea8cSEd Schouten 		else
364472fcea8cSEd Schouten 			wprintw(menu_win, more_below_str);
364572fcea8cSEd Schouten 	}
364672fcea8cSEd Schouten 	else
364772fcea8cSEd Schouten 	{
364872fcea8cSEd Schouten 		for (counter = 1; counter <= list_size; counter++)
364972fcea8cSEd Schouten 		{
365072fcea8cSEd Schouten 			wmove(menu_win, (top_offset + counter - 1), 3);
365172fcea8cSEd Schouten 			if (list_size > 1)
365272fcea8cSEd Schouten 				wprintw(menu_win, "%c) ", item_alpha[min((counter - 1), max_alpha_char)]);
365372fcea8cSEd Schouten 			waddstr(menu_win, menu_list[counter].item_string);
365472fcea8cSEd Schouten 		}
365572fcea8cSEd Schouten 	}
365672fcea8cSEd Schouten }
365772fcea8cSEd Schouten 
365872fcea8cSEd Schouten void
3659*91517e3bSJohn Baldwin help(void)
366072fcea8cSEd Schouten {
366172fcea8cSEd Schouten 	int counter;
366272fcea8cSEd Schouten 
366372fcea8cSEd Schouten 	werase(help_win);
366472fcea8cSEd Schouten 	clearok(help_win, TRUE);
366572fcea8cSEd Schouten 	for (counter = 0; counter < 22; counter++)
366672fcea8cSEd Schouten 	{
366772fcea8cSEd Schouten 		wmove(help_win, counter, 0);
366872fcea8cSEd Schouten 		waddstr(help_win, (emacs_keys_mode) ?
366972fcea8cSEd Schouten 			emacs_help_text[counter] : help_text[counter]);
367072fcea8cSEd Schouten 	}
367172fcea8cSEd Schouten 	wrefresh(help_win);
367272fcea8cSEd Schouten 	werase(com_win);
367372fcea8cSEd Schouten 	wmove(com_win, 0, 0);
367472fcea8cSEd Schouten 	wprintw(com_win, press_any_key_msg);
367572fcea8cSEd Schouten 	wrefresh(com_win);
367672fcea8cSEd Schouten 	counter = wgetch(com_win);
367796b676e9SEd Schouten 	if (counter == -1)
367896b676e9SEd Schouten 		exit(0);
367972fcea8cSEd Schouten 	werase(com_win);
368072fcea8cSEd Schouten 	wmove(com_win, 0, 0);
368172fcea8cSEd Schouten 	werase(help_win);
368272fcea8cSEd Schouten 	wrefresh(help_win);
368372fcea8cSEd Schouten 	wrefresh(com_win);
368472fcea8cSEd Schouten 	redraw();
368572fcea8cSEd Schouten }
368672fcea8cSEd Schouten 
368772fcea8cSEd Schouten void
3688*91517e3bSJohn Baldwin paint_info_win(void)
368972fcea8cSEd Schouten {
369072fcea8cSEd Schouten 	int counter;
369172fcea8cSEd Schouten 
369272fcea8cSEd Schouten 	if (!info_window)
369372fcea8cSEd Schouten 		return;
369472fcea8cSEd Schouten 
369572fcea8cSEd Schouten 	werase(info_win);
369672fcea8cSEd Schouten 	for (counter = 0; counter < 5; counter++)
369772fcea8cSEd Schouten 	{
369872fcea8cSEd Schouten 		wmove(info_win, counter, 0);
369972fcea8cSEd Schouten 		wclrtoeol(info_win);
370072fcea8cSEd Schouten 		if (info_type == CONTROL_KEYS)
370172fcea8cSEd Schouten 			waddstr(info_win, (emacs_keys_mode) ?
370272fcea8cSEd Schouten 			  emacs_control_keys[counter] : control_keys[counter]);
370372fcea8cSEd Schouten 		else if (info_type == COMMANDS)
370472fcea8cSEd Schouten 			waddstr(info_win, command_strings[counter]);
370572fcea8cSEd Schouten 	}
370696b676e9SEd Schouten 	wmove(info_win, 5, 0);
370796b676e9SEd Schouten 	if (!nohighlight)
370896b676e9SEd Schouten 		wstandout(info_win);
370996b676e9SEd Schouten 	waddstr(info_win, separator);
371096b676e9SEd Schouten 	wstandend(info_win);
371172fcea8cSEd Schouten 	wrefresh(info_win);
371272fcea8cSEd Schouten }
371372fcea8cSEd Schouten 
371472fcea8cSEd Schouten void
3715*91517e3bSJohn Baldwin no_info_window(void)
371672fcea8cSEd Schouten {
371772fcea8cSEd Schouten 	if (!info_window)
371872fcea8cSEd Schouten 		return;
371972fcea8cSEd Schouten 	delwin(info_win);
372072fcea8cSEd Schouten 	delwin(text_win);
372172fcea8cSEd Schouten 	info_window = FALSE;
372272fcea8cSEd Schouten 	last_line = LINES - 2;
372372fcea8cSEd Schouten 	text_win = newwin((LINES - 1), COLS, 0, 0);
372472fcea8cSEd Schouten 	keypad(text_win, TRUE);
372572fcea8cSEd Schouten 	idlok(text_win, TRUE);
372672fcea8cSEd Schouten 	clearok(text_win, TRUE);
372772fcea8cSEd Schouten 	midscreen(scr_vert, point);
372872fcea8cSEd Schouten 	wrefresh(text_win);
372972fcea8cSEd Schouten 	clear_com_win = TRUE;
373072fcea8cSEd Schouten }
373172fcea8cSEd Schouten 
373272fcea8cSEd Schouten void
3733*91517e3bSJohn Baldwin create_info_window(void)
373472fcea8cSEd Schouten {
373572fcea8cSEd Schouten 	if (info_window)
373672fcea8cSEd Schouten 		return;
373772fcea8cSEd Schouten 	last_line = LINES - 8;
373872fcea8cSEd Schouten 	delwin(text_win);
373972fcea8cSEd Schouten 	text_win = newwin((LINES - 7), COLS, 6, 0);
374072fcea8cSEd Schouten 	keypad(text_win, TRUE);
374172fcea8cSEd Schouten 	idlok(text_win, TRUE);
374272fcea8cSEd Schouten 	werase(text_win);
374372fcea8cSEd Schouten 	info_window = TRUE;
374496b676e9SEd Schouten 	info_win = newwin(6, COLS, 0, 0);
374572fcea8cSEd Schouten 	werase(info_win);
374672fcea8cSEd Schouten 	info_type = CONTROL_KEYS;
374772fcea8cSEd Schouten 	midscreen(min(scr_vert, last_line), point);
374872fcea8cSEd Schouten 	clearok(info_win, TRUE);
374972fcea8cSEd Schouten 	paint_info_win();
375072fcea8cSEd Schouten 	wrefresh(text_win);
375172fcea8cSEd Schouten 	clear_com_win = TRUE;
375272fcea8cSEd Schouten }
375372fcea8cSEd Schouten 
375472fcea8cSEd Schouten int
3755*91517e3bSJohn Baldwin file_op(int arg)
375672fcea8cSEd Schouten {
375772fcea8cSEd Schouten 	char *string;
375872fcea8cSEd Schouten 	int flag;
375972fcea8cSEd Schouten 
376072fcea8cSEd Schouten 	if (restrict_mode())
376172fcea8cSEd Schouten 	{
376272fcea8cSEd Schouten 		return(0);
376372fcea8cSEd Schouten 	}
376472fcea8cSEd Schouten 
376572fcea8cSEd Schouten 	if (arg == READ_FILE)
376672fcea8cSEd Schouten 	{
376772fcea8cSEd Schouten 		string = get_string(file_read_prompt_str, TRUE);
376872fcea8cSEd Schouten 		recv_file = TRUE;
376972fcea8cSEd Schouten 		tmp_file = resolve_name(string);
377072fcea8cSEd Schouten 		check_fp();
377172fcea8cSEd Schouten 		if (tmp_file != string)
377272fcea8cSEd Schouten 			free(tmp_file);
377372fcea8cSEd Schouten 		free(string);
377472fcea8cSEd Schouten 	}
377572fcea8cSEd Schouten 	else if (arg == WRITE_FILE)
377672fcea8cSEd Schouten 	{
377772fcea8cSEd Schouten 		string = get_string(file_write_prompt_str, TRUE);
377872fcea8cSEd Schouten 		tmp_file = resolve_name(string);
3779cfe04e82SEd Schouten 		write_file(tmp_file, 1);
378072fcea8cSEd Schouten 		if (tmp_file != string)
378172fcea8cSEd Schouten 			free(tmp_file);
378272fcea8cSEd Schouten 		free(string);
378372fcea8cSEd Schouten 	}
378472fcea8cSEd Schouten 	else if (arg == SAVE_FILE)
378572fcea8cSEd Schouten 	{
378672fcea8cSEd Schouten 	/*
378772fcea8cSEd Schouten 	 |	changes made here should be reflected in finish()
378872fcea8cSEd Schouten 	 */
378972fcea8cSEd Schouten 
379072fcea8cSEd Schouten 		if (in_file_name)
379172fcea8cSEd Schouten 			flag = TRUE;
379272fcea8cSEd Schouten 		else
379372fcea8cSEd Schouten 			flag = FALSE;
379472fcea8cSEd Schouten 
379572fcea8cSEd Schouten 		string = in_file_name;
379696b676e9SEd Schouten 		if ((string == NULL) || (*string == '\0'))
379772fcea8cSEd Schouten 			string = get_string(save_file_name_prompt, TRUE);
379896b676e9SEd Schouten 		if ((string == NULL) || (*string == '\0'))
379972fcea8cSEd Schouten 		{
380072fcea8cSEd Schouten 			wmove(com_win, 0, 0);
380172fcea8cSEd Schouten 			wprintw(com_win, file_not_saved_msg);
380272fcea8cSEd Schouten 			wclrtoeol(com_win);
380372fcea8cSEd Schouten 			wrefresh(com_win);
380472fcea8cSEd Schouten 			clear_com_win = TRUE;
380572fcea8cSEd Schouten 			return(0);
380672fcea8cSEd Schouten 		}
380772fcea8cSEd Schouten 		if (!flag)
380872fcea8cSEd Schouten 		{
380972fcea8cSEd Schouten 			tmp_file = resolve_name(string);
381072fcea8cSEd Schouten 			if (tmp_file != string)
381172fcea8cSEd Schouten 			{
381272fcea8cSEd Schouten 				free(string);
381372fcea8cSEd Schouten 				string = tmp_file;
381472fcea8cSEd Schouten 			}
381572fcea8cSEd Schouten 		}
3816cfe04e82SEd Schouten 		if (write_file(string, 1))
381772fcea8cSEd Schouten 		{
381872fcea8cSEd Schouten 			in_file_name = string;
381972fcea8cSEd Schouten 			text_changes = FALSE;
382072fcea8cSEd Schouten 		}
382172fcea8cSEd Schouten 		else if (!flag)
382272fcea8cSEd Schouten 			free(string);
382372fcea8cSEd Schouten 	}
382472fcea8cSEd Schouten 	return(0);
382572fcea8cSEd Schouten }
382672fcea8cSEd Schouten 
382772fcea8cSEd Schouten void
3828*91517e3bSJohn Baldwin shell_op(void)
382972fcea8cSEd Schouten {
383072fcea8cSEd Schouten 	char *string;
383172fcea8cSEd Schouten 
383272fcea8cSEd Schouten 	if (((string = get_string(shell_prompt, TRUE)) != NULL) &&
383396b676e9SEd Schouten 			(*string != '\0'))
383472fcea8cSEd Schouten 	{
383572fcea8cSEd Schouten 		sh_command(string);
383672fcea8cSEd Schouten 		free(string);
383772fcea8cSEd Schouten 	}
383872fcea8cSEd Schouten }
383972fcea8cSEd Schouten 
384072fcea8cSEd Schouten void
3841*91517e3bSJohn Baldwin leave_op(void)
384272fcea8cSEd Schouten {
384372fcea8cSEd Schouten 	if (text_changes)
384472fcea8cSEd Schouten 	{
384572fcea8cSEd Schouten 		menu_op(leave_menu);
384672fcea8cSEd Schouten 	}
384772fcea8cSEd Schouten 	else
384872fcea8cSEd Schouten 		quit(TRUE);
384972fcea8cSEd Schouten }
385072fcea8cSEd Schouten 
385172fcea8cSEd Schouten void
3852*91517e3bSJohn Baldwin redraw(void)
385372fcea8cSEd Schouten {
385472fcea8cSEd Schouten 	if (info_window)
385572fcea8cSEd Schouten         {
385672fcea8cSEd Schouten                 clearok(info_win, TRUE);
385772fcea8cSEd Schouten         	paint_info_win();
385872fcea8cSEd Schouten         }
385972fcea8cSEd Schouten         else
386072fcea8cSEd Schouten 		clearok(text_win, TRUE);
386172fcea8cSEd Schouten 	midscreen(scr_vert, point);
386272fcea8cSEd Schouten }
386372fcea8cSEd Schouten 
386472fcea8cSEd Schouten /*
386572fcea8cSEd Schouten  |	The following routines will "format" a paragraph (as defined by a
386672fcea8cSEd Schouten  |	block of text with blank lines before and after the block).
386772fcea8cSEd Schouten  */
386872fcea8cSEd Schouten 
3869*91517e3bSJohn Baldwin /* test if line has any non-space characters	*/
387072fcea8cSEd Schouten int
3871*91517e3bSJohn Baldwin Blank_Line(struct text *test_line)
387272fcea8cSEd Schouten {
387372fcea8cSEd Schouten 	unsigned char *line;
387472fcea8cSEd Schouten 	int length;
387572fcea8cSEd Schouten 
387672fcea8cSEd Schouten 	if (test_line == NULL)
387772fcea8cSEd Schouten 		return(TRUE);
387872fcea8cSEd Schouten 
387972fcea8cSEd Schouten 	length = 1;
388072fcea8cSEd Schouten 	line = test_line->line;
388172fcea8cSEd Schouten 
388272fcea8cSEd Schouten 	/*
388372fcea8cSEd Schouten 	 |	To handle troff/nroff documents, consider a line with a
388472fcea8cSEd Schouten 	 |	period ('.') in the first column to be blank.  To handle mail
388572fcea8cSEd Schouten 	 |	messages with included text, consider a line with a '>' blank.
388672fcea8cSEd Schouten 	 */
388772fcea8cSEd Schouten 
388872fcea8cSEd Schouten 	if ((*line == '.') || (*line == '>'))
388972fcea8cSEd Schouten 		return(TRUE);
389072fcea8cSEd Schouten 
389172fcea8cSEd Schouten 	while (((*line == ' ') || (*line == '\t')) && (length < test_line->line_length))
389272fcea8cSEd Schouten 	{
389372fcea8cSEd Schouten 		length++;
389472fcea8cSEd Schouten 		line++;
389572fcea8cSEd Schouten 	}
389672fcea8cSEd Schouten 	if (length != test_line->line_length)
389772fcea8cSEd Schouten 		return(FALSE);
389872fcea8cSEd Schouten 	else
389972fcea8cSEd Schouten 		return(TRUE);
390072fcea8cSEd Schouten }
390172fcea8cSEd Schouten 
3902*91517e3bSJohn Baldwin /* format the paragraph according to set margins	*/
390372fcea8cSEd Schouten void
3904*91517e3bSJohn Baldwin Format(void)
390572fcea8cSEd Schouten {
390672fcea8cSEd Schouten 	int string_count;
390772fcea8cSEd Schouten 	int offset;
390872fcea8cSEd Schouten 	int temp_case;
390972fcea8cSEd Schouten 	int status;
391072fcea8cSEd Schouten 	int tmp_af;
391172fcea8cSEd Schouten 	int counter;
391272fcea8cSEd Schouten 	unsigned char *line;
391372fcea8cSEd Schouten 	unsigned char *tmp_srchstr;
391472fcea8cSEd Schouten 	unsigned char *temp1, *temp2;
391572fcea8cSEd Schouten 	unsigned char *temp_dword;
391672fcea8cSEd Schouten 	unsigned char temp_d_char[3];
391772fcea8cSEd Schouten 
391872fcea8cSEd Schouten 	temp_d_char[0] = d_char[0];
391972fcea8cSEd Schouten 	temp_d_char[1] = d_char[1];
392072fcea8cSEd Schouten 	temp_d_char[2] = d_char[2];
392172fcea8cSEd Schouten 
392272fcea8cSEd Schouten /*
392372fcea8cSEd Schouten  |	if observ_margins is not set, or the current line is blank,
392472fcea8cSEd Schouten  |	do not format the current paragraph
392572fcea8cSEd Schouten  */
392672fcea8cSEd Schouten 
392772fcea8cSEd Schouten 	if ((!observ_margins) || (Blank_Line(curr_line)))
392872fcea8cSEd Schouten 		return;
392972fcea8cSEd Schouten 
393072fcea8cSEd Schouten /*
393172fcea8cSEd Schouten  |	save the currently set flags, and clear them
393272fcea8cSEd Schouten  */
393372fcea8cSEd Schouten 
393472fcea8cSEd Schouten 	wmove(com_win, 0, 0);
393572fcea8cSEd Schouten 	wclrtoeol(com_win);
393672fcea8cSEd Schouten 	wprintw(com_win, formatting_msg);
393772fcea8cSEd Schouten 	wrefresh(com_win);
393872fcea8cSEd Schouten 
393972fcea8cSEd Schouten /*
394072fcea8cSEd Schouten  |	get current position in paragraph, so after formatting, the cursor
394172fcea8cSEd Schouten  |	will be in the same relative position
394272fcea8cSEd Schouten  */
394372fcea8cSEd Schouten 
394472fcea8cSEd Schouten 	tmp_af = auto_format;
394572fcea8cSEd Schouten 	auto_format = FALSE;
394672fcea8cSEd Schouten 	offset = position;
394772fcea8cSEd Schouten 	if (position != 1)
394872fcea8cSEd Schouten 		prev_word();
394972fcea8cSEd Schouten 	temp_dword = d_word;
395072fcea8cSEd Schouten 	d_word = NULL;
395172fcea8cSEd Schouten 	temp_case = case_sen;
395272fcea8cSEd Schouten 	case_sen = TRUE;
395372fcea8cSEd Schouten 	tmp_srchstr = srch_str;
395472fcea8cSEd Schouten 	temp2 = srch_str = (unsigned char *) malloc(1 + curr_line->line_length - position);
395572fcea8cSEd Schouten 	if ((*point == ' ') || (*point == '\t'))
395672fcea8cSEd Schouten 		adv_word();
395772fcea8cSEd Schouten 	offset -= position;
395872fcea8cSEd Schouten 	counter = position;
395972fcea8cSEd Schouten 	line = temp1 = point;
396096b676e9SEd Schouten 	while ((*temp1 != '\0') && (*temp1 != ' ') && (*temp1 != '\t') && (counter < curr_line->line_length))
396172fcea8cSEd Schouten 	{
396272fcea8cSEd Schouten 		*temp2 = *temp1;
396372fcea8cSEd Schouten 		temp2++;
396472fcea8cSEd Schouten 		temp1++;
396572fcea8cSEd Schouten 		counter++;
396672fcea8cSEd Schouten 	}
396796b676e9SEd Schouten 	*temp2 = '\0';
396872fcea8cSEd Schouten 	if (position != 1)
396972fcea8cSEd Schouten 		bol();
397072fcea8cSEd Schouten 	while (!Blank_Line(curr_line->prev_line))
397172fcea8cSEd Schouten 		bol();
397272fcea8cSEd Schouten 	string_count = 0;
397372fcea8cSEd Schouten 	status = TRUE;
397472fcea8cSEd Schouten 	while ((line != point) && (status))
397572fcea8cSEd Schouten 	{
397672fcea8cSEd Schouten 		status = search(FALSE);
397772fcea8cSEd Schouten 		string_count++;
397872fcea8cSEd Schouten 	}
397972fcea8cSEd Schouten 
398072fcea8cSEd Schouten 	wmove(com_win, 0, 0);
398172fcea8cSEd Schouten 	wclrtoeol(com_win);
398272fcea8cSEd Schouten 	wprintw(com_win, formatting_msg);
398372fcea8cSEd Schouten 	wrefresh(com_win);
398472fcea8cSEd Schouten 
398572fcea8cSEd Schouten /*
398672fcea8cSEd Schouten  |	now get back to the start of the paragraph to start formatting
398772fcea8cSEd Schouten  */
398872fcea8cSEd Schouten 
398972fcea8cSEd Schouten 	if (position != 1)
399072fcea8cSEd Schouten 		bol();
399172fcea8cSEd Schouten 	while (!Blank_Line(curr_line->prev_line))
399272fcea8cSEd Schouten 		bol();
399372fcea8cSEd Schouten 
399472fcea8cSEd Schouten 	observ_margins = FALSE;
399572fcea8cSEd Schouten 
399672fcea8cSEd Schouten /*
399772fcea8cSEd Schouten  |	Start going through lines, putting spaces at end of lines if they do
399872fcea8cSEd Schouten  |	not already exist.  Append lines together to get one long line, and
399972fcea8cSEd Schouten  |	eliminate spacing at begin of lines.
400072fcea8cSEd Schouten  */
400172fcea8cSEd Schouten 
400272fcea8cSEd Schouten 	while (!Blank_Line(curr_line->next_line))
400372fcea8cSEd Schouten 	{
400472fcea8cSEd Schouten 		eol();
400572fcea8cSEd Schouten 		left(TRUE);
400672fcea8cSEd Schouten 		if (*point != ' ')
400772fcea8cSEd Schouten 		{
400872fcea8cSEd Schouten 			right(TRUE);
400972fcea8cSEd Schouten 			insert(' ');
401072fcea8cSEd Schouten 		}
401172fcea8cSEd Schouten 		else
401272fcea8cSEd Schouten 			right(TRUE);
401372fcea8cSEd Schouten 		del_char();
401472fcea8cSEd Schouten 		if ((*point == ' ') || (*point == '\t'))
401572fcea8cSEd Schouten 			del_word();
401672fcea8cSEd Schouten 	}
401772fcea8cSEd Schouten 
401872fcea8cSEd Schouten /*
401972fcea8cSEd Schouten  |	Now there is one long line.  Eliminate extra spaces within the line
402072fcea8cSEd Schouten  |	after the first word (so as not to blow away any indenting the user
402172fcea8cSEd Schouten  |	may have put in).
402272fcea8cSEd Schouten  */
402372fcea8cSEd Schouten 
402472fcea8cSEd Schouten 	bol();
402572fcea8cSEd Schouten 	adv_word();
402672fcea8cSEd Schouten 	while (position < curr_line->line_length)
402772fcea8cSEd Schouten 	{
402872fcea8cSEd Schouten 		if ((*point == ' ') && (*(point + 1) == ' '))
402972fcea8cSEd Schouten 			del_char();
403072fcea8cSEd Schouten 		else
403172fcea8cSEd Schouten 			right(TRUE);
403272fcea8cSEd Schouten 	}
403372fcea8cSEd Schouten 
403472fcea8cSEd Schouten /*
403572fcea8cSEd Schouten  |	Now make sure there are two spaces after a '.'.
403672fcea8cSEd Schouten  */
403772fcea8cSEd Schouten 
403872fcea8cSEd Schouten 	bol();
403972fcea8cSEd Schouten 	while (position < curr_line->line_length)
404072fcea8cSEd Schouten 	{
404172fcea8cSEd Schouten 		if ((*point == '.') && (*(point + 1) == ' '))
404272fcea8cSEd Schouten 		{
404372fcea8cSEd Schouten 			right(TRUE);
404472fcea8cSEd Schouten 			insert(' ');
404572fcea8cSEd Schouten 			insert(' ');
404672fcea8cSEd Schouten 			while (*point == ' ')
404772fcea8cSEd Schouten 				del_char();
404872fcea8cSEd Schouten 		}
404972fcea8cSEd Schouten 		right(TRUE);
405072fcea8cSEd Schouten 	}
405172fcea8cSEd Schouten 
405272fcea8cSEd Schouten 	observ_margins = TRUE;
405372fcea8cSEd Schouten 	bol();
405472fcea8cSEd Schouten 
405572fcea8cSEd Schouten 	wmove(com_win, 0, 0);
405672fcea8cSEd Schouten 	wclrtoeol(com_win);
405772fcea8cSEd Schouten 	wprintw(com_win, formatting_msg);
405872fcea8cSEd Schouten 	wrefresh(com_win);
405972fcea8cSEd Schouten 
406072fcea8cSEd Schouten /*
406172fcea8cSEd Schouten  |	create lines between margins
406272fcea8cSEd Schouten  */
406372fcea8cSEd Schouten 
406472fcea8cSEd Schouten 	while (position < curr_line->line_length)
406572fcea8cSEd Schouten 	{
406672fcea8cSEd Schouten 		while ((scr_pos < right_margin) && (position < curr_line->line_length))
406772fcea8cSEd Schouten 			right(TRUE);
406872fcea8cSEd Schouten 		if (position < curr_line->line_length)
406972fcea8cSEd Schouten 		{
407072fcea8cSEd Schouten 			prev_word();
407172fcea8cSEd Schouten 			if (position == 1)
407272fcea8cSEd Schouten 				adv_word();
407372fcea8cSEd Schouten 			insert_line(TRUE);
407472fcea8cSEd Schouten 		}
407572fcea8cSEd Schouten 	}
407672fcea8cSEd Schouten 
407772fcea8cSEd Schouten /*
407872fcea8cSEd Schouten  |	go back to begin of paragraph, put cursor back to original position
407972fcea8cSEd Schouten  */
408072fcea8cSEd Schouten 
408172fcea8cSEd Schouten 	bol();
408272fcea8cSEd Schouten 	while (!Blank_Line(curr_line->prev_line))
408372fcea8cSEd Schouten 		bol();
408472fcea8cSEd Schouten 
408572fcea8cSEd Schouten /*
408672fcea8cSEd Schouten  |	find word cursor was in
408772fcea8cSEd Schouten  */
408872fcea8cSEd Schouten 
408972fcea8cSEd Schouten 	while ((status) && (string_count > 0))
409072fcea8cSEd Schouten 	{
409172fcea8cSEd Schouten 		search(FALSE);
409272fcea8cSEd Schouten 		string_count--;
409372fcea8cSEd Schouten 	}
409472fcea8cSEd Schouten 
409572fcea8cSEd Schouten /*
409672fcea8cSEd Schouten  |	offset the cursor to where it was before from the start of the word
409772fcea8cSEd Schouten  */
409872fcea8cSEd Schouten 
409972fcea8cSEd Schouten 	while (offset > 0)
410072fcea8cSEd Schouten 	{
410172fcea8cSEd Schouten 		offset--;
410272fcea8cSEd Schouten 		right(TRUE);
410372fcea8cSEd Schouten 	}
410472fcea8cSEd Schouten 
410572fcea8cSEd Schouten /*
410672fcea8cSEd Schouten  |	reset flags and strings to what they were before formatting
410772fcea8cSEd Schouten  */
410872fcea8cSEd Schouten 
410972fcea8cSEd Schouten 	if (d_word != NULL)
411072fcea8cSEd Schouten 		free(d_word);
411172fcea8cSEd Schouten 	d_word = temp_dword;
411272fcea8cSEd Schouten 	case_sen = temp_case;
411372fcea8cSEd Schouten 	free(srch_str);
411472fcea8cSEd Schouten 	srch_str = tmp_srchstr;
411572fcea8cSEd Schouten 	d_char[0] = temp_d_char[0];
411672fcea8cSEd Schouten 	d_char[1] = temp_d_char[1];
411772fcea8cSEd Schouten 	d_char[2] = temp_d_char[2];
411872fcea8cSEd Schouten 	auto_format = tmp_af;
411972fcea8cSEd Schouten 
412072fcea8cSEd Schouten 	midscreen(scr_vert, point);
412172fcea8cSEd Schouten 	werase(com_win);
412272fcea8cSEd Schouten 	wrefresh(com_win);
412372fcea8cSEd Schouten }
412472fcea8cSEd Schouten 
412572fcea8cSEd Schouten unsigned char *init_name[3] = {
4126cfe04e82SEd Schouten 	"/usr/share/misc/init.ee",
412772fcea8cSEd Schouten 	NULL,
412872fcea8cSEd Schouten 	".init.ee"
412972fcea8cSEd Schouten 	};
413072fcea8cSEd Schouten 
4131*91517e3bSJohn Baldwin /* check for init file and read it if it exists	*/
413272fcea8cSEd Schouten void
4133*91517e3bSJohn Baldwin ee_init(void)
413472fcea8cSEd Schouten {
413572fcea8cSEd Schouten 	FILE *init_file;
413672fcea8cSEd Schouten 	unsigned char *string;
413772fcea8cSEd Schouten 	unsigned char *str1;
413872fcea8cSEd Schouten 	unsigned char *str2;
413972fcea8cSEd Schouten 	char *home;
414072fcea8cSEd Schouten 	int counter;
414172fcea8cSEd Schouten 	int temp_int;
414272fcea8cSEd Schouten 
414372fcea8cSEd Schouten 	string = getenv("HOME");
414496b676e9SEd Schouten 	if (string == NULL)
414596b676e9SEd Schouten 		string = "/tmp";
414672fcea8cSEd Schouten 	str1 = home = malloc(strlen(string)+10);
414772fcea8cSEd Schouten 	strcpy(home, string);
414872fcea8cSEd Schouten 	strcat(home, "/.init.ee");
414972fcea8cSEd Schouten 	init_name[1] = home;
415072fcea8cSEd Schouten 	string = malloc(512);
415172fcea8cSEd Schouten 
415272fcea8cSEd Schouten 	for (counter = 0; counter < 3; counter++)
415372fcea8cSEd Schouten 	{
415472fcea8cSEd Schouten 		if (!(access(init_name[counter], 4)))
415572fcea8cSEd Schouten 		{
415672fcea8cSEd Schouten 			init_file = fopen(init_name[counter], "r");
415772fcea8cSEd Schouten 			while ((str2 = fgets(string, 512, init_file)) != NULL)
415872fcea8cSEd Schouten 			{
415972fcea8cSEd Schouten 				str1 = str2 = string;
416072fcea8cSEd Schouten 				while (*str2 != '\n')
416172fcea8cSEd Schouten 					str2++;
416296b676e9SEd Schouten 				*str2 = '\0';
416372fcea8cSEd Schouten 
416472fcea8cSEd Schouten 				if (unique_test(string, init_strings) != 1)
416572fcea8cSEd Schouten 					continue;
416672fcea8cSEd Schouten 
416772fcea8cSEd Schouten 				if (compare(str1, CASE, FALSE))
416872fcea8cSEd Schouten 					case_sen = TRUE;
416972fcea8cSEd Schouten 				else if (compare(str1, NOCASE, FALSE))
417072fcea8cSEd Schouten 					case_sen = FALSE;
417172fcea8cSEd Schouten 				else if (compare(str1, EXPAND, FALSE))
417272fcea8cSEd Schouten 					expand_tabs = TRUE;
417372fcea8cSEd Schouten 				else if (compare(str1, NOEXPAND, FALSE))
417472fcea8cSEd Schouten 					expand_tabs = FALSE;
417572fcea8cSEd Schouten 				else if (compare(str1, INFO, FALSE))
417672fcea8cSEd Schouten 					info_window = TRUE;
417772fcea8cSEd Schouten 				else if (compare(str1, NOINFO, FALSE))
417872fcea8cSEd Schouten 					info_window = FALSE;
417972fcea8cSEd Schouten 				else if (compare(str1, MARGINS, FALSE))
418072fcea8cSEd Schouten 					observ_margins = TRUE;
418172fcea8cSEd Schouten 				else if (compare(str1, NOMARGINS, FALSE))
418272fcea8cSEd Schouten 					observ_margins = FALSE;
418372fcea8cSEd Schouten 				else if (compare(str1, AUTOFORMAT, FALSE))
418472fcea8cSEd Schouten 				{
418572fcea8cSEd Schouten 					auto_format = TRUE;
418672fcea8cSEd Schouten 					observ_margins = TRUE;
418772fcea8cSEd Schouten 				}
418872fcea8cSEd Schouten 				else if (compare(str1, NOAUTOFORMAT, FALSE))
418972fcea8cSEd Schouten 					auto_format = FALSE;
419072fcea8cSEd Schouten 				else if (compare(str1, Echo, FALSE))
419172fcea8cSEd Schouten 				{
419272fcea8cSEd Schouten 					str1 = next_word(str1);
419396b676e9SEd Schouten 					if (*str1 != '\0')
419472fcea8cSEd Schouten 						echo_string(str1);
419572fcea8cSEd Schouten 				}
419672fcea8cSEd Schouten 				else if (compare(str1, PRINTCOMMAND, FALSE))
419772fcea8cSEd Schouten 				{
419872fcea8cSEd Schouten 					str1 = next_word(str1);
419972fcea8cSEd Schouten 					print_command = malloc(strlen(str1)+1);
420072fcea8cSEd Schouten 					strcpy(print_command, str1);
420172fcea8cSEd Schouten 				}
420272fcea8cSEd Schouten 				else if (compare(str1, RIGHTMARGIN, FALSE))
420372fcea8cSEd Schouten 				{
420472fcea8cSEd Schouten 					str1 = next_word(str1);
420572fcea8cSEd Schouten 					if ((*str1 >= '0') && (*str1 <= '9'))
420672fcea8cSEd Schouten 					{
420772fcea8cSEd Schouten 						temp_int = atoi(str1);
420872fcea8cSEd Schouten 						if (temp_int > 0)
420972fcea8cSEd Schouten 							right_margin = temp_int;
421072fcea8cSEd Schouten 					}
421172fcea8cSEd Schouten 				}
421272fcea8cSEd Schouten 				else if (compare(str1, HIGHLIGHT, FALSE))
421372fcea8cSEd Schouten 					nohighlight = FALSE;
421472fcea8cSEd Schouten 				else if (compare(str1, NOHIGHLIGHT, FALSE))
421572fcea8cSEd Schouten 					nohighlight = TRUE;
421672fcea8cSEd Schouten 				else if (compare(str1, EIGHTBIT, FALSE))
421772fcea8cSEd Schouten 					eightbit = TRUE;
421872fcea8cSEd Schouten 				else if (compare(str1, NOEIGHTBIT, FALSE))
421972fcea8cSEd Schouten 				{
422072fcea8cSEd Schouten 					eightbit = FALSE;
422172fcea8cSEd Schouten 					ee_chinese = FALSE;
422272fcea8cSEd Schouten 				}
422372fcea8cSEd Schouten 				else if (compare(str1, EMACS_string, FALSE))
422472fcea8cSEd Schouten 					emacs_keys_mode = TRUE;
422572fcea8cSEd Schouten 				else if (compare(str1, NOEMACS_string, FALSE))
422672fcea8cSEd Schouten 					emacs_keys_mode = FALSE;
422772fcea8cSEd Schouten 				else if (compare(str1, chinese_cmd, FALSE))
422872fcea8cSEd Schouten 				{
422972fcea8cSEd Schouten 					ee_chinese = TRUE;
423072fcea8cSEd Schouten 					eightbit = TRUE;
423172fcea8cSEd Schouten 				}
423272fcea8cSEd Schouten 				else if (compare(str1, nochinese_cmd, FALSE))
423372fcea8cSEd Schouten 					ee_chinese = FALSE;
423472fcea8cSEd Schouten 			}
423572fcea8cSEd Schouten 			fclose(init_file);
423672fcea8cSEd Schouten 		}
423772fcea8cSEd Schouten 	}
423872fcea8cSEd Schouten 	free(string);
423972fcea8cSEd Schouten 	free(home);
424072fcea8cSEd Schouten 
424172fcea8cSEd Schouten 	string = getenv("LANG");
424272fcea8cSEd Schouten 	if (string != NULL)
424372fcea8cSEd Schouten 	{
424472fcea8cSEd Schouten 		if (strcmp(string, "zh_TW.big5") == 0)
424572fcea8cSEd Schouten 		{
424672fcea8cSEd Schouten 			ee_chinese = TRUE;
424772fcea8cSEd Schouten 			eightbit = TRUE;
424872fcea8cSEd Schouten 		}
424972fcea8cSEd Schouten 	}
425072fcea8cSEd Schouten }
425172fcea8cSEd Schouten 
425272fcea8cSEd Schouten /*
425372fcea8cSEd Schouten  |	Save current configuration to .init.ee file in the current directory.
425472fcea8cSEd Schouten  */
425572fcea8cSEd Schouten 
425672fcea8cSEd Schouten void
4257*91517e3bSJohn Baldwin dump_ee_conf(void)
425872fcea8cSEd Schouten {
425972fcea8cSEd Schouten 	FILE *init_file;
426072fcea8cSEd Schouten 	FILE *old_init_file = NULL;
426172fcea8cSEd Schouten 	char *file_name = ".init.ee";
426272fcea8cSEd Schouten 	char *home_dir =  "~/.init.ee";
426372fcea8cSEd Schouten 	char buffer[512];
426472fcea8cSEd Schouten 	struct stat buf;
426572fcea8cSEd Schouten 	char *string;
426672fcea8cSEd Schouten 	int length;
426772fcea8cSEd Schouten 	int option = 0;
426872fcea8cSEd Schouten 
426972fcea8cSEd Schouten 	if (restrict_mode())
427072fcea8cSEd Schouten 	{
427172fcea8cSEd Schouten 		return;
427272fcea8cSEd Schouten 	}
427372fcea8cSEd Schouten 
427472fcea8cSEd Schouten 	option = menu_op(config_dump_menu);
427572fcea8cSEd Schouten 
427672fcea8cSEd Schouten 	werase(com_win);
427772fcea8cSEd Schouten 	wmove(com_win, 0, 0);
427872fcea8cSEd Schouten 
427972fcea8cSEd Schouten 	if (option == 0)
428072fcea8cSEd Schouten 	{
428172fcea8cSEd Schouten 		wprintw(com_win, conf_not_saved_msg);
428272fcea8cSEd Schouten 		wrefresh(com_win);
428372fcea8cSEd Schouten 		return;
428472fcea8cSEd Schouten 	}
428572fcea8cSEd Schouten 	else if (option == 2)
428672fcea8cSEd Schouten 		file_name = resolve_name(home_dir);
428772fcea8cSEd Schouten 
428872fcea8cSEd Schouten 	/*
428972fcea8cSEd Schouten 	 |	If a .init.ee file exists, move it to .init.ee.old.
429072fcea8cSEd Schouten 	 */
429172fcea8cSEd Schouten 
429272fcea8cSEd Schouten 	if (stat(file_name, &buf) != -1)
429372fcea8cSEd Schouten 	{
429472fcea8cSEd Schouten 		sprintf(buffer, "%s.old", file_name);
429572fcea8cSEd Schouten 		unlink(buffer);
429672fcea8cSEd Schouten 		link(file_name, buffer);
429772fcea8cSEd Schouten 		unlink(file_name);
429872fcea8cSEd Schouten 		old_init_file = fopen(buffer, "r");
429972fcea8cSEd Schouten 	}
430072fcea8cSEd Schouten 
430172fcea8cSEd Schouten 	init_file = fopen(file_name, "w");
430272fcea8cSEd Schouten 	if (init_file == NULL)
430372fcea8cSEd Schouten 	{
430472fcea8cSEd Schouten 		wprintw(com_win, conf_dump_err_msg);
430572fcea8cSEd Schouten 		wrefresh(com_win);
430672fcea8cSEd Schouten 		return;
430772fcea8cSEd Schouten 	}
430872fcea8cSEd Schouten 
430972fcea8cSEd Schouten 	if (old_init_file != NULL)
431072fcea8cSEd Schouten 	{
431172fcea8cSEd Schouten 		/*
431272fcea8cSEd Schouten 		 |	Copy non-configuration info into new .init.ee file.
431372fcea8cSEd Schouten 		 */
431472fcea8cSEd Schouten 		while ((string = fgets(buffer, 512, old_init_file)) != NULL)
431572fcea8cSEd Schouten 		{
431672fcea8cSEd Schouten 			length = strlen(string);
431796b676e9SEd Schouten 			string[length - 1] = '\0';
431872fcea8cSEd Schouten 
431972fcea8cSEd Schouten 			if (unique_test(string, init_strings) == 1)
432072fcea8cSEd Schouten 			{
432172fcea8cSEd Schouten 				if (compare(string, Echo, FALSE))
432272fcea8cSEd Schouten 				{
432372fcea8cSEd Schouten 					fprintf(init_file, "%s\n", string);
432472fcea8cSEd Schouten 				}
432572fcea8cSEd Schouten 			}
432672fcea8cSEd Schouten 			else
432772fcea8cSEd Schouten 				fprintf(init_file, "%s\n", string);
432872fcea8cSEd Schouten 		}
432972fcea8cSEd Schouten 
433072fcea8cSEd Schouten 		fclose(old_init_file);
433172fcea8cSEd Schouten 	}
433272fcea8cSEd Schouten 
433372fcea8cSEd Schouten 	fprintf(init_file, "%s\n", case_sen ? CASE : NOCASE);
433472fcea8cSEd Schouten 	fprintf(init_file, "%s\n", expand_tabs ? EXPAND : NOEXPAND);
433572fcea8cSEd Schouten 	fprintf(init_file, "%s\n", info_window ? INFO : NOINFO );
433672fcea8cSEd Schouten 	fprintf(init_file, "%s\n", observ_margins ? MARGINS : NOMARGINS );
433772fcea8cSEd Schouten 	fprintf(init_file, "%s\n", auto_format ? AUTOFORMAT : NOAUTOFORMAT );
433872fcea8cSEd Schouten 	fprintf(init_file, "%s %s\n", PRINTCOMMAND, print_command);
433972fcea8cSEd Schouten 	fprintf(init_file, "%s %d\n", RIGHTMARGIN, right_margin);
434072fcea8cSEd Schouten 	fprintf(init_file, "%s\n", nohighlight ? NOHIGHLIGHT : HIGHLIGHT );
434172fcea8cSEd Schouten 	fprintf(init_file, "%s\n", eightbit ? EIGHTBIT : NOEIGHTBIT );
434272fcea8cSEd Schouten 	fprintf(init_file, "%s\n", emacs_keys_mode ? EMACS_string : NOEMACS_string );
434372fcea8cSEd Schouten 	fprintf(init_file, "%s\n", ee_chinese ? chinese_cmd : nochinese_cmd );
434472fcea8cSEd Schouten 
434572fcea8cSEd Schouten 	fclose(init_file);
434672fcea8cSEd Schouten 
434772fcea8cSEd Schouten 	wprintw(com_win, conf_dump_success_msg, file_name);
434872fcea8cSEd Schouten 	wrefresh(com_win);
434972fcea8cSEd Schouten 
435072fcea8cSEd Schouten 	if ((option == 2) && (file_name != home_dir))
435172fcea8cSEd Schouten 	{
435272fcea8cSEd Schouten 		free(file_name);
435372fcea8cSEd Schouten 	}
435472fcea8cSEd Schouten }
435572fcea8cSEd Schouten 
4356*91517e3bSJohn Baldwin /* echo the given string	*/
435772fcea8cSEd Schouten void
4358*91517e3bSJohn Baldwin echo_string(char *string)
435972fcea8cSEd Schouten {
436072fcea8cSEd Schouten 	char *temp;
436172fcea8cSEd Schouten 	int Counter;
436272fcea8cSEd Schouten 
436372fcea8cSEd Schouten 		temp = string;
436496b676e9SEd Schouten 		while (*temp != '\0')
436572fcea8cSEd Schouten 		{
436672fcea8cSEd Schouten 			if (*temp == '\\')
436772fcea8cSEd Schouten 			{
436872fcea8cSEd Schouten 				temp++;
436972fcea8cSEd Schouten 				if (*temp == 'n')
437072fcea8cSEd Schouten 					putchar('\n');
437172fcea8cSEd Schouten 				else if (*temp == 't')
437272fcea8cSEd Schouten 					putchar('\t');
437372fcea8cSEd Schouten 				else if (*temp == 'b')
437472fcea8cSEd Schouten 					putchar('\b');
437572fcea8cSEd Schouten 				else if (*temp == 'r')
437672fcea8cSEd Schouten 					putchar('\r');
437772fcea8cSEd Schouten 				else if (*temp == 'f')
437872fcea8cSEd Schouten 					putchar('\f');
437972fcea8cSEd Schouten 				else if ((*temp == 'e') || (*temp == 'E'))
438072fcea8cSEd Schouten 					putchar('\033');	/* escape */
438172fcea8cSEd Schouten 				else if (*temp == '\\')
438272fcea8cSEd Schouten 					putchar('\\');
438372fcea8cSEd Schouten 				else if (*temp == '\'')
438472fcea8cSEd Schouten 					putchar('\'');
438572fcea8cSEd Schouten 				else if ((*temp >= '0') && (*temp <= '9'))
438672fcea8cSEd Schouten 				{
438772fcea8cSEd Schouten 					Counter = 0;
438872fcea8cSEd Schouten 					while ((*temp >= '0') && (*temp <= '9'))
438972fcea8cSEd Schouten 					{
439072fcea8cSEd Schouten 						Counter = (8 * Counter) + (*temp - '0');
439172fcea8cSEd Schouten 						temp++;
439272fcea8cSEd Schouten 					}
439372fcea8cSEd Schouten 					putchar(Counter);
439472fcea8cSEd Schouten 					temp--;
439572fcea8cSEd Schouten 				}
439672fcea8cSEd Schouten 				temp++;
439772fcea8cSEd Schouten 			}
439872fcea8cSEd Schouten 			else
439972fcea8cSEd Schouten 			{
440072fcea8cSEd Schouten 				putchar(*temp);
440172fcea8cSEd Schouten 				temp++;
440272fcea8cSEd Schouten 			}
440372fcea8cSEd Schouten 		}
440472fcea8cSEd Schouten 
440572fcea8cSEd Schouten 	fflush(stdout);
440672fcea8cSEd Schouten }
440772fcea8cSEd Schouten 
4408*91517e3bSJohn Baldwin /* check spelling of words in the editor	*/
440972fcea8cSEd Schouten void
4410*91517e3bSJohn Baldwin spell_op(void)
441172fcea8cSEd Schouten {
441272fcea8cSEd Schouten 	if (restrict_mode())
441372fcea8cSEd Schouten 	{
441472fcea8cSEd Schouten 		return;
441572fcea8cSEd Schouten 	}
441672fcea8cSEd Schouten 	top();			/* go to top of file		*/
441772fcea8cSEd Schouten 	insert_line(FALSE);	/* create two blank lines	*/
441872fcea8cSEd Schouten 	insert_line(FALSE);
441972fcea8cSEd Schouten 	top();
442072fcea8cSEd Schouten 	command(shell_echo_msg);
442172fcea8cSEd Schouten 	adv_line();
442272fcea8cSEd Schouten 	wmove(com_win, 0, 0);
442372fcea8cSEd Schouten 	wprintw(com_win, spell_in_prog_msg);
442472fcea8cSEd Schouten 	wrefresh(com_win);
442572fcea8cSEd Schouten 	command("<>!spell");	/* send contents of buffer to command 'spell'
442672fcea8cSEd Schouten 				   and read the results back into the editor */
442772fcea8cSEd Schouten }
442872fcea8cSEd Schouten 
442972fcea8cSEd Schouten void
4430*91517e3bSJohn Baldwin ispell_op(void)
443172fcea8cSEd Schouten {
4432cfe04e82SEd Schouten 	char template[128], *name;
443372fcea8cSEd Schouten 	char string[256];
4434cfe04e82SEd Schouten 	int fd;
443572fcea8cSEd Schouten 
443672fcea8cSEd Schouten 	if (restrict_mode())
443772fcea8cSEd Schouten 	{
443872fcea8cSEd Schouten 		return;
443972fcea8cSEd Schouten 	}
4440cfe04e82SEd Schouten 	(void)sprintf(template, "/tmp/ee.XXXXXXXX");
444196b676e9SEd Schouten 	fd = mkstemp(template);
4442cfe04e82SEd Schouten 	if (fd < 0) {
4443cfe04e82SEd Schouten 		wmove(com_win, 0, 0);
4444cfe04e82SEd Schouten 		wprintw(com_win, create_file_fail_msg, name);
4445cfe04e82SEd Schouten 		wrefresh(com_win);
4446cfe04e82SEd Schouten 		return;
4447cfe04e82SEd Schouten 	}
4448cfe04e82SEd Schouten 	close(fd);
4449cfe04e82SEd Schouten 	if (write_file(name, 0))
445072fcea8cSEd Schouten 	{
445172fcea8cSEd Schouten 		sprintf(string, "ispell %s", name);
445272fcea8cSEd Schouten 		sh_command(string);
445372fcea8cSEd Schouten 		delete_text();
445472fcea8cSEd Schouten 		tmp_file = name;
445572fcea8cSEd Schouten 		recv_file = TRUE;
445672fcea8cSEd Schouten 		check_fp();
445772fcea8cSEd Schouten 		unlink(name);
445872fcea8cSEd Schouten 	}
445972fcea8cSEd Schouten }
446072fcea8cSEd Schouten 
446172fcea8cSEd Schouten int
4462*91517e3bSJohn Baldwin first_word_len(struct text *test_line)
446372fcea8cSEd Schouten {
446472fcea8cSEd Schouten 	int counter;
446572fcea8cSEd Schouten 	unsigned char *pnt;
446672fcea8cSEd Schouten 
446772fcea8cSEd Schouten 	if (test_line == NULL)
446872fcea8cSEd Schouten 		return(0);
446972fcea8cSEd Schouten 
447072fcea8cSEd Schouten 	pnt = test_line->line;
447196b676e9SEd Schouten 	if ((pnt == NULL) || (*pnt == '\0') ||
447272fcea8cSEd Schouten 	    (*pnt == '.') || (*pnt == '>'))
447372fcea8cSEd Schouten 		return(0);
447472fcea8cSEd Schouten 
447572fcea8cSEd Schouten 	if ((*pnt == ' ') || (*pnt == '\t'))
447672fcea8cSEd Schouten 	{
447772fcea8cSEd Schouten 		pnt = next_word(pnt);
447872fcea8cSEd Schouten 	}
447972fcea8cSEd Schouten 
448096b676e9SEd Schouten 	if (*pnt == '\0')
448172fcea8cSEd Schouten 		return(0);
448272fcea8cSEd Schouten 
448372fcea8cSEd Schouten 	counter = 0;
448496b676e9SEd Schouten 	while ((*pnt != '\0') && ((*pnt != ' ') && (*pnt != '\t')))
448572fcea8cSEd Schouten 	{
448672fcea8cSEd Schouten 		pnt++;
448772fcea8cSEd Schouten 		counter++;
448872fcea8cSEd Schouten 	}
448996b676e9SEd Schouten 	while ((*pnt != '\0') && ((*pnt == ' ') || (*pnt == '\t')))
449072fcea8cSEd Schouten 	{
449172fcea8cSEd Schouten 		pnt++;
449272fcea8cSEd Schouten 		counter++;
449372fcea8cSEd Schouten 	}
449472fcea8cSEd Schouten 	return(counter);
449572fcea8cSEd Schouten }
449672fcea8cSEd Schouten 
4497*91517e3bSJohn Baldwin /* format the paragraph according to set margins	*/
449872fcea8cSEd Schouten void
4499*91517e3bSJohn Baldwin Auto_Format(void)
450072fcea8cSEd Schouten {
450172fcea8cSEd Schouten 	int string_count;
450272fcea8cSEd Schouten 	int offset;
450372fcea8cSEd Schouten 	int temp_case;
450472fcea8cSEd Schouten 	int word_len;
450572fcea8cSEd Schouten 	int temp_dwl;
450672fcea8cSEd Schouten 	int tmp_d_line_length;
450772fcea8cSEd Schouten 	int leave_loop = FALSE;
450872fcea8cSEd Schouten 	int status;
450972fcea8cSEd Schouten 	int counter;
451072fcea8cSEd Schouten 	char not_blank;
451172fcea8cSEd Schouten 	unsigned char *line;
451272fcea8cSEd Schouten 	unsigned char *tmp_srchstr;
451372fcea8cSEd Schouten 	unsigned char *temp1, *temp2;
451472fcea8cSEd Schouten 	unsigned char *temp_dword;
451572fcea8cSEd Schouten 	unsigned char temp_d_char[3];
451672fcea8cSEd Schouten 	unsigned char *tmp_d_line;
451772fcea8cSEd Schouten 
451872fcea8cSEd Schouten 
451972fcea8cSEd Schouten 	temp_d_char[0] = d_char[0];
452072fcea8cSEd Schouten 	temp_d_char[1] = d_char[1];
452172fcea8cSEd Schouten 	temp_d_char[2] = d_char[2];
452272fcea8cSEd Schouten 
452372fcea8cSEd Schouten /*
452472fcea8cSEd Schouten  |	if observ_margins is not set, or the current line is blank,
452572fcea8cSEd Schouten  |	do not format the current paragraph
452672fcea8cSEd Schouten  */
452772fcea8cSEd Schouten 
452872fcea8cSEd Schouten 	if ((!observ_margins) || (Blank_Line(curr_line)))
452972fcea8cSEd Schouten 		return;
453072fcea8cSEd Schouten 
453172fcea8cSEd Schouten /*
453272fcea8cSEd Schouten  |	get current position in paragraph, so after formatting, the cursor
453372fcea8cSEd Schouten  |	will be in the same relative position
453472fcea8cSEd Schouten  */
453572fcea8cSEd Schouten 
453672fcea8cSEd Schouten 	tmp_d_line = d_line;
453772fcea8cSEd Schouten 	tmp_d_line_length = dlt_line->line_length;
453872fcea8cSEd Schouten 	d_line = NULL;
453972fcea8cSEd Schouten 	auto_format = FALSE;
454072fcea8cSEd Schouten 	offset = position;
454196b676e9SEd Schouten 	if ((position != 1) && ((*point == ' ') || (*point == '\t') || (position == curr_line->line_length) || (*point == '\0')))
454272fcea8cSEd Schouten 		prev_word();
454372fcea8cSEd Schouten 	temp_dword = d_word;
454472fcea8cSEd Schouten 	temp_dwl = d_wrd_len;
454572fcea8cSEd Schouten 	d_wrd_len = 0;
454672fcea8cSEd Schouten 	d_word = NULL;
454772fcea8cSEd Schouten 	temp_case = case_sen;
454872fcea8cSEd Schouten 	case_sen = TRUE;
454972fcea8cSEd Schouten 	tmp_srchstr = srch_str;
455072fcea8cSEd Schouten 	temp2 = srch_str = (unsigned char *) malloc(1 + curr_line->line_length - position);
455172fcea8cSEd Schouten 	if ((*point == ' ') || (*point == '\t'))
455272fcea8cSEd Schouten 		adv_word();
455372fcea8cSEd Schouten 	offset -= position;
455472fcea8cSEd Schouten 	counter = position;
455572fcea8cSEd Schouten 	line = temp1 = point;
455696b676e9SEd Schouten 	while ((*temp1 != '\0') && (*temp1 != ' ') && (*temp1 != '\t') && (counter < curr_line->line_length))
455772fcea8cSEd Schouten 	{
455872fcea8cSEd Schouten 		*temp2 = *temp1;
455972fcea8cSEd Schouten 		temp2++;
456072fcea8cSEd Schouten 		temp1++;
456172fcea8cSEd Schouten 		counter++;
456272fcea8cSEd Schouten 	}
456396b676e9SEd Schouten 	*temp2 = '\0';
456472fcea8cSEd Schouten 	if (position != 1)
456572fcea8cSEd Schouten 		bol();
456672fcea8cSEd Schouten 	while (!Blank_Line(curr_line->prev_line))
456772fcea8cSEd Schouten 		bol();
456872fcea8cSEd Schouten 	string_count = 0;
456972fcea8cSEd Schouten 	status = TRUE;
457072fcea8cSEd Schouten 	while ((line != point) && (status))
457172fcea8cSEd Schouten 	{
457272fcea8cSEd Schouten 		status = search(FALSE);
457372fcea8cSEd Schouten 		string_count++;
457472fcea8cSEd Schouten 	}
457572fcea8cSEd Schouten 
457672fcea8cSEd Schouten /*
457772fcea8cSEd Schouten  |	now get back to the start of the paragraph to start checking
457872fcea8cSEd Schouten  */
457972fcea8cSEd Schouten 
458072fcea8cSEd Schouten 	if (position != 1)
458172fcea8cSEd Schouten 		bol();
458272fcea8cSEd Schouten 	while (!Blank_Line(curr_line->prev_line))
458372fcea8cSEd Schouten 		bol();
458472fcea8cSEd Schouten 
458572fcea8cSEd Schouten /*
458672fcea8cSEd Schouten  |	Start going through lines, putting spaces at end of lines if they do
458772fcea8cSEd Schouten  |	not already exist.  Check line length, and move words to the next line
458872fcea8cSEd Schouten  |	if they cross the margin.  Then get words from the next line if they
458972fcea8cSEd Schouten  |	will fit in before the margin.
459072fcea8cSEd Schouten  */
459172fcea8cSEd Schouten 
459272fcea8cSEd Schouten 	counter = 0;
459372fcea8cSEd Schouten 
459472fcea8cSEd Schouten 	while (!leave_loop)
459572fcea8cSEd Schouten 	{
459672fcea8cSEd Schouten 		if (position != curr_line->line_length)
459772fcea8cSEd Schouten 			eol();
459872fcea8cSEd Schouten 		left(TRUE);
459972fcea8cSEd Schouten 		if (*point != ' ')
460072fcea8cSEd Schouten 		{
460172fcea8cSEd Schouten 			right(TRUE);
460272fcea8cSEd Schouten 			insert(' ');
460372fcea8cSEd Schouten 		}
460472fcea8cSEd Schouten 		else
460572fcea8cSEd Schouten 			right(TRUE);
460672fcea8cSEd Schouten 
460772fcea8cSEd Schouten 		not_blank = FALSE;
460872fcea8cSEd Schouten 
460972fcea8cSEd Schouten 		/*
461072fcea8cSEd Schouten 		 |	fill line if first word on next line will fit
461172fcea8cSEd Schouten 		 |	in the line without crossing the margin
461272fcea8cSEd Schouten 		 */
461372fcea8cSEd Schouten 
461472fcea8cSEd Schouten 		while ((curr_line->next_line != NULL) &&
461572fcea8cSEd Schouten 		       ((word_len = first_word_len(curr_line->next_line)) > 0)
461672fcea8cSEd Schouten 			&& ((scr_pos + word_len) < right_margin))
461772fcea8cSEd Schouten 		{
461872fcea8cSEd Schouten 			adv_line();
461972fcea8cSEd Schouten 			if ((*point == ' ') || (*point == '\t'))
462072fcea8cSEd Schouten 				adv_word();
462172fcea8cSEd Schouten 			del_word();
462272fcea8cSEd Schouten 			if (position != 1)
462372fcea8cSEd Schouten 				bol();
462472fcea8cSEd Schouten 
462572fcea8cSEd Schouten 			/*
462672fcea8cSEd Schouten 			 |	We know this line was not blank before, so
462772fcea8cSEd Schouten 			 |	make sure that it doesn't have one of the
462872fcea8cSEd Schouten 			 |	leading characters that indicate the line
462972fcea8cSEd Schouten 			 |	should not be modified.
463072fcea8cSEd Schouten 			 |
463172fcea8cSEd Schouten 			 |	We also know that this character should not
463272fcea8cSEd Schouten 			 |	be left as the first character of this line.
463372fcea8cSEd Schouten 			 */
463472fcea8cSEd Schouten 
463572fcea8cSEd Schouten 			if ((Blank_Line(curr_line)) &&
463672fcea8cSEd Schouten 			    (curr_line->line[0] != '.') &&
463772fcea8cSEd Schouten 			    (curr_line->line[0] != '>'))
463872fcea8cSEd Schouten 			{
463972fcea8cSEd Schouten 				del_line();
464072fcea8cSEd Schouten 				not_blank = FALSE;
464172fcea8cSEd Schouten 			}
464272fcea8cSEd Schouten 			else
464372fcea8cSEd Schouten 				not_blank = TRUE;
464472fcea8cSEd Schouten 
464572fcea8cSEd Schouten 			/*
464672fcea8cSEd Schouten 			 |   go to end of previous line
464772fcea8cSEd Schouten 			 */
464872fcea8cSEd Schouten 			left(TRUE);
464972fcea8cSEd Schouten 			undel_word();
465072fcea8cSEd Schouten 			eol();
465172fcea8cSEd Schouten 			/*
465272fcea8cSEd Schouten 			 |   make sure there's a space at the end of the line
465372fcea8cSEd Schouten 			 */
465472fcea8cSEd Schouten 			left(TRUE);
465572fcea8cSEd Schouten 			if (*point != ' ')
465672fcea8cSEd Schouten 			{
465772fcea8cSEd Schouten 				right(TRUE);
465872fcea8cSEd Schouten 				insert(' ');
465972fcea8cSEd Schouten 			}
466072fcea8cSEd Schouten 			else
466172fcea8cSEd Schouten 				right(TRUE);
466272fcea8cSEd Schouten 		}
466372fcea8cSEd Schouten 
466472fcea8cSEd Schouten 		/*
466572fcea8cSEd Schouten 		 |	make sure line does not cross right margin
466672fcea8cSEd Schouten 		 */
466772fcea8cSEd Schouten 
466872fcea8cSEd Schouten 		while (right_margin <= scr_pos)
466972fcea8cSEd Schouten 		{
467072fcea8cSEd Schouten 			prev_word();
467172fcea8cSEd Schouten 			if (position != 1)
467272fcea8cSEd Schouten 			{
467372fcea8cSEd Schouten 				del_word();
467472fcea8cSEd Schouten 				if (Blank_Line(curr_line->next_line))
467572fcea8cSEd Schouten 					insert_line(TRUE);
467672fcea8cSEd Schouten 				else
467772fcea8cSEd Schouten 					adv_line();
467872fcea8cSEd Schouten 				if ((*point == ' ') || (*point == '\t'))
467972fcea8cSEd Schouten 					adv_word();
468072fcea8cSEd Schouten 				undel_word();
468172fcea8cSEd Schouten 				not_blank = TRUE;
468272fcea8cSEd Schouten 				if (position != 1)
468372fcea8cSEd Schouten 					bol();
468472fcea8cSEd Schouten 				left(TRUE);
468572fcea8cSEd Schouten 			}
468672fcea8cSEd Schouten 		}
468772fcea8cSEd Schouten 
468872fcea8cSEd Schouten 		if ((!Blank_Line(curr_line->next_line)) || (not_blank))
468972fcea8cSEd Schouten 		{
469072fcea8cSEd Schouten 			adv_line();
469172fcea8cSEd Schouten 			counter++;
469272fcea8cSEd Schouten 		}
469372fcea8cSEd Schouten 		else
469472fcea8cSEd Schouten 			leave_loop = TRUE;
469572fcea8cSEd Schouten 	}
469672fcea8cSEd Schouten 
469772fcea8cSEd Schouten /*
469872fcea8cSEd Schouten  |	go back to begin of paragraph, put cursor back to original position
469972fcea8cSEd Schouten  */
470072fcea8cSEd Schouten 
470172fcea8cSEd Schouten 	if (position != 1)
470272fcea8cSEd Schouten 		bol();
470372fcea8cSEd Schouten 	while ((counter-- > 0) || (!Blank_Line(curr_line->prev_line)))
470472fcea8cSEd Schouten 		bol();
470572fcea8cSEd Schouten 
470672fcea8cSEd Schouten /*
470772fcea8cSEd Schouten  |	find word cursor was in
470872fcea8cSEd Schouten  */
470972fcea8cSEd Schouten 
471072fcea8cSEd Schouten 	status = TRUE;
471172fcea8cSEd Schouten 	while ((status) && (string_count > 0))
471272fcea8cSEd Schouten 	{
471372fcea8cSEd Schouten 		status = search(FALSE);
471472fcea8cSEd Schouten 		string_count--;
471572fcea8cSEd Schouten 	}
471672fcea8cSEd Schouten 
471772fcea8cSEd Schouten /*
471872fcea8cSEd Schouten  |	offset the cursor to where it was before from the start of the word
471972fcea8cSEd Schouten  */
472072fcea8cSEd Schouten 
472172fcea8cSEd Schouten 	while (offset > 0)
472272fcea8cSEd Schouten 	{
472372fcea8cSEd Schouten 		offset--;
472472fcea8cSEd Schouten 		right(TRUE);
472572fcea8cSEd Schouten 	}
472672fcea8cSEd Schouten 
472772fcea8cSEd Schouten 	if ((string_count > 0) && (offset < 0))
472872fcea8cSEd Schouten 	{
472972fcea8cSEd Schouten 		while (offset < 0)
473072fcea8cSEd Schouten 		{
473172fcea8cSEd Schouten 			offset++;
473272fcea8cSEd Schouten 			left(TRUE);
473372fcea8cSEd Schouten 		}
473472fcea8cSEd Schouten 	}
473572fcea8cSEd Schouten 
473672fcea8cSEd Schouten /*
473772fcea8cSEd Schouten  |	reset flags and strings to what they were before formatting
473872fcea8cSEd Schouten  */
473972fcea8cSEd Schouten 
474072fcea8cSEd Schouten 	if (d_word != NULL)
474172fcea8cSEd Schouten 		free(d_word);
474272fcea8cSEd Schouten 	d_word = temp_dword;
474372fcea8cSEd Schouten 	d_wrd_len = temp_dwl;
474472fcea8cSEd Schouten 	case_sen = temp_case;
474572fcea8cSEd Schouten 	free(srch_str);
474672fcea8cSEd Schouten 	srch_str = tmp_srchstr;
474772fcea8cSEd Schouten 	d_char[0] = temp_d_char[0];
474872fcea8cSEd Schouten 	d_char[1] = temp_d_char[1];
474972fcea8cSEd Schouten 	d_char[2] = temp_d_char[2];
475072fcea8cSEd Schouten 	auto_format = TRUE;
475172fcea8cSEd Schouten 	dlt_line->line_length = tmp_d_line_length;
475272fcea8cSEd Schouten 	d_line = tmp_d_line;
475372fcea8cSEd Schouten 
475472fcea8cSEd Schouten 	formatted = TRUE;
475572fcea8cSEd Schouten 	midscreen(scr_vert, point);
475672fcea8cSEd Schouten }
475772fcea8cSEd Schouten 
475872fcea8cSEd Schouten void
4759*91517e3bSJohn Baldwin modes_op(void)
476072fcea8cSEd Schouten {
476172fcea8cSEd Schouten 	int ret_value;
476272fcea8cSEd Schouten 	int counter;
476372fcea8cSEd Schouten 	char *string;
476472fcea8cSEd Schouten 
476572fcea8cSEd Schouten 	do
476672fcea8cSEd Schouten 	{
476772fcea8cSEd Schouten 		sprintf(modes_menu[1].item_string, "%s %s", mode_strings[1],
476872fcea8cSEd Schouten 					(expand_tabs ? ON : OFF));
476972fcea8cSEd Schouten 		sprintf(modes_menu[2].item_string, "%s %s", mode_strings[2],
477072fcea8cSEd Schouten 					(case_sen ? ON : OFF));
477172fcea8cSEd Schouten 		sprintf(modes_menu[3].item_string, "%s %s", mode_strings[3],
477272fcea8cSEd Schouten 					(observ_margins ? ON : OFF));
477372fcea8cSEd Schouten 		sprintf(modes_menu[4].item_string, "%s %s", mode_strings[4],
477472fcea8cSEd Schouten 					(auto_format ? ON : OFF));
477572fcea8cSEd Schouten 		sprintf(modes_menu[5].item_string, "%s %s", mode_strings[5],
477672fcea8cSEd Schouten 					(eightbit ? ON : OFF));
477772fcea8cSEd Schouten 		sprintf(modes_menu[6].item_string, "%s %s", mode_strings[6],
477872fcea8cSEd Schouten 					(info_window ? ON : OFF));
477972fcea8cSEd Schouten 		sprintf(modes_menu[7].item_string, "%s %s", mode_strings[7],
478072fcea8cSEd Schouten 					(emacs_keys_mode ? ON : OFF));
478172fcea8cSEd Schouten 		sprintf(modes_menu[8].item_string, "%s %d", mode_strings[8],
478272fcea8cSEd Schouten 					right_margin);
478372fcea8cSEd Schouten 		sprintf(modes_menu[9].item_string, "%s %s", mode_strings[9],
478472fcea8cSEd Schouten 					(ee_chinese ? ON : OFF));
478572fcea8cSEd Schouten 
478672fcea8cSEd Schouten 		ret_value = menu_op(modes_menu);
478772fcea8cSEd Schouten 
478872fcea8cSEd Schouten 		switch (ret_value)
478972fcea8cSEd Schouten 		{
479072fcea8cSEd Schouten 			case 1:
479172fcea8cSEd Schouten 				expand_tabs = !expand_tabs;
479272fcea8cSEd Schouten 				break;
479372fcea8cSEd Schouten 			case 2:
479472fcea8cSEd Schouten 				case_sen = !case_sen;
479572fcea8cSEd Schouten 				break;
479672fcea8cSEd Schouten 			case 3:
479772fcea8cSEd Schouten 				observ_margins = !observ_margins;
479872fcea8cSEd Schouten 				break;
479972fcea8cSEd Schouten 			case 4:
480072fcea8cSEd Schouten 				auto_format = !auto_format;
480172fcea8cSEd Schouten 				if (auto_format)
480272fcea8cSEd Schouten 					observ_margins = TRUE;
480372fcea8cSEd Schouten 				break;
480472fcea8cSEd Schouten 			case 5:
480572fcea8cSEd Schouten 				eightbit = !eightbit;
480672fcea8cSEd Schouten 				if (!eightbit)
480772fcea8cSEd Schouten 					ee_chinese = FALSE;
480872fcea8cSEd Schouten #ifdef NCURSE
480972fcea8cSEd Schouten 				if (ee_chinese)
481072fcea8cSEd Schouten 					nc_setattrib(A_NC_BIG5);
481172fcea8cSEd Schouten 				else
481272fcea8cSEd Schouten 					nc_clearattrib(A_NC_BIG5);
481372fcea8cSEd Schouten #endif /* NCURSE */
481472fcea8cSEd Schouten 
481572fcea8cSEd Schouten 				redraw();
481672fcea8cSEd Schouten 				wnoutrefresh(text_win);
481772fcea8cSEd Schouten 				break;
481872fcea8cSEd Schouten 			case 6:
481972fcea8cSEd Schouten 				if (info_window)
482072fcea8cSEd Schouten 					no_info_window();
482172fcea8cSEd Schouten 				else
482272fcea8cSEd Schouten 					create_info_window();
482372fcea8cSEd Schouten 				break;
482472fcea8cSEd Schouten 			case 7:
482572fcea8cSEd Schouten 				emacs_keys_mode = !emacs_keys_mode;
482672fcea8cSEd Schouten 				if (info_window)
482772fcea8cSEd Schouten 					paint_info_win();
482872fcea8cSEd Schouten 				break;
482972fcea8cSEd Schouten 			case 8:
483072fcea8cSEd Schouten 				string = get_string(margin_prompt, TRUE);
483172fcea8cSEd Schouten 				if (string != NULL)
483272fcea8cSEd Schouten 				{
483372fcea8cSEd Schouten 					counter = atoi(string);
483472fcea8cSEd Schouten 					if (counter > 0)
483572fcea8cSEd Schouten 						right_margin = counter;
483672fcea8cSEd Schouten 					free(string);
483772fcea8cSEd Schouten 				}
483872fcea8cSEd Schouten 				break;
483972fcea8cSEd Schouten 			case 9:
484072fcea8cSEd Schouten 				ee_chinese = !ee_chinese;
484172fcea8cSEd Schouten 				if (ee_chinese != FALSE)
484272fcea8cSEd Schouten 					eightbit = TRUE;
484372fcea8cSEd Schouten #ifdef NCURSE
484472fcea8cSEd Schouten 				if (ee_chinese)
484572fcea8cSEd Schouten 					nc_setattrib(A_NC_BIG5);
484672fcea8cSEd Schouten 				else
484772fcea8cSEd Schouten 					nc_clearattrib(A_NC_BIG5);
484872fcea8cSEd Schouten #endif /* NCURSE */
484972fcea8cSEd Schouten 				redraw();
485072fcea8cSEd Schouten 				break;
485172fcea8cSEd Schouten 			default:
485272fcea8cSEd Schouten 				break;
485372fcea8cSEd Schouten 		}
485472fcea8cSEd Schouten 	}
485572fcea8cSEd Schouten 	while (ret_value != 0);
485672fcea8cSEd Schouten }
485772fcea8cSEd Schouten 
4858*91517e3bSJohn Baldwin /* a strchr() look-alike for systems without strchr() */
485972fcea8cSEd Schouten char *
4860*91517e3bSJohn Baldwin is_in_string(char *string, char *substring)
486172fcea8cSEd Schouten {
486272fcea8cSEd Schouten 	char *full, *sub;
486372fcea8cSEd Schouten 
486496b676e9SEd Schouten 	for (sub = substring; (sub != NULL) && (*sub != '\0'); sub++)
486572fcea8cSEd Schouten 	{
486696b676e9SEd Schouten 		for (full = string; (full != NULL) && (*full != '\0');
486772fcea8cSEd Schouten 				full++)
486872fcea8cSEd Schouten 		{
486972fcea8cSEd Schouten 			if (*sub == *full)
487072fcea8cSEd Schouten 				return(full);
487172fcea8cSEd Schouten 		}
487272fcea8cSEd Schouten 	}
487372fcea8cSEd Schouten 	return(NULL);
487472fcea8cSEd Schouten }
487572fcea8cSEd Schouten 
487672fcea8cSEd Schouten /*
487772fcea8cSEd Schouten  |	handle names of the form "~/file", "~user/file",
487872fcea8cSEd Schouten  |	"$HOME/foo", "~/$FOO", etc.
487972fcea8cSEd Schouten  */
488072fcea8cSEd Schouten 
488172fcea8cSEd Schouten char *
4882*91517e3bSJohn Baldwin resolve_name(char *name)
488372fcea8cSEd Schouten {
488472fcea8cSEd Schouten 	char long_buffer[1024];
488572fcea8cSEd Schouten 	char short_buffer[128];
488672fcea8cSEd Schouten 	char *buffer;
488772fcea8cSEd Schouten 	char *slash;
488872fcea8cSEd Schouten 	char *tmp;
488972fcea8cSEd Schouten 	char *start_of_var;
489072fcea8cSEd Schouten 	int offset;
489172fcea8cSEd Schouten 	int index;
489272fcea8cSEd Schouten 	int counter;
489372fcea8cSEd Schouten 	struct passwd *user;
489472fcea8cSEd Schouten 
489572fcea8cSEd Schouten 	if (name[0] == '~')
489672fcea8cSEd Schouten 	{
489772fcea8cSEd Schouten 		if (name[1] == '/')
489872fcea8cSEd Schouten 		{
489972fcea8cSEd Schouten 			index = getuid();
490072fcea8cSEd Schouten 			user = (struct passwd *) getpwuid(index);
490172fcea8cSEd Schouten 			slash = name + 1;
490272fcea8cSEd Schouten 		}
490372fcea8cSEd Schouten 		else
490472fcea8cSEd Schouten 		{
490572fcea8cSEd Schouten 			slash = strchr(name, '/');
490672fcea8cSEd Schouten 			if (slash == NULL)
490772fcea8cSEd Schouten 				return(name);
490896b676e9SEd Schouten 			*slash = '\0';
490972fcea8cSEd Schouten 			user = (struct passwd *) getpwnam((name + 1));
491072fcea8cSEd Schouten 			*slash = '/';
491172fcea8cSEd Schouten 		}
491272fcea8cSEd Schouten 		if (user == NULL)
491372fcea8cSEd Schouten 		{
491472fcea8cSEd Schouten 			return(name);
491572fcea8cSEd Schouten 		}
491672fcea8cSEd Schouten 		buffer = malloc(strlen(user->pw_dir) + strlen(slash) + 1);
491772fcea8cSEd Schouten 		strcpy(buffer, user->pw_dir);
491872fcea8cSEd Schouten 		strcat(buffer, slash);
491972fcea8cSEd Schouten 	}
492072fcea8cSEd Schouten 	else
492172fcea8cSEd Schouten 		buffer = name;
492272fcea8cSEd Schouten 
492372fcea8cSEd Schouten 	if (is_in_string(buffer, "$"))
492472fcea8cSEd Schouten 	{
492572fcea8cSEd Schouten 		tmp = buffer;
492672fcea8cSEd Schouten 		index = 0;
492772fcea8cSEd Schouten 
492896b676e9SEd Schouten 		while ((*tmp != '\0') && (index < 1024))
492972fcea8cSEd Schouten 		{
493072fcea8cSEd Schouten 
493196b676e9SEd Schouten 			while ((*tmp != '\0') && (*tmp != '$') &&
493272fcea8cSEd Schouten 				(index < 1024))
493372fcea8cSEd Schouten 			{
493472fcea8cSEd Schouten 				long_buffer[index] = *tmp;
493572fcea8cSEd Schouten 				tmp++;
493672fcea8cSEd Schouten 				index++;
493772fcea8cSEd Schouten 			}
493872fcea8cSEd Schouten 
493972fcea8cSEd Schouten 			if ((*tmp == '$') && (index < 1024))
494072fcea8cSEd Schouten 			{
494172fcea8cSEd Schouten 				counter = 0;
494272fcea8cSEd Schouten 				start_of_var = tmp;
494372fcea8cSEd Schouten 				tmp++;
494472fcea8cSEd Schouten 				if (*tmp == '{') /* } */	/* bracketed variable name */
494572fcea8cSEd Schouten 				{
494672fcea8cSEd Schouten 					tmp++;				/* { */
494796b676e9SEd Schouten 					while ((*tmp != '\0') &&
494872fcea8cSEd Schouten 						(*tmp != '}') &&
494972fcea8cSEd Schouten 						(counter < 128))
495072fcea8cSEd Schouten 					{
495172fcea8cSEd Schouten 						short_buffer[counter] = *tmp;
495272fcea8cSEd Schouten 						counter++;
495372fcea8cSEd Schouten 						tmp++;
495472fcea8cSEd Schouten 					}			/* { */
495572fcea8cSEd Schouten 					if (*tmp == '}')
495672fcea8cSEd Schouten 						tmp++;
495772fcea8cSEd Schouten 				}
495872fcea8cSEd Schouten 				else
495972fcea8cSEd Schouten 				{
496096b676e9SEd Schouten 					while ((*tmp != '\0') &&
496172fcea8cSEd Schouten 					       (*tmp != '/') &&
496272fcea8cSEd Schouten 					       (*tmp != '$') &&
496372fcea8cSEd Schouten 					       (counter < 128))
496472fcea8cSEd Schouten 					{
496572fcea8cSEd Schouten 						short_buffer[counter] = *tmp;
496672fcea8cSEd Schouten 						counter++;
496772fcea8cSEd Schouten 						tmp++;
496872fcea8cSEd Schouten 					}
496972fcea8cSEd Schouten 				}
497096b676e9SEd Schouten 				short_buffer[counter] = '\0';
497172fcea8cSEd Schouten 				if ((slash = getenv(short_buffer)) != NULL)
497272fcea8cSEd Schouten 				{
497372fcea8cSEd Schouten 					offset = strlen(slash);
497472fcea8cSEd Schouten 					if ((offset + index) < 1024)
497572fcea8cSEd Schouten 						strcpy(&long_buffer[index], slash);
497672fcea8cSEd Schouten 					index += offset;
497772fcea8cSEd Schouten 				}
497872fcea8cSEd Schouten 				else
497972fcea8cSEd Schouten 				{
498072fcea8cSEd Schouten 					while ((start_of_var != tmp) && (index < 1024))
498172fcea8cSEd Schouten 					{
498272fcea8cSEd Schouten 						long_buffer[index] = *start_of_var;
498372fcea8cSEd Schouten 						start_of_var++;
498472fcea8cSEd Schouten 						index++;
498572fcea8cSEd Schouten 					}
498672fcea8cSEd Schouten 				}
498772fcea8cSEd Schouten 			}
498872fcea8cSEd Schouten 		}
498972fcea8cSEd Schouten 
499072fcea8cSEd Schouten 		if (index == 1024)
499172fcea8cSEd Schouten 			return(buffer);
499272fcea8cSEd Schouten 		else
499396b676e9SEd Schouten 			long_buffer[index] = '\0';
499472fcea8cSEd Schouten 
499572fcea8cSEd Schouten 		if (name != buffer)
499672fcea8cSEd Schouten 			free(buffer);
499772fcea8cSEd Schouten 		buffer = malloc(index + 1);
499872fcea8cSEd Schouten 		strcpy(buffer, long_buffer);
499972fcea8cSEd Schouten 	}
500072fcea8cSEd Schouten 
500172fcea8cSEd Schouten 	return(buffer);
500272fcea8cSEd Schouten }
500372fcea8cSEd Schouten 
500472fcea8cSEd Schouten int
5005*91517e3bSJohn Baldwin restrict_mode(void)
500672fcea8cSEd Schouten {
500772fcea8cSEd Schouten 	if (!restricted)
500872fcea8cSEd Schouten 		return(FALSE);
500972fcea8cSEd Schouten 
501072fcea8cSEd Schouten 	wmove(com_win, 0, 0);
501172fcea8cSEd Schouten 	wprintw(com_win, restricted_msg);
501272fcea8cSEd Schouten 	wclrtoeol(com_win);
501372fcea8cSEd Schouten 	wrefresh(com_win);
501472fcea8cSEd Schouten 	clear_com_win = TRUE;
501572fcea8cSEd Schouten 	return(TRUE);
501672fcea8cSEd Schouten }
501772fcea8cSEd Schouten 
501872fcea8cSEd Schouten /*
501972fcea8cSEd Schouten  |	The following routine tests the input string against the list of
502072fcea8cSEd Schouten  |	strings, to determine if the string is a unique match with one of the
502172fcea8cSEd Schouten  |	valid values.
502272fcea8cSEd Schouten  */
502372fcea8cSEd Schouten 
502472fcea8cSEd Schouten int
5025*91517e3bSJohn Baldwin unique_test(char *string, char *list[])
502672fcea8cSEd Schouten {
502772fcea8cSEd Schouten 	int counter;
502872fcea8cSEd Schouten 	int num_match;
502972fcea8cSEd Schouten 	int result;
503072fcea8cSEd Schouten 
503172fcea8cSEd Schouten 	num_match = 0;
503272fcea8cSEd Schouten 	counter = 0;
503372fcea8cSEd Schouten 	while (list[counter] != NULL)
503472fcea8cSEd Schouten 	{
503572fcea8cSEd Schouten 		result = compare(string, list[counter], FALSE);
503672fcea8cSEd Schouten 		if (result)
503772fcea8cSEd Schouten 			num_match++;
503872fcea8cSEd Schouten 		counter++;
503972fcea8cSEd Schouten 	}
504072fcea8cSEd Schouten 	return(num_match);
504172fcea8cSEd Schouten }
504272fcea8cSEd Schouten 
504372fcea8cSEd Schouten #ifndef NO_CATGETS
504472fcea8cSEd Schouten /*
504572fcea8cSEd Schouten  |	Get the catalog entry, and if it got it from the catalog,
504672fcea8cSEd Schouten  |	make a copy, since the buffer will be overwritten by the
504772fcea8cSEd Schouten  |	next call to catgets().
504872fcea8cSEd Schouten  */
504972fcea8cSEd Schouten 
505072fcea8cSEd Schouten char *
5051*91517e3bSJohn Baldwin catgetlocal(int number, char *string)
505272fcea8cSEd Schouten {
505372fcea8cSEd Schouten 	char *temp1;
505472fcea8cSEd Schouten 	char *temp2;
505572fcea8cSEd Schouten 
505672fcea8cSEd Schouten 	temp1 = catgets(catalog, 1, number, string);
505772fcea8cSEd Schouten 	if (temp1 != string)
505872fcea8cSEd Schouten 	{
505972fcea8cSEd Schouten 		temp2 = malloc(strlen(temp1) + 1);
506072fcea8cSEd Schouten 		strcpy(temp2, temp1);
506172fcea8cSEd Schouten 		temp1 = temp2;
506272fcea8cSEd Schouten 	}
506372fcea8cSEd Schouten 	return(temp1);
506472fcea8cSEd Schouten }
506572fcea8cSEd Schouten #endif /* NO_CATGETS */
506672fcea8cSEd Schouten 
506772fcea8cSEd Schouten /*
506872fcea8cSEd Schouten  |	The following is to allow for using message catalogs which allow
506972fcea8cSEd Schouten  |	the software to be 'localized', that is, to use different languages
507072fcea8cSEd Schouten  |	all with the same binary.  For more information, see your system
507172fcea8cSEd Schouten  |	documentation, or the X/Open Internationalization Guide.
507272fcea8cSEd Schouten  */
507372fcea8cSEd Schouten 
507472fcea8cSEd Schouten void
5075*91517e3bSJohn Baldwin strings_init(void)
507672fcea8cSEd Schouten {
507772fcea8cSEd Schouten 	int counter;
507872fcea8cSEd Schouten 
507972fcea8cSEd Schouten 	setlocale(LC_ALL, "");
5080f39e07f3SAndrey A. Chernov #ifndef NO_CATGETS
5081cfe04e82SEd Schouten 	catalog = catopen("ee", NL_CAT_LOCALE);
508272fcea8cSEd Schouten #endif /* NO_CATGETS */
508372fcea8cSEd Schouten 
508472fcea8cSEd Schouten 	modes_menu[0].item_string = catgetlocal( 1, "modes menu");
508572fcea8cSEd Schouten 	mode_strings[1]  = catgetlocal( 2, "tabs to spaces       ");
508672fcea8cSEd Schouten 	mode_strings[2]  = catgetlocal( 3, "case sensitive search");
508772fcea8cSEd Schouten 	mode_strings[3]  = catgetlocal( 4, "margins observed     ");
508872fcea8cSEd Schouten 	mode_strings[4]  = catgetlocal( 5, "auto-paragraph format");
508972fcea8cSEd Schouten 	mode_strings[5]  = catgetlocal( 6, "eightbit characters  ");
509072fcea8cSEd Schouten 	mode_strings[6]  = catgetlocal( 7, "info window          ");
509172fcea8cSEd Schouten 	mode_strings[8]  = catgetlocal( 8, "right margin         ");
509272fcea8cSEd Schouten 	leave_menu[0].item_string  = catgetlocal( 9, "leave menu");
509372fcea8cSEd Schouten 	leave_menu[1].item_string  = catgetlocal( 10, "save changes");
509472fcea8cSEd Schouten 	leave_menu[2].item_string  = catgetlocal( 11, "no save");
509572fcea8cSEd Schouten 	file_menu[0].item_string  = catgetlocal( 12, "file menu");
509672fcea8cSEd Schouten 	file_menu[1].item_string  = catgetlocal( 13, "read a file");
509772fcea8cSEd Schouten 	file_menu[2].item_string  = catgetlocal( 14, "write a file");
509872fcea8cSEd Schouten 	file_menu[3].item_string  = catgetlocal( 15, "save file");
509972fcea8cSEd Schouten 	file_menu[4].item_string  = catgetlocal( 16, "print editor contents");
510072fcea8cSEd Schouten 	search_menu[0].item_string = catgetlocal( 17, "search menu");
510172fcea8cSEd Schouten 	search_menu[1].item_string = catgetlocal( 18, "search for ...");
510272fcea8cSEd Schouten 	search_menu[2].item_string = catgetlocal( 19, "search");
510372fcea8cSEd Schouten 	spell_menu[0].item_string = catgetlocal( 20, "spell menu");
510472fcea8cSEd Schouten 	spell_menu[1].item_string = catgetlocal( 21, "use 'spell'");
510572fcea8cSEd Schouten 	spell_menu[2].item_string = catgetlocal( 22, "use 'ispell'");
510672fcea8cSEd Schouten 	misc_menu[0].item_string = catgetlocal( 23, "miscellaneous menu");
510772fcea8cSEd Schouten 	misc_menu[1].item_string = catgetlocal( 24, "format paragraph");
510872fcea8cSEd Schouten 	misc_menu[2].item_string = catgetlocal( 25, "shell command");
510972fcea8cSEd Schouten 	misc_menu[3].item_string = catgetlocal( 26, "check spelling");
511072fcea8cSEd Schouten 	main_menu[0].item_string  = catgetlocal( 27, "main menu");
511172fcea8cSEd Schouten 	main_menu[1].item_string  = catgetlocal( 28, "leave editor");
511272fcea8cSEd Schouten 	main_menu[2].item_string  = catgetlocal( 29, "help");
511372fcea8cSEd Schouten 	main_menu[3].item_string  = catgetlocal( 30, "file operations");
511472fcea8cSEd Schouten 	main_menu[4].item_string  = catgetlocal( 31, "redraw screen");
511572fcea8cSEd Schouten 	main_menu[5].item_string  = catgetlocal( 32, "settings");
511672fcea8cSEd Schouten 	main_menu[6].item_string  = catgetlocal( 33, "search");
511772fcea8cSEd Schouten 	main_menu[7].item_string  = catgetlocal( 34, "miscellaneous");
511872fcea8cSEd Schouten 	help_text[0] = catgetlocal( 35, "Control keys:                                                              ");
511972fcea8cSEd Schouten 	help_text[1] = catgetlocal( 36, "^a ascii code           ^i tab                  ^r right                   ");
512072fcea8cSEd Schouten 	help_text[2] = catgetlocal( 37, "^b bottom of text       ^j newline              ^t top of text             ");
512172fcea8cSEd Schouten 	help_text[3] = catgetlocal( 38, "^c command              ^k delete char          ^u up                      ");
512272fcea8cSEd Schouten 	help_text[4] = catgetlocal( 39, "^d down                 ^l left                 ^v undelete word           ");
512372fcea8cSEd Schouten 	help_text[5] = catgetlocal( 40, "^e search prompt        ^m newline              ^w delete word             ");
512472fcea8cSEd Schouten 	help_text[6] = catgetlocal( 41, "^f undelete char        ^n next page            ^x search                  ");
512572fcea8cSEd Schouten 	help_text[7] = catgetlocal( 42, "^g begin of line        ^o end of line          ^y delete line             ");
512672fcea8cSEd Schouten 	help_text[8] = catgetlocal( 43, "^h backspace            ^p prev page            ^z undelete line           ");
5127cfe04e82SEd Schouten 	help_text[9] = catgetlocal( 44, "^[ (escape) menu        ESC-Enter: exit ee                                 ");
512872fcea8cSEd Schouten 	help_text[10] = catgetlocal( 45, "                                                                           ");
512972fcea8cSEd Schouten 	help_text[11] = catgetlocal( 46, "Commands:                                                                  ");
513072fcea8cSEd Schouten 	help_text[12] = catgetlocal( 47, "help    : get this info                 file    : print file name          ");
513172fcea8cSEd Schouten 	help_text[13] = catgetlocal( 48, "read    : read a file                   char    : ascii code of char       ");
513272fcea8cSEd Schouten 	help_text[14] = catgetlocal( 49, "write   : write a file                  case    : case sensitive search    ");
513372fcea8cSEd Schouten 	help_text[15] = catgetlocal( 50, "exit    : leave and save                nocase  : case insensitive search  ");
513472fcea8cSEd Schouten 	help_text[16] = catgetlocal( 51, "quit    : leave, no save                !cmd    : execute \"cmd\" in shell   ");
513572fcea8cSEd Schouten 	help_text[17] = catgetlocal( 52, "line    : display line #                0-9     : go to line \"#\"           ");
513672fcea8cSEd Schouten 	help_text[18] = catgetlocal( 53, "expand  : expand tabs                   noexpand: do not expand tabs         ");
513772fcea8cSEd Schouten 	help_text[19] = catgetlocal( 54, "                                                                             ");
513872fcea8cSEd Schouten 	help_text[20] = catgetlocal( 55, "  ee [+#] [-i] [-e] [-h] [file(s)]                                            ");
513972fcea8cSEd Schouten 	help_text[21] = catgetlocal( 56, "+# :go to line #  -i :no info window  -e : don't expand tabs  -h :no highlight");
514072fcea8cSEd Schouten 	control_keys[0] = catgetlocal( 57, "^[ (escape) menu  ^e search prompt  ^y delete line    ^u up     ^p prev page  ");
514172fcea8cSEd Schouten 	control_keys[1] = catgetlocal( 58, "^a ascii code     ^x search         ^z undelete line  ^d down   ^n next page  ");
514272fcea8cSEd Schouten 	control_keys[2] = catgetlocal( 59, "^b bottom of text ^g begin of line  ^w delete word    ^l left                 ");
514372fcea8cSEd Schouten 	control_keys[3] = catgetlocal( 60, "^t top of text    ^o end of line    ^v undelete word  ^r right                ");
5144cfe04e82SEd Schouten 	control_keys[4] = catgetlocal( 61, "^c command        ^k delete char    ^f undelete char      ESC-Enter: exit ee  ");
514572fcea8cSEd Schouten 	command_strings[0] = catgetlocal( 62, "help : get help info  |file  : print file name         |line : print line # ");
514672fcea8cSEd Schouten 	command_strings[1] = catgetlocal( 63, "read : read a file    |char  : ascii code of char      |0-9 : go to line \"#\"");
514772fcea8cSEd Schouten 	command_strings[2] = catgetlocal( 64, "write: write a file   |case  : case sensitive search   |exit : leave and save ");
514872fcea8cSEd Schouten 	command_strings[3] = catgetlocal( 65, "!cmd : shell \"cmd\"    |nocase: ignore case in search   |quit : leave, no save");
514972fcea8cSEd Schouten 	command_strings[4] = catgetlocal( 66, "expand: expand tabs   |noexpand: do not expand tabs                           ");
515072fcea8cSEd Schouten 	com_win_message = catgetlocal( 67, "    press Escape (^[) for menu");
515172fcea8cSEd Schouten 	no_file_string = catgetlocal( 68, "no file");
515272fcea8cSEd Schouten 	ascii_code_str = catgetlocal( 69, "ascii code: ");
515372fcea8cSEd Schouten 	printer_msg_str = catgetlocal( 70, "sending contents of buffer to \"%s\" ");
515472fcea8cSEd Schouten 	command_str = catgetlocal( 71, "command: ");
515572fcea8cSEd Schouten 	file_write_prompt_str = catgetlocal( 72, "name of file to write: ");
515672fcea8cSEd Schouten 	file_read_prompt_str = catgetlocal( 73, "name of file to read: ");
515772fcea8cSEd Schouten 	char_str = catgetlocal( 74, "character = %d");
515872fcea8cSEd Schouten 	unkn_cmd_str = catgetlocal( 75, "unknown command \"%s\"");
515972fcea8cSEd Schouten 	non_unique_cmd_msg = catgetlocal( 76, "entered command is not unique");
516072fcea8cSEd Schouten 	line_num_str = catgetlocal( 77, "line %d  ");
516172fcea8cSEd Schouten 	line_len_str = catgetlocal( 78, "length = %d");
516272fcea8cSEd Schouten 	current_file_str = catgetlocal( 79, "current file is \"%s\" ");
516372fcea8cSEd Schouten 	usage0 = catgetlocal( 80, "usage: %s [-i] [-e] [-h] [+line_number] [file(s)]\n");
516472fcea8cSEd Schouten 	usage1 = catgetlocal( 81, "       -i   turn off info window\n");
516572fcea8cSEd Schouten 	usage2 = catgetlocal( 82, "       -e   do not convert tabs to spaces\n");
516672fcea8cSEd Schouten 	usage3 = catgetlocal( 83, "       -h   do not use highlighting\n");
516772fcea8cSEd Schouten 	file_is_dir_msg = catgetlocal( 84, "file \"%s\" is a directory");
516872fcea8cSEd Schouten 	new_file_msg = catgetlocal( 85, "new file \"%s\"");
516972fcea8cSEd Schouten 	cant_open_msg = catgetlocal( 86, "can't open \"%s\"");
517072fcea8cSEd Schouten 	open_file_msg = catgetlocal( 87, "file \"%s\", %d lines");
517172fcea8cSEd Schouten 	file_read_fin_msg = catgetlocal( 88, "finished reading file \"%s\"");
517272fcea8cSEd Schouten 	reading_file_msg = catgetlocal( 89, "reading file \"%s\"");
517372fcea8cSEd Schouten 	read_only_msg = catgetlocal( 90, ", read only");
517472fcea8cSEd Schouten 	file_read_lines_msg = catgetlocal( 91, "file \"%s\", %d lines");
517572fcea8cSEd Schouten 	save_file_name_prompt = catgetlocal( 92, "enter name of file: ");
517672fcea8cSEd Schouten 	file_not_saved_msg = catgetlocal( 93, "no filename entered: file not saved");
517772fcea8cSEd Schouten 	changes_made_prompt = catgetlocal( 94, "changes have been made, are you sure? (y/n [n]) ");
517872fcea8cSEd Schouten 	yes_char = catgetlocal( 95, "y");
517972fcea8cSEd Schouten 	file_exists_prompt = catgetlocal( 96, "file already exists, overwrite? (y/n) [n] ");
518072fcea8cSEd Schouten 	create_file_fail_msg = catgetlocal( 97, "unable to create file \"%s\"");
518172fcea8cSEd Schouten 	writing_file_msg = catgetlocal( 98, "writing file \"%s\"");
518272fcea8cSEd Schouten 	file_written_msg = catgetlocal( 99, "\"%s\" %d lines, %d characters");
518372fcea8cSEd Schouten 	searching_msg = catgetlocal( 100, "           ...searching");
518472fcea8cSEd Schouten 	str_not_found_msg = catgetlocal( 101, "string \"%s\" not found");
518572fcea8cSEd Schouten 	search_prompt_str = catgetlocal( 102, "search for: ");
518696b676e9SEd Schouten 	exec_err_msg = catgetlocal( 103, "could not exec %s\n");
518772fcea8cSEd Schouten 	continue_msg = catgetlocal( 104, "press return to continue ");
518872fcea8cSEd Schouten 	menu_cancel_msg = catgetlocal( 105, "press Esc to cancel");
518972fcea8cSEd Schouten 	menu_size_err_msg = catgetlocal( 106, "menu too large for window");
519072fcea8cSEd Schouten 	press_any_key_msg = catgetlocal( 107, "press any key to continue ");
519172fcea8cSEd Schouten 	shell_prompt = catgetlocal( 108, "shell command: ");
519272fcea8cSEd Schouten 	formatting_msg = catgetlocal( 109, "...formatting paragraph...");
519372fcea8cSEd Schouten 	shell_echo_msg = catgetlocal( 110, "<!echo 'list of unrecognized words'; echo -=-=-=-=-=-");
519472fcea8cSEd Schouten 	spell_in_prog_msg = catgetlocal( 111, "sending contents of edit buffer to 'spell'");
519572fcea8cSEd Schouten 	margin_prompt = catgetlocal( 112, "right margin is: ");
519672fcea8cSEd Schouten 	restricted_msg = catgetlocal( 113, "restricted mode: unable to perform requested operation");
519772fcea8cSEd Schouten 	ON = catgetlocal( 114, "ON");
519872fcea8cSEd Schouten 	OFF = catgetlocal( 115, "OFF");
519972fcea8cSEd Schouten 	HELP = catgetlocal( 116, "HELP");
520072fcea8cSEd Schouten 	WRITE = catgetlocal( 117, "WRITE");
520172fcea8cSEd Schouten 	READ = catgetlocal( 118, "READ");
520272fcea8cSEd Schouten 	LINE = catgetlocal( 119, "LINE");
520372fcea8cSEd Schouten 	FILE_str = catgetlocal( 120, "FILE");
520472fcea8cSEd Schouten 	CHARACTER = catgetlocal( 121, "CHARACTER");
520572fcea8cSEd Schouten 	REDRAW = catgetlocal( 122, "REDRAW");
520672fcea8cSEd Schouten 	RESEQUENCE = catgetlocal( 123, "RESEQUENCE");
520772fcea8cSEd Schouten 	AUTHOR = catgetlocal( 124, "AUTHOR");
520872fcea8cSEd Schouten 	VERSION = catgetlocal( 125, "VERSION");
520972fcea8cSEd Schouten 	CASE = catgetlocal( 126, "CASE");
521072fcea8cSEd Schouten 	NOCASE = catgetlocal( 127, "NOCASE");
521172fcea8cSEd Schouten 	EXPAND = catgetlocal( 128, "EXPAND");
521272fcea8cSEd Schouten 	NOEXPAND = catgetlocal( 129, "NOEXPAND");
521372fcea8cSEd Schouten 	Exit_string = catgetlocal( 130, "EXIT");
521472fcea8cSEd Schouten 	QUIT_string = catgetlocal( 131, "QUIT");
521572fcea8cSEd Schouten 	INFO = catgetlocal( 132, "INFO");
521672fcea8cSEd Schouten 	NOINFO = catgetlocal( 133, "NOINFO");
521772fcea8cSEd Schouten 	MARGINS = catgetlocal( 134, "MARGINS");
521872fcea8cSEd Schouten 	NOMARGINS = catgetlocal( 135, "NOMARGINS");
521972fcea8cSEd Schouten 	AUTOFORMAT = catgetlocal( 136, "AUTOFORMAT");
522072fcea8cSEd Schouten 	NOAUTOFORMAT = catgetlocal( 137, "NOAUTOFORMAT");
522172fcea8cSEd Schouten 	Echo = catgetlocal( 138, "ECHO");
522272fcea8cSEd Schouten 	PRINTCOMMAND = catgetlocal( 139, "PRINTCOMMAND");
522372fcea8cSEd Schouten 	RIGHTMARGIN = catgetlocal( 140, "RIGHTMARGIN");
522472fcea8cSEd Schouten 	HIGHLIGHT = catgetlocal( 141, "HIGHLIGHT");
522572fcea8cSEd Schouten 	NOHIGHLIGHT = catgetlocal( 142, "NOHIGHLIGHT");
522672fcea8cSEd Schouten 	EIGHTBIT = catgetlocal( 143, "EIGHTBIT");
522772fcea8cSEd Schouten 	NOEIGHTBIT = catgetlocal( 144, "NOEIGHTBIT");
522872fcea8cSEd Schouten 	/*
522972fcea8cSEd Schouten 	 |	additions
523072fcea8cSEd Schouten 	 */
523172fcea8cSEd Schouten 	mode_strings[7] = catgetlocal( 145, "emacs key bindings   ");
523272fcea8cSEd Schouten 	emacs_help_text[0] = help_text[0];
523372fcea8cSEd Schouten 	emacs_help_text[1] = catgetlocal( 146, "^a beginning of line    ^i tab                  ^r restore word            ");
523496b676e9SEd Schouten 	emacs_help_text[2] = catgetlocal( 147, "^b back 1 char          ^j undel char           ^t top of text             ");
523596b676e9SEd Schouten 	emacs_help_text[3] = catgetlocal( 148, "^c command              ^k delete line          ^u bottom of text          ");
523672fcea8cSEd Schouten 	emacs_help_text[4] = catgetlocal( 149, "^d delete char          ^l undelete line        ^v next page               ");
523772fcea8cSEd Schouten 	emacs_help_text[5] = catgetlocal( 150, "^e end of line          ^m newline              ^w delete word             ");
523872fcea8cSEd Schouten 	emacs_help_text[6] = catgetlocal( 151, "^f forward 1 char       ^n next line            ^x search                  ");
523972fcea8cSEd Schouten 	emacs_help_text[7] = catgetlocal( 152, "^g go back 1 page       ^o ascii char insert    ^y search prompt           ");
524072fcea8cSEd Schouten 	emacs_help_text[8] = catgetlocal( 153, "^h backspace            ^p prev line            ^z next word               ");
524172fcea8cSEd Schouten 	emacs_help_text[9] = help_text[9];
524272fcea8cSEd Schouten 	emacs_help_text[10] = help_text[10];
524372fcea8cSEd Schouten 	emacs_help_text[11] = help_text[11];
524472fcea8cSEd Schouten 	emacs_help_text[12] = help_text[12];
524572fcea8cSEd Schouten 	emacs_help_text[13] = help_text[13];
524672fcea8cSEd Schouten 	emacs_help_text[14] = help_text[14];
524772fcea8cSEd Schouten 	emacs_help_text[15] = help_text[15];
524872fcea8cSEd Schouten 	emacs_help_text[16] = help_text[16];
524972fcea8cSEd Schouten 	emacs_help_text[17] = help_text[17];
525072fcea8cSEd Schouten 	emacs_help_text[18] = help_text[18];
525172fcea8cSEd Schouten 	emacs_help_text[19] = help_text[19];
525272fcea8cSEd Schouten 	emacs_help_text[20] = help_text[20];
525372fcea8cSEd Schouten 	emacs_help_text[21] = help_text[21];
525496b676e9SEd Schouten 	emacs_control_keys[0] = catgetlocal( 154, "^[ (escape) menu ^y search prompt ^k delete line   ^p prev li     ^g prev page");
525596b676e9SEd Schouten 	emacs_control_keys[1] = catgetlocal( 155, "^o ascii code    ^x search        ^l undelete line ^n next li     ^v next page");
525696b676e9SEd Schouten 	emacs_control_keys[2] = catgetlocal( 156, "^u end of file   ^a begin of line ^w delete word   ^b back 1 char ^z next word");
525796b676e9SEd Schouten 	emacs_control_keys[3] = catgetlocal( 157, "^t top of text   ^e end of line   ^r restore word  ^f forward char            ");
5258cfe04e82SEd Schouten 	emacs_control_keys[4] = catgetlocal( 158, "^c command       ^d delete char   ^j undelete char              ESC-Enter: exit");
525972fcea8cSEd Schouten 	EMACS_string = catgetlocal( 159, "EMACS");
526072fcea8cSEd Schouten 	NOEMACS_string = catgetlocal( 160, "NOEMACS");
526172fcea8cSEd Schouten 	usage4 = catgetlocal( 161, "       +#   put cursor at line #\n");
526272fcea8cSEd Schouten 	conf_dump_err_msg = catgetlocal( 162, "unable to open .init.ee for writing, no configuration saved!");
526372fcea8cSEd Schouten 	conf_dump_success_msg = catgetlocal( 163, "ee configuration saved in file %s");
526472fcea8cSEd Schouten 	modes_menu[10].item_string = catgetlocal( 164, "save editor configuration");
526572fcea8cSEd Schouten 	config_dump_menu[0].item_string = catgetlocal( 165, "save ee configuration");
526672fcea8cSEd Schouten 	config_dump_menu[1].item_string = catgetlocal( 166, "save in current directory");
526772fcea8cSEd Schouten 	config_dump_menu[2].item_string = catgetlocal( 167, "save in home directory");
526872fcea8cSEd Schouten 	conf_not_saved_msg = catgetlocal( 168, "ee configuration not saved");
526972fcea8cSEd Schouten 	ree_no_file_msg = catgetlocal( 169, "must specify a file when invoking ree");
527072fcea8cSEd Schouten 	menu_too_lrg_msg = catgetlocal( 180, "menu too large for window");
527172fcea8cSEd Schouten 	more_above_str = catgetlocal( 181, "^^more^^");
527272fcea8cSEd Schouten 	more_below_str = catgetlocal( 182, "VVmoreVV");
527372fcea8cSEd Schouten 	mode_strings[9] = catgetlocal( 183, "16 bit characters    ");
527472fcea8cSEd Schouten 	chinese_cmd = catgetlocal( 184, "16BIT");
527572fcea8cSEd Schouten 	nochinese_cmd = catgetlocal( 185, "NO16BIT");
527672fcea8cSEd Schouten 
527772fcea8cSEd Schouten 	commands[0] = HELP;
527872fcea8cSEd Schouten 	commands[1] = WRITE;
527972fcea8cSEd Schouten 	commands[2] = READ;
528072fcea8cSEd Schouten 	commands[3] = LINE;
528172fcea8cSEd Schouten 	commands[4] = FILE_str;
528272fcea8cSEd Schouten 	commands[5] = REDRAW;
528372fcea8cSEd Schouten 	commands[6] = RESEQUENCE;
528472fcea8cSEd Schouten 	commands[7] = AUTHOR;
528572fcea8cSEd Schouten 	commands[8] = VERSION;
528672fcea8cSEd Schouten 	commands[9] = CASE;
528772fcea8cSEd Schouten 	commands[10] = NOCASE;
528872fcea8cSEd Schouten 	commands[11] = EXPAND;
528972fcea8cSEd Schouten 	commands[12] = NOEXPAND;
529072fcea8cSEd Schouten 	commands[13] = Exit_string;
529172fcea8cSEd Schouten 	commands[14] = QUIT_string;
529272fcea8cSEd Schouten 	commands[15] = "<";
529372fcea8cSEd Schouten 	commands[16] = ">";
529472fcea8cSEd Schouten 	commands[17] = "!";
529572fcea8cSEd Schouten 	commands[18] = "0";
529672fcea8cSEd Schouten 	commands[19] = "1";
529772fcea8cSEd Schouten 	commands[20] = "2";
529872fcea8cSEd Schouten 	commands[21] = "3";
529972fcea8cSEd Schouten 	commands[22] = "4";
530072fcea8cSEd Schouten 	commands[23] = "5";
530172fcea8cSEd Schouten 	commands[24] = "6";
530272fcea8cSEd Schouten 	commands[25] = "7";
530372fcea8cSEd Schouten 	commands[26] = "8";
530472fcea8cSEd Schouten 	commands[27] = "9";
530572fcea8cSEd Schouten 	commands[28] = CHARACTER;
530672fcea8cSEd Schouten 	commands[29] = chinese_cmd;
530772fcea8cSEd Schouten 	commands[30] = nochinese_cmd;
530872fcea8cSEd Schouten 	commands[31] = NULL;
530972fcea8cSEd Schouten 	init_strings[0] = CASE;
531072fcea8cSEd Schouten 	init_strings[1] = NOCASE;
531172fcea8cSEd Schouten 	init_strings[2] = EXPAND;
531272fcea8cSEd Schouten 	init_strings[3] = NOEXPAND;
531372fcea8cSEd Schouten 	init_strings[4] = INFO;
531472fcea8cSEd Schouten 	init_strings[5] = NOINFO;
531572fcea8cSEd Schouten 	init_strings[6] = MARGINS;
531672fcea8cSEd Schouten 	init_strings[7] = NOMARGINS;
531772fcea8cSEd Schouten 	init_strings[8] = AUTOFORMAT;
531872fcea8cSEd Schouten 	init_strings[9] = NOAUTOFORMAT;
531972fcea8cSEd Schouten 	init_strings[10] = Echo;
532072fcea8cSEd Schouten 	init_strings[11] = PRINTCOMMAND;
532172fcea8cSEd Schouten 	init_strings[12] = RIGHTMARGIN;
532272fcea8cSEd Schouten 	init_strings[13] = HIGHLIGHT;
532372fcea8cSEd Schouten 	init_strings[14] = NOHIGHLIGHT;
532472fcea8cSEd Schouten 	init_strings[15] = EIGHTBIT;
532572fcea8cSEd Schouten 	init_strings[16] = NOEIGHTBIT;
532672fcea8cSEd Schouten 	init_strings[17] = EMACS_string;
532772fcea8cSEd Schouten 	init_strings[18] = NOEMACS_string;
532872fcea8cSEd Schouten 	init_strings[19] = chinese_cmd;
532972fcea8cSEd Schouten 	init_strings[20] = nochinese_cmd;
533072fcea8cSEd Schouten 	init_strings[21] = NULL;
533172fcea8cSEd Schouten 
533272fcea8cSEd Schouten 	/*
533372fcea8cSEd Schouten 	 |	allocate space for strings here for settings menu
533472fcea8cSEd Schouten 	 */
533572fcea8cSEd Schouten 
533672fcea8cSEd Schouten 	for (counter = 1; counter < NUM_MODES_ITEMS; counter++)
533772fcea8cSEd Schouten 	{
533872fcea8cSEd Schouten 		modes_menu[counter].item_string = malloc(80);
533972fcea8cSEd Schouten 	}
534072fcea8cSEd Schouten 
534172fcea8cSEd Schouten #ifndef NO_CATGETS
534272fcea8cSEd Schouten 	catclose(catalog);
534372fcea8cSEd Schouten #endif /* NO_CATGETS */
534472fcea8cSEd Schouten }
534572fcea8cSEd Schouten 
5346