Added this for Anon...

1 files changed, 148 insertions, 0 deletions

diff --git a/xuxuxu.c b/xuxuxu.c
new file mode 100755
index 0000000..ca136d3
--- /dev/null
+++ b/xuxuxu.c
@@ -0,0 +1,148 @@
+/// __  ___   ___  ___   ___  ___   _
+/// \ \/ / | | \ \/ / | | \ \/ / | | |
+///  >  <| |_| |>  <| |_| |>  <| |_| |
+/// /_/\_\\__,_/_/\_\\__,_/_/\_\\__,_|
+///
+/// Copyright (c) 1997 - Ognjen 'xolatile' Milan Robovic
+///
+/// xolatile@chud.cyou - xuxuxu - Braindead simple C source code renderer to PNG image in TempleOS style.
+///
+/// This program is free software, free as in freedom and as in free beer, you can redistribute it and/or modify it under the terms of the GNU
+/// General Public License as published by the Free Software Foundation, either version 3 of the License, or any later version if you wish...
+///
+/// This program is distributed in the hope that it will be useful, but it is probably not, and without any warranty, without even the implied
+/// warranty of merchantability or fitness for a particular purpose, because it is pointless. Please see the GNU (Geenoo) General Public License
+/// for more details, if you dare, it is a lot of text that nobody wants to read...
+
+#define use_png_library
+
+#include "xtandard.h"
+#include "xyntax.h"
+#include "xormat.h"
+
+#define foreground (0xffccccccu)
+#define background (0xff181818u)
+
+#define font_indent ( 8)
+#define font_width  ( 8)
+#define font_height ( 8)
+#define font_count  (96)
+
+static natural * render = null;
+static natural   colour = foreground;
+
+static natural width  = 0;
+static natural height = 0;
+static natural x      = 0;
+static natural y      = 0;
+
+static procedure render_character (character character) {
+	natural_64 font_code [font_count] = {
+		0x0000000000000000,             0x00180018183c3c18,             0x0000000000363636,             0x006c6cfe6cfe6c6c,
+		0x00187ed07c16fc30,             0x0060660c18306606,             0x00dc66b61c36361c,             0x0000000000181818,
+		0x0030180c0c0c1830,             0x000c18303030180c,             0x0000187e3c7e1800,             0x000018187e181800,
+		0x0c18180000000000,             0x000000007e000000,             0x0018180000000000,             0x0000060c18306000,
+		0x003c666e7e76663c,             0x007e181818181c18,             0x007e0c183060663c,             0x003c66603860663c,
+		0x0030307e363c3830,             0x003c6660603e067e,             0x003c66663e060c38,             0x000c0c0c1830607e,
+		0x003c66663c66663c,             0x001c30607c66663c,             0x0018180018180000,             0x0c18180018180000,
+		0x0030180c060c1830,             0x0000007e007e0000,             0x000c18306030180c,             0x001800181830663c,
+		0x003c06765676663c,             0x006666667e66663c,             0x003e66663e66663e,             0x003c66060606663c,
+		0x001e36666666361e,             0x007e06063e06067e,             0x000606063e06067e,             0x003c66667606663c,
+		0x006666667e666666,             0x007e18181818187e,             0x001c36303030307c,             0x0066361e0e1e3666,
+		0x007e060606060606,             0x00c6c6d6d6feeec6,             0x006666767e6e6666,             0x003c66666666663c,
+		0x000606063e66663e,             0x006c36566666663c,             0x006666363e66663e,             0x003c66603c06663c,
+		0x001818181818187e,             0x003c666666666666,             0x00183c6666666666,             0x00c6eefed6d6c6c6,
+		0x0066663c183c6666,             0x001818183c666666,             0x007e060c1830607e,             0x003e06060606063e,
+		0x00006030180c0600,             0x007c60606060607c,             0x000000000000663c,             0xffff000000000000,
+		0x000000000030180c,             0x007c667c603c0000,             0x003e6666663e0606,             0x003c6606663c0000,
+		0x007c6666667c6060,             0x003c067e663c0000,             0x000c0c0c3e0c0c38,             0x3c607c66667c0000,
+		0x00666666663e0606,             0x003c1818181c0018,             0x0e181818181c0018,             0x0066361e36660606,
+		0x003c18181818181c,             0x00c6d6d6fe6c0000,             0x00666666663e0000,             0x003c6666663c0000,
+		0x06063e66663e0000,             0xe0607c66667c0000,             0x000606066e360000,             0x003e603c067c0000,
+		0x00380c0c0c3e0c0c,             0x007c666666660000,             0x00183c6666660000,             0x006cfed6d6c60000,
+		0x00663c183c660000,             0x3c607c6666660000,             0x007e0c18307e0000,             0x003018180e181830,
+		0x0018181818181818,             0x000c18187018180c,             0x000000000062d68c,             0x0000000000000000
+	};
+
+	for (natural offset = 0; offset < font_width * font_height; ++offset) {
+		natural u = offset / font_width + y;
+		natural v = offset % font_width + x;
+
+		render [u * width + v] = ((font_code [(natural) (character - ' ')] >> offset) % 2) ? colour : background;
+	}
+
+	x += font_width + 1;
+}
+
+static procedure render_string (character * string, natural length) {
+	for (natural offset = 0; offset < length; ++offset) {
+		if (string [offset] == '\t') {
+			x += font_width * font_indent;
+		} else if (string [offset] == '\n') {
+			y += font_height + 1;
+			x  = 1;
+		} else {
+			render_character (string [offset]);
+		}
+	}
+}
+
+integer main (none) {
+	natural   index  = 0;
+	natural   length = 0;
+	character * buffer = null;
+
+	character separator [] = ".,:;<=>+-*/%!&~^()[]{}'\" \t\r\n";
+
+	character * keywords [] = {
+		"register", "volatile", "auto",     "const",    "static",   "extern",   "if",       "else",
+		"do",       "while",    "for",      "continue", "switch",   "case",     "default",  "break",
+		"enum",     "union",    "struct",   "typedef",  "goto",     "void",     "return",   "sizeof",
+		"char",     "short",    "int",      "long",     "signed",   "unsigned", "float",    "double"
+	};
+
+	syntax_structure * syntax = syntax_initialize (0);
+
+	syntax_define (syntax, false, false, "#",                  "\n", '\\', 0xff3377aa, 0);
+	syntax_define (syntax, false, false, "//",                 "\n", '\0', 0xff777777, 0);
+	syntax_define (syntax, false, false, "/*",                 "*/", '\0', 0xff777777, 0);
+	syntax_define (syntax, false, false, "'",                  "'",  '\\', 0xff9933cc, 0);
+	syntax_define (syntax, false, false, "\"",                 "\"", '\\', 0xffcc3399, 0);
+	syntax_define (syntax, true,  false, ".,:;<=>+-*/%!&~^?|", "",   '\0', 0xffccaa33, 0);
+	syntax_define (syntax, true,  false, "(){}[]",             "",   '\0', 0xffcc3333, 0);
+
+	for (natural_64 word = 0; word < array_length (keywords); ++word) {
+		syntax_define (syntax, false, true, keywords [word], separator, '\0', 0xff33aacc, 0);
+	}
+
+	syntax_define (syntax, true, true, "0123456789",                                            separator, '\0', 0xffcc77cc, 0);
+	syntax_define (syntax, true, true, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_", separator, '\0', 0xffcccccc, 0);
+
+	buffer = record ();
+
+	width  = string_full_width  (buffer, font_indent) * (font_width  + 1) + 1;
+	height = string_full_height (buffer)              * (font_height + 1) + 1;
+
+	render = allocate (4 * width * height);
+
+	for (natural offset = 0; offset < width * height; ++offset) {
+		render [offset] = background;
+	}
+
+	for (natural offset = 0; buffer [offset] != '\0'; offset += length) {
+		index = syntax_select (syntax, & buffer [offset], & length);
+
+		colour = syntax->colour [index];
+
+		render_string (& buffer [offset], length);
+	}
+
+	png_image_export ("xuxuxu.png", render, width, height);
+
+	syntax = syntax_deinitialize (syntax);
+
+	buffer = deallocate (buffer);
+	render = deallocate (render);
+
+	return (log_success);
+}