=== removed file 'dcg_stuff.pl' --- dcg_stuff.pl 2012-05-16 16:25:25 +0000 +++ dcg_stuff.pl 1970-01-01 00:00:00 +0000 @@ -1,29 +0,0 @@ -% vim: ft=prolog textwidth=80 tabstop=4 softtabstop=4 shiftwidth=4 expandtab - -:- module(dcg_stuff, [ - op(800,xfy,(#:)), (#:)/4, - op(800,xfy,(#+)), (#+)/4, - op(800,xfy,(#=)), (#=)/4, - op(800,xfy,(#?)), (#?)/4, - phrase_assoc/2 - ]). - -:- use_module(library(assoc)). - -#:(Key,DCG_Goal,AssocIn,AssocOut) :- - get_assoc(Key,AssocIn,ValIn,AssocOut,ValOut), - phrase(DCG_Goal,ValIn,ValOut). - -#+(Key,List,AssocIn,AssocOut) :- - get_assoc(Key,AssocIn,ValIn,AssocOut,ValOut), - append(List,ValIn,ValOut). - -#=(Key,Value,AssocIn,AssocOut) :- - put_assoc(Key, AssocIn, Value, AssocOut). - -#?(Key,Value,Assoc,Assoc) :- - get_assoc(Key, Assoc, Value). - -phrase_assoc(DCG_Goal, ValOut) :- - empty_assoc(Empty), - phrase(DCG_Goal, Empty, ValOut). === removed file 'scripts/snapshot_stage' --- scripts/snapshot_stage 2012-05-16 16:25:25 +0000 +++ scripts/snapshot_stage 1970-01-01 00:00:00 +0000 @@ -1,20 +0,0 @@ -#!/bin/zsh -# vim: noet ts=4 sts=4 - -die() { - echo DIE: $@ - exit 1 -} - -SNAPSHOT_STYLE=${SNAPSHOT_STYLE:-btrfs} - -[[ -d $1 ]] || die "Source directory $1 does not exist" -[[ -e $2 ]] && { - dst=( $2(N/^F) ) - ((${#dst})) || die "Destination directory $2 exists and it is not empty" -} -[[ $SNAPSHOT_STYLE == 'btrfs' ]] || die 'only btrfs SNAPSHOT_STYLE supported currently' - -set -x -btrfs snapshot $1 $2 -exit $?