Changeset 787de6a in tol

Timestamp:

Jun 15, 2010, 1:02:07 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

e68d611

Parents:

48024fd

Message:

Refs #916
Comprobación opcional de posibles situaciones de error.
Nuevo método Exist para la comprobación de la existencia de un paquete en un repositorio.

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

Location:

tol/stdlib/general/TolPackage

Files:

• repository.tol (modified) (4 diffs)
• tools.tol (modified) (2 diffs)

tol/stdlib/general/TolPackage/repository.tol

@@ -105 +105 @@
 //////////////////////////////////////////////////////////////////////////////
 {
+  If(FileExist(_.localRoot+path), OSFilRemove(_.localRoot+path));
   If(!_.isRemote,
   {
@@ -153 +154 @@
 
 //////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.Exist = 
+"Devuelve cierto si existe el paquete especificado";
+Real Exist(Text package.version)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Real pos = FindIndexByName(_.status,package);
+  pos > 0
+};
+
+//////////////////////////////////////////////////////////////////////////////
 Text _.autodoc.member.Install = 
 "Instala desde el repositorio remoto al local un paquete determinado "
@@ -175 +186 @@
 "Sólo es necesario instalar una vez un paquete y todas las sesiones TOL "
 "que se lancen desde ese momento podrán usarlos.";
-Real Install(Text package.version)
-//////////////////////////////////////////////////////////////////////////////
-{
-  DownloadFile(package.version)
+Real Install(Text package.version, Real showError)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Real DownloadFile(package.version);
+  Real ok = FileExist(_.localRoot+package.version);
+  If(And(!ok,showError),
+  {
+    WriteLn("[TolPackage::Install] "
+    "Cannot install package "+_.url+package.version,"E")
+  });
+  ok
 };
 
@@ -201 +219 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  Real pos = FindIndexByName(_.status,package),
+  Real pos = FindIndexByName(_.status,package);
   If(!pos, TheBegin,
   { 

tol/stdlib/general/TolPackage/tools.tol

@@ -4 +4 @@
 // PURPOSE: TolPackage tools
 //////////////////////////////////////////////////////////////////////////////
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.Exist = 
+"Devuelve cierto si existe el paquete especificado";
+Real Exist(Text package.version)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(remote.repository);
+  r::Exist(package.version)
+};
 
 //////////////////////////////////////////////////////////////////////////////
@@ -29 +39 @@
 "que se lancen desde ese momento podrán usarlos.";
 //////////////////////////////////////////////////////////////////////////////
-Real Install(Text remote.repository, Text package.version)
+Real Install(Text remote.repository, Text package.version, Real showError)
 //////////////////////////////////////////////////////////////////////////////
 {
   @Repository r = @Repository::Get(remote.repository);
-  r::Install(package.version)
+  r::Install(package.version,showError)
 };