Exemple #1
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var         inparg   = args.Get("input");
            var         callback = args.Get("callback").AsFunc();
            Environment env      = environment.NewEnv();

            if (inparg is ValueInput)
            {
                ValueInput input = inparg.AsInput();
                return(new ValueInt(input.Process(line => {
                    Args args_ = new Args(callback.GetArgNames()[0], new ValueString(line), pos);
                    return callback.Execute(args_, env, pos);
                })));
            }
            if (inparg is ValueList)
            {
                var list = inparg.AsList().GetValue();
                foreach (var element in list)
                {
                    Args args_ = new Args(callback.GetArgNames()[0], element.AsString(), pos);
                    callback.Execute(args_, env, pos);
                }
                ;
                return(new ValueInt(list.Count));
            }
            throw new ControlErrorException(new ValueString("ERROR"), "Cannot process lines from " + inparg, pos);
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var a = args.Get("a");
            var b = args.Get("b");

            return(ValueBoolean.From(a.CompareTo(b) < 0));
        }
Exemple #3
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var a = args.GetInt("a").GetValue();
            var b = args.GetInt("b").GetValue();

            return(new ValueInt((a & b) & 4294967295L));
        }
Exemple #4
0
 public NodeDeref(Node expression, Node index, Node defaultValue, SourcePos pos)
 {
     this.expression   = expression;
     this.index        = index;
     this.defaultValue = defaultValue;
     this.pos          = pos;
 }
Exemple #5
0
 public NodeDef(string identifier, Node expression, string info, SourcePos pos)
 {
     this.identifier = identifier;
     this.expression = expression;
     this.info       = info;
     this.pos        = pos;
 }
Exemple #6
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var arg = args.Get("obj");

            if (arg.IsString())
            {
                return(new ValueInt(arg.AsString().GetValue().Length));
            }
            if (arg.IsList())
            {
                return(new ValueInt(arg.AsList().GetValue().Count));
            }
            if (arg.IsSet())
            {
                return(new ValueInt(arg.AsSet().GetValue().Count));
            }
            if (arg.IsMap())
            {
                return(new ValueInt(arg.AsMap().GetValue().Count));
            }
            if (arg.IsObject())
            {
                return(new ValueInt(arg.AsObject().value.Count));
            }
            throw new ControlErrorException(new ValueString("ERROR"), "Cannot determine length of " + arg, pos);
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var filename = args.GetString("filename").GetValue();
            var encoding = args.GetString("encoding", "UTF-8").GetValue();

            return(new ValueInput(new StreamReader(filename, encoding == "UTF-8" ? Encoding.UTF8 : Encoding.GetEncoding(encoding))));
        }
Exemple #8
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var dir       = args.GetString("dir").GetValue();
            var recursive = false;

            if (args.HasArg("recursive"))
            {
                recursive = args.GetBoolean("recursive").GetValue();
            }
            var include_path = recursive;

            if (args.HasArg("include_path"))
            {
                include_path = args.GetBoolean("include_path").GetValue();
            }
            var include_dirs = false;

            if (args.HasArg("include_dirs"))
            {
                include_dirs = args.GetBoolean("include_dirs").GetValue();
            }
            var result = new ValueList();

            CollectFiles(dir, recursive, include_path, include_dirs, result);
            return(result);
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var env    = environment.NewEnv();
            var lst    = args.GetAsList("lst");
            var cmp    = args.HasArg("cmp") ? args.GetFunc("cmp") : environment.Get("compare", pos).AsFunc();
            var key    = args.HasArg("key") ? args.GetFunc("key") : environment.Get("identity", pos).AsFunc();
            var result = new List <Value>();

            result.AddRange(lst.GetValue());
            for (var i = 1; i < result.Count; i++)
            {
                var v = key.Execute(new Args(key.GetArgNames()[0], result[i], pos), env, pos);
                for (var j = i - 1; j >= 0; j--)
                {
                    var v2         = key.Execute(new Args(key.GetArgNames()[0], result[j], pos), env, pos);
                    var cmpargs    = new Args(cmp.GetArgNames()[0], cmp.GetArgNames()[1], v, v2, pos);
                    var comparison = (int)cmp.Execute(cmpargs, env, pos).AsInt().GetValue();
                    if (comparison < 0)
                    {
                        var temp = result[j + 1];
                        result[j + 1] = result[j];
                        result[j]     = temp;
                    }
                    else
                    {
                        break;
                    }
                }
            }
            return(new ValueList(result));
        }
Exemple #10
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var seed = (int)args.GetInt("n").GetValue();

            FuncRandom.random = new Random(seed);
            return(new ValueInt(seed));
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var a = args.Get("a");
            var b = args.Get("b");

            return(new ValueInt(a.CompareTo(b)));
        }
Exemple #12
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var result = new ValueList();

            if (!args.HasArg("module"))
            {
                foreach (var symbol in environment.GetSymbols())
                {
                    result.AddItem(new ValueString(symbol));
                }
            }
            else
            {
                var moduleArg = args.Get("module");
                Dictionary <string, Value> module;
                if (moduleArg.IsString())
                {
                    module = environment.Get(moduleArg.AsString().GetValue(), pos).AsObject().value;
                }
                else
                {
                    module = args.Get("module").AsObject().value;
                }
                foreach (var symbol in module.Keys)
                {
                    result.AddItem(new ValueString(symbol));
                }
            }
            return(result);
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var lst = args.Get("lst");

            if (!lst.IsList())
            {
                throw new ControlErrorException(new ValueString("ERROR"), "Cannot insert into object of type " + lst.Type(), pos);
            }

            var index = (int)args.GetInt("index").GetValue();

            if (index < 0)
            {
                index = lst.AsList().GetValue().Count + index + 1;
            }
            var value = args.Get("value");

            var list = lst.AsList().GetValue();

            if (index < 0 || index > list.Count)
            {
                return(lst);
            }
            if (index == list.Count)
            {
                list.Add(value);
            }
            else
            {
                list.Insert(index, value);
            }
            return(lst);
        }
Exemple #14
0
 public NodeDerefAssign(Node expression, Node index, Node value, SourcePos pos)
 {
     this.expression = expression;
     this.index      = index;
     this.value      = value;
     this.pos        = pos;
 }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var filename = args.GetString("filename").GetValue();

            if (File.Exists(filename))
            {
                var result = new ValueObject();
                var info   = new FileInfo(filename);
                result.AddItem("size", new ValueInt(info.Length));
                result.AddItem("is_dir", ValueBoolean.FALSE);
                result.AddItem("modified", new ValueDate(info.LastWriteTime));
                result.AddItem("created", new ValueDate(info.CreationTime));
                return(result);
            }

            if (Directory.Exists(filename))
            {
                var result = new ValueObject();
                var info   = new DirectoryInfo(filename);
                result.AddItem("is_dir", ValueBoolean.TRUE);
                result.AddItem("modified", new ValueDate(info.LastWriteTime));
                result.AddItem("created", new ValueDate(info.CreationTime));
                return(result);
            }

            return(ValueNull.NULL);
        }
 public NodeDefDestructuring(List <string> identifiers, Node expression, string info, SourcePos pos)
 {
     this.identifiers.AddRange(identifiers);
     this.expression = expression;
     this.info       = info;
     this.pos        = pos;
 }
 public NodeListComprehension(Node valueExpr, string identifier, Node listExpr, SourcePos pos)
 {
     this.valueExpr  = valueExpr;
     this.identifier = identifier;
     this.listExpr   = listExpr;
     this.pos        = pos;
 }
 public NodeDerefSlice(Node expression, Node start, Node end, SourcePos pos)
 {
     this.expression = expression;
     this.start      = start;
     this.end        = end;
     this.pos        = pos;
 }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var lst     = args.Get("lst");
            var element = args.Get("element");

            try
            {
                if (lst.IsList())
                {
                    lst.AsList().GetValue().Add(element);
                    return(lst);
                }

                if (lst.IsSet())
                {
                    lst.AsSet().GetValue().Add(element);
                    return(lst);
                }
            }
            catch
            {
                // handled below
            }

            throw new ControlErrorException(new ValueString("ERROR"), "Cannot append to " + lst, pos);
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var a = args.GetInt("a").GetValue();
            var n = (int)args.GetInt("n").GetValue() % 32;

            return(new ValueInt((a >> n) & 4294967295L));
        }
Exemple #21
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var a = args.Get("a");
            var b = args.Get("b");

            if (a.IsNull() || b.IsNull())
            {
                return(ValueNull.NULL);
            }

            if (a.IsList() && b.IsList())
            {
                var lista  = a.AsList().GetValue();
                var listb  = b.AsList().GetValue();
                var result = new ValueMap();
                for (var i = 0; i < Math.Min(lista.Count, listb.Count); i++)
                {
                    result.AddItem(lista[i], listb[i]);
                }

                return(result);
            }

            throw new ControlErrorException(new ValueString("ERROR"), "Cannot zip_map " + a + " and " + b, pos);
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            if (args.IsNull("str"))
            {
                return(ValueNull.NULL);
            }
            var value = args.GetString("str").GetValue();
            var start = (int)args.GetInt("startidx").GetValue();

            if (start < 0)
            {
                start = value.Length + start;
            }
            if (start > value.Length)
            {
                return(new ValueString(""));
            }
            var end = (int)args.GetInt("endidx", value.Length).GetValue();

            if (end < 0)
            {
                end = value.Length + end;
            }
            if (end > value.Length)
            {
                end = value.Length;
            }
            return(new ValueString(value.Substring(start, end - start)));
        }
Exemple #23
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var a = args.Get("a");
            var b = args.Get("b");

            return(ValueBoolean.From(!a.IsEquals(b)));
        }
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            if (args.IsNull("lst"))
            {
                return(ValueNull.NULL);
            }
            var value = args.GetList("lst").GetValue();
            var start = (int)args.GetInt("startidx").GetValue();

            if (start < 0)
            {
                start = value.Count + start;
            }
            if (start > value.Count)
            {
                return(new ValueList());
            }
            var end = (int)args.GetInt("endidx", value.Count).GetValue();

            if (end < 0)
            {
                end = value.Count + end;
            }
            if (end > value.Count)
            {
                end = value.Count;
            }
            var result = new ValueList();

            for (var i = start; i < end; i++)
            {
                result.AddItem(value[i]);
            }
            return(result);
        }
Exemple #25
0
        public override Value Execute(Args args, Environment environment, SourcePos pos)
        {
            var m = args.GetMap("m");

            m.GetValue()[args.Get("key")] = args.Get("value");
            return(m);
        }
 public NodeRequire(Node modulespec, string name, bool unqualified, Dictionary <string, string> symbols, SourcePos pos)
 {
     this.modulespec  = modulespec;
     this.name        = name;
     this.unqualified = unqualified;
     this.symbols     = symbols;
     this.pos         = pos;
 }
Exemple #27
0
 public override Value Execute(Args args, Environment environment, SourcePos pos)
 {
     if (args.IsNull("x"))
     {
         return(ValueNull.NULL);
     }
     return(new ValueDecimal((decimal)Math.Sqrt((double)args.GetNumerical("x").GetValue())));
 }
Exemple #28
0
 public override Value Execute(Args args, Environment environment, SourcePos pos)
 {
     if (args.IsNull("n"))
     {
         return(ValueNull.NULL);
     }
     return(new ValueString(char.ConvertFromUtf32((int)args.GetInt("n").GetValue()).ToString()));
 }
Exemple #29
0
 public override Value Execute(Args args, Environment environment, SourcePos pos)
 {
     if (args.IsNull("ch"))
     {
         return(ValueNull.NULL);
     }
     return(new ValueInt(char.ConvertToUtf32(args.GetString("ch").GetValue(), 0)));
 }
Exemple #30
0
 public override Value Execute(Args args, Environment environment, SourcePos pos)
 {
     if (args.IsNull("str"))
     {
         return(ValueBoolean.FALSE);
     }
     return(ValueBoolean.From(args.GetString("str").GetValue().Contains(args.GetString("part").GetValue())));
 }