diff options
Diffstat (limited to 'src/driver/report.cc')
| -rw-r--r-- | src/driver/report.cc | 224 |
1 files changed, 0 insertions, 224 deletions
diff --git a/src/driver/report.cc b/src/driver/report.cc deleted file mode 100644 index 0404adc7..00000000 --- a/src/driver/report.cc +++ /dev/null @@ -1,224 +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 "report.h" - -namespace ledger { - -report_t::~report_t() -{ - TRACE_DTOR(report_t); -} - -void report_t::apply_transforms(xml::xpath_t::scope_t& scope) -{ - typedef tuple<shared_ptr<transform_t>, value_t> transform_details_tuple; - - foreach (transform_details_tuple& transform_details, transforms) { - xml::xpath_t::call_scope_t call_args(scope); - call_args.set_args(transform_details.get<1>()); - (*transform_details.get<0>())(call_args); - } -} - -value_t report_t::abbrev(xml::xpath_t::call_scope_t& args) -{ - if (args.size() < 2) - throw_(std::logic_error, "usage: abbrev(STRING, WIDTH [, STYLE, ABBREV_LEN])"); - - string str = args[0].as_string(); - long wid = args[1]; - - elision_style_t style = session.elision_style; - if (args.size() == 3) - style = static_cast<elision_style_t>(args[2].as_long()); - - long abbrev_len = session.abbrev_length; - if (args.size() == 4) - abbrev_len = args[3].as_long(); - - return value_t(abbreviate(str, wid, style, true, - static_cast<int>(abbrev_len)), true); -} - -value_t report_t::ftime(xml::xpath_t::call_scope_t& args) -{ - if (args.size() < 1) - throw_(std::logic_error, "usage: ftime(DATE [, DATE_FORMAT])"); - - moment_t date = args[0].as_datetime(); - - string date_format; - if (args.size() == 2) - date_format = args[1].as_string(); -#if 0 - // jww (2007-04-18): Need to setup an output facet here - else - date_format = moment_t::output_format; - - return value_t(date.as_string(date_format), true); -#else - return NULL_VALUE; -#endif -} - -#if 0 -optional<value_t> -report_t::resolve(const string& name, xml::xpath_t::call_scope_t& args) -{ - const char * p = name.c_str(); - switch (*p) { - case 'a': - if (name == "abbrev") { - return abbrev(args); - } - break; - - case 'f': - if (name == "ftime") { - return ftime(args); - } - break; - } - return xml::xpath_t::scope_t::resolve(name, args); -} -#endif - -xml::xpath_t::ptr_op_t report_t::lookup(const string& name) -{ - const char * p = name.c_str(); - switch (*p) { - case 'o': - if (std::strncmp(p, "option_", 7) == 0) { - p = p + 7; - switch (*p) { - case 'a': -#if 0 - if (std::strcmp(p, "accounts") == 0) - return MAKE_FUNCTOR(report_t::option_accounts); - else -#endif - if (std::strcmp(p, "amount") == 0) - return MAKE_FUNCTOR(report_t::option_amount); - break; - - case 'b': - if (std::strcmp(p, "bar") == 0) - return MAKE_FUNCTOR(report_t::option_bar); - break; - -#if 0 - case 'c': - if (std::strcmp(p, "clean") == 0) - return MAKE_FUNCTOR(report_t::option_clean); - else if (std::strcmp(p, "compact") == 0) - return MAKE_FUNCTOR(report_t::option_compact); - break; -#endif - - case 'e': -#if 0 - if (std::strcmp(p, "entries") == 0) - return MAKE_FUNCTOR(report_t::option_entries); - else if (std::strcmp(p, "eval") == 0) - return MAKE_FUNCTOR(report_t::option_eval); - else if (std::strcmp(p, "exclude") == 0) - return MAKE_FUNCTOR(report_t::option_remove); -#endif - break; - - case 'f': -#if 0 - if (std::strcmp(p, "foo") == 0) - return MAKE_FUNCTOR(report_t::option_foo); - else -#endif - if (std::strcmp(p, "format") == 0) - return MAKE_FUNCTOR(report_t::option_format); - break; - - case 'i': -#if 0 - if (std::strcmp(p, "include") == 0) - return MAKE_FUNCTOR(report_t::option_select); -#endif - break; - - case 'l': -#if 0 - if (! *(p + 1) || std::strcmp(p, "limit") == 0) - return MAKE_FUNCTOR(report_t::option_limit); -#endif - break; - -#if 0 - case 'm': - if (std::strcmp(p, "merge") == 0) - return MAKE_FUNCTOR(report_t::option_merge); - break; -#endif - - case 'r': -#if 0 - if (std::strcmp(p, "remove") == 0) - return MAKE_FUNCTOR(report_t::option_remove); -#endif - break; - -#if 0 - case 's': - if (std::strcmp(p, "select") == 0) - return MAKE_FUNCTOR(report_t::option_select); - else if (std::strcmp(p, "split") == 0) - return MAKE_FUNCTOR(report_t::option_split); - break; -#endif - - case 't': - if (! *(p + 1)) - return MAKE_FUNCTOR(report_t::option_amount); - else if (std::strcmp(p, "total") == 0) - return MAKE_FUNCTOR(report_t::option_total); - break; - - case 'T': - if (! *(p + 1)) - return MAKE_FUNCTOR(report_t::option_total); - break; - } - } - break; - } - - return xml::xpath_t::symbol_scope_t::lookup(name); -} - -} // namespace ledger |