[qwaq] Add an editor buffer

It's a fairly high-level wrapper for TextBuffer in that it implements
file ops (load/save), searching, navigation, and formatting (simple
line-oriented with tab stops (currently at 4 spaces)).
This commit is contained in:
Bill Currie 2020-03-22 20:51:55 +09:00
parent 4dbf280012
commit ee9d3a36ab
6 changed files with 1046 additions and 4 deletions

View file

@ -27,6 +27,7 @@ qwaq_app_dat_src= \
qwaq-app.r \
qwaq-button.r \
qwaq-draw.r \
qwaq-editbuffer.r \
qwaq-garray.r \
qwaq-group.r \
qwaq-listener.r \
@ -41,7 +42,11 @@ qwaq_curses_libs= \
$(top_builddir)/libs/video/targets/libvid_common.la \
$(top_builddir)/libs/console/libQFconsole.la \
$(top_builddir)/libs/gib/libQFgib.la
qwaq_curses_SOURCES=main.c qwaq-curses.c qwaq-input.c
qwaq_curses_SOURCES= \
main.c \
qwaq-curses.c \
qwaq-editbuffer-bi.c \
qwaq-input.c
qwaq_curses_LDADD= $(qwaq_curses_libs) $(QWAQ_LIBS) \
$(PANEL_LIBS) $(CURSES_LIBS) $(PTHREAD_LDFLAGS) $(DL_LIBS)
qwaq_curses_LDFLAGS=

View file

@ -154,9 +154,10 @@ create_progs (void)
PR_Init_Cvars ();
PR_Init (pr);
RUA_Init (pr, 0);
Key_Progs_Init (pr);
PR_Cmds_Init (pr);
BI_Init (pr);
Key_Progs_Init (pr); // FIXME not all threads
PR_Cmds_Init (pr); // FIXME not all threads
BI_Init (pr); // FIXME not all threads
QWAQ_EditBuffer_Init (pr); // FIXME not all threads
return pr;
}

View file

@ -0,0 +1,908 @@
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <ctype.h>
#include <stdlib.h>
#include <string.h>
#include "QF/progs.h"
#include "QF/quakeio.h"
#include "QF/txtbuffer.h"
#include "qwaq.h"
#include "qwaq-editbuffer.h"
#define always_inline inline __attribute__((__always_inline__))
typedef struct editbuffer_s {
void *freenext; // for PR_RESMAP
txtbuffer_t *txtbuffer;
int modified;
int tabSize;
} editbuffer_t;
typedef struct qwaq_ebresources_s {
progs_t *pr;
PR_RESMAP (editbuffer_t) buffers;
} qwaq_ebresources_t;
static editbuffer_t *
editbuffer_new (qwaq_ebresources_t *res)
{
PR_RESNEW (editbuffer_t, res->buffers);
}
static void
editbuffer_free (qwaq_ebresources_t *res, editbuffer_t *buffer)
{
PR_RESFREE (editbuffer_t, res->buffers, buffer);
}
static void
editbuffer_reset (qwaq_ebresources_t *res)
{
PR_RESRESET (editbuffer_t, res->buffers);
}
static inline editbuffer_t *
editbuffer_get (qwaq_ebresources_t *res, unsigned index)
{
PR_RESGET (res->buffers, index);
}
static inline int
editbuffer_index (qwaq_ebresources_t *res, editbuffer_t *buffer)
{
PR_RESINDEX (res->buffers, buffer);
}
static always_inline editbuffer_t * __attribute__((pure))
get_editbuffer (qwaq_ebresources_t *res, const char *name, int handle)
{
editbuffer_t *buffer = editbuffer_get (res, handle);
if (!buffer || !buffer->txtbuffer) {
PR_RunError (res->pr, "invalid edit buffer passed to %s", name + 3);
}
return buffer;
}
static always_inline int
isword (unsigned char c)
{
return c >= 128 || c == '_' || isalnum(c);
}
static always_inline unsigned
spanGap (txtbuffer_t *buffer, unsigned ptr)
{
return ptr < buffer->gapOffset ? ptr : ptr + buffer->gapSize;
}
static always_inline char
getChar (txtbuffer_t *buffer, unsigned ptr)
{
return buffer->text[spanGap (buffer, ptr)];
}
static always_inline unsigned
nextChar (txtbuffer_t *buffer, unsigned ptr)
{
if (ptr < buffer->textSize && getChar (buffer, ptr) != '\n') {
return ptr + 1;
}
return ptr;
}
static always_inline unsigned
prevChar (txtbuffer_t *buffer, unsigned ptr)
{
if (ptr > 0 && getChar (buffer, ptr - 1) != '\n') {
return ptr - 1;
}
return ptr;
}
static always_inline unsigned __attribute__((pure))
nextNonSpace (txtbuffer_t *buffer, unsigned ptr)
{
while (ptr < buffer->textSize) {
char c = getChar (buffer, ptr);
if (!isspace (c) || c == '\n') {
break;
}
ptr++;
}
return ptr;
}
static always_inline unsigned
prevNonSpace (txtbuffer_t *buffer, unsigned ptr)
{
while (ptr > 0) {
char c = getChar (buffer, ptr - 1);
if (!isspace (c) || c == '\n') {
break;
}
ptr--;
}
return ptr;
}
static always_inline unsigned __attribute__((pure))
nextWord (txtbuffer_t *buffer, unsigned ptr)
{
if (buffer->textSize && ptr < buffer->textSize - 1) {
while (ptr < buffer->textSize) {
char c = getChar (buffer, ptr);
if (!isword (c)) {
break;
}
ptr++;
}
while (ptr < buffer->textSize) {
char c = getChar (buffer, ptr);
if (c == '\n') {
return ptr;
}
if (isword (c)) {
break;
}
ptr++;
}
}
return ptr;
}
static always_inline unsigned
prevWord (txtbuffer_t *buffer, unsigned ptr)
{
if (ptr > 0) {
while (ptr > 0) {
char c = getChar (buffer, ptr - 1);
if (!isword (c)) {
break;
}
ptr--;
}
while (ptr > 0) {
char c = getChar (buffer, ptr - 1);
if (c == '\n') {
return ptr;
}
if (isword (c)) {
break;
}
ptr--;
}
}
return ptr;
}
static always_inline unsigned __attribute__((pure))
nextLine (txtbuffer_t *buffer, unsigned ptr)
{
unsigned oldptr = ptr;
while (ptr < buffer->textSize && getChar (buffer, ptr++) != '\n') {
}
if (ptr == buffer->textSize && ptr > 0
&& getChar (buffer, ptr - 1) != '\n') {
return oldptr;
}
return ptr;
}
static always_inline unsigned
prevLine (txtbuffer_t *buffer, unsigned ptr)
{
if (ptr) {
ptr--;
while (ptr > 0 && getChar (buffer, ptr - 1) != '\n') {
ptr--;
}
}
return ptr;
}
static always_inline unsigned
charPos (txtbuffer_t *buffer, unsigned ptr, unsigned target, int tabSize)
{
unsigned pos = 0;
while (ptr < target) {
if (getChar (buffer, ptr) == '\t') {
pos += tabSize - (pos % tabSize) - 1; // -1 for ++
}
pos++;
ptr++;
}
return pos;
}
static always_inline unsigned __attribute__((pure))
charPtr (txtbuffer_t *buffer, unsigned ptr, unsigned target, int tabSize)
{
unsigned pos = 0;
while (pos < target && ptr < buffer->textSize
&& getChar (buffer, ptr) != '\n') {
if (getChar (buffer, ptr) == '\t') {
pos += tabSize - (pos % tabSize) - 1; // -1 for ++
}
pos++;
ptr++;
}
if (pos > target) {
ptr--;
}
return ptr;
}
static always_inline unsigned __attribute__((pure))
getEOW (txtbuffer_t *buffer, unsigned ptr)
{
while (ptr < buffer->textSize) {
char c = getChar (buffer, ptr);
if (!isword (c)) {
break;
}
ptr++;
}
return ptr;
}
static always_inline unsigned
getBOW (txtbuffer_t *buffer, unsigned ptr)
{
while (ptr > 0) {
char c = getChar (buffer, ptr - 1);
if (!isword (c)) {
break;
}
ptr--;
}
return ptr;
}
static always_inline unsigned __attribute__((pure))
getEOL (txtbuffer_t *buffer, unsigned ptr)
{
while (ptr < buffer->textSize) {
char c = getChar (buffer, ptr);
if (c == '\n') {
break;
}
ptr++;
}
return ptr;
}
static always_inline unsigned
getBOL (txtbuffer_t *buffer, unsigned ptr)
{
while (ptr > 0) {
char c = getChar (buffer, ptr - 1);
if (c == '\n') {
break;
}
ptr--;
}
return ptr;
}
static always_inline unsigned
_countLines (txtbuffer_t *buffer, unsigned start, unsigned len)
{
unsigned count = 0;
char *ptr = buffer->text + start;
while (len-- > 0) {
count += *ptr++ == '\n';
}
return count;
}
static always_inline unsigned
countLines (txtbuffer_t *buffer, unsigned start, unsigned len)
{
if (start < buffer->gapOffset) {
if (start + len <= buffer->gapOffset) {
return _countLines (buffer, start, len);
} else {
return _countLines (buffer, start, buffer->gapOffset - start)
+ _countLines (buffer, buffer->gapOffset + buffer->gapSize,
len - (buffer->gapOffset - start));
}
} else {
return _countLines (buffer, start + buffer->gapOffset, len);
}
}
static const char *
_search (txtbuffer_t *buffer, const char *ptr, unsigned len,
const char *str, unsigned slen, int dir,
int (*cmp)(const char *, const char *, size_t))
{
while (len-- > 0) {
if (*ptr == *str) {
unsigned offset = ptr - buffer->text;
if (offset > buffer->gapOffset
|| offset + slen < buffer->gapOffset) {
// search does not span gap
if (cmp (ptr, str, slen) == 0) {
return ptr;
}
} else {
// search spans gap
unsigned l = buffer->gapOffset - offset;
if (cmp (ptr, str, l) == 0
&& cmp (ptr + l + buffer->gapSize,
str + l, slen - l) == 0) {
return ptr;
}
}
} else {
ptr += dir;
}
}
return 0;
}
static int
search (txtbuffer_t *buffer, const eb_sel_t *sel, const char *str, int dir,
eb_sel_t *find, int (*cmp)(const char *, const char *, size_t))
{
unsigned start = sel->start;
unsigned slen = strlen (str);
unsigned end = start + sel->length - slen;
const char *found = 0;
find->start = 0;
find->length = 0;
if (sel->length >= slen) {
if (dir < 0) {
const char *s = buffer->text + spanGap (buffer, end);
if ((start < buffer->gapOffset && end <= buffer->gapOffset)
|| start > buffer->gapOffset) {
found = _search (buffer, s, end - start, str, slen, -1, cmp);
} else {
unsigned l = end - (buffer->gapOffset + buffer->gapSize);
found = _search (buffer, s, l, str, slen, 1, cmp);
if (!found) {
s -= l + buffer->gapSize;
l = buffer->gapOffset - start;
found = _search (buffer, s, l, str, slen, 1, cmp);
}
}
} else {
const char *s = buffer->text + spanGap (buffer, start);
if ((start < buffer->gapOffset && end <= buffer->gapOffset)
|| start > buffer->gapOffset) {
found = _search (buffer, s, end - start, str, slen, 1, cmp);
} else {
unsigned l = buffer->gapOffset - start;
found = _search (buffer, s, l, str, slen, 1, cmp);
if (!found) {
s += l + buffer->gapSize;
l = end - start - l;
found = _search (buffer, s, l, str, slen, 1, cmp);
}
}
}
}
if (found) {
unsigned offset = found - buffer->text;
if (offset > buffer->gapOffset) {
offset -= buffer->gapSize;
}
find->start = offset;
find->length = slen;
return 1;
}
return 0;
}
static int
saveFile (txtbuffer_t *buffer, const char *filename)
{
QFile *file = Qopen (filename, "wt");
if (file) {
unsigned offset = buffer->gapOffset + buffer->gapSize;
Qwrite (file, buffer->text, buffer->gapOffset);
Qwrite (file, buffer->text + offset, buffer->textSize - offset);
Qclose (file);
return 1;
}
return 0;
}
static int
loadFile (txtbuffer_t *buffer, const char *filename)
{
QFile *file = Qopen (filename, "rtz");
char *dst;
unsigned len;
if (file) {
len = Qfilesize (file);
// ensure buffer is empty
TextBuffer_DeleteAt (buffer, 0, buffer->textSize);
dst = TextBuffer_OpenGap (buffer, 0, len);
Qread (file, dst, len);
buffer->textSize += len;
buffer->gapOffset += len;
buffer->gapSize -= len;
Qclose (file);
return 1;
}
return 0;
}
static unsigned
formatLine (txtbuffer_t *buffer, unsigned linePtr, unsigned xpos,
int *dst, unsigned length, eb_sel_t *selection, eb_color_t *colors,
int tabSize)
{
unsigned pos = 0;
unsigned ptr = linePtr;
unsigned sels = selection->start;
unsigned sele = selection->start + selection->length;
int coln = (colors->normal & ~0xff);
int cols = (colors->selected & ~0xff);
int col;
byte c;
int count;
while (pos < xpos && ptr < buffer->textSize) {
c = getChar (buffer, ptr);
if (c == '\n') {
break;
}
if (c == '\t') {
pos += tabSize - (pos % tabSize) - 1; // -1 for ++
}
pos++;
ptr++;
}
col = ptr >= sels && ptr < sele ? cols : coln;
while (xpos < pos && length-- > 0) {
*dst++ = col | ' ';
}
while (length > 0) {
col = ptr >= sels && ptr < sele ? cols : coln;
c = getChar (buffer, ptr++);
if (c == '\n') {
break;
}
count = 1;
if (c == '\t') {
c = ' ';
count = tabSize - (pos % tabSize);
}
while (length-- > 0 && count-- > 0) {
*dst++ = col | c;
pos++;
}
}
col = ptr >= sels && ptr < sele ? cols : coln;
while (length-- > 0) {
*dst++ = col | ' ';
}
return ptr;
}
//===
static void
bi_i_EditBuffer__init (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
txtbuffer_t *txtbuffer = TextBuffer_Create ();
editbuffer_t *buffer = editbuffer_new (res);
buffer->txtbuffer = txtbuffer;
buffer->tabSize = 4; // FIXME
R_INT (pr) = editbuffer_index (res, buffer);
}
static void
bi_i_EditBuffer__initWithFile_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
const char *filename = P_GSTRING (pr, 0);
txtbuffer_t *txtbuffer = TextBuffer_Create ();
editbuffer_t *buffer = editbuffer_new (res);
buffer->txtbuffer = txtbuffer;
buffer->tabSize = 4; // FIXME
loadFile (buffer->txtbuffer, filename);
R_INT (pr) = editbuffer_index (res, buffer);
}
static void
bi_i_EditBuffer__dealloc (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
TextBuffer_Destroy (buffer->txtbuffer);
editbuffer_free (res, buffer);
}
static void
bi_i_EditBuffer__nextChar_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = nextChar (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__prevChar_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = prevChar (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__nextNonSpace_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = nextNonSpace (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__prevNonSpace_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = prevNonSpace (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__nextWord_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = nextWord (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__prevWord_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = prevWord (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__nextLine_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = nextLine (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__prevLine_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = prevLine (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__nextLine__ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
unsigned count = P_UINT (pr, 3);
while (count-- > 0) {
unsigned oldptr = ptr;
ptr = nextLine (buffer->txtbuffer, ptr);
if (ptr == buffer->txtbuffer->textSize && ptr > 0
&& getChar (buffer->txtbuffer, ptr - 1) != '\n') {
ptr = oldptr;
break;
}
}
R_INT (pr) = ptr;
}
static void
bi_i_EditBuffer__prevLine__ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
unsigned count = P_UINT (pr, 3);
while (ptr && count-- > 0) {
ptr = prevLine (buffer->txtbuffer, ptr);
}
R_INT (pr) = ptr;
}
static void
bi_i_EditBuffer__charPos_at_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
unsigned target = P_UINT (pr, 3);
int tabSize = buffer->tabSize;
R_INT (pr) = charPos (buffer->txtbuffer, ptr, target, tabSize);
}
static void
bi_i_EditBuffer__charPtr_at_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
unsigned target = P_UINT (pr, 3);
int tabSize = buffer->tabSize;
R_INT (pr) = charPtr (buffer->txtbuffer, ptr, target, tabSize);
}
static void
bi_i_EditBuffer__getWord_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
unsigned s = getBOW (buffer->txtbuffer, ptr);
unsigned e = getEOW (buffer->txtbuffer, ptr);
R_PACKED (pr, eb_sel_t).start = s;
R_PACKED (pr, eb_sel_t).length = e - s;
}
static void
bi_i_EditBuffer__getLine_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
unsigned s = getBOL (buffer->txtbuffer, ptr);
unsigned e = getEOL (buffer->txtbuffer, ptr);
R_PACKED (pr, eb_sel_t).start = s;
R_PACKED (pr, eb_sel_t).length = e - s;
}
static void
bi_i_EditBuffer__getBOL_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = getBOL (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__getEOL_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned ptr = P_UINT (pr, 2);
R_INT (pr) = getEOL (buffer->txtbuffer, ptr);
}
static void
bi_i_EditBuffer__getBOT (progs_t *pr)
{
//qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
//int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
//editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
R_INT (pr) = 0;
}
static void
bi_i_EditBuffer__getEOT (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
R_INT (pr) = buffer->txtbuffer->textSize;
}
static void
bi_i_EditBuffer__countLines_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
__auto_type selection = &P_PACKED (pr, eb_sel_t, 2);
R_INT (pr) = countLines (buffer->txtbuffer,
selection->start, selection->length);
}
static void
bi_i_EditBuffer__search_for_direction_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
__auto_type selection = &P_PACKED (pr, eb_sel_t, 2);
const char *str = P_GSTRING (pr, 3);
int dir = P_INT (pr, 4);
search (buffer->txtbuffer, selection, str, dir, &R_PACKED (pr, eb_sel_t),
strncmp);
}
static void
bi_i_EditBuffer__isearch_for_direction_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
__auto_type selection = &P_PACKED (pr, eb_sel_t, 2);
const char *str = P_GSTRING (pr, 3);
int dir = P_INT (pr, 4);
search (buffer->txtbuffer, selection, str, dir, &R_PACKED (pr, eb_sel_t),
strncasecmp);
}
static void
bi_i_EditBuffer__formatLine_from_into_width_highlight_colors_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
unsigned linePtr = P_UINT (pr, 2);
unsigned xpos = P_UINT (pr, 3);
int *dst = (int *) P_GPOINTER (pr, 4);
unsigned length = P_UINT (pr, 5);
__auto_type selection = &P_PACKED (pr, eb_sel_t, 6);
__auto_type colors = &P_PACKED (pr, eb_color_t, 7);
int tabSize = buffer->tabSize;
unsigned ptr;
ptr = formatLine (buffer->txtbuffer, linePtr, xpos, dst, length, selection,
colors, tabSize);
R_INT (pr) = ptr;
}
static void
bi_i_EditBuffer__modified (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
R_INT (pr) = buffer->modified;
}
static void
bi_i_EditBuffer__textSize (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
R_INT (pr) = buffer->txtbuffer->textSize;
}
static void
bi_i_EditBuffer__saveFile_ (progs_t *pr)
{
qwaq_ebresources_t *res = PR_Resources_Find (pr, "qwaq-editbuffer");
int buffer_id = P_STRUCT (pr, qwaq_editbuffer_t, 0).buffer;
editbuffer_t *buffer = get_editbuffer (res, __FUNCTION__, buffer_id);
const char *filename = P_GSTRING (pr, 2);
if (saveFile (buffer->txtbuffer, filename)) {
buffer->modified = 0;
}
}
static void
qwaq_ebresources_clear (progs_t *pr, void *data)
{
__auto_type res = (qwaq_ebresources_t *) data;
for (size_t i = 0; i < res->buffers._size; i++) {
editbuffer_t *buffer = editbuffer_get (res, ~i);
if (buffer->txtbuffer) {
TextBuffer_Destroy (buffer->txtbuffer);
buffer->txtbuffer = 0;
}
}
editbuffer_reset (res);
}
static builtin_t builtins[] = {
{"_i_EditBuffer__init", bi_i_EditBuffer__init, -1},
{"_i_EditBuffer__initWithFile_", bi_i_EditBuffer__initWithFile_, -1},
{"_i_EditBuffer__dealloc", bi_i_EditBuffer__dealloc, -1},
{"_i_EditBuffer__nextChar_", bi_i_EditBuffer__nextChar_, -1},
{"_i_EditBuffer__prevChar_", bi_i_EditBuffer__prevChar_, -1},
{"_i_EditBuffer__nextNonSpace_", bi_i_EditBuffer__nextNonSpace_, -1},
{"_i_EditBuffer__prevNonSpace_", bi_i_EditBuffer__prevNonSpace_, -1},
{"_i_EditBuffer__nextWord_", bi_i_EditBuffer__nextWord_, -1},
{"_i_EditBuffer__prevWord_", bi_i_EditBuffer__prevWord_, -1},
{"_i_EditBuffer__nextLine_", bi_i_EditBuffer__nextLine_, -1},
{"_i_EditBuffer__prevLine_", bi_i_EditBuffer__prevLine_, -1},
{"_i_EditBuffer__nextLine__", bi_i_EditBuffer__nextLine__, -1},
{"_i_EditBuffer__prevLine__", bi_i_EditBuffer__prevLine__, -1},
{"_i_EditBuffer__charPos_at_", bi_i_EditBuffer__charPos_at_, -1},
{"_i_EditBuffer__charPtr_at_", bi_i_EditBuffer__charPtr_at_, -1},
{"_i_EditBuffer__getWord_", bi_i_EditBuffer__getWord_, -1},
{"_i_EditBuffer__getLine_", bi_i_EditBuffer__getLine_, -1},
{"_i_EditBuffer__getBOL_", bi_i_EditBuffer__getBOL_, -1},
{"_i_EditBuffer__getEOL_", bi_i_EditBuffer__getEOL_, -1},
{"_i_EditBuffer__getBOT", bi_i_EditBuffer__getBOT, -1},
{"_i_EditBuffer__getEOT", bi_i_EditBuffer__getEOT, -1},
{"_i_EditBuffer__countLines_", bi_i_EditBuffer__countLines_, -1},
{"_i_EditBuffer__search_for_direction_",
bi_i_EditBuffer__search_for_direction_, -1},
{"_i_EditBuffer__isearch_for_direction_",
bi_i_EditBuffer__isearch_for_direction_,-1},
{"_i_EditBuffer__formatLine_from_into_width_highlight_colors_",
bi_i_EditBuffer__formatLine_from_into_width_highlight_colors_, -1},
{"_i_EditBuffer__modified", bi_i_EditBuffer__modified, -1},
{"_i_EditBuffer__textSize", bi_i_EditBuffer__textSize, -1},
{"_i_EditBuffer__saveFile_", bi_i_EditBuffer__saveFile_, -1},
{}
};
void
QWAQ_EditBuffer_Init (progs_t *pr)
{
qwaq_ebresources_t *res = calloc (sizeof (*res), 1);
res->pr = pr;
PR_Resources_Register (pr, "qwaq-editbuffer", res, qwaq_ebresources_clear);
PR_RegisterBuiltins (pr, builtins);
}

View file

@ -0,0 +1,79 @@
#ifndef __qwaq_editbuffer_h
#define __qwaq_editbuffer_h
#ifdef __QFCC__
#include <Object.h>
//FIXME add unsigned to qfcc
#define unsigned int
#define umax 0x7fffffff
#endif//__QFCC__
typedef struct eb_sel_s {
unsigned start;
unsigned length;
} eb_sel_t;
typedef struct eb_color_s {
int normal;
int selected;
} eb_color_t;
#ifdef __QFCC__
@interface EditBuffer : Object
{
struct edit_buffer_s *buffer;
}
-init;
-initWithFile: (string) filename;
- (unsigned) nextChar: (unsigned) charPtr;
- (unsigned) prevChar: (unsigned) charPtr;
- (unsigned) nextNonSpace: (unsigned) charPtr;
- (unsigned) prevNonSpace: (unsigned) charPtr;
- (unsigned) nextWord: (unsigned) wordPtr;
- (unsigned) prevWord: (unsigned) wordPtr;
- (unsigned) nextLine: (unsigned) linePtr;
- (unsigned) prevLine: (unsigned) linePtr;
- (unsigned) nextLine: (unsigned) linePtr : (unsigned) count;
- (unsigned) prevLine: (unsigned) linePtr : (unsigned) count;
- (unsigned) charPos: (unsigned) linePtr at: (unsigned) target;
- (unsigned) charPtr: (unsigned) linePtr at: (unsigned) target;
- (eb_sel_t) getWord: (unsigned) wordPtr;
- (eb_sel_t) getLine: (unsigned) linePtr;
- (unsigned) getBOL: (unsigned) linePtr;
- (unsigned) getEOL: (unsigned) linePtr;
- (unsigned) getBOT;
- (unsigned) getEOT;
- (unsigned) countLines: (eb_sel_t) selection;
- (eb_sel_t) search: (eb_sel_t) selection
for: (string) str
direction: (int) dir;
- (eb_sel_t) isearch: (eb_sel_t) selection
for: (string) str
direction: (int) dir;
- (unsigned) formatLine: (unsigned) linePtr
from: (unsigned) xpos
into: (int *) buf
width: (unsigned) length
highlight: (eb_sel_t) selection
colors: (eb_color_t) colors;
- (BOOL) modified;
- (unsigned) textSize;
- (int) saveFile: (string) fileName;
@end
#else//__QFCC__
#include "QF/pr_obj.h"
typedef struct qwaq_editbuffer_s {
pr_id_t isa;
pointer_t buffer;
} qwaq_editbuffer_t;
#endif//!__QFCC__
#endif//__qwaq_editbuffer_h

View file

@ -0,0 +1,47 @@
#include "qwaq-editbuffer.h"
@implementation EditBuffer
- init = #0;
- initWithFile: (string) filename = #0;
- (void) dealloc = #0;
- (unsigned) nextChar: (unsigned) charPtr = #0;
- (unsigned) prevChar: (unsigned) charPtr = #0;
- (unsigned) nextNonSpace: (unsigned) charPtr = #0;
- (unsigned) prevNonSpace: (unsigned) charPtr = #0;
- (unsigned) nextWord: (unsigned) wordPtr = #0;
- (unsigned) prevWord: (unsigned) wordPtr = #0;
- (unsigned) nextLine: (unsigned) linePtr = #0;
- (unsigned) prevLine: (unsigned) linePtr = #0;
- (unsigned) nextLine: (unsigned) linePtr : (unsigned) count = #0;
- (unsigned) prevLine: (unsigned) linePtr : (unsigned) count = #0;
- (unsigned) charPos: (unsigned) linePtr
at: (unsigned) target = #0;
- (unsigned) charPtr: (unsigned) linePtr
at: (unsigned) target = #0;
- (eb_sel_t) getWord: (unsigned) wordPtr = #0;
- (eb_sel_t) getLine: (unsigned) linePtr = #0;
- (unsigned) getBOL: (unsigned) linePtr = #0;
- (unsigned) getEOL: (unsigned) linePtr = #0;
- (unsigned) getBOT = #0;
- (unsigned) getEOT = #0;
- (unsigned) countLines: (eb_sel_t) selection = #0;
- (eb_sel_t) search: (eb_sel_t) selection
for: (string) str
direction: (int) dir = #0;
- (eb_sel_t) isearch: (eb_sel_t) selection
for: (string) str
direction: (int) dir = #0;
- (unsigned) formatLine: (unsigned) linePtr
from: (unsigned) xpos
into: (int *) buf
width: (unsigned) length
highlight: (eb_sel_t) selection
colors: (eb_color_t) colors = #0;
- (BOOL) modified = #0;
- (unsigned) textSize = #0;
- (int) saveFile: (string) fileName = #0;
@end

View file

@ -3,6 +3,7 @@
#include "QF/darray.h"
#include "QF/progs.h"
#include "QF/sys.h"
typedef struct qwaq_thread_s {
pthread_t thread_id;
@ -15,6 +16,7 @@ typedef struct qwaq_thread_s {
} qwaq_thread_t;
void BI_Init (progs_t *pr);
void QWAQ_EditBuffer_Init (progs_t *pr);
extern struct cbuf_s *qwaq_cbuf;
qwaq_thread_t *create_thread (void *(*thread_func) (qwaq_thread_t *), void *);