Changeset a4b4fb8 in tol

Timestamp:

Sep 11, 2009, 2:47:03 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

3005000

Parents:

a5e46b1

Message:

Methods can access to the elements of the owner of its class

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

File:

• tol/btol/bgrammar/oprimp.cpp (modified) (3 diffs)

tol/btol/bgrammar/oprimp.cpp

@@ -843 +843 @@
   List* dec = carIsList?Tree::treNode((List*) argList):(List*)argList;
 /*
-  BText unparsed = BParser::Unparse(dec,"");
-  if(unparsed=="BysMcmc::McmcReloaderDefault aux")
-  {
-    trace_counter++;
-    if(trace_counter==5)
-      printf("");
-    Std(BText("\nTRACE count(BysMcmc::McmcReloaderDefault aux)=")+trace_counter);
-  }
+  if(BParser::Unparse(dec,"")=="Point P")
+    printf("");
 */
   BGrammar* gra = GetLeft(Grammar(), dec, name, rest, str, cls);
@@ -951 +945 @@
                                 Tree::treNode((List*) argList),
                           name, rest, str, cls);
-//Std(Out()+"\nCreating operator <"+ name + ">\n"+Unparse(argList));
   if(rest && gra)
   {
@@ -1636 +1629 @@
       BClass::currentStatic_ = staticOwner_;
     }
+    if(!funNameBlock && BClass::currentStatic_ &&
+       BClass::currentStatic_->NameBlock())
+    {
+      funNameBlock = BClass::currentStatic_->NameBlock();
+      BNameBlock::SetCurrent(funNameBlock);
+    }
     result = Grammar()->EvaluateTree(definition_, 1);
     BClass::currentStatic_ = oldStaticOwner;