Changeset aebb9ee in tol

Timestamp:

Aug 13, 2010, 11:09:38 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

e3ade54

Parents:

20f76bc

Message:

New builtNew built-in functions GetHardSoftPlattform and GetSharedLibExt

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

File:

• tol/btol/text_type/txtgra.cpp (modified) (1 diff)

tol/btol/text_type/txtgra.cpp

@@ -385 +385 @@
   contens_=I2(Text(Arg(1)),Text(Arg(2)));
 }
+
+//--------------------------------------------------------------------
+DeclareContensClass(BText, BTxtTemporary, BTxtGetHardSoftPlattform);
+DefExtOpr(1, BTxtGetHardSoftPlattform, "GetHardSoftPlattform", 1, 1,
+          "Real","(Real unused)",
+          I2("Returns the identifier of the platform where TOL is running.",
+             "Devuelve el identificador de la platforma sobre la que "
+       "está funcionando TOL."),
+          BOperClassify::Text_);
+//--------------------------------------------------------------------
+void BTxtGetHardSoftPlattform::CalcContens()
+//--------------------------------------------------------------------
+{
+  //"Windows-x86_32"
+  //"Linux-x86_32"
+  #ifdef UNIX
+  contens_= "Linux-x86_32";
+  #else
+  contens_= "Windows-x86_32";
+  #endif
+}
+
+//--------------------------------------------------------------------
+DeclareContensClass(BText, BTxtTemporary, BTxtGetSharedLibExt);
+DefExtOpr(1, BTxtGetSharedLibExt, "GetSharedLibExt", 1, 1,
+          "Real","(Real unused)",
+          I2("Returns the identifier of the platform where TOL is running.",
+             "Devuelve el identificador de la platforma sobre la que "
+       "está funcionando TOL."),
+          BOperClassify::Text_);
+//--------------------------------------------------------------------
+void BTxtGetSharedLibExt::CalcContens()
+//--------------------------------------------------------------------
+{
+  #ifdef UNIX
+  contens_= "so";
+  #else
+  contens_= "dll";
+  #endif
+}
+
 
 //--------------------------------------------------------------------