Changeset 7e2783d in tol

Timestamp:

Feb 4, 2009, 9:22:26 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

7c62e8b

Parents:

5278fc8

Message:

New member owner_ and related methods to get access to current syntax object that owns the NameBlock

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@584 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol/btol/bgrammar

Files:

• nameblock.cpp (modified) (9 diffs)
• tol_bnameblock.h (modified) (3 diffs)

tol/btol/bgrammar/nameblock.cpp

@@ -30 +30 @@
 #include <tol/tol_bdatgra.h>
 #include <tol/tol_btxtgra.h>
-
 
 #include <tol/tol_list.h>
@@ -91 +90 @@
   level_    (-999999999),
   father_   (current_),
-  localName_()
+  localName_(),
+  owner_    (NULL)
 {
   SetEmptyKey(public_ ,NULL);
@@ -109 +109 @@
   level_    (-999999999),
   father_   (current_),
-  localName_(localName)
+  localName_(localName),
+  owner_    (NULL)
 {
   SetEmptyKey(public_ ,NULL);
@@ -125 +126 @@
   set_      (ns.Set     ()),
   father_   (ns.Father  ()),
-  localName_(ns.LocalName())
+  localName_(ns.LocalName()),
+  owner_    (NULL)
 {
   short isAssigned = BObject::IsAssigned();
@@ -144 +146 @@
 {
   PutName(ns.Name());
+  owner_     = NULL;
   set_       = ns.Set();
   father_    = ns.Father();
@@ -153 +156 @@
   return(*this);
 }
+
+//--------------------------------------------------------------------
+BUserNameBlock* BNameBlock::Owner() const 
+//--------------------------------------------------------------------
+{ 
+  return(owner_); 
+}
+
+//--------------------------------------------------------------------
+void BNameBlock::PutOwner(BUserNameBlock* owner) 
+//--------------------------------------------------------------------
+{ 
+  owner_ = owner; 
+}
+
+//--------------------------------------------------------------------
+const BText& BNameBlock::Name() const
+//--------------------------------------------------------------------
+{
+  return(BObject::Name());
+}
+
+//--------------------------------------------------------------------
+const BText& BNameBlock::LocalName() const 
+//--------------------------------------------------------------------
+{ 
+  return(localName_); 
+};
 
 //--------------------------------------------------------------------
@@ -565 +596 @@
     }
   }
+  for(iter=private_.begin(); iter!=private_.end(); iter++)
+  {
+    obj = iter->second;
+    if((obj->Name()[2]=='.')&&
+       (oc.mode_==BUSERFUNMODE) && 
+       (obj->Mode()==BOBJECTMODE) && 
+       (obj->Grammar()==GraCode()))
+    {
+      BUserCode* uc = (BUserCode*)obj;
+      obj = uc->Contens().Operator();
+    }
+    bool match = (obj->Grammar()==oc.grammar_) && (obj->Mode()==oc.mode_);
+    if(match)
+    {
+    //Std(BText("\n")+"  "+GetModeName(obj->Mode())+" "+obj->Grammar()->Name()+" "+obj->Name()+" matches? "+int(match));
+      lst = Cons(obj,lst);
+    }
+  }
   return(lst);
 }
@@ -580 +629 @@
     obj = iter->second;
     if((obj->Grammar()==GraNameBlock()) && (obj->Mode()==BOBJECTMODE))
+    {
+      BUserNameBlock* unb = (BUserNameBlock*)obj;
+      lst = unb->Contens().SelectMembersDeep(lst, oc);
+    }
+  }
+  for(iter=private_.begin(); iter!=private_.end(); iter++)
+  {
+    obj = iter->second;
+    if((obj->Name()[2]=='.')&&
+       (obj->Grammar()==GraNameBlock()) && (obj->Mode()==BOBJECTMODE))
     {
       BUserNameBlock* unb = (BUserNameBlock*)obj;
@@ -607 +666 @@
   PutName(parentFullName);
   for(iter=public_.begin(); iter!=public_.end(); iter++)
+  {
+    obj = iter->second;
+    if((obj->Grammar()==GraNameBlock()) && (obj->Mode()==BOBJECTMODE))
+    {
+      unb = (BUserNameBlock*)obj;
+      unb->Contens().RebuildFullNameDeep(parentFullName);
+    }
+  }
+  for(iter=private_.begin(); iter!=private_.end(); iter++)
   {
     obj = iter->second;

tol/btol/bgrammar/tol_bnameblock.h

@@ -37 +37 @@
 // forward references
 //--------------------------------------------------------------------
-class BUserNameBlock;
+template<class Any> class BGraContensBase;
 
 //--------------------------------------------------------------------
@@ -57 +57 @@
   BText localName_;
   bool createdWithNew_;
+  BGraContensBase<BNameBlock>* owner_;
 public:
   static bool Initialize();
@@ -81 +82 @@
 
   int Level() const;
-  const BText& LocalName() const { return(localName_); };
+  BGraContensBase<BNameBlock>* Owner() const;
+  void PutOwner(BGraContensBase<BNameBlock>* owner);
+  const BText& Name() const;
+  const BText& LocalName() const;
   void PutLocalName(const BText& localName) { localName_ = localName; };
   const BObjByNameHash& Public () const { return(public_ ); }