summaryrefslogtreecommitdiff
path: root/src/driver/main.cc
diff options
context:
space:
mode:
Diffstat (limited to 'src/driver/main.cc')
-rw-r--r--src/driver/main.cc481
1 files changed, 0 insertions, 481 deletions
diff --git a/src/driver/main.cc b/src/driver/main.cc
deleted file mode 100644
index 469bb5ee..00000000
--- a/src/driver/main.cc
+++ /dev/null
@@ -1,481 +0,0 @@
-/*
- * Copyright (c) 2003-2007, 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 "jbuilder.h"
-#include "compile.h"
-
-#include <ledger.h>
-
-#ifdef HAVE_UNIX_PIPES
-#include <sys/types.h>
-#include <sys/wait.h>
-#include <fdstream.hpp>
-#endif
-
-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");
-
- // Read the command word and create a command object based on it
-
- string verb = *arg++;
-
- xml::xpath_t::function_t command;
-
-#if 0
- if (verb == "register" || verb == "reg" || verb == "r")
- command = register_command();
- 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
-#endif
- if (verb == "xml")
- command = bind(xml_command, _1);
- else if (verb == "expr")
- ;
- else if (verb == "xpath")
- ;
- else if (verb == "parse") {
- xml::xpath_t expr(*arg);
- xml::document_t temp(xml::LEDGER_NODE);
-
- xml::xpath_t::context_scope_t doc_scope(report, &temp);
-
- 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, doc_scope);
- std::cout << std::endl << std::endl;
-
- expr.compile(doc_scope);
-
- 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, doc_scope);
- std::cout << std::endl << std::endl;
-
- std::cout << "Result of calculation: ";
- }
-
- std::cout << expr.calc(doc_scope).strip_annotations() << std::endl;
-
- return 0;
- }
- else {
- char buf[128];
- std::strcpy(buf, "command_");
- std::strcat(buf, verb.c_str());
-
- if (xml::xpath_t::ptr_op_t def = report.lookup(buf))
- command = def->as_function();
-
- if (! command)
- throw_(std::logic_error, string("Unrecognized command '") + verb + "'");
- }
-
- // Parse the initialization file, which can only be textual; then
- // parse the journal data.
-
- session.read_init();
-
- INFO_START(journal, "Read journal file");
-
- xml::document_t xml_document(xml::LEDGER_NODE);
- journal_t * journal = session.create_journal();
- xml::journal_builder_t builder(xml_document, journal);
-
- if (! session.read_data(builder, journal, report.account))
- throw_(parse_error, "Failed to locate any journal entries; "
- "did you specify a valid file with -f?");
-
- INFO_FINISH(journal);
-
- 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);
-
- // 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
-
- report.define("ostream", value_t(out));
-
- // Are we handling the expr commands? Do so now.
-
- xml::xpath_t::context_scope_t doc_scope(report, &xml_document);
-
- if (verb == "expr") {
- xml::xpath_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, doc_scope);
- *out << std::endl << std::endl;
- *out << "Result of calculation: ";
- }
-
- *out << expr.calc(doc_scope).strip_annotations() << std::endl;
-
- return 0;
- }
- else if (verb == "xpath") {
- std::cout << "XPath parsed: ";
-
- xml::xpath_t xpath(*arg);
- xpath.print(*out, doc_scope);
- *out << std::endl;
-
- IF_INFO() {
- *out << "Raw results:" << std::endl;
-
- foreach (const value_t& value, xpath.find_all(doc_scope)) {
- if (value.is_xml_node())
- value.as_xml_node()->print(std::cout);
- else
- std::cout << value;
- std::cout << std::endl;
- }
-
- *out << "Compiled results:" << std::endl;
- }
-
- xml::compile_node(xml_document, report);
-
- foreach (const value_t& value, xpath.find_all(doc_scope)) {
- if (value.is_xml_node())
- value.as_xml_node()->print(std::cout);
- else
- std::cout << value;
- std::cout << std::endl;
- }
- return 0;
- }
-
- // Apply transforms to the hierarchical document structure
-
- INFO_START(transforms, "Applied transforms");
- report.apply_transforms(doc_scope);
- INFO_FINISH(transforms);
-
- // Create an argument scope containing the report command's
- // arguments, and then invoke the command.
-
- xml::xpath_t::call_scope_t command_args(doc_scope);
-
- 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);
-
- // 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");
-
-#if 0
- ofstream stream(*session.cache_file);
- write_binary_journal(stream, journal);
-#endif
-
- 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;
- ledger::_trace_level = boost::lexical_cast<int>(argv[i + 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());
-
-#if 0
- session->register_parser(new binary_parser_t);
-#if defined(HAVE_EXPAT) || defined(HAVE_XMLPARSE)
- session->register_parser(new xml::xml_parser_t);
- session->register_parser(new gnucash_parser_t);
-#endif
-#ifdef HAVE_LIBOFX
- session->register_parser(new ofx_parser_t);
-#endif
- session->register_parser(new qif_parser_t);
-#endif
- 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();
- }
- }
-#if 0
- catch (error * err) {
- std::cout.flush();
- // Push a null here since there's no file context
- if (err->context.empty() ||
- ! dynamic_cast<xact_context *>(err->context.front()))
- err->context.push_front(new error_context(""));
- err->reveal_context(std::cerr, "Error");
- std::cerr << err->what() << std::endl;
- checked_delete(err);
- }
- catch (fatal * err) {
- std::cout.flush();
- // Push a null here since there's no file context
- if (err->context.empty() ||
- ! dynamic_cast<xact_context *>(err->context.front()))
- err->context.push_front(new error_context(""));
- err->reveal_context(std::cerr, "Fatal");
- std::cerr << err->what() << std::endl;
- checked_delete(err);
- }
-#endif
- catch (const std::exception& err) {
- std::cout.flush();
- std::cerr << "Error: " << 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.
generated by cgit v1.2.3 (git 2.39.1) at 2025-01-25 19:42:03 +0000