Merge branch 'master' into 1304-local

Conflicts:
	grammars.yml

samples/Binary/github.po

@@ -1,21 +0,0 @@
-# SOME DESCRIPTIVE TITLE.
-# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
-# This file is distributed under the same license as the PACKAGE package.
-# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
-#
-#, fuzzy
-msgid ""
-msgstr ""
-"Project-Id-Version: x\n"
-"POT-Creation-Date: 2009-02-15 09:22+0100\n"
-"PO-Revision-Date: 2009-02-15 09:22+0100\n"
-"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
-"Language-Team: LANGUAGE <LL@li.org>\n"
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
-
-#: tools/files/simple_translation.rb:1
-msgid "a translation"
-msgstr ""

samples/BitBake/gstreamer-libav.bb

@@ -0,0 +1,25 @@
+include gstreamer1.0-libav.inc
+
+LIC_FILES_CHKSUM = "file://COPYING;md5=b234ee4d69f5fce4486a80fdaf4a4263 \
+                    file://COPYING.LIB;md5=6762ed442b3822387a51c92d928ead0d \
+                    file://ext/libav/gstav.h;beginline=1;endline=18;md5=a752c35267d8276fd9ca3db6994fca9c \
+                    file://gst-libs/ext/libav/LICENSE;md5=23a54f59b82572c203a559346e89ed57 \
+                    file://gst-libs/ext/libav/COPYING.GPLv2;md5=b234ee4d69f5fce4486a80fdaf4a4263 \
+                    file://gst-libs/ext/libav/COPYING.GPLv3;md5=d32239bcb673463ab874e80d47fae504 \
+                    file://gst-libs/ext/libav/COPYING.LGPLv2.1;md5=bd7a443320af8c812e4c18d1b79df004 \
+                    file://gst-libs/ext/libav/COPYING.LGPLv3;md5=e6a600fd5e1d9cbde2d983680233ad02"
+
+SRC_URI = " \
+    http://gstreamer.freedesktop.org/src/gst-libav/gst-libav-${PV}.tar.xz \
+    file://0001-Disable-yasm-for-libav-when-disable-yasm.patch \
+    "
+SRC_URI[md5sum] = "86540dee14d31daf976eb2713f2294f3"
+SRC_URI[sha256sum] = "585eb7971006100ad771a852e07bd2f3e23bcc6eb0b1253a40b5a0e40e4e7418"
+
+LIBAV_EXTRA_CONFIGURE_COMMON_ARG = "--target-os=linux \
+  --cc='${CC}' --as='${CC}' --ld='${CC}' --nm='${NM}' --ar='${AR}' \
+  --ranlib='${RANLIB}' \
+  ${GSTREAMER_1_0_DEBUG}"
+
+S = "${WORKDIR}/gst-libav-${PV}"
+

samples/BitBake/qtbase-native.bb

@@ -0,0 +1,13 @@
+require qt5-git.inc
+require ${PN}.inc
+
+do_install_append() {
+    # for modules which are still using syncqt and call qtPrepareTool(QMAKE_SYNCQT, syncqt)
+    # e.g. qt3d, qtwayland
+    ln -sf syncqt.pl ${D}${OE_QMAKE_PATH_QT_BINS}/syncqt
+}
+
+QT_MODULE_BRANCH = "release"
+# v5.2.1 + 168 commits
+SRCREV = "08cbbde61778276ccdda73d89fd64d02c623779f"
+

samples/C#/AssemblyInfo.cs

@@ -0,0 +1,26 @@
+using System.Reflection;
+using System.Runtime.CompilerServices;
+
+// Information about this assembly is defined by the following attributes. 
+// Change them to the values specific to your project.
+
+[assembly: AssemblyTitle("Simple")]
+[assembly: AssemblyDescription("")]
+[assembly: AssemblyConfiguration("")]
+[assembly: AssemblyCompany("")]
+[assembly: AssemblyProduct("")]
+[assembly: AssemblyCopyright("")]
+[assembly: AssemblyTrademark("")]
+[assembly: AssemblyCulture("")]
+
+// The assembly version has the format "{Major}.{Minor}.{Build}.{Revision}".
+// The form "{Major}.{Minor}.*" will automatically update the build and revision,
+// and "{Major}.{Minor}.{Build}.*" will update just the revision.
+
+[assembly: AssemblyVersion("1.0.*")]
+
+// The following attributes are used to specify the signing key for the assembly, 
+// if desired. See the Mono documentation for more information about signing.
+
+//[assembly: AssemblyDelaySign(false)]
+//[assembly: AssemblyKeyFile("")]

samples/C#/BsonPropertyValue.cs

@@ -0,0 +1,20 @@
+using System;
+
+namespace MongoDB.Serialization.Descriptors
+{
+    internal class BsonPropertyValue
+    {
+        public bool IsDictionary { get; private set; }
+
+        public Type Type { get; private set; }
+
+        public object Value { get; private set; }
+
+        public BsonPropertyValue(Type type, object value, bool isDictionary)
+        {
+            Type = type;
+            Value = value;
+            IsDictionary = isDictionary;
+        }
+    }
+}

samples/C#/MongoExpressionVisitor.cs

@@ -0,0 +1,153 @@
+using System.Collections.Generic;
+using System.Collections.ObjectModel;
+using System.Linq;
+using System.Linq.Expressions;
+
+namespace MongoDB.Linq.Expressions
+{
+    internal class MongoExpressionVisitor : ExpressionVisitor
+    {
+        protected override Expression Visit(Expression exp)
+        {
+            if (exp == null)
+                return null;
+            switch ((MongoExpressionType)exp.NodeType)
+            {
+                case MongoExpressionType.Collection:
+                    return VisitCollection((CollectionExpression)exp);
+                case MongoExpressionType.Field:
+                    return VisitField((FieldExpression)exp);
+                case MongoExpressionType.Projection:
+                    return VisitProjection((ProjectionExpression)exp);
+                case MongoExpressionType.Select:
+                    return VisitSelect((SelectExpression)exp);
+                case MongoExpressionType.Aggregate:
+                    return VisitAggregate((AggregateExpression)exp);
+                case MongoExpressionType.AggregateSubquery:
+                    return VisitAggregateSubquery((AggregateSubqueryExpression)exp);
+                case MongoExpressionType.Scalar:
+                    return VisitScalar((ScalarExpression)exp);
+                default:
+                    return base.Visit(exp);
+            }
+        }
+
+        protected virtual Expression VisitAggregate(AggregateExpression aggregate)
+        {
+            var exp = Visit(aggregate.Argument);
+            if (exp != aggregate.Argument)
+                return new AggregateExpression(aggregate.Type, aggregate.AggregateType, exp, aggregate.Distinct);
+
+            return aggregate;
+        }
+
+        protected virtual Expression VisitAggregateSubquery(AggregateSubqueryExpression aggregateSubquery)
+        {
+            Expression e = Visit(aggregateSubquery.AggregateAsSubquery);
+            ScalarExpression subquery = (ScalarExpression)e;
+            if (subquery != aggregateSubquery.AggregateAsSubquery)
+                return new AggregateSubqueryExpression(aggregateSubquery.GroupByAlias, aggregateSubquery.AggregateInGroupSelect, subquery);
+            return aggregateSubquery;
+        }
+
+        protected virtual Expression VisitCollection(CollectionExpression collection)
+        {
+            return collection;
+        }
+
+        protected virtual Expression VisitField(FieldExpression field)
+        {
+            var e = Visit(field.Expression);
+            if (field.Expression != e)
+                field = new FieldExpression(e, field.Alias, field.Name);
+
+            return field;
+        }
+
+        protected virtual Expression VisitProjection(ProjectionExpression projection)
+        {
+            var source = (SelectExpression)Visit(projection.Source);
+            var projector = Visit(projection.Projector);
+            if (source != projection.Source || projector != projection.Projector)
+                return new ProjectionExpression(source, projector, projection.Aggregator);
+            return projection;
+        }
+
+        protected ReadOnlyCollection<OrderExpression> VisitOrderBy(ReadOnlyCollection<OrderExpression> orderBys)
+        {
+            if (orderBys != null) 
+            {
+                List<OrderExpression> alternate = null;
+                for (int i = 0, n = orderBys.Count; i < n; i++) 
+                {
+                    OrderExpression expr = orderBys[i];
+                    Expression e = this.Visit(expr.Expression);
+                    if (alternate == null && e != expr.Expression) 
+                        alternate = orderBys.Take(i).ToList();
+                    if (alternate != null) 
+                        alternate.Add(new OrderExpression(expr.OrderType, e));
+                }
+                if (alternate != null) 
+                    return alternate.AsReadOnly();
+            }
+            return orderBys;
+        }
+
+        protected virtual Expression VisitScalar(ScalarExpression scalar)
+        {
+            SelectExpression select = (SelectExpression)Visit(scalar.Select);
+            if (select != scalar.Select)
+                return new ScalarExpression(scalar.Type, select);
+            return scalar;
+        }
+
+        protected virtual Expression VisitSelect(SelectExpression select)
+        {
+            var from = VisitSource(select.From);
+            var where = Visit(select.Where);
+            var groupBy = Visit(select.GroupBy);
+            var orderBy = VisitOrderBy(select.OrderBy);
+            var skip = Visit(select.Skip);
+            var take = Visit(select.Take);
+            var fields = VisitFieldDeclarationList(select.Fields);
+            if (from != select.From || where != select.Where || orderBy != select.OrderBy || groupBy != select.GroupBy || skip != select.Skip || take != select.Take || fields != select.Fields)
+                return new SelectExpression(select.Alias, fields, from, where, orderBy, groupBy, select.IsDistinct, skip, take);
+            return select;
+        }
+
+        protected virtual Expression VisitSource(Expression source)
+        {
+            return Visit(source);
+        }
+
+        protected virtual Expression VisitSubquery(SubqueryExpression subquery)
+        {
+            switch ((MongoExpressionType)subquery.NodeType)
+            {
+                case MongoExpressionType.Scalar:
+                    return VisitScalar((ScalarExpression)subquery);
+            }
+            return subquery;
+        }
+
+        protected virtual ReadOnlyCollection<FieldDeclaration> VisitFieldDeclarationList(ReadOnlyCollection<FieldDeclaration> fields)
+        {
+            if (fields == null)
+                return fields;
+
+            List<FieldDeclaration> alternate = null;
+            for (int i = 0, n = fields.Count; i < n; i++)
+            {
+                var f = fields[i];
+                var e = Visit(f.Expression);
+                if (f.Expression != e && alternate == null)
+                    alternate = fields.Take(i).ToList();
+                if (alternate != null)
+                    alternate.Add(new FieldDeclaration(f.Name, e));
+            }
+            if (alternate != null)
+                return alternate.AsReadOnly();
+            return fields;
+        }
+    }
+}

samples/C/bitmap.h

@@ -0,0 +1,47 @@
+#pragma once
+
+/* Copyright © 2010 Christoph Sünderhauf
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include "generic.h"
+
+typedef struct {
+	uint32_t numbits;
+	/* an array large enough for numbits to fit in. Might 
+	 * (if numbits%8!=0) have some spare bits at the end
+	 */
+	uint32_t* bits;
+} bitmap_t;
+
+
+// creates a new bitmap.
+// CONTENT IS RANDOM!  - use bitmap_clearall() to clear the bitmap.
+bitmap_t bitmap_init(uint32_t numbits);
+
+// returns 1 or 0
+uint8_t bitmap_get(bitmap_t bitmap, uint32_t bitnum);
+// sets a bit (to 1)
+void bitmap_set(bitmap_t bitmap, uint32_t bitnum);
+// clears a bit (to 0)
+void bitmap_clear(bitmap_t bitmap, uint32_t bitnum);
+
+// clears every bit to 0
+void bitmap_clearAll(bitmap_t bitmap);
+
+// finds the first bit set to 0    returns 0 if no cleared bit found (0 is also returned if the first bit is cleared)
+uint32_t bitmap_findFirstClear(bitmap_t bitmap);

samples/C/color.h

@@ -0,0 +1,44 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+
+typedef struct {
+	uint32_t background;
+	uint32_t foreground;
+} console_color_t;
+
+#define CONSOLE_COLOR_BLACK    0x0
+#define CONSOLE_COLOR_BLUE     0x1
+#define CONSOLE_COLOR_GREEN    0x2
+#define CONSOLE_COLOR_CYAN     0x3
+#define CONSOLE_COLOR_RED      0x4
+#define CONSOLE_COLOR_MAGENTA  0x5
+#define CONSOLE_COLOR_BROWN    0x6
+#define CONSOLE_COLOR_LGREY    0x7
+#define CONSOLE_COLOR_DGREY    0x8
+#define CONSOLE_COLOR_LBLUE    0x9
+#define CONSOLE_COLOR_LGREEN   0xa
+#define CONSOLE_COLOR_LCYAN    0xb
+#define CONSOLE_COLOR_LRED     0xc
+#define CONSOLE_COLOR_LMAGENTA 0xd
+#define CONSOLE_COLOR_YELLOW   0xe
+#define CONSOLE_COLOR_WHITE    0xf
+

samples/C/driver.h

@@ -0,0 +1,52 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <console/info.h>
+
+#define CONSOLE_DRV_CAP_CLEAR 0x01
+#define CONSOLE_DRV_CAP_SCROLL  0x02
+#define CONSOLE_DRV_CAP_SET_CURSOR 0x04
+
+// Input modifier keys
+typedef struct {
+	bool shift_left:1;
+	bool shift_right:1;
+	bool control_left:1;
+	bool control_right:1;
+	bool alt:1;
+	bool super:1;
+} console_modifiers_t;
+
+typedef struct {
+	char character;
+	console_modifiers_t* modifiers;
+} console_read_t;
+
+typedef struct {
+	int (*write)(console_info_t*, char);
+	console_read_t* (*read)(console_info_t*);
+
+	int capabilities;
+
+	int (*_clear)(console_info_t*);
+	int (*scroll)(console_info_t*, int32_t);
+	void (*setCursor)(console_info_t*, uint32_t, uint32_t);
+} console_driver_t;

samples/C/elf.h

@@ -0,0 +1,70 @@
+#pragma once
+
+/* Copyright © 2011 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <tasks/scheduler.h>
+
+#define ELF_TYPE_NONE 0
+#define ELF_TYPE_REL 1
+#define ELF_TYPE_EXEC 2
+#define ELF_TYPE_DYN 3
+#define ELF_TYPE_CORE 4
+
+#define ELF_ARCH_NONE 0
+#define ELF_ARCH_386 3
+
+#define ELF_VERSION_CURRENT 1
+
+typedef struct {
+	unsigned char magic[4];
+	/* Note: There _is_ other stuff in here, but we don't need it */
+	unsigned char pad[12]; 
+} __attribute__((packed)) elf_ident_t;
+
+typedef struct {
+	uint32_t    type;
+	uint32_t    offset;
+	void*		virtaddr;
+	void*		physaddr;
+	uint32_t    filesize;
+	uint32_t    memsize;
+	uint32_t    flags;
+	uint32_t    alignment;
+} __attribute__((packed)) elf_program_t;
+
+typedef struct {
+	elf_ident_t ident;
+	uint16_t	type;		/* Object file type */
+	uint16_t	machine;	/* Architecture */
+	uint32_t	version;	/* Object file version */
+	void*		entry;		/* Entry point virtual address */
+	uint32_t	phoff;		/* Program header table file offset */
+	uint32_t	shoff;		/* Section header table file offset */
+	uint32_t	flags;		/* Processor-specific flags */
+	uint16_t	ehsize;		/* ELF header size in bytes */
+	uint16_t	phentsize;	/* Program header table entry size */
+	uint16_t	phnum;		/* Program header table entry count */
+	uint16_t	shentsize;	/* Section header table entry size */
+	uint16_t	shnum;		/* Section header table entry count */
+	uint16_t	shstrndx;	/* Section header string table index */
+} __attribute__((packed)) elf_t;
+
+task_t* elf_load(elf_t* bin, char* name, char** environ, char** argv, int argc);
+task_t* elf_load_file(char* path, char** environ, char** argv, int argc);

samples/C/filter.h

@@ -0,0 +1,45 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <console/info.h>
+#include <console/driver.h>
+
+struct console_filter {
+	// General callback for all actions etc.
+	// Preferred prototype:
+	// char <name>(char c, console_info_t *info, console_driver_t *input, console_driver_t *output);
+	char (*callback)(char, console_info_t*, console_driver_t*, console_driver_t*);
+
+	// Specific callbacks for read and write
+	// Preferred prototype:
+	// char <name>(char c, console_info_t *info, console_driver_t *input);
+	char (*read_callback)(char, console_info_t*, console_driver_t*);
+
+	// Preferred prototype:
+	// char <name>(char c, console_info_t *info, console_driver_t *output);
+	char (*write_callback)(char, console_info_t*, console_driver_t*);
+
+	// The next filter in the filter chain
+	struct console_filter* next;
+};
+
+typedef struct console_filter console_filter_t;
+

samples/C/info.h

@@ -0,0 +1,44 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <console/color.h>
+
+typedef struct {
+	uint32_t cursor_x;
+	uint32_t cursor_y;
+
+	uint32_t rows;
+	uint32_t columns;
+
+	uint32_t tabstop;
+
+	console_color_t default_color;
+	console_color_t current_color;
+
+	uint8_t nonblocking;
+	uint8_t reverse_video;
+	uint8_t bold;
+	uint8_t blink;
+	uint8_t underline;
+	uint8_t newline_mode;
+	uint8_t auto_echo;
+	uint8_t handle_backspace;
+} console_info_t;

samples/C/interface.h

@@ -0,0 +1,47 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <console/info.h>
+#include <console/filter.h>
+#include <console/driver.h>
+
+typedef struct {
+	console_info_t info;
+
+	console_filter_t* input_filter;
+	console_filter_t* output_filter;
+
+	console_driver_t* input_driver;
+	console_driver_t* output_driver;
+} console_t;
+
+console_t* default_console;
+
+// Generate raw console, connected to the Display, Keyboard and the
+// ECMA-48-Filter
+void console_init();
+
+size_t console_write(console_t* console, const char* buffer, int32_t length);
+#define console_write2(console, buffer) console_write(console, buffer, strlen(buffer))
+size_t console_read(console_t* console, char* buffer, size_t length);
+size_t console_scroll(console_t* console, int32_t pages);
+
+void console_clear(console_t* console);

samples/C/ip4.h

@@ -0,0 +1,50 @@
+#pragma once
+
+/* Copyright © 2011 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <net/net.h>
+
+#define IP4_TOS_ICMP 0
+
+typedef uint32_t ip4_addr_t;
+
+typedef struct {
+	unsigned int hl:4; /* both fields are 4 bits */
+	unsigned int version:4;
+	uint8_t	tos;
+	uint16_t len;
+	uint16_t id;
+	uint16_t off;
+	uint8_t ttl;
+	uint8_t p;
+	uint16_t checksum;
+	ip4_addr_t src;
+	ip4_addr_t dst;
+} ip4_header_t;
+
+typedef struct {
+	uint8_t type;
+	uint8_t code;
+	uint16_t checksum;
+	uint16_t id;
+	uint16_t sequence;
+} ip4_icmp_header_t;
+
+void ip4_receive(net_device_t* origin, net_l2proto_t proto, size_t size, void* raw);

samples/C/multiboot.h

@@ -0,0 +1,110 @@
+#pragma once
+
+/* Copyright © 2010, 2011 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+
+#define MULTIBOOT_KERNELMAGIC 0x2BADB002
+
+#define MULTIBOOT_FLAG_MEM	 0x001
+#define MULTIBOOT_FLAG_DEVICE  0x002
+#define MULTIBOOT_FLAG_CMDLINE 0x004
+#define MULTIBOOT_FLAG_MODS	0x008
+#define MULTIBOOT_FLAG_AOUT	0x010
+#define MULTIBOOT_FLAG_ELF	 0x020
+#define MULTIBOOT_FLAG_MMAP	0x040
+#define MULTIBOOT_FLAG_CONFIG  0x080
+#define MULTIBOOT_FLAG_LOADER  0x100
+#define MULTIBOOT_FLAG_APM	 0x200
+#define MULTIBOOT_FLAG_VBE	 0x400
+
+// The symbol table for a.out.
+typedef struct
+{
+	uint32_t	 tabSize;
+	uint32_t 	strSize;
+	uint32_t 	addr;
+	uint32_t 	reserved;
+} __attribute__((packed)) multiboot_aoutSymbolTable_t;
+     
+// The section header table for ELF.
+typedef struct
+{
+	uint32_t	 num;
+	uint32_t	 size;
+	uint32_t 	addr;
+	uint32_t	 shndx;
+} __attribute__((packed)) multiboot_elfSectionHeaderTable_t;
+
+typedef struct
+{
+	uint32_t	size;
+	uint64_t	addr;
+	uint64_t	length;
+	uint32_t	type;
+} __attribute__((packed)) multiboot_memoryMap_t;
+
+typedef struct
+{
+	uint32_t	start;
+	uint32_t	end;
+	char*		cmdLine;
+	uint32_t	reserved;
+} __attribute__((packed)) multiboot_module_t;
+
+typedef struct
+{
+	uint32_t	flags;
+	uint32_t	memLower;
+	uint32_t	memUpper;
+	uint32_t	bootDevice;
+	char*	cmdLine;
+	uint32_t	modsCount;
+	multiboot_module_t*	modsAddr;
+
+	union
+	{
+		multiboot_aoutSymbolTable_t aoutSym;
+		multiboot_elfSectionHeaderTable_t elfSec;
+	} u;
+	
+	uint32_t	mmapLength;
+	uint32_t	mmapAddr;
+	
+	uint32_t drivesLength;
+	uint32_t drivesAddr;
+	
+	// ROM configuration table
+	uint32_t configTable;
+	
+	char* bootLoaderName;
+	uint32_t apmTable;
+	
+	// Video
+	uint32_t vbeControlInfo;
+	uint32_t vbeModeInfo;
+	uint16_t vbeMode;
+	uint16_t vbeInterfaceSeg;
+	uint16_t vbeInterfaceOff;
+	uint16_t vbeInterfaceLen;
+} __attribute__((packed)) multiboot_info_t;
+
+multiboot_info_t* multiboot_info;
+
+void arch_multiboot_printInfo();

samples/C/portio.h

@@ -0,0 +1,43 @@
+#pragma once
+
+/* Copyright © 2011 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <lib/stdint.h>
+
+// Legacy
+#define outb(args...) portio_out8(args)
+#define outw(args...) portio_out16(args)
+#define outl(args...) portio_out32(args)
+#define outq(args...) portio_out64(args)
+
+#define inb(args...) portio_in8(args)
+#define inw(args...) portio_in16(args)
+#define inl(args...) portio_in32(args)
+#define inq(args...) portio_in64(args)
+
+void portio_out8(uint16_t port, uint8_t value);
+void portio_out16(uint16_t port, uint16_t value);
+void portio_out32(uint16_t port, uint32_t value);
+void portio_out64(uint16_t port, uint64_t value);
+
+uint8_t portio_in8(uint16_t port);
+uint16_t portio_in16(uint16_t port);
+uint32_t portio_in32(uint16_t port);
+uint64_t portio_in64(uint16_t port);

samples/C/scheduler.h

@@ -0,0 +1,69 @@
+#pragma once
+
+/* Copyright © 2011 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <hw/cpu.h>
+#include <memory/vmem.h>
+
+#define SCHEDULER_MAXNAME 256
+#define SCHEDULER_TASK_PATH_MAX 256
+
+// Single linked list
+typedef struct task {
+	uint32_t pid;
+	char name[SCHEDULER_MAXNAME];
+	struct task *parent;
+	cpu_state_t* state;
+	struct task* next;
+	struct task* previous;
+
+	void* stack;
+	void* entry;
+	struct vmem_context *memory_context;
+
+	// Current task state
+	enum {
+		TASK_STATE_KILLED,
+		TASK_STATE_TERMINATED,
+		TASK_STATE_BLOCKING,
+		TASK_STATE_STOPPED,
+		TASK_STATE_RUNNING
+	} task_state;
+
+	char** environ;
+	char** argv;
+	int argc;
+
+	// TODO Is this actually the same as PATH_MAX in our toolchain?
+	char cwd[SCHEDULER_TASK_PATH_MAX + 1];
+} task_t;
+
+int scheduler_state;
+
+task_t* scheduler_new(void* entry, task_t* parent, char name[SCHEDULER_MAXNAME],
+	char** environ, char** argv, int argc, struct vmem_context* memory_context, bool map_structs);
+void scheduler_add(task_t *task);
+void scheduler_terminate_current();
+task_t* scheduler_get_current();
+task_t* scheduler_select(cpu_state_t* lastRegs);
+void scheduler_init();
+void scheduler_yield();
+void scheduler_remove(task_t *t);
+task_t* scheduler_fork(task_t* to_fork, cpu_state_t* state);

samples/C/syscalls.h

@@ -0,0 +1,95 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+#include <tasks/syscall.h>
+
+#include "syscalls/write.h"
+#include "syscalls/exit.h"
+#include "syscalls/getpid.h"
+#include "syscalls/getppid.h"
+#include "syscalls/read.h"
+#include "syscalls/brk.h"
+#include "syscalls/mmap.h"
+#include "syscalls/munmap.h"
+#include "syscalls/test.h"
+#include "syscalls/hostname.h"
+#include "syscalls/uname.h"
+#include "syscalls/open.h"
+#include "syscalls/execve.h"
+#include "syscalls/seek.h"
+#include "syscalls/opendir.h"
+#include "syscalls/readdir.h"
+#include "syscalls/kill.h"
+#include "syscalls/getexecdata.h"
+#include "syscalls/cwd.h"
+#include "syscalls/fork.h"
+
+syscall_t syscall_table[] = {
+	NULL,
+	sys_exit,			// 1
+	sys_read,			// 2
+	sys_write,			// 3
+	sys_getpid,			// 4
+	sys_brk,			// 5
+	sys_getppid,		// 6
+	sys_mmap,			// 7
+	sys_munmap,			// 8
+	sys_test,			// 9
+	sys_get_hostname,	// 10
+	sys_set_hostname,	// 11
+	sys_uname,			// 12
+	sys_open,			// 13
+	sys_execve,			// 14
+	sys_seek,			// 15
+	sys_opendir,		// 16
+	sys_readdir,		// 17
+	sys_kill,			// 18
+	sys_getexecdata,	// 19
+	sys_chdir,			// 20
+	sys_getcwd,			// 21
+	sys_fork,			// 22
+};
+
+char* syscall_name_table[] = {
+	NULL,
+	"exit",			// 1
+	"read",			// 2
+	"write",		// 3
+	"getpid",		// 4
+	"brk",			// 5
+	"getppid",		// 6
+	"mmap",			// 7
+	"munmap",		// 8
+	"test",			// 9
+	"get_hostname",	// 10
+	"set_hostname",	// 11
+	"uname",		// 12
+	"open",			// 13
+	"execve",		// 14
+	"seek",			// 15
+	"opendir",		// 16
+	"readdir",		// 17
+	"kill",			// 18
+	"getexecdata",	// 19
+	"chdir",		// 20
+	"getcwd",		// 21
+	"fork",			// 22
+};

samples/C/vfs.h

@@ -0,0 +1,56 @@
+#pragma once
+
+/* Copyright © 2010, 2011 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+
+#define VFS_SEEK_SET 0
+#define VFS_SEEK_CUR 1
+#define VFS_SEEK_END 2
+
+typedef struct {
+   uint64_t num;
+   char path[512];
+   char mount_path[512];
+   uint32_t offset;
+   uint32_t mountpoint;
+} vfs_file_t;
+
+typedef struct {
+   uint64_t num;
+   char path[512];
+   char mount_path[512];
+   uint32_t mountpoint;
+} vfs_dir_t;
+
+typedef void* (*vfs_read_callback_t)(char* path, uint32_t offset, uint32_t size);
+typedef char* (*vfs_read_dir_callback_t)(char* path, uint32_t offset);
+
+
+// Used to always store the last read/write attempt (used for kernel panic debugging)
+char vfs_last_read_attempt[512];
+
+vfs_file_t* vfs_get_from_id(uint32_t id);
+vfs_dir_t* vfs_get_dir_from_id(uint32_t id);
+void* vfs_read(vfs_file_t* fp, uint32_t size);
+char* vfs_dir_read(vfs_dir_t* dir, uint32_t offset);
+void vfs_seek(vfs_file_t* fp, uint32_t offset, int origin);
+vfs_file_t* vfs_open(char* path);
+vfs_dir_t* vfs_dir_open(char* path);
+int vfs_mount(char* path, vfs_read_callback_t read_callback, vfs_read_dir_callback_t read_dir_callback);

samples/C/vmem.h

@@ -0,0 +1,94 @@
+#pragma once
+
+/* Copyright © 2011 Fritz Grimpen
+ * Copyright © 2013 Lukas Martini
+ *
+ * This file is part of Xelix.
+ *
+ * Xelix is free software: 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
+ * (at your option) any later version.
+ *
+ * Xelix is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with Xelix. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include <lib/generic.h>
+
+struct vmem_context;
+
+struct vmem_page
+{
+	enum
+	{
+		VMEM_SECTION_STACK,   /* Initial stack */
+		VMEM_SECTION_CODE,    /* Contains program code and is read-only */
+		VMEM_SECTION_DATA,    /* Contains static data */
+		VMEM_SECTION_HEAP,    /* Allocated by brk(2) at runtime */
+		VMEM_SECTION_MMAP,    /* Allocated by mmap(2) at runtime */
+		VMEM_SECTION_KERNEL,  /* Contains kernel-internal data */
+		VMEM_SECTION_UNMAPPED /* Unmapped */
+	} section;
+
+	bool readonly:1;
+	bool cow:1; /* Copy-on-Write mechanism */
+	bool allocated:1;
+
+	void *cow_src_addr;
+	void *virt_addr;
+	void *phys_addr;
+};
+
+typedef void (*vmem_iterator_t)(struct vmem_context *, struct vmem_page *, uint32_t);
+
+/* Initialize vmem_kernelContext for paging_init() */
+void vmem_init();
+struct vmem_context *vmem_kernelContext;
+struct vmem_context *vmem_currentContext;
+struct vmem_context *vmem_processContext;
+void *vmem_faultAddress;
+
+/* Some callbacks for magic functions */
+void (*vmem_applyPage)(struct vmem_context *, struct vmem_page *);
+
+/* Generate new page context */
+struct vmem_context *vmem_new();
+struct vmem_page *vmem_new_page();
+
+int vmem_add_page(struct vmem_context *ctx, struct vmem_page *pg);
+
+struct vmem_page *vmem_get_page_phys(struct vmem_context *ctx, void *phys_addr);
+struct vmem_page *vmem_get_page_virt(struct vmem_context *ctx, void *virt_addr);
+struct vmem_page *vmem_get_page(struct vmem_context *ctx, uint32_t offset);
+
+/* Remove pages in a specific context by physical or virtual address */
+struct vmem_page *vmem_rm_page_phys(struct vmem_context *ctx, void *phys_addr);
+struct vmem_page *vmem_rm_page_virt(struct vmem_context *ctx, void *virt_addr);
+
+/* Iterator */
+int vmem_iterate(struct vmem_context *ctx, vmem_iterator_t callback);
+
+uint32_t vmem_count_pages(struct vmem_context *ctx);
+void vmem_dump_page(struct vmem_page *pg);
+void vmem_dump(struct vmem_context *ctx);
+void vmem_handle_fault(uint32_t code, void *addr, void *instruction);
+
+/* Get/Set cached paging context */
+void vmem_set_cache(struct vmem_context *ctx, void *cache);
+void *vmem_get_cache(struct vmem_context *ctx);
+
+#ifdef __i386__
+	#define PAGE_SIZE 4096
+	#define VMEM_ALIGN(x) (typeof(x))(((intptr_t)(x) & 0xFFFFF000) + 0x1000)
+	#define VMEM_ALIGN_DOWN(x) (typeof(x))( \
+		((intptr_t)(x) - ((intptr_t)(x) % PAGE_SIZE)))
+#else
+	#define PAGE_SIZE 0
+	#define VMEM_ALIGN(x) (x)
+#endif

samples/CMake/filenames/CMakeLists.txt

@@ -0,0 +1,12 @@
+cmake_minimum_required(VERSION 2.8)
+
+project(Foo)
+
+set(CMAKE_SKIP_RPATH TRUE)
+set(CMAKE_INSTALL_PREFIX "/usr/local")
+
+add_subdirectory(bar)
+
+add_executable(foo foo.c)
+target_link_libraries(foo pthread)
+install(TARGETS foo DESTINATION bin)

samples/Forth/asm.fr

@@ -0,0 +1,244 @@
+\ Copyright 2013-2014 Lars Brinkhoff
+
+\ Assembler for x86.
+
+\ Adds to FORTH vocabulary: ASSEMBLER CODE ;CODE.
+\ Creates ASSEMBLER vocabulary with: END-CODE and x86 opcodes.
+
+\ Conventional prefix syntax: "<source> <destination> <opcode>,".
+\ Addressing modes:
+\ - immediate: "n #"
+\ - direct: n
+\ - register: <reg>
+\ - indirect: "<reg> )"
+\ - indirect with displacement: "n <reg> )#"
+\ - indexed: not supported yet
+
+require lib/common.fth
+require search.fth
+
+vocabulary assembler
+also assembler definitions
+
+\ Access to the target image.
+' header,   defer header,  is header,
+' cell   defer cell   is cell
+' dp   defer dp   is dp
+0 value delta
+
+: aligned   cell + 1 - cell negate nand invert ;
+: align   dp @ aligned dp ! ;
+: allot   dp +! ;
+: here   dp @ ;
+: cells   cell * ;
+: c!   delta + c! ;
+: c,   here c!  1 allot ;
+: h,   dup c,  8 rshift c, ;
+: ,   dup h,  16 rshift h, ;
+
+base @  hex
+
+\ This constant signals that an operand is not a direct address.
+deadbeef constant -addr
+
+\ Assembler state.
+variable opcode
+variable d
+variable s
+variable dir?
+variable mrrm   defer ?mrrm,
+variable sib    defer ?sib,
+variable disp   defer ?disp,
+variable imm    defer ?imm,
+defer imm,
+defer immediate-opcode
+defer reg
+defer ?opsize
+
+\ Set opcode.  And destination: register or memory.
+: opcode!   3@ is immediate-opcode >r opcode ! ;
+: !reg   dir? @ if 2 d ! then dir? off ;
+: !mem   dir? off ;
+
+\ Set bits in mod/reg/rm byte.
+: -mrrm   ['] nop is ?mrrm, ;
+: mod!   mrrm c0 !bits ;
+: reg@   mrrm 38 @bits ;
+: reg!   mrrm 38 !bits ;
+: rm@   mrrm 7 @bits ;
+: rm!   rm@ 3 lshift reg!  mrrm 7 !bits ;
+: reg>opcode   rm@ opcode 07 !bits ;
+: opcode>reg   opcode @ dup 3 rshift rm!  8 rshift opcode ! ;
+
+\ Write parts of instruction to memory.
+: ds   d @ s @ + ;
+: ?twobyte   dup FF > if dup 8 rshift c, then ;
+: opcode,   opcode @ ?twobyte ds + c, ;
+: mrrm,   mrrm @ c, ;
+: sib,   sib @ c, ;
+: imm8,   imm @ c, ;
+: imm16,   imm @ h, ;
+: imm32,   imm @ , ;
+: disp8,   disp @ c, ;
+: disp32,   disp @ , ;
+
+\ Set operand size.
+: -opsize   2drop r> drop ;
+: opsize!   is imm,  s !  ['] -opsize is ?opsize ;
+: !op8    0 ['] imm8, ?opsize ;
+: !op32   1 ['] imm32, ?opsize ;
+: !op16   1 ['] imm16, ?opsize 66 c, ;
+
+\ Set SIB byte.
+: !sib   ['] sib, is ?sib, ;
+: sib!   3 lshift + sib !  !sib ;
+
+\ Set displacement.
+: byte?   -80 80 within ;
+: disp!   is ?disp, disp ! ;
+: !disp8   ['] disp8, disp! ;
+: !disp32   ['] disp32, disp! ;
+: !disp ( a -- u ) dup byte? if !disp8 40 else !disp32 80 then ;
+: -pc   here 5 + negate ;
+: relative   -pc disp +! ;
+
+\ Set immediate operand.
+: imm!   imm !  ['] imm, is ?imm, ;
+
+\ Implements addressing modes: register, indirect, indexed, and direct.
+: reg1   rm! !reg ;
+: reg2   3 lshift reg! ;
+: !reg2   ['] reg2 is reg ;
+: ind   dup mod! rm! !mem !reg2 ;
+: ind#   swap !disp + ind ;
+: idx   04 ind  sib! ;
+: idx#   rot !disp 04 + ind  sib! ;
+: addr   !disp32  05 ind ;
+
+\ Reset assembler state.
+: 0opsize   ['] opsize! is ?opsize ;
+: 0ds   d off  s off ;
+: 0reg   ['] reg1 is reg ;
+: 0mrrm   c0 mrrm !  ['] mrrm, is ?mrrm, ;
+: 0sib   ['] nop is ?sib, ;
+: 0disp   ['] nop is ?disp, ;
+: 0imm   imm off  ['] nop is ?imm,  0 is imm, ;
+: 0asm   0imm 0disp 0reg 0ds 0mrrm 0sib 0opsize  dir? on ;
+
+\ Enter and exit assembler mode.
+: start-code   also assembler 0asm ;
+: end-code     align previous ;
+
+\ Implements addressing mode: immediate.
+: imm8?   imm @ byte? ;
+: ?sign-extend   d off  imm8? if 2 d !  ['] imm8, is ?imm, then ;
+: alu#   opcode @ reg! 80 opcode ! ?sign-extend ;
+: mov#   B0 s @ 3 lshift + rm@ + opcode ! 0ds -mrrm ;
+: push#   imm8? if ['] imm8, 6A else ['] imm32, 68 then dup opcode ! rm! is ?imm, ;
+: test#   F6 opcode ! ;
+: imm-op   imm! immediate-opcode ;
+
+\ Process one operand.  All operands except a direct address
+\ have the stack picture ( n*x xt -addr ).
+: addr?   dup -addr <> ;
+: op   addr? if addr else drop execute then ;
+
+\ Define instruction formats.
+: instruction,   opcode! opcode, ?mrrm, ?sib, ?disp, ?imm, 0asm ;
+: mnemonic ( u a "name" -- ) create ['] nop 3,  does> instruction, ;
+: format:   create ] !csp  does> mnemonic ;
+: immediate:   ' latestxt >body ! ;
+
+\ Instruction formats.
+format: 0op   -mrrm ;
+format: 1reg   op reg>opcode 0ds -mrrm ;
+format: 1op   opcode>reg op d off ;
+format: 2op   op op ;
+format: 2op-d   op op d off ;
+format: 2op-ds   op op 0ds ;
+format: 1addr   op relative -mrrm ;
+format: 1imm8   !op8 op -mrrm ;
+
+\ Instruction mnemonics.
+00 2op add,  immediate: alu#
+08 2op or,   immediate: alu#
+0F44 2op-ds cmove,  \ Todo: other condition codes.
+0FB6 2op-ds movzx,
+0FBE 2op-ds movsx,
+10 2op adc,  immediate: alu#
+18 2op sbb,  immediate: alu#
+20 2op and,  immediate: alu#
+26 0op es,
+28 2op sub,  immediate: alu#
+2E 0op cs,
+30 2op xor,  immediate: alu#
+36 0op ss,
+38 2op cmp,  immediate: alu#
+3E 0op ds,
+50 1reg push,  immediate: push#
+58 1reg pop,
+64 0op fs,
+65 0op gs,
+\ 70 jcc
+84 2op-d test,   immediate: test#
+86 2op-d xchg,
+88 2op mov,  immediate: mov#
+8D 2op-ds lea,
+\ 8F/0 pop, rm
+90 0op nop,
+C3 0op ret,
+\ C6/0 immediate mov to r/m
+\ C7/0 immediate mov to r/m
+CD 1imm8 int,
+E8 1addr call,
+E9 1addr jmp,
+\ EB jmp rel8
+F0 0op lock,
+F2 0op rep,
+F3 0op repz,
+F4 0op hlt,
+F5 0op cmc,
+F610 1op not,
+F618 1op neg,
+F8 0op clc,
+F9 0op stc,
+FA 0op cli,
+FB 0op sti,
+FC 0op cld,
+FD 0op std,
+\ FE 0 inc rm
+\ FF 1 dec rm
+\ FF 2 call rm
+\ FF 4 jmp rm
+\ FF 6 push rm
+
+: sp?   dup 4 = ;
+
+\ Addressing mode syntax: immediate, indirect, and displaced indirect.
+: #   ['] imm-op -addr ;
+: )   2drop  sp? if 4 ['] idx else ['] ind then -addr  0reg 0opsize ;
+: )#   2drop  sp? if 4 ['] idx# else ['] ind# then -addr  0reg 0opsize ;
+
+\ Define registers.
+: reg8    create ,  does> @ ['] reg -addr !op8 ;
+: reg16   create ,  does> @ ['] reg -addr !op16 ;
+: reg32   create ,  does> @ ['] reg -addr !op32 ;
+: reg:    dup reg8 dup reg16 dup reg32 1+ ;
+
+\ Register names.
+0
+reg: al ax eax   reg: cl cx ecx   reg: dl dx edx   reg: bl bx ebx
+reg: ah sp esp   reg: ch bp ebp   reg: dh si esi   reg: bh di edi
+drop
+
+\ Runtime for ;CODE.  CODE! is defined elsewhere.
+: (;code)   r> code! ;
+
+base !  only forth definitions  also assembler
+
+\ Standard assembler entry points.
+: code    parse-name header, ?code, start-code  ;
+: ;code   postpone (;code) reveal postpone [ ?csp start-code ; immediate
+
+0asm
+previous

samples/Jasmin/if1.j

@@ -0,0 +1,56 @@
+.class public if1
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+		ldc		0x1
+		ldc		0x1
+		if_icmpeq		If556261059
+		goto		IfElse556261059
+	If556261059:
+	.line 3
+		.line 3
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+			invokevirtual		java/io/PrintStream/print(I)V
+		goto		IfDone556261059
+	IfElse556261059:
+	.line 5
+		.line 5
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x2
+			invokevirtual		java/io/PrintStream/print(I)V
+	IfDone556261059:
+
+	.line 6
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+	ldc		0x3
+		invokevirtual		java/io/PrintStream/print(I)V
+
+	.line 7
+		ldc		0x1
+		ldc		0x1
+		if_icmpne		IfNot-920218690
+	.line 8
+		.line 8
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x4
+			invokevirtual		java/io/PrintStream/print(I)V
+	IfNot-920218690:
+
+EndGlobal:
+return
+.end method
+

samples/Jasmin/if2.j

@@ -0,0 +1,167 @@
+.class public if2
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+			ldc		0x1
+			ldc		0x1
+			if_icmpeq	Cmp1893841232
+			ldc		0x0
+			goto		CmpDone1893841232
+		Cmp1893841232:
+			ldc		0x1
+		CmpDone1893841232:
+		ldc		0x1
+		if_icmpeq		If-1736765035
+		goto		IfElse-1736765035
+	If-1736765035:
+	.line 2
+		.line 3
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+			invokevirtual		java/io/PrintStream/print(I)V
+		goto		IfDone-1736765035
+	IfElse-1736765035:
+	.line 4
+		.line 4
+				ldc		0x2
+				ldc		0x1
+				if_icmpeq	Cmp-1460884369
+				ldc		0x0
+				goto		CmpDone-1460884369
+			Cmp-1460884369:
+				ldc		0x1
+			CmpDone-1460884369:
+			ldc		0x1
+			if_icmpeq		If-247349760
+			goto		IfElse-247349760
+		If-247349760:
+		.line 4
+			.line 5
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x2
+				invokevirtual		java/io/PrintStream/print(I)V
+			goto		IfDone-247349760
+		IfElse-247349760:
+		.line 6
+			.line 7
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x3
+				invokevirtual		java/io/PrintStream/print(I)V
+		IfDone-247349760:
+	IfDone-1736765035:
+
+	.line 10
+			ldc		0x1
+			ldc		0x2
+			if_icmpeq	Cmp933554851
+			ldc		0x0
+			goto		CmpDone933554851
+		Cmp933554851:
+			ldc		0x1
+		CmpDone933554851:
+		ldc		0x1
+		if_icmpeq		If1623625546
+		goto		IfElse1623625546
+	If1623625546:
+	.line 10
+		.line 11
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+			invokevirtual		java/io/PrintStream/print(I)V
+		goto		IfDone1623625546
+	IfElse1623625546:
+	.line 12
+		.line 12
+				ldc		0x2
+				ldc		0x2
+				if_icmpeq	Cmp1572138409
+				ldc		0x0
+				goto		CmpDone1572138409
+			Cmp1572138409:
+				ldc		0x1
+			CmpDone1572138409:
+			ldc		0x1
+			if_icmpeq		If126354425
+			goto		IfElse126354425
+		If126354425:
+		.line 12
+			.line 13
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x2
+				invokevirtual		java/io/PrintStream/print(I)V
+			goto		IfDone126354425
+		IfElse126354425:
+		.line 14
+			.line 15
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x3
+				invokevirtual		java/io/PrintStream/print(I)V
+		IfDone126354425:
+	IfDone1623625546:
+
+	.line 18
+			ldc		0x1
+			ldc		0x2
+			if_icmpeq	Cmp126493150
+			ldc		0x0
+			goto		CmpDone126493150
+		Cmp126493150:
+			ldc		0x1
+		CmpDone126493150:
+		ldc		0x1
+		if_icmpeq		If1522284422
+		goto		IfElse1522284422
+	If1522284422:
+	.line 18
+		.line 19
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+			invokevirtual		java/io/PrintStream/print(I)V
+		goto		IfDone1522284422
+	IfElse1522284422:
+	.line 20
+		.line 20
+				ldc		0x2
+				ldc		0x1
+				if_icmpeq	Cmp-906666545
+				ldc		0x0
+				goto		CmpDone-906666545
+			Cmp-906666545:
+				ldc		0x1
+			CmpDone-906666545:
+			ldc		0x1
+			if_icmpeq		If1083939031
+			goto		IfElse1083939031
+		If1083939031:
+		.line 20
+			.line 21
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x2
+				invokevirtual		java/io/PrintStream/print(I)V
+			goto		IfDone1083939031
+		IfElse1083939031:
+		.line 22
+			.line 23
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x3
+				invokevirtual		java/io/PrintStream/print(I)V
+		IfDone1083939031:
+	IfDone1522284422:
+
+EndGlobal:
+return
+.end method
+

samples/Jasmin/if3.j

@@ -0,0 +1,55 @@
+.class public if3
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+		ldc		0x1
+		ldc		0x1
+		if_icmpeq		If-811796083
+		goto		IfElse-811796083
+	If-811796083:
+	.line 3
+		.line 3
+			ldc		0x0
+			ldc		0x1
+			if_icmpeq		If-1001319390
+			goto		IfElse-1001319390
+		If-1001319390:
+		.line 4
+			.line 4
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x1
+				invokevirtual		java/io/PrintStream/print(I)V
+			goto		IfDone-1001319390
+		IfElse-1001319390:
+		.line 6
+			.line 6
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x2
+				invokevirtual		java/io/PrintStream/print(I)V
+		IfDone-1001319390:
+		goto		IfDone-811796083
+	IfElse-811796083:
+	.line 8
+		.line 8
+			getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x3
+			invokevirtual		java/io/PrintStream/print(I)V
+	IfDone-811796083:
+
+EndGlobal:
+return
+.end method
+

samples/Jasmin/if4.j

@@ -0,0 +1,37 @@
+.class public if4
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+		ldc		0x1
+		ldc		0x1
+		if_icmpne		IfNot1919266740
+	.line 2
+		.line 2
+			ldc		0x1
+			ldc		0x1
+			if_icmpne		IfNot613368541
+		.line 2
+			.line 2
+				getstatic		java/lang/System/out Ljava/io/PrintStream;
+			ldc		0x1
+				invokevirtual		java/io/PrintStream/print(I)V
+		IfNot613368541:
+	IfNot1919266740:
+
+EndGlobal:
+return
+.end method
+

samples/Jasmin/op1.j

@@ -0,0 +1,54 @@
+.class public op1
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+    .line 2
+        getstatic java/lang/System/out Ljava/io/PrintStream;
+        ldc 0x1
+        ldc 0x1
+        iadd
+        invokevirtual java/io/PrintStream/println(I)V
+
+    .line 3
+        getstatic java/lang/System/out Ljava/io/PrintStream;
+        ldc 0xa
+        ldc 0x5
+        isub
+        invokevirtual java/io/PrintStream/println(I)V
+
+    .line 4
+        getstatic java/lang/System/out Ljava/io/PrintStream;
+        ldc 0x15
+        ldc 0x3
+        idiv
+        invokevirtual java/io/PrintStream/println(I)V
+
+    .line 5
+        getstatic java/lang/System/out Ljava/io/PrintStream;
+        ldc 0x159
+        ldc 0x38
+        imul
+        invokevirtual java/io/PrintStream/println(I)V
+
+    .line 6
+        getstatic java/lang/System/out Ljava/io/PrintStream;
+        ldc 0x52
+        ldc 0x9
+        irem
+        invokevirtual java/io/PrintStream/println(I)V
+
+EndGlobal:
+return
+.end method

samples/Jasmin/op2.j

@@ -0,0 +1,34 @@
+.class public op2
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+		ldc		0x0
+		iand
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 3
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+		ldc		0x0
+		ior
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+EndGlobal:
+return
+.end method
+

samples/Jasmin/op3.j

@@ -0,0 +1,68 @@
+.class public op3
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x0
+		ldc		0x1
+		if_icmpeq	Cmp-1307183590
+		ldc		0x0
+		goto		CmpDone-1307183590
+	Cmp-1307183590:
+		ldc		0x1
+	CmpDone-1307183590:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 3
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x0
+		ldc		0x0
+		if_icmpeq	Cmp-1443270821
+		ldc		0x0
+		goto		CmpDone-1443270821
+	Cmp-1443270821:
+		ldc		0x1
+	CmpDone-1443270821:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 4
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+		ldc		0x1
+		if_icmpeq	Cmp1759327329
+		ldc		0x0
+		goto		CmpDone1759327329
+	Cmp1759327329:
+		ldc		0x1
+	CmpDone1759327329:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 5
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+		ldc		0x0
+		if_icmpeq	Cmp-678570146
+		ldc		0x0
+		goto		CmpDone-678570146
+	Cmp-678570146:
+		ldc		0x1
+	CmpDone-678570146:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+EndGlobal:
+return
+.end method
+

samples/Jasmin/op4.j

@@ -0,0 +1,68 @@
+.class public op4
+.super java/lang/Object
+;
+; standard initializer (calls java.lang.Object's initializer)
+;
+.method public <init>()V
+aload_0
+invokenonvirtual java/lang/Object/<init>()V
+return
+.end method
+
+.method public static main([Ljava/lang/String;)V
+
+.limit locals 1
+.limit stack 5
+BeginGlobal:
+	.line 2
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x0
+		ldc		0x1
+		if_icmpne	Cmp-191731100
+		ldc		0x0
+		goto		CmpDone-191731100
+	Cmp-191731100:
+		ldc		0x1
+	CmpDone-191731100:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 3
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x0
+		ldc		0x0
+		if_icmpne	Cmp-901585603
+		ldc		0x0
+		goto		CmpDone-901585603
+	Cmp-901585603:
+		ldc		0x1
+	CmpDone-901585603:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 4
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+		ldc		0x1
+		if_icmpne	Cmp1522577937
+		ldc		0x0
+		goto		CmpDone1522577937
+	Cmp1522577937:
+		ldc		0x1
+	CmpDone1522577937:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+	.line 5
+		getstatic		java/lang/System/out Ljava/io/PrintStream;
+		ldc		0x1
+		ldc		0x0
+		if_icmpne	Cmp-1653028684
+		ldc		0x0
+		goto		CmpDone-1653028684
+	Cmp-1653028684:
+		ldc		0x1
+	CmpDone-1653028684:
+		invokevirtual		java/io/PrintStream/println(Z)V
+
+EndGlobal:
+return
+.end method
+

samples/Objective-J/AppController.j

@@ -0,0 +1,434 @@
+//
+// AppController.j
+// FlickrPhoto
+//
+// Created by Ross Boucher.
+// Copyright 2008 - 2010, 280 North, Inc. All rights reserved.
+
+@import <Foundation/Foundation.j>
+@import <AppKit/AppKit.j>
+
+var SliderToolbarItemIdentifier = "SliderToolbarItemIdentifier",
+    AddToolbarItemIdentifier = "AddToolbarItemIdentifier",
+    RemoveToolbarItemIdentifier = "RemoveToolbarItemIdentifier";
+
+/*
+    Important note about CPJSONPConnection: CPJSONPConnection is ONLY for JSONP APIs.
+    If aren't sure you NEED JSONP (see http://ajaxian.com/archives/jsonp-json-with-padding ),
+    you most likely don't want to use CPJSONPConnection, but rather the more standard
+    CPURLConnection. CPJSONPConnection is designed for cross-domain
+    connections, and if you are making requests to the same domain (as most web
+    applications do), you do not need it.
+*/
+
+@implementation AppController : CPObject
+{
+    CPString                lastIdentifier;
+    CPDictionary            photosets;
+
+    CPCollectionView        listCollectionView;
+    CPCollectionView        photosCollectionView;
+}
+
+- (void)applicationDidFinishLaunching:(CPNotification)aNotification
+{
+    //the first thing we need to do is create a window to take up the full screen
+    //we'll also create a toolbar to go with it, and grab its size for future reference
+
+    var theWindow = [[CPWindow alloc] initWithContentRect:CGRectMakeZero() styleMask:CPBorderlessBridgeWindowMask],
+        contentView = [theWindow contentView],
+        toolbar = [[CPToolbar alloc] initWithIdentifier:"Photos"],
+        bounds = [contentView bounds];
+
+    //we tell the toolbar that we want to be its delegate and attach it to theWindow
+    [toolbar setDelegate:self];
+    [toolbar setVisible:true];
+    [theWindow setToolbar:toolbar];
+
+    photosets = [CPDictionary dictionary]; //storage for our sets of photos return from Flickr
+
+    //now we create a scroll view to contain the list of collections of photos (photosets)
+    //inside the scroll view, we'll place our collection view, which manages a collection of "cells"
+    //each cell will represent one photo collection, and choosing cells will select that collection
+
+    var listScrollView = [[CPScrollView alloc] initWithFrame:CGRectMake(0, 0, 200, CGRectGetHeight(bounds) - 58)];
+    [listScrollView setAutohidesScrollers:YES];
+    [listScrollView setAutoresizingMask:CPViewHeightSizable];
+    [[listScrollView contentView] setBackgroundColor:[CPColor colorWithRed:213.0 / 255.0 green:221.0 / 255.0 blue:230.0 / 255.0 alpha:1.0]];
+
+    //we create the collection view cells by creating a single prototype (CPCollectionViewItem) and setting its view.
+    //the CPCollectionView class will then duplicate this item as many times as it needs
+
+    var photosListItem = [[CPCollectionViewItem alloc] init];
+    [photosListItem setView:[[PhotosListCell alloc] initWithFrame:CGRectMakeZero()]];
+
+    listCollectionView = [[CPCollectionView alloc] initWithFrame:CGRectMake(0, 0, 200, 0)];
+
+    [listCollectionView setDelegate:self]; //we want delegate methods
+    [listCollectionView setItemPrototype:photosListItem]; //set the item prototype
+
+    [listCollectionView setMinItemSize:CGSizeMake(20.0, 45.0)];
+    [listCollectionView setMaxItemSize:CGSizeMake(1000.0, 45.0)];
+    [listCollectionView setMaxNumberOfColumns:1]; //setting a single column will make this appear as a vertical list
+
+    [listCollectionView setVerticalMargin:0.0];
+    [listCollectionView setAutoresizingMask:CPViewWidthSizable];
+
+    //finally, we put our collection view inside the scroll view as it's document view, so it can be scrolled
+    [listScrollView setDocumentView:listCollectionView];
+
+    //and we add it to the window's content view, so it will show up on the screen
+    [contentView addSubview:listScrollView];
+
+    //repeat the process with another collection view for the actual photos
+    //this time we'll use a different view for the prototype (PhotoCell)
+
+    var photoItem = [[CPCollectionViewItem alloc] init];
+    [photoItem setView:[[PhotoCell alloc] initWithFrame:CGRectMake(0, 0, 150, 150)]];
+
+    var scrollView = [[CPScrollView alloc] initWithFrame:CGRectMake(200, 0, CGRectGetWidth(bounds) - 200, CGRectGetHeight(bounds) - 58)];
+
+    photosCollectionView = [[CPCollectionView alloc] initWithFrame:CGRectMake(0, 0, CGRectGetWidth(bounds) - 200, 0)];
+
+    [photosCollectionView setDelegate:self];
+    [photosCollectionView setItemPrototype:photoItem];
+
+    [photosCollectionView setMinItemSize:CGSizeMake(150, 150)];
+    [photosCollectionView setMaxItemSize:CGSizeMake(150, 150)];
+    [photosCollectionView setAutoresizingMask:CPViewWidthSizable];
+
+    [scrollView setAutoresizingMask:CPViewHeightSizable | CPViewWidthSizable];
+    [scrollView setDocumentView:photosCollectionView];
+    [scrollView setAutohidesScrollers:YES];
+
+    [[scrollView contentView] setBackgroundColor:[CPColor colorWithCalibratedWhite:0.25 alpha:1.0]];
+
+    [contentView addSubview:scrollView];
+
+    //bring forward the window to display it
+    [theWindow orderFront:self];
+
+    //get the most interesting photos on flickr
+    var request = [CPURLRequest requestWithURL:"http://www.flickr.com/services/rest/?method=flickr.interestingness.getList&per_page=20&format=json&api_key=ca4dd89d3dfaeaf075144c3fdec76756"];
+
+    // see important note about CPJSONPConnection above
+    var connection = [CPJSONPConnection sendRequest:request callback:"jsoncallback" delegate:self];
+
+    lastIdentifier = "Interesting Photos";
+}
+
+- (void)add:(id)sender
+{
+    var string = prompt("Enter a tag to search Flickr for photos.");
+
+    if (string)
+    {
+        //create a new request for the photos with the tag returned from the javascript prompt
+        var request = [CPURLRequest requestWithURL:"http://www.flickr.com/services/rest/?"+
+                                                    "method=flickr.photos.search&tags="+encodeURIComponent(string)+
+                                                    "&media=photos&machine_tag_mode=any&per_page=20&format=json&api_key=ca4dd89d3dfaeaf075144c3fdec76756"];
+
+        // see important note about CPJSONPConnection above
+        [CPJSONPConnection sendRequest:request callback:"jsoncallback" delegate:self];
+
+        lastIdentifier = string;
+    }
+}
+
+- (void)remove:(id)sender
+{
+    //remove this photo
+    [self removeImageListWithIdentifier:[[photosets allKeys] objectAtIndex:[[listCollectionView selectionIndexes] firstIndex]]];
+}
+
+- (void)addImageList:(CPArray)images withIdentifier:(CPString)aString
+{
+    [photosets setObject:images forKey:aString];
+
+    [listCollectionView setContent:[[photosets allKeys] copy]];
+    [listCollectionView setSelectionIndexes:[CPIndexSet indexSetWithIndex:[[photosets allKeys] indexOfObject:aString]]];
+}
+
+- (void)removeImageListWithIdentifier:(CPString)aString
+{
+    var nextIndex = MAX([[listCollectionView content] indexOfObject:aString] - 1, 0);
+
+    [photosets removeObjectForKey:aString];
+
+    [listCollectionView setContent:[[photosets allKeys] copy]];
+    [listCollectionView setSelectionIndexes:[CPIndexSet indexSetWithIndex:nextIndex]];
+}
+
+- (void)adjustImageSize:(id)sender
+{
+    var newSize = [sender value];
+
+    [photosCollectionView setMinItemSize:CGSizeMake(newSize, newSize)];
+    [photosCollectionView setMaxItemSize:CGSizeMake(newSize, newSize)];
+}
+
+- (void)collectionViewDidChangeSelection:(CPCollectionView)aCollectionView
+{
+    if (aCollectionView == listCollectionView)
+    {
+        var listIndex = [[listCollectionView selectionIndexes] firstIndex];
+
+        if (listIndex === CPNotFound)
+            return;
+
+        var key = [listCollectionView content][listIndex];
+
+        [photosCollectionView setContent:[photosets objectForKey:key]];
+        [photosCollectionView setSelectionIndexes:[CPIndexSet indexSet]];
+    }
+}
+
+- (void)connection:(CPJSONPConnection)aConnection didReceiveData:(CPString)data
+{
+    //this method is called when the network request returns. the data is the returned
+    //information from flickr. we set the array of photo urls as the data to our collection view
+
+    [self addImageList:data.photos.photo withIdentifier:lastIdentifier];
+}
+
+- (void)connection:(CPJSONPConnection)aConnection didFailWithError:(CPString)error
+{
+    alert(error); //a network error occurred
+}
+
+//these two methods are the toolbar delegate methods, and tell the toolbar what it should display to the user
+
+- (CPArray)toolbarAllowedItemIdentifiers:(CPToolbar)aToolbar
+{
+   return [self toolbarDefaultItemIdentifiers:aToolbar];
+}
+
+- (CPArray)toolbarDefaultItemIdentifiers:(CPToolbar)aToolbar
+{
+   return [AddToolbarItemIdentifier, RemoveToolbarItemIdentifier, CPToolbarFlexibleSpaceItemIdentifier, SliderToolbarItemIdentifier];
+}
+
+//this delegate method returns the actual toolbar item for the given identifier
+
+- (CPToolbarItem)toolbar:(CPToolbar)aToolbar itemForItemIdentifier:(CPString)anItemIdentifier willBeInsertedIntoToolbar:(BOOL)aFlag
+{
+    var toolbarItem = [[CPToolbarItem alloc] initWithItemIdentifier:anItemIdentifier];
+
+    if (anItemIdentifier == SliderToolbarItemIdentifier)
+    {
+        [toolbarItem setView:[[PhotoResizeView alloc] initWithFrame:CGRectMake(0, 0, 180, 32)]];
+        [toolbarItem setMinSize:CGSizeMake(180, 32)];
+        [toolbarItem setMaxSize:CGSizeMake(180, 32)];
+        [toolbarItem setLabel:"Scale"];
+    }
+    else if (anItemIdentifier == AddToolbarItemIdentifier)
+    {
+        var image = [[CPImage alloc] initWithContentsOfFile:[[CPBundle mainBundle] pathForResource:"add.png"] size:CPSizeMake(30, 25)],
+            highlighted = [[CPImage alloc] initWithContentsOfFile:[[CPBundle mainBundle] pathForResource:"addHighlighted.png"] size:CPSizeMake(30, 25)];
+
+        [toolbarItem setImage:image];
+        [toolbarItem setAlternateImage:highlighted];
+
+        [toolbarItem setTarget:self];
+        [toolbarItem setAction:@selector(add:)];
+        [toolbarItem setLabel:"Add Photo List"];
+
+        [toolbarItem setMinSize:CGSizeMake(32, 32)];
+        [toolbarItem setMaxSize:CGSizeMake(32, 32)];
+    }
+    else if (anItemIdentifier == RemoveToolbarItemIdentifier)
+    {
+        var image = [[CPImage alloc] initWithContentsOfFile:[[CPBundle mainBundle] pathForResource:"remove.png"] size:CPSizeMake(30, 25)],
+            highlighted = [[CPImage alloc] initWithContentsOfFile:[[CPBundle mainBundle] pathForResource:"removeHighlighted.png"] size:CPSizeMake(30, 25)];
+
+        [toolbarItem setImage:image];
+        [toolbarItem setAlternateImage:highlighted];
+
+        [toolbarItem setTarget:self];
+        [toolbarItem setAction:@selector(remove:)];
+        [toolbarItem setLabel:"Remove Photo List"];
+
+        [toolbarItem setMinSize:CGSizeMake(32, 32)];
+        [toolbarItem setMaxSize:CGSizeMake(32, 32)];
+    }
+
+    return toolbarItem;
+}
+
+@end
+
+/*
+    This code demonstrates how to add a category to an existing class.
+    In this case, we are adding the class method +flickr_labelWithText: to
+    the CPTextField class. Later on, we can call [CPTextField flickr_labelWithText:"foo"]
+    to return a new text field with the string foo.
+    Best practices suggest prefixing category methods with your unique prefix, to prevent collisions.
+*/
+
+@implementation CPTextField (CreateLabel)
+
++ (CPTextField)flickr_labelWithText:(CPString)aString
+{
+    var label = [[CPTextField alloc] initWithFrame:CGRectMakeZero()];
+
+    [label setStringValue:aString];
+    [label sizeToFit];
+    [label setTextShadowColor:[CPColor whiteColor]];
+    [label setTextShadowOffset:CGSizeMake(0, 1)];
+
+    return label;
+}
+
+@end
+
+// This class wraps our slider + labels combo
+
+@implementation PhotoResizeView : CPView
+{
+}
+
+- (id)initWithFrame:(CGRect)aFrame
+{
+    self = [super initWithFrame:aFrame];
+
+    var slider = [[CPSlider alloc] initWithFrame:CGRectMake(30, CGRectGetHeight(aFrame) / 2.0 - 8, CGRectGetWidth(aFrame) - 65, 24)];
+
+    [slider setMinValue:50.0];
+    [slider setMaxValue:250.0];
+    [slider setIntValue:150.0];
+    [slider setAction:@selector(adjustImageSize:)];
+
+    [self addSubview:slider];
+
+    var label = [CPTextField flickr_labelWithText:"50"];
+    [label setFrameOrigin:CGPointMake(0, CGRectGetHeight(aFrame) / 2.0 - 4.0)];
+    [self addSubview:label];
+
+    label = [CPTextField flickr_labelWithText:"250"];
+    [label setFrameOrigin:CGPointMake(CGRectGetWidth(aFrame) - CGRectGetWidth([label frame]), CGRectGetHeight(aFrame) / 2.0 - 4.0)];
+    [self addSubview:label];
+
+    return self;
+}
+
+@end
+
+// This class displays a single photo collection inside our list of photo collecitions
+
+@implementation PhotosListCell : CPView
+{
+    CPTextField     label;
+    CPView          highlightView;
+}
+
+- (void)setRepresentedObject:(JSObject)anObject
+{
+    if (!label)
+    {
+        label = [[CPTextField alloc] initWithFrame:CGRectInset([self bounds], 4, 4)];
+
+        [label setFont:[CPFont systemFontOfSize:16.0]];
+        [label setTextShadowColor:[CPColor whiteColor]];
+        [label setTextShadowOffset:CGSizeMake(0, 1)];
+
+        [self addSubview:label];
+    }
+
+    [label setStringValue:anObject];
+    [label sizeToFit];
+
+    [label setFrameOrigin:CGPointMake(10,CGRectGetHeight([label bounds]) / 2.0)];
+}
+
+- (void)setSelected:(BOOL)flag
+{
+    if (!highlightView)
+    {
+        highlightView = [[CPView alloc] initWithFrame:CGRectCreateCopy([self bounds])];
+        [highlightView setBackgroundColor:[CPColor blueColor]];
+    }
+
+    if (flag)
+    {
+        [self addSubview:highlightView positioned:CPWindowBelow relativeTo:label];
+        [label setTextColor:[CPColor whiteColor]];
+        [label setTextShadowColor:[CPColor blackColor]];
+    }
+    else
+    {
+        [highlightView removeFromSuperview];
+        [label setTextColor:[CPColor blackColor]];
+        [label setTextShadowColor:[CPColor whiteColor]];
+    }
+}
+
+@end
+
+// This class displays a single photo from our collection
+
+@implementation PhotoCell : CPView
+{
+    CPImage         image;
+    CPImageView     imageView;
+    CPView          highlightView;
+}
+
+- (void)setRepresentedObject:(JSObject)anObject
+{
+    if (!imageView)
+    {
+        imageView = [[CPImageView alloc] initWithFrame:CGRectMakeCopy([self bounds])];
+        [imageView setAutoresizingMask:CPViewWidthSizable | CPViewHeightSizable];
+        [imageView setImageScaling:CPScaleProportionally];
+        [imageView setHasShadow:YES];
+        [self addSubview:imageView];
+    }
+
+    [image setDelegate:nil];
+
+    image = [[CPImage alloc] initWithContentsOfFile:thumbForFlickrPhoto(anObject)];
+
+    [image setDelegate:self];
+
+    if ([image loadStatus] == CPImageLoadStatusCompleted)
+        [imageView setImage:image];
+    else
+        [imageView setImage:nil];
+}
+
+- (void)imageDidLoad:(CPImage)anImage
+{
+    [imageView setImage:anImage];
+}
+
+- (void)setSelected:(BOOL)flag
+{
+    if (!highlightView)
+    {
+        highlightView = [[CPView alloc] initWithFrame:[self bounds]];
+        [highlightView setBackgroundColor:[CPColor colorWithCalibratedWhite:0.8 alpha:0.6]];
+        [highlightView setAutoresizingMask:CPViewWidthSizable | CPViewHeightSizable];
+    }
+
+    if (flag)
+    {
+        [highlightView setFrame:[self bounds]];
+        [self addSubview:highlightView positioned:CPWindowBelow relativeTo:imageView];
+    }
+    else
+        [highlightView removeFromSuperview];
+}
+
+@end
+
+// helper javascript functions for turning a Flickr photo object into a URL for getting the image
+
+function urlForFlickrPhoto(photo)
+{
+    return "http://farm" + photo.farm + ".static.flickr.com/" + photo.server + "/" + photo.id+"_" + photo.secret + ".jpg";
+}
+
+function thumbForFlickrPhoto(photo)
+{
+    return "http://farm" + photo.farm + ".static.flickr.com/" + photo.server + "/" + photo.id + "_" + photo.secret + "_m.jpg";
+}

samples/Objective-J/LightsOff.j

@@ -0,0 +1,88 @@
+@import <Foundation/CPObject.j>
+@import <AppKit/CPView.j>
+@import <AppKit/CPButton.j>
+@import <AppKit/CPWebView.j>
+@import "LOBoard.j"
+
+@implementation LOInfoView : CPView
+{
+}
+
+- (void)drawRect:(CGRect)r
+{
+    [[CPColor whiteColor] setFill]
+    var path = [CPBezierPath bezierPath];
+    [path appendBezierPathWithRoundedRect:CGRectMake(5, 0, CGRectGetWidth([self bounds]) - 10.0, CGRectGetHeight([self bounds])) xRadius:10 yRadius:10];
+    [path fill];
+}
+
+@end
+
+@implementation AppController : CPObject
+{
+}
+
+- (CPPanel)initInfoWindow
+{
+    var infoWindow = [[CPPanel alloc] initWithContentRect:CGRectMake(400, 50, 320, 480) styleMask:CPHUDBackgroundWindowMask | CPResizableWindowMask];
+    [infoWindow setFloatingPanel:YES];
+
+    var _infoContent = [infoWindow contentView],
+        _iconImage = [[CPImage alloc] initWithContentsOfFile:"Resources/icon.png" size:CPSizeMake(59, 60)],
+        _iconView = [[CPImageView alloc] initWithFrame:CGRectMake(125, 0, 59, 60)];
+
+    [_iconView setImage:_iconImage];
+    [_infoContent addSubview:_iconView];
+
+    var _infoView = [[LOInfoView alloc] initWithFrame:CGRectMake(0, 65, 320, 395)],
+        _webView = [[CPWebView alloc] initWithFrame:CGRectMake(20, 0, 270, 370)];
+
+    [_webView loadHTMLString:@"<center><h3>Lights Off</h3></center> <p>Lights Off is a fantastic game exclusively for iPhone and iPod touch and inspired by Tiger Electronic's 'Lights Out'.</p> <p>The goal of the game is simply to switch all of the lights off, but it's harder than it looks! Give the first few levels a try in the playable demo to the left.</p><center><img src='Resources/avail_on_app_store.png'></center>"];
+
+    [_infoView addSubview:_webView];
+
+    [_infoContent addSubview:_infoView];
+
+    return infoWindow;
+}
+
+- (void)applicationDidFinishLaunching:(CPNotification)aNotification
+{
+    /* Enable Logging (DEBUG) */
+    // CPLogRegister(CPLogPopup);
+
+    var rootWindow = [[CPWindow alloc] initWithContentRect:CGRectMakeZero() styleMask:CPBorderlessBridgeWindowMask];
+    [rootWindow setBackgroundColor:[CPColor grayColor]];
+    [rootWindow orderFront:self];
+
+    var infoWindow = [self initInfoWindow],
+        gameWindow = [[CPPanel alloc] initWithContentRect:CGRectMake(50, 50, 324, 482) styleMask:CPHUDBackgroundWindowMask];
+    [gameWindow setFloatingPanel:YES];
+    [gameWindow setTitle:@"Lights Off"];
+
+    contentView = [gameWindow contentView];
+
+    var _board = [[LOBoard alloc] initWithFrame:CGRectMake(2, 0, 320, 480)],
+        _bgImage = [[CPImage alloc] initWithContentsOfFile:"Resources/lo-background.png" size:CPSizeMake(320, 480)];
+    [_board setImage:_bgImage];
+    [_board resetBoard];
+
+    var _buttonImage = [[CPImage alloc] initWithContentsOfFile:"Resources/button-reset.png" size:CPSizeMake(90, 28)],
+        _buttonPressImage = [[CPImage alloc] initWithContentsOfFile:"Resources/button-reset-press.png" size:CPSizeMake(90, 28)],
+        _resetButton = [[CPButton alloc] initWithFrame:CGRectMake(195, 422, 90, 28)];
+
+    [_resetButton setImage:_buttonImage];
+    [_resetButton setAlternateImage:_buttonPressImage];
+    [_resetButton setBordered:NO];
+
+    [contentView addSubview:_board];
+    [contentView addSubview:_resetButton];
+
+    [_resetButton setTarget:_board];
+    [_resetButton setAction:@selector(resetBoard)];
+
+    [gameWindow orderFront:self];
+    [infoWindow orderFront:self];
+}
+
+@end

samples/Objective-J/iTunesLayout.j

@@ -0,0 +1,47 @@
+
+@import <Foundation/CPObject.j>
+
+
+@implementation AppController : CPObject
+{
+}
+
+- (void)applicationDidFinishLaunching:(CPNotification)aNotification
+{
+    // The end result of this layout will be the kind of master/detail/auxilliary view
+    // found in iTunes, Mail, and many other apps.
+
+    var theWindow = [[CPWindow alloc] initWithContentRect:CGRectMakeZero() styleMask:CPBorderlessBridgeWindowMask],
+        contentView = [theWindow contentView];
+
+    var navigationArea = [[CPView alloc] initWithFrame:CGRectMake(0.0, 0.0, 150.0, CGRectGetHeight([contentView bounds]) - 150.0)];
+
+    [navigationArea setBackgroundColor:[CPColor redColor]];
+
+    // This view will grow in height, but stay fixed width attached to the left side of the screen.
+    [navigationArea setAutoresizingMask:CPViewHeightSizable | CPViewMaxXMargin];
+
+    [contentView addSubview:navigationArea];
+
+    var metaDataArea = [[CPView alloc] initWithFrame:CGRectMake(0.0, CGRectGetMaxY([navigationArea frame]), 150.0, 150.0)];
+
+    [metaDataArea setBackgroundColor:[CPColor greenColor]];
+
+    // This view will stay the same size in both directions, and fixed to the lower left corner.
+    [metaDataArea setAutoresizingMask:CPViewMinYMargin | CPViewMaxXMargin];
+
+    [contentView addSubview:metaDataArea];
+
+    var contentArea = [[CPView alloc] initWithFrame:CGRectMake(150.0, 0.0, CGRectGetWidth([contentView bounds]) - 150.0, CGRectGetHeight([contentView bounds]))];
+
+    [contentArea setBackgroundColor:[CPColor blueColor]];
+
+    // This view will grow in both height an width.
+    [contentArea setAutoresizingMask:CPViewWidthSizable | CPViewHeightSizable];
+
+    [contentView addSubview:contentArea];
+
+    [theWindow orderFront:self];
+}
+
+@end

samples/Public Key/gpg_key.asc

@@ -0,0 +1,76 @@
+-----BEGIN PGP PUBLIC KEY BLOCK-----
+Version: GnuPG v2
+
+mQINBFJJNS0BEADE9QkGDstkCAbUWIMnyzfYb+Z7KdF1vFR2WLe4yov9lwQ1gfjy
+3lV5AZfEmNe+AGTRney/jpp9It0wyVQWvKM7N9yvFkWRVHq/thz8oDz/SknBoD1F
+jACJgPXGlK3+YiXa03e3XM1JZxBgvHEH4MQTnNHQ2N7ey2J3oZ6NtOkZdu1xHKZS
+hn1WUR9zRMa1XK1yLAowlKThnPk+jQVrMrwLtjoJ4wyWHGz+sZJw0IkV/7YJa2it
+0h7z2x0JmkkiNtYGmbwiTKIIbR2ZcjXLN/VgQ5dvMJDHqkiuVG8VCZ5RetYbLPza
+6+xsJoByuAzK5Zgg8lB73TgjkJYN19F56W10e5b+4VUYjU1g7rFbYh0JRz4u6IVJ
+4lJykVHTCIVbGPNeBlqw/LeGnDsXV3a9OGnWvHZzLzFEp9RZwrUMOFUtdkEwZU+j
+nt/I7c1+RVrmjW0aNulR9fywD+GdaTEnxl08m2yNokMdjy6Z43yUNbYf4F5HFYCi
+wZRD40jHb8N89DPZhdZaDub5F+ePfy3+JIXm1e8rdWjr1z9UjF8eX5XQ89OVNS62
+Kb2VM5YT/gCa/4Iwaoag/URVyB/BDJIuqjBpu6Al6zdtuOkvbawoezrqaWN6JJF7
+BBaVYy2AS5OjGtu8Uxfz0iYevwql1lIczK2c0E+InNNyFPOu/rpppgURwQARAQAB
+tCRSeWFuIEphY29icyA8cnlhbi5tamFjb2JzQGdtYWlsLmNvbT6JAjkEEwECACMF
+AlOeONMCGwMHCwkIBwMCAQYVCAIJCgsEFgIDAQIeAQIXgAAKCRC9jrHuX4qBgQJ7
+D/kBzMpbQeoZ6LCIRs2Yngalc+8U+Td9GSjdmo1oIjrYtowSTeOQcoIznv8gKY2n
+yUypNNsgYtT8lpMtnT6BjHJU05vdGBVZDbD6NnxcgIwo3DM9I9eazjy9oHVIXPDu
+offTfwFmVEIlWWLcn0bHzyy70Gp7p0J3QbEN1Q2nXNX5LXzqfPlaeLpwotnSiKD8
+xNZ/iKVhMduLOZ6YY2jDcdlYba1hDoDHgO1Xh0wR2ZO7Yl50XM4mQlMudX1YsTuy
+dLEbEtX+CR2uMpvhPYUhQzE4st9r7ZPlUO33cOn5FCyn29EB5DyMpILjS6M9Vlwa
+oByPOhsCg7U23gviGxx7h/9dSFx6pZ7/Ejhwq+NgtmnMn+xQ5SL0UgVm1O3lruf+
+0OxlkShpx85PRJIr+lJvFAulb+h5kjzDTV5ekqL0poGlRzLvC4xSbEzYdpBN2mbD
+sR2yR4KJ6K972CufYTdKVk2hnvlYunP1Yg7NYaQvSITKbcZ+M6tvAkbXyOV6MGVV
+u8dhKwKmR4+s8Rajf0x2n2wl7DZy5sdSmSIGPMYOskgsVxXcuaWa7DEqcjrdoGPQ
+uJiBubAQnMKnUvOwY1dsD3H7FQu3INQbarngcPUfxKjGWRveGYYQtAf5FF5Cuj7T
+OuQM2+CVaPWlrj944IEGWp75ezWDCsEMTQZC7B86BDer2bQvUnlhbiBKYWNvYnMg
+KER1a2VsYW5hKSA8cnlhbi5tamFjb2JzQGdtYWlsLmNvbT6JAjMEMAECAB0FAlOe
+OU8WHQBSZW1vdmVkIHRoZSBjb21tZW50LgAKCRC9jrHuX4qBgTLxEACrFljsl+8F
+EPHZ2fhMr+2601RktBttkl3RgFMpaXKBBuiGwaatfo9k6GsXaVfzAXpR7jf1RxUr
+qzJ3H8YT5mvnXzVSe0i42Ykfj8+SxsggfcJfLZfyMtTsT0mE1WCb1JaTfn0HyYum
+kuVtCm3pBhrwlyEGjRMx1HKeOnQCXYLjtTgjsmlitRl/mwKpHkTuKOdt9rpTU77H
+x3+Hi5YEeSDd5jEujj0THC98WcokhBuKT3Ki805jqPuyFIN17+cJK8rHEQSnZOLG
+Xj/VzogQ/t2OZw5IpmdLefLRTCvcZNsfqsHLc543+C0dzK3eL2z+g/rOU0VnVjf9
+ANKZHzoUkYSmKDS/JQDXgCgKC5FjtyEjvP4xgQasqmtt3FWT/CljxEqP5tXGdLnE
+MBeKJO9UkomG2bHTeJhS5yVL53ULtMvNmQX+21zz7QQdbL6wIKw7MwjhmkuUAeKG
++6ZfqEJnCCEvOp8Q0RddQ00JLneY54WuR1I17+peDIc59zS+wpwCcHA2MiVBwouB
+2eUYb0O+TBdcrx/NMoIQWJ6QK2z/CP90tCKcMvCoU0fCRwkiWk9CFcrk0MAbPt8N
+C3LV3Xr9qFBAyPRsg8SkTzeWf9oCsQDydWTN+UydHMbdTnQLs4qCt5/i3jOmYpSK
+j5f5VcqO+Uq8fcAFasQt8giSuzBrcdW4+4kCOAQTAQIAIgUCUkk1LQIbAwYLCQgH
+AwIGFQgCCQoLBBYCAwECHgECF4AACgkQvY6x7l+KgYFlkxAAkHwIjv9bIcHhQ5HK
+It6ZKPTEuZJM5VUYGO3o0bA8wPRGapJ+6ndCbeC7/U+W8ShfNJM789cFLTN0dQbU
+jbbkucTCqG+0lAgimP7KiCLx2Hs3McdOTHt3m4dzPiUsz1waNDkrD3QzU6k6jebW
+ApAzhMkYH1IALxd4yScNR2CPcdV/YQUt4OG0+h69rubsHbszQOpAsFoygNAZGWbD
+6i4gQz5CYat+TCmooI/kJh/cdZ+IFfwZXfQHndwsmByqZYydu4Lc0i/KgaW4r4fp
+u5/L19qWPjoJKQf8y1aiVjEq/QCi0fKEAIhrOJq6Woyv97WDsGu5u0yDIOpCInSC
+5J8okLl2CtATYh9YayxAHyus/137skhJwwLwAadpmsXeZR+xOpE8HMXxS8DiVH+O
+nu3beOZnY6g4g8/uxzY0FpQ6MB1DRVPRxPZ/+3RjMqAjSRFVZag3zwv19Qu/IHhR
+uQal7eR5Ml0MqTBPl2cKt3iKmrY2RIMfLC2Emv5cH5y3iep7A6FrLn4fiS6u0AXJ
+NmPk23C65K/dlIdytm9qZi7EJpOw0IE1x4UU6wNS+kM4mqnWtzCZvMIhq2lQY1k0
+PEB2NAGrOgNRkr6MsL4XOQhy6lT18sO39LTWdMoz0IviGSpdO9MukxhraBt/6GWK
+YP8E+8TwsCqxq2LD/9E8G4n9IaC5Ag0EUkk1LQEQAK5R+XG9q2rcVkZhsTOOJf6k
+Bc/aYYsEJktnZD7jqFRUve9p/K31qPL/qtMyLxQqRJla9PUiPtwY1vZo+omtg1Eh
+eu2Na6z7m5ZuFE7GkS2hvFlM/STqiZ09Vrv8CaCb8Vs/sbrsupgeNGOTZOf53DHF
+VszV9C1KY5Ux+t7gua0mKwBOrk4l5ctGDsV7GE8BsplfZHwsYKW2ez4462s2lgDf
+H+nBxToT0pv5OVvE6Iv5oXUTaotpOm2s/leNiHBYOS+qYXq58LcvjNaFY6ROexWW
+JQbaK8jEYP5HKSA7p2+5Cnf1FNP4LjH0dnT3OOC5PTlZ9Di4reLtLlsmCQkhRRyx
+tjZfWCNDI70pme0SMXUe4lYnLjNTrmryu9PV0RYaMAL1VZYhrMLCT0SMaHNm1gKN
++j00X8bGTEvA9bTzWo2oOS0r1hw0AdgfeFaMvSzTaiZfrB5a6UEDDMwrraaTwlPp
+SXVL9OWtdvr5kuIwMG6uHxGXmDHkxQsm0jqiWMl8y43QJ1qJQ02DYyAFGH/liKmt
+j46fxRWxoCUVF6xaBf7zQv3h5YouM+tVe0X/bcZKGc+tFbngy8MtP3cuv5I1UZ+C
+Gg9mttl8/SrLtpOtHSkKtJqU69sVVZazRn/GXApnhTdSMySCkmwdafEnK73izBt/
+SJiaoDIvVejvuIt5jFudABEBAAGJAh8EGAECAAkFAlJJNS0CGwwACgkQvY6x7l+K
+gYFX2xAAhiK/NeQdoZ44MqNxeXyo+xqBAotYGXZ5G8pNc07FtDcU/Ile4PKpmrVG
+zH0de0Gw1e2gTHmDJHMadPGjaYqDK6ZTXE4M58u7KAoQNQIXU4URHmTSBreB3qVp
+kXepM6lGZq5/DXOT2r+OzyCDI3isza2Xqzy6doC2/QGPMG3GMgc1aolToPznSTWX
+KIlOuEpvGvZICprlb4fOVAa6nGF5WFi+kyF4UpkxOniaVW6fAfezlBEiQKlJe2Rh
+SsDBbS2DmRw/6TEWzd2DVobfWfK+wWDLqm6L+zS3StkMCm3A6UKkoHZzWAAbKqta
+sbQPFFfJnKyWXi0kjiAHlycdMouSgk1JY72fCxHUMxYRLKHGvpX1o2MlqUkjn5Yv
+OVD9U8w4BUnv/iXd0Txdp1nkz/NLM174HCrQKSfubKNL1K53K0+iFNo4Ow2RJodR
+71SGZgfkBxjD4bkJhaLB9xUmBkz6PaQl7pRVBtS7INbEbiyR2QvMYwsn7XwY92iI
+WQ1yopiNGIub7pvrhs/qpzmftb/r9OaiGUoXB0FeQnDHo7x0vulX+0nU9crPcVCe
+h/qQe/KCbs6ZuUkKKG9Y4XreJ8S1s3iGsVefwHQ/mjRB1b857of+61K4pquQ4u9J
+svBlAR7nTIPqbZDw1lf5V2UrsyXQ2xBpCp5WGlRZ+SGvB0zvlzU=
+=xJ8l
+-----END PGP PUBLIC KEY BLOCK-----

samples/Public Key/id.pub

@@ -0,0 +1 @@
+ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQConqV+vS0WfY9swk8St+JcRuhft0jTg4IrAEfmxahSLurkbf54jbe8mrNn96Nm2gkRzs2RNVQ9r4dZzdhKTUk395Vs3LbX3cfdRNaCrs3udqhRZK7Go69DQECnEHFNczBxSrhT5DoO4nuzVimHgSsX7rHKHo6J7SDNowf83/nLUr7SAJvOeQo5yZQqqZQi5NXqH6pEOQtWPILdbZWuhq8s4JIXc38I+w3IXEJ0ttsfkyShv85bhwSFzrOlq2oGY37YVWeXPREXg9ksA6rlxe29SIdAQbINlgJ/ELzDVMYiaQkI5opAvI2EzPVd4325PcMgyFM/weO9F6bKZaGCNyt3 

samples/Public Key/id_rsa.pub

@@ -0,0 +1 @@
+ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAAAgQCw3QQtYgRViVH8ZpkQ2A7BuCeyPYC4hB9kKNhxwUfJ2hFgW8soGMBhsLN+vOeAJ2IXDMsezJO2/qhoZFQMvHoWpWTRTLPeNtBsKD+nhOZX28A4D+QRzVZ6hdWoh9W+mIP69MIT3aX35oLb86IycbNdRJlEK4FAUt7tjezNkU7boQ== root@use1-2.nitrousbox.com

samples/Public Key/sunCert.asc

@@ -0,0 +1,15 @@
+Type Bits/KeyID    Date       User ID
+pub  1024/79949ADD 2005/08/07 sun <sun.strongswan.org>
+
+-----BEGIN PGP PUBLIC KEY BLOCK-----
+Version: 2.6.3i
+
+mQCNA0L2Km8AAAEEANRAVMn8HBxfYaGhLqtQ3IZJArn9wpcQ+7sH/F9PaXIjzHRQ
+rfFkfmxxp9lVjCk0LM/BnnlnUmyz6F8K7V0Gi40Am4+ln1zHvZZIQJYGrDhDnjb7
+I5TVeD4Ib5bQ1CoUbIhv2LocCeR6OjefQgGmerC5RQ3d5ci7uB0pVpd5lJrdAAUR
+tBhzdW4gPHN1bi5zdHJvbmdzd2FuLm9yZz6JAJUDBRBC9ipvHSlWl3mUmt0BAUZR
+A/43nuZbxADMSviu54Mj8pvQbYeGLQVabiWT6h7L0ZPX4MWpFH3dTixBfRrZRSsj
+0AgiMMuZAMebfOe+Xf9uDQv7p1yumEiNg43tg85zyawkARWNTZZ04woxtvAqNwXn
+lQotGz7YA6JMxry9RQo5yI4Y4dPnVZ/o8eDpP0+I88cOhQ==
+=lLvB
+-----END PGP PUBLIC KEY BLOCK-----

samples/PureBasic/Example_Sine.pb

@@ -0,0 +1,137 @@
+EnableExplicit
+
+; ##################################################### Includes ####################################################
+
+XIncludeFile "Includes/AudioOut.pbi"
+
+; ##################################################### Prototypes ##################################################
+
+; ##################################################### Structures ##################################################
+
+; ##################################################### Constants ###################################################
+
+#Samplerate = 44100
+
+; ##################################################### Structures ##################################################
+
+Structure Main
+  *AudioOut
+  
+  Quit.i
+EndStructure
+Global Main.Main
+
+Structure Main_Window
+  ID.i
+  
+  TrackBar.i [10]
+EndStructure
+Global Main_Window.Main_Window
+
+; ##################################################### Variables ###################################################
+
+Global Frequency.d = 1000
+Global Amplitude.d = 0.25
+
+; ##################################################### Procedures ##################################################
+
+Procedure Main_Window_Open()
+  Main_Window\ID = OpenWindow(#PB_Any, 0, 0, 800, 100, "AudioOut Example", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
+  
+  If Main_Window\ID
+    
+    Main_Window\TrackBar[0] = TrackBarGadget(#PB_Any, 10, 10, 780, 30, 0, 20000)
+    SetGadgetState(Main_Window\TrackBar[0], Frequency)
+    
+    Main_Window\TrackBar[1] = TrackBarGadget(#PB_Any, 10, 40, 780, 30, 0, 1000)
+    SetGadgetState(Main_Window\TrackBar[1], Amplitude*1000)
+    
+  EndIf
+EndProcedure
+
+Procedure Notifier_CallBack(*AudioOut)
+  Protected *Temp, Temp_Size.i
+  Static Rotation.d
+  
+  While AudioOut::GetQueuedBlocks(*AudioOut) <= 3
+    
+    Temp_Size = AudioOut::GetBufferBlocksize(*AudioOut)
+    If Temp_Size > 0
+      *Temp = AllocateMemory(Temp_Size)
+      
+      Define Left.d, Right.d, i
+      For i = 0 To Temp_Size / 4 - 1
+        Left = Sin(Rotation) * Amplitude
+        Right = Sin(Rotation) * Amplitude
+        
+        PokeW(*Temp + i*4    , Left*32767)
+        PokeW(*Temp + i*4 + 2, Right*32767)
+        
+        Rotation + 2.0*#PI / #Samplerate * Frequency
+      Next
+      
+      AudioOut::Write_Data(Main\AudioOut, *Temp, Temp_Size)
+      
+      FreeMemory(*Temp)
+    EndIf
+    
+  Wend
+EndProcedure
+
+; ##################################################### Initialisation ##############################################
+
+Main_Window_Open()
+
+AudioOut::GetDevices()
+
+ForEach AudioOut::Device()
+  Debug PeekS(AudioOut::@Device()\szPname)
+Next
+
+Main\AudioOut = AudioOut::Initialize(#WAVE_MAPPER, #Samplerate, 2, 16, @Notifier_CallBack())
+
+If Not Main\AudioOut
+  Debug AudioOut::GetError()
+  End
+EndIf
+
+Notifier_CallBack(Main\AudioOut)
+
+; ##################################################### Main ########################################################
+
+Repeat
+  
+  Repeat
+    Select WaitWindowEvent(100)
+      Case #PB_Event_Gadget
+        Select EventGadget()
+          Case Main_Window\TrackBar[0]
+            Frequency = GetGadgetState(Main_Window\TrackBar[0])
+            Debug Frequency
+            
+          Case Main_Window\TrackBar[1]
+            Amplitude = GetGadgetState(Main_Window\TrackBar[1]) / 1000
+            
+        EndSelect
+        
+      Case #PB_Event_CloseWindow
+        Main\Quit = #True
+        
+      Case 0
+        Break
+    EndSelect
+  ForEver
+  
+Until Main\Quit
+
+; ##################################################### End #########################################################
+
+AudioOut::Deinitialize(Main\AudioOut)
+
+; IDE Options = PureBasic 5.30 Beta 2 (Windows - x64)
+; CursorPosition = 109
+; FirstLine = 79
+; Folding = -
+; EnableUnicode
+; EnableThread
+; EnableXP

samples/PureBasic/Memory.pbi

@@ -0,0 +1,203 @@
+
+Structure Memory_Operation
+  Src_Offset.q
+  Src_Size.q
+  
+  Dst_Offset.q
+  Dst_Size.q
+  
+  Copy_Size.q
+EndStructure
+
+; #### Cuts the Offset's / Sizes of the memory operation to prevent memory violations
+Procedure Memory_Operation_Check(*Memory_Operation.Memory_Operation)
+  Protected Temp.q
+  
+  If *Memory_Operation\Src_Offset < 0
+    *Memory_Operation\Copy_Size  + *Memory_Operation\Src_Offset
+    *Memory_Operation\Dst_Offset - *Memory_Operation\Src_Offset
+    *Memory_Operation\Src_Offset - *Memory_Operation\Src_Offset
+  EndIf
+  
+  If *Memory_Operation\Dst_Offset < 0
+    *Memory_Operation\Copy_Size  + *Memory_Operation\Dst_Offset
+    *Memory_Operation\Src_Offset - *Memory_Operation\Dst_Offset
+    *Memory_Operation\Dst_Offset - *Memory_Operation\Dst_Offset
+  EndIf
+  
+  Temp = *Memory_Operation\Src_Size - *Memory_Operation\Src_Offset
+  If *Memory_Operation\Copy_Size > Temp
+    *Memory_Operation\Copy_Size = Temp
+  EndIf
+  
+  Temp = *Memory_Operation\Dst_Size - *Memory_Operation\Dst_Offset
+  If *Memory_Operation\Copy_Size > Temp
+    *Memory_Operation\Copy_Size = Temp
+  EndIf
+  
+  If *Memory_Operation\Copy_Size < 0
+    *Memory_Operation\Copy_Size = 0
+  EndIf
+  
+  ProcedureReturn #True
+EndProcedure
+
+; #### Fills a *Destination with a specified amount of data.
+; #### It cuts everything, to prevent memory violations
+Procedure Memory_Range_Fill(Ascii.a, Fill_Size.q, *Dst, Dst_Offset.q, Dst_Size.q=-1)
+  Protected Temp.q
+  
+  If Not *Dst
+    ProcedureReturn #False
+  EndIf
+  
+  If Dst_Size = -1
+    Dst_Size.q = MemorySize(*Dst)
+  EndIf
+  
+  If Dst_Offset < 0
+    Fill_Size  + Dst_Offset
+    Dst_Offset - Dst_Offset
+  EndIf
+  
+  Temp = Dst_Size - Dst_Offset
+  If Fill_Size > Temp
+    Fill_Size = Temp
+  EndIf
+  
+  If Fill_Size > 0
+    FillMemory(*Dst+Dst_Offset, Fill_Size, Ascii)
+  EndIf
+  
+  ProcedureReturn #True
+EndProcedure
+
+; #### Copies a specified amount of data (Copy_Size) from the source to the destination.
+; #### It cuts everything, to prevent memory violations
+Procedure Memory_Range_Copy(*Src, Src_Offset.q, *Dst, Dst_Offset.q, Copy_Size.q, Src_Size.q=-1, Dst_Size.q=-1)
+  Protected Temp.q
+  If Not *Src
+    ProcedureReturn #False
+  EndIf
+  
+  If Not *Dst
+    ProcedureReturn #False
+  EndIf
+  
+  If Src_Size = -1
+    Src_Size.q = MemorySize(*Src)
+  EndIf
+  If Dst_Size = -1
+    Dst_Size.q = MemorySize(*Dst)
+  EndIf
+  
+  If Src_Offset < 0
+    Copy_Size  + Src_Offset
+    Dst_Offset - Src_Offset
+    Src_Offset - Src_Offset
+  EndIf
+  
+  If Dst_Offset < 0
+    Copy_Size  + Dst_Offset
+    Src_Offset - Dst_Offset
+    Dst_Offset - Dst_Offset
+  EndIf
+  
+  Temp = Src_Size - Src_Offset
+  If Copy_Size > Temp
+    Copy_Size = Temp
+  EndIf
+  
+  Temp = Dst_Size - Dst_Offset
+  If Copy_Size > Temp
+    Copy_Size = Temp
+  EndIf
+  
+  If Copy_Size > 0
+    CopyMemory(*Src+Src_Offset, *Dst+Dst_Offset, Copy_Size)
+  EndIf
+  
+  ProcedureReturn #True
+EndProcedure
+
+; #### Copies (MoveMemory) a specified amount of data (Copy_Size) from the source to the destination.
+; #### It cuts everything, to prevent memory violations
+Procedure Memory_Range_Move(*Src, Src_Offset.q, *Dst, Dst_Offset.q, Copy_Size.q, Src_Size.q=-1, Dst_Size.q=-1)
+  Protected Temp.q
+  If Not *Src
+    ProcedureReturn #False
+  EndIf
+  
+  If Not *Dst
+    ProcedureReturn #False
+  EndIf
+  
+  If Src_Size = -1
+    Src_Size.q = MemorySize(*Src)
+  EndIf
+  If Dst_Size = -1
+    Dst_Size.q = MemorySize(*Dst)
+  EndIf
+  
+  If Src_Offset < 0
+    Copy_Size  + Src_Offset
+    Dst_Offset - Src_Offset
+    Src_Offset - Src_Offset
+  EndIf
+  
+  If Dst_Offset < 0
+    Copy_Size  + Dst_Offset
+    Src_Offset - Dst_Offset
+    Dst_Offset - Dst_Offset
+  EndIf
+  
+  Temp = Src_Size - Src_Offset
+  If Copy_Size > Temp
+    Copy_Size = Temp
+  EndIf
+  
+  Temp = Dst_Size - Dst_Offset
+  If Copy_Size > Temp
+    Copy_Size = Temp
+  EndIf
+  
+  If Copy_Size > 0
+    MoveMemory(*Src+Src_Offset, *Dst+Dst_Offset, Copy_Size)
+  EndIf
+  
+  ProcedureReturn #True
+EndProcedure
+
+; #### Mirrors the memory, usable for little/big endian switching
+Procedure Memory_Mirror(*Memory, Memory_Size)
+  Protected Elements, i
+  Protected Temp.a, *A.Ascii, *B.Ascii
+  
+  If Not *Memory
+    ProcedureReturn #False
+  EndIf
+  
+  If Memory_Size < 1
+    ProcedureReturn #True
+  EndIf
+  
+  Elements = Memory_Size/2
+  *A = *Memory
+  *B = *Memory + Memory_Size - 1
+  
+  For i = 0 To Elements - 1
+    Temp = *A\a
+    *A\a = *B\a
+    *B\a = Temp
+    *A + 1
+    *B - 1
+  Next
+  
+  ProcedureReturn #True
+EndProcedure
+; IDE Options = PureBasic 5.31 (Windows - x64)
+; CursorPosition = 190
+; FirstLine = 177
+; Folding = -
+; EnableXP
+; DisableDebugger

samples/SAS/detect_phi.sas

@@ -0,0 +1,275 @@
+%macro check_dataset(dset =, obs_lim = max, eldest_age = 89) ;
+  %local i ;
+  %local inset_name ;
+  %let inset_name = &dset ;
+
+  %if %lowcase(&obs_lim) = max %then %do ;
+    %** Nothing ;
+  %end ;
+  %else %do ;
+    proc surveyselect
+      data      = &inset_name
+      out       = __sub_dset
+      method    = srs
+      sampsize  = &obs_lim SELECTALL
+      seed      = 1234567
+      noprint
+    ;
+    run;
+    %let dset = __sub_dset ;
+  %end ;
+
+  %macro check_varname(regx, msg) ;
+    create table possible_bad_vars as
+    select name, label
+    from these_vars
+    where prxmatch(compress("/(&regx)/i"), name)
+    ;
+
+    %if &sqlobs > 0 %then %do ;
+      insert into phi_warnings(dset, variable, label, warning)
+      select "&inset_name" as dset, name, label, "&msg"
+      from possible_bad_vars
+      ;
+    %end ;
+
+  %mend check_varname ;
+
+  %macro check_vars_for_mrn(length_limit = 6, obs_lim = max) ;
+    %local char ;
+    %let char = 2 ;
+    proc sql noprint ;
+      select name
+      into :mrn_array separated by ' '
+      from these_vars
+      where type = &char and length ge &length_limit
+      ;
+    quit ;
+    %if &sqlobs > 0 %then %do ;
+      %put Checking these vars for possible MRN contents: &mrn_array ;
+      data __gnu ;
+        retain
+          mrn_regex_handle
+          badcount
+        ;
+        set &inset_name (obs = &obs_lim keep = &mrn_array) ;
+        if _n_ = 1 then do ;
+          mrn_regex_handle = prxparse("/&mrn_regex/") ;
+          badcount = 0 ;
+        end ;
+        array p &mrn_array ;
+        do i = 1 to dim(p) ;
+          if prxmatch(mrn_regex_handle, p{i}) then do ;
+            badvar = vname(p{i}) ;
+            badvalue = p{i} ;
+            badcount = _n_ ;
+            output ;
+          end ;
+          keep badvar badvalue badcount ;
+        end ;
+      run ;
+      proc sql noprint ;
+        select compress(put(max(badcount), best.))
+        into :badcount
+        from __gnu
+        ;
+        insert into phi_warnings(dset, variable, warning)
+        select distinct "&inset_name", badvar, "Could this var hold MRN values?  Contents of %trim(&badcount) records match the pattern given for MRN values.  MRNs should never move across sites."
+        from __gnu ;
+        drop table __gnu ;
+      quit ;
+    %end ;
+  %mend check_vars_for_mrn ;
+
+  %macro check_vars_for_oldsters(eldest_age = 89, obs_lim = max) ;
+    %local dtfmts ;
+    %let dtfmts = 'B8601DA','B8601DN','B8601DT','B8601DZ','B8601LZ','B8601TM','B8601TZ','DATE','DATEAMPM','DATETIME','DAY','DDMMYY',
+                  'DDMMYYB','DDMMYYC','DDMMYYD','DDMMYYN','DDMMYYP','DDMMYYS','DOWNAME','DTDATE','DTMONYY','DTWKDATX','DTYEAR',
+                  'DTYYQC','E8601DA','E8601DN','E8601DT','E8601DZ','E8601LZ','E8601TM','E8601TZ','HHMM','HOUR','JULDAY','JULIAN',
+                  'MMDDYY','MMDDYYB','MMDDYYC','MMDDYYD','MMDDYYN','MMDDYYP','MMDDYYS','MMSS','MMYY','MMYY','MONNAME','MONTH','MONYY',
+                  'PDJULG','PDJULI','QTR','QTRR','WEEKDATE','WEEKDATX','WEEKDAY','WEEKU','WEEKV','WEEKW','WORDDATE','WORDDATX',
+                  'YEAR','YYMM','YYMMC','YYMMD','YYMMN','YYMMP','YYMMS','YYMMDD','YYMMDDB','YYMMDDC','YYMMDDD','YYMMDDN','YYMMDDP',
+                  'YYMMDDS','YYMON','YYQ','YYQC','YYQD','YYQN','YYQP','YYQS','YYQR','YYQRC','YYQRD','YYQRN','YYQRP','YYQRS' ;
+
+    %local num ;
+    %let num = 1 ;
+
+    proc sql noprint ;
+      select name
+      into :dat_array separated by ' '
+      from these_vars
+      where type = &num and (format in (&dtfmts) or lowcase(name) like '%date%')
+      ;
+      /* added by cb to shorten the process of looking at all dates */
+      %if &sqlobs > 0 %then %do ;
+        %put Checking these vars for possible DOB contents: &dat_array ;
+        select 'min(' || trim(name) || ') as ' || name into :var_list separated by ','
+        from these_vars
+        where type = &num and (format in (&dtfmts) or lowcase(name) like '%date%')
+        ;
+        create table __gnu as
+        select &var_list from &inset_name
+        ;
+      /* end cb additions */
+    quit ;
+      data __gnu ;
+        set __gnu (obs = &obs_lim keep = &dat_array) ;
+        array d &dat_array ;
+        do i = 1 to dim(d) ;
+          if n(d{i}) then maybe_age = %calcage(bdtvar = d{i}, refdate = "&sysdate9."d) ;
+          if maybe_age ge &eldest_age then do ;
+            badvar = vname(d{i}) ;
+            badvalue = d{i} ;
+            output ;
+          end ;
+          keep badvar badvalue maybe_age ;
+        end ;
+      run ;
+      proc sql outobs = 30 nowarn ;
+        insert into phi_warnings(dset, variable, warning)
+        select distinct "&inset_name", badvar, "If this is a date, at least one value is " || compress(put(maybe_age, best.)) || " years ago, which is older than &eldest_age..  " ||
+        "If this date applies to a person, the record is probably PHI."
+        from __gnu ;
+        drop table __gnu ;
+      quit ;
+    %end ;
+    %else %do ;
+      %put No obvious date variables found in &inset_name.--skipping age checks. ;
+    %end ;
+  %mend check_vars_for_oldsters ;
+
+  proc contents noprint data = &inset_name out = these_vars ;
+  run ;
+
+  proc sql noprint ;
+    create table phi_warnings (dset char(50), variable char(256), label char(256), warning char(200)) ;
+
+    %check_varname(regx = mrn|hrn                                               , msg = %str(Name suggests this var may be an MRN, which should never move across sites.)) ;
+    %check_varname(regx = birth_date|BirthDate|DOB|BDate                        , msg = %str(Name suggests this var may be a date of birth.)) ;
+    %check_varname(regx = SSN|SocialSecurityNumber|social_security_number|socsec, msg = %str(Name suggests this var may be a social security number.)) ;
+
+    %if %symexist(locally_forbidden_varnames) %then %do ;
+      %check_varname(regx = &locally_forbidden_varnames, msg = %str(May be on the locally defined list of variables not allowed to be sent to other sites.)) ;
+    %end ;
+
+  quit ;
+
+  %check_vars_for_mrn(obs_lim = &obs_lim) ;
+  %check_vars_for_oldsters(obs_lim = &obs_lim, eldest_age = &eldest_age) ;
+
+  title3 "WARNINGS for dataset &inset_name:" ;
+
+  proc sql noprint ;
+    select count(*) as num_warns into :num_warns from phi_warnings ;
+
+    %if &num_warns = 0 %then %do ;
+      reset print outobs = 5 NOWARN ;
+      select "No obvious PHI-like data elements in &inset_name--BUT PLEASE INSPECT THE CONTENTS AND PRINTs TO FOLLOW" as x label = "No warnings for &inset_name"
+      from &inset_name
+      ;
+      %do i = 1 %to 5 ;
+        %put No obvious phi-like data elements in &inset_name.  BUT PLEASE INSPECT THE CONTENTS AND PRINTs CAREFULLY TO MAKE SURE OF THIS! ;
+      %end ;
+    %end ;
+    %else %do ;
+      reset print ;
+      select variable, warning from phi_warnings
+      order by variable, warning
+      ;
+      quit ;
+    %end ;
+    title3 "Dataset &inset_name" ;
+    proc contents data = &inset_name varnum ;
+    run ;
+  /*
+    proc print data = &inset_name (obs = 20) ;
+    run ;
+  */
+    ** TODO: make the print print out recs that trip the value warnings. ;
+    proc sql number ;
+      select *
+      from &inset_name (obs = 20)
+      ;
+    quit ;
+
+  quit ;
+
+  %RemoveDset(dset = __sub_dset) ;
+  %RemoveDset(dset = possible_bad_vars) ;
+  %RemoveDset(dset = phi_warnings) ;
+  %RemoveDset(dset = these_vars) ;
+
+%mend check_dataset ;
+
+%macro detect_phi(transfer_lib, obs_lim = max, eldest_age = 89) ;
+
+  %put ;
+  %put ;
+  %put ============================================================== ;
+  %put ;
+  %put Macro detect_phi: ;
+  %put ;
+  %put Checking all datasets found in %sysfunc(pathname(&transfer_lib)) for the following signs of PHI: ;
+  %put   - Variable names signifying sensitive items like 'MRN', 'birth_date', 'SSN' and so forth. ;
+  %if %symexist(locally_forbidden_varnames) %then %do ;
+    %put   - Variable names on the list defined in the standard macro variable locally_forbidden_varnames (here those names are: &locally_forbidden_varnames). ;
+  %end ;
+  %put   - Contents of CHARACTER variables that match the pattern given in the standard macro variable mrn_regex (here that var is &mrn_regex) ;
+  %put     Please note that numeric variables ARE NOT CHECKED FOR MRN-LIKE CONTENT. ;
+  %put   - The contents of date variables (as divined by their formats) for values that, if they were DOBs, would indicate a person older than &eldest_age years. ;
+  %put ;
+  %put THIS IS BETA SOFTWARE-PLEASE SCRUTINIZE THE RESULTS AND REPORT PROBLEMS TO pardee.r@ghc.org. ;
+  %put ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put THIS MACRO IS NOT A SUBSTITUTE FOR HUMAN INSPECTION AND THOUGHT--PLEASE CAREFULLY INSPECT ALL VARIABLES--WHETHER ;
+  %put OR NOT THEY TRIP A WARNING--TO MAKE SURE THE DATA COMPORTS WITH YOUR DATA SHARING AGREEMENT!!! ;
+  %put ;
+  %put ;
+  %put ============================================================== ;
+  %put ;
+  %put ;
+
+  title1 "PHI-Detection Report for the datasets in %sysfunc(pathname(&transfer_lib))." ;
+  title2 "please inspect all output carefully to make sure it comports with your data sharing agreement!!!" ;
+
+  proc sql noprint ;
+    ** describe table dictionary.tables ;
+
+    select trim(libname) || '.' || memname as dset
+    into   :d1-:d999
+    from dictionary.tables
+    where libname = "%upcase(&transfer_lib)" AND
+          memtype = 'DATA'
+    ;
+    %local num_dsets ;
+    %let num_dsets = &sqlobs ;
+  quit ;
+
+  %local i ;
+
+  %if &num_dsets = 0 %then %do i = 1 %to 10 ;
+    %put ERROR: NO DATASETS FOUND IN &transfer_lib!!!! ;
+  %end ;
+
+  %do i = 1 %to &num_dsets ;
+    %put about to check &&d&i ;
+    %check_dataset(dset = &&d&i, obs_lim = &obs_lim, eldest_age = &eldest_age) ;
+  %end ;
+
+%mend detect_phi ;

samples/Shell/filenames/9fs

@@ -0,0 +1,55 @@
+#!/bin/rc
+# 9fs filesystem [mountpoint] - srv & mount filesystem, usually from plan 9
+
+rfork e
+switch($1){
+case ''
+	echo usage: 9fs service '[mountpoint]' >[1=2]
+	exit usage
+case kfs
+	if(! test -f /srv/kfs)
+		disk/kfs
+	mount -c /srv/kfs /n/kfs
+case dump
+	mount /srv/boot /n/dump dump >[2]/dev/null ||
+		mount /srv/boot /n/dump main/archive ||
+		mount /srv/boot /n/dump dump	# again to print error
+case snap
+	mount /srv/boot /n/snap main/snapshot
+case other
+	mount -C /srv/boot /n/other other
+case juke					# ye olde file server
+	srv -q il!jukefs && mount /srv/il!jukefs /n/juke
+case sources
+	srv -nq tcp!sources.cs.bell-labs.com sources /n/sources
+case sourcesdump
+	9fs sources
+	mount -n /srv/sources /n/sourcesdump main/archive
+case sourcessnap
+	9fs sources
+	mount -n /srv/sources /n/sourcessnap main/snapshot
+# arbitrary venti archives
+case vac:*
+	vacfs <{echo $1}
+case *.vac
+	if (test -e $1)
+		score=$1
+	if not if (! ~ $1 /* && test -e $home/lib/vac/$1)
+		score=$home/lib/vac/$1
+	if not if (! ~ $1 /* && test -e /lib/vac/$1)
+		score=/lib/vac/$1
+	if not {
+		echo $0: $1: no such score file >[1=2]
+		exit 'no score file'
+	}
+	vacfs -m /n/`{basename $1 .vac} `{cat $score}
+case wiki
+	srv -m 'net!plan9.bell-labs.com!wiki' wiki /mnt/wiki
+case *
+	switch($#*){
+	case 1
+		srv -m $1
+	case *
+		srv -m $1 $1 $2
+	}
+}

samples/Shell/filenames/man

@@ -0,0 +1,149 @@
+#!/bin/rc
+# man - print manual pages
+rfork e
+
+. /sys/man/fonts
+
+cmd=n
+sec=()
+S=/sys/man
+d=0
+
+fn roff {
+	preproc=()
+	postproc=cat
+	x=`{doctype $2}
+	if (~ $1 t) {
+		if(~ $x *grap*)
+			preproc=($preproc grap)
+		if(~ $x *pic*)
+			preproc=($preproc pic)
+		Nflag=-Tutf
+	}
+	if not {
+		Nflag='-N'
+		Lflag='-rL1000i'
+		# setting L changes page length to infinity (sed script removes empty lines)
+		if (grep -s '^\.(2C|sp *[0-9]*\.)' $2)
+			postproc=col
+	}
+	if(~ $x *eqn*)
+		preproc=($preproc eqn)
+	if(~ $x *tbl*)
+		preproc=($preproc tbl)
+	{echo -n $FONTS; cat $2 </dev/null} |
+		switch($#preproc) {
+		case 0
+			troff $Nflag $Lflag -$MAN 
+		case 1
+			$preproc | troff $Nflag $Lflag -$MAN
+		case 2
+			$preproc(1) | $preproc(2) | troff $Nflag $Lflag -$MAN
+		case 3
+			$preproc(1) | $preproc(2) | $preproc(3) |
+				troff $Nflag $Lflag -$MAN
+		case *
+			$preproc(1) | $preproc(2) | $preproc(3) |
+				$preproc(4) | troff $Nflag $Lflag -$MAN
+		} | $postproc
+}
+
+fn page {
+	if(test -d /mnt/wsys/acme)
+		/bin/page -w
+	if not
+		/bin/page
+}
+
+
+search=yes
+while(~ $d 0) {
+	if(~ $#* 0) {
+		echo 'Usage: man [-bntpPSw] [0-9] [0-9] ... name1 name2 ...' >[1=2]
+		exit
+	}
+	if(test -d $S/$1){
+		sec=($sec $1)
+		shift
+	}
+	if not
+		switch($1) {
+		case -b ; cmd=b ; shift
+		case -n ; cmd=n ; shift
+		case -P ; cmd=P ; shift
+		case -p ; cmd=p ; shift
+		case -S ; search=no ; shift
+		case -t ; cmd=t ; shift
+		case -w ; cmd=w ; shift
+		case * ; d=1
+		}
+}
+if(~ $#sec 0) {
+	sec=`{ls -pd $S/[0-9]* }
+}
+ix=$S/$sec/INDEX
+if(~ $#* 1) pat='^'^$1^' '
+if not pat='^('^`{echo $* | sed 's/ /|/g'}^') '
+fils=()
+if(~ $search yes)
+for(i in $S/$sec){
+	if(/bin/test -f $i/INDEX){
+		try=`{grep -i $pat $i/INDEX | sed 's/^[^ ]* //' | sort -u}
+		if(! ~ $#try 0)
+			fils=($fils $i/$try)
+	}
+}
+# bug: should also do following loop if not all pages found
+if(~ $#fils 0) {
+	# nothing in INDEX. try for file of given name
+	for(i) {
+		if(~ $i intro) i=0intro
+		for(n in $sec) {
+			try=`{echo $S/$n/$i | tr A-Z a-z}
+			if (/bin/test -f $try)
+				fils=($fils $try)
+		}
+	}
+	if(~ $#fils 0) {
+		echo 'man: no manual page' >[1=2]
+		exit 'no man'
+	}
+}
+for(i in $fils) {
+	if(! /bin/test -f $i)
+		echo need $i >[1=2]
+	if not {
+		switch($cmd) {
+		case w
+			echo $i
+
+		case t
+			roff t $i
+
+		case p
+			roff t $i | grep -v '^x X html' | proof
+
+		case P
+			roff t $i | page
+
+		case n
+			roff n $i | sed '
+				${
+        			       /^$/p
+				}
+				//N
+				/^\n$/D'
+
+		case b
+			x=`{echo $i | sed 's;/sys/man/(.*)/(.*);\1 \2;'}
+			if(~ $x(2) 0intro) x=($x(1) intro)
+			roff n $i | sed '
+				${
+        			       /^$/p
+				}
+				//N
+				/^\n$/D' |
+			plumb -i -d edit -a 'action=showdata filename=/man/'$x(2)^'('$x(1)^')'
+		}
+	}
+}

samples/Text/README

@@ -1,2 +0,0 @@
-README
-======

samples/Text/Visual_Battlers.rb

@@ -1,703 +0,0 @@
-#==============================================================================
-# 
-# <20><> Yanfly Engine Ace - Visual Battlers v1.01
-# -- Last Updated: 2012.07.24
-# -- Level: Easy
-# -- Requires: n/a
-#
-# <20><> Modified by:
-# -- Yami
-# -- Kread-Ex
-# -- Archeia_Nessiah
-#==============================================================================
-
-$imported = {} if $imported.nil?
-$imported["YEA-VisualBattlers"] = true
-
-#==============================================================================
-# <20><> Updates
-# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-# 2012.12.18 - Added preset views and able to change direction in-game.
-# 2012.07.24 - Finished Script.
-# 2012.01.05 - Started Script.
-# 
-#==============================================================================
-# <20><> Introduction
-# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-# This script provides a visual for all actors by default charsets. The actions
-# and movements are alike Final Fantasy 1, only move forward and backward when 
-# start and finish actions.
-# 
-#==============================================================================
-# <20><> Instructions
-# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-# To change the player direction in-game, use the snippet below in a script 
-# call: 
-# 
-# $game_system.party_direction = n
-#
-# To install this script, open up your script editor and copy/paste this script
-# to an open slot below <20><> Materials but above <20><> Main. Remember to save.
-# 
-#==============================================================================
-# <20><> Compatibility
-# =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-# This script is made strictly for RPG Maker VX Ace. It is highly unlikely that
-# it will run with RPG Maker VX without adjusting.
-# 
-#==============================================================================
-
-module YEA
-  module VISUAL_BATTLERS
-    
-    #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-    # - Party Location Setting -
-    #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-    # These settings are adjusted for Party Location. Each Actor will have
-    # coordinates calculated by below formula. There are two samples coordinates
-    # below, change PARTY_DIRECTION to the base index you want to use.
-    #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-    PARTY_DIRECTION = 6 # This direction is opposite from actual direction.
-    
-    PARTY_LOCATION_BASE_COORDINATES ={
-    # Index => [base_x, base_y, mod_x, mod_y],
-          2 => [   250,    290,    40,     0], #UP
-          4 => [   150,    280,    20,   -20], #LEFT
-          3 => [   460,    280,    30,   -10], #RIGHT
-          6 => [   460,    230,    20,    20], #DEFAULT RIGHT
-          8 => [   260,    230,    40,     0], #DOWN
-    } # Do not remove this.
-    
-    PARTY_LOCATION_FORMULA_X = "base_x + index * mod_x"
-    PARTY_LOCATION_FORMULA_Y = "base_y + index * mod_y"
-    
-  end # VISUAL_BATTLERS
-end # YEA
-
-#==============================================================================
-#  <20><>  Editting anything past this point may potentially result in causing
-# computer damage, incontinence, explosion of user's head, coma, death, and/or
-# halitosis so edit at your own risk.
-#==============================================================================
-
-#==============================================================================
-# ? <20><>  Direction
-#==============================================================================
-
-module Direction
-  
-  #--------------------------------------------------------------------------
-  # self.correct
-  #--------------------------------------------------------------------------
-  def self.correct(direction)
-    case direction
-    when 1; return 4
-    when 3; return 6
-    when 7; return 4
-    when 9; return 6
-    else; return direction
-    end
-  end
-  
-  #--------------------------------------------------------------------------
-  # self.opposite
-  #--------------------------------------------------------------------------
-  def self.opposite(direction)
-    case direction
-    when 1; return 6
-    when 2; return 8
-    when 3; return 4
-    when 4; return 6
-    when 6; return 4
-    when 7; return 6
-    when 8; return 2
-    when 9; return 4
-    else; return direction
-    end
-  end
-  
-end # Direction
-
-#==============================================================================
-# ? <20><>  Game_System
-#==============================================================================
-
-class Game_System; attr_accessor :party_direction; end
-
-#==============================================================================
-# ? <20><>  Game_BattleCharacter
-#==============================================================================
-
-class Game_BattleCharacter < Game_Character
-  
-  #--------------------------------------------------------------------------
-  # initialize
-  #--------------------------------------------------------------------------
-  def initialize(actor)
-    super()
-    setup_actor(actor)
-    @move_x_rate = 0
-    @move_y_rate = 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # setup_actor
-  #--------------------------------------------------------------------------
-  def setup_actor(actor)
-    @actor = actor
-    @step_anime = true
-    set_graphic(@actor.character_name, @actor.character_index)
-    setup_coordinates
-    dr = $game_system.party_direction || YEA::VISUAL_BATTLERS::PARTY_DIRECTION
-    direction = Direction.opposite(dr)
-    set_direction(Direction.correct(direction))
-  end
-  
-  #--------------------------------------------------------------------------
-  # sprite=
-  #--------------------------------------------------------------------------
-  def sprite=(sprite)
-    @sprite = sprite
-  end
-  
-  #--------------------------------------------------------------------------
-  # setup_coordinates
-  #--------------------------------------------------------------------------
-  def setup_coordinates
-    location = ($game_system.party_direction ||
-    YEA::VISUAL_BATTLERS::PARTY_DIRECTION)
-    base_x = YEA::VISUAL_BATTLERS::PARTY_LOCATION_BASE_COORDINATES[location][0]
-    base_y = YEA::VISUAL_BATTLERS::PARTY_LOCATION_BASE_COORDINATES[location][1]
-    mod_x = YEA::VISUAL_BATTLERS::PARTY_LOCATION_BASE_COORDINATES[location][2]
-    mod_y = YEA::VISUAL_BATTLERS::PARTY_LOCATION_BASE_COORDINATES[location][3]
-    @actor.screen_x = eval(YEA::VISUAL_BATTLERS::PARTY_LOCATION_FORMULA_X)
-    @actor.screen_y = eval(YEA::VISUAL_BATTLERS::PARTY_LOCATION_FORMULA_Y)
-    @actor.origin_x = @actor.screen_x
-    @actor.origin_y = @actor.screen_y
-    @actor.create_move_to(screen_x, screen_y, 1)
-  end
-  
-  #--------------------------------------------------------------------------
-  # index
-  #--------------------------------------------------------------------------
-  def index
-    return @actor.index
-  end
-  
-  #--------------------------------------------------------------------------
-  # screen_x
-  #--------------------------------------------------------------------------
-  def screen_x
-    return @actor.screen_x
-  end
-  
-  #--------------------------------------------------------------------------
-  # screen_y
-  #--------------------------------------------------------------------------
-  def screen_y
-    return @actor.screen_y
-  end
-  
-  #--------------------------------------------------------------------------
-  # screen_z
-  #--------------------------------------------------------------------------
-  def screen_z
-    return @actor.screen_z
-  end
-  
-end # Game_BattleCharacter
-
-#==============================================================================
-# ? <20><>  Game_Battler
-#==============================================================================
-
-class Game_Battler < Game_BattlerBase
-  
-  #--------------------------------------------------------------------------
-  # public instance variables
-  #--------------------------------------------------------------------------
-  attr_accessor :moved_back
-  attr_accessor :origin_x
-  attr_accessor :origin_y
-  attr_accessor :screen_x
-  attr_accessor :screen_y
-  attr_accessor :started_turn
-  
-  #--------------------------------------------------------------------------
-  # alias method: execute_damage
-  #--------------------------------------------------------------------------
-  alias game_battler_execute_damage_vb execute_damage
-  def execute_damage(user)
-    game_battler_execute_damage_vb(user)
-    if @result.hp_damage > 0
-      move_backward(24, 6) unless @moved_back
-      @moved_back = true
-    end
-  end
-  
-  #--------------------------------------------------------------------------
-  # face_opposing_party
-  #--------------------------------------------------------------------------
-  def face_opposing_party
-    direction = ($game_system.party_direction ||
-    YEA::VISUAL_BATTLERS::PARTY_DIRECTION)
-    character.set_direction(Direction.correct(direction)) rescue 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: face_coordinate
-  #--------------------------------------------------------------------------
-  def face_coordinate(destination_x, destination_y)
-    x1 = Integer(@screen_x)
-    x2 = Integer(destination_x)
-    y1 = Graphics.height - Integer(@screen_y)
-    y2 = Graphics.height - Integer(destination_y)
-    return if x1 == x2 and y1 == y2
-    #---
-    angle = Integer(Math.atan2((y2-y1),(x2-x1)) * 1800 / Math::PI)
-    if (0..225) === angle or (-225..0) === angle
-      direction = 6
-    elsif (226..675) === angle
-      direction = 9
-    elsif (676..1125) === angle
-      direction = 8
-    elsif (1126..1575) === angle
-      direction = 7
-    elsif (1576..1800) === angle or (-1800..-1576) === angle
-      direction = 4
-    elsif (-1575..-1126) === angle
-      direction = 1
-    elsif (-1125..-676) === angle
-      direction = 2
-    elsif (-675..-226) === angle
-      direction = 3
-    end
-    #---
-    character.set_direction(Direction.correct(direction)) rescue 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # create_move_to
-  #--------------------------------------------------------------------------
-  def create_move_to(destination_x, destination_y, frames = 12)
-    @destination_x = destination_x
-    @destination_y = destination_y
-    frames = [frames, 1].max
-    @move_x_rate = [(@screen_x - @destination_x).abs / frames, 2].max
-    @move_y_rate = [(@screen_y - @destination_y).abs / frames, 2].max
-  end
-  
-  #--------------------------------------------------------------------------
-  # update_move_to
-  #--------------------------------------------------------------------------
-  def update_move_to
-    @move_x_rate = 0 if @screen_x == @destination_x || @move_x_rate.nil?
-    @move_y_rate = 0 if @screen_y == @destination_y || @move_y_rate.nil?
-    value = [(@screen_x - @destination_x).abs, @move_x_rate].min
-    @screen_x += (@destination_x > @screen_x) ? value : -value
-    value = [(@screen_y - @destination_y).abs, @move_y_rate].min
-    @screen_y += (@destination_y > @screen_y) ? value : -value
-  end
-  
-  #--------------------------------------------------------------------------
-  # move_forward
-  #--------------------------------------------------------------------------
-  def move_forward(distance = 24, frames = 12)
-    direction = forward_direction
-    move_direction(direction, distance, frames)
-  end
-  
-  #--------------------------------------------------------------------------
-  # move_backward
-  #--------------------------------------------------------------------------
-  def move_backward(distance = 24, frames = 12)
-    direction = Direction.opposite(forward_direction)
-    move_direction(direction, distance, frames)
-  end
-  
-  #--------------------------------------------------------------------------
-  # move_direction
-  #--------------------------------------------------------------------------
-  def move_direction(direction, distance = 24, frames = 12)
-    case direction
-    when 1; move_x = distance / -2; move_y = distance /  2
-    when 2; move_x = distance *  0; move_y = distance *  1
-    when 3; move_x = distance / -2; move_y = distance /  2
-    when 4; move_x = distance * -1; move_y = distance *  0
-    when 6; move_x = distance *  1; move_y = distance *  0
-    when 7; move_x = distance / -2; move_y = distance / -2
-    when 8; move_x = distance *  0; move_y = distance * -1
-    when 9; move_x = distance /  2; move_y = distance / -2
-    else; return
-    end
-    destination_x = @screen_x + move_x
-    destination_y = @screen_y + move_y
-    create_move_to(destination_x, destination_y, frames)
-  end
-  
-  #--------------------------------------------------------------------------
-  # forward_direction
-  #--------------------------------------------------------------------------
-  def forward_direction
-    return ($game_system.party_direction ||
-    YEA::VISUAL_BATTLERS::PARTY_DIRECTION)
-  end
-  
-  #--------------------------------------------------------------------------
-  # move_origin
-  #--------------------------------------------------------------------------
-  def move_origin
-    create_move_to(@origin_x, @origin_y)
-    face_coordinate(@origin_x, @origin_y)
-    @moved_back = false
-  end
-  
-  #--------------------------------------------------------------------------
-  # moving?
-  #--------------------------------------------------------------------------
-  def moving?
-    return false if dead? || !exist?
-    return @move_x_rate != 0 || @move_y_rate != 0
-  end
-  
-end # Game_Battler
-
-#==============================================================================
-# ? <20><>  Game_Actor
-#==============================================================================
-
-class Game_Actor < Game_Battler
-  
-  #--------------------------------------------------------------------------
-  # overwrite method: use_sprite?
-  #--------------------------------------------------------------------------
-  def use_sprite?
-    return true
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: screen_x
-  #--------------------------------------------------------------------------
-  def screen_x
-    return @screen_x rescue 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: screen_y
-  #--------------------------------------------------------------------------
-  def screen_y
-    return @screen_y rescue 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: screen_z
-  #--------------------------------------------------------------------------
-  def screen_z
-    return 100
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: sprite
-  #--------------------------------------------------------------------------
-  def sprite
-    index = $game_party.battle_members.index(self)
-    return SceneManager.scene.spriteset.actor_sprites[index]
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: character
-  #--------------------------------------------------------------------------
-  def character
-    return sprite.character_base
-  end
-  
-  #--------------------------------------------------------------------------
-  # face_opposing_party
-  #--------------------------------------------------------------------------
-  def face_opposing_party
-    dr = $game_system.party_direction || YEA::VISUAL_BATTLERS::PARTY_DIRECTION
-    direction = Direction.opposite(dr)
-    character.set_direction(Direction.correct(direction)) rescue 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # forward_direction
-  #--------------------------------------------------------------------------
-  def forward_direction
-    return Direction.opposite(($game_system.party_direction ||
-    YEA::VISUAL_BATTLERS::PARTY_DIRECTION))
-  end
-  
-end # Game_Actor
-
-#==============================================================================
-# ? <20><>  Game_Enemy
-#==============================================================================
-
-class Game_Enemy < Game_Battler
-  
-  #--------------------------------------------------------------------------
-  # new method: sprite
-  #--------------------------------------------------------------------------
-  def sprite
-    return SceneManager.scene.spriteset.enemy_sprites.reverse[self.index]
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: character
-  #--------------------------------------------------------------------------
-  def character
-    return sprite
-  end
-  
-end # Game_Enemy
-
-#==============================================================================
-# ? <20><>  Game_Troop
-#==============================================================================
-
-class Game_Troop < Game_Unit
-  
-  #--------------------------------------------------------------------------
-  # alias method: setup
-  #--------------------------------------------------------------------------
-  alias game_troop_setup_vb setup
-  def setup(troop_id)
-    game_troop_setup_vb(troop_id)
-    set_coordinates
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: set_coordinates
-  #--------------------------------------------------------------------------
-  def set_coordinates
-    for member in members
-      member.origin_x = member.screen_x
-      member.origin_y = member.screen_y
-      member.create_move_to(member.screen_x, member.screen_y, 1)
-    end
-  end
-  
-end # Game_Troop
-
-#==============================================================================
-# ? <20><>  Sprite_Battler
-#==============================================================================
-
-class Sprite_Battler < Sprite_Base
-  
-  #--------------------------------------------------------------------------
-  # public instance_variable
-  #--------------------------------------------------------------------------
-  attr_accessor :character_base
-  attr_accessor :character_sprite
-  
-  #--------------------------------------------------------------------------
-  # alias method: dispose
-  #--------------------------------------------------------------------------
-  alias sprite_battler_dispose_vb dispose
-  def dispose
-    dispose_character_sprite
-    sprite_battler_dispose_vb
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: dispose_character_sprite
-  #--------------------------------------------------------------------------
-  def dispose_character_sprite
-    @character_sprite.dispose unless @character_sprite.nil?
-  end
-  
-  #--------------------------------------------------------------------------
-  # alias method: update
-  #--------------------------------------------------------------------------
-  alias sprite_battler_update_vb update
-  def update
-    sprite_battler_update_vb
-    return if @battler.nil?
-    update_move_to
-    update_character_base
-    update_character_sprite
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: update_character_base
-  #--------------------------------------------------------------------------
-  def update_character_base
-    return if @character_base.nil?
-    @character_base.update
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: update_character_sprite
-  #--------------------------------------------------------------------------
-  def update_character_sprite
-    return if @character_sprite.nil?
-    @character_sprite.update
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: update_move_to
-  #--------------------------------------------------------------------------
-  def update_move_to
-    @battler.update_move_to
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: moving?
-  #--------------------------------------------------------------------------
-  def moving?
-    return false if @battler.nil?
-    return @battler.moving?
-  end
-  
-end # Sprite_Battler
-
-#==============================================================================
-# ? <20><>  Sprite_BattleCharacter
-#==============================================================================
-
-class Sprite_BattleCharacter < Sprite_Character
-  
-  #--------------------------------------------------------------------------
-  # initialize
-  #--------------------------------------------------------------------------
-  def initialize(viewport, character = nil)
-    super(viewport, character)
-    character.sprite = self
-  end
-  
-end # Sprite_BattleCharacter
-
-#==============================================================================
-# ? <20><>  Spriteset_Battle
-#==============================================================================
-
-class Spriteset_Battle
-  
-  #--------------------------------------------------------------------------
-  # public instance_variable
-  #--------------------------------------------------------------------------
-  attr_accessor :actor_sprites
-  attr_accessor :enemy_sprites
-  
-  #--------------------------------------------------------------------------
-  # overwrite method: create_actors
-  #--------------------------------------------------------------------------
-  def create_actors
-    total = $game_party.max_battle_members
-    @current_party = $game_party.battle_members.clone
-    @actor_sprites = Array.new(total) { Sprite_Battler.new(@viewport1) }
-    for actor in $game_party.battle_members
-      @actor_sprites[actor.index].battler = actor
-      create_actor_sprite(actor)
-    end
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: create_actor_sprite
-  #--------------------------------------------------------------------------
-  def create_actor_sprite(actor)
-    character = Game_BattleCharacter.new(actor)
-    character_sprite = Sprite_BattleCharacter.new(@viewport1, character)
-    @actor_sprites[actor.index].character_base = character
-    @actor_sprites[actor.index].character_sprite = character_sprite
-    actor.face_opposing_party
-  end
-  
-  #--------------------------------------------------------------------------
-  # alias method: update_actors
-  #--------------------------------------------------------------------------
-  alias spriteset_battle_update_actors_vb update_actors
-  def update_actors
-    if @current_party != $game_party.battle_members
-      dispose_actors
-      create_actors
-    end
-    spriteset_battle_update_actors_vb
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: moving?
-  #--------------------------------------------------------------------------
-  def moving?
-    return battler_sprites.any? {|sprite| sprite.moving? }
-  end
-  
-end # Spriteset_Battle
-
-#==============================================================================
-# ? <20><>  Scene_Battle
-#==============================================================================
-
-class Scene_Battle < Scene_Base
-  
-  #--------------------------------------------------------------------------
-  # public instance variables
-  #--------------------------------------------------------------------------
-  attr_accessor :spriteset
-  
-  #--------------------------------------------------------------------------
-  # alias method: process_action_end
-  #--------------------------------------------------------------------------
-  alias scene_battle_process_action_end_vb process_action_end
-  def process_action_end
-    start_battler_move_origin
-    scene_battle_process_action_end_vb
-  end
-  
-  #--------------------------------------------------------------------------
-  # alias method: execute_action
-  #--------------------------------------------------------------------------
-  alias scene_battle_execute_action_vb execute_action
-  def execute_action
-    start_battler_move_forward
-    scene_battle_execute_action_vb
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: start_battler_move_forward
-  #--------------------------------------------------------------------------
-  def start_battler_move_forward
-    return if @subject.started_turn
-    @subject.started_turn = true
-    @subject.move_forward
-    wait_for_moving
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: start_battler_move_origin
-  #--------------------------------------------------------------------------
-  def start_battler_move_origin
-    @subject.started_turn = nil
-    move_battlers_origin
-    wait_for_moving
-    @subject.face_opposing_party rescue 0
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: move_battlers_origin
-  #--------------------------------------------------------------------------
-  def move_battlers_origin
-    for member in all_battle_members
-      next if member.dead?
-      next unless member.exist?
-      member.move_origin
-    end
-  end
-  
-  #--------------------------------------------------------------------------
-  # new method: wait_for_moving
-  #--------------------------------------------------------------------------
-  def wait_for_moving
-    update_for_wait
-    update_for_wait while @spriteset.moving?
-  end
-  
-end # Scene_Battle
-
-#==============================================================================
-# 
-#  <20><>  End of File
-# 
-#==============================================================================

samples/Text/cars.csv

@@ -1,3 +0,0 @@
-Year,Make,Model,Length
-1997,Ford,E350,2.34
-2000,Mercury,Cougar,2.38

samples/Text/cube.stl

@@ -1,86 +0,0 @@
-solid 
-  facet normal 0.000000E+00 -1.000000E+00 0.000000E+00
-    outer loop
-      vertex -1.850000E+01 -2.450000E+01 3.100000E+01
-      vertex -1.850000E+01 -2.450000E+01 -1.000000E-03
-      vertex 1.250000E+01 -2.450000E+01 -1.000000E-03
-    endloop
-  endfacet
-  facet normal 0.000000E+00 -1.000000E+00 0.000000E+00
-    outer loop
-      vertex -1.850000E+01 -2.450000E+01 3.100000E+01
-      vertex 1.250000E+01 -2.450000E+01 -1.000000E-03
-      vertex 1.250000E+01 -2.450000E+01 3.100000E+01
-    endloop
-  endfacet
-  facet normal -1.000000E+00 0.000000E+00 0.000000E+00
-    outer loop
-      vertex -1.850000E+01 6.500000E+00 3.100000E+01
-      vertex -1.850000E+01 6.500000E+00 -1.000000E-03
-      vertex -1.850000E+01 -2.450000E+01 -1.000000E-03
-    endloop
-  endfacet
-  facet normal -1.000000E+00 0.000000E+00 0.000000E+00
-    outer loop
-      vertex -1.850000E+01 6.500000E+00 3.100000E+01
-      vertex -1.850000E+01 -2.450000E+01 -1.000000E-03
-      vertex -1.850000E+01 -2.450000E+01 3.100000E+01
-    endloop
-  endfacet
-  facet normal 0.000000E+00 1.000000E+00 0.000000E+00
-    outer loop
-      vertex -1.850000E+01 6.500000E+00 -1.000000E-03
-      vertex -1.850000E+01 6.500000E+00 3.100000E+01
-      vertex 1.250000E+01 6.500000E+00 3.100000E+01
-    endloop
-  endfacet
-  facet normal 0.000000E+00 1.000000E+00 0.000000E+00
-    outer loop
-      vertex -1.850000E+01 6.500000E+00 -1.000000E-03
-      vertex 1.250000E+01 6.500000E+00 3.100000E+01
-      vertex 1.250000E+01 6.500000E+00 -1.000000E-03
-    endloop
-  endfacet
-  facet normal 1.000000E+00 0.000000E+00 0.000000E+00
-    outer loop
-      vertex 1.250000E+01 6.500000E+00 3.100000E+01
-      vertex 1.250000E+01 -2.450000E+01 3.100000E+01
-      vertex 1.250000E+01 -2.450000E+01 -1.000000E-03
-    endloop
-  endfacet
-  facet normal 1.000000E+00 0.000000E+00 0.000000E+00
-    outer loop
-      vertex 1.250000E+01 6.500000E+00 3.100000E+01
-      vertex 1.250000E+01 -2.450000E+01 -1.000000E-03
-      vertex 1.250000E+01 6.500000E+00 -1.000000E-03
-    endloop
-  endfacet
-  facet normal 0.000000E+00 0.000000E+00 -1.000000E+00
-    outer loop
-      vertex 1.250000E+01 6.500000E+00 -1.000000E-03
-      vertex 1.250000E+01 -2.450000E+01 -1.000000E-03
-      vertex -1.850000E+01 -2.450000E+01 -1.000000E-03
-    endloop
-  endfacet
-  facet normal 0.000000E+00 0.000000E+00 -1.000000E+00
-    outer loop
-      vertex 1.250000E+01 6.500000E+00 -1.000000E-03
-      vertex -1.850000E+01 -2.450000E+01 -1.000000E-03
-      vertex -1.850000E+01 6.500000E+00 -1.000000E-03
-    endloop
-  endfacet
-  facet normal 0.000000E+00 0.000000E+00 1.000000E+00
-    outer loop
-      vertex -1.850000E+01 6.500000E+00 3.100000E+01
-      vertex -1.850000E+01 -2.450000E+01 3.100000E+01
-      vertex 1.250000E+01 -2.450000E+01 3.100000E+01
-    endloop
-  endfacet
-  facet normal 0.000000E+00 0.000000E+00 1.000000E+00
-    outer loop
-      vertex -1.850000E+01 6.500000E+00 3.100000E+01
-      vertex 1.250000E+01 -2.450000E+01 3.100000E+01
-      vertex 1.250000E+01 6.500000E+00 3.100000E+01
-    endloop
-  endfacet
-endsolid 

samples/Text/defu.nkt

@@ -1 +0,0 @@
-defunkt

samples/Text/dump.sql

@@ -1 +0,0 @@
-DROP ALL TABLES

samples/Text/file.json

@@ -1 +0,0 @@
-{"foo": "bar"}

samples/Text/iso8859-8-i.txt

@@ -1 +0,0 @@
-%<25><><EFBFBD>

samples/Text/md

@@ -1,2 +0,0 @@
-MD
-==

samples/Text/messages.fr

@@ -0,0 +1 @@
+the green potato=la pomme de terre verte

samples/Text/readme.txt

@@ -0,0 +1 @@
+Read me now!

samples/Text/txt

@@ -1 +0,0 @@
-Text

samples/WebIDL/AnimationEvent.webidl

@@ -0,0 +1,25 @@
+/* -*- Mode: IDL; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/* This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this file,
+ * You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * The origin of this IDL file is
+ * http://www.w3.org/TR/css3-animations/#animation-events-
+ * http://dev.w3.org/csswg/css3-animations/#animation-events-
+ *
+ * Copyright © 2012 W3C® (MIT, ERCIM, Keio), All Rights Reserved. W3C
+ * liability, trademark and document use rules apply.
+ */
+
+[Constructor(DOMString type, optional AnimationEventInit eventInitDict)]
+interface AnimationEvent : Event {
+  readonly attribute DOMString animationName;
+  readonly attribute float     elapsedTime;
+  readonly attribute DOMString pseudoElement;
+};
+
+dictionary AnimationEventInit : EventInit {
+  DOMString animationName = "";
+  float elapsedTime = 0;
+  DOMString pseudoElement = "";
+};

samples/WebIDL/Fetch.webidl

@@ -0,0 +1,35 @@
+/* -*- Mode: IDL; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
+/* This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this file,
+ * You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * The origin of this IDL file is
+ * http://fetch.spec.whatwg.org/
+ */
+
+typedef object JSON;
+// FIXME(nsm): Bug 739173: FormData is not available in workers.
+// typedef (ArrayBuffer or ArrayBufferView or Blob or FormData or USVString or URLSearchParams) BodyInit;
+typedef (ArrayBuffer or ArrayBufferView or Blob or USVString or URLSearchParams) BodyInit;
+
+[NoInterfaceObject, Exposed=(Window,Worker)]
+interface Body {
+  readonly attribute boolean bodyUsed;
+  [Throws]
+  Promise<ArrayBuffer> arrayBuffer();
+  [Throws]
+  Promise<Blob> blob();
+  // FIXME(nsm): Bug 739173 FormData is not supported in workers.
+  // Promise<FormData> formData();
+  [Throws]
+  Promise<JSON> json();
+  [Throws]
+  Promise<USVString> text();
+};
+
+[NoInterfaceObject, Exposed=(Window,Worker)]
+interface GlobalFetch {
+  [Throws, Func="mozilla::dom::Headers::PrefEnabled"]
+  Promise<Response> fetch(RequestInfo input, optional RequestInit init);
+};
+

samples/XML/pt_BR.ts

@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE TS>
+<TS version="2.0" language="pt_BR">
+<context>
+    <name>MainWindow</name>
+    <message>
+        <location filename="../forms/mainwindow.ui" line="22"/>
+        <source>United Kingdom</source>
+        <translation>Reino Unido</translation>
+    </message>
+    <message>
+        <location filename="../forms/mainwindow.ui" line="38"/>
+        <source>God save the Queen</source>
+        <translation>Deus salve a Rainha</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="46"/>
+        <source>England</source>
+        <translation>Inglaterra</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="47"/>
+        <source>Wales</source>
+        <translation>Gales</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="48"/>
+        <source>Scotland</source>
+        <translation>Escócia</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="49"/>
+        <source>Northern Ireland</source>
+        <translation>Irlanda Norte</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="51"/>
+        <source>Portuguese</source>
+        <translation>Português</translation>
+    </message>
+    <message>
+        <location filename="../mainwindow.cpp" line="52"/>
+        <source>English</source>
+        <translation>Inglês</translation>
+    </message>
+</context>
+</TS>