bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

revbank2beancount: reword comment

Browse source
This commit is contained in:
Juerd Waalboer 2023-09-10 02:03:11 +02:00
parent 62aae74dfb
commit f4e7d5660e
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
contrib/revbank2beancount.pl
View file

@ -119,11 +119,11 @@ while (defined(my $line = readline $fh)) {
\s++ ([+-][\d.]++) # account balance before transaction \s++ ([+-][\d.]++) # account balance before transaction
]x or warn; ]x or warn;
# This depends on the logic that revbank will *always* # This uses the fact that revbank will *always* emit a BALANCE event
# emit a BALANCE event for every account modified by a CHECKOUT event, # for every account modified by a CHECKOUT event, and that transactions
# and that transactions will be in chronological order in the log. That # will be in chronological order in the log. That is, the first old
# is, the first old balance will be the opening balance, regardless of # balance will be the opening balance, regardless of the corresponding
# the corresponding transaction id. # transaction id.
$balances{$account} //= $balance; $balances{$account} //= $balance;
} }
} }
@ -162,5 +162,5 @@ for my $id (@transaction_ids) {
print "\n"; print "\n";
} }
# TO DO: read revbank.accounts and "open" beancount accounts for all accounts # TODO: read revbank.accounts and "open" beancount accounts for all accounts
# that didn't have any transactions. # that didn't have any transactions.