Changeset 7d06d2f in tol

Timestamp:

Jun 12, 2009, 7:46:32 AM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

13bb6e7

Parents:

510f3f8

Message:

New function GetAddressFromObject and GetObjectFromAddress
Related #695

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

Location:

tol/btol

Files:

• bgrammar/spfuninst.cpp (modified) (2 diffs)
• bgrammar/syn.cpp (modified) (1 diff)
• bgrammar/tol_bsyntax.h (modified) (1 diff)
• text_type/txtgra.cpp (modified) (1 diff)

tol/btol/bgrammar/spfuninst.cpp

@@ -1150 +1150 @@
 }
 
+//--------------------------------------------------------------------
+static BSyntaxObject* EvGetObjectFromAddress(
+  BGrammar* gra, const List* tre, BBool left)
+
+/*! Evaluate TOLPath expressions
+ */
+//--------------------------------------------------------------------
+{
+  static BText _name_ = "GetObjectFromAddress";
+  BSyntaxObject* result = NIL;
+  BInt nb = NumBranches(tre);
+  BUserText* uTxt=NULL;
+  if(TestNumArg(_name_, 1, nb, 1))
+  {
+    uTxt = (BUserText*)GraText()->EvaluateTree(Branch(tre,1));
+    BGrammar::PutLast(gra);
+    if(uTxt)
+    {
+      BText& address = Text(uTxt);
+      if(address.HasName())
+      {
+        result = BSyntaxObject::GetObjectFromAddress(address);
+      }
+    }
+  }
+  SAFE_DESTROY(uTxt,result);
+  result=TestResult(_name_,result,tre,NIL,BTRUE);
+  return(result);
+}
 
 //--------------------------------------------------------------------
@@ -1965 +1994 @@
   EvTOLPath);
 
+  AddLeftInstance("GetObjectFromAddress",
+  I2("(Text path)",
+     "(Text camino)"),
+  I2("Returns the TOL object specified by its internal address obtained by "
+     "mean of calling GetAddressFromObject.",
+     "Devuelve el objeto TOL especificado por su dirección interna que se "
+     "obtiene llamando a la función GetAddressFromObject."),
+  EvGetObjectFromAddress);
 
   AddLeftInstance("Dating",

tol/btol/bgrammar/syn.cpp

@@ -453 +453 @@
   }
 }
+
+//--------------------------------------------------------------------
+union BIntPointerMask
+//--------------------------------------------------------------------
+{
+  BIntPair                    pair_;
+  const BSyntaxObject*        obj_;
+  const BGrammar*             gra_;
+  const BFixedSizeMemoryBase* mhn_;
+};
+
+
+//--------------------------------------------------------------------
+  BSyntaxObject* BSyntaxObject::GetObjectFromAddress(const BText& address)
+//--------------------------------------------------------------------
+{
+  const BSyntaxObject* obj = NULL;
+  BIntPointerMask objMask, graMask, mhnMask;
+  int mode;
+  int size;
+  int pageNum;
+  sscanf(address.String(), "%X:%X:%X:%X:%X:%X:%X:%X:%X",
+    &objMask.pair_.r_,
+    &objMask.pair_.c_,
+    &graMask.pair_.r_,
+    &graMask.pair_.c_,
+    &mhnMask.pair_.r_,
+    &mhnMask.pair_.c_,
+    &mode,
+    &size,
+    &pageNum);
+  if( objMask.obj_ &&
+     (objMask.obj_->Grammar() == graMask.gra_) &&
+     (objMask.obj_->Mode() == mode) &&
+     (sizeof(objMask.obj_) == size) &&
+     (objMask.obj_->GetPageNum() == pageNum)&&
+     (objMask.obj_->GetMemHandler() == mhnMask.mhn_)&&
+     (objMask.obj_->IsAssigned()!=0))
+  {
+    obj = objMask.obj_;
+  }
+  return((BSyntaxObject*)obj);
+}
+
+//--------------------------------------------------------------------
+  BText BSyntaxObject::GetAddressFromObject() const
+//--------------------------------------------------------------------
+{
+  static char address[7*32];
+  BIntPointerMask objMask, graMask, mhnMask;
+  objMask.pair_.r_ = 0;
+  objMask.pair_.c_ = 0;
+  graMask.pair_.r_ = 0;
+  graMask.pair_.c_ = 0;
+  mhnMask.pair_.r_ = 0;
+  mhnMask.pair_.c_ = 0;
+  objMask.obj_ = this;
+  graMask.gra_ = Grammar();
+  mhnMask.mhn_ = GetMemHandler();
+  int mode = Mode();
+  int size = sizeof(this);
+  int pageNum = GetPageNum();
+  sprintf(address, "%X:%X:%X:%X:%X:%X:%X:%X:%X",
+    objMask.pair_.r_,
+    objMask.pair_.c_,
+    graMask.pair_.r_,
+    graMask.pair_.c_,
+    mhnMask.pair_.r_,
+    mhnMask.pair_.c_,
+    mode,
+    size,
+    pageNum);
+  return(BText(address));
+}

tol/btol/bgrammar/tol_bsyntax.h

@@ -319 +319 @@
   #endif
 
+  static BSyntaxObject* GetObjectFromAddress(const BText& address);
+  BText GetAddressFromObject() const;
 
 #ifndef FOR_BTOLLNK

tol/btol/text_type/txtgra.cpp

@@ -1035 +1035 @@
 {
   contens_ = Arg(1)->TolPath();
+}
+
+//--------------------------------------------------------------------
+DeclareContensClass(BText, BTxtTemporary, BTxtGetAddressFromObject);
+DefExtOpr(1, BTxtGetAddressFromObject, "GetAddressFromObject",   1, 1, "Anything",
+          "(Anything var)",
+          I2("Returns a unique string address for a TOL variable that can "
+       "be used after to recover the object with GetObjectFromAddress "
+       "if it is still alive.",
+             "Devuelve una cadena de dirección única para una variable TOL "
+       "que puede ser utilizada posterormente para recuperar el objeto "
+       "con GetObjectFromAddress si aún existe."),
+          BOperClassify::General_);
+
+//--------------------------------------------------------------------
+void BTxtGetAddressFromObject::CalcContens()
+//--------------------------------------------------------------------
+{
+  contens_ = Arg(1)->GetAddressFromObject();
 }