tadpol

#!/bin/zsh
path+=(/opt/homebrew/bin /Applications/Arq.app/Contents/Resources/)

plans=($(arqc listBackupPlans 2>/dev/null | awk -F'[= \t]' '/UUID/ {print $2}'))

for plan in $plans; do
	msg=$(arqc latestBackupActivityJSON $plan 2>/dev/null | jq -r '.message')
	if [[ $msg == "Backing up"* ]]; then
		echo yes
		exit 0

tadpol

function scan_netrc {
  local host_to_find=$1
  local user_to_find=$2
  local netrc=($(< ~/.netrc ))
  # This does not correctly handle `macrodef`
  # netrc is a series of key-value pairs seperated by anysort of white space.
  # (netrc explictily does not handle password with whitespace in them)
  # Strictly, netrc only mactches on `machine` and there can only be one of each.
  local key=''
  local state=START

tadpol

const sleep = (delay) => new Promise(resolve => setTimeout(resolve, delay));
module.exports = {sleep};

tadpol

# convert INI to sourcable env. (does not handle comments)
awk 'BEGIN {sec="default"}; /^\[/ {gsub(/\[|\]/,""); sec=$0} /=/ {print sec "_" $0}' < config.ini

# Filter in a single section (does not handle comments)
awk -v sec=dev 'BEGIN {nskip=0} /^\[.+\]$/ {if($0 == "[" sec "]") nskip=1; else nskip=0; next} nskip' < config.ini

tadpol

#!/bin/sh
set -x
basename=`basename $0`

if [ -z "$*" ]; then
	echo "usage: ${basename} <dot> [ -o | -r | <file> | - ]"
	echo ""
	echo "options:"
	echo "  -o      open dot in window with keyboard focus"
	echo "  -r      read contents of dot"

tadpol

#!/bin/sh

set -x
set -e

DEVICE_HOST=${DEVICE_HOST:-<>.m2.exosite-dev.io}

BY_ACTION=${BY_ACTION:-write}
USE_CERT=${USE_CERT:-rsa}
HOST_CA=${HOST_CA:-MURANO_ROOT_CA.cer}

tadpol

/* My first attempt at building a sequence that will make a collection loop forever.

  I had a need where I wanted to loop over two lists but instead of truncating the 
  longer list to the shorter one, I wanted the shorter one repeat until the longer 
  one completed.
  
  FE:
  let c = ["Z", "Y", "X", "W", "V", "U", "T"]
  let d = [0,9,7]
  let i = ForeverSequence(vals: d)

tadpol

# This goes at the end of the Build Phases
/usr/libexec/PlistBuddy -c "Set :CFBundleVersion DEVEL" "${PROJECT_DIR}/${INFOPLIST_FILE}"

tadpol

Keybase proof

I hereby claim:

• I am tadpol on github.
• I am tadpol (https://keybase.io/tadpol) on keybase.
• I have a public key whose fingerprint is 7C5B 00EA 8547 223C BF1B E3A0 666A F760 2B4D 0504

To claim this, I am signing this object:

tadpol

	_replace DDRB, 0x04
	_replace PORTB, 0x05
	_replace LEDP, 5
	_replace SPH, 0x3e
	_replace SPL, 0x3d
	_replace RAMEND_HI, 0x04
	_replace RAMEND_LO, 0xff

; Rest and Interrupt table for ATmega168
	_loc 0