ledger/contrib/bal-huquq
2009-02-23 14:04:50 -04:00

21 lines
389 B
Bash
Executable file

#!/bin/sh
switch="-c"
limit="-t (/Liabilities/?(/Huquq/?a/P{2.22AU}<={-1.0}:a<0):Ua>100)&a"
if [ "$1" = "-C" -o "$1" = "-U" ]; then
switch="$1"
shift
elif [ "$1" = "-b" -o "$1" = "-e" -o "$1" = "-p" ]; then
switch="$1 $2"
shift 2
fi
accts="$@"
if [ -z "$accts" ]; then
accts="-Equity -Income -Expenses"
else
limit=""
fi
ledger -VQ $switch $limit -s -S "-UT" balance $accts