further restructuring

1 files changed, 348 insertions, 0 deletions

diff --git a/config.cc b/config.cc
new file mode 100644
index 00000000..d96ce291
--- /dev/null
+++ b/config.cc
@@ -0,0 +1,348 @@
+#include "config.h"
+#include "option.h"
+
+namespace ledger {
+
+std::auto_ptr<config_t> config(new config_t);
+
+const std::string bal_fmt	 = "%20T  %2_%-n\n";
+const std::string reg_fmt
+  = "%D %-.20P %-.22N %12.66t %12.80T\n\
+%/                                %-.22N %12.66t %12.80T\n";
+const std::string plot_value_fmt = "%D %t\n";
+const std::string plot_total_fmt = "%D %T\n";
+const std::string print_fmt
+  = "\n%D %X%C%P\n    %-34N  %12o\n%/    %-34N  %12o\n";
+const std::string equity_fmt
+  = "\n%D %X%C%P\n%/    %-34N  %12t\n";
+
+config_t::config_t()
+{
+  if (const char * p = std::getenv("HOME"))
+    init_file = cache_file = price_db = p;
+
+  init_file  += "/.ledgerrc";
+  cache_file += "/.ledger";
+  price_db   += "/.pricedb";
+
+  value_expr	     = "a";
+  total_expr	     = "T";
+  pricing_leeway     = 24 * 3600;
+  show_subtotals     = true;
+  show_expanded      = false;
+  show_related       = false;
+  show_inverted      = false;
+  show_empty	     = false;
+  days_of_the_week   = false;
+  show_revalued      = false;
+  show_revalued_only = false;
+  download_quotes    = false;
+}
+
+static void show_version(std::ostream& out)
+{
+  out
+    << "Ledger " << ledger::version << ", the command-line accounting tool\n\n"
+    << "Copyright (c) 2003-2004, New Artisans LLC. All rights reserved.\n\n"
+    << "This program is made available under the terms of the BSD Public\n"
+    << "License.  See the LICENSE file included with the distribution for\n"
+    << "details and disclaimer.\n";
+}
+
+void option_help(std::ostream& out)
+{
+  out
+    << "usage: ledger [options] COMMAND [options] [REGEXPS]\n\n\
+Basic options:\n\
+  -h, --help            display this help text\n\
+  -v, --version         display version information\n\
+  -i, --init FILE       initialize ledger by loading FILE\n\
+  -f, --file FILE       specify pathname of ledger data file\n\
+  -o, --output FILE     write all output to FILE\n\
+  -p, --set-price CONV  specifies commodity conversion: COMM=AMOUNT\n\n\
+Report filtering:\n\
+  -b, --begin-date DATE specify a beginning date\n\
+  -e, --end-date DATE   specify an ending date\n\
+  -c, --current         do not show future entries (same as -e TODAY)\n\
+  -C, --cleared         show only cleared transactions and balances\n\
+  -U, --uncleared       show only uncleared transactions and balances\n\
+  -R, --real            do not consider virtual transactions: real only\n\n\
+Output customization:\n\
+  -F, --format STR      \n\
+  -y, --date-format STR \n\
+  -E, --empty           balance: also show accounts that total to zero\n\
+  -n, --collapse        balance: no parent account totals; register: collapse\n\
+  -s, --show-all        balance: show sub-accounts; register: show subtotals\n\
+  -S, --sort EXPR       sort report according to value EXPR\n\
+  -r, --related         \n\
+  -z, --interval EXPR   \n\
+  -w, --dow             print register using day of week sub-totals\n\
+  -W, --weekly                 \"   \"         weekly sub-totals\n\
+  -M, --monthly                \"   \"         monthly sub-totals\n\
+  -Y, --yearly                 \"   \"         yearly sub-totals\n\
+  -l, --limit EXPR      don't calculate entries for which EXPR yields 0\n\
+  -d, --display EXPR    don't print entries for which EXPR yields 0\n\
+  -t, --value EXPR      \n\
+  -T, --total EXPR      \n\
+  -j, --value-data      \n\
+  -J, --total-data      \n\n\
+Commodity reporting:\n\
+  -P, --price-db FILE   sets the price database\n\
+  -L, --price-exp MINS  with -Q, fetch quotes only if data is older than MINS\n\
+  -Q, --download        download price information from the Internet\n\
+			(works by running \"getquote SYMBOL\")\n\
+  -O, --quantity        \n\
+  -B, --basis           report cost basis of commodities\n\
+  -V, --market          report the market value of commodities\n\
+  -G, --gain            \n\
+  -A, --average         \n\
+  -D, --deviation       \n\
+  -X, --trend           \n\
+  -Z, --weighted-trend  \n\n\
+Commands:\n\
+  balance       show balance totals\n\
+  register      display a register for ACCOUNT\n\
+  print         print all ledger entries\n\
+  entry         output a newly formed entry, based on arguments\n\
+  equity        output equity entries for specified accounts\n";
+}
+
+//////////////////////////////////////////////////////////////////////
+//
+// Basic options
+
+DEF_OPT_HANDLERS();
+
+OPT_BEGIN(help, "h", false) {
+  option_help(std::cout);
+  std::exit(0);
+} OPT_END(help);
+
+OPT_BEGIN(version, "v", false) {
+  show_version(std::cout);
+  std::exit(0);
+} OPT_END(version);
+
+OPT_BEGIN(init, "i:", true) {
+  config->init_file = optarg;
+} OPT_END(init);
+
+OPT_BEGIN(file, "f:", true) {
+  char * buf = new char[std::strlen(optarg) + 1];
+  std::strcpy(buf, optarg);
+  for (char * p = std::strtok(buf, ":");
+       p;
+       p = std::strtok(NULL, ":"))
+    config->files.push_back(p);
+  delete[] buf;
+} OPT_END(file);
+
+OPT_BEGIN(cache, ":", false) {
+  config->cache_file = optarg;
+} OPT_END(cache);
+
+OPT_BEGIN(output, "o:", false) {
+  if (std::string(optarg) != "-")
+    config->output_file = optarg;
+} OPT_END(output);
+
+OPT_BEGIN(set_price, "p:", true) {
+  if (std::strchr(optarg, '='))
+    config->price_settings.push_back(optarg);
+  else
+    std::cerr << "Error: Invalid price setting: " << optarg << std::endl;
+} OPT_END(set_price);
+
+//////////////////////////////////////////////////////////////////////
+//
+// Report filtering
+
+OPT_BEGIN(begin_date, "b:", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "(d>=[";
+  config->predicate += optarg;
+  config->predicate += "])";
+} OPT_END(begin_date);
+
+OPT_BEGIN(end_date, "e:", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "(d<[";
+  config->predicate += optarg;
+  config->predicate += "])";
+} OPT_END(end_date);
+
+OPT_BEGIN(current, "c", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "(d<t)";
+} OPT_END(current);
+
+OPT_BEGIN(cleared, "C", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "X";
+} OPT_END(cleared);
+
+OPT_BEGIN(uncleared, "U", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "!X";
+} OPT_END(uncleared);
+
+OPT_BEGIN(real, "R", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "R";
+} OPT_END(real);
+
+//////////////////////////////////////////////////////////////////////
+//
+// Output customization
+
+OPT_BEGIN(format, "F:", false) {
+  config->format_string = optarg;
+} OPT_END(format);
+
+OPT_BEGIN(date_format, "y:", false) {
+  config->date_format = optarg;
+} OPT_END(date_format);
+
+OPT_BEGIN(empty, "E", false) {
+  config->show_empty = true;
+} OPT_END(empty);
+
+OPT_BEGIN(collapse, "n", false) {
+  config->show_subtotals = false;
+} OPT_END(collapse);
+
+OPT_BEGIN(show_all, "s", false) {
+  config->show_expanded = true;
+} OPT_END(show_all);
+
+OPT_BEGIN(sort, "S:", false) {
+  config->sort_string = optarg;
+} OPT_END(sort);
+
+OPT_BEGIN(related, "r", false) {
+  config->show_related = true;
+} OPT_END(related);
+
+OPT_BEGIN(interval, "z:", false) {
+  config->interval_text = optarg;
+} OPT_END(interval);
+
+OPT_BEGIN(weekly, "W", false) {
+  config->interval_text = "weekly";
+} OPT_END(weekly);
+
+OPT_BEGIN(dow, "w", false) {
+  config->days_of_the_week = true;
+} OPT_END(dow);
+
+OPT_BEGIN(monthly, "M", false) {
+  config->interval_text = "monthly";
+} OPT_END(monthly);
+
+OPT_BEGIN(yearly, "Y", false) {
+  config->interval_text = "yearly";
+} OPT_END(yearly);
+
+OPT_BEGIN(limit, "l:", false) {
+  if (! config->predicate.empty())
+    config->predicate += "&";
+  config->predicate += "(";
+  config->predicate += optarg;
+  config->predicate += ")";
+} OPT_END(limit);
+
+OPT_BEGIN(display, "d:", false) {
+  if (! config->display_predicate.empty())
+    config->display_predicate += "&";
+  config->display_predicate += "(";
+  config->display_predicate += optarg;
+  config->display_predicate += ")";
+} OPT_END(display);
+
+OPT_BEGIN(value, "t:", false) {
+  config->value_expr = optarg;
+} OPT_END(value);
+
+OPT_BEGIN(total, "T:", false) {
+  config->total_expr = optarg;
+} OPT_END(total);
+
+OPT_BEGIN(value_data, "j", false) {
+  config->value_expr    = "S" + config->value_expr;
+  config->format_string = plot_value_fmt;
+} OPT_END(value_data);
+
+OPT_BEGIN(total_data, "J", false) {
+  config->total_expr    = "S" + config->total_expr;
+  config->format_string = plot_total_fmt;
+} OPT_END(total_data);
+
+//////////////////////////////////////////////////////////////////////
+//
+// Commodity reporting
+
+OPT_BEGIN(price_db, "P:", false) {
+  config->price_db = optarg;
+} OPT_END(price_db);
+
+OPT_BEGIN(price_exp, "L:", false) {
+  config->pricing_leeway = std::atol(optarg) * 60;
+} OPT_END(price_exp);
+
+OPT_BEGIN(download, "Q", false) {
+  config->download_quotes = true;
+} OPT_END(download);
+
+OPT_BEGIN(quantity, "O", false) {
+  config->value_expr = "a";
+  config->total_expr = "T";
+} OPT_END(quantity);
+
+OPT_BEGIN(basis, "B", false) {
+  config->value_expr = "c";
+  config->total_expr = "C";
+} OPT_END(basis);
+
+OPT_BEGIN(market, "V", false) {
+  config->show_revalued = true;
+
+  config->value_expr = "v";
+  config->total_expr = "V";
+} OPT_END(market);
+
+OPT_BEGIN(gain, "G", false) {
+  config->show_revalued      =
+  config->show_revalued_only = true;
+
+  config->value_expr = "a";
+  config->total_expr = "G";
+} OPT_END(gain);
+
+OPT_BEGIN(average, "A", false) {
+  config->value_expr = "a";
+  config->total_expr = "MT";
+} OPT_END(average);
+
+OPT_BEGIN(deviation, "D", false) {
+  config->value_expr = "a";
+  config->total_expr = "DMT";
+} OPT_END(deviation);
+
+OPT_BEGIN(trend, "X", false) {
+  config->value_expr = "a";
+  config->total_expr = "MDMT";
+} OPT_END(trend);
+
+OPT_BEGIN(weighted_trend, "Z", false) {
+  config->value_expr = "a";
+  config->total_expr
+    = "MD(MT/(1+(((t-d)/(30*86400))<0?0:((t-d)/(30*86400)))))";
+} OPT_END(weighted_trend);
+
+} // namespace ledger