hoehrmann’s gists

hoehrmann / SOMDump.java

Created June 17, 2013 10:01

Using Batik, loads a SVG document, executes onload scripts, and then serializes the document and prints it, to capture script-generated content. Originally http://esw.w3.org/SOMDump

	import org.w3c.dom.Document;
	import org.w3c.dom.Element;
	import org.apache.batik.bridge.BaseScriptingEnvironment;
	import org.apache.batik.bridge.BridgeContext;
	import org.apache.batik.bridge.GVTBuilder;
	import org.apache.batik.bridge.UserAgentAdapter;
	import org.apache.batik.dom.svg.SAXSVGDocumentFactory;
	import org.apache.batik.util.XMLResourceDescriptor;
	import org.w3c.dom.ls.DOMImplementationLS;
	import org.w3c.dom.ls.DOMSerializer;

hoehrmann / SVG Tidy snippet.js

Created June 17, 2013 12:33

SVG Tidy snippet, originally http://esw.w3.org/SvgTidy/Snippets in 2005

	var properties = {
	"alignment-baseline" : {
	"ani" : true,
	"app" : [
	"altGlyph",
	"textPath",
	"tref",
	"tspan"
	],
	"inh" : false,

hoehrmann / truecrypt-apply-keyfiles-to-password.pl

Created October 9, 2013 21:26

Compute a TrueCrypt password from a TrueCrypt password and associated keyfiles.

	#!perl -w
	use Modern::Perl;
	use String::CRC32;
	use MIME::Base64;
	use autodie;

	#####################################################################
	# Apply keyfiles to TrueCrypt passwords -- TrueCrypt allows users to
	# specify one or more keyfiles that are applied to user passwords to
	# make password recovery more difficult. Oddly, many of the popular

hoehrmann / merge-plain-text-with-html-dom.pl

Created October 23, 2013 20:48

	#!perl -w
	use Modern::Perl;
	use XML::LibXML;
	use Algorithm::Diff::XS;

	#####################################################################
	# Merges the Lynx rendering of a HTML document with libxml2-parsed
	# DOM representation of the same document to figure out which parts
	# of the text are in a blockquote element. This is useful when using
	# a html2text program while wanting to format parts differently when

hoehrmann / compact_diff_to_sdiff.pl

Created October 25, 2013 17:48

Takes the output of Algorithm::Diff::compact_diff and turns it into what Algorithm::Diff::sdiff would have returned. This may be useful in conjunction with Algorithm::Diff::XS which speeds up compact_diff considerably but not sdiff.

	#!perl -w
	use Modern::Perl;
	use Algorithm::Diff::XS;
	use Test::More;
	use Data::Random qw/rand_chars/;

	sub compact_diff_to_sdiff {
	my ($a, $b, @cdiff) = @_;

	my @temp;

hoehrmann / abnf2greibach.pl

Last active December 27, 2015 08:38

Turns ABNF grammar into a "simpler" ABNF grammar that is essentially in Greibach Normal Form plus epsilon rules so information on which non-terminals match the empty string is not lost; furthermore it only generates terminals for the form %x0000-10FFFF. Specifically, this means that the grammar contains no left recursion.

	#!perl -w
	use Modern::Perl;
	use Parse::ABNF;
	use Data::Dumper;
	use YAML::XS;
	use Graph::Directed;
	use List::OrderBy;

	#####################################################################
	#

hoehrmann / NNTP over HTTP gateway.txt

Created November 6, 2013 19:48

	Request for status information
	* ?action=about&...
	* CAPABILITIES
	* DATE
	* ...

	Retrieve some basic information about the service. For instance,
	which authentication method the service would like to use, or if
	some optional protocol features are implemented. Can also be used
	to support the DATE command by looking at the Date header. If

hoehrmann / Automaton JSON

Created November 10, 2013 21:16

Rough sketch for a flexible JSON format to store and exchange state automata.


	{
	"start": "State0",

	"alphabet": {
	...
	},

	"symbols": {
	"aA": {

hoehrmann / CopyConsoleScreen.c

Created November 24, 2013 17:13

	#include <stdio.h>
	#include <stdlib.h>
	#include <Windows.h>

	int
	main(int argc, char *argv[]) {
	char* buffer;
	BOOL bStatus;
	COORD coords;
	HANDLE hConsole;

hoehrmann / google-geocode-easteregg.json

Created February 13, 2014 15:51

http://maps.googleapis.com/maps/api/geocode/json?sensor=false&address=HTTP%2F1.1

	{
	"results" : [
	{
	"address_components" : [
	{
	"long_name" : "\u003ca href=http://localhost:20000/form/DataTool.view_region?submit=Send+to+RPC&3=t&3.1=-22.467512&3.1.=y&3.2=-42.655755&3.2.=y&3.3=2.500000&3.3.=y&3.4=0.000000&3.4.=y&3.5=0.071465&3.5.=y&3.6=-1.143429&3.6.=y&database=mapmaker_prod\u003eSV pose\u003c/a\u003e",
	"short_name" : "\u003ca href=http://localhost:20000/form/DataTool.view_region?submit=Send+to+RPC&3=t&3.1=-22.467512&3.1.=y&3.2=-42.655755&3.2.=y&3.3=2.500000&3.3.=y&3.4=0.000000&3.4.=y&3.5=0.071465&3.5.=y&3.6=-1.143429&3.6.=y&database=mapmaker_prod\u003eSV pose\u003c/a\u003e",
	"types" : [ "route" ]
	},
	{

Björn Höhrmann hoehrmann