Index: /trunk/MagicSoft/Mars/Changelog
===================================================================
--- /trunk/MagicSoft/Mars/Changelog	(revision 1315)
+++ /trunk/MagicSoft/Mars/Changelog	(revision 1316)
@@ -1,3 +1,13 @@
                                                                   -*-*- END -*-*-
+ 2002/04/29: Oscar Blanch
+
+   * macros/tar.C:
+     - added
+
+   * Makefile:
+     - changed "make tar" to use macros/tar.C and root
+
+
+
  2002/04/27: Oscar Blanch
 
Index: /trunk/MagicSoft/Mars/Makefile
===================================================================
--- /trunk/MagicSoft/Mars/Makefile	(revision 1315)
+++ /trunk/MagicSoft/Mars/Makefile	(revision 1316)
@@ -117,6 +117,7 @@
 tar:	mrproper
 	@echo "Making tar-file"
-	@tar cvf ../mars.tar --exclude=Root .rootrc *
-	@gzip -9 ../mars.tar
+	@root -b -q -l -n tar.C
+#	@tar cvf ../mars.tar --exclude=Root .rootrc *
+#	@gzip -9 ../mars.tar
 
 # @endcode
Index: /trunk/MagicSoft/Mars/macros/tar.C
===================================================================
--- /trunk/MagicSoft/Mars/macros/tar.C	(revision 1316)
+++ /trunk/MagicSoft/Mars/macros/tar.C	(revision 1316)
@@ -0,0 +1,19 @@
+void tar()
+{
+    TString dir = gSystem->pwd();
+
+    Int_t slash = dir.Last('/');
+
+    TString name = &dir[slash+1];
+
+    gSystem->cd("..");
+
+    TString cmd = "tar cvf "+name+".tar --exclude=Root "+name+"/.rootrc "+name+"/*";
+
+    cout << "Executing: " << cmd << endl;
+
+    gSystem->Exec(cmd);
+    gSystem->Exec("gzip -9 "+name+".tar");
+
+    gSystem->cd(name);
+}