Mercurial > hg > config

annotate bin/budget.sh @ 817:9f42400dcd83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
attempt to illustrate anoymous functions
author Jeff Hammel <k0scist@gmail.com>
date Tue, 29 Nov 2016 16:33:39 -0800
parents 25e92f9cf011
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
492
25e92f9cf011 bin/budget.sh
Jeff Hammel <jhammel@mozilla.com>
parents:
diff changeset
1 #!/bin/bash
25e92f9cf011 bin/budget.sh
Jeff Hammel <jhammel@mozilla.com>
parents:
diff changeset
2
25e92f9cf011 bin/budget.sh
Jeff Hammel <jhammel@mozilla.com>
parents:
diff changeset
3 # from http://c2.com/doc/expense/
25e92f9cf011 bin/budget.sh
Jeff Hammel <jhammel@mozilla.com>
parents:
diff changeset
4
25e92f9cf011 bin/budget.sh
Jeff Hammel <jhammel@mozilla.com>
parents:
diff changeset
5 exec awk ' $1 ~ /^[A-Z]+[A-Z0-9]*$/ { if (sums[$1] == "" || $1 == "SUM") { sums[$1] = sum # Define Symbol $1 = sum sum = 0 } else { $1 = sums[$1] # Dereference Symbol } } ($1+0) != 0 {$1 = sprintf("%7.2f", $1)} # Pretty Print {print} $2 == "*" {$1 *= $3} # Explicit Calculations $2 == "/" {$1 /= $3} $2 == "DB" {$1 = -$1} $2 == "CR" {$1 = -$1} NF == 0 {sum = 0} # Implicit Summation {sum += $1} ' $1