コード例 #1
0
ファイル: DafnyProvider.cs プロジェクト: omaragb/tlp182
        public StateNode(int i, DafnyModel parent, Model.CapturedState s)
            : base(s, parent)
        {
            dm    = parent;
            state = s;
            index = i;

            skolems = new List <VariableNode>(SkolemVars());
            SetupVars();
        }
コード例 #2
0
ファイル: DafnyProvider.cs プロジェクト: Chenguang-Zhu/ICE-C5
 public ILanguageSpecificModel GetLanguageSpecificModel(Model m, ViewOptions opts)
 {
   var dm = new DafnyModel(m, opts);
   foreach (var s in m.States) {
     var sn = new StateNode(dm.states.Count, dm, s);
     dm.states.Add(sn);
   }
   dm.FinishStates();
   return dm;
 }
コード例 #3
0
ファイル: DafnyProvider.cs プロジェクト: omaragb/tlp182
        public ILanguageSpecificModel GetLanguageSpecificModel(Model m, ViewOptions opts)
        {
            var dm = new DafnyModel(m, opts);

            foreach (var s in m.States)
            {
                var sn = new StateNode(dm.states.Count, dm, s);
                dm.states.Add(sn);
            }
            dm.FinishStates();
            return(dm);
        }
コード例 #4
0
ファイル: DafnyProvider.cs プロジェクト: omaragb/tlp182
            public FieldName(Model.Element elt, DafnyModel dm)
            {
                Field    = elt;
                NameArgs = new Model.Element[Dims];
                var tpl = dm.f_dim.AppWithArg(0, elt);

                if (tpl != null)
                {
                    Dims     = tpl.Result.AsInt();
                    NameArgs = new Model.Element[Dims];
                    for (int i = Dims; 0 <= --i;)
                    {
                        if (i == 0)
                        {
                            tpl         = dm.f_index_field.AppWithResult(elt);
                            NameArgs[i] = tpl.Args[0];
                        }
                        else
                        {
                            tpl         = dm.f_multi_index_field.AppWithResult(elt);
                            NameArgs[i] = tpl.Args[1];
                            elt         = tpl.Args[0];
                        }
                    }
                }
                // now for the name
                if (Dims == 0)
                {
                    NameFormat = Field.ToString();
                    foreach (var n in Field.Names)
                    {
                        NameFormat = n.Func.Name;
                        int dot = NameFormat.LastIndexOf('.');
                        if (0 <= dot)
                        {
                            NameFormat = NameFormat.Substring(dot + 1);
                        }
                        break;
                    }
                }
                else
                {
                    NameFormat = "[";
                    string sep = "";
                    for (int i = 0; i < Dims; i++)
                    {
                        NameFormat += sep + "%" + i;
                        sep         = ",";
                    }
                    NameFormat += "]";
                }
            }
コード例 #5
0
ファイル: DafnyProvider.cs プロジェクト: Chenguang-Zhu/ICE-C5
    public StateNode(int i, DafnyModel parent, Model.CapturedState s)
       : base(s, parent)
    {
      dm = parent;
      state = s;
      index = i;

      skolems = new List<VariableNode>(SkolemVars());
      SetupVars();
    }
コード例 #6
0
ファイル: DafnyProvider.cs プロジェクト: Chenguang-Zhu/ICE-C5
 public FieldName(Model.Element elt, DafnyModel dm) {
   Field = elt;
   NameArgs = new Model.Element[Dims];
   var tpl = dm.f_dim.AppWithArg(0, elt);
   if (tpl != null) {
     Dims = tpl.Result.AsInt();
     NameArgs = new Model.Element[Dims];
     for (int i = Dims; 0 <= --i; ) {
       if (i == 0) {
         tpl = dm.f_index_field.AppWithResult(elt);
         NameArgs[i] = tpl.Args[0];
       } else {
         tpl = dm.f_multi_index_field.AppWithResult(elt);
         NameArgs[i] = tpl.Args[1];
         elt = tpl.Args[0];
       }
     }
   }
   // now for the name
   if (Dims == 0) {
     NameFormat = Field.ToString();
     foreach (var n in Field.Names) {
       NameFormat = n.Func.Name;
       int dot = NameFormat.LastIndexOf('.');
       if (0 <= dot)
         NameFormat = NameFormat.Substring(dot + 1);
       break;
     }
   } else {
     NameFormat = "[";
     string sep = "";
     for (int i = 0; i < Dims; i++) {
       NameFormat += sep + "%" + i;
       sep = ",";
     }
     NameFormat += "]";
   }
 }