Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
 
 
 
 
 
 

134 рядки
5.3 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
  3. ;;;
  4. ;;; This file is part of GNU Guix.
  5. ;;;
  6. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or (at
  9. ;;; your option) any later version.
  10. ;;;
  11. ;;; GNU Guix is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (gnu packages zip)
  19. #:use-module ((guix licenses)
  20. #:renamer (symbol-prefix-proc 'license:))
  21. #:use-module (guix packages)
  22. #:use-module (guix download)
  23. #:use-module (guix build-system gnu)
  24. #:use-module (gnu packages compression)
  25. #:use-module (gnu packages perl)
  26. #:use-module (gnu packages pkg-config)
  27. #:use-module (gnu packages python))
  28. (define-public zip
  29. (package
  30. (name "zip")
  31. (version "3.0")
  32. (source
  33. (origin
  34. (method url-fetch)
  35. (uri (string-append "mirror://sourceforge/infozip/Zip%203.x%20%28latest%29/3.0/zip30.tar.gz"))
  36. (sha256
  37. (base32
  38. "0sb3h3067pzf3a7mlxn1hikpcjrsvycjcnj9hl9b1c3ykcgvps7h"))))
  39. (build-system gnu-build-system)
  40. (inputs `(("bzip2" ,bzip2)))
  41. (arguments
  42. `(#:tests? #f ; no test target
  43. #:make-flags '("generic_gcc")
  44. #:phases
  45. (alist-replace
  46. 'configure
  47. (lambda* (#:key outputs #:allow-other-keys)
  48. (let* ((out (assoc-ref outputs "out")))
  49. (copy-file "unix/Makefile" "Makefile")
  50. (substitute* "Makefile" (("/usr/local") out))))
  51. %standard-phases)))
  52. (home-page "http://www.info-zip.org/Zip.html")
  53. (synopsis "Zip compression and file packing utility")
  54. (description
  55. "Zip is a compression and file packaging/archive utility. Zip is useful
  56. for packaging a set of files for distribution, for archiving files, and for
  57. saving disk space by temporarily compressing unused files or directories.
  58. Zip puts one or more compressed files into a single ZIP archive, along with
  59. information about the files (name, path, date, time of last modification,
  60. protection, and check information to verify file integrity). An entire
  61. directory structure can be packed into a ZIP archive with a single command.
  62. Zip has one compression method (deflation) and can also store files without
  63. compression. Zip automatically chooses the better of the two for each file.
  64. Compression ratios of 2:1 to 3:1 are common for text files.")
  65. (license (license:bsd-style "file://LICENSE"
  66. "See LICENSE in the distribution."))))
  67. (define-public unzip
  68. (package (inherit zip)
  69. (name "unzip")
  70. (version "6.0")
  71. (source
  72. (origin
  73. (method url-fetch)
  74. (uri (string-append "mirror://sourceforge/infozip/UnZip%206.x%20%28latest%29/UnZip%206.0/unzip60.tar.gz"))
  75. (sha256
  76. (base32
  77. "0dxx11knh3nk95p2gg2ak777dd11pr7jx5das2g49l262scrcv83"))))
  78. (build-system gnu-build-system)
  79. ;; no inputs; bzip2 is not supported, since not compiled with BZ_NO_STDIO
  80. (arguments
  81. `(#:make-flags '("generic_gcc")
  82. #:phases
  83. (alist-replace
  84. 'configure
  85. (lambda* (#:key inputs outputs #:allow-other-keys)
  86. (let* ((out (assoc-ref outputs "out")))
  87. (copy-file "unix/Makefile" "Makefile")
  88. (substitute* "Makefile" (("/usr/local") out))))
  89. %standard-phases)))
  90. (home-page "http://www.info-zip.org/UnZip.html")
  91. (synopsis "Unzip decompression and file extraction utility")
  92. (description
  93. "UnZip is an extraction utility for archives compressed in .zip format
  94. (also called \"zipfiles\").
  95. UnZip lists, tests, or extracts files from a .zip archive. The default
  96. behaviour (with no options) is to extract into the current directory
  97. (and subdirectories below it) all files from the specified zipfile.
  98. UnZip recreates the stored directory structure by default.")
  99. (license (license:bsd-style "file://LICENSE"
  100. "See LICENSE in the distribution."))))
  101. (define-public zziplib
  102. (package
  103. (name "zziplib")
  104. (version "0.13.62")
  105. (source
  106. (origin
  107. (method url-fetch)
  108. (uri (string-append "mirror://sourceforge/zziplib/zziplib13/"
  109. version "/zziplib-"
  110. version ".tar.bz2"))
  111. (sha256
  112. (base32
  113. "0nsjqxw017hiyp524p9316283jlf5piixc1091gkimhz38zh7f51"))))
  114. (build-system gnu-build-system)
  115. (inputs `(("perl" ,perl) ; for the documentation
  116. ("pkg-config" ,pkg-config)
  117. ("python" ,python-2) ; for the documentation; Python 3 not supported,
  118. ; http://forums.gentoo.org/viewtopic-t-863161-start-0.html
  119. ("zip" ,zip) ; to create test files
  120. ("zlib" ,zlib)))
  121. (arguments
  122. `(#:parallel-tests? #f)) ; since test files are created on the fly
  123. (home-page "http://zziplib.sourceforge.net/")
  124. (synopsis "zziplib, a library for accessing zip files")
  125. (description
  126. "zziplib is a library based on zlib for accessing zip files.")
  127. (license license:lgpl2.0+)))