Changeset ee804c2 in tol

Timestamp:

Aug 3, 2010, 8:54:28 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

f9c366f

Parents:

110d3c5

Message:

Refs #956
Using direct protocol of built-in functions instead of macros to avoid duplications of contents

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

File:

• tol/LoadDynLib/LoadDynLib.cpp (modified) (2 diffs)

tol/LoadDynLib/LoadDynLib.cpp

@@ -34 +34 @@
 
 //--------------------------------------------------------------------
-DeclareContensClass(BNameBlock, BNameBlockTemporary, BLoadDynLib);
-DefExtOpr(1, BLoadDynLib, "LoadDynLib", 1, 1, "Set",
- "(Text libraryPath)",
- I2("Returns a NameBlock that contains methods and members written "
+class BLoadDynLib: public BExternalOperator
+{
+public:
+  BLoadDynLib() : BExternalOperator
+  (
+    "LoadDynLib",GraNameBlkock(),"Text", NIL,1,1,
+    "(Text libraryPath)",
+    I2("Returns a NameBlock that contains methods and members written "
     "in C + + in a precompiled library for dynamic linking. Once "
     "loaded Nameblock is nothing particular and can be used like "
@@ -46 +50 @@
     "particular y puede ser usado como cualquier otro objeto creado "
     "con el lenguaje TOL. Vea más detalles en ")+"\n"
- "https://www.tol-project.org/wiki/LoadDynLib",
- BOperClassify::System_);
+    "https://www.tol-project.org/wiki/LoadDynLib",
+    BOperClassify::System_
+  )
+  { IncNRefs(); }
+  BSyntaxObject* Evaluator(BList* argTrees) const;
+};
+
 //--------------------------------------------------------------------
-void BLoadDynLib::CalcContens()
+BSyntaxObject* BLoadDynLib::Evaluator(BList* arg) const
 //--------------------------------------------------------------------
 {
-  BText& libraryPath = Text(Arg(1));
+  if(CheckNonDeclarativeAction("LoadDynLib")) { return(NULL); }
+  BText& libraryPath = Text(Car(arg));
   BText libraryName = GetFilePrefix(libraryPath);  
+  BUserNameBlock* unb = NULL;
+  //VBR: Jorge, inserta aquí el código que enlaza con la dll y pon
+  //el resultado en unb para devolverlo
+
+  //Al final hay que destruir la lista de argumentos antes de salir
+  DESTROY(arg);
+  return(unb);
 }