utils.c

#include "marisa.h"

extern editorConfig E;
wchar_t *
stows (const char *s, size_t n)
{
	char *mbs = strndup(s, n);
	/* used to count number of potential wide characters */
	size_t wcn = mbstowcs(NULL, mbs, 0);

	wchar_t *wcs = calloc(wcn + 1, sizeof(wchar_t));
	if (!wcs) return free(mbs), NULL;

	size_t wcr = mbstowcs(wcs, mbs, wcn);
	if (wcr == (size_t) -1) return free(mbs), free(wcs), NULL;

	free(mbs);
	return wcs;
}

char *
wstos (const wchar_t *s, size_t n)
{
    wchar_t *wcs = calloc(n + 1, sizeof(wchar_t));
    if (!wcs)
        return NULL;
    wcsncpy(wcs, s, n);

    size_t mbn = wcstombs(NULL, wcs, 0);
    char *mbs = calloc(mbn + 1, sizeof(char));
    if (!mbs)
        return free(wcs), NULL;

    size_t mbr = wcstombs(mbs, wcs, mbn);
    if (mbr == (size_t)-1)
        return free(mbs), free(wcs), NULL;

    free(wcs);
    return mbs;
}

wchar_t *
dupstr (const wchar_t *s, size_t n)
{
    wchar_t *r = calloc(n + 1, sizeof(wchar_t));
    if (!r)
        return r;
    wmemcpy(r, s, n);
    return r;
}

const char *
trimleft (const char *s)
{
   if (!s)
      return NULL;
   while (*s && isspace(*s))
      s++;
   return s;
}

void
cursor_set_color_rgb (unsigned char red, unsigned char green, unsigned char blue)
{
    printf("\e]12;#%.2x%.2x%.2x\a", red, green, blue);
    fflush(stdout);
}

/* end up on next word's last character */
void
nextWord (void)
{
	/* using variables because easier to type */
	erow *currentRow = &(BUFFER->row[FRAME->cy]);
	int cx = FRAME->cx;
	int cy = FRAME->cy;

	/* bound checking */
	if (cy == BUFFER->numrows)
	{
		return;
	}
	else if (cx == currentRow->size)
	{
		editorMoveCursor(KEY_RIGHT);
		return;
	}

	/* skip consecutive whitescpace */
	while (cx + 1 < currentRow->size &&
	    (iswspace(currentRow->chars[cx + 1]) || iswpunct(currentRow->chars[cx + 1])))
	{
		cx += 1;
	}

	/* move to beginning on the word */
	cx += 1;

	for (int i = cx; i < currentRow->size; i++)
	{
		if (iswspace(currentRow->chars[i]) || iswpunct(currentRow->chars[i]))
		{
			FRAME->cx = i;
			return;
		}
	}

	FRAME->cx = currentRow->size;
}

/* end up on previous word's beginning character */
void
prevWord (void)
{
	/* using variables because easier to type */
	erow *currentRow = &(BUFFER->row[FRAME->cy]);
	int cx = FRAME->cx;

	/* bound checking */
	if (cx == 0)
	{
		editorMoveCursor(KEY_LEFT);
		return;
	}

	/* skip space and punctuation, needed because we want to end up at the beginning on the previous word */
	while (--cx != 0 &&
	    (iswspace(currentRow->chars[cx - 1]) || iswpunct(currentRow->chars[cx - 1])))
	{
		cx -= 1;
	}

	/* move to ending of the word */
	cx -= 1;

	for (int i = cx; i > 0; i--)
	{
		if (iswspace(currentRow->chars[i]) || iswpunct(currentRow->chars[i]))
		{
			FRAME->cx = i + 1;
			return;
		}
	}
	FRAME->cx = 0;
}

void
deleteNextWord (void)
{
	/* using variables because easier to type */
	erow *currentRow = &(BUFFER->row[FRAME->cy]);
	int cx = FRAME->cx;

	int i = cx > 0 ? cx : 0;

	if (i == currentRow->size)
	{
		editorMoveCursor(KEY_RIGHT);
		editorDelChar();
		return;
	}

	/* delete consecutive whitescpace */
	while (iswspace(currentRow->chars[i]) || iswpunct(currentRow->chars[i]))
	{
		bufferRowDelChar(currentRow, i);
	}

	while(i < currentRow->size)
	{
		if (iswspace(currentRow->chars[i]) || iswpunct(currentRow->chars[i]))
		{
			bufferRowDelChar(currentRow, i);
			break;
		}

		bufferRowDelChar(currentRow, i);
	}

	FRAME->cx = i;
}

void
deletePrevWord (void)
{
	if (FRAME->cy != 0 && FRAME->cx == 0)
	{
		editorDelChar();
		return;
	}
	else if (FRAME->cx != 0)
	{
		prevWord();
		deleteNextWord();
	}
}