public static P5Scalar Open(Runtime runtime, P5Array args)
{
if (args.GetCount(runtime) == 3)
return Open3Args(runtime,
args.GetItem(runtime, 0) as P5Scalar,
args.GetItem(runtime, 1).AsString(runtime),
args.GetItem(runtime, 2) as P5Scalar);
throw new System.Exception("Unhandled arg count in open");
}
public static void AddOverload(Runtime runtime, string pack_name,
P5Array args)
{
var overloads = new Overloads();
var pack = runtime.SymbolTable.GetPackage(runtime, pack_name, true);
for (int i = 0; i < args.GetCount(runtime); i += 2)
{
string key = args.GetItem(runtime, i).AsString(runtime);
var value = args.GetItem(runtime, i + 1);
overloads.AddOperation(runtime, key, value);
}
pack.SetOverloads(overloads);
}
public virtual P5List Slice(Runtime runtime, P5Array keys)
{
var res = new P5List(runtime);
var list = new List<IP5Any>(keys.GetCount(runtime));
bool found = false;
foreach (var key in keys)
{
int i = key.AsInteger(runtime);
if (i < array.Count)
found = true;
list.Add(GetItemOrUndef(runtime, key, false));
}
if (found)
res.SetArray(list);
return res;
}
public IP5Any CallMethod(Runtime runtime, Opcode.ContextValues context,
string method, P5Array args)
{
int count = args.GetCount(runtime);
var arg = new P5Scalar[count - 1];
for (int i = 1; i < count; ++i)
arg[i - 1] = args.GetItem(runtime, i) as P5Scalar;
var type = obj as System.Type;
if (type != null)
return NetGlue.CallStaticMethod(runtime, type, method, arg);
else
return NetGlue.CallMethod(runtime, obj, method, arg);
}
public static IP5Any Reverse(Runtime runtime, Opcode.ContextValues context,
P5Array args)
{
if (context == Opcode.ContextValues.LIST)
return args.Reversed(runtime);
int count = args.GetCount(runtime);
char[] value;
if (count == 0)
value = runtime.SymbolTable.GetStashScalar(runtime, "_", true).AsString(runtime).ToCharArray();
else if (count == 1)
value = args.GetItem(runtime, 0).AsString(runtime).ToCharArray();
else
{
var t = new System.Text.StringBuilder();
foreach (var i in args)
t.Append(i.AsString(runtime));
value = t.ToString().ToCharArray();
}
// TODO does not handle UCS-4
System.Array.Reverse(value);
return new P5Scalar(runtime, new string(value));
}
public static P5Exception Die(Runtime runtime, P5Array args)
{
int argc = args.GetCount(runtime);
if (argc == 1)
{
var s = args.GetItem(runtime, 0) as P5Scalar;
if (s.IsReference(runtime))
return new P5Exception(runtime, s);
}
string message;
if (argc == 0)
{
var exc = runtime.SymbolTable.GetStashScalar(runtime, "@", true);
if (exc.IsDefined(runtime))
message = exc.AsString(runtime) + "\t...propagated";
else
message = "Died";
}
else
{
var t = new System.Text.StringBuilder();
foreach (var e in args)
t.Append(e.AsString(runtime));
message = t.ToString();
}
return new P5Exception(runtime, message);
}
public P5List Slice(Runtime runtime, P5Array keys, bool create)
{
var res = new P5List(runtime, (List<IP5Any>) null);
var list = new List<IP5Any>(keys.GetCount(runtime));
foreach (var key in keys)
list.Add(GetItemOrUndef(runtime, key, create));
res.SetArray(list);
return res;
}
private static IP5Any WrapSpecializeType(Runtime runtime, Opcode.ContextValues context,
P5ScratchPad pad, P5Array args)
{
var type = Glue.UnwrapValue<System.Type>(runtime, args.GetItem(runtime, 0));
var tyargs = new System.Type[args.GetCount(runtime) - 1];
for (int i = args.GetCount(runtime) - 1; i > 0; --i)
tyargs[i - 1] = Glue.UnwrapValue<System.Type>(runtime, args.GetItem(runtime, i));
return new P5Scalar(new P5NetWrapper(type.MakeGenericType(tyargs)));
}
private static IP5Any WrapCreate(Runtime runtime, Opcode.ContextValues context,
P5ScratchPad pad, P5Array args)
{
var cls = args.GetItem(runtime, 0) as P5Scalar;
int count = args.GetCount(runtime);
var arg = new P5Scalar[count - 1];
for (int i = 1; i < count; ++i)
arg[i - 1] = args.GetItem(runtime, i) as P5Scalar;
return Glue.CallConstructor(runtime, cls, arg);
}
private static IP5Any WrapCompileAssembly(Runtime runtime, Opcode.ContextValues context,
P5ScratchPad pad, P5Array args)
{
var asm_path = args.GetItem(runtime, 0).AsString(runtime);
var generator = new Generator(runtime, asm_path);
for (int i = 1; i < args.GetCount(runtime); ++i)
{
var arg = args.GetItem(runtime, i).AsString(runtime);
string path, file;
path = Builtins.SearchFile(runtime, arg);
if (path != null)
file = arg;
else
{
file = arg.Replace("::", "/") + ".pm";
path = Builtins.SearchFile(runtime, file);
}
if (path == null)
throw new System.Exception(string.Format("File not found for '{0:S}'", arg));
var cu = Serializer.ReadCompilationUnit(runtime, path);
cu.FileName = file;
generator.Generate(cu);
}
generator.Assembly.Save(new System.IO.FileInfo(asm_path + ".dll").Name);
return new P5Scalar(runtime);
}
private static IP5Any WrapCallStatic(Runtime runtime, Opcode.ContextValues context,
P5ScratchPad pad, P5Array args)
{
var type = Glue.UnwrapValue<System.Type>(runtime, args.GetItem(runtime, 0));
var name = args.GetItem(runtime, 1).AsString(runtime);
int count = args.GetCount(runtime);
var arg = new P5Scalar[count - 2];
for (int i = 2; i < count; ++i)
arg[i - 2] = args.GetItem(runtime, i) as P5Scalar;
return Glue.CallStaticMethod(runtime, type, name, arg);
}
private static IP5Any WrapCallMethod(Runtime runtime, Opcode.ContextValues context,
P5ScratchPad pad, P5Array args)
{
var obj = args.GetItem(runtime, 0) as P5Scalar;
var name = args.GetItem(runtime, 1).AsString(runtime);
int count = args.GetCount(runtime);
var arg = new P5Scalar[count - 2];
for (int i = 2; i < count; ++i)
arg[i - 2] = args.GetItem(runtime, i) as P5Scalar;
return Glue.CallMethod(runtime, obj, name, arg);
}
public static P5Scalar Print(Runtime runtime, P5Handle handle, P5Array args)
{
// wrong but works well enough for now
for (int i = 0, m = args.GetCount(runtime); i < m; ++i)
{
handle.Write(runtime, args.GetItem(runtime, i), 0, -1);
}
return new P5Scalar(runtime, 1);
}