This repository has been archived on 2024-04-08. You can view files and clone it, but cannot push or open issues or pull requests.
deb-mbse/mbsebbs/fsedit.c
2015-11-05 18:49:27 -05:00

801 lines
18 KiB
C

/*****************************************************************************
*
* Purpose ...............: FullScreen Message editor.
*
*****************************************************************************
* Copyright (C) 1997-2011
*
* 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, 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
*****************************************************************************/
#include "../config.h"
#include "../lib/mbselib.h"
#include "../lib/mbse.h"
#include "../lib/users.h"
#include "mail.h"
#include "input.h"
#include "language.h"
#include "timeout.h"
#include "pinfo.h"
#include "fsedit.h"
#include "term.h"
#include "ttyio.h"
extern int cols;
extern int rows;
char hstr[81];
void Show_Ins(void)
{
locate(1, 70);
colour(YELLOW, BLUE);
if (InsMode)
PUTSTR((char *)"INS");
else
PUTSTR((char *)"OVR");
}
void Top_Help()
{
char temp[81];
locate(1,1);
colour(YELLOW, BLUE);
snprintf(temp, 81, "%s", padleft((char *)"Press ESC for menu, other keys is edit text", 79, ' '));
PUTSTR(temp);
Show_Ins();
}
void Top_Menu(void)
{
char temp[81];
locate(1,1);
colour(WHITE, RED);
snprintf(temp, 81, "%s", padleft((char *)"(A)bort (H)elp (S)ave - Any other key is continue edit", 79, ' '));
PUTSTR(temp);
}
void Ls(int y)
{
strcpy(hstr, locate_str(y, 10));
strncat(hstr, (char *)"\xB3", 80);
}
void Rs()
{
strncat(hstr, colour_str(LIGHTGREEN, BLUE), 80);
strncat(hstr, (char *)"\xB3", 80);
}
void Ws(int y)
{
int i;
Ls(y);
for (i = 0; i < 58; i++)
strncat(hstr, (char *)" ", 80);
Rs();
}
void Hl(int y, char *txt)
{
Ls(y);
strncat(hstr, colour_str(WHITE, BLUE), 80);
strncat(hstr, padleft(txt, 58, ' '), 80);
Rs();
PUTSTR(chartran(hstr));
}
void Full_Help(void)
{
strcpy(hstr, colour_str(LIGHTGREEN, BLUE));
/* Top row */
strncat(hstr, locate_str(1, 10), 80);
strncat(hstr, (char *)"\xDA", 80);
strncat(hstr, hLine_str(58), 80);
strncat(hstr, (char *)"\xBF", 80);
PUTSTR(chartran(hstr));
Ws(2);
PUTSTR(chartran(hstr));
Ls(3);
strncat(hstr, colour_str(YELLOW, BLUE), 80);
strncat(hstr, padleft((char *)" Editor Help", 58, ' '), 80);
Rs();
PUTSTR(chartran(hstr));
Ws(4);
PUTSTR(chartran(hstr));
Hl( 5, (char *)"Ctrl-S or LeftArrow - Cursor left");
Hl( 6, (char *)"Ctrl-D or RightArrow - Cursor right");
Hl( 7, (char *)"Ctrl-E or UpArrow - Cursor up");
Hl( 8, (char *)"Ctrl-X or DownArrow - Cursor down");
Hl( 9, (char *)"Ctrl-V or Insert - Insert or Overwrite");
Hl(10, (char *)"Ctrl-N - Insert line");
Hl(11, (char *)"Ctrl-Y - Delete line");
Ws(12);
PUTSTR(chartran(hstr));
Hl(13, (char *)"Ctrl-L - Refresh screen");
Hl(14, (char *)"Ctrl-R - Read from file");
Ws(15);
PUTSTR(chartran(hstr));
strcpy(hstr, locate_str(16,10));
strncat(hstr, (char *)"\xC0", 80);
strncat(hstr, hLine_str(58), 80);
strncat(hstr, (char *)"\xD9", 80);
PUTSTR(chartran(hstr));
}
void Setcursor(void)
{
CurRow = Row + TopVisible - 1;
locate(Row + 1, Col);
}
void Beep(void)
{
PUTCHAR('\007');
}
/*
* Refresh and rebuild screen in editing mode.
*/
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 + rows -1))) {
locate(j, 1);
j++;
PUTSTR(Message[i]);
}
}
Setcursor();
}
void GetstrLC(char *sStr, int iMaxlen)
{
unsigned char ch = 0;
int iPos = 0;
strcpy(sStr, "");
alarm_on();
while (ch != 13) {
ch = Readkey();
if ((ch == 8) || (ch == KEY_DEL) || (ch == 127)) {
if (iPos > 0) {
BackErase();
sStr[--iPos] = '\0';
} else {
Beep();
}
}
if ((ch > 31 && ch < 127) || traduce((char *)&ch)) {
if (iPos <= iMaxlen) {
iPos++;
snprintf(sStr + strlen(sStr), 5, "%c", ch);
PUTCHAR(ch);
} else {
Beep();
}
}
}
Enter(1);
}
void ScrollUp()
{
if (TopVisible > 12) {
TopVisible -= 12;
Row += 12;
} else {
Row += TopVisible - 1;
TopVisible = 1;
}
Refresh();
}
void ScrollDown()
{
if ((TopVisible + 12) <= Line) {
Row -= 12;
TopVisible += 12;
}
Refresh();
}
void FsMove(unsigned char Direction)
{
switch (Direction) {
case KEY_RIGHT:
/*
* FIXME: FsMove KEY_RIGHT
* Handle long lines better.
* For now, we will just refuse to go past col 80
*/
if ((Col <= strlen(Message[CurRow])) && (Col < cols)){
Col++;
Setcursor();
} else if (Row < (Line - TopVisible +1)) {
Row++;
Col = 1;
if (Row > (rows -1)) ScrollDown();
Refresh();
} else
Beep();
break;
case KEY_LEFT:
if (Col > 1) {
Col--;
Setcursor();
} else if (CurRow > 1) {
Col = strlen(Message[CurRow-1]) +1;
/*
* FIXME: FsMove KEY_LEFT
* Handle long lines better.
* For now, we will just refuse to go past col 80
*/
if (Col > cols)
Col = cols;
if (Row == 1)
ScrollUp();
Row--;
Setcursor();
} else
Beep();
break;
case KEY_UP:
if (CurRow > 1) {
Row--;
if (Col > strlen(Message[CurRow-1]) + 1)
Col = strlen(Message[CurRow-1]) +1;
if ((Row < 1) && (CurRow != Row))
ScrollUp();
else
Setcursor();
} else
Beep();
break;
case KEY_DOWN:
if (Row < (Line - TopVisible + 1)) {
Row++;
if (Col > strlen(Message[CurRow+1]) + 1)
Col = strlen(Message[CurRow+1]) + 1;
if (Row <= (rows -1))
Setcursor();
else
ScrollDown();
} else
Beep();
break;
}
}
int FsWordWrap()
{
int WCol, i = 0;
unsigned char tmpLine[81];
tmpLine[0] = '\0';
/*
* FIXME: FsWordWrap
* The word wrap still fails the BIG WORD test
* (BIG WORD = continuous string of characters that spans multiple
* lines without any spaces)
*/
Syslog('b', "FSEDIT: Word Wrap");
WCol = 79;
while (Message[CurRow][WCol] != ' ' && WCol > 0)
WCol--;
if ((WCol > 0) && (WCol < cols))
WCol++;
else
WCol=cols;
if (WCol <= strlen(Message[CurRow])) {
/*
* If WCol = 80 (no spaces in line) be sure to grab
* character 79. Otherwise, drop it, because it's a space.
*/
if ((WCol == 80) || (WCol-1 == Col))
snprintf((char *)tmpLine + strlen((char *)tmpLine), 5, "%c", Message[CurRow][79]);
/*
* Grab all characters from WCol to end of line.
*/
for (i = WCol; i < strlen(Message[CurRow]); i++) {
snprintf((char *)tmpLine + strlen((char *)tmpLine), 5, "%c", Message[CurRow][i]);
}
/*
* Truncate current row.
*/
Message[CurRow][WCol-1] = '\0';
/*
* If this is the last line, then be sure to create a
* new line.x
*/
if (CurRow >= Line) {
Line = CurRow+1;
Message[CurRow+1][0] = '\0';
}
/*
* If the wrapped section and the next row will not fit on
* one line, shift all lines down one and use the wrapped
* section to create a new line.
*
* Otherwise, slap the wrapped section on the front of the
* next row with a space if needed.
*/
if ((strlen((char *)tmpLine) + strlen(Message[CurRow+1])) > 79) {
for (i = Line; i > CurRow; i--)
snprintf(Message[i+1], TEXTBUFSIZE +1, "%s", Message[i]);
snprintf(Message[CurRow+1], TEXTBUFSIZE +1, "%s", tmpLine);
Line++;
WCol = strlen((char *)tmpLine) + 1;
} else {
if ((WCol == 80) && (Col >= WCol))
WCol = strlen((char *)tmpLine)+1;
else {
if (tmpLine[strlen((char *)tmpLine)] != ' '){
int tmpLength=strlen((char *)tmpLine);
tmpLine[tmpLength] = ' ';
tmpLine[tmpLength+1] = '\0';
}
WCol = strlen((char *)tmpLine);
}
snprintf(Message[CurRow+1], TEXTBUFSIZE +1, "%s", strcat((char *)tmpLine, Message[CurRow+1]));
}
}
return WCol;
}
int Fs_Edit()
{
unsigned char ch;
int i, Changed = FALSE;
char *filname, *tmpname;
FILE *fd;
Syslog('b', "FSEDIT: Entering FullScreen editor");
if (utf8)
chartran_init((char *)"CP437", (char *)"UTF-8", 'B');
clear();
InsMode = TRUE;
TopVisible = 1;
Col = 1;
Row = 1;
Refresh();
while (TRUE) {
Nopper();
alarm_on();
ch = Readkey();
CurRow = Row + TopVisible - 1;
switch (ch) {
case KEY_ENTER:
if (Col == 1) {
/* Enter at beginning of line */
for (i = Line; i >= CurRow; i--) {
snprintf(Message[i+1], TEXTBUFSIZE +1, "%s", Message[i]);
}
Message[i+1][0] = '\0';
} else {
for (i = Line; i > CurRow; i--) {
snprintf(Message[i+1], TEXTBUFSIZE +1, "%s", Message[i]);
}
Message[CurRow+1][0] = '\0';
if (Col <= strlen(Message[CurRow])) {
/* Enter in middle of line */
for (i = Col-1; i <= strlen(Message[CurRow]); i++) {
snprintf(Message[CurRow+1] + strlen(Message[CurRow+1]), 5, "%c", Message[CurRow][i]);
}
Message[CurRow][Col-1] = '\0';
}
/* else Enter at end of line */
}
Line++;
Row++;
Col = 1;
if (Row >= (rows -1))
ScrollDown();
Refresh();
Changed = TRUE;
break;
case ('N' - 64): /* Insert line, scroll down */
for (i = Line; i >= CurRow; i--)
snprintf(Message[i+1], TEXTBUFSIZE +1, "%s", Message[i]);
Message[CurRow][0] = '\0';
Line++;
Col = 1;
Refresh();
Changed = TRUE;
break;
case ('Y' - 64): /* Erase line, scroll up */
if (Line == CurRow) {
/* Erasing last line */
if ((Line > 1) || (strlen(Message[CurRow]) > 0)) {
Message[CurRow][0] = '\0';
if (Line > 1) {
Line--;
if (Row == 1)
ScrollUp();
Row--;
}
if (Col > strlen(Message[CurRow]))
Col = strlen(Message[CurRow]);
Refresh();
Changed = TRUE;
} else
Beep();
} else {
/* Erasing line in the middle */
for (i = CurRow; i < Line; i++) {
snprintf(Message[i], TEXTBUFSIZE +1, "%s", Message[i+1]);
}
Message[i+1][0] = '\0';
Line--;
if (Col > strlen(Message[CurRow]) + 1)
Col = strlen(Message[CurRow]) + 1;
Refresh();
Changed = TRUE;
}
break;
case KEY_UP:
case ('E' - 64):
FsMove(KEY_UP);
break;
case KEY_DOWN:
case ('X' - 64):
FsMove(KEY_DOWN);
break;
case KEY_LEFT:
case ('S' - 64):
FsMove(KEY_LEFT);
break;
case KEY_RIGHT:
case ('D' - 64):
FsMove(KEY_RIGHT);
break;
case KEY_DEL:
if (Col <= strlen(Message[CurRow])) {
/*
* If before the end of the line...
*/
Setcursor();
for (i = Col; i <= strlen(Message[CurRow]); i++) {
Message[CurRow][i-1] = Message[CurRow][i];
PUTCHAR(Message[CurRow][i]);
}
PUTCHAR(' ');
PUTCHAR('\b');
Message[CurRow][i-1] = '\0';
Setcursor();
} else if (((strlen(Message[CurRow]) + strlen(Message[CurRow+1]) < 75)
|| (strlen(Message[CurRow]) == 0)) && (CurRow < Line)) {
for (i = 0; i < strlen(Message[CurRow+1]); i++)
snprintf(Message[CurRow] + strlen(Message[CurRow]), 5, "%c", Message[CurRow+1][i]);
for (i = CurRow+1; i < Line; i++)
snprintf(Message[i], TEXTBUFSIZE +1, "%s", Message[i+1]);
Message[Line][0] = '\0';
Line--;
Refresh();
} else
Beep();
/*
* Trap the extra code so it isn't
* inserted in the text
*/
if (ch == KEY_DEL)
Readkey();
break;
case KEY_BACKSPACE:
case KEY_RUBOUT:
if (Col == 1 && CurRow == 1) {
/* BS on first character in message */
Beep();
} else if (Col == 1) {
/* BS at beginning of line */
if ((strlen(Message[CurRow-1]) + strlen(Message[CurRow]) < 75) || strlen(Message[CurRow]) == 0) {
Col = strlen(Message[CurRow-1]) + 1;
strcat(Message[CurRow-1], Message[CurRow]);
for ( i = CurRow; i < Line; i++)
snprintf(Message[i], TEXTBUFSIZE +1, "%s", Message[i+1]);
Message[i+1][0] = '\0';
Line--;
if (Row == 1)
ScrollUp();
Row--;
Refresh();
Changed = TRUE;
} else {
i = strlen(Message[CurRow-1]) + strlen(Message[CurRow]);
Beep();
}
} else {
if (Col == strlen(Message[CurRow]) + 1) {
/* BS at end of line */
BackErase();
Col--;
Message[CurRow][Col-1] = '\0';
Changed = TRUE;
} else {
/* BS in middle of line */
Col--;
Setcursor();
for (i = Col; i <= strlen(Message[CurRow]); i++) {
Message[CurRow][i-1] = Message[CurRow][i];
PUTCHAR(Message[CurRow][i]);
}
PUTCHAR(' ');
PUTCHAR('\b');
Message[CurRow][strlen(Message[CurRow])] = '\0';
Setcursor();
Changed = TRUE;
}
}
break;
case KEY_INS: /* Toggle Insert Mode */
case ('V' - 64):
InsMode = !InsMode;
Show_Ins();
colour(CFG.TextColourF, CFG.TextColourB);
Setcursor();
/*
* Trap the extra code so it isn't
* inserted in the text
*/
if (ch == KEY_INS)
Readkey();
break;
case ('L' - 64): /* Refresh screen */
Refresh();
break;
case ('R' - 64): /* Read from file */
Syslog('b', "FSEDIT: Read from file");
tmpname = calloc(PATH_MAX, sizeof(char));
filname = calloc(PATH_MAX, sizeof(char));
Enter(1);
/* Please enter filename: */
pout(YELLOW, BLACK, (char *) Language(245));
colour(CFG.InputColourF, CFG.InputColourB);
GetstrLC(filname, 80);
if ((strcmp(filname, "") == 0)) {
Enter(2);
/* No filename entered, aborting */
pout(CFG.HiliteF, CFG.HiliteB, (char *) Language(246));
Enter(1);
Pause();
free(filname);
free(tmpname);
Refresh();
break;
}
if (*(filname) == '/' || *(filname) == ' ') {
Enter(2);
/* Illegal filename */
pout(CFG.HiliteF, CFG.HiliteB, (char *) Language(247));
Enter(1);
Pause();
free(tmpname);
free(filname);
Refresh();
break;
}
snprintf(tmpname, PATH_MAX, "%s/%s/wrk/%s", CFG.bbs_usersdir, exitinfo.Name, filname);
if ((fd = fopen(tmpname, "r")) == NULL) {
WriteError("$Can't open %s", tmpname);
Enter(2);
/* File does not exist, please try again */
pout(CFG.HiliteF, CFG.HiliteB, (char *) Language(296));
Enter(1);
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] = '+';
snprintf(Message[Line], TEXTBUFSIZE +1, "%s", filname);
Line++;
if ((Line - 1) == TEXTBUFSIZE)
break;
}
fclose(fd);
Changed = TRUE;
Syslog('+', "FSEDIT: Inserted file %s", tmpname);
}
free(tmpname);
free(filname);
Col = 1;
Refresh();
break;
case KEY_ESCAPE: /* Editor menu */
Top_Menu();
ch = toupper(Readkey());
if (ch == 'A' || ch == 'S') {
Syslog('b', "FSEDIT: %s message (%c)", (ch == 'S' && Changed) ? "Saving" : "Aborting", ch);
clear();
chartran_close();
if (ch == 'S' && Changed) {
Syslog('+', "FSEDIT: Message will be saved");
return TRUE;
} else {
Syslog('+', "FSEDIT: Message aborted");
return FALSE;
}
}
if (ch == 'H') {
Full_Help();
ch = Readkey();
Refresh();
} else
Top_Help();
colour(CFG.TextColourF, CFG.TextColourB);
Setcursor();
break;
default:
if ((ch > 31) || traduce((char *)&ch) ) {
/*
* Normal printable characters or hi-ascii
*/
if (Col == strlen(Message[CurRow]) + 1) {
/*
* Append to line
*/
snprintf(Message[CurRow] + strlen(Message[CurRow]), 5, "%c", ch);
if (strlen(Message[CurRow]) > 79){
Col = FsWordWrap();
Row++;
Refresh();
} else {
Col++;
PUTCHAR(ch);
}
Changed = TRUE;
} else {
/*
* Insert or overwrite
*/
if (InsMode) {
for (i = strlen(Message[CurRow]); i >= (Col-1); i--) {
/*
* Shift characters right
*/
Message[CurRow][i+1] = Message[CurRow][i];
}
Message[CurRow][Col-1] = ch;
Col++;
if (strlen(Message[CurRow]) > 80) {
i = FsWordWrap();
if (Col > strlen(Message[CurRow])+1) {
Col = Col - strlen(Message[CurRow]);
if (Col > 1)
Col--;
Row++;
}
if (Row > (rows -1))
ScrollDown();
else
Refresh();
} else {
locate(Row + 1, 1);
PUTSTR(Message[CurRow]);
Setcursor();
}
Changed = TRUE;
} else {
Message[CurRow][Col-1] = ch;
PUTCHAR(ch);
Col++;
Changed = TRUE;
}
}
}
}
}
chartran_close();
WriteError("FsEdit(): Impossible to be here");
return FALSE;
}