public void Session_Lookup_LooksForHandlers()
{
Session session = new Session();
ExprOp checkPayeesOp = session.Lookup(SymbolKindEnum.OPTION, "check-payees");
Assert.IsNotNull(checkPayeesOp);
Assert.IsTrue(checkPayeesOp.IsFunction);
Assert.AreEqual(OpKindEnum.FUNCTION, checkPayeesOp.Kind);
Assert.IsNotNull(checkPayeesOp.AsFunction);
// Check that the function is callable
CallScope callScope = new CallScope(new EmptyScope());
callScope.PushBack(Value.Get("str"));
checkPayeesOp.AsFunction(callScope);
Assert.IsTrue(session.CheckPayeesHandler.Handled);
}
public void Session_Lookup_LooksForFunctors()
{
Session session = new Session();
ExprOp minFunc = session.Lookup(SymbolKindEnum.FUNCTION, "min");
Assert.IsNotNull(minFunc);
Assert.IsTrue(minFunc.IsFunction);
Assert.AreEqual(OpKindEnum.FUNCTION, minFunc.Kind);
Assert.IsNotNull(minFunc.AsFunction);
// Check that the function is callable
CallScope callScope = new CallScope(new EmptyScope());
callScope.PushBack(Value.Get("1"));
callScope.PushBack(Value.Get("2"));
string result = minFunc.AsFunction(callScope).AsString;
Assert.AreEqual("1", result);
}
/// <summary>
/// Ported from value_t select_command(call_scope_t& args)
/// </summary>
public static Value SelectCommand(CallScope args)
{
string text = "select " + CallScope.JoinArgs(args);
if (String.IsNullOrEmpty(text))
{
throw new LogicError(LogicError.ErrorMessageUsageSelectText);
}
Report report = args.FindScope <Report>();
// Our first step is to divide the select statement into its principal
// parts:
//
// SELECT <VALEXPR-LIST>
// FROM <NAME>
// WHERE <VALEXPR>
// DISPLAY <VALEXPR>
// COLLECT <VALEXPR>
// GROUP BY <VALEXPR>
// STYLE <NAME>
Mask selectRe = new Mask(SelectRe);
Mask fromAccountsRe = new Mask(FromAccountsRe);
bool accountsReport = fromAccountsRe.Match(text);
ExprOp reportFunctor = null;
StringBuilder formatter = new StringBuilder();
foreach (var match in selectRe.Matches(text))
{
string keyword = match.Groups[1].Value;
string arg = match.Groups[2].Value;
Logger.Current.Debug("select.parse", () => String.Format("keyword: {0}", keyword));
Logger.Current.Debug("select.parse", () => String.Format("arg: {0}", arg));
if (keyword == "select")
{
Expr argsExpr = new Expr(arg);
Value columns = ExprOp.SplitConsExpr(argsExpr.Op);
bool first = true;
string thusFar = String.Empty;
int cols = 0;
if (report.ColumnsHandler.Handled)
{
cols = Int32.Parse(report.ColumnsHandler.Value);
}
else
{
string columnsEnv = VirtualEnvironment.GetEnvironmentVariable("COLUMNS");
if (!Int32.TryParse(columnsEnv, out cols))
{
cols = VirtualConsole.WindowWidth;
if (cols == 0)
{
cols = 80;
}
}
}
int dateWidth = report.DateWidthHandler.Handled ? Int32.Parse(report.DateWidthHandler.Str()) :
Times.TimesCommon.Current.FormatDate(Times.TimesCommon.Current.CurrentDate, Times.FormatTypeEnum.FMT_PRINTED).Length;
int payeeWidth = report.PayeeWidthHandler.Handled ? Int32.Parse(report.PayeeWidthHandler.Str()) :
(int)(((double)cols) * 0.263157);
int accountWidth = report.AccountWidthHandler.Handled ? Int32.Parse(report.AccountWidthHandler.Str()) :
(int)(((double)cols) * 0.302631);
int amountWidth = report.AmountWidthHandler.Handled ? Int32.Parse(report.AmountWidthHandler.Str()) :
(int)(((double)cols) * 0.157894);
int totalWidth = report.TotalWidthHandler.Handled ? Int32.Parse(report.TotalWidthHandler.Str()) :
amountWidth;
int metaWidth = report.MetaWidthHandler.Handled ? Int32.Parse(report.MetaWidthHandler.Str()) :
10;
bool sawPayee = false;
bool sawAccount = false;
int colsNeeded = 0;
foreach (Value column in columns.AsSequence)
{
string ident = null;
if (GetPrincipalIdentifiers(Expr.AsExpr(column), ref ident))
{
if (ident == "date" || ident == "aux_date")
{
colsNeeded += dateWidth + 1;
}
else if (ident == "payee")
{
colsNeeded += payeeWidth + 1;
sawPayee = true;
}
else if (ident == "account")
{
colsNeeded += accountWidth + 1;
sawAccount = true;
}
else if (ident == "amount")
{
colsNeeded += amountWidth + 1;
}
else if (ident == "total")
{
colsNeeded += totalWidth + 1;
}
else
{
colsNeeded += metaWidth + 1;
}
}
}
while ((sawAccount || sawPayee) && colsNeeded < cols)
{
if (sawAccount && colsNeeded < cols)
{
++accountWidth;
++colsNeeded;
if (colsNeeded < cols)
{
++accountWidth;
++colsNeeded;
}
}
if (sawPayee && colsNeeded < cols)
{
++payeeWidth;
++colsNeeded;
}
}
while ((sawAccount || sawPayee) && colsNeeded > cols &&
accountWidth > 5 && payeeWidth > 5)
{
Logger.Current.Debug("auto.columns", () => "adjusting account down");
if (sawAccount && colsNeeded > cols)
{
--accountWidth;
--colsNeeded;
if (colsNeeded > cols)
{
--accountWidth;
--colsNeeded;
}
}
if (sawPayee && colsNeeded > cols)
{
--payeeWidth;
--colsNeeded;
}
Logger.Current.Debug("auto.columns", () => String.Format("account_width now = {0}", accountWidth));
}
if (!report.DateWidthHandler.Handled)
{
report.DateWidthHandler.Value = dateWidth.ToString();
}
if (!report.PayeeWidthHandler.Handled)
{
report.PayeeWidthHandler.Value = payeeWidth.ToString();
}
if (!report.AccountWidthHandler.Handled)
{
report.AccountWidthHandler.Value = accountWidth.ToString();
}
if (!report.AmountWidthHandler.Handled)
{
report.AmountWidthHandler.Value = amountWidth.ToString();
}
if (!report.TotalWidthHandler.Handled)
{
report.TotalWidthHandler.Value = totalWidth.ToString();
}
foreach (Value column in columns.AsSequence)
{
if (first)
{
first = false;
}
else
{
formatter.Append(" ");
}
formatter.Append("%(");
string ident = null;
if (GetPrincipalIdentifiers(Expr.AsExpr(column), ref ident, true))
{
if (ident == "date" || ident == "aux_date")
{
formatter.Append("ansify_if(");
formatter.Append("ansify_if(justify(format_date(");
PrintColumn(column, formatter);
formatter.Append("), int(date_width)),");
formatter.Append("green if color and date > today),");
formatter.Append("bold if should_bold)");
if (!String.IsNullOrEmpty(thusFar))
{
thusFar += " + ";
}
thusFar += "int(date_width) + 1";
}
else if (ident == "payee")
{
formatter.Append("ansify_if(");
formatter.Append("ansify_if(justify(truncated(");
PrintColumn(column, formatter);
formatter.Append(", int(payee_width)), int(payee_width)),");
formatter.Append("bold if color and !cleared and actual),");
formatter.Append("bold if should_bold)");
if (!String.IsNullOrEmpty(thusFar))
{
thusFar += " + ";
}
thusFar += "int(payee_width) + 1";
}
else if (ident == "account")
{
formatter.Append("ansify_if(");
if (accountsReport)
{
formatter.Append("ansify_if(");
formatter.Append("partial_account(options.flat), blue if color),");
}
else
{
formatter.Append("justify(truncated(");
PrintColumn(column, formatter);
formatter.Append(", int(account_width), int(abbrev_len)),");
formatter.Append("int(account_width), -1, ");
formatter.Append("false, color),");
if (!String.IsNullOrEmpty(thusFar))
{
thusFar += " + ";
}
thusFar += "int(account_width) + 1";
}
formatter.Append(" bold if should_bold)");
}
else if (ident == "amount" || ident == "total")
{
formatter.Append("ansify_if(");
formatter.Append("justify(scrub(");
PrintColumn(column, formatter);
formatter.Append("), ");
if (ident == "amount")
{
formatter.Append("int(amount_width),");
}
else
{
formatter.Append("int(total_width),");
}
if (!String.IsNullOrEmpty(thusFar))
{
thusFar += " + ";
}
if (ident == "amount")
{
thusFar += "int(amount_width)";
}
else
{
thusFar += "int(total_width)";
}
if (String.IsNullOrEmpty(thusFar))
{
formatter.Append("-1");
}
else
{
formatter.Append(thusFar);
}
formatter.Append(", true, color),");
formatter.Append(" bold if should_bold)");
thusFar += " + 1";
}
else
{
formatter.Append("ansify_if(");
formatter.Append("justify(truncated(");
PrintColumn(column, formatter);
formatter.Append(", int(meta_width or 10)), int(meta_width) or 10),");
formatter.Append("bold if should_bold)");
if (!String.IsNullOrEmpty(thusFar))
{
thusFar += " + ";
}
thusFar += "(int(meta_width) or 10) + 1";
}
}
formatter.Append(")");
}
formatter.AppendLine();
Logger.Current.Debug("select.parse", () => String.Format("formatter: {0}", formatter.ToString()));
}
else if (keyword == "from")
{
if (arg == "xacts" || arg == "txns" || arg == "transactions")
{
var reporter = new Reporter <Post, PostHandler>(new PrintXacts(report, report.RawHandler.Handled), report, "#select", report.PostsReport);
reportFunctor = ExprOp.WrapFunctor(scope => reporter.Handle((CallScope)scope));
}
else if (arg == "posts" || arg == "postings")
{
var reporter = new Reporter <Post, PostHandler>(new FormatPosts(report, formatter.ToString()), report, "#select", report.PostsReport);
reportFunctor = ExprOp.WrapFunctor(scope => reporter.Handle((CallScope)scope));
}
else if (arg == "accounts")
{
var reporter = new Reporter <Account, AccountHandler>(new FormatAccounts(report, formatter.ToString()), report, "#select", report.AccountsReport);
reportFunctor = ExprOp.WrapFunctor(scope => reporter.Handle((CallScope)scope));
}
else if (arg == "commodities")
{
var reporter = new Reporter <Post, PostHandler>(new FormatPosts(report, formatter.ToString()), report, "#select", report.CommoditiesReport);
reportFunctor = ExprOp.WrapFunctor(scope => reporter.Handle((CallScope)scope));
}
}
else if (keyword == "where")
{
report.LimitHandler.On("#select", arg);
}
else if (keyword == "display")
{
report.DisplayHandler.On("#select", arg);
}
else if (keyword == "collect")
{
report.AmountHandler.On("#select", arg);
}
else if (keyword == "group by")
{
report.GroupByHandler.On("#select", arg);
}
else if (keyword == "style")
{
if (arg == "csv")
{
}
else if (arg == "xml")
{
}
else if (arg == "json")
{
}
else if (arg == "emacs")
{
}
else if (arg == "org")
{
}
}
}
if (reportFunctor == null)
{
var reporter = new Reporter <Post, PostHandler>(new FormatPosts(report, formatter.ToString()), report, "#select", report.PostsReport);
reportFunctor = ExprOp.WrapFunctor(scope => reporter.Handle((CallScope)scope));
}
CallScope callArgs = new CallScope(report);
return(reportFunctor.AsFunction(callArgs));
}