faml 0.3.1 → 0.3.2

data/vendor/houdini/houdini_js_e.c

@@ -0,0 +1,90 @@
+#include <assert.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "houdini.h"
+
+static const char JS_ESCAPE[] = {
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+};
+
+int
+houdini_escape_js(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	size_t  i = 0, org, ch;
+
+	while (i < size) {
+		org = i;
+		while (i < size && JS_ESCAPE[src[i]] == 0)
+			i++;
+
+		if (likely(i > org)) {
+			if (unlikely(org == 0)) {
+				if (i >= size)
+					return 0;
+
+				gh_buf_grow(ob, HOUDINI_ESCAPED_SIZE(size));
+			}
+
+			gh_buf_put(ob, src + org, i - org);
+		}
+
+		/* escaping */
+		if (i >= size)
+			break;
+
+		ch = src[i];
+		
+		switch (ch) {
+		case '/':
+			/*
+			 * Escape only if preceded by a lt
+			 */
+			if (i && src[i - 1] == '<')
+				gh_buf_putc(ob, '\\');
+
+			gh_buf_putc(ob, ch);
+			break;
+
+		case '\r':
+			/*
+			 * Escape as \n, and skip the next \n if it's there
+			 */
+			if (i + 1 < size && src[i + 1] == '\n') i++;
+
+		case '\n':
+			/*
+			 * Escape actually as '\','n', not as '\', '\n'
+			 */
+			ch = 'n';
+
+		default:
+			/*
+			 * Normal escaping
+			 */
+			gh_buf_putc(ob, '\\');
+			gh_buf_putc(ob, ch);
+			break;
+		}
+
+		i++;
+	}
+
+	return 1;
+}
+

data/vendor/houdini/houdini_js_u.c

@@ -0,0 +1,60 @@
+#include <assert.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "houdini.h"
+
+int
+houdini_unescape_js(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	size_t  i = 0, org, ch;
+
+	while (i < size) {
+		org = i;
+		while (i < size && src[i] != '\\')
+			i++;
+
+		if (likely(i > org)) {
+			if (unlikely(org == 0)) {
+				if (i >= size)
+					return 0;
+
+				gh_buf_grow(ob, HOUDINI_UNESCAPED_SIZE(size));
+			}
+
+			gh_buf_put(ob, src + org, i - org);
+		}
+
+		/* escaping */
+		if (i == size)
+			break;
+
+		if (++i == size) {
+			gh_buf_putc(ob, '\\');
+			break;
+		}
+
+		ch = src[i];
+
+		switch (ch) {
+		case 'n':
+			ch = '\n';
+			/* pass through */
+
+		case '\\':
+		case '\'':
+		case '\"':
+		case '/':
+			gh_buf_putc(ob, ch);
+			i++;
+			break;
+
+		default:
+			gh_buf_putc(ob, '\\');
+			break;
+		}
+	}
+
+	return 1;
+}
+

data/vendor/houdini/houdini_uri_e.c

@@ -0,0 +1,107 @@
+#include <assert.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "houdini.h"
+
+static const char URL_SAFE[] = {
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 
+	0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 
+	0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+};
+
+static const char URI_SAFE[] = {
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 
+	0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+};
+
+static int
+escape(gh_buf *ob, const uint8_t *src, size_t size,
+	const char *safe_table, bool escape_plus)
+{
+	static const uint8_t hex_chars[] = "0123456789ABCDEF";
+
+	size_t  i = 0, org;
+	uint8_t hex_str[3];
+
+	hex_str[0] = '%';
+
+	while (i < size) {
+		org = i;
+		while (i < size && safe_table[src[i]] != 0)
+			i++;
+
+		if (likely(i > org)) {
+			if (unlikely(org == 0)) {
+				if (i >= size)
+					return 0;
+
+				gh_buf_grow(ob, HOUDINI_ESCAPED_SIZE(size));
+			}
+
+			gh_buf_put(ob, src + org, i - org);
+		}
+
+		/* escaping */
+		if (i >= size)
+			break;
+
+		if (src[i] == ' ' && escape_plus) {
+			gh_buf_putc(ob, '+');
+		} else {
+			hex_str[1] = hex_chars[(src[i] >> 4) & 0xF];
+			hex_str[2] = hex_chars[src[i] & 0xF];
+			gh_buf_put(ob, hex_str, 3);
+		}
+
+		i++;
+	}
+
+	return 1;
+}
+
+int
+houdini_escape_uri(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	return escape(ob, src, size, URI_SAFE, false);
+}
+
+int
+houdini_escape_uri_component(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	return escape(ob, src, size, URL_SAFE, false);
+}
+
+int
+houdini_escape_url(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	return escape(ob, src, size, URL_SAFE, true);
+}
+

data/vendor/houdini/houdini_uri_u.c

@@ -0,0 +1,68 @@
+#include <assert.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "houdini.h"
+
+#define hex2c(c) ((c | 32) % 39 - 9)
+
+static int
+unescape(gh_buf *ob, const uint8_t *src, size_t size, bool unescape_plus)
+{
+	size_t  i = 0, org;
+
+	while (i < size) {
+		org = i;
+		while (i < size && src[i] != '%' && src[i] != '+')
+			i++;
+
+		if (likely(i > org)) {
+			if (unlikely(org == 0)) {
+				if (i >= size)
+					return 0;
+
+				gh_buf_grow(ob, HOUDINI_UNESCAPED_SIZE(size));
+			}
+
+			gh_buf_put(ob, src + org, i - org);
+		}
+
+		/* escaping */
+		if (i >= size)
+			break;
+
+		if (src[i++] == '+') {
+			gh_buf_putc(ob, unescape_plus ? ' ' : '+');
+			continue;
+		}
+
+		if (i + 1 < size && _isxdigit(src[i]) && _isxdigit(src[i + 1])) {
+			unsigned char new_char = (hex2c(src[i]) << 4) + hex2c(src[i + 1]);
+			gh_buf_putc(ob, new_char);
+			i += 2;
+		} else {
+			gh_buf_putc(ob, '%');
+		}
+	}
+
+	return 1;
+}
+
+int
+houdini_unescape_uri(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	return unescape(ob, src, size, false);
+}
+
+int
+houdini_unescape_uri_component(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	return unescape(ob, src, size, false);
+}
+
+int
+houdini_unescape_url(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	return unescape(ob, src, size, true);
+}
+

data/vendor/houdini/houdini_xml_e.c

@@ -0,0 +1,136 @@
+#include <assert.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "houdini.h"
+
+/**
+ * & --> &amp;
+ * < --> &lt;
+ * > --> &gt;
+ * " --> &quot;
+ * ' --> &apos;
+ */
+static const char *LOOKUP_CODES[] = {
+	"", /* reserved: use literal single character */
+	"", /* unused */
+	"", /* reserved: 2 character UTF-8 */
+	"", /* reserved: 3 character UTF-8 */
+	"", /* reserved: 4 character UTF-8 */
+	"?", /* invalid UTF-8 character */
+	"&quot;",
+	"&amp;",
+	"&apos;",
+	"&lt;",
+	"&gt;"
+};
+
+static const char CODE_INVALID = 5;
+
+static const char XML_LOOKUP_TABLE[] = {
+	/* ASCII: 0xxxxxxx */
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 0, 0, 5, 5, 0, 5, 5,
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+	0, 0, 6, 0, 0, 0, 7, 8, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 9, 0,10, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+	0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+
+	/* Invalid UTF-8 char start: 10xxxxxx */
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+	5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
+
+	/* Multibyte UTF-8 */
+
+	/* 2 bytes: 110xxxxx */
+	2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+	2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+
+	/* 3 bytes: 1110xxxx */
+	3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+
+	/* 4 bytes: 11110xxx */
+	4, 4, 4, 4, 4, 4, 4, 4,
+
+	/* Invalid UTF-8: 11111xxx */
+	5, 5, 5, 5, 5, 5, 5, 5,
+};
+
+int
+houdini_escape_xml(gh_buf *ob, const uint8_t *src, size_t size)
+{
+	size_t i = 0;
+	unsigned char code = 0;
+
+	gh_buf_grow(ob, HOUDINI_ESCAPED_SIZE(size));
+
+	while (i < size) {
+		size_t start, end;
+
+		start = end = i;
+
+		while (i < size) {
+			unsigned int byte;
+
+			byte = src[i++];
+			code = XML_LOOKUP_TABLE[byte];
+
+			if (!code) {
+				/* single character used literally */
+			} else if (code >= CODE_INVALID) {
+				break; /* insert lookup code string */
+			} else if (code > size - end) {
+				code = CODE_INVALID; /* truncated UTF-8 character */
+				break;
+			} else {
+				unsigned int chr = byte & (0xff >> code);
+
+				while (--code) {
+					byte = src[i++];
+					if ((byte & 0xc0) != 0x80) {
+						code = CODE_INVALID;
+						break;
+					}
+					chr = (chr << 6) + (byte & 0x3f);
+				}
+
+				switch (i - end) {
+					case 2:
+						if (chr < 0x80)
+							code = CODE_INVALID;
+						break;
+					case 3:
+						if (chr < 0x800 ||
+						    (chr > 0xd7ff && chr < 0xe000) ||
+							chr > 0xfffd)
+							code = CODE_INVALID;
+						break;
+					case 4:
+						if (chr < 0x10000 || chr > 0x10ffff)
+							code = CODE_INVALID;
+						break;
+					default:
+						break;
+				}
+				if (code == CODE_INVALID)
+					break;
+			}
+			end = i;
+		}
+
+		if (end > start)
+			gh_buf_put(ob, src + start, end - start);
+
+		/* escaping */
+		if (end >= size)
+			break;
+
+		gh_buf_puts(ob, LOOKUP_CODES[code]);
+	}
+
+	return 1;
+}