Changeset f81e259 in tol

Timestamp:

Apr 2, 2011, 11:00:49 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

668d386

Parents:

3a7b685

Message:

Refs #1153
New methods CppTools.Path and CppTools.Check

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

File:

• tol/stdlib/general/TolPackage/client.tol (modified) (1 diff)

tol/stdlib/general/TolPackage/client.tol

@@ -837 +837 @@
     DownloadPackage(vsi->te_url,vsi->co_name_version,True,localRoot)
   }))
+};
+
+////////////////////////////////////////////////////////////////////////////////
+  Text CppTools.Path(NameBlock package)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Text packageName = package::_.autodoc.name;
+  Text dllPath.rel = GetAbsolutePath("CppTools/"+ GetHardSoftPlattform(0));
+  Text dllPath.deb = dllPath.rel+"_dbg";
+  Text dllFile.rel = dllPath.rel+"/"+packageName+"."+GetSharedLibExt(0);
+  Text dllFile.deb = dllPath.deb+"/"+packageName+"."+GetSharedLibExt(0);
+  If(!TextEndAt(Version,"{DEBUG}"),dllFile.rel,
+  {
+    If(OSDirExist(dllFile.deb),dllFile.deb,
+    {
+      WriteLn("Cannot find debug library "+dllFile.deb+
+              ".\n Trying to load "+dllFile.rel);
+      dllFile.rel
+    })
+  })
+};
+
+////////////////////////////////////////////////////////////////////////////////
+  Real CppTools.Check(NameBlock package, Text dllFile, Text chechMethod)
+////////////////////////////////////////////////////////////////////////////////
+{
+  Text packageName = package::_.autodoc.name;
+  Real ok = ObjectExist("Code","package::CppTools::"+chechMethod);
+  WriteLn("["+packageName+"] Loading library "+dllFile+
+          " -> "<<If(ok,"OK","FAIL"),If(ok,"S","E"));
+  ok
 }
 
+
 ]];