4518ea9540
old system (for example, the meaning of 'a') has yet to be restored. In the new scheme, this will be done by definition a function outside of the value expression logic, rather than the tight coupling between journal innards and value expressions that occurred in 2.x.
459 lines
13 KiB
C++
459 lines
13 KiB
C++
/*
|
|
* Copyright (c) 2003-2008, John Wiegley. All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions are
|
|
* met:
|
|
*
|
|
* - Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
*
|
|
* - Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* - Neither the name of New Artisans LLC nor the names of its
|
|
* contributors may be used to endorse or promote products derived from
|
|
* this software without specific prior written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
|
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
|
* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
|
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
#include "utils.h"
|
|
#include "option.h"
|
|
#if defined(HAVE_EXPAT) || defined(HAVE_XMLPARSE)
|
|
#include "gnucash.h"
|
|
#endif
|
|
#include "qif.h"
|
|
#include "ofx.h"
|
|
|
|
#include <ledger.h>
|
|
|
|
#ifdef HAVE_UNIX_PIPES
|
|
#include <sys/types.h>
|
|
#include <sys/wait.h>
|
|
#include <fdstream.hpp>
|
|
#endif
|
|
|
|
namespace ledger {
|
|
value_t register_command(call_scope_t& args)
|
|
{
|
|
var_t<report_t> report(args, 0);
|
|
var_t<std::ostream> ostream(args, 1);
|
|
|
|
report->transactions_report
|
|
(xact_handler_ptr(new format_transactions
|
|
(*ostream, report->session.register_format)));
|
|
return true;
|
|
}
|
|
}
|
|
|
|
static int read_and_report(ledger::report_t& report, int argc, char * argv[],
|
|
char * envp[])
|
|
{
|
|
using namespace ledger;
|
|
|
|
session_t& session(report.session);
|
|
|
|
// Handle the command-line arguments
|
|
|
|
strings_list args;
|
|
process_arguments(argc - 1, argv + 1, false, report, args);
|
|
|
|
if (args.empty()) {
|
|
#if 0
|
|
help(std::cerr);
|
|
#endif
|
|
return 1;
|
|
}
|
|
strings_list::iterator arg = args.begin();
|
|
|
|
if (! session.cache_file)
|
|
session.use_cache = false;
|
|
else
|
|
session.use_cache = ! session.data_file.empty() && session.price_db;
|
|
|
|
DEBUG("ledger.session.cache", "1. use_cache = " << session.use_cache);
|
|
|
|
// Process the environment settings
|
|
|
|
TRACE_START(environment, 1, "Processed environment variables");
|
|
process_environment(const_cast<const char **>(envp), "LEDGER_", report);
|
|
TRACE_FINISH(environment, 1);
|
|
|
|
optional<path> home;
|
|
if (const char * home_var = std::getenv("HOME"))
|
|
home = home_var;
|
|
|
|
if (! session.init_file)
|
|
session.init_file = home ? *home / ".ledgerrc" : "./.ledgerrc";
|
|
if (! session.price_db)
|
|
session.price_db = home ? *home / ".pricedb" : "./.pricedb";
|
|
|
|
if (! session.cache_file)
|
|
session.cache_file = home ? *home / ".ledger-cache" : "./.ledger-cache";
|
|
|
|
if (session.data_file == *session.cache_file)
|
|
session.use_cache = false;
|
|
|
|
DEBUG("ledger.session.cache", "2. use_cache = " << session.use_cache);
|
|
|
|
INFO("Initialization file is " << session.init_file->string());
|
|
INFO("Price database is " << session.price_db->string());
|
|
INFO("Binary cache is " << session.cache_file->string());
|
|
INFO("Journal file is " << session.data_file.string());
|
|
|
|
if (! session.use_cache)
|
|
INFO("Binary cache mechanism will not be used");
|
|
|
|
// Configure the output stream
|
|
|
|
#ifdef HAVE_UNIX_PIPES
|
|
int status, pfd[2]; // Pipe file descriptors
|
|
#endif
|
|
std::ostream * out = &std::cout;
|
|
|
|
if (report.output_file) {
|
|
out = new ofstream(*report.output_file);
|
|
}
|
|
#ifdef HAVE_UNIX_PIPES
|
|
else if (report.pager) {
|
|
status = pipe(pfd);
|
|
if (status == -1)
|
|
throw_(std::logic_error, "Failed to create pipe");
|
|
|
|
status = fork();
|
|
if (status < 0) {
|
|
throw_(std::logic_error, "Failed to fork child process");
|
|
}
|
|
else if (status == 0) { // child
|
|
// Duplicate pipe's reading end into stdin
|
|
status = dup2(pfd[0], STDIN_FILENO);
|
|
if (status == -1)
|
|
perror("dup2");
|
|
|
|
// Close unuseful file descriptors: the pipe's writing and
|
|
// reading ends (the latter is not needed anymore, after the
|
|
// duplication).
|
|
close(pfd[1]);
|
|
close(pfd[0]);
|
|
|
|
// Find command name: its the substring starting right of the
|
|
// rightmost '/' character in the pager pathname. See manpage
|
|
// for strrchr.
|
|
execlp(report.pager->native_file_string().c_str(),
|
|
basename(*report.pager).c_str(), (char *)0);
|
|
perror("execl");
|
|
exit(1);
|
|
}
|
|
else { // parent
|
|
close(pfd[0]);
|
|
out = new boost::fdostream(pfd[1]);
|
|
}
|
|
}
|
|
#endif
|
|
|
|
// Read the command word and create a command object based on it
|
|
|
|
string verb = *arg++;
|
|
|
|
if (verb == "parse") {
|
|
expr_t expr(*arg);
|
|
|
|
IF_INFO() {
|
|
std::cout << "Value expression tree:" << std::endl;
|
|
expr.dump(std::cout);
|
|
std::cout << std::endl;
|
|
|
|
std::cout << "Value expression parsed was:" << std::endl;
|
|
expr.print(std::cout, report);
|
|
std::cout << std::endl << std::endl;
|
|
|
|
expr.compile(report);
|
|
|
|
std::cout << "Value expression after compiling:" << std::endl;
|
|
expr.dump(std::cout);
|
|
std::cout << std::endl;
|
|
|
|
std::cout << "Value expression is now:" << std::endl;
|
|
expr.print(std::cout, report);
|
|
std::cout << std::endl << std::endl;
|
|
|
|
std::cout << "Result of calculation: ";
|
|
}
|
|
|
|
std::cout << expr.calc(report).strip_annotations() << std::endl;
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Parse the initialization file, which can only be textual; then
|
|
// parse the journal data.
|
|
|
|
session.read_init();
|
|
|
|
INFO_START(journal, "Read journal file");
|
|
|
|
journal_t& journal(*session.create_journal());
|
|
|
|
std::size_t count = session.read_data(journal, report.account);
|
|
if (count == 0)
|
|
throw_(parse_error, "Failed to locate any journal entries; "
|
|
"did you specify a valid file with -f?");
|
|
|
|
INFO_FINISH(journal);
|
|
|
|
INFO("Found " << count << " entries");
|
|
|
|
TRACE_FINISH(entry_text, 1);
|
|
TRACE_FINISH(entry_date, 1);
|
|
TRACE_FINISH(entry_details, 1);
|
|
TRACE_FINISH(entry_xacts, 1);
|
|
TRACE_FINISH(entries, 1);
|
|
TRACE_FINISH(parsing_total, 1);
|
|
|
|
// Are we handling the expr commands? Do so now.
|
|
|
|
if (verb == "expr") {
|
|
expr_t expr(*arg);
|
|
|
|
IF_INFO() {
|
|
*out << "Value expression tree:" << std::endl;
|
|
expr.dump(*out);
|
|
*out << std::endl;
|
|
*out << "Value expression parsed was:" << std::endl;
|
|
expr.print(*out, report);
|
|
*out << std::endl << std::endl;
|
|
*out << "Result of calculation: ";
|
|
}
|
|
|
|
*out << expr.calc(report).strip_annotations() << std::endl;
|
|
|
|
return 0;
|
|
}
|
|
|
|
// Read the command word and create a command object based on it
|
|
|
|
function_t command;
|
|
|
|
if (verb == "register" || verb == "reg" || verb == "r")
|
|
command = register_command;
|
|
#if 0
|
|
else if (verb == "balance" || verb == "bal" || verb == "b")
|
|
command = balance_command();
|
|
else if (verb == "print" || verb == "p")
|
|
command = print_command();
|
|
else if (verb == "equity")
|
|
command = equity_command();
|
|
else if (verb == "entry")
|
|
command = entry_command();
|
|
else if (verb == "dump")
|
|
command = dump_command();
|
|
else if (verb == "output")
|
|
command = output_command();
|
|
else if (verb == "prices")
|
|
command = prices_command();
|
|
else if (verb == "pricesdb")
|
|
command = pricesdb_command();
|
|
else if (verb == "csv")
|
|
command = csv_command();
|
|
else if (verb == "emacs" || verb == "lisp")
|
|
command = emacs_command();
|
|
else if (verb == "xml")
|
|
command = xml_command();
|
|
#endif
|
|
else if (verb == "expr")
|
|
;
|
|
else if (verb == "xpath")
|
|
;
|
|
else {
|
|
char buf[128];
|
|
std::strcpy(buf, "command_");
|
|
std::strcat(buf, verb.c_str());
|
|
|
|
if (expr_t::ptr_op_t def = report.lookup(buf))
|
|
command = def->as_function();
|
|
|
|
if (! command)
|
|
throw_(std::logic_error, string("Unrecognized command '") + verb + "'");
|
|
}
|
|
|
|
// Create an argument scope containing the report command's
|
|
// arguments, and then invoke the command.
|
|
|
|
call_scope_t command_args(report);
|
|
|
|
command_args.push_back(value_t(&report));
|
|
command_args.push_back(value_t(out));
|
|
|
|
for (strings_list::iterator i = arg; i != args.end(); i++)
|
|
command_args.push_back(value_t(*i, true));
|
|
|
|
INFO_START(command, "Did user command '" << verb << "'");
|
|
|
|
command(command_args);
|
|
|
|
INFO_FINISH(command);
|
|
|
|
// Clean up memory, if it matters
|
|
|
|
if (DO_VERIFY() && report.output_file)
|
|
checked_delete(out);
|
|
|
|
// Write out the binary cache, if need be
|
|
|
|
if (session.use_cache && session.cache_dirty && session.cache_file) {
|
|
TRACE_START(binary_cache, 1, "Wrote binary journal file");
|
|
|
|
ofstream stream(*session.cache_file);
|
|
journal.write(stream);
|
|
|
|
TRACE_FINISH(binary_cache, 1);
|
|
}
|
|
|
|
// If the user specified a pager, wait for it to exit now
|
|
|
|
#ifdef HAVE_UNIX_PIPES
|
|
if (! report.output_file && report.pager) {
|
|
checked_delete(out);
|
|
close(pfd[1]);
|
|
|
|
// Wait for child to finish
|
|
wait(&status);
|
|
if (status & 0xffff != 0)
|
|
throw_(std::logic_error, "Something went wrong in the pager");
|
|
}
|
|
#endif
|
|
else if (DO_VERIFY() && report.output_file) {
|
|
checked_delete(out);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
int main(int argc, char * argv[], char * envp[])
|
|
{
|
|
int status = 1;
|
|
|
|
for (int i = 1; i < argc; i++)
|
|
if (argv[i][0] == '-') {
|
|
if (std::strcmp(argv[i], "--verify") == 0) {
|
|
#if defined(VERIFY_ON)
|
|
ledger::verify_enabled = true;
|
|
#endif
|
|
}
|
|
else if (std::strcmp(argv[i], "--verbose") == 0 ||
|
|
std::strcmp(argv[i], "-v") == 0) {
|
|
#if defined(LOGGING_ON)
|
|
ledger::_log_level = ledger::LOG_INFO;
|
|
#endif
|
|
}
|
|
else if (i + 1 < argc && std::strcmp(argv[i], "--debug") == 0) {
|
|
#if defined(DEBUG_ON)
|
|
ledger::_log_level = ledger::LOG_DEBUG;
|
|
ledger::_log_category = argv[i + 1];
|
|
i++;
|
|
#endif
|
|
}
|
|
else if (i + 1 < argc && std::strcmp(argv[i], "--trace") == 0) {
|
|
#if defined(TRACING_ON)
|
|
ledger::_log_level = ledger::LOG_TRACE;
|
|
try {
|
|
ledger::_trace_level = boost::lexical_cast<int>(argv[i + 1]);
|
|
}
|
|
catch (const boost::bad_lexical_cast& e) {
|
|
std::cerr << "Argument to --trace must be an integer."
|
|
<< std::endl;
|
|
return 1;
|
|
}
|
|
i++;
|
|
#endif
|
|
}
|
|
}
|
|
|
|
IF_VERIFY()
|
|
ledger::initialize_memory_tracing();
|
|
|
|
try {
|
|
std::ios::sync_with_stdio(false);
|
|
|
|
boost::filesystem::path::default_name_check
|
|
(boost::filesystem::portable_posix_name);
|
|
|
|
INFO("Ledger starting");
|
|
|
|
std::auto_ptr<ledger::session_t> session(new ledger::session_t);
|
|
|
|
ledger::set_session_context(session.get());
|
|
|
|
session->register_parser(new ledger::journal_t::binary_parser_t);
|
|
#if defined(HAVE_EXPAT) || defined(HAVE_XMLPARSE)
|
|
session->register_parser(new ledger::xml_parser_t);
|
|
session->register_parser(new ledger::gnucash_parser_t);
|
|
#endif
|
|
#ifdef HAVE_LIBOFX
|
|
session->register_parser(new ledger::ofx_parser_t);
|
|
#endif
|
|
session->register_parser(new ledger::qif_parser_t);
|
|
session->register_parser(new ledger::textual_parser_t);
|
|
|
|
std::auto_ptr<ledger::report_t> report(new ledger::report_t(*session.get()));
|
|
|
|
status = read_and_report(*report.get(), argc, argv, envp);
|
|
|
|
if (DO_VERIFY()) {
|
|
ledger::set_session_context();
|
|
} else {
|
|
report.release();
|
|
session.release();
|
|
}
|
|
}
|
|
catch (ledger::error * err) {
|
|
std::cout.flush();
|
|
// Push a null here since there's no file context
|
|
if (err->context.empty() ||
|
|
! dynamic_cast<ledger::xact_context *>(err->context.front()))
|
|
err->context.push_front(new ledger::error_context(""));
|
|
err->reveal_context(std::cerr, "Error");
|
|
std::cerr << err->what() << std::endl;
|
|
ledger::checked_delete(err);
|
|
}
|
|
catch (ledger::fatal * err) {
|
|
std::cout.flush();
|
|
// Push a null here since there's no file context
|
|
if (err->context.empty() ||
|
|
! dynamic_cast<ledger::xact_context *>(err->context.front()))
|
|
err->context.push_front(new ledger::error_context(""));
|
|
err->reveal_context(std::cerr, "Fatal");
|
|
std::cerr << err->what() << std::endl;
|
|
ledger::checked_delete(err);
|
|
}
|
|
catch (const std::exception& err) {
|
|
std::cout.flush();
|
|
std::cerr << "Exception: " << err.what() << std::endl;
|
|
}
|
|
catch (int _status) {
|
|
status = _status;
|
|
}
|
|
|
|
IF_VERIFY() {
|
|
INFO("Ledger ended (Boost/libstdc++ may still hold memory)");
|
|
ledger::shutdown_memory_tracing();
|
|
} else {
|
|
INFO("Ledger ended");
|
|
}
|
|
|
|
return status;
|
|
}
|
|
|
|
// main.cc ends here.
|