Changeset a0464f4 in tol

Timestamp:

Mar 17, 2011, 4:11:54 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

29c8edd

Parents:

e42587d

Message:

Fixed #922

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

Location:

tol/stdlib

Files:

• data/ois/_ois.tol (modified) (1 diff)
• general/TolPackage/client.tol (modified) (2 diffs)
• general/TolPackage/server.tol (modified) (2 diffs)
• general/system/PackArchive/PackArchive.tol (modified) (1 diff)

tol/stdlib/data/ois/_ois.tol

@@ -64 +64 @@
     Text dir = TmpDir+ToName(GetFilePath(path_))+"/"+GetFilePrefix(path_);
     Real ok = Ois.Store(data, dir);
-    Real PackArchive::PackFull(engine, dir);
+    Real PackArchive::PackFull(engine, dir, True);
     Text ext = PackArchive::@Store::Extension(engine);
-    Real OSDirRemove(dir);
     Real If(dir+ext != path_, OSFilMove(dir+ext, path_));
     ok

tol/stdlib/general/TolPackage/client.tol

@@ -163 +163 @@
   Text pkg.name.zip = GetFileName(pkg.path.zip);
   Text pkg.name = Replace(pkg.name.zip,".zip","");
-  Real PackArchive::UnpackFull("ZipArchive",_.localRoot+pkg.name);
-  Real OSFilRemove(_.localRoot+pkg.name.zip);
+  Real PackArchive::UnpackFull("ZipArchive",_.localRoot+pkg.name,True);
   FileExist(_.localRoot+pkg.name+"/"+pkg.name+".oza")
 };
@@ -409 +408 @@
   {
   //WriteLn("TRACE DownloadPackage 4 UnpackFull("<<localDir+")");
-    Real PackArchive::UnpackFull("ZipArchive", localDir);
-    Real OSFilRemove(localPack);
+    Real PackArchive::UnpackFull("ZipArchive", localDir, True);
     True
   });

tol/stdlib/general/TolPackage/server.tol

@@ -167 +167 @@
   Set dep = TolPackage::GetDeepDependencies(name, True);
   
-  Real PackArchive::PackFull("ZipArchive", ppr);
-  Real If(removeDir, OSDirRemove(ppRoot));
+  Real PackArchive::PackFull("ZipArchive", ppr, removeDir);
   ppRoot_+".zip"
 };
@@ -188 +187 @@
   Real nu_version_high = Eval(name.tok[2]);
   Real nu_version_low = Eval(name.tok[3]);
-  Real PackArchive::UnpackFull("ZipArchive",root+pkg.name);
+  Real PackArchive::UnpackFull("ZipArchive",root+pkg.name,False);
   Text oza = root+pkg.name+"/"+pkg.name+".oza";
   Set pkgCnt = Include(oza);

tol/stdlib/general/system/PackArchive/PackArchive.tol

@@ -13 +13 @@
 Text _.currentTolVersion = Tokenizer(Version," ")[1];
 
-
 #Embed "Store.tol";
 
 ////////////////////////////////////////////////////////////////////////////
-//Empaqueta un directorio completo como un archivo del mismo nombre con la
-//extensión correspondiente al archivo. El argumento originalDirPath se 
-//refiere al directorio luego no lleva extensión ni barra final.
-Real PackFull(Text engine, Text originalDirPath)
+Text _.autodoc.member.PackFile = 
+"Empaqueta un archivo con un sólo fichero añadiéndole la extensión "
+"correspondiente y dejando el resulyado en el mismo directorio.\n"
+"Si el argumento 'remove' es cierto y el proceso acaba correctamente "
+"se borrará el fichero original.";
+Real PackFile(Text engine, Text originalFilPath, Real remove)
 ////////////////////////////////////////////////////////////////////////////
 {
+  Text ext = @Store::Extension(engine);
+  @Store s = @Store::Create(engine, originalFilPath+ext, "w");
+  Real ok = s::FileAdd(originalDirPath);
+  s::Close(0);
+  Real If(ok & remove, OSFilRemove(originalFilPath));
+  ok
+};
+
+////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.UnpackFile = 
+"Desempaqueta un archivo que contiene un único fichero dejándo el archivo "
+"en el mismo directorio. Hay que pasarle el nombre original del archivo.\n"
+"Si el argumento 'remove' es cierto y el proceso acaba correctamente "
+"se borrará el archivo empaquetado.";
+Real UnpackFile(Text engine, Text originalFilPath, Real remove)
+////////////////////////////////////////////////////////////////////////////
+{
+  Text ext = @Store::Extension(engine);
+  @Store s = @Store::Create(engine, originalFilPath+ext, "r");
+  Real ok = s::FileExtract("*",originalDirPath);
+  s::Close(0);
+  Real If(ok & remove, OSFilRemove(originalFilPath+ext));
+  ok
+};
+
+////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.PackFull = 
+"Empaqueta un directorio completo como un archivo del mismo nombre con la "
+"extensión correspondiente al archivo. El argumento originalDirPath se "
+"refiere al directorio luego no lleva extensión ni barra final.\n"
+"Si el argumento 'remove' es cierto y el proceso acaba correctamente "
+"se borrará el directorio original.";
+Real PackFull(Text engine, Text originalDirPath_, Real remove)
+////////////////////////////////////////////////////////////////////////////
+{
+  Text originalDirPath = RemoveLastSlash(originalDirPath_);
   Text ext = @Store::Extension(engine);
   @Store s = @Store::Create(engine, originalDirPath+ext, "w");
   Real ok = s::DirAdd(originalDirPath);
   s::Close(0);
+  Real If(ok & remove, OSDirRemove(originalDirPath_));
   ok
 };
 
 ////////////////////////////////////////////////////////////////////////////
-//Desempaqueta un archivo completo como un directorio del mismo nombre pero 
-//sin extensión. El argumento originalDirPath se refiere al directorio luego 
-//no lleva extensión ni barra final.
-Real UnpackFull(Text engine, Text originalDirPath)
+Text _.autodoc.member.UnpackFull = 
+"Desempaqueta un archivo completo como un directorio del mismo nombre pero "
+"sin extensión. El argumento originalDirPath se refiere al directorio luego "
+"no lleva extensión ni barra final.\n"
+"Si el argumento 'remove' es cierto y el proceso acaba correctamente "
+"se borrará el archivo empaquetado.";
+Real UnpackFull(Text engine, Text originalDirPath_, Real remove)
 ////////////////////////////////////////////////////////////////////////////
 {
+  Text originalDirPath = RemoveLastSlash(originalDirPath_);
   Text ext = @Store::Extension(engine);
   @Store s = @Store::Create(engine, originalDirPath+ext, "r");
   Real ok = s::DirExtract("*",originalDirPath);
   s::Close(0);
+  Real If(ok & remove, OSFilRemove(originalDirPath+ext));
   ok
 }