/***************************************************************************
 * This program is Copyright (C) 1986, 1987, 1988 by Jonathan Payne.  JOVE *
 * is provided to you without charge, and with no warranty.  You may give  *
 * away copies of JOVE, including sources, provided that this notice is    *
 * included in all the files.                                              *
 ***************************************************************************/

#include "jove.h"
#include "ctype.h"
#include <signal.h>
#ifdef ANSICODES
# include "termcap.h"
#endif

void
prCTIME()
{
	s_mess(": %f %s", get_time((time_t *) 0, (char *) 0, 0, -1));
}

void
ChrToOct()
{
	int	c,
		slow;

	c = waitchar(&slow);
	if (slow)
		message(key_strokes);
	ins_str(sprint("\\%03o", c), NO);
}

void
StrLength()
{
	static char	inquotes[] = "Where are the quotes?";
	char	*first = StrIndex(-1, linebuf, curchar, '"'),
		*last = StrIndex(1, linebuf, curchar + 1, '"'),
		c;
	int	numchars = 0;

	if (first == 0 || last == 0)
		complain(inquotes);
	first += 1;
	while (first < last) {
		c = *first++;
		if (c == '\\') {
			int	num;

			if (!isdigit(*first))
				first += 1;
			else {
				num = 3;
				while (num-- && isdigit(*first++) && first < last)
					;
			}
		}
		numchars += 1;
	}
	s_mess("%d characters", numchars);
}

/* Transpos cur_char with cur_char - 1 */

void
TransChar()
{
	char	before;

	if (curchar == 0 || (eolp() && curchar == 1))
		complain((char *) 0);	/* BEEP */
	if (eolp())
		b_char(1);
	before = linebuf[curchar - 1];
	del_char(BACKWARD, 1);
	f_char(1);
	insert_c(before, 1);
}

/* Switch current line with previous one */

void
TransLines()
{
	disk_line	old_prev;

	if (firstp(curline))
		return;
	lsave();
	old_prev = curline->l_prev->l_dline;
	curline->l_prev->l_dline = curline->l_dline;
	curline->l_dline = old_prev;
	getDOT();
	if (!lastp(curline))
		line_move(FORWARD, 1, NO);
	modify();
}

void
Leave()
{
	longjmp(mainjmp, QUIT);
}

/* If argument is specified, kill that many lines down.  Otherwise,
   if we "appear" to be at the end of a line, i.e. everything to the
   right of the cursor is white space, we delete the line separator
   as if we were at the end of the line. */

void
KillEOL()
{
	Line	*line2;
	int	char2;
	int	num = arg_value();

	if (is_an_arg()) {
		if (num == 0) {	/* Kill to beginning of line */
			line2 = curline;
			char2 = 0;
		} else {
			line2 = next_line(curline, num);
			if ((LineDist(curline, line2) < num) || (line2 == curline))
				char2 = length(line2);
			else
				char2 = 0;
		}
	} else if (blnkp(&linebuf[curchar])) {
		line2 = next_line(curline, 1);
		if (line2 == curline)
			char2 = length(curline);
		else
			char2 = 0;
	} else {
		line2 = curline;
		char2 = length(curline);
	}
	reg_kill(line2, char2, 0);
}

/* kill to beginning of sentence */

void
KillBos()
{
	negate_arg_value();
	KillEos();
}

/* Kill to end of sentence */

void
KillEos()
{
	Line	*line1;
	int	char1;

	line1 = curline;
	char1 = curchar;
	Eos();
	reg_kill(line1, char1, 1);
}

void
KillExpr()
{
	Line	*line1;
	int	char1;

	line1 = curline;
	char1 = curchar;
	FSexpr();
	reg_kill(line1, char1, 1);
}

void
EscPrefix()
{
	HandlePref(pref1map);
}

void
CtlxPrefix()
{
	HandlePref(pref2map);
}

void
MiscPrefix()
{
	HandlePref(miscmap);
}

void
HandlePref(map)
data_obj	**map;
{
	register data_obj	*cp;
	register int	c;
	int	slow;

	c = waitchar(&slow);
	if (c == AbortChar) {
		message("[Aborted]");
		rbell();
		return;
	}

	if (slow)
		message(key_strokes);

	cp = map[c];
	if (cp == 0) {
		s_mess("[%sunbound]", key_strokes);
		rbell();
	} else
		ExecCmd(cp);
}

void
Yank()
{
	Line	*line,
		*lp;
	Bufpos	*dot;

	if (killbuf[killptr] == 0)
		complain("[Nothing to yank!]");
	lsave();
	this_cmd = YANKCMD;
	line = killbuf[killptr];
	lp = lastline(line);
	dot = DoYank(line, 0, lp, length(lp), curline, curchar, curbuf);
	set_mark();
	SetDot(dot);
}

void
WtModBuf()
{
	if (!ModBufs(NO))
		message("[No buffers need saving]");
	else
		put_bufs(is_an_arg());
}

void
put_bufs(askp)
{
	register Buffer	*oldb = curbuf,	
			*b;		

	for (b = world; b != 0; b = b->b_next) {
		if (!IsModified(b) || b->b_type != B_FILE)
			continue;
		SetBuf(b);	/* Make this current Buffer */
		if (curbuf->b_fname == 0) {
			char	*newname;

			newname = ask(NullStr, "Buffer \"%s\" needs a file name; type Return to skip: ", b->b_name);
			if (*newname == 0)
				continue;
			setfname(b, newname);
		}
		if (askp && (yes_or_no_p("Write %s? ", curbuf->b_fname) == NO))
			continue;
		filemunge(curbuf->b_fname);
#if !(defined(MSDOS) || defined(MAC))
		chk_mtime(curbuf, curbuf->b_fname, "save");
#endif
		file_write(curbuf->b_fname, 0);
		unmodify();
	}
	SetBuf(oldb);
}

void
ToIndent()
{
	register char	*cp,
			c;

	for (cp = linebuf; c = *cp; cp++)
		if (c != ' ' && c != '\t')
			break;
	curchar = cp - linebuf;
}

/* GoLine -- go to a line, usually wired to goto-line, ESC g or ESC G.
   If no argument is specified it asks for a line number. */
void
GoLine()
{
  	Line	*newline;

#ifndef ANSICODES
 	if (!is_an_arg())
 		set_arg_value(ask_int("Line: ",10));
#else /* not ANSICODES */
 	if (!is_an_arg() || arg_value() <= 0) {
  		if (SP) {
  			putpad(SP, 1);	/* Ask for cursor position */
			return;
		}
 		set_arg_value(ask_int("Line: ", 10));
  	}
#endif /* ANSICODES */
 	newline = next_line(curbuf->b_first, arg_value() - 1);
  	PushPntp(newline);
  	SetLine(newline);
}

#ifdef ANSICODES
void
MoveToCursor(line, col)
{
	register struct scrimage *sp = &PhysScreen[line];

	while (sp->s_id == 0)
		sp = &PhysScreen[--line];
	if (sp->s_flags & MODELINE)
		complain((char *) 0);
	if (curwind != sp->s_window)
		SetWind(sp->s_window);
	SetLine(sp->s_lp);
	curchar = how_far(sp->s_lp, col);
}

void
AnsiCodes()
{
	int	c;
	int	num1 = 0;
	int	num2;
	static char *unsupported = "[Unsupported ANSI code received]";

	while (isdigit(c = getch()))
		num1 = (num1 * 10) + (c - '0');

	switch (c) {
	case ';':
		num2 = 0;
		while (isdigit(c = getch()))
			num2 = (num2 * 10) + (c - '0');
		switch (c) {
		case 'R':
			MoveToCursor(--num1, --num2);
			break;
		case 'H':
			Eow();
			Bol();
			break;
		default:
			complain(unsupported);
		}
		break;
	case 'A':
		PrevLine();
		break;
	case 'B':
		NextLine();
		break;
	case 'C':
		ForChar();
		break;
	case 'D':
		BackChar();
		break;
	case 'H':
		Bow();
		break;
	case 'J':
		if (num1 == 2) {
			ClAndRedraw();
			break;
		}
 	case 'M':		/* Enter */
 		PopMark();
 		break;
 	case 'P':		/* PF1 */
 		ExecCmd((data_obj *) FindCmd(IncFSearch));
 		break;
 	case 'Q':		/* PF2 */
 		ExecCmd((data_obj *) FindCmd(QRepSearch));
 		break;
 	case 'R':		/* PF3 */
 		WtModBuf();
 		Leave();
 		break;
 	case 'S':		/* PF4 */
 		KillEOL();
 		break;
 	case 'l':		/* , */
 		DelNChar();
 		break;
 	case 'm':		/* - */
 		DelNWord();
 		break;
 	case 'n':		/* . */
 		SetMark();
 		break;
 	case 'p':		/* 0 */
 		Bol();
 		NextLine();
 		break;
 	case 'q':		/* 1 */
 		ForWord();
 		break;
 	case 'r':		/* 2 */
 		ForChar();
 		Eol();
 		break;
 	case 's':		/* 3 */
 		Yank();
 		break;
 	case 't':		/* 4 */
 		ExecCmd((data_obj *) FindCmd(ForSearch));
 		break;
 	case 'u':		/* 5 */
 		ExecCmd((data_obj *) FindCmd(RevSearch));
 		break;
 	case 'v':		/* 6 */
 		DelReg();
 		break;
 	case 'w':		/* 7 */
 		PrevPage();
 		break;
 	case 'x':		/* 8 */
 		NextPage();
 		break;
 	case 'y':		/* 9 */
 		DelPWord();
 		break;
	case 'z':	/* Sun function keys send <esc>[Nz */
		switch(num1) {
			case 193:	/* L2 */
				SetMark();
				break;
			case 194:	/* L3 */
				PopMark();
				break;
			case 195:	/* L4 */
				DelReg();
				break;
			case 208:	/* R1 */
				ExecCmd((data_obj *) FindCmd(QRepSearch));
				break;
			case 209:	/* R2 */
				ExecCmd((data_obj *) FindCmd(IncFSearch));
				break;
			case 210:	/* R3 */
				WtModBuf();
				break;
			case 211:	/* R4 */
				ExecCmd((data_obj *) FindCmd(RepSearch));
				break;
			case 212:	/* R5 */
				ExecCmd((data_obj *) FindCmd(IncRSearch));
				break;
			case 213:	/* R6 */
				Leave();
				break;
			case 214:	/* R7 */
				BackWord();
				break;
			case 215:	/* R8 == UpArrow */
				break;
			case 216:	/* R9 */
				ForWord();
				break;
			case 217:	/* R10 == LeftArrow */
				break;
			case 218:	/* R11 */
				NextWindow();
				break;
			case 219:	/* R12 == RightArrow */
				break;
			case 220:	/* R13 */
			case 221:	/* R14 == DownArrow */
				break;
			case 222:	/* R15 */
			case 225:	/* F2 */
			case 226:	/* F3 */
			case 227:	/* F4 */
				break;
			case 228:	/* F5 */
				break;
			case 229:	/* F6 */
				break;
			case 230:	/* F7 */
				break;
			case 231:	/* F8 */
				break;
			case 232:	/* F9 */
				break;
			default:
				num1 = -1;	/* Hack flags failure */
				break;
		}
		if (num1 >= 0)
			break;
	default:
		complain(unsupported);
	}
}
#endif /* ANSICODES */

void
NotModified()
{
	unmodify();
}

void
SetLMargin()
{
	LMargin = calc_pos(linebuf, curchar);
}

void
SetRMargin()
{
	RMargin = calc_pos(linebuf, curchar);
}