private CliExecutorArgumentDescriptor ExtractArgumentDescriptor(PseudoList subForm)
{
var alias = subForm.GetSingleKeywordArgument <Symbol>(":alias").Name.ToLowerInvariant();
var description = subForm.GetSingleKeywordArgument <StringAtom>(":description", true)?.Value;
var docSubstitution = subForm.GetSingleKeywordArgument <StringAtom>(":doc-subst", true)?.Value;
IList <string> values = null;
if (subForm.GetCarSymbolName().ToLowerInvariant() == "multi-text")
{
values = subForm
.GetAllKeywordArguments(":values")
.Cast <StringAtom>()
.Select(x => x.Value)
.ToList();
}
var isMandatory = subForm.GetSingleArgumentAsBool(":is-mandatory") ?? false;
var allowsMultiple = subForm.GetSingleArgumentAsBool(":allows-multiple") ?? false;
var argumentDescriptor = new CliExecutorArgumentDescriptor(
alias,
values,
isMandatory,
allowsMultiple,
description,
docSubstitution);
return(argumentDescriptor);
}
public void GetAllKeywordArguments_PseudoListIsNull_ThrowsArgumentNullException()
{
// Arrange
PseudoList pseudoList = null;
// Act
var ex = Assert.Throws <ArgumentNullException>(() => pseudoList.GetAllKeywordArguments(":key"));
// Assert
Assert.That(ex.ParamName, Is.EqualTo("shouldBePseudoList"));
}
private CliExecutorOptionDescriptor ExtractOptionDescriptor(PseudoList subForm)
{
var alias = subForm.GetSingleKeywordArgument <Symbol>(":alias").Name.ToLowerInvariant();
var options = subForm
.GetAllKeywordArguments(":values")
.Cast <StringAtom>()
.Select(x => x.Value)
.ToList();
var description = subForm.GetSingleKeywordArgument <StringAtom>(":description", true)?.Value;
var optionDescriptor = new CliExecutorOptionDescriptor(alias, options, description);
return(optionDescriptor);
}
public virtual INode CreateNode(PseudoList item)
{
if (item == null)
{
throw new ArgumentNullException(nameof(item));
}
try
{
var car = item.GetCarSymbolName();
INode node;
switch (car)
{
case "EXACT-TEXT":
node = new ExactTextNode(
item.GetSingleKeywordArgument <StringAtom>(":value").Value,
this.ParseTextClasses(item.GetAllKeywordArguments(":classes")),
_isCaseSensitive,
null,
this.NodeFamily,
item.GetItemName());
break;
case "SOME-TEXT":
node = new TextNode(
this.ParseTextClasses(item.GetAllKeywordArguments(":classes")),
null,
this.NodeFamily,
item.GetItemName());
break;
case "MULTI-TEXT":
node = new MultiTextNode(
item.GetAllKeywordArguments(":values").Cast <StringAtom>().Select(x => x.Value),
this.ParseTextClasses(item.GetAllKeywordArguments(":classes")),
_isCaseSensitive,
null,
this.NodeFamily,
item.GetItemName());
break;
case "EXACT-PUNCTUATION":
node = new ExactPunctuationNode(
item.GetSingleKeywordArgument <StringAtom>(":value").Value.Single(),
null,
this.NodeFamily,
item.GetItemName());
break;
// todo: some-number?
case "SOME-INTEGER":
node = new IntegerNode(
null,
this.NodeFamily,
item.GetItemName());
break;
case "FALLBACK":
var name = item.GetItemName();
if (name == null)
{
throw new BuildingException("Fallback node must have a name.");
}
node = new FallbackNode(
this.CreateFallbackPredicate(name),
this.NodeFamily,
name);
break;
default:
return(null);
}
return(node);
}
catch (Exception ex)
{
throw new BuildingException($"Could not build a node from item {item}.", ex);
}
}
public override INode CreateNode(PseudoList item)
{
var car = item.GetCarSymbolName().ToLowerInvariant();
if (car == "worker")
{
INode workerNode;
var workerName = item.GetSingleKeywordArgument <Symbol>(":worker-name", true)?.Name;
if (workerName == null)
{
throw new CliException("Worker name is null.");
}
else
{
workerNode = new MultiTextNode(
item
.GetAllKeywordArguments(":verbs")
.Cast <StringAtom>()
.Select(x => x.Value)
.ToList(),
new ITextClass[]
{
TermTextClass.Instance,
},
true,
WorkerAction,
this.NodeFamily,
$"Worker Node. Name: [{workerName}]");
workerNode.Properties["worker-name"] = workerName;
}
return(workerNode);
}
var node = base.CreateNode(item);
if (node is FallbackNode)
{
return(node);
}
if (!(node is ActionNode))
{
throw new CliException("ActionNode was expected to be created.");
}
var actionNode = (ActionNode)base.CreateNode(item);
if (actionNode == null)
{
throw new CliException($"Could not build node for item '{car}'.");
}
var action = item.GetSingleKeywordArgument <Symbol>(":action", true)?.Name?.ToLowerInvariant();
string alias;
switch (action)
{
case "key":
actionNode.Action = KeyAction;
alias = item.GetSingleKeywordArgument <Symbol>(":alias").Name;
actionNode.Properties["alias"] = alias;
break;
case "value":
actionNode.Action = ValueAction;
break;
case "option":
actionNode.Action = OptionAction;
break;
case "argument":
actionNode.Action = ArgumentAction;
alias = item.GetSingleKeywordArgument <Symbol>(":alias").Name;
actionNode.Properties["alias"] = alias;
break;
default:
throw new CliException($"Keyword ':action' is missing for item '{car}'.");
}
return(actionNode);
}
