コード例 #1
0
        //public void SetValueToVector(Phrase path, string unit, object value)
        //{
        //    string vector_name = ((Word)(path.Value[0])).LValue;
        //    Phrase inner_node = path.Value[2];
        //    Vector parent_vector = (Vector)this.GVT.Vars[unit].Find(v => v.Name == vector_name);

        //    //SLT.Scalar updated_scalar = (Scalar)this.ParentModel.GVT.Vars[unit].Find(o => o.Name == name);

        //    SLT.Object updated_obj = parent_vector.FindNode(inner_node);//Scalar or Link
        //    updated_obj.SetValue(value);
        //}

//GET
        public SLT.Object GetObjectByID(int id)
        {
            //SLT.Link finded_link = (Link)this.ParentModel.GVT.Vars[unit].Find(o => o.Name == name);
            SLT.Object result = this.Memory.GetObjectByID(id);

            return(result);
        }
コード例 #2
0
        void Rewrite_Initiators()
        {
            InitiatorsTable IT = this.Model.O_Cont.IT;

            this.Output.Initiators.Rows.Clear();
            foreach (Initiator init in IT.Initiators)
            {
                int number = init.Number;

                string name;
                string value;
                string type = "";

                SLT.Object obj = this.Model.O_Cont.GetObjectFromInitiator(init);
                name = obj.Name;
                object value_obj = obj.GetValue();
                try
                {
                    value_obj = Convert.ToDouble(value_obj);
                    value_obj = Math.Round((double)value_obj, this.Precision);
                }
                catch { }

                value = Convert.ToString(value_obj);
                switch (obj.Type)
                {
                case SLT.ObjectType.Scalar:
                    type = "Скаляр";
                    break;

                case SLT.ObjectType.Link:
                    type = "Ссылка";
                    break;

                case SLT.ObjectType.Vector:
                    type = "Вектор";
                    break;

                case SLT.ObjectType.Macro:
                    type = "Макрос";
                    break;
                }
                if (obj.Type == SLT.ObjectType.Vector)
                {
                    value = ((SLT.Vector)obj).GetTree();
                }
                this.Output.Initiators.Rows.Add(number, name, value, type);
                if (obj.Type == SLT.ObjectType.Vector)
                {
                    SLT.Vector        Vec          = (SLT.Vector)obj;
                    SLT.Vector        SubVector    = (SLT.Vector)Vec;
                    List <SLT.Object> vector_value = (List <SLT.Object>)(SubVector.GetValue());
                    Write_Vector_to_DataTable(this.Output.Initiators, vector_value);
                }
            }
        }
コード例 #3
0
 public void AddToUnit(Object obj, string unit_name)
 {
     SLT.Object finded = this.Vars[unit_name].Find(o => (o.Name == obj.Name));
     if (finded != null)
     {
         finded.SetValue(obj.GetValue());
     }
     else
     {
         this.Vars[unit_name].Add(obj);
     }
 }
コード例 #4
0
ファイル: Memory.cs プロジェクト: LatsynNiK/SLT-project
 public Object AddSingletonObject(Object o)
 {
     SLT.Object finded = this.Cells.Find(c => ((c.Name == o.Name) && (c.Unit == o.Unit)));
     if (finded != null)
     {
         finded.SetValue(o.GetValue());
         return(finded);
     }
     o.ID = this.ID_Object_Counter;
     this.Cells.Add(o);
     this.ID_Object_Counter++;
     return(o);
 }
コード例 #5
0
        int ExecuteAction(Action action)
        {
            string unit_name = action.ParentOperator.ParentSubprogram.Unit.Name;
            string label;
            string unit;
            bool   islast;

            switch (action.Name)
            {
            case ActionName.Assign:
                Phrase     var_ph = (Phrase)action.Parameters[0];
                SLT.Object var    = this.GetObject(var_ph);

                Phrase value_ph = (Phrase)action.Parameters[1];
                object value_obj;    // = ConvertValueToObject(value_ph);
                if (value_ph.PhType == PhraseType.Initiator_Word)
                {
                    //пассивизация инициатора
                    value_obj = GetObjectFromLink(value_ph).ID;
                }
                else
                {
                    value_obj = ConvertValueToObject(value_ph);
                }
                var.SetValue(value_obj);
                break;

            case ActionName.Create:
                string var_name   = (string)action.Parameters[0];
                Phrase vartype_ph = (Phrase)action.Parameters[1];

                SLT.Object new_obj = new SLT.Scalar("", "");    //заглушка

                //для скаляра
                if (vartype_ph.Value.Exists(ph => ph.PhType == PhraseType.ScalarVarType_Word))
                {
                    new_obj = new SLT.Scalar(var_name, unit_name);
                }
                //для вектора
                if (vartype_ph.Value.Exists(ph => ph.PhType == PhraseType.VectorVarType_Word))
                {
                    Phrase description_line_ph = vartype_ph.Value.Find(ph => ph.PhType == PhraseType.DescriptionLine);
                    new_obj = new SLT.Vector(var_name, unit_name, this.ParentModel.Analyzer.CreateObjectsFromDesciptionLine(description_line_ph, this.INITIATOR.NextOperator.ParentSubprogram.Unit.Name));
                }
                //для ссылки
                if (vartype_ph.Value.Exists(ph => ph.PhType == PhraseType.LinkVarType_Word))
                {
                    new_obj = new SLT.Link(var_name, unit_name);
                }
                //для макроса
                if (vartype_ph.Value.Exists(ph => ph.PhType == PhraseType.MacroVarType_Word))
                {
                }
                //this.ParentModel.O_Cont.CreateObject(new_obj,this.INITIATOR.NextOperator.ParentSubprogram SUBPROGRAM.Unit.Name);
                this.ParentModel.O_Cont.CreateObject(new_obj, this.INITIATOR.NextOperator.ParentSubprogram.Unit.Name);

                //list.Add(new_obj);
                break;

            case ActionName.Delete:
                string deleted_name = Convert.ToString(action.Parameters[0]);
                if (deleted_name == "True")
                {
                    int deleted_id = this.INITIATOR.ID_of_MemoryCell;
                    this.ParentModel.O_Cont.IT.Delete(deleted_id);
                }
                else
                {
                    //Objects.Object del_obj= this.ParentModel.O_Cont.GetObjectByName(deleted_name,this.SUBPROGRAM.Unit.Name);
                    SLT.Object del_obj = this.ParentModel.O_Cont.GetObjectByName(deleted_name, this.INITIATOR.NextOperator.ParentSubprogram.Unit.Name);
                    //if (del_obj.Unit == this.SUBPROGRAM.Unit.Name)
                    if (del_obj.Unit == this.INITIATOR.NextOperator.ParentSubprogram.Unit.Name)
                    {
                        this.ParentModel.O_Cont.DeleteObjectByID(del_obj.ID);
                    }
                }
                break;

            case ActionName.Terminate:
                string terminated_name = Convert.ToString(action.Parameters[0]);
                int    terminated_id   = this.INITIATOR.ID_of_MemoryCell;
                this.ParentModel.O_Cont.DeleteInitiatorByID(terminated_id);
                break;

            case ActionName.Write_to_CT:
                Phrase condition;
                if (typeof(bool) == action.Parameters[0].GetType())
                {
                    if ((bool)action.Parameters[0])
                    {
                        condition = new Phrase(PhraseType.True);
                    }
                    else
                    {
                        condition = new Phrase(PhraseType.False);
                    }
                }
                else
                {
                    condition = (Phrase)action.Parameters[0];
                }
                string link_name       = Convert.ToString(action.Parameters[1]);
                bool   to_the_begining = (bool)action.Parameters[2];
                label  = (string)action.Parameters[3];
                unit   = (string)action.Parameters[4];
                islast = (bool)action.Parameters[5];

                Initiator  init;
                Subprogram subp;
                try
                {
                    subp = this.ParentModel.ST_Cont.FindSubprogramByLabelAndUnit(label, unit);
                }
                catch (RunTimeError e)
                {
                    throw new RunTimeError(e);
                }

                if (link_name == "True")
                {
                    init = this.INITIATOR;
                }
                else
                {
                    //init = this.ParentModel.O_Cont.ActivateFromLink(link_name, this.SUBPROGRAM.Unit.Name);
                    init = this.ParentModel.O_Cont.ActivateFromLink(link_name, this.INITIATOR.NextOperator.ParentSubprogram.Unit.Name);
                }
                //init.NextOperator = subp;
                init.NextOperator = subp.Operators[0];

                if (to_the_begining)
                {
                    this.TC_Cont.InsertConditionRecord(condition, init, subp, islast);
                }
                else
                {
                    this.TC_Cont.AddConditionRecord(condition, init, subp, islast);
                }
                break;

            case ActionName.Write_to_FTT:
                Phrase time_exp = (Phrase)action.Parameters[0];
                double time     = Convert.ToDouble(this.ComputeArithmeticExpression(time_exp));
                label  = (string)action.Parameters[3];
                unit   = (string)action.Parameters[4];
                islast = (bool)action.Parameters[5];

                init = this.INITIATOR;
                subp = this.ParentModel.ST_Cont.FindSubprogramByLabelAndUnit(label, unit);
                this.TC_Cont.AddTimeRecord(time, init, subp, islast);
                break;
            }
            return(1);
        }