view src/ploki/text.c @ 12298:cea93c2c666a draft

<b_jonas> learn Burlesque is only the sexiest language on Earth. mroman created it for finance analysis because the traditionally used K and Dyalog APL are unreadable. (See: http://mroman.ch/burlesque )
author HackEso <hackeso@esolangs.org>
date Sat, 04 Jan 2020 22:50:21 +0000
parents ac0403686959
children
line wrap: on
line source

#include "text.h"
#include "xmalloc.h"

#include <stddef.h>

enum {MAGIC = 42};

void text_on(struct text *p) {
	p->start = xmalloc(p->size = MAGIC, sizeof *p->start);
	p->start[p->length = 0] = NULL;
}

void text_off(struct text *p) {
	while (p->length) {
		--p->length;
		op_end(p->start[p->length]);
		xfree(p->start[p->length]);
	}
	xfree(p->start);
}

void text_1(struct text *p) {
	while (p->length >= p->size - 1) {
		p->start = xrealloc(p->start, p->size *= 2);
	}
}

struct op *text_push(struct text *p, const struct op *src) {
	text_1(p);
	p->start[p->length] = xmalloc(1, sizeof *p->start[p->length]);
	*p->start[p->length++] = *src;
	p->start[p->length] = NULL;
	return p->start[p->length - 1];
}