Rename zip translator to unzip. Put it in its own directory.

--HG--
rename : examples/zip.lisp => unzip-translator/unzip.lisp
rename : examples/zip-translator.lisp => unzip-translator/unzip-translator.lisp
rename : examples/zip-translator.asd => unzip-translator.asd

7 files changed, 19 insertions, 16 deletions

diff --git a/Makefile b/Makefile
index fdef545c9..ccd5b21d2 100644
--- a/Makefile
+++ b/Makefile
@@ -12,7 +12,7 @@ clean:
 	done
 
 install: all
-	ln -sf $(PWD)/{hurd-common,mach,hurd,hurd-translator,tree-translator,hurd-streams}.asd \
+	ln -sf $(PWD)/{hurd-common,mach,hurd,hurd-translator,tree-translator,hurd-streams,unzip-translator}.asd \
 		/usr/share/common-lisp/systems
 	make -C libs install
 	make -C launcher install
diff --git a/examples/zip.lisp b/examples/zip.lisp
deleted file mode 100755
index 512c62b26..000000000
--- a/examples/zip.lisp
+++ /dev/null
@@ -1,7 +0,0 @@
-#!/usr/bin/run-lisp-trans
-
-; settrans -ac foo ./zip.lisp zip-file.zip
-;
-
-(asdf:operate 'asdf:load-op 'zip-translator)
-
diff --git a/hurd/libc/file-name-lookup.lisp b/hurd/libc/file-name-lookup.lisp
index 974a2a049..733e0cd0f 100644
--- a/hurd/libc/file-name-lookup.lisp
+++ b/hurd/libc/file-name-lookup.lisp
@@ -22,3 +22,4 @@
   (cond
     (under (%file-name-lookup-under under name flags mode))
     (t (%file-name-lookup name flags mode))))
+
diff --git a/translator/interfaces/io-read.lisp b/translator/interfaces/io-read.lisp
index 151c9e01b..b3de78c82 100644
--- a/translator/interfaces/io-read.lisp
+++ b/translator/interfaces/io-read.lisp
@@ -99,3 +99,4 @@
                                          (mem-ref data :pointer)
                                          (1+ total))
                  t))))))
+
diff --git a/examples/zip-translator.asd b/unzip-translator.asd
index cecaad00f..d23985c77 100644
--- a/examples/zip-translator.asd
+++ b/unzip-translator.asd
@@ -1,17 +1,18 @@
 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 
-(defpackage #:zip-translator-asd
+(defpackage #:unzip-translator-asd
   (:use :cl :asdf))
 
-(in-package :zip-translator-asd)
+(in-package :unzip-translator-asd)
 
-(defsystem zip-translator
-  :name "zip-translator"
+(defsystem unzip-translator
+  :name "unzip-translator"
   :version "0.0.0"
   :maintainer "Flavio Cruz"
   :author "Flavio Cruz"
   :license "GPL v3.0"
   :description "Simple, yet functional zip translator with read-only support."
   :depends-on (:zip :tree-translator :hurd-streams)
-  :components ((:file "zip-translator")))
+  :components ((:module unzip-translator
+                        :components (:file "unzip-translator"))))
 
diff --git a/examples/zip-translator.lisp b/unzip-translator/unzip-translator.lisp
index 0a3e72ed5..e2e9b8f87 100644
--- a/examples/zip-translator.lisp
+++ b/unzip-translator/unzip-translator.lisp
@@ -1,5 +1,5 @@
 
-(defpackage :zip-translator
+(defpackage :unzip-translator
   (:use :cl :hurd-common :mach
         :hurd :hurd-translator
         :hurd-tree-translator
@@ -8,10 +8,10 @@
         :trivial-gray-streams
         :zip))
 
-(in-package :zip-translator)
+(in-package :unzip-translator)
 
 ;;
-;; This is a simple zip translator.
+;; This is a simple unzip translator.
 ;; Right now it supports file and directory listing.
 ;;
 
diff --git a/unzip-translator/unzip.lisp b/unzip-translator/unzip.lisp
new file mode 100755
index 000000000..2394de532
--- /dev/null
+++ b/unzip-translator/unzip.lisp
@@ -0,0 +1,7 @@
+#!/usr/bin/run-lisp-trans
+
+; settrans -ac foo ./unzip.lisp zip-file.zip
+;
+
+(asdf:operate 'asdf:load-op 'unzip-translator)
+