Changeset 8e89cc8 in tol

Timestamp:

Jun 15, 2010, 12:41:31 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

09356b1

Parents:

06709e3

Message:

Los nombres de Struct y Class deben llevar @ por delante

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

File:

• tol/stdlib/general/TolPackage/repository.tol (modified) (10 diffs)

tol/stdlib/general/TolPackage/repository.tol

@@ -2 +2 @@
 //////////////////////////////////////////////////////////////////////////////
 // FILE   : repository.tol
-// PURPOSE: Class TolPackage::Repository
+// PURPOSE: Class TolPackage::@Repository
 //////////////////////////////////////////////////////////////////////////////
 
 //////////////////////////////////////////////////////////////////////////////
 //Información de un paquete dentro del archivo de estado un repositorio
-  Struct PackageInfo {
+  Struct @PackageInfo {
 //////////////////////////////////////////////////////////////////////////////
   Text repository,
@@ -21 +21 @@
 
 //////////////////////////////////////////////////////////////////////////////
-Class Repository {
+Class @Repository {
 //////////////////////////////////////////////////////////////////////////////
 
@@ -52 +52 @@
 //Si hay cambios en el directorio remoto durante la sesión TOL estos no serán
 //percibidos.
-Static Repository Get(Text url)
-//////////////////////////////////////////////////////////////////////////////
-{
-  Real pos = FindIndexByName(Repository::_.instances, ToName(url));
+Static @Repository Get(Text url)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Real pos = FindIndexByName(@Repository::_.instances, ToName(url));
   If(pos, _.instances[pos],
   {
-    Repository::_Open(url)
+    @Repository::_Open(url)
   })
 };
@@ -64 +64 @@
 //////////////////////////////////////////////////////////////////////////////
 //Abre un repositorio por primera vez
-Static Repository _Open(Text url)
+Static @Repository _Open(Text url)
 //////////////////////////////////////////////////////////////////////////////
 {
@@ -72 +72 @@
   //Resto de la URL tras el protocolo
   Text address =  SubString(url,prtPos+1,TextLength(url));
-  Set aux = [[ Repository new = [[
+  Set aux = [[ @Repository new = [[
     Text _.url = url;
     Text _.protocol = protocol;
@@ -80 +80 @@
   {
     NameBlock PutName(ToName(url), aux[1]);
-    Real Append(Repository::_.instances, aux, True);
+    Real Append(@Repository::_.instances, aux, True);
     True
   });
@@ -125 +125 @@
     Text aux = GetFileContens("packages.csv");
     Set line = Tokenizer(aux,"\n");
-    Set pckInf = For(2,Card(line), PackageInfo(Real k)
+    Set pckInf = For(2,Card(line), @PackageInfo(Real k)
     {
       Set fields = Tokenizer(line[k],";","\"","\\");
-      Set aux = [[{PackageInfo(
+      Set aux = [[{@PackageInfo(
         Text repository = url,
         Text name = fields[1],
@@ -143 +143 @@
       aux[1]
     });
-    Set _.status := Sort(pckInf,Real(PackageInfo a, PackageInfo b)
+    Set _.status := Sort(pckInf,Real(@PackageInfo a, @PackageInfo b)
     {
       Compare(b->name.version, a->name.version)
@@ -188 +188 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  SetMin(EvalSet(_.status, Real(PackageInfo pi)
+  SetMin(EvalSet(_.status, Real(@PackageInfo pi)
   {
     DownloadFile(pi->name.version)
@@ -229 +229 @@
 //////////////////////////////////////////////////////////////////////////////
 {
-  SetSum(EvalSet(_.status, Real(PackageInfo pi)
+  SetSum(EvalSet(_.status, Real(@PackageInfo pi)
   {
     Upgrade(pi->name.version)