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

#!/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

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

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

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

/*

rhaberkorn

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



      program REARRANGE

       include 'fsublib.fi'

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

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

# Snocone version (obscure C-like SNOBOL preprocessor)

stack = array(10); sp = 0

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

procedure pop()