/*
 *
 * zle_utils.c - miscellaneous line editor utilities
 *
 * This file is part of zsh, the Z shell.
 *
 * This software is Copyright 1992 by Paul Falstad
 *
 * Permission is hereby granted to copy, reproduce, redistribute or otherwise
 * use this software as long as: there is no monetary profit gained
 * specifically from the use or reproduction of this software, it is not
 * sold, rented, traded or otherwise marketed, and this copyright notice is
 * included prominently in any copy made.
 *
 * The author make no claims as to the fitness or correctness of this software
 * for any use whatsoever, and it is provided as is. Any use of this software
 * is at the user's own risk.
 *
 */

#define ZLE
#include "zsh.h"

/* make sure that the line buffer has at least sz chars */

void sizeline(sz)		/**/
int sz;
{
    while (sz > linesz)
	line = (unsigned char *)realloc(line, (linesz *= 4) + 1);
}

/* insert space for ct chars at cursor position */

void spaceinline(ct)		/**/
int ct;
{
    int i;

    while (ct + ll > linesz)
	line = (unsigned char *)realloc(line, (linesz *= 4) + 1);
    for (i = ll; i >= cs; i--)
	line[i + ct] = line[i];
    ll += ct;
    line[ll] = '\0';
}

void backkill(ct, dir)		/**/
int ct;
int dir;
{
    int i = (cs -= ct);

    cut(i, ct, dir);
    while ((line[i] = line[i + ct]))
	i++;
    ll -= ct;
}

void forekill(ct, dir)		/**/
int ct;
int dir;
{
    int i = cs;

    cut(i, ct, dir);
    while ((line[i] = line[i + ct]))
	i++;
    ll -= ct;
}

extern owrite;

void cut(i, ct, dir)		/**/
int i;
int ct;
int dir;
{
    if (vibufspec) {
	if (owrite || !vibuf[vibufspec]) {
	    if (vibuf[vibufspec])
		free(vibuf[vibufspec]);
	    vibuf[vibufspec] = (char *)zalloc(ct + 1);
	    ztrncpy(vibuf[vibufspec], UTOSCP(line + i), ct);
	} else {
	    int len = strlen(vibuf[vibufspec]);

	    vibuf[vibufspec] = realloc(vibuf[vibufspec], ct + len);
	    ztrncpy(vibuf[vibufspec] + len, UTOSCP(line + i), ct);
	}
	vibufspec = 0;
	return;
    }
    if (!cutbuf)
	cutbuf = ztrdup("");
    else if (!(lastcmd & ZLE_KILL)) {
	kringnum = (kringnum + 1) & (KRINGCT - 1);
	if (kring[kringnum])
	    free(kring[kringnum]);
	kring[kringnum] = cutbuf;
	cutbuf = ztrdup("");
    }
    if (dir) {
	char *s = (char *)zalloc(strlen(cutbuf) + ct + 1);

	strncpy(s, (char *)line + i, ct);
	strcpy(s + ct, cutbuf);
	free(cutbuf);
	cutbuf = s;
    } else {
	int x;

	cutbuf = realloc(cutbuf, (x = strlen(cutbuf)) + ct + 1);
	ztrncpy(cutbuf + x, UTOSCP(line + i), ct);
    }
}

void backdel(ct)		/**/
int ct;
{
    int i = (cs -= ct);

    while ((line[i] = line[i + ct]))
	i++;
    ll -= ct;
}

void foredel(ct)		/**/
int ct;
{
    int i = cs;

    while ((line[i] = line[i + ct]))
	i++;
    ll -= ct;
}

void setline(s)			/**/
char *s;
{
    sizeline(strlen(s));
    strcpy((char *)line, s);
    cs = ll = strlen(s);
    if (cs && bindtab == altbindtab)
	cs--;
}

void sethistline(s)		/**/
unsigned char *s;
{
    setline(UTOSCP(s));
    for (s = line; *s; s++)
	if (*s == STOUC(HISTSPACE))
	    *s = ' ';
}

int findbol()
{				/**/
    int x = cs;

    while (x > 0 && line[x - 1] != '\n')
	x--;
    return x;
}

int findeol()
{				/**/
    int x = cs;

    while (x != ll && line[x] != '\n')
	x++;
    return x;
}

void findline(a, b)		/**/
int *a;
int *b;
{
    *a = findbol();
    *b = findeol();
}

static int lastlinelen;

void initundo()
{				/**/
    int t0;

    for (t0 = 0; t0 != UNDOCT; t0++)
	undos[t0].change = NULL;
    undoct = 0;
    lastline = (unsigned char *)zalloc(lastlinelen = (ll + 1 < 32) ? 32 : ll + 1);
    strcpy((char *)lastline, (char *)line);
    lastcs = cs;
}

void addundo()
{				/**/
    int pf, sf;
    unsigned char *s, *s2, *t, *t2;
    struct undoent *ue;

    for (s = line, t = lastline; *s && *s == *t; s++, t++);
    if (!*s && !*t)
	return;
    pf = s - line;
    for (s2 = (unsigned char *)line + strlen((char *)line),
	 t2 = lastline + strlen((char *)lastline);
	 s2 > s && t > t2 && s2[-1] == t2[-1]; s2--, t2--);
    sf = strlen((char *)s2);
    ue = undos + (undoct = (UNDOCT - 1) & (undoct + 1));
    ue->pref = pf;
    ue->suff = sf;
    ue->len = t2 - t;
    ue->cs = lastcs;
    strncpy(ue->change = (char *)halloc(ue->len), (char *)t, ue->len);
    while (ll + 1 > lastlinelen) {
	free(lastline);
	lastline = (unsigned char *)zalloc(lastlinelen *= 2);
    }
    strcpy((char *)lastline, (char *)line);
    lastcs = cs;
}

int hstrncmp(s, t, len)		/**/
char *s;
char *t;
int len;
{
    while (len && *s && (*s == *t || (*s == ' ' && *t == HISTSPACE) ||
			 (*s == HISTSPACE && *t == ' ')))
	s++, t++, len--;
    return len;
}

int hstrcmp(s, t)		/**/
char *s;
char *t;
{
    while (*s && (*s == *t || (*s == ' ' && *t == HISTSPACE) ||
		  (*s == HISTSPACE && *t == ' ')))
	s++, t++;
    return !(*s == '\0' && *t == '\0');
}

char *hstrnstr(s, t, len)	/**/
char *s;
char *t;
int len;
{
    for (; *s; s++)
	if (!hstrncmp(t, s, len))
	    return s;
    return NULL;
}