/*****************************************************************************
 *
 * File ..................: bbs/fsedit.c
 * Purpose ...............: FullScreen Message editor.
 * Last modification date : 23-Jul-2001
 *
 *****************************************************************************
 * Copyright (C) 1997-2001
 *   
 * Michiel Broek		FIDO:		2:280/2802
 * Beekmansbos 10
 * 1971 BV IJmuiden
 * the Netherlands
 *
 * This file is part of MBSE BBS.
 *
 * This BBS is free software; you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation; either version 2, or (at your option) any
 * later version.
 *
 * MBSE BBS is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with MBSE BBS; see the file COPYING.  If not, write to the Free
 * Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 *****************************************************************************/

#include "../lib/libs.h"
#include "../lib/mbse.h"
#include "../lib/structs.h"
#include "../lib/records.h"
#include "../lib/ansi.h"
#include "../lib/common.h"
#include "../lib/clcomm.h"
#include "mail.h"
#include "funcs4.h"
#include "language.h"
#include "timeout.h"
#include "pinfo.h"
#include "fsedit.h"


extern	int	Line;		/* Number of lines + 1			*/
extern	char	*Message[];	/* TEXTBUFSIZE lines of 80 chars	*/

int		Row;		/* Current row on screen		*/
int		Col;		/* Current column in text and on screen	*/
int		TopVisible;	/* First visible line of text		*/
int		InsMode;	/* Insert mode				*/
int		CurRow;		/* Current row in buffer		*/



void Show_Ins(void);
void Show_Ins(void)
{
	locate(1, 70);
	colour(YELLOW, BLUE);
	if (InsMode)
		printf("INS");
	else
		printf("OVR");
	fflush(stdout);
}



void Top_Help(void);
void Top_Help() 
{
	locate(1,1);
	colour(YELLOW, BLUE);
	printf("%s", padleft((char *)"Press ESC for menu, other keys is edit text", 80, ' '));
	Show_Ins();
}



void Top_Menu(void);
void Top_Menu(void)
{
	locate(1,1);
	colour(WHITE, RED);
	printf("%s", padleft((char *)"(A)bort (H)elp (S)ave - Any other key is continue edit", 80, ' '));
	fflush(stdout);
}



void Ls(int, int);
void Ls(int a, int y)
{
	locate(y, 10);
	printf("%c ", a ? 179 : '|');
}



void Rs(int);
void Rs(int a)
{
	colour(LIGHTGREEN, BLUE);
	printf("%c", a ? 179 : '|');
}



void Ws(int, int);
void Ws(int a, int y)
{
	int	i;

	Ls(a, y);
	for (i = 0; i < 57; i++)
		printf(" ");
	Rs(a);
}



void Hl(int, int, char *);
void Hl(int a, int y, char *txt)
{
	Ls(a, y);
	colour(WHITE, BLUE);
	printf("%s", padleft(txt, 57, ' '));
	Rs(a);
}



void Full_Help(void);
void Full_Help(void)
{
	int	a, i;

	a = exitinfo.GraphMode;

	colour(LIGHTGREEN, BLUE);

	/* Top row */
	locate(1, 10);
	printf("%c", a ? 213 : '+');
	for (i = 0; i < 58; i++)
		printf("%c", a ? 205 : '=');
	printf("%c", a ? 184 : '+');

	Ws(a, 2);

	Ls(a, 3);
	colour(YELLOW, BLUE);
	printf("%s", padleft((char *)"                  Editor Help", 57, ' '));
	Rs(a);

	Ws(a,  4);
	Hl(a,  5, (char *)"Ctrl-S or LeftArrow     - Cursor left");
	Hl(a,  6, (char *)"Ctrl-D or RightArrow    - Cursor right");
	Hl(a,  7, (char *)"Ctrl-E or UpArrow       - Cursor up");
	Hl(a,  8, (char *)"Ctrl-X or DownArrow     - Cursor down");
	Hl(a,  9, (char *)"Ctrl-V or Insert        - Insert or Overwrite");
	Hl(a, 10, (char *)"Ctrl-N                  - Insert line");
	Hl(a, 11, (char *)"Ctrl-Y                  - Delete line");
	Ws(a, 12);
	Hl(a, 13, (char *)"Ctrl-L                  - Refresh screen");
	Hl(a, 14, (char *)"Ctrl-R                  - Read from file");
	Ws(a, 15);

	locate(16,10);
	printf("%c", a ? 212 : '+');
	for (i = 0; i < 58; i++)
		printf("%c", a ? 205 : '=');
	printf("%c", a ? 190 : '+');
	fflush(stdout);
}



void Setcursor(void);
void Setcursor(void)
{
	CurRow = Row + TopVisible - 1;
	locate(Row + 1, Col);
	fflush(stdout);
}



void Beep(void);
void Beep(void)
{
	printf("\007");
	fflush(stdout);
}



/*
 *  Refresh and rebuild screen in editing mode.
 */
void Refresh(void);
void Refresh(void) 
{
	int	i, j = 2;

	clear();
	Top_Help();
	locate(j,1);
	colour(CFG.TextColourF, CFG.TextColourB);

	for (i = 1; i <= Line; i++) {
		if ((i >= TopVisible) && (i < (TopVisible + exitinfo.iScreenLen -1))) {
			locate(j, 1);
			j++;
			printf("%s", Message[i]);
		}
	}
	Setcursor();
}



void Debug(void);
void Debug(void)
{
	Syslog('B', "Col=%d Row=%d TopVisible=%d Lines=%d CurRow=%d Len=%d", 
		Col, Row, TopVisible, Line, Row+TopVisible-1, strlen(Message[Row+TopVisible-1]));
}



void GetstrLC(char *, int);
void GetstrLC(char *sStr, int iMaxlen)
{
	unsigned char	ch = 0;
	int		iPos = 0;

	strcpy(sStr, "");
	alarm_on();

	while (ch != 13) {

		fflush(stdout);
		ch = Readkey();

		if ((ch == 8) || (ch == KEY_DEL) || (ch == 127)) {
			if (iPos > 0) {
				printf("\b \b");
				sStr[--iPos] = '\0';
			} else
				putchar('\007');
		}

		if (ch > 31 && ch < 127) {
			if (iPos <= iMaxlen) {
				iPos++;
				sprintf(sStr, "%s%c", sStr, ch);
				printf("%c", ch);
			} else
				putchar('\007');
		}
	}

	printf("\n");
}



int Fs_Edit()
{
	unsigned char	ch;
	int		i, Changed = FALSE;
	char		*filname, *tmpname;
	FILE		*fd;

	Syslog('b', "Entering FullScreen editor");
	clear();
	fflush(stdout);
	if ((ttyfd = open("/dev/tty", O_RDWR|O_NONBLOCK)) < 0) {
		WriteError("$Can't open tty");
		return FALSE;
	}
	Setraw();
	InsMode = TRUE;
	TopVisible = 1;
	Col = 1;
	Row = 1;
	Refresh();
	Debug();

	while (TRUE) {
		Nopper();
		alarm_on();
		ch = Readkey();
		CurRow = Row + TopVisible - 1;

		switch (ch) {
		case KEY_ENTER:
			Syslog('B', "Enter pressed: Col=%d CurRow=%d Line=%d", Col, CurRow, Line);
			Debug();
			if (Col == 1) {
				Syslog('B', "Enter at beginning of line");
				for (i = Line; i >= CurRow; i--) {
					sprintf(Message[i+1], "%s", Message[i]);
					Syslog('B', "-Moving row %d to %d", i, i+1);
					Syslog('B', ":%s", Message[i]);
				}
				Message[i+1][0] = '\0';
				Syslog('B', "-Clearing row %d", i+1);
			} else {
				for (i = Line; i > CurRow; i--) {
					sprintf(Message[i+1], "%s", Message[i]);
					Syslog('B', "-Moving row %d to %d", i, i+1);
				}
				Message[CurRow+1][0] = '\0';
				Syslog('B', "-Clearing row %d", CurRow+1);
				if (Col <= strlen(Message[CurRow])) {
					Syslog('B', "Enter in middle of line");
					for (i = Col-1; i <= strlen(Message[CurRow]); i++) {
						sprintf(Message[CurRow+1], "%s%c", Message[CurRow+1], Message[CurRow][i]);
					}
					Message[CurRow][Col-1] = '\0';
				} else {
					Syslog('B', "Enter at end of line");
				}
			}
			Line++;
			Row++;
			Col = 1;
			if (Row < (exitinfo.iScreenLen -1)) {
				CurRow++;
			} else {
				Syslog('B', "Scroll down by ENTER");
				Row -= 12;
				TopVisible += 12;
			}
			Refresh();
			Setcursor();
			Debug();
			Changed = TRUE;
			break;

		case ('N' - 64):  /* Insert line, scroll down */
			Syslog('B', "Insert line");
			Debug();
			for (i = Line; i >= CurRow; i--)
				sprintf(Message[i+1], "%s", Message[i]);
			Message[CurRow][0] = '\0';
			Line++;
			Col = 1;
			Refresh();
			Debug();
			Changed = TRUE;
			break;

		case ('Y' - 64):  /* Erase line, scroll up */
				Syslog('B', "Erase line");
				Debug();
				if (Line == CurRow) {
					Syslog('B', "Erasing last line");
					if (Line > 1) {
						Message[CurRow][0] = '\0';
						Line--;
						if ((Row == 1) && (TopVisible > 12)) {
							Row += 12;
							TopVisible -= 12;
						} else
							Row--;
						Refresh();
						Setcursor();
						Debug();
						Changed = TRUE;
					} else
						Beep();
				} else {
					Syslog('B', "Erasing line in the middle");
					for (i = CurRow; i < Line; i++) {
						sprintf(Message[i], "%s", Message[i+1]);
					}
					Message[i+1][0] = '\0';
					Line--;
					if (Col > strlen(Message[CurRow]) + 1)
						Col = strlen(Message[CurRow]) + 1;
					Refresh();
					Setcursor();
					Debug();
					Changed = TRUE;
				}
				break;

		case KEY_UP:
		case ('E' - 64):
			Syslog('B', "Cursor up");
			if (Row > 1) {
				Row--;
				CurRow--;
				if (Col > strlen(Message[CurRow]) + 1)
					Col = strlen(Message[CurRow]) + 1;
				Setcursor();
				Debug();
			} else {
				if (TopVisible > 12) {
					Syslog('B', "Scroll up");
					TopVisible -= 12;
					Row += 12;
					Refresh();
					Setcursor();
					Debug();
				} else
					Beep();
			}
			break;

		case KEY_DOWN:
		case ('X' - 64):
			Syslog('B', "Cursor down");
			Debug();
			if (Row < (Line - TopVisible + 1)) {
				if (Row < (exitinfo.iScreenLen -1)) {
					Row++;
					CurRow++;
					if (Col > strlen(Message[CurRow]) + 1)
						Col = strlen(Message[CurRow]) + 1;
					Setcursor();
					Debug();
				} else {
					Syslog('B', "Scroll down");
					Row -= 12;
					TopVisible += 12;
					Refresh();
					Setcursor();
					Debug();
				}
			} else
				Beep();
			break;

		case KEY_LEFT:
		case ('S' - 64):
			Syslog('B', "Cursor left");
			if (Col > 1) {
				Col--;
				Setcursor();
				Debug();
			} else
				Beep();
			break;

		case KEY_RIGHT:
		case ('D' - 64):
			if (Col <= strlen(Message[CurRow])) {
				Col++;
				Setcursor();
				Debug();
			} else
				Beep();
			break;

		case KEY_DEL:
			Syslog('b', "DEL key");
			if (Col <= strlen(Message[CurRow])) {
				Syslog('B', "DEL in middle of line");
				Debug();
				Setcursor();
				for (i = Col; i <= strlen(Message[CurRow]); i++) {
					Syslog('B', "i=%d", i);
					Message[CurRow][i-1] = Message[CurRow][i];
					printf("%c", Message[CurRow][i]);
				}
				printf(" \b");
				Message[i-1] = '\0';
				Setcursor();
			} else
                                Beep();

			/* 
			 * Trap the extra code so it isn't
			 * inserted in the text
			 */
			ch = Readkey();
			break;

		case KEY_BACKSPACE:
		case KEY_RUBOUT:
			Syslog('B', "BS at Col=%d Row=%d CurRow=%d", Col, Row, CurRow);
			if (Col == 1 && CurRow == 1) {
				Syslog('B', "BS on first character in message");
				Beep();
			} else if (Col == 1) {
				if (strlen(Message[CurRow-1]) + strlen(Message[CurRow]) < 75) {
					Col = strlen(Message[CurRow-1]) + 1;
					strcat(Message[CurRow-1], Message[CurRow]);
					for ( i = CurRow; i < Line; i++)
						sprintf(Message[i], "%s", Message[i+1]);
					Message[i+1][0] = '\0';
					Line--;
					Row--;
					CurRow--;
					Refresh();
					Setcursor();
					Debug();
					Changed = TRUE;
				} else Beep();
			} else {
				if (Col == strlen(Message[CurRow]) + 1) {
					Syslog('B', "BS at end of line");
					Debug();
					printf("\b \b");
					fflush(stdout);
					Col--;
					Message[CurRow][Col-1] = '\0';
					Changed = TRUE;
				} else {
					Syslog('B', "BS in middle of line");
					Debug();
					Col--;
					Setcursor();
					for (i = Col; i < strlen(Message[CurRow]); i++) {
						Syslog('B', "i=%d", i);
						Message[CurRow][i-1] = Message[CurRow][i];
						printf("%c", Message[CurRow][i]);
					}
					printf(" \b");
					Message[CurRow][strlen(Message[CurRow])] = '\0';
					Setcursor();
					Changed = TRUE;
				}
			}
			break;

		case KEY_INS:
		case ('V' - 64):
			if (InsMode)
				InsMode = FALSE;
			else
				InsMode = TRUE;
			Show_Ins();
			colour(CFG.TextColourF, CFG.TextColourB);
			Setcursor();
			Syslog('B', "InsertMode now %s", InsMode ? "True" : "False");
			/* 
			 * Trap the extra code so it isn't
			 * inserted in the text
			 */
			ch = Readkey();
			break;

		case ('L' - 64):  /* Refresh screen */
			Syslog('B', "Refresh()");
			Refresh();
			Debug();
			break;

		case ('R' - 64):  /* Read from file */
			Syslog('b', "Read from file");

			tmpname = calloc(PATH_MAX, sizeof(char));
			filname = calloc(PATH_MAX, sizeof(char));

			colour(14, 0);
			/* Please enter filename: */
			printf("\n%s", (char *) Language(245));
			colour(CFG.InputColourF, CFG.InputColourB);
			GetstrLC(filname, 80);

			if ((strcmp(filname, "") == 0)) {
				colour(CFG.HiliteF, CFG.HiliteB);
				/* No filename entered, aborting */
				printf("\n\n%s\n", (char *) Language(246));
				Pause();
				free(filname);
				free(tmpname);
				Refresh();
				Debug();
				break;
			}

			if (*(filname) == '/' || *(filname) == ' ') {
				colour(CFG.HiliteF, CFG.HiliteB);
				/* Illegal filename */
				printf("\n\n%s\n", (char *) Language(247));
				Pause();
				free(tmpname);
				free(filname);
				Refresh();
				Debug();
				break;
			}

			sprintf(tmpname, "%s/%s/wrk/%s", CFG.bbs_usersdir, exitinfo.Name, filname);
			if ((fd = fopen(tmpname, "r")) == NULL) {
				WriteError("$Can't open %s", tmpname);
				colour(CFG.HiliteF, CFG.HiliteB);
				/* File does not exist, please try again */
				printf("\n\n%s\n", (char *) Language(296));
				Pause();
			} else {
				while ((fgets(filname, 80, fd)) != NULL) {
					for (i = 0; i < strlen(filname); i++) {
						if (*(filname + i) == '\0')
							break;
						if (*(filname + i) == '\n')
							*(filname + i) = '\0';
						if (*(filname + i) == '\r')
							*(filname + i) = '\0';
					}
					/*
					 * Make sure that any tear or origin lines are
					 * made invalid.
					 */
					if (strncmp(filname, (char *)"--- ", 4) == 0)
						filname[1] = 'v';
					if (strncmp(filname, (char *)" * Origin:", 10) == 0)
						filname[1] = '+';
					sprintf(Message[Line], "%s", filname);
					Line++;
				}
				fclose(fd);
				Changed = TRUE;
				Syslog('+', "Inserted file %s", tmpname);
			}

			free(tmpname);
			free(filname);
			Refresh();
			Debug();
			Col = 1;
			Setcursor();
			break;

		case KEY_ESCAPE:  /* Editor menu */
			Syslog('B', "Escape pressed");
			Top_Menu();

			ch = toupper(Readkey());
			if (ch == 'A' || ch == 'S') {
				Syslog('B', "%s message (%c)", (ch == 'S' && Changed) ? "Saving" : "Aborting", ch);
				Unsetraw();
				close(ttyfd);
				Debug();
				clear();
				fflush(stdout);
				for (i = 1; i <= Line; i++)
					Syslog('B', "%3d \"%s\"", i, Message[i]);
				if (ch == 'S' && Changed) {
					Syslog('+', "Message saved");
					return TRUE;
				} else {
					Syslog('+', "Message aborted");
					return FALSE;
				}
			}

			if (ch == 'H') {
				Syslog('B', "User wants help");
				Full_Help();
				ch = Readkey();
				Refresh();
			} else
				Top_Help();

			colour(CFG.TextColourF, CFG.TextColourB);
			Setcursor();
			break;
			
		default:
			if (ch > 31 && ch < 127) {
				/*
				 *  Normal printable characters
				 */
				Debug();
				if (Col == strlen(Message[CurRow]) + 1) {
					/*
					 *  Append to line
					 */
					if (Col < 79) {
						Col++;
						sprintf(Message[CurRow], "%s%c", Message[CurRow], ch);
						printf("%c", ch);
						fflush(stdout);
						Changed = TRUE;
					} else {
						/*
						 *  Do simple word wrap
						 */
						for (i = Line; i > CurRow; i--) {
							sprintf(Message[i+1], "%s", Message[i]);
							Syslog('B', "[WW]-Moving row %d to %d", i, i+1);
						}
						Message[CurRow+1][0] = '\0';
						Syslog('B', "[WW]-Clearing row %d", CurRow+1);
						Col = 74;
						while (Message[CurRow][Col] != ' ' && i != 0)
							Col--;
						Col++;
						if (Col <= strlen(Message[CurRow])) {
							Syslog('B', "[WW]-Move end of line %d to new row %d", CurRow, CurRow+1);
							for (i = Col; i <= strlen(Message[CurRow]); i++) {
								sprintf(Message[CurRow+1], "%s%c", Message[CurRow+1], Message[CurRow][i]);
							}
							Message[CurRow][Col-1] = '\0';
						}
						sprintf(Message[CurRow+1], "%s%c", Message[CurRow+1], ch);
						Line++;
						Row++;
						Col = strlen(Message[CurRow+1])+1;
						Refresh();
						Debug();
						Changed = TRUE;
					}
				} else {
					/*
					 *  Insert or overwrite
					 */
					Syslog('b', "%s in line", InsMode ? "Insert" : "Overwrite");
					if (InsMode) {
						if (strlen(Message[CurRow]) < 80) {
							for (i = strlen(Message[CurRow]); i > (Col-1); i--) {
								Syslog('B', "(i+1=%d)[%c] = (i=%d)[%c]", i+1, Message[CurRow][i+1], i, Message[CurRow][i]);
								Message[CurRow][i+1] = Message[CurRow][i];
							}
							Message[CurRow][Col-1] = ch;
							Col++;
							locate(Row + 1, 1);
							printf(Message[CurRow]);
							Setcursor();
							Changed = TRUE;
						} else {
							Beep();
						}
					} else {
						Message[CurRow][Col-1] = ch;
						printf("%c", ch);
						fflush(stdout);
						Col++;
						Changed = TRUE;
					}
				}
			} else
				Syslog('b', "Pressed %d (unsupported)", ch);
		}
	}

	WriteError("FsEdit(): Impossible to be here");
	Unsetraw();
	close(ttyfd);
	return FALSE;
}