Changeset 46c93bf in tol

Timestamp:

Mar 3, 2009, 9:42:50 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

c5f245d

Parents:

545d679

Message:

User can modify description of a Struct or a Class by passing its name between quotes to PutDescription.
Fixes 604

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

File:

• tol/btol/bgrammar/spfuninst.cpp (modified) (2 diffs)

tol/btol/bgrammar/spfuninst.cpp

@@ -955 +955 @@
     BSyntaxObject* desObj = GraText    ()->EvaluateTree(Branch(tre,1));
     BGrammar::PutLast(gra);
-    BSyntaxObject* obj    = GraAnything()->LeftEvaluateTree(Branch(tre,2));
+    BText tokenName = BParser::treToken(Branch(tre,2))->Name();
+    BSyntaxObject* obj = NULL;
+    if(tokenName[0]=='\"')
+    {
+      tokenName = tokenName.SubString(1,tokenName.Length());
+      obj = FindStruct(tokenName);
+      if(!obj)
+      {
+        obj = FindClass(tokenName);
+      }
+    }
+    if(!obj)
+    {
+      obj = GraAnything()->LeftEvaluateTree(Branch(tre,2));
+    };
     BGrammar::PutLast(gra);
     if(desObj && obj)
@@ -1623 +1637 @@
   I2("(Text newDescription, Anything object)",
      "(Text nuevaDescripción, Anything objeto)"),
-  I2("Puts a new description to an object",
-     "Pone una nueva descripción a un objeto."),
+  I2("Puts a new description to an object. "
+     "You also can modify description of a Struct or a Class by "
+     "passing its name between quotes.",
+     "Pone una nueva descripción a un objeto. Es posible modificar "
+     "la descripción de un Struct o un Class pasándo el nombre de "
+     "la misma entre comillas dobles"),
   EvPutDescription);