Changeset 9e608ab in tol

Timestamp:

Jun 17, 2010, 9:34:38 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

f14ee64

Parents:

35b1809

Message:

Refs #916
Nuevos métodos Initialize, Install.AllInAll y LocalFile

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

File:

• tol/stdlib/general/TolPackage/client.tol (modified) (9 diffs)

tol/stdlib/general/TolPackage/client.tol

@@ -18 +18 @@
 
 //////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.LocalFile = 
+"Devuelve el path completo del fichero local correspondiente a un paquete.";
+Text LocalFile(Text package.version)
+//////////////////////////////////////////////////////////////////////////////
+{
+  TolPackage::Client::_.localRoot+package.version+".oza"
+};
+
+//////////////////////////////////////////////////////////////////////////////
 Text _.autodoc.member.Exist = 
 "Devuelve cierto si existe el paquete especificado";
@@ -23 +32 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  @Repository r = @Repository::Get(remote.repository, True);
+  @Repository r = @Repository::Get(repository, True);
   r::Exist(package.version)
+};
+
+//////////////////////////////////////////////////////////////////////////////
+//Inicializa el sistema de almacenamiento persistente de la lista de 
+//repositorios 
+NameBlock Initialize(Real void)
+//////////////////////////////////////////////////////////////////////////////
+{
+  TolPackage::Client::@AutoLoadSave _autoLoadSave = 
+    TolPackage::Client::@AutoLoadSave::Create(0);
+  _autoLoadSave
 };
 
@@ -51 +71 @@
 "que se lancen desde ese momento podrán usarlos.";
 //////////////////////////////////////////////////////////////////////////////
-Real Install(Text remote.repository, Text package.version, Real showError)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository r = @Repository::Get(remote.repository, True);
+Real Install(Text repository, Text package.version, Real showError)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(repository, True);
   r::Install(package.version,showError)
 };
@@ -62 +82 @@
 "Instala la última versión de todos los paquetes disponibles en un "
 "repositorio remoto.";
-Real Install.All(Text remote.repository)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository r = @Repository::Get(remote.repository, True);
+Real Install.All(Text repository)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(repository, True);
   r::Install.All(0)
+};
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.Install.AllInAll = 
+"Instala todos los paquetes disponibles en todos los repositorios remotos "
+"consultados.";
+Real Install.AllInAll(Real void)
+//////////////////////////////////////////////////////////////////////////////
+{
+//WriteLn("TRACE Client::Install.AllInAll");
+  @Repository::Install.AllInAll(void)
 };
 
@@ -74 +105 @@
 "encuentra, devuelve el registro de información con estructura @PackageInfo, "
 "y si no, el conjunto vacío.";
-Set Find(Text remote.repository)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository::Find(remote.repository)
+Set Find(Text repository)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository::Find(repository)
 };
 
@@ -84 +115 @@
 "Busca un paquete entre todos los repositorios consultables y si lo "
 "encuentra lo instala.";
-Real FindAndInstall(Text remote.repository, Real showError)
-//////////////////////////////////////////////////////////////////////////////
-{
-//WriteLn("TRACE Client::FindAndInstall(\""+remote.repository+"\","<<showError+")");
-  @Repository::FindAndInstall(remote.repository, showError)
-};
-
-//////////////////////////////////////////////////////////////////////////////
-Text _.autodoc.member.LastDate = 
+Real FindAndInstall(Text repository, Real showError)
+//////////////////////////////////////////////////////////////////////////////
+{
+//WriteLn("TRACE Client::FindAndInstall(\""+repository+"\","<<showError+")");
+  @Repository::FindAndInstall(repository, showError)
+};
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.ReleaseDate = 
 "Devuelve la fecha de la última actualización de un paquete en un "
 "repositorio";
-Date LastDate(Text remote.repository, Text package)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository r = @Repository::Get(remote.repository, True);
-  r::LastDate(package)
+Date ReleaseDate(Text repository, Text package)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(repository, True);
+  r::ReleaseDate(package)
 };
 
@@ -106 +137 @@
 "Actualiza automáticamente un paquete si ha caducado caduca la copia local "
 "llamando a Install.";
-Real Upgrade(Text remote.repository, Text package, Real caducityInDays)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository r = @Repository::Get(remote.repository, True);
+Real Upgrade(Text repository, Text package.version, Real caducityInDays)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(repository, True);
   r::Upgrade(package, caducityInDays)
 };
@@ -117 +148 @@
 "Actualiza automáticamente todos los paquetes disponibles en un repositorio "
 "remoto para los que la copia local haya caducado.";
-Real Upgrade.All(Text remote.repository, Real caducityInDays)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository r = @Repository::Get(remote.repository, True);
+Real Upgrade.All(Text repository, Real caducityInDays)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(repository, True);
   r::Upgrade.All(caducityInDays)
 };
@@ -158 +189 @@
 "cualquiera de los paquetes requeridos directa o indirectamente por lo que " 
 "lo más aconsejable es hacerlo justo después de cargar la StdLib ";
-Real ForceExactRequirements(Text remote.repository, Text package.version)
-//////////////////////////////////////////////////////////////////////////////
-{
-  @Repository r = @Repository::Get(remote.repository, True);
+Real ForceExactRequirements(Text repository, Text package.version)
+//////////////////////////////////////////////////////////////////////////////
+{
+  @Repository r = @Repository::Get(repository, True);
   r::ForceExactRequirements(package.version)
 };