Changeset 0802b2c in tol

Timestamp:

Apr 9, 2015, 10:43:49 AM (12 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

71a1861

Parents:

c720eaa

Message:

Refs #1821
Funciones para la creación de paquetes binarios

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

Location:

tol/stdlib/TolPackage

Files:

• TolPackage.tol (modified) (1 diff)
• TolPlatform.tol (modified) (1 diff)

tol/stdlib/TolPackage/TolPackage.tol

@@ -18 +18 @@
   Text _.autodoc.minTolVersion = "v3.1";
   Real _.autodoc.version.high = 4;
-  Real _.autodoc.version.low = 1;
+  Real _.autodoc.version.low = 2;
 
   Text _.version = ""<<_.autodoc.version.high<<"."<<_.autodoc.version.low;

tol/stdlib/TolPackage/TolPlatform.tol

@@ -35 +35 @@
     Real If(ok, ok := If(infoB[3]=="ANY", True, infoB[3]==infoA[3]));
     ok
+  };
+
+  ////////////////////////////////////////////////////////////////////////////
+  Text ObtainPlatform(Text os, Text wordsize, Text compiler)
+  ////////////////////////////////////////////////////////////////////////////
+  {
+    Set info = ObtainInfo(Platform(?));
+    Set requiredInfo = SetOfText(
+      Case(os=="OWN", info[1], os=="ANY", "ANY", os==info[1], os, True, {
+        WriteLn("La versión y plataforma de TOL utilizada no es compatible "
+          <<"con el sistema operativo '"<<os<<"'.", "E");
+        Text ""
+      });
+      Case(wordsize=="OWN", info[2], wordsize=="NN", "NN", 
+        wordsize==info[2], wordsize, True, {
+        WriteLn("La versión y plataforma de TOL utilizada no es compatible "
+          <<"con los sistemas de '"<<wordsize<<"' bits.", "E");
+        Text ""
+      });
+      Case(compiler=="OWN", info[3], compiler=="ANY", "ANY", 
+        compiler==info[3], compiler, True, {
+        WriteLn("La versión y plataforma de TOL utilizada no es compatible "
+          <<"con la versión compilada con '"<<compiler<<"'.", "E"); 
+        Text ""
+      })
+    );
+    If(Real SetMin(EvalSet(requiredInfo,TextLength))==0, {
+      Real Stop;
+      Text ""
+    }, TextJoinWith(requiredInfo, "__"))
+  };
+
+  ////////////////////////////////////////////////////////////////////////////
+  Text ObtainVariant(Text requiredPlatform)
+  ////////////////////////////////////////////////////////////////////////////
+  {
+    If(requiredPlatform=="ANY__NN__ANY", {
+      WriteLn("No es necesaria una variante.", "E");
+      Real Stop;
+      Text ""
+    }, {
+      Set info = ObtainInfo(requiredPlatform);
+      Set words = SetOfText(
+        Case(info[1]=="ANY", If(info[2]=="NN", "", "OS"),
+          info[1]=="WINDOWS", "Win", True, FirstToUpper(ToLower(info[1]))),
+        If(info[2]=="NN", "", info[2]),
+        If(info[3]=="ANY", "", info[3])
+      );
+      TextJoinWith(words, "")
+    })
+  };
+
+  ////////////////////////////////////////////////////////////////////////////
+  Text ObtainDllFolder(Real void)
+  ////////////////////////////////////////////////////////////////////////////
+  {
+    Text platform = Platform(?);
+    Real debugVersion = TextEndAt(Version,"{DEBUG}");
+    If(TextMatch(platform, "WINDOWS__32__GNU") , {
+      "lib"
+    }, {
+      "CppTools/"+GetHardSoftPlattform(0)+If(debugVersion, "_dbg", "")
+    })
   }
 ]];