Changeset 61b922e in tol

Timestamp:

Dec 27, 2011, 11:54:29 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

1ae5ad9

Parents:

d7ed887

Message:

Fixes #1378

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

File:

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

tol/stdlib/general/TolPackage/client.tol

@@ -215 +215 @@
   Real _trace("LocalInstallPackage", "End", 1);
   FileExist(_.localRoot+pkg.name+"/"+pkg.name+".oza")
+};
+
+//////////////////////////////////////////////////////////////////////////////
+Text _.autodoc.member.LocalExportPackage = 
+"Exports a locally installed package to a zip file.\n"
+"This is usefull to move packages from one machine to other\n";
+Real LocalExportPackage(Text pkg.ver, Text dir.dest)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Text dir.loc = ReplaceSlash(_.localRoot);
+  Text pkg.loc = dir.loc+pkg.ver;
+  Text zip.loc = pkg.loc+".zip";
+  Text zip.dest = dir.dest+pkg.ver+".zip";
+
+  //Ensures that local.oza is locally created
+  Set LocalInfo(pkg.ver);
+
+  //Compacts the package as a ZIP file
+  Real PackArchive::PackFull("ZipArchive", pkg.loc, False);
+
+  //Moves the ZIP file to destination directory
+  Real OSFilMove(zip.loc, zip.dest);
+
+  FileExist(zip.dest)
 };