From 87f5d36630db13fee1f2c0563505dc0938f3787e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 13 Nov 2012 00:22:44 +0100 Subject: Remove (guix http) and (guix ftp). * guix/ftp.scm, guix/http.scm, guix/build/ftp.scm, guix/build/http.scm: Remove. * Makefile.am (MODULES): Likewise. * tests/builders.scm, distro/packages/base.scm, distro/packages/bash.scm, distro/packages/bdw-gc.scm, distro/packages/compression.scm, distro/packages/gawk.scm, distro/packages/gnupg.scm, distro/packages/gperf.scm, distro/packages/guile.scm, distro/packages/libffi.scm, distro/packages/libsigsegv.scm, distro/packages/libtool.scm, distro/packages/libunistring.scm, distro/packages/lout.scm, distro/packages/m4.scm, distro/packages/multiprecision.scm, distro/packages/ncurses.scm, distro/packages/perl.scm, distro/packages/pkg-config.scm, distro/packages/pth.scm, distro/packages/readline.scm, distro/packages/recutils.scm: Use `url-fetch' instead of `http-fetch' and `ftp-fetch'. * distro/packages/bootstrap.scm: Likewise (bootstrap-origin): Remove references to `http-fetch' and `ftp-fetch'. * guix.scm (%public-modules): Remove `http' and `ftp'; add `download'. --- guix/build/ftp.scm | 48 ------------------------------------------------ 1 file changed, 48 deletions(-) delete mode 100644 guix/build/ftp.scm (limited to 'guix/build/ftp.scm') diff --git a/guix/build/ftp.scm b/guix/build/ftp.scm deleted file mode 100644 index 17486953c2..0000000000 --- a/guix/build/ftp.scm +++ /dev/null @@ -1,48 +0,0 @@ -;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- -;;; Copyright (C) 2012 Ludovic Courtès -;;; -;;; This file is part of Guix. -;;; -;;; Guix is free software; you can redistribute it and/or modify it -;;; under the terms of the GNU General Public License as published by -;;; the Free Software Foundation; either version 3 of the License, or (at -;;; your option) any later version. -;;; -;;; Guix is distributed in the hope that it will be useful, but -;;; WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;; GNU General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with Guix. If not, see . - -(define-module (guix build ftp) - #:use-module (guix ftp-client) - #:use-module (guix build utils) - #:use-module (web uri) - #:export (ftp-fetch)) - -;;; Commentary: -;;; -;;; Fetch data such as tarballs over FTP (builder-side code). -;;; -;;; Code: - -(define (ftp-fetch url file) - "Fetch data from URL and write it to FILE. Return FILE on success." - - (setvbuf (current-output-port) _IOLBF) - (format #t "starting FTP download of `~a' from `~a'...~%" file url) - (let* ((uri (string->uri url)) - (conn (ftp-open (uri-host uri))) - (in (ftp-retr conn (basename (uri-path uri)) - (dirname (uri-path uri))))) - (call-with-output-file file - (lambda (out) - ;; TODO: Show a progress bar. - (dump-port in out))) - - (ftp-close conn)) - file) - -;;; ftp.scm ends here -- cgit v1.2.3