EP RScript 仍存在一些问题, 但是能够运行
This commit is contained in:
1
Convention/[FLEE]
Submodule
1
Convention/[FLEE]
Submodule
Submodule Convention/[FLEE] added at c9e2493796
76
Convention/[RScript]/Parser/ExpressionParser.cs
Normal file
76
Convention/[RScript]/Parser/ExpressionParser.cs
Normal file
@@ -0,0 +1,76 @@
|
||||
using Flee.PublicTypes;
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
|
||||
namespace Convention.RScript.Parser
|
||||
{
|
||||
public static class ExpressionExtension
|
||||
{
|
||||
public const double DefaultDoubleAccuracy = 1e-7;
|
||||
|
||||
public static bool IsClose(this double value1, double value2, double maximumAbsoluteError = DefaultDoubleAccuracy)
|
||||
{
|
||||
if (double.IsInfinity(value1) || double.IsInfinity(value2))
|
||||
{
|
||||
return Equals(value1, value2);
|
||||
}
|
||||
|
||||
if (double.IsNaN(value1) || double.IsNaN(value2))
|
||||
{
|
||||
return false;
|
||||
}
|
||||
|
||||
var delta = value1 - value2;
|
||||
return !(delta > maximumAbsoluteError || delta < -maximumAbsoluteError);
|
||||
}
|
||||
|
||||
public static bool IsCloseToZero(this double value, double maximumAbsoluteError = DefaultDoubleAccuracy)
|
||||
{
|
||||
return !(double.IsInfinity(value) || double.IsNaN(value) || value > maximumAbsoluteError || value < -maximumAbsoluteError);
|
||||
}
|
||||
}
|
||||
|
||||
public class ExpressionParser
|
||||
{
|
||||
public readonly ExpressionContext context;
|
||||
|
||||
public ExpressionParser(ExpressionContext context)
|
||||
{
|
||||
this.context = context;
|
||||
}
|
||||
|
||||
private readonly Dictionary<string, IExpression> CompileGenericExpression = new();
|
||||
private readonly Dictionary<string, IDynamicExpression> CompileDynamicExpression = new();
|
||||
|
||||
public void ClearCache()
|
||||
{
|
||||
CompileGenericExpression.Clear();
|
||||
CompileDynamicExpression.Clear();
|
||||
}
|
||||
|
||||
public T Evaluate<T>(string expression)
|
||||
{
|
||||
if (CompileGenericExpression.TryGetValue(expression, out var result))
|
||||
{
|
||||
return (result as IGenericExpression<T>).Evaluate();
|
||||
}
|
||||
var compile = context.CompileGeneric<T>(expression);
|
||||
CompileGenericExpression[expression] = compile;
|
||||
return compile.Evaluate();
|
||||
}
|
||||
|
||||
public object Evaluate(string expression)
|
||||
{
|
||||
if (CompileDynamicExpression.TryGetValue(expression, out var result))
|
||||
{
|
||||
return result.Evaluate();
|
||||
}
|
||||
var compile = context.CompileDynamic(expression);
|
||||
CompileDynamicExpression[expression] = compile;
|
||||
return compile.Evaluate();
|
||||
}
|
||||
}
|
||||
}
|
||||
11
Convention/[RScript]/PublicTypes/RScriptException.cs
Normal file
11
Convention/[RScript]/PublicTypes/RScriptException.cs
Normal file
@@ -0,0 +1,11 @@
|
||||
using System;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
[Serializable]
|
||||
public class RScriptExceptionException : Exception
|
||||
{
|
||||
public RScriptExceptionException(string message, int runtimePointer) : base($"when running {runtimePointer}, {message}") { }
|
||||
public RScriptExceptionException(string message, int runtimePointer, Exception inner) : base($"when running {runtimePointer}, {message}", inner) { }
|
||||
}
|
||||
}
|
||||
138
Convention/[RScript]/PublicTypes/RScriptImportClass.cs
Normal file
138
Convention/[RScript]/PublicTypes/RScriptImportClass.cs
Normal file
@@ -0,0 +1,138 @@
|
||||
using System;
|
||||
using System.Collections;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Reflection;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
public class RScriptImportClass : ICollection<Type>
|
||||
{
|
||||
private readonly HashSet<Type> importedTypes = new();
|
||||
private readonly Dictionary<string, List<MethodInfo>> cacheImportedFunctions = new();
|
||||
|
||||
public int Count => ((ICollection<Type>)importedTypes).Count;
|
||||
|
||||
public bool IsReadOnly => ((ICollection<Type>)importedTypes).IsReadOnly;
|
||||
|
||||
private void DoAdd(Type type)
|
||||
{
|
||||
foreach (var method in type.GetMethods(BindingFlags.Static | BindingFlags.Public))
|
||||
{
|
||||
if (cacheImportedFunctions.ContainsKey(method.Name) == false)
|
||||
cacheImportedFunctions.Add(method.Name, new());
|
||||
cacheImportedFunctions[method.Name].Add(method);
|
||||
}
|
||||
}
|
||||
|
||||
public Type[] GetImports()
|
||||
{
|
||||
return importedTypes.ToArray();
|
||||
}
|
||||
|
||||
public int CountMethod(string methodName)
|
||||
{
|
||||
return cacheImportedFunctions.TryGetValue(methodName, out var list) ? list.Count : 0;
|
||||
}
|
||||
|
||||
public MethodInfo GetMethod(string methodName)
|
||||
{
|
||||
if (cacheImportedFunctions.TryGetValue(methodName, out var list))
|
||||
{
|
||||
if (list.Count != 1)
|
||||
{
|
||||
throw new AmbiguousMatchException($"Have more than one {methodName} is imported");
|
||||
}
|
||||
return list[0];
|
||||
}
|
||||
return null;
|
||||
}
|
||||
|
||||
public MethodInfo GetMethodByReturn(string methodName, Type returnType)
|
||||
{
|
||||
if (cacheImportedFunctions.TryGetValue(methodName, out var list))
|
||||
{
|
||||
var query = from item in list where item.ReturnType == returnType select item;
|
||||
if (query.Count() != 1)
|
||||
{
|
||||
throw new AmbiguousMatchException($"Have more than one {methodName} is imported");
|
||||
}
|
||||
return query.First();
|
||||
}
|
||||
return null;
|
||||
}
|
||||
|
||||
public MethodInfo GetMethod(string methodName, params Type[] parameters)
|
||||
{
|
||||
static bool Pr(Type[] parameters1, Type[] parameters2)
|
||||
{
|
||||
if (parameters1.Length != parameters2.Length)
|
||||
return false;
|
||||
for (int i = 0, e = parameters1.Length; i != e; i++)
|
||||
{
|
||||
if (parameters1[i] != parameters2[i])
|
||||
return false;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
if (cacheImportedFunctions.TryGetValue(methodName, out var list))
|
||||
{
|
||||
var query = from item in list
|
||||
where Pr((from _param in item.GetParameters() select _param.ParameterType).ToArray(), parameters)
|
||||
select item;
|
||||
if (query.Count() != 1)
|
||||
{
|
||||
throw new AmbiguousMatchException($"Have more than one {methodName} is imported");
|
||||
}
|
||||
return query.First();
|
||||
}
|
||||
return null;
|
||||
}
|
||||
|
||||
public bool TryAdd(Type type)
|
||||
{
|
||||
var stats = importedTypes.Add(type);
|
||||
if (stats)
|
||||
{
|
||||
DoAdd(type);
|
||||
}
|
||||
return stats;
|
||||
}
|
||||
|
||||
public void Add(Type type)
|
||||
{
|
||||
TryAdd(type);
|
||||
}
|
||||
|
||||
public IEnumerator<Type> GetEnumerator()
|
||||
{
|
||||
return ((IEnumerable<Type>)importedTypes).GetEnumerator();
|
||||
}
|
||||
|
||||
IEnumerator IEnumerable.GetEnumerator()
|
||||
{
|
||||
return ((IEnumerable)importedTypes).GetEnumerator();
|
||||
}
|
||||
|
||||
public void Clear()
|
||||
{
|
||||
((ICollection<Type>)importedTypes).Clear();
|
||||
}
|
||||
|
||||
public bool Contains(Type item)
|
||||
{
|
||||
return ((ICollection<Type>)importedTypes).Contains(item);
|
||||
}
|
||||
|
||||
public void CopyTo(Type[] array, int arrayIndex)
|
||||
{
|
||||
((ICollection<Type>)importedTypes).CopyTo(array, arrayIndex);
|
||||
}
|
||||
|
||||
public bool Remove(Type item)
|
||||
{
|
||||
return ((ICollection<Type>)importedTypes).Remove(item);
|
||||
}
|
||||
}
|
||||
}
|
||||
151
Convention/[RScript]/PublicTypes/RScriptVariables.cs
Normal file
151
Convention/[RScript]/PublicTypes/RScriptVariables.cs
Normal file
@@ -0,0 +1,151 @@
|
||||
using System;
|
||||
using System.Collections;
|
||||
using System.Collections.Generic;
|
||||
using System.Diagnostics.CodeAnalysis;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
public struct RScriptVariableEntry
|
||||
{
|
||||
public Type type;
|
||||
public object data;
|
||||
}
|
||||
public class RScriptVariables : IDictionary<string, RScriptVariableEntry>
|
||||
{
|
||||
private readonly Dictionary<string, Stack<RScriptVariableEntry>> variables = new();
|
||||
|
||||
public RScriptVariableEntry this[string key]
|
||||
{
|
||||
get
|
||||
{
|
||||
return variables[key].Peek();
|
||||
}
|
||||
set
|
||||
{
|
||||
var current = variables[key].Peek();
|
||||
if (current.type != value.type)
|
||||
throw new ArgumentException($"current type is {current.type}, but setter.value is {value.type}");
|
||||
variables[key].Pop();
|
||||
variables[key].Push(value);
|
||||
}
|
||||
}
|
||||
|
||||
public ICollection<string> Keys => variables.Keys;
|
||||
|
||||
public ICollection<RScriptVariableEntry> Values => (from item in variables.Values select item.Peek()).ToArray();
|
||||
|
||||
public int Count => variables.Count;
|
||||
|
||||
public bool IsReadOnly => false;
|
||||
|
||||
public void Add(string key, RScriptVariableEntry value)
|
||||
{
|
||||
if (variables.ContainsKey(key) == false)
|
||||
variables.Add(key, new());
|
||||
variables[key].Push(value);
|
||||
}
|
||||
|
||||
public void Add(KeyValuePair<string, RScriptVariableEntry> item)
|
||||
{
|
||||
Add(item.Key, item.Value);
|
||||
}
|
||||
|
||||
public void ClearAllLayers()
|
||||
{
|
||||
variables.Clear();
|
||||
}
|
||||
|
||||
/// <summary>
|
||||
/// <see cref="ClearAllLayers"/>
|
||||
/// </summary>
|
||||
public void Clear()
|
||||
{
|
||||
ClearAllLayers();
|
||||
}
|
||||
|
||||
public bool Contains(KeyValuePair<string, RScriptVariableEntry> item)
|
||||
{
|
||||
if (variables.TryGetValue(item.Key, out var items))
|
||||
{
|
||||
var current = items.Peek();
|
||||
return current.data == item.Value.data;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
public bool ContainsKey(string key)
|
||||
{
|
||||
return variables.ContainsKey(key);
|
||||
}
|
||||
|
||||
public void CopyTo(KeyValuePair<string, RScriptVariableEntry>[] array, int arrayIndex)
|
||||
{
|
||||
foreach (var (key, items) in variables)
|
||||
{
|
||||
array[arrayIndex++] = new(key, items.Peek());
|
||||
}
|
||||
}
|
||||
|
||||
public IEnumerator<KeyValuePair<string, RScriptVariableEntry>> GetEnumerator()
|
||||
{
|
||||
return (from items in variables select new KeyValuePair<string, RScriptVariableEntry>(items.Key, items.Value.Peek())).GetEnumerator();
|
||||
}
|
||||
|
||||
public bool Remove(string key)
|
||||
{
|
||||
if (variables.TryGetValue(key, out var items))
|
||||
{
|
||||
items.Pop();
|
||||
if (items.Count == 0)
|
||||
{
|
||||
variables.Remove(key);
|
||||
}
|
||||
return true;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
public bool Remove(KeyValuePair<string, RScriptVariableEntry> item)
|
||||
{
|
||||
if (variables.TryGetValue(item.Key, out var items))
|
||||
{
|
||||
if (item.Value.data == items.Peek().data)
|
||||
{
|
||||
items.Pop();
|
||||
if (items.Count == 0)
|
||||
{
|
||||
variables.Remove(item.Key);
|
||||
}
|
||||
return true;
|
||||
}
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
public bool TryGetValue(string key, [MaybeNullWhen(false)] out RScriptVariableEntry value)
|
||||
{
|
||||
if (variables.TryGetValue(key, out var items))
|
||||
{
|
||||
value = items.Peek();
|
||||
return true;
|
||||
}
|
||||
value = default;
|
||||
return false;
|
||||
}
|
||||
|
||||
IEnumerator IEnumerable.GetEnumerator()
|
||||
{
|
||||
return GetEnumerator();
|
||||
}
|
||||
|
||||
public void SetValue(string varName, object value)
|
||||
{
|
||||
var top = variables[varName].Pop();
|
||||
top.data = value;
|
||||
variables[varName].Push(top);
|
||||
}
|
||||
}
|
||||
}
|
||||
310
Convention/[RScript]/RScriptContext.cs
Normal file
310
Convention/[RScript]/RScriptContext.cs
Normal file
@@ -0,0 +1,310 @@
|
||||
using Convention.RScript.Parser;
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Text.RegularExpressions;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
public struct RScriptSentence
|
||||
{
|
||||
public enum Mode
|
||||
{
|
||||
/// <summary>
|
||||
/// 表达式, 格式: 任意合法表达式
|
||||
/// </summary>
|
||||
Expression,
|
||||
/// <summary>
|
||||
/// 定义变量, 格式: 类型 变量名
|
||||
/// <para>类型支持: string, int, double, float, bool, var</para>
|
||||
/// <para>每层命名空间中不可重复定义变量, 不可使用未定义的变量, 不存在时会自动向上查找上级空间的变量</para>
|
||||
/// </summary>
|
||||
DefineVariable,
|
||||
/// <summary>
|
||||
/// 进入新的命名空间, 格式: {
|
||||
/// <para>命名空间是一对花括号包裹内容空间, 格式: {...}</para>
|
||||
/// </summary>
|
||||
EnterNamespace,
|
||||
/// <summary>
|
||||
/// 退出当前命名空间, 格式: }
|
||||
/// <para>命名空间是一对花括号包裹内容空间, 格式: {...}</para>
|
||||
/// </summary>
|
||||
ExitNamespace,
|
||||
/// <summary>
|
||||
/// 标签, 格式: label: 标签名
|
||||
/// </summary>
|
||||
Label,
|
||||
/// <summary>
|
||||
/// 跳转到指定标签, 格式: goto 标签名
|
||||
/// </summary>
|
||||
Goto,
|
||||
/// <summary>
|
||||
/// 条件判断, 格式: if (条件表达式)
|
||||
/// </summary>
|
||||
If
|
||||
}
|
||||
|
||||
public string content;
|
||||
public Mode mode;
|
||||
}
|
||||
|
||||
public partial class RScriptContext
|
||||
{
|
||||
public readonly RScriptImportClass Import;
|
||||
public readonly RScriptVariables Variables;
|
||||
private readonly RScriptSentence[] Sentences;
|
||||
private readonly Dictionary<string, int> Labels;
|
||||
private readonly Dictionary<int, int> Namespace;
|
||||
|
||||
private static RScriptSentence ParseToSentence(string expression)
|
||||
{
|
||||
RScriptSentence result = new()
|
||||
{
|
||||
content = expression,
|
||||
mode = RScriptSentence.Mode.Expression
|
||||
};
|
||||
expression = expression.Trim();
|
||||
expression.TrimEnd(';');
|
||||
if (expression == "{")
|
||||
{
|
||||
result.mode = RScriptSentence.Mode.EnterNamespace;
|
||||
}
|
||||
else if (expression == "}")
|
||||
{
|
||||
result.mode = RScriptSentence.Mode.ExitNamespace;
|
||||
}
|
||||
|
||||
Regex DefineVariableRegex = new(@"^(string|int|double|float|bool|var) [a-zA-Z_][a-zA-Z0-9_]*$");
|
||||
var DefineVariableMatch = DefineVariableRegex.Match(expression);
|
||||
if (DefineVariableMatch.Success)
|
||||
{
|
||||
result.mode = RScriptSentence.Mode.DefineVariable;
|
||||
return result;
|
||||
}
|
||||
|
||||
Regex LabelRegex = new(@"^label:\s*([a-zA-Z_][a-zA-Z0-9_]*)$");
|
||||
var LabelMatch = LabelRegex.Match(expression);
|
||||
if (LabelMatch.Success)
|
||||
{
|
||||
result.mode = RScriptSentence.Mode.Label;
|
||||
result.content = LabelMatch.Groups[1].Value;
|
||||
return result;
|
||||
}
|
||||
|
||||
Regex GotoRegex = new(@"^goto\s+([a-zA-Z_][a-zA-Z0-9_]*)$");
|
||||
var GotoMatch = GotoRegex.Match(expression);
|
||||
if (GotoMatch.Success)
|
||||
{
|
||||
result.mode = RScriptSentence.Mode.Goto;
|
||||
result.content = GotoMatch.Groups[1].Value;
|
||||
return result;
|
||||
}
|
||||
|
||||
Regex IfRegex = new(@"^if\s*\((.*)\)$");
|
||||
var IfMatch = IfRegex.Match(expression);
|
||||
if (IfMatch.Success)
|
||||
{
|
||||
result.mode = RScriptSentence.Mode.If;
|
||||
result.content = IfMatch.Groups[1].Value;
|
||||
return result;
|
||||
}
|
||||
|
||||
return result;
|
||||
}
|
||||
private void BuildUpLabelsAndNamespace(ref Dictionary<string, int> labelIndicator, ref Dictionary<int, int> namespaceIndicator)
|
||||
{
|
||||
Stack<int> namespaceLayers = new();
|
||||
for (int i = 0, e = Sentences.Length; i != e; i++)
|
||||
{
|
||||
if (Sentences[i].mode == RScriptSentence.Mode.Label)
|
||||
{
|
||||
labelIndicator[Sentences[i].content] = i;
|
||||
}
|
||||
else if (Sentences[i].mode == RScriptSentence.Mode.EnterNamespace)
|
||||
{
|
||||
namespaceLayers.Push(i);
|
||||
}
|
||||
else if (Sentences[i].mode == RScriptSentence.Mode.ExitNamespace)
|
||||
{
|
||||
if (namespaceLayers.Count == 0)
|
||||
throw new RScriptExceptionException("Namespace exit without enter.", i);
|
||||
var enterPointer = namespaceLayers.Pop();
|
||||
namespaceIndicator[enterPointer] = i;
|
||||
}
|
||||
}
|
||||
if (namespaceLayers.Count > 0)
|
||||
{
|
||||
throw new RScriptExceptionException("Namespace enter without exit.", namespaceLayers.Peek());
|
||||
}
|
||||
}
|
||||
|
||||
public RScriptContext(string[] expressions, RScriptImportClass import = null, RScriptVariables variables = null)
|
||||
{
|
||||
this.Import = import ?? new();
|
||||
this.Variables = variables ?? new();
|
||||
this.Sentences = (from item in expressions select ParseToSentence(item)).ToArray();
|
||||
this.Labels = new();
|
||||
this.Namespace = new();
|
||||
BuildUpLabelsAndNamespace(ref this.Labels, ref this.Namespace);
|
||||
}
|
||||
|
||||
|
||||
public RScriptSentence CurrentSentence => Sentences[CurrentRuntimePointer];
|
||||
|
||||
private void RunNextStep(ExpressionParser parser)
|
||||
{
|
||||
var sentence = CurrentSentence;
|
||||
switch (sentence.mode)
|
||||
{
|
||||
case RScriptSentence.Mode.Expression:
|
||||
{
|
||||
// 执行表达式
|
||||
parser.Evaluate(sentence.content);
|
||||
}
|
||||
break;
|
||||
case RScriptSentence.Mode.DefineVariable:
|
||||
{
|
||||
// 定义变量
|
||||
var content = sentence.content.Split(' ');
|
||||
Type varType;
|
||||
object varDefaultValue;
|
||||
{
|
||||
if (content[0] == "string")
|
||||
{
|
||||
varType = typeof(string);
|
||||
varDefaultValue = string.Empty;
|
||||
}
|
||||
else if (content[0] == "int")
|
||||
{
|
||||
varType = typeof(int);
|
||||
varDefaultValue = 0;
|
||||
}
|
||||
else if (content[0] == "double")
|
||||
{
|
||||
varType = typeof(double);
|
||||
varDefaultValue = 0.0;
|
||||
}
|
||||
else if (content[0] == "float")
|
||||
{
|
||||
varType = typeof(float);
|
||||
varDefaultValue = 0.0f;
|
||||
}
|
||||
else if (content[0] == "bool")
|
||||
{
|
||||
varType = typeof(bool);
|
||||
varDefaultValue = false;
|
||||
}
|
||||
else if (content[0] == "var")
|
||||
{
|
||||
varType = typeof(object);
|
||||
varDefaultValue = null;
|
||||
}
|
||||
else
|
||||
{
|
||||
throw new RScriptExceptionException($"Unsupported variable type '{content[0]}'.", CurrentRuntimePointer);
|
||||
}
|
||||
}
|
||||
var varName = content[1];
|
||||
if (CurrentLocalSpaceVariableNames.Contains(varName) == false)
|
||||
{
|
||||
Variables.Add(varName, new() { type = varType, data = varDefaultValue });
|
||||
parser.context.Variables[varName] = varDefaultValue;
|
||||
CurrentLocalSpaceVariableNames.Add(varName);
|
||||
}
|
||||
else
|
||||
{
|
||||
throw new RScriptExceptionException($"Variable '{varName}' already defined on this namespace.", CurrentRuntimePointer);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case RScriptSentence.Mode.EnterNamespace:
|
||||
{
|
||||
// 准备记录当前命名空间中定义的变量, 清空上层命名空间的变量
|
||||
CurrentLocalSpaceVariableNames.Clear();
|
||||
// 更新变量值
|
||||
foreach (var (varName, varValue) in parser.context.Variables)
|
||||
{
|
||||
Variables.SetValue(varName, varValue);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case RScriptSentence.Mode.ExitNamespace:
|
||||
{
|
||||
// 移除在本命名空间中定义的变量
|
||||
foreach (var local in CurrentLocalSpaceVariableNames)
|
||||
{
|
||||
Variables.Remove(local);
|
||||
parser.context.Variables.Remove(local);
|
||||
}
|
||||
CurrentLocalSpaceVariableNames.Clear();
|
||||
// 还原上层命名空间的变量
|
||||
foreach (var local in Variables.Keys)
|
||||
{
|
||||
CurrentLocalSpaceVariableNames.Add(local);
|
||||
parser.context.Variables[local] = Variables[local].data;
|
||||
}
|
||||
}
|
||||
break;
|
||||
case RScriptSentence.Mode.Goto:
|
||||
{
|
||||
// 跳转到指定标签
|
||||
if (Labels.TryGetValue(sentence.content, out var labelPointer))
|
||||
{
|
||||
CurrentRuntimePointer = labelPointer;
|
||||
}
|
||||
else
|
||||
{
|
||||
throw new RScriptExceptionException($"Label '{sentence.content}' not found.", CurrentRuntimePointer);
|
||||
}
|
||||
}
|
||||
break;
|
||||
case RScriptSentence.Mode.If:
|
||||
{
|
||||
// 条件跳转
|
||||
var conditionResult = parser.Evaluate(sentence.content);
|
||||
if (conditionResult is bool b)
|
||||
{
|
||||
if (b == false)
|
||||
{
|
||||
if (Namespace.TryGetValue(CurrentRuntimePointer + 1, out var exitPointer) == false)
|
||||
{
|
||||
// 没有命名空间时只跳过下一句, +1后在外层循环末尾再+1, 最终结果为下一次循环开始时已经指向第二句
|
||||
exitPointer = CurrentRuntimePointer + 1;
|
||||
}
|
||||
CurrentRuntimePointer = exitPointer;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
throw new RScriptExceptionException($"If condition must be bool, but got {conditionResult?.GetType().ToString() ?? "null"}.", CurrentRuntimePointer);
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
// Do nothing
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
private readonly Stack<int> RuntimePointerStack = new();
|
||||
private int CurrentRuntimePointer = 0;
|
||||
private readonly HashSet<string> CurrentLocalSpaceVariableNames = new();
|
||||
|
||||
public Dictionary<string, RScriptVariableEntry> Run(ExpressionParser parser)
|
||||
{
|
||||
CurrentLocalSpaceVariableNames.Clear();
|
||||
RuntimePointerStack.Clear();
|
||||
for (CurrentRuntimePointer = 0; CurrentRuntimePointer < Sentences.Length; CurrentRuntimePointer++)
|
||||
{
|
||||
RunNextStep(parser);
|
||||
}
|
||||
// 更新上下文变量
|
||||
foreach (var (varName, varValue) in parser.context.Variables)
|
||||
{
|
||||
if (Variables.ContainsKey(varName))
|
||||
Variables.SetValue(varName, varValue);
|
||||
}
|
||||
return Variables.ToDictionary();
|
||||
}
|
||||
}
|
||||
}
|
||||
43
Convention/[RScript]/RScriptEngine.cs
Normal file
43
Convention/[RScript]/RScriptEngine.cs
Normal file
@@ -0,0 +1,43 @@
|
||||
using Convention.RScript.Parser;
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
public class RScriptEngine
|
||||
{
|
||||
private ExpressionParser parser;
|
||||
private RScriptContext context;
|
||||
|
||||
public Dictionary<string, RScriptVariableEntry> Run(string script, RScriptImportClass import = null, RScriptVariables variables = null)
|
||||
{
|
||||
parser = new(new());
|
||||
string newScript = "";
|
||||
foreach (var item in script.Split('\n'))
|
||||
{
|
||||
var line = item.Trim();
|
||||
if (string.IsNullOrEmpty(line))
|
||||
continue;
|
||||
if (line.StartsWith("//"))
|
||||
continue;
|
||||
if (line.StartsWith('#'))
|
||||
continue;
|
||||
newScript += line + ";"; // 添加分号分隔符
|
||||
}
|
||||
|
||||
// 按分号分割并过滤空语句
|
||||
var statements = newScript.Split(';', StringSplitOptions.RemoveEmptyEntries)
|
||||
.Select(s => s.Trim())
|
||||
.Where(s => !string.IsNullOrEmpty(s))
|
||||
.ToArray();
|
||||
|
||||
context = new(statements, import, variables);
|
||||
foreach (var type in context.Import)
|
||||
parser.context.Imports.AddType(type);
|
||||
return context.Run(parser);
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -1,325 +0,0 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Diagnostics.CodeAnalysis;
|
||||
using System.Linq;
|
||||
using System.Reflection;
|
||||
using System.Text.RegularExpressions;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
public partial class ScriptContent
|
||||
{
|
||||
public object RuntimeBindingTarget;
|
||||
|
||||
public struct RuntimeContext
|
||||
{
|
||||
public int iterator;
|
||||
public bool isResetIterator;
|
||||
|
||||
public static RuntimeContext Create()
|
||||
{
|
||||
return new RuntimeContext()
|
||||
{
|
||||
iterator = 0,
|
||||
isResetIterator = false
|
||||
};
|
||||
}
|
||||
|
||||
public RuntimeContext Clone()
|
||||
{
|
||||
return new()
|
||||
{
|
||||
iterator = iterator,
|
||||
isResetIterator = isResetIterator
|
||||
};
|
||||
}
|
||||
}
|
||||
|
||||
public class ScriptDataEntry
|
||||
{
|
||||
public string text;
|
||||
|
||||
public string command;
|
||||
public string[] parameters;
|
||||
public int iterator;
|
||||
|
||||
public Func<RuntimeContext, RuntimeContext> actor;
|
||||
}
|
||||
|
||||
private List<ScriptDataEntry> Commands = new();
|
||||
|
||||
// 预处理工具
|
||||
|
||||
public static int LastIndexOfNextTerminalTail(string text, int i, string terminal)
|
||||
{
|
||||
return text.IndexOf(terminal, i) + terminal.Length - 1;
|
||||
}
|
||||
|
||||
public static bool StartWithSpecialTerminal(string text,int i)
|
||||
{
|
||||
switch (text[i])
|
||||
{
|
||||
case '{':
|
||||
case '}':
|
||||
return true;
|
||||
default:
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
public const string SingleLineTerminal = "//";
|
||||
public const string MultiLineBeginTerminal = "/*";
|
||||
public const string MultiLineEndTerminal = "*/";
|
||||
public const string TextTerminal = "\"";
|
||||
|
||||
public static bool StartWithSingleLineTerminal(string text, int i)
|
||||
{
|
||||
int length = SingleLineTerminal.Length;
|
||||
if (text.Length - i < length)
|
||||
return false;
|
||||
return string.Compare(text, i, SingleLineTerminal, 0, length) == 0;
|
||||
}
|
||||
|
||||
public static bool StartWithMultiLineTerminal(string text, int i)
|
||||
{
|
||||
int length = MultiLineBeginTerminal.Length;
|
||||
if (text.Length - i < length)
|
||||
return false;
|
||||
return string.Compare(text, i, MultiLineBeginTerminal, 0, length) == 0;
|
||||
}
|
||||
|
||||
public static bool StartWithTextTerminal(string text, int i)
|
||||
{
|
||||
int length = TextTerminal.Length;
|
||||
if (text.Length - i < length)
|
||||
return false;
|
||||
return string.Compare(text, i, TextTerminal, 0, length) == 0;
|
||||
}
|
||||
|
||||
public static int LastIndexOfNextTextTerminalTail(string text, int i,out string buffer)
|
||||
{
|
||||
char terminal = TextTerminal[0];
|
||||
int __head = i + 1;
|
||||
buffer = "";
|
||||
for (int __tail = text.Length; __head < __tail && text[__head] != terminal;)
|
||||
{
|
||||
if (text[__head] == '\\')
|
||||
{
|
||||
switch (text[__head+1])
|
||||
{
|
||||
case 'n':
|
||||
{
|
||||
buffer += '\n';
|
||||
}
|
||||
break;
|
||||
case 't':
|
||||
{
|
||||
buffer += '\t';
|
||||
}
|
||||
break;
|
||||
case 'r':
|
||||
{
|
||||
buffer += '\r';
|
||||
}
|
||||
break;
|
||||
case '0':
|
||||
{
|
||||
buffer += '\0';
|
||||
}
|
||||
break;
|
||||
default:
|
||||
{
|
||||
buffer += text[__head + 1];
|
||||
}
|
||||
break;
|
||||
}
|
||||
__head += 2;
|
||||
}
|
||||
else
|
||||
{
|
||||
buffer += text[__head];
|
||||
__head++;
|
||||
}
|
||||
}
|
||||
return __head;
|
||||
}
|
||||
|
||||
// 文本预处理
|
||||
private void ScriptTextPreprocessing(string script)
|
||||
{
|
||||
string buffer = "";
|
||||
void PushBuffer()
|
||||
{
|
||||
if (string.IsNullOrEmpty(buffer) == false)
|
||||
{
|
||||
Commands.Add(new()
|
||||
{
|
||||
text = buffer.Trim(),
|
||||
iterator = Commands.Count
|
||||
});
|
||||
}
|
||||
buffer = "";
|
||||
}
|
||||
Func<int, bool> loopPr = x => x < script.Length;
|
||||
for (int i = 0; loopPr(i); i++)
|
||||
{
|
||||
// 切断语句\
|
||||
if (script[i] == ';')
|
||||
{
|
||||
PushBuffer();
|
||||
}
|
||||
// 读入特殊标记符
|
||||
else if (StartWithSpecialTerminal(script, i))
|
||||
{
|
||||
PushBuffer();
|
||||
buffer += script[i];
|
||||
PushBuffer();
|
||||
}
|
||||
// 跳过单行注释
|
||||
else if (StartWithSingleLineTerminal(script, i))
|
||||
{
|
||||
i = LastIndexOfNextTerminalTail(script, i, "\n");
|
||||
}
|
||||
// 跳过多行注释
|
||||
else if (StartWithMultiLineTerminal(script, i))
|
||||
{
|
||||
i = LastIndexOfNextTerminalTail(script, i, MultiLineEndTerminal);
|
||||
}
|
||||
// 读入文本
|
||||
else if (StartWithTextTerminal(script, i))
|
||||
{
|
||||
i = LastIndexOfNextTextTerminalTail(script, i, out var temp);
|
||||
buffer += temp;
|
||||
}
|
||||
// 读入
|
||||
else if (loopPr(i))
|
||||
buffer += script[i];
|
||||
}
|
||||
// 存在未完成的语句
|
||||
if (string.IsNullOrEmpty(buffer) == false)
|
||||
throw new ArgumentException("The script did not end with the correct terminator.");
|
||||
}
|
||||
|
||||
// 指令预处理工具
|
||||
|
||||
private Dictionary<int, ScriptDataEntry> CommandIndexs = new();
|
||||
private Dictionary<string, int> LabelIndexs = new();
|
||||
|
||||
public const string GotoTerminal = "goto";
|
||||
public const string LabelTerminal = "label";
|
||||
public const string IfTerminal = "if";
|
||||
|
||||
// 指令预处理
|
||||
private void CommandPreprocessing()
|
||||
{
|
||||
static GroupCollection Match(ScriptDataEntry entry, [StringSyntax(StringSyntaxAttribute.Regex)] string pattern)
|
||||
{
|
||||
Match match = Regex.Match(entry.text, pattern);
|
||||
if (!match.Success)
|
||||
throw new ArgumentException($"Script: \"{entry.text}\"<command iterator: {entry.iterator}> is invalid statement");
|
||||
return match.Groups;
|
||||
}
|
||||
|
||||
// 加入自由映射
|
||||
foreach (var entry in Commands)
|
||||
{
|
||||
CommandIndexs.Add(entry.iterator, entry);
|
||||
}
|
||||
// 匹配
|
||||
foreach (var entry in Commands)
|
||||
{
|
||||
if (
|
||||
// goto label-name;
|
||||
entry.text.StartsWith(GotoTerminal)||
|
||||
// label label-name;
|
||||
entry.text.StartsWith(LabelTerminal)
|
||||
)
|
||||
{
|
||||
var groups = Match(entry, @"^(\S*)\s+([^\s]+?)\s*;$");
|
||||
entry.command = groups[1].Value;
|
||||
entry.parameters = new string[] { groups[2].Value };
|
||||
// touch label
|
||||
if (entry.command == LabelTerminal)
|
||||
{
|
||||
LabelIndexs.Add(groups[2].Value, entry.iterator);
|
||||
}
|
||||
}
|
||||
else if (
|
||||
// if(expr)
|
||||
entry.text.StartsWith(IfTerminal)
|
||||
)
|
||||
{
|
||||
var groups = Match(entry, @"^(\S*)\s*(.*?)$");
|
||||
entry.command = groups[1].Value;
|
||||
entry.parameters = new string[] { groups[2].Value };
|
||||
}
|
||||
else
|
||||
{
|
||||
var groups = Match(entry, @"^(\w+)\s*\(\s*(.*?)\s*\)\s*;$");
|
||||
entry.command = groups[1].Value;
|
||||
|
||||
static string[] ParseArguments(string argumentsString)
|
||||
{
|
||||
if (string.IsNullOrWhiteSpace(argumentsString))
|
||||
return new string[0];
|
||||
|
||||
// 处理字符串字面量和普通参数的正则表达式
|
||||
string argPattern = @"""(?:[^""\\]|\\.)*""|[^,]+";
|
||||
|
||||
return Regex.Matches(argumentsString, argPattern)
|
||||
.Cast<Match>()
|
||||
.Select(m => m.Value.Trim())
|
||||
.Where(arg => !string.IsNullOrEmpty(arg))
|
||||
.ToArray();
|
||||
}
|
||||
|
||||
entry.parameters = ParseArguments(groups[2].Value);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// 指令转化
|
||||
|
||||
private void LoopForTC2AC()
|
||||
{
|
||||
Dictionary<string, MethodInfo> cache = (from method in RuntimeBindingTarget.GetType().GetMethods()
|
||||
select new KeyValuePair<string, MethodInfo>(method.Name, method)).ToDictionary();
|
||||
|
||||
for (int index = 0, e = Commands.Count; index < e; index++)
|
||||
{
|
||||
var entry = Commands[index];
|
||||
// Keywords
|
||||
if (entry.command == GotoTerminal)
|
||||
{
|
||||
entry.actor = context =>
|
||||
{
|
||||
var next = context.Clone();
|
||||
next.iterator = LabelIndexs[entry.parameters[0]];
|
||||
next.isResetIterator = true;
|
||||
return next;
|
||||
};
|
||||
}
|
||||
// Custom Binding
|
||||
else if(cache.TryGetValue(entry.command,out var methodInfo))
|
||||
{
|
||||
entry.actor = context =>
|
||||
{
|
||||
|
||||
return context.Clone();
|
||||
};
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
public void LoadScript(string script)
|
||||
{
|
||||
ScriptTextPreprocessing(script);
|
||||
CommandPreprocessing();
|
||||
LoopForTC2AC();
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -1,29 +0,0 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
|
||||
namespace Convention.RScript
|
||||
{
|
||||
public class ScriptRunner
|
||||
{
|
||||
public ScriptContent BuildNewContent(object target)
|
||||
{
|
||||
return new()
|
||||
{
|
||||
RuntimeBindingTarget = target,
|
||||
};
|
||||
}
|
||||
|
||||
public ScriptContent BuildNewContent()
|
||||
{
|
||||
return BuildNewContent(null);
|
||||
}
|
||||
|
||||
public void RunScriptFromContent(ScriptContent content)
|
||||
{
|
||||
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -66,7 +66,7 @@ namespace Convention
|
||||
public static T ConvertValue<T>(string str)
|
||||
{
|
||||
Type type = typeof(T);
|
||||
var parse_method = type.GetMethod("Parse");
|
||||
var parse_method = type.GetMethod("Parse", BindingFlags.Static | BindingFlags.Public, null, new Type[] { typeof(string) }, null);
|
||||
if (parse_method != null &&
|
||||
(parse_method.ReturnType.IsSubclassOf(type) || parse_method.ReturnType == type) &&
|
||||
parse_method.GetParameters().Length == 1 &&
|
||||
|
||||
Reference in New Issue
Block a user