Changeset 3c8e12d in tol

Timestamp:

Feb 23, 2015, 9:33:51 AM (12 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

35121b1

Parents:

6efb506

Message:

refs #1825, se implementa la función PlatformInfo que retorna un conjunto con 5 elementos:

• SystemaName: identificador del sistema operativo, ej: Linux, Windows, Darwin
• SystemVersion: identificador de version
• CompilerID: identifiador del compilador de C++ usado, ej GNU, MSVC
• Processor: identificador de la CPU, ej: x86_64, AMD64
• PointerSize: tamaño del puntero, ej: 4 (para 32 bit), 8 (para 64 bit)

Ejemplo de salida:

10:15:00 TOL> Set View(PlatformInfo(?), "");
PointerSize=4
Processor="x86_64"
CompilerID="GNU"
SystemVersion=""
SystemName="Linux"
5 elementos

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

File:

• tol/btol/set_type/setgra.cpp (modified) (1 diff)

tol/btol/set_type/setgra.cpp

@@ -3048 +3048 @@
   contens_.RobElement(result);  
 }
+
+#if !defined(TOLPLAT_SYSTEM_NAME)
+#if defined(UNIX)
+#define TOLPLAT_SYSTEM_NAME "Linux"
+#else
+#define TOLPLAT_SYSTEM_NAME "Windows"
+#endif
+#endif
+
+#if !defined(TOLPLAT_SYSTEM_VERSION)
+#define TOLPLAT_SYSTEM_VERSION ""
+#endif
+
+#if !defined(TOLPLAT_SYSTEM_PROCESSOR)
+#define TOLPLAT_SYSTEM_PROCESSOR "x86_64"
+#endif
+
+#if !defined(TOLPLAT_POINTER_SIZE)
+#define TOLPLAT_POINTER_SIZE sizeof(void*)
+#endif
+
+#if !defined(TOLPLAT_COMPILER_ID)
+#if defined(UNIX)
+#define TOLPLAT_COMPILER_ID "GNU"
+#else
+#define TOLPLAT_COMPILER_ID "MSVC"
+#endif
+#endif
+
+
+
+//--------------------------------------------------------------------
+DeclareContensClass(BSet, BSetTemporary, BSetPlatformInfo);
+DefExtOpr(1, BSetPlatformInfo, "PlatformInfo", 1, 1, "Real", 
+          "(Real void)",
+          I2("Returns the platform information for which this TOL was compiled",
+             "Retorna la información de la plataforma para la cual fue compilado este TOL"),
+          BOperClassify::System_);
+//--------------------------------------------------------------------
+void BSetPlatformInfo::CalcContens()
+//--------------------------------------------------------------------
+{
+  BList * result = NIL;
+  BSyntaxObject * so;
+  result = Cons(so = new BContensText( "", TOLPLAT_SYSTEM_NAME), result );
+  so->PutName("SystemName");
+  result = Cons(so = new BContensText("", TOLPLAT_SYSTEM_VERSION), result );
+  so->PutName("SystemVersion");
+  result = Cons(so = new BContensText("", TOLPLAT_COMPILER_ID ), result);
+  so->PutName("CompilerID");
+  result = Cons(so = new BContensText("", TOLPLAT_SYSTEM_PROCESSOR ), result);
+  so->PutName("Processor");
+  result = Cons(so = new BContensDat("", TOLPLAT_POINTER_SIZE), result);
+  so->PutName("PointerSize");
+  contens_.RobElement(result);  
+}