rhaberkorn

# Snocone version (obscure C-like SNOBOL preprocessor)

stack = array(10); sp = 0

procedure push()
{
	nreturn .stack[sp = sp + 1]
}

procedure pop()

rhaberkorn

struct tag {type, params, lastp, children, last, parent}

struct param {name, value}

word = SPAN("_0123456789" && &LCASE)

xml = (("<!--" && ARB && "-->") $ *ITEM(children(current),last(current) = last(current) + 1) |

       "<" && word $ *type(current = ITEM(children(current),last(current) = last(current) + 1) =

rhaberkorn

C This one is almost an obfu, but valid FORTRAN 77

C Demonstrated features: character format identifiers, arrays as

C internal files, implied-DO-loops, importance of the blank character,

C rules for continuation lines, substrings, implicit type declaration...

565760C H   ARA      C T     ERM   S G ( 4 ) *   1        3            7

rhaberkorn

* Rearranges patches of a wave-file (shuffles them like a card deck)



      program REARRANGE

       include 'fsublib.fi'

rhaberkorn

#!/usr/local/bin/nthe -p

if .environment~theco.initialized \= .nil then return

/*
 * Initialize classic Rexx function packages
 */
call ReLoadFuncs

/*

rhaberkorn

#!/usr/bin/lua5.2

local function parse_date(str)
	local t = {hour = 0, min = 0}
	t.day, t.month, t.year = str:match("^(%d+)%.(%d+)%.(%d+)$")
	return os.time(t) 
end

local pattern = arg[1] or ""
local time_begin = arg[2] and parse_date(arg[2]) or 0

rhaberkorn

#!/bin/sh
# Requirements: socat, rlwrap
# To connect using a FTDI serial device node
# (requires the `ftdi_sio` driver or a native COM/UART port), e.g.: metraLine /dev/ttyUSB0
# To connect to a product with builtin ethernet via TCP, e.g.: metraLine 192.168.2.239

if [ -c $1 ]; then
	# Assume $1 to be a serial device node
	ADDRESS=FILE:$1,nonblock,raw,echo=0,b115200,cs8
else

rhaberkorn

#!/bin/sh
# This script performs a checkout with same arguments as `git checkout`
# but makes sure that submodules are initialized in exactly the way
# described in the branch/tag.
# This is useful to avoid having to cleanup the tree after checkout
# to prevent files interfering with Eclispe and updating submodules
# manually.
#
# NOTE: This does not prevent other untracked files from intefering
# with Eclipse.

rhaberkorn

#!/bin/bash
# git-move-tag <tag-name> <target>

tagName=$1
# Support passing branch/tag names (not just full commit hashes)
newTarget=$(git rev-parse $2^{commit})

git cat-file -p refs/tags/$tagName | 
sed "1 s/^object .*$/object $newTarget/g" | 
git hash-object -w --stdin -t tag | 

rhaberkorn

#!/bin/bash
# git-rename-tag <old-name> <new-name>
# NOTE: This works on the "origin" remote and preserves
# annotations.
set -e

# Creates a new tag on the remote AND removes the old tag
git push origin refs/tags/$1:refs/tags/$2 :refs/tags/$1
# Remove the old local tag
git tag -d $1