From 8bbbcbd2cdad36e27c127c888897395cefcff3d0 Mon Sep 17 00:00:00 2001 From: "Yaakov M. Nemoy" Date: Sun, 18 Jan 2009 19:37:37 -0500 Subject: Refactors Cabal to fit the new mediator pattern design Cabal has now been split into a builder, cabal, a fetcher, hackage, and a port aka mediator, haskellport. It's been gutted to try to match some common api between the base classes. Also, bits of Darcs have been pulled out into packagesource. --- modules/hackage.py | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 modules/hackage.py (limited to 'modules/hackage.py') diff --git a/modules/hackage.py b/modules/hackage.py new file mode 100644 index 0000000..b08299c --- /dev/null +++ b/modules/hackage.py @@ -0,0 +1,41 @@ +# Fedora Developer Shell +# +# This program 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; version 2 of the License. +# +# This program 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 Library General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +# +# Authors: Yaakov M. Nemoy +# + +from modules.fetcher import Fetcher + +class Hackage(Fetcher): + def latest_version(self, pkg): + '''download information from hackage to find out the latest version of a package + ''' + hackage_title = compile(r'HackageDB: (.*)-(.*)', DOTALL) + site = 'http://hackage.haskell.org/cgi-bin/hackage-scripts/package/' + pkg + u = urlopen(site) + page = u.read() + match = hackage_title.search(page) + groups = match.groups() + print groups + if pkg == groups[0]: + return groups[1] + else: + raise ExecutionException("package does not match package name, can't determine version, sorry") + + def url(self, pkg, ver): + '''returns the url for tarball for a hackage package''' + return 'http://hackage.haskell.org/packages/archive/' + \ + pkg + '/' + ver + '/' + pkg + '-' + ver + '.tar.gz' + -- cgit