Changeset 3d1329c in tol

Timestamp:

Mar 3, 2009, 9:34:43 AM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

994e0b6

Parents:

f66f51f

Message:

New built-in function GetGlobalFunctions that returns all functions of a grammar

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

File:

• tol/btol/set_type/setgra.cpp (modified) (2 diffs)

tol/btol/set_type/setgra.cpp

@@ -2166 +2166 @@
 }
 
+//--------------------------------------------------------------------
+DeclareContensClass(BSet, BSetTemporary, BSetGetGlobalFunctions);
+DefExtOpr(1, BSetGetGlobalFunctions, "GetGlobalFunctions", 1, 1, "Text",
+"(Text grammar)",
+I2("Returns all global functions returning specified grammar",
+         "Devuelve todas las funciones globales que devuelven el tipo "
+   "especificado"),
+BOperClassify::System_);
+//--------------------------------------------------------------------
+void BSetGetGlobalFunctions::CalcContens()
+//--------------------------------------------------------------------
+{
+  BText& graName = Text(Arg(1));
+  BGrammar* gra = BGrammar::FindByName(graName, true);
+  if(!gra) { return; }
+  BList* oprLst = gra->GetOperators();
+  BList* codeLst = NULL;
+  BList* aux = oprLst;
+  while(oprLst)
+  {
+    BSyntaxObject* obj = (BSyntaxObject*)Car(oprLst);
+    if(obj)
+    {
+      if(obj->Mode()==BOBJECTMODE)
+      {
+        codeLst = Cons(obj, codeLst);
+      }
+      else
+      {
+        BOperator* opr = (BOperator*)obj;
+        BUserFunCode* funCode = opr->GetCode();
+        if(funCode)
+        {
+          codeLst = Cons(funCode, codeLst);
+        }
+      }
+    }
+    oprLst = Cdr(oprLst);
+  };
+  DESTROY(aux);
+  contens_.RobElement(codeLst);
+}
+
+
 #if !defined(USE_DELAY_INIT)
 
@@ -2601 +2645 @@
 
 
+