pax_global_header00006660000000000000000000000064124162520760014517gustar00rootroot0000000000000052 comment=f6805ce554ef2f2b3fcb5429c603453a789616a0 luarocks-2.2.0+dfsg/000077500000000000000000000000001241625207600142625ustar00rootroot00000000000000luarocks-2.2.0+dfsg/.gitignore000066400000000000000000000000501241625207600162450ustar00rootroot00000000000000/config.* /src/luarocks/site_config.lua luarocks-2.2.0+dfsg/.travis.yml000066400000000000000000000002141241625207600163700ustar00rootroot00000000000000language: c compiler: gcc env: matrix: - LUA_VER=5.1.5 - LUA_VER=5.2.3 script: cd test && ./testing.sh --travis --lua $LUA_VER luarocks-2.2.0+dfsg/COPYING000066400000000000000000000020441241625207600153150ustar00rootroot00000000000000Copyright 2007-2014 Kepler Project. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. luarocks-2.2.0+dfsg/COPYING_7z000066400000000000000000000036071241625207600157430ustar00rootroot00000000000000 7-Zip ~~~~~ License for use and distribution ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 7-Zip Copyright (C) 1999-2010 Igor Pavlov. Licenses for files are: 1) 7z.dll: GNU LGPL + unRAR restriction 2) All other files: GNU LGPL The GNU LGPL + unRAR restriction means that you must follow both GNU LGPL rules and unRAR restriction rules. Note: You can use 7-Zip on any computer, including a computer in a commercial organization. You don't need to register or pay for 7-Zip. GNU LGPL information -------------------- This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. This library 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 Lesser General Public License for more details. You can receive a copy of the GNU Lesser General Public License from http://www.gnu.org/ unRAR restriction ----------------- The decompression engine for RAR archives was developed using source code of unRAR program. All copyrights to original unRAR code are owned by Alexander Roshal. The license for original unRAR code has the following restriction: The unRAR sources cannot be used to re-create the RAR compression algorithm, which is proprietary. Distribution of modified unRAR sources in separate form or as a part of other software is permitted, provided that it is clearly stated in the documentation and source comments that the code may not be used to develop a RAR (WinRAR) compatible archiver. -- Igor Pavlov luarocks-2.2.0+dfsg/COPYING_lua000066400000000000000000000027701241625207600161640ustar00rootroot00000000000000Lua License ----------- Lua is licensed under the terms of the MIT license reproduced below. This means that Lua is free software and can be used for both academic and commercial purposes at absolutely no cost. For details and rationale, see http://www.lua.org/license.html . =============================================================================== Copyright (C) 1994-2008 Lua.org, PUC-Rio. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. =============================================================================== (end of COPYRIGHT) luarocks-2.2.0+dfsg/COPYING_win000066400000000000000000000012721241625207600161740ustar00rootroot00000000000000 This package includes additional Windows components which are under the following licenses: * For 7z.exe and 7z.dll, please see COPYING_7z for details. * find.exe, mv.exe, wget.exe, ls.exe, pwd.exe, rmdir.exe, md5sum.exe, test.exe, cp.exe, mkdir.exe, and uname.exe are part of UnxUtils, check http://unxutils.sourceforge.net/ for license information. * Files under win32/lua5.1, except for Microsoft.VC80.CRT.manifest and msv*.*, are covered by another license, please see COPYING_lua for details. * Microsoft.VC80.CRT.manifest, msvcm80.dll, msvcp80.dll, msvcr80.dll are part of the Microsoft Visual C++ 2005 SP1 Redistributable Package (x86) and are Copyright Microsoft, Inc. 2007. luarocks-2.2.0+dfsg/Makefile000066400000000000000000000150641241625207600157300ustar00rootroot00000000000000 include config.unix .PHONY: all build dev build_bins luadoc check_makefile cleanup_bins clean \ install_bins install_luas install_site_config write_sysconfig \ install bootstrap install_rock DESTDIR = PREFIX ?= /usr/local ROCKS_TREE ?= $(PREFIX) SYSCONFDIR ?= $(PREFIX)/etc/luarocks BINDIR ?= $(PREFIX)/bin LUADIR ?= $(PREFIX)/share/lua/$(LUA_VERSION)/ LUA_DIR ?= /usr/local LUA_BINDIR ?= $(LUA_DIR)/bin BIN_FILES = luarocks luarocks-admin LUAROCKS_FILES = fs/unix/tools.lua fs/unix.lua fs/win32/tools.lua fs/win32.lua \ fs/lua.lua persist.lua list.lua require.lua repos.lua dir.lua make_manifest.lua \ command_line.lua install.lua build/command.lua build/cmake.lua build/make.lua \ build/builtin.lua fetch/cvs.lua fetch/git.lua fetch/sscm.lua tools/patch.lua \ fetch/svn.lua tools/zip.lua tools/tar.lua pack.lua type_check.lua make.lua \ remove.lua fs.lua manif.lua add.lua deps.lua build.lua search.lua show.lua \ manif_core.lua fetch.lua unpack.lua validate.lua cfg.lua download.lua \ help.lua util.lua index.lua cache.lua refresh_cache.lua loader.lua \ admin_remove.lua fetch/hg.lua fetch/git_file.lua new_version.lua lint.lua \ purge.lua path.lua path_cmd.lua write_rockspec.lua doc.lua upload.lua \ upload/api.lua upload/multipart.lua fetch/git_http.lua CONFIG_FILE = $(SYSCONFDIR)/config-$(LUA_VERSION).lua SAFEPWD=`echo "$$PWD" | sed -e 's/\([][]\)\1/]]..'\''\1\1'\''..[[/g'` all: @echo "- Type 'make build' and 'make install':" @echo " to install to $(PREFIX) as usual." @echo "- Type 'make bootstrap':" @echo " to install LuaRocks in $(PREFIX) as a rock." @echo build: src/luarocks/site_config.lua build_bins @echo @echo "Done. Type 'make install' to install into $(PREFIX)." @echo src/luarocks/site_config.lua: config.unix rm -f src/luarocks/site_config.lua echo 'local site_config = {}' >> src/luarocks/site_config.lua if [ -n "$(PREFIX)" ] ;\ then \ echo "site_config.LUAROCKS_PREFIX=[[$(PREFIX)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(LUA_INCDIR)" ] ;\ then \ echo "site_config.LUA_INCDIR=[[$(LUA_INCDIR)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(LUA_LIBDIR)" ] ;\ then \ echo "site_config.LUA_LIBDIR=[[$(LUA_LIBDIR)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(LUA_BINDIR)" ] ;\ then \ echo "site_config.LUA_BINDIR=[[$(LUA_BINDIR)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(LUA_SUFFIX)" ] ;\ then \ echo "site_config.LUA_INTERPRETER=[[lua$(LUA_SUFFIX)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(SYSCONFDIR)" ] ;\ then \ echo "site_config.LUAROCKS_SYSCONFDIR=[[$(SYSCONFDIR)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(ROCKS_TREE)" ] ;\ then \ echo "site_config.LUAROCKS_ROCKS_TREE=[[$(ROCKS_TREE)]]" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(FORCE_CONFIG)" ] ;\ then \ echo "site_config.LUAROCKS_FORCE_CONFIG=true" >> src/luarocks/site_config.lua ;\ fi if [ -n "$(LUAROCKS_ROCKS_SUBDIR)" ] ;\ then \ echo "site_config.LUAROCKS_ROCKS_SUBDIR=[[$(LUAROCKS_ROCKS_SUBDIR)]]" >> src/luarocks/site_config.lua ;\ fi if [ "$(LUA_DIR_SET)" = "yes" ] ;\ then \ echo "site_config.LUA_DIR_SET=true" >> src/luarocks/site_config.lua ;\ fi echo "site_config.LUAROCKS_UNAME_S=[[$(LUAROCKS_UNAME_S)]]" >> src/luarocks/site_config.lua echo "site_config.LUAROCKS_UNAME_M=[[$(LUAROCKS_UNAME_M)]]" >> src/luarocks/site_config.lua echo "site_config.LUAROCKS_DOWNLOADER=[[$(LUAROCKS_DOWNLOADER)]]" >> src/luarocks/site_config.lua echo "site_config.LUAROCKS_MD5CHECKER=[[$(LUAROCKS_MD5CHECKER)]]" >> src/luarocks/site_config.lua if [ -n "$(MULTIARCH_SUBDIR)" ] ;\ then \ echo 'site_config.LUAROCKS_EXTERNAL_DEPS_SUBDIRS={ bin="bin", lib={ "lib", [[$(MULTIARCH_SUBDIR)]] }, include="include" }' >> src/luarocks/site_config.lua ;\ echo 'site_config.LUAROCKS_RUNTIME_EXTERNAL_DEPS_SUBDIRS={ bin="bin", lib={ "lib", [[$(MULTIARCH_SUBDIR)]] }, include="include" }' >> src/luarocks/site_config.lua ;\ fi echo "return site_config" >> src/luarocks/site_config.lua dev: $(MAKE) build_bins LUADIR=$(PWD)/src build_bins: cleanup_bins for f in $(BIN_FILES) ;\ do \ sed "1d" src/bin/$$f > src/bin/$$f.bak ;\ echo "#!$(LUA_BINDIR)/lua$(LUA_SUFFIX)" > src/bin/$$f ;\ echo "package.path = [[$(LUADIR)/?.lua;]]..package.path" | sed "s,//,/,g" >> src/bin/$$f ;\ cat src/bin/$$f.bak >> src/bin/$$f ;\ chmod +x src/bin/$$f ;\ rm -f src/bin/$$f.bak ;\ done luadoc: rm -rf doc/luadoc mkdir -p doc/luadoc cd src && luadoc -d ../doc/luadoc --nofiles luarocks/*.lua check_makefile: clean echo $(BIN_FILES) | tr " " "\n" | sort > makefile_list.txt ( cd src/bin && ls -d * ) | sort > luarocks_dir.txt echo $(LUAROCKS_FILES) | tr " " "\n" | sort >> makefile_list.txt ( cd src/luarocks && find * -name "*.lua" ) | sort >> luarocks_dir.txt diff makefile_list.txt luarocks_dir.txt rm -f makefile_list.txt luarocks_dir.txt @echo @echo "Makefile is sane." @echo cleanup_bins: for f in $(BIN_FILES) ;\ do \ mv src/bin/$$f src/bin/$$f.bak ;\ sed "s,^#!.*lua.*,#!/usr/bin/env lua,;/^package.path/d" < src/bin/$$f.bak > src/bin/$$f ;\ chmod +x src/bin/$$f ;\ rm -f src/bin/$$f.bak ;\ done clean: cleanup_bins rm -f src/luarocks/site_config.lua install_bins: mkdir -p "$(DESTDIR)$(BINDIR)" cd src/bin && for f in $(BIN_FILES); \ do \ cp "$$f" "$(DESTDIR)$(BINDIR)/$$f-$(LUA_VERSION)"; \ ln -nfs "$$f-$(LUA_VERSION)" "$(DESTDIR)$(BINDIR)/$$f"; \ done install_luas: mkdir -p "$(DESTDIR)$(LUADIR)/luarocks" cd src/luarocks && for f in $(LUAROCKS_FILES); \ do \ d="$(DESTDIR)$(LUADIR)/luarocks"/`dirname "$$f"` && \ mkdir -p "$$d" && \ cp "$$f" "$$d" || exit 1; \ done install_site_config: src/luarocks/site_config.lua mkdir -p "$(DESTDIR)$(LUADIR)/luarocks" cp src/luarocks/site_config.lua "$(DESTDIR)$(LUADIR)/luarocks" write_sysconfig: mkdir -p "$(DESTDIR)$(ROCKS_TREE)" if [ ! -f "$(DESTDIR)$(CONFIG_FILE)" ] ;\ then \ mkdir -p `dirname "$(DESTDIR)$(CONFIG_FILE)"` ;\ echo 'rocks_trees = {' >> "$(DESTDIR)$(CONFIG_FILE)" ;\ if [ ! -n "$(FORCE_CONFIG)" ] ;\ then \ echo ' { name = [[user]], root = home..[[/.luarocks]] },' >> "$(DESTDIR)$(CONFIG_FILE)" ;\ fi ;\ echo ' { name = [[system]], root = [[$(ROCKS_TREE)]] }' >> "$(DESTDIR)$(CONFIG_FILE)" ;\ echo '}' >> "$(DESTDIR)$(CONFIG_FILE)" ;\ fi install: install_bins install_luas install_site_config write_sysconfig bootstrap: src/luarocks/site_config.lua install_site_config write_sysconfig cleanup_bins '$(LUA_BINDIR)/lua$(LUA_SUFFIX)' -e "package.path=[[$(SAFEPWD)/src/?.lua;]]..package.path" src/bin/luarocks make rockspec --tree="$(PREFIX)" install_rock: install_bins install_luas luarocks-2.2.0+dfsg/README.md000066400000000000000000000022151241625207600155410ustar00rootroot00000000000000LuaRocks ======== A package manager for Lua modules. [![Build Status](https://travis-ci.org/keplerproject/luarocks.png?branch=master)](https://travis-ci.org/keplerproject/luarocks) Main website: [luarocks.org](http://www.luarocks.org) It allows you to install Lua modules as self-contained packages called [*rocks*][1], which also contain version [dependency][2] information. This information is used both during installation, so that when one rock is requested all rocks it depends on are installed as well, and at run time, so that when a module is required, the correct version is loaded. LuaRocks supports both local and [remote][3] repositories, and multiple local rocks trees. You can [download][4] and install LuaRocks on [Unix][5] and [Windows][6]. LuaRocks is free software and uses the same [license][7] as Lua 5.1. [1]: http://luarocks.org/en/Types_of_rocks [2]: http://luarocks.org/en/Dependencies [3]: http://luarocks.org/en/Rocks_repositories [4]: http://luarocks.org/en/Download [5]: http://luarocks.org/en/Installation_instructions_for_Unix [6]: http://luarocks.org/en/Installation_instructions_for_Windows [7]: http://luarocks.org/en/License luarocks-2.2.0+dfsg/config.ld000066400000000000000000000002171241625207600160500ustar00rootroot00000000000000file = "src/luarocks" project = "LuaRocks" dir = "docs/ldoc" description = [[ LuaRocks - a deployment and management system for Lua modules ]] luarocks-2.2.0+dfsg/configure000077500000000000000000000307521241625207600162000ustar00rootroot00000000000000#!/bin/sh # A basic configure script for LuaRocks. # Not doing any fancy shell stuff here to keep good compatibility. # Defaults PREFIX="/usr/local" SYSCONFDIR="$PREFIX/etc/luarocks" ROCKS_TREE="$PREFIX" LUA_SUFFIX="" LUA_DIR="/usr" LUA_BINDIR="/usr/bin" LUA_INCDIR="/usr/include" LUA_LIBDIR="/usr/lib" LUA_VERSION="5.1" MULTIARCH_SUBDIR="" # ---------------------------------------------------------------------------- # FUNCTION DEFINITIONS # ---------------------------------------------------------------------------- # Help show_help() { cat </dev/null 2>/dev/null` then echo echo '*WARNING*: the "~" sign is not expanded in flags.' echo 'If you mean the home directory, use $HOME instead.' echo fi case "$key" in --help) show_help exit 0 ;; --prefix) [ -n "$value" ] || die "Missing value in flag $key." PREFIX="$value" PREFIX_SET=yes ;; --sysconfdir) [ -n "$value" ] || die "Missing value in flag $key." SYSCONFDIR="$value" SYSCONFDIR_SET=yes ;; --rocks-tree) [ -n "$value" ] || die "Missing value in flag $key." ROCKS_TREE="$value" ROCKS_TREE_SET=yes ;; --force-config) FORCE_CONFIG=yes ;; --versioned-rocks-dir) VERSIONED_ROCKS_DIR=yes ;; --lua-suffix) [ -n "$value" ] || die "Missing value in flag $key." LUA_SUFFIX="$value" LUA_SUFFIX_SET=yes ;; --lua-version) [ -n "$value" ] || die "Missing value in flag $key." LUA_VERSION="$value" [ "$LUA_VERSION" = "5.1" -o "$LUA_VERSION" = "5.2" -o "$LUA_VERSION" = "5.3" ] || die "Invalid Lua version in flag $key." LUA_VERSION_SET=yes ;; --with-lua) [ -n "$value" ] || die "Missing value in flag $key." LUA_DIR="$value" LUA_DIR_SET=yes ;; --with-lua-bin) [ -n "$value" ] || die "Missing value in flag $key." LUA_BINDIR="$value" LUA_BINDIR_SET=yes ;; --with-lua-include) [ -n "$value" ] || die "Missing value in flag $key." LUA_INCDIR="$value" LUA_INCDIR_SET=yes ;; --with-lua-lib) [ -n "$value" ] || die "Missing value in flag $key." LUA_LIBDIR="$value" LUA_LIBDIR_SET=yes ;; --with-downloader) [ -n "$value" ] || die "Missing value in flag $key." case "$value" in wget|curl) LUAROCKS_DOWNLOADER="$value" ;; *) die "Invalid option: $value. See --help." ;; esac LUAROCKS_DOWNLOADER_SET=yes ;; --with-md5-checker) [ -n "$value" ] || die "Missing value in flag $key." case "$value" in md5sum|openssl|md5) LUAROCKS_MD5CHECKER="$value" ;; *) die "Invalid option: $value. See --help." ;; esac LUAROCKS_MD5CHECKER_SET=yes ;; *) die "Error: Unknown flag: $1" ;; esac shift done if [ "$PREFIX_SET" = "yes" -a ! "$SYSCONFDIR_SET" = "yes" ] then if [ "$PREFIX" = "/usr" ] then SYSCONFDIR=/etc/luarocks else SYSCONFDIR=$PREFIX/etc/luarocks fi fi if [ "$PREFIX_SET" = "yes" -a ! "$ROCKS_TREE_SET" = "yes" ] then ROCKS_TREE=$PREFIX fi detect_lua_version() { detected_lua=`$1 -e 'print(_VERSION:sub(5))' 2> /dev/null` if [ "$detected_lua" = "5.1" -o "$detected_lua" = "5.2" -o "$detected_lua" = "5.3" ] then echo "Lua version detected: $detected_lua" if [ "$LUA_VERSION_SET" != "yes" ] then LUA_VERSION=$detected_lua elif [ "$LUA_VERSION" != "$detected_lua" ] then die "This clashes with the value of --with-lua-version. Please check your configuration." fi fi } search_interpreter() { LUA_SUFFIX="$1" if [ "$LUA_BINDIR_SET" = "yes" ] then find_lua="$LUA_BINDIR" elif [ "$LUA_DIR_SET" = "yes" ] then if [ -f "$LUA_DIR/bin/lua$suffix" ] then find_lua="$LUA_DIR/bin" fi else find_lua=`find_program lua$suffix` fi if [ -n "$find_lua" ] then echo "Lua interpreter: $find_lua/lua$suffix..." detect_lua_version "$find_lua/lua$suffix" return 0 fi return 1 } if [ "$LUA_SUFFIX_SET" != "yes" ] then if [ "$LUA_VERSION_SET" = "yes" -a "$LUA_VERSION" = "5.1" ] then suffixes="5.1 51 -5.1 -51" elif [ "$LUA_VERSION_SET" = "yes" -a "$LUA_VERSION" = "5.2" ] then suffixes="5.2 52 -5.2 -52" elif [ "$LUA_VERSION_SET" = "yes" -a "$LUA_VERSION" = "5.3" ] then suffixes="5.3 53 -5.3 -53" else suffixes="5.3 53 -5.3 -53 5.2 52 -5.2 -52 5.1 51 -5.1 -51" fi for suffix in `echo $suffixes` "" do search_interpreter "$suffix" && break done fi if [ "$LUA_DIR_SET" != "yes" ] then if [ -z "$find_lua" ] then echo_n "Looking for Lua... " find_lua=`find_program lua$LUA_SUFFIX` fi if [ -n "$find_lua" ] then LUA_DIR=`dirname $find_lua` LUA_BINDIR="$find_lua" echo "lua$LUA_SUFFIX found in \$PATH: $find_lua" else echo "lua$LUA_SUFFIX not found in \$PATH." die "You may want to use the flags --with-lua and/or --lua-suffix. See --help." fi fi if [ "$LUA_INCDIR_SET" != "yes" ] then LUA_INCDIR="$LUA_DIR/include" fi if [ "$LUA_LIBDIR_SET" != "yes" ] then LUA_LIBDIR="$LUA_DIR/lib" fi if [ "$LUA_DIR_SET" = "yes" -a "$LUA_BINDIR_SET" != "yes" ] then LUA_BINDIR="$LUA_DIR/bin" fi echo_n "Checking Lua includes... " lua_h="$LUA_INCDIR/lua.h" if [ -f "$lua_h" ] then echo "lua.h found in $lua_h" else v_dir="$LUA_INCDIR/lua/$LUA_VERSION" lua_h="$v_dir/lua.h" if [ -f "$lua_h" ] then echo "lua.h found in $lua_h" LUA_INCDIR="$v_dir" else d_dir="$LUA_INCDIR/lua$LUA_VERSION" lua_h="$d_dir/lua.h" if [ -f "$lua_h" ] then echo "lua.h found in $lua_h (Debian/Ubuntu)" LUA_INCDIR="$d_dir" else echo "lua.h not found (looked in $LUA_INCDIR, $v_dir, $d_dir)" die "You may want to use the flag --with-lua or --with-lua-include. See --help." fi fi fi if [ "$LUAROCKS_DOWNLOADER_SET" != "yes" ] then find_helper "downloader helper program" curl wget fetch LUAROCKS_DOWNLOADER=$HELPER fi if [ "$LUAROCKS_MD5CHECKER_SET" != "yes" ] then find_helper "MD5 checksum calculator" md5sum openssl md5 LUAROCKS_MD5CHECKER=$HELPER fi echo_n "Configuring for system... " if uname -s then LUAROCKS_UNAME_S=`uname -s` else die "Could not determine operating system. 'uname -s' failed." fi echo_n "Configuring for architecture... " if uname -m then LUAROCKS_UNAME_M=`uname -m` else die "Could not determine processor architecture. 'uname -m' failed." fi for v in 5.1 5.2 5.3; do if [ "$v" != "$LUA_VERSION" ]; then if [ -e "$PREFIX/share/lua/$v/luarocks/site_config.lua" ]; then LUA_OTHER_VERSION="$v" break fi fi done LUAROCKS_ROCKS_SUBDIR=/lib/luarocks/rocks if [ "$VERSIONED_ROCKS_DIR" = "yes" ] then LUAROCKS_ROCKS_SUBDIR=$LUAROCKS_ROCKS_SUBDIR-$LUA_VERSION echo "Using versioned rocks dir: $PREFIX$LUAROCKS_ROCKS_SUBDIR" elif [ -e "$PREFIX/share/lua/$LUA_VERSION/luarocks/site_config.lua" ] then echo "Existing installation detected." LUAROCKS_ROCKS_SUBDIR=`grep "LUAROCKS_ROCKS_SUBDIR" "$PREFIX/share/lua/$LUA_VERSION/luarocks/site_config.lua" | sed 's,.*=\[\[\(.*\)\]\],\1,'` echo "Using previously configured rocks dir: $PREFIX$LUAROCKS_ROCKS_SUBDIR" elif [ -n "$LUA_OTHER_VERSION" ] then echo "Existing installation detected for other Lua version ($LUA_OTHER_VERSION)." LUAROCKS_ROCKS_SUBDIR=$LUAROCKS_ROCKS_SUBDIR-$LUA_VERSION echo "Using versioned rocks dir: $PREFIX$LUAROCKS_ROCKS_SUBDIR" else echo "Using unversioned rocks dir: $PREFIX$LUAROCKS_ROCKS_SUBDIR" fi if [ "$LUAROCKS_UNAME_S" = Linux ] then GCC_ARCH=`gcc -print-multiarch 2>/dev/null` if [ -n "$GCC_ARCH" -a -d "/usr/lib/$GCC_ARCH" ] then MULTIARCH_SUBDIR="lib/$GCC_ARCH" fi fi if [ -f config.unix ]; then rm -f config.unix fi # Write config echo "Writing configuration..." echo rm -f built cat < config.unix # This file was automatically generated by the configure script. # Run "./configure --help" for details. LUA_VERSION=$LUA_VERSION PREFIX=$PREFIX SYSCONFDIR=$SYSCONFDIR ROCKS_TREE=$ROCKS_TREE LUA_SUFFIX=$LUA_SUFFIX LUA_DIR=$LUA_DIR LUA_DIR_SET=$LUA_DIR_SET LUA_INCDIR=$LUA_INCDIR LUA_LIBDIR=$LUA_LIBDIR LUA_BINDIR=$LUA_BINDIR FORCE_CONFIG=$FORCE_CONFIG LUAROCKS_UNAME_M=$LUAROCKS_UNAME_M LUAROCKS_UNAME_S=$LUAROCKS_UNAME_S LUAROCKS_DOWNLOADER=$LUAROCKS_DOWNLOADER LUAROCKS_MD5CHECKER=$LUAROCKS_MD5CHECKER LUAROCKS_ROCKS_SUBDIR=$LUAROCKS_ROCKS_SUBDIR MULTIARCH_SUBDIR=$MULTIARCH_SUBDIR EOF echo "Installation prefix: $PREFIX" echo "LuaRocks configuration directory: $SYSCONFDIR" echo "Using Lua from: $LUA_DIR" make clean > /dev/null 2> /dev/null echo echo "Done configuring." echo "- Type 'make build' and 'make install':" echo " to install to $PREFIX as usual." echo "- Type 'make bootstrap':" echo " to install LuaRocks in $PREFIX as a rock." echo luarocks-2.2.0+dfsg/install.bat000066400000000000000000000741371241625207600164340ustar00rootroot00000000000000rem=rem --[[ @setlocal& set luafile="%~f0" & if exist "%~f0.bat" set luafile="%~f0.bat" @win32\lua5.1\bin\lua5.1.exe %luafile% %*& exit /b ]] local vars = {} vars.PREFIX = nil vars.VERSION = "2.2" vars.SYSCONFDIR = nil vars.TREE_ROOT = nil vars.TREE_BIN = nil vars.TREE_LMODULE = nil vars.TREE_CMODULE = nil vars.LUA_INTERPRETER = nil vars.LUA_PREFIX = nil vars.LUA_BINDIR = nil vars.LUA_INCDIR = nil vars.LUA_LIBDIR = nil vars.LUA_LIBNAME = nil vars.LUA_VERSION = "5.1" vars.LUA_SHORTV = nil -- "51" -- MinGW does not generate .lib, nor needs it to link, but MSVC does -- so .lib must be listed first to ensure they are found first if present. -- To prevent MSVC trying to link to a .dll, which won't work. vars.LUA_LIB_NAMES = "lua5.1.lib lua51.lib lua5.1.dll lua51.dll liblua.dll.a" vars.LUA_RUNTIME = nil vars.UNAME_M = nil local FORCE = false local FORCE_CONFIG = false local INSTALL_LUA = false local USE_MINGW = false local REGISTRY = true local NOADMIN = false local PROMPT = true local SELFCONTAINED = false --- -- Some helpers -- local pe = assert(loadfile(".\\win32\\pe-parser.lua"))() local function die(message) if message then print(message) end print() print("Failed installing LuaRocks. Run with /? for help.") os.exit(1) end function split_string(str, delim, maxNb) -- Eliminate bad cases... if string.find(str, delim) == nil then return { str } end if maxNb == nil or maxNb < 1 then maxNb = 0 -- No limit end local result = {} local pat = "(.-)" .. delim .. "()" local nb = 0 local lastPos for part, pos in string.gmatch(str, pat) do nb = nb + 1 result[nb] = part lastPos = pos if nb == maxNb then break end end -- Handle the last field if nb ~= maxNb then result[nb + 1] = string.sub(str, lastPos) end return result end local function exec(cmd) --print(cmd) local status = os.execute(cmd) return (status == 0 or status == true) -- compat 5.1/5.2 end local function exists(filename) local cmd = [[.\win32\tools\test -e "]]..filename..[["]] return exec(cmd) end local function mkdir (dir) return exec([[.\win32\tools\mkdir -p "]]..dir..[[" >NUL]]) end -- does the current user have admin priviledges ( = elevated) local function permission() return exec("net session >NUL 2>&1") -- fails if not admin end -- rename file (full path) to backup (name only), appending number if required -- returns the new name (name only) local function backup(filename, backupname) local path = filename:match("(.+)%\\.-$").."\\" local nname = backupname local i = 0 while exists(path..nname) do i = i + 1 nname = backupname..tostring(i) end exec([[REN "]]..filename..[[" "]]..nname..[[" > NUL]]) return nname end -- interpolate string with values from 'vars' table local function S (tmpl) return (tmpl:gsub('%$([%a_][%w_]*)', vars)) end local function print_help() print(S[[ Installs LuaRocks. /P [dir] Where to install LuaRocks. Note that version; $VERSION, will be appended to this path, so "/P c:\luarocks\" will install in "c:\luarocks\$VERSION\" Default is %PROGRAMFILES%\LuaRocks Configuring the destinations: /TREE [dir] Root of the local tree of installed rocks. Default is %PROGRAMFILES%\LuaRocks\systree /SCRIPTS [dir] Where to install commandline scripts installed by rocks. Default is {TREE}\bin. /LUAMOD [dir] Where to install Lua modules installed by rocks. Default is {TREE}\share\lua\{LV}. /CMOD [dir] Where to install c modules installed by rocks. Default is {TREE}\lib\lua\{LV}. /CONFIG [dir] Location where the config file should be installed. Default is to follow /P option /SELFCONTAINED Creates a self contained installation in a single directory given by /P. Sets the /TREE and /CONFIG options to the same location as /P. And does not load registry info with option /NOREG. The only option NOT self contained is the user rock tree, so don't use that if you create a self contained installation. Configuring the Lua interpreter: /LV [version] Lua version to use; either 5.1, 5.2, or 5.3. Default is 5.1 /LUA [dir] Location where Lua is installed - e.g. c:\lua\5.1\ If not provided, the installer will search the system path and some default locations for a valid Lua installation. This is the base directory, the installer will look for subdirectories bin, lib, include. Alternatively these can be specified explicitly using the /INC, /LIB, and /BIN options. /INC [dir] Location of Lua includes - e.g. c:\lua\5.1\include If provided overrides sub directory found using /LUA. /LIB [dir] Location of Lua libraries (.dll/.lib) - e.g. c:\lua\5.1\lib If provided overrides sub directory found using /LUA. /BIN [dir] Location of Lua executables - e.g. c:\lua\5.1\bin If provided overrides sub directory found using /LUA. /L Install LuaRocks' own copy of Lua even if detected, this will always be a 5.1 installation. (/LUA, /INC, /LIB, /BIN cannot be used with /L) Compiler configuration: /MW Use mingw as build system instead of MSVC Other options: /FORCECONFIG Use a single config location. Do not use the LUAROCKS_CONFIG variable or the user's home directory. Useful to avoid conflicts when LuaRocks is embedded within an application. /F Remove installation directory if it already exists. /NOREG Do not load registry info to register '.rockspec' extension with LuaRocks commands (right-click). /NOADMIN The installer requires admin priviledges. If not available it will elevate a new process. Use this switch to prevent elevation, but make sure the destination paths are all accessible for the current user. /Q Do not prompt for confirmation of settings ]]) end -- *********************************************************** -- Option parser -- *********************************************************** local function parse_options(args) for _, option in ipairs(args) do local name = option.name:upper() if name == "/?" then print_help() os.exit(0) elseif name == "/P" then vars.PREFIX = option.value elseif name == "/CONFIG" then vars.SYSCONFDIR = option.value elseif name == "/TREE" then vars.TREE_ROOT = option.value elseif name == "/SCRIPTS" then vars.TREE_BIN = option.value elseif name == "/LUAMOD" then vars.TREE_LMODULE = option.value elseif name == "/CMOD" then vars.TREE_CMODULE = option.value elseif name == "/LV" then vars.LUA_VERSION = option.value elseif name == "/L" then INSTALL_LUA = true elseif name == "/MW" then USE_MINGW = true elseif name == "/LUA" then vars.LUA_PREFIX = option.value elseif name == "/LIB" then vars.LUA_LIBDIR = option.value elseif name == "/INC" then vars.LUA_INCDIR = option.value elseif name == "/BIN" then vars.LUA_BINDIR = option.value elseif name == "/FORCECONFIG" then FORCE_CONFIG = true elseif name == "/F" then FORCE = true elseif name == "/SELFCONTAINED" then SELFCONTAINED = true elseif name == "/NOREG" then REGISTRY = false elseif name == "/NOADMIN" then NOADMIN = true elseif name == "/Q" then PROMPT = false else die("Unrecognized option: " .. name) end end end -- check for combination/required flags local function check_flags() if SELFCONTAINED then if not vars.PREFIX then die("Option /P is required when using /SELFCONTAINED") end if vars.SYSCONFDIR or vars.TREE_ROOT or vars.TREE_BIN or vars.TREE_LMODULE or vars.TREE_CMODULE then die("Cannot combine /TREE, /SCRIPTS, /LUAMOD, /CMOD, or /CONFIG with /SELFCONTAINED") end end if INSTALL_LUA then if vars.LUA_INCDIR or vars.LUA_BINDIR or vars.LUA_LIBDIR or vars.LUA_PREFIX then die("Cannot combine option /L with any of /LUA /BIN /LIB /INC") end if vars.LUA_VERSION ~= "5.1" then die("Bundled Lua version is 5.1, cannot install 5.2") end end if vars.LUA_VERSION ~= "5.1" then if vars.LUA_VERSION == "5.2" then vars.LUA_LIB_NAMES = vars.LUA_LIB_NAMES:gsub("5([%.]?)1", "5%12") elseif vars.LUA_VERSION == "5.3" then vars.LUA_LIB_NAMES = vars.LUA_LIB_NAMES:gsub("5([%.]?)1", "5%13") else die("Bad argument: /LV must either be 5.1, 5.2, or 5.3") end end end -- *********************************************************** -- Detect Lua -- *********************************************************** local function look_for_interpreter (directory) if vars.LUA_BINDIR then -- if LUA_BINDIR is specified, it must be there, otherwise we fail if exists( S"$LUA_BINDIR\\lua$LUA_VERSION.exe" ) then vars.LUA_INTERPRETER = S"lua$LUA_VERSION.exe" print(S" Found $LUA_BINDIR\\$LUA_INTERPRETER") return true elseif exists( S"$LUA_BINDIR\\lua$LUA_SHORTV.exe" ) then vars.LUA_INTERPRETER = S"lua$LUA_SHORTV.exe" print(S" Found $LUA_BINDIR\\$LUA_INTERPRETER") return true elseif exists(S"$LUA_BINDIR\\lua.exe") then vars.LUA_INTERPRETER = "lua.exe" print(S" Found $LUA_BINDIR\\$LUA_INTERPRETER") return true elseif exists(S"$LUA_BINDIR\\luajit.exe") then vars.LUA_INTERPRETER = "luajit.exe" print(S" Found $LUA_BINDIR\\$LUA_INTERPRETER") return true end die(S"Lua executable lua.exe, luajit.exe, lua$LUA_SHORTV.exe or lua$LUA_VERSION.exe not found in $LUA_BINDIR") end for _, e in ipairs{ [[\]], [[\bin\]] } do if exists(directory..e.."\\lua"..vars.LUA_VERSION..".exe") then vars.LUA_INTERPRETER = S"lua$LUA_VERSION.exe" vars.LUA_BINDIR = directory .. e print(" Found ."..e..vars.LUA_INTERPRETER) return true elseif exists(directory..e.."\\lua"..vars.LUA_SHORTV..".exe") then vars.LUA_INTERPRETER = S"lua$LUA_SHORTV.exe" vars.LUA_BINDIR = directory .. e print(" Found ."..e..vars.LUA_INTERPRETER) return true elseif exists(directory..e.."\\lua.exe") then vars.LUA_INTERPRETER = "lua.exe" vars.LUA_BINDIR = directory..e print(" Found ."..e..vars.LUA_INTERPRETER) return true elseif exists(directory..e.."\\luajit.exe") then vars.LUA_INTERPRETER = "luajit.exe" vars.LUA_BINDIR = directory..e print(" Found ."..e..vars.LUA_INTERPRETER) return true end end print(" No Lua interpreter found") return false end local function look_for_link_libraries (directory) if vars.LUA_LIBDIR then for name in vars.LUA_LIB_NAMES:gmatch("[^%s]+") do print(S" checking for $LUA_LIBDIR\\"..name) if exists(vars.LUA_LIBDIR.."\\"..name) then vars.LUA_LIBNAME = name print(" Found "..name) return true end end die(S"link library (one of; $LUA_LIB_NAMES) not found in $LUA_LIBDIR") end for _, e in ipairs{ [[\]], [[\lib\]], [[\bin\]]} do for name in vars.LUA_LIB_NAMES:gmatch("[^%s]+") do print(" checking for "..directory..e.."\\"..name) if exists(directory..e.."\\"..name) then vars.LUA_LIBDIR = directory .. e vars.LUA_LIBNAME = name print(" Found "..name) return true end end end return false end local function look_for_headers (directory) if vars.LUA_INCDIR then print(S" checking for $LUA_INCDIR\\lua.h") if exists(S"$LUA_INCDIR\\lua.h") then print(" Found lua.h") return true end die(S"lua.h not found in $LUA_INCDIR") end for _, e in ipairs{ [[\]], [[\include\]]} do print(" checking for "..directory..e.."\\lua.h") if exists(directory..e.."\\lua.h") then vars.LUA_INCDIR = directory..e print(" Found lua.h") return true end end return false end local function get_runtime() local f vars.LUA_RUNTIME, f = pe.msvcrt(vars.LUA_BINDIR.."\\"..vars.LUA_INTERPRETER) if type(vars.LUA_RUNTIME) ~= "string" then -- analysis failed, issue a warning vars.LUA_RUNTIME = "MSVCR80" print("*** WARNING ***: could not analyse the runtime used, defaulting to "..vars.LUA_RUNTIME) else print(" "..f.." uses "..vars.LUA_RUNTIME..".DLL as runtime") end return true end local function get_architecture() -- detect processor arch interpreter was compiled for local proc = (pe.parse(vars.LUA_BINDIR.."\\"..vars.LUA_INTERPRETER) or {}).Machine if not proc then die("Could not detect processor architecture used in "..vars.LUA_INTERPRETER) end proc = pe.const.Machine[proc] -- collect name from constant value if proc == "IMAGE_FILE_MACHINE_I386" then proc = "x86" else proc = "x86_64" end return proc end local function look_for_lua_install () print("Looking for Lua interpreter") local directories if vars.LUA_PREFIX then directories = { vars.LUA_PREFIX } else -- no prefix given, so use path directories = (os.getenv("PATH",";") or "") local i = 1 while i ~= 0 do directories, i = directories:gsub(";;",";") end --remove all doubles directories = split_string(directories,";") -- if a path element ends with "\bin\" then remove it, as the searcher will check there anyway for i, val in ipairs(directories) do -- remove trailing backslash while val:sub(-1,-1) == "\\" and val:sub(-2,-1) ~= ":\\" do val = val:sub(1,-2) end -- remove trailing 'bin' if val:upper():sub(-4,-1) == "\\BIN" or val:upper():sub(-4,-1) == ":BIN" then val = val:sub(1,-5) end directories[i] = val end -- finaly add some other default paths table.insert(directories, [[c:\lua5.1.2]]) table.insert(directories, [[c:\lua]]) table.insert(directories, [[c:\kepler\1.1]]) end if vars.LUA_BINDIR and vars.LUA_LIBDIR and vars.LUA_INCDIR then if look_for_interpreter(vars.LUA_BINDIR) and look_for_link_libraries(vars.LUA_LIBDIR) and look_for_headers(vars.LUA_INCDIR) then if get_runtime() then print("Runtime check completed, now testing interpreter...") if exec(S[["$LUA_BINDIR\$LUA_INTERPRETER" -v 2>NUL]]) then print(" Ok") return true end print(" Interpreter returned an error, not ok") end end return false end for _, directory in ipairs(directories) do print(" checking " .. directory) if exists(directory) then if look_for_interpreter(directory) then print("Interpreter found, now looking for link libraries...") if look_for_link_libraries(directory) then print("Link library found, now looking for headers...") if look_for_headers(directory) then print("Headers found, checking runtime to use...") if get_runtime() then print("Runtime check completed, now testing interpreter...") if exec(S[["$LUA_BINDIR\$LUA_INTERPRETER" -v 2>NUL]]) then print(" Ok") return true end print(" Interpreter returned an error, not ok") end end end end end end return false end -- *********************************************************** -- Installer script start -- *********************************************************** -- Poor man's command-line parsing local config = {} local with_arg = { -- options followed by an argument, others are flags ["/P"] = true, ["/CONFIG"] = true, ["/TREE"] = true, ["/SCRIPTS"] = true, ["/LUAMOD"] = true, ["/CMOD"] = true, ["/LV"] = true, ["/LUA"] = true, ["/INC"] = true, ["/BIN"] = true, ["/LIB"] = true, } -- reconstruct argument values with spaces and double quotes -- this will be damaged by the batch construction at the start of this file local oarg = arg -- retain old table if #arg > 0 then farg = table.concat(arg, " ") .. " " arg = {} farg = farg:gsub('%"', "") local i = 0 while #farg>0 do i = i + 1 if (farg:sub(1,1) ~= "/") and ((arg[i-1] or ""):sub(1,1) ~= "/") then i = i - 1 -- continued previous arg if i == 0 then i = 1 end end if arg[i] then arg[i] = arg[i] .. " " else arg[i] = "" end local v,r = farg:match("^(.-)%s(.*)$") arg[i], farg = arg[i]..v, r while farg:sub(1,1) == " " do farg = farg:sub(2,-1) end -- remove prefix spaces end end for k,v in pairs(oarg) do if k < 1 then arg[k] = v end end -- copy 0 and negative indexes oarg = nil -- build config option table with name and value elements local i = 1 while i <= #arg do local opt = arg[i] if with_arg[opt:upper()] then local value = arg[i + 1] if not value then die("Missing value for option "..opt) end config[#config + 1] = { name = opt, value = value } i = i + 1 else config[#config + 1] = { name = opt } end i = i + 1 end print(S"LuaRocks $VERSION.x installer.\n") parse_options(config) print([[ ======================== == Checking system... == ======================== ]]) check_flags() if not permission() then if not NOADMIN then -- must elevate the process with admin priviledges if not exec("PowerShell /? >NUL 2>&1") then -- powershell is not available, so error out die("No administrative priviledges detected and cannot auto-elevate. Please run with admin priviledges or use the /NOADMIN switch") end print("Need admin priviledges, now elevating a new process to continue installing...") local runner = os.getenv("TEMP").."\\".."LuaRocks_Installer.bat" local f = io.open(runner, "w") f:write("@echo off\n") f:write("CHDIR /D "..arg[0]:match("(.+)%\\.-$").."\n") -- return to current dir, elevation changes current path f:write('"'..arg[-1]..'" "'..table.concat(arg, '" "', 0)..'"\n') f:write("ECHO Press any key to close this window...\n") f:write("PAUSE > NUL\n") f:write('DEL "'..runner..'"') -- temp batch file deletes itself f:close() -- run the created temp batch file in elevated mode exec("PowerShell -Command (New-Object -com 'Shell.Application').ShellExecute('"..runner.."', '', '', 'runas')\n") print("Now exiting unpriviledged installer") os.exit() -- exit here, the newly created elevated process will do the installing else print("Attempting to install without admin priviledges...") end else print("Admin priviledges available for installing") end vars.PREFIX = vars.PREFIX or os.getenv("PROGRAMFILES")..[[\LuaRocks]] vars.FULL_PREFIX = S"$PREFIX\\$VERSION" vars.BINDIR = vars.FULL_PREFIX vars.LIBDIR = vars.FULL_PREFIX vars.LUADIR = S"$FULL_PREFIX\\lua" vars.INCDIR = S"$FULL_PREFIX\\include" vars.LUA_SHORTV = vars.LUA_VERSION:gsub("%.", "") if INSTALL_LUA then if vars.LUA_VERSION ~= "5.1" then die("Cannot install own copy of Lua because only 5.1 is bundled") end vars.LUA_INTERPRETER = "lua5.1" vars.LUA_BINDIR = vars.BINDIR vars.LUA_LIBDIR = vars.LIBDIR vars.LUA_INCDIR = vars.INCDIR vars.LUA_LIBNAME = "lua5.1.lib" vars.LUA_RUNTIME = "MSVCR80" vars.UNAME_M = "x86" else if not look_for_lua_install() then die("Could not find Lua. See /? for options for specifying the location of Lua, or installing a bundled copy of Lua 5.1.") end vars.UNAME_M = get_architecture() -- can only do when installation was found end local datapath if vars.UNAME_M == "x86" then datapath = os.getenv("PROGRAMFILES") .. [[\LuaRocks]] else -- our target interpreter is 64bit, so the tree (with binaries) should go into 64bit program files datapath = os.getenv("ProgramW6432") .. [[\LuaRocks]] end vars.SYSCONFDIR = vars.SYSCONFDIR or vars.PREFIX vars.TREE_ROOT = vars.TREE_ROOT or datapath..[[\systree]] if SELFCONTAINED then vars.SYSCONFDIR = vars.PREFIX vars.TREE_ROOT = vars.PREFIX..[[\systree]] REGISTRY = false end print(S[[ ========================== == System check results == ========================== Will configure LuaRocks with the following paths: LuaRocks : $FULL_PREFIX Config file : $SYSCONFDIR\config.lua Rocktree : $TREE_ROOT Lua interpreter : $LUA_BINDIR\$LUA_INTERPRETER binaries : $LUA_BINDIR libraries : $LUA_LIBDIR includes : $LUA_INCDIR architecture: $UNAME_M binary link : $LUA_LIBNAME with runtime $LUA_RUNTIME.dll ]]) if PROMPT then print("Press to start installing, or press + to abort. Use install /? for installation options.") io.read() end print([[ ============================ == Installing LuaRocks... == ============================ ]]) -- *********************************************************** -- Install LuaRocks files -- *********************************************************** if FORCE then print(S"Removing $FULL_PREFIX...") exec(S[[RD /S /Q "$FULL_PREFIX"]]) print() end if exists(vars.FULL_PREFIX) then die(S"$FULL_PREFIX exists. Use /F to force removal and reinstallation.") end print(S"Installing LuaRocks in $FULL_PREFIX...") if not exists(vars.BINDIR) then if not mkdir(vars.BINDIR) then die() end end if INSTALL_LUA then -- Copy the included Lua interpreter binaries if not exists(vars.LUA_BINDIR) then mkdir(vars.LUA_BINDIR) end if not exists(vars.LUA_INCDIR) then mkdir(vars.LUA_INCDIR) end exec(S[[COPY win32\lua5.1\bin\*.* "$LUA_BINDIR" >NUL]]) exec(S[[COPY win32\lua5.1\include\*.* "$LUA_INCDIR" >NUL]]) print(S"Installed the LuaRocks bundled Lua interpreter in $LUA_BINDIR") end -- Copy the LuaRocks binaries if not exists(S[[$BINDIR\tools]]) then if not mkdir(S[[$BINDIR\tools]]) then die() end end if not exec(S[[COPY win32\tools\*.* "$BINDIR\tools" >NUL]]) then die() end -- Copy LR bin helper files if not exec(S[[COPY win32\*.* "$BINDIR" >NUL]]) then die() end -- Copy the LuaRocks lua source files if not exists(S[[$LUADIR\luarocks]]) then if not mkdir(S[[$LUADIR\luarocks]]) then die() end end if not exec(S[[XCOPY /S src\luarocks\*.* "$LUADIR\luarocks" >NUL]]) then die() end -- Create start scripts if not exec(S[[COPY src\bin\*.* "$BINDIR" >NUL]]) then die() end for _, c in ipairs{"luarocks", "luarocks-admin"} do -- rename unix-lua scripts to .lua files if not exec( (S[[RENAME "$BINDIR\%s" %s.lua]]):format(c, c) ) then die() end -- create a bootstrap batch file for the lua file, to start them exec(S[[DEL /F /Q "$BINDIR\]]..c..[[.bat" 2>NUL]]) local f = io.open(vars.BINDIR.."\\"..c..".bat", "w") f:write(S[[ @ECHO OFF SETLOCAL SET "LUA_PATH=$LUADIR\?.lua;$LUADIR\?\init.lua;%LUA_PATH%" IF NOT "%LUA_PATH_5_2%"=="" ( SET "LUA_PATH_5_2=$LUADIR\?.lua;$LUADIR\?\init.lua;%LUA_PATH_5_2%" ) IF NOT "%LUA_PATH_5_3%"=="" ( SET "LUA_PATH_5_3=$LUADIR\?.lua;$LUADIR\?\init.lua;%LUA_PATH_5_3%" ) SET "PATH=$BINDIR;%PATH%" "$LUA_BINDIR\$LUA_INTERPRETER" "$BINDIR\]]..c..[[.lua" %* IF NOT "%ERRORLEVEL%"=="2" GOTO EXITLR REM Permission denied error, try and auto elevate... REM already an admin? (checking to prevent loops) NET SESSION >NUL 2>&1 IF "%ERRORLEVEL%"=="0" GOTO EXITLR REM Do we have PowerShell available? PowerShell /? >NUL 2>&1 IF NOT "%ERRORLEVEL%"=="0" GOTO EXITLR :GETTEMPNAME SET TMPFILE=%TEMP%\LuaRocks-Elevator-%RANDOM%.bat IF EXIST "%TMPFILE%" GOTO :GETTEMPNAME ECHO @ECHO OFF > "%TMPFILE%" ECHO CHDIR /D %CD% >> "%TMPFILE%" ECHO ECHO %0 %* >> "%TMPFILE%" ECHO ECHO. >> "%TMPFILE%" ECHO CALL %0 %* >> "%TMPFILE%" ECHO ECHO. >> "%TMPFILE%" ECHO ECHO Press any key to close this window... >> "%TMPFILE%" ECHO PAUSE ^> NUL >> "%TMPFILE%" ECHO DEL "%TMPFILE%" >> "%TMPFILE%" ECHO Now retrying as a priviledged user... PowerShell -Command (New-Object -com 'Shell.Application').ShellExecute('%TMPFILE%', '', '', 'runas') :EXITLR ENDLOCAL ]]) f:close() print(S"Created LuaRocks command: $BINDIR\\"..c..".bat") end -- part below was commented out as its purpose was unclear -- see https://github.com/keplerproject/luarocks/pull/197#issuecomment-30176548 -- configure 'scripts' directory -- if vars.TREE_BIN then -- mkdir(vars.TREE_BIN) -- if not USE_MINGW then -- -- definitly not for MinGW because of conflicting runtimes -- -- but is it ok to do it for others??? -- exec(S[[COPY lua5.1\bin\*.dll "$TREE_BIN" >NUL]]) -- end -- else -- if not USE_MINGW then -- mkdir(S[[$TREE_ROOT\bin]]) -- -- definitly not for MinGW because of conflicting runtimes -- -- but is it ok to do it for others??? -- exec(S[[COPY lua5.1\bin\*.dll "$TREE_ROOT"\bin >NUL]]) -- end -- end -- *********************************************************** -- Configure LuaRocks -- *********************************************************** print() print("Configuring LuaRocks...") -- Create a site-config file if exists(S[[$LUADIR\luarocks\site_config.lua]]) then exec(S[[RENAME "$LUADIR\luarocks\site_config.lua" site_config.lua.bak]]) end local f = io.open(vars.LUADIR.."\\luarocks\\site_config.lua", "w") f:write(S[=[ local site_config = {} site_config.LUA_INCDIR=[[$LUA_INCDIR]] site_config.LUA_LIBDIR=[[$LUA_LIBDIR]] site_config.LUA_BINDIR=[[$LUA_BINDIR]] site_config.LUA_INTERPRETER=[[$LUA_INTERPRETER]] ]=]) if USE_MINGW then f:write("site_config.LUAROCKS_UNAME_S=[[MINGW]]\n") else f:write("site_config.LUAROCKS_UNAME_S=[[WindowsNT]]\n") end f:write(S[=[ site_config.LUAROCKS_UNAME_M=[[$UNAME_M]] site_config.LUAROCKS_SYSCONFIG=[[$SYSCONFDIR\config.lua]] site_config.LUAROCKS_ROCKS_TREE=[[$TREE_ROOT]] site_config.LUAROCKS_PREFIX=[[$PREFIX]] site_config.LUAROCKS_DOWNLOADER=[[wget]] site_config.LUAROCKS_MD5CHECKER=[[md5sum]] ]=]) if FORCE_CONFIG then f:write("site_config.LUAROCKS_FORCE_CONFIG=true\n") end if exists(vars.LUADIR.."\\luarocks\\site_config.lua.bak") then for line in io.lines(vars.LUADIR.."\\luarocks\\site_config.lua.bak", "r") do f:write(line) f:write("\n") end exec(S[[DEL /F /Q "$LUADIR\luarocks\site_config.lua.bak"]]) end f:write("return site_config\n") f:close() print(S[[Created LuaRocks site-config file: $LUADIR\luarocks\site_config.lua]]) -- create config file vars.CONFIG_FILE = vars.SYSCONFDIR.."\\config.lua" if not exists(vars.SYSCONFDIR) then mkdir(vars.SYSCONFDIR) end if exists(vars.CONFIG_FILE) then local nname = backup(vars.CONFIG_FILE, "config.bak") print("***************") print(S"*** WARNING *** LuaRocks config file already exists: '$CONFIG_FILE'. The old file has been renamed to '"..nname.."'") print("***************") end local f = io.open(vars.CONFIG_FILE, "w") f:write([=[ rocks_trees = { ]=]) if FORCE_CONFIG then f:write(" home..[[/luarocks]],\n") end f:write(S" { name = [[user]],\n") f:write(S" root = home..[[/luarocks]],\n") f:write(S" },\n") f:write(S" { name = [[system]],\n") f:write(S" root = [[$TREE_ROOT]],\n") if vars.TREE_BIN then f:write(S" bin_dir = [[$TREE_BIN]],\n") end if vars.TREE_CMODULE then f:write(S" lib_dir = [[$TREE_CMODULE]],\n") end if vars.TREE_LMODULE then f:write(S" lua_dir = [[$TREE_LMODULE]],\n") end f:write(S" },\n") f:write("}\n") f:write("variables = {\n") if USE_MINGW and vars.LUA_RUNTIME == "MSVCRT" then f:write(" MSVCRT = 'm', -- make MinGW use MSVCRT.DLL as runtime\n") else f:write(" MSVCRT = '"..vars.LUA_RUNTIME.."',\n") end f:write(S" LUALIB = '$LUA_LIBNAME'\n") f:write("}\n") f:write("verbose = false -- set to 'true' to enable verbose output\n") f:close() print(S"Created LuaRocks config file: $CONFIG_FILE") print() print("Creating rocktrees...") if not exists(vars.TREE_ROOT) then mkdir(vars.TREE_ROOT) print(S[[Created system rocktree : "$TREE_ROOT"]]) else print(S[[System rocktree exists : "$TREE_ROOT"]]) end vars.APPDATA = os.getenv("APPDATA") vars.LOCAL_TREE = vars.APPDATA..[[\LuaRocks]] if not exists(vars.LOCAL_TREE) then mkdir(vars.LOCAL_TREE) print(S[[Created local user rocktree: "$LOCAL_TREE"]]) else print(S[[Local user rocktree exists : "$LOCAL_TREE"]]) end -- Load registry information if REGISTRY then -- expand template with correct path information print() print([[Loading registry information for ".rockspec" files]]) exec( S[[win32\lua5.1\bin\lua5.1.exe "$FULL_PREFIX\LuaRocks.reg.lua" "$FULL_PREFIX\LuaRocks.reg.template"]] ) exec( S[[regedit /S "$FULL_PREFIX\\LuaRocks.reg"]] ) end -- *********************************************************** -- Cleanup -- *********************************************************** -- remove regsitry related files, no longer needed exec( S[[del "$FULL_PREFIX\LuaRocks.reg.*" >NUL]] ) -- remove pe-parser module exec( S[[del "$FULL_PREFIX\pe-parser.lua" >NUL]] ) -- *********************************************************** -- Exit handlers -- *********************************************************** vars.TREE_BIN = vars.TREE_BIN or vars.TREE_ROOT..[[\bin]] vars.TREE_LMODULE = vars.TREE_LMODULE or vars.TREE_ROOT..[[\share\lua\]]..vars.LUA_VERSION vars.TREE_CMODULE = vars.TREE_CMODULE or vars.TREE_ROOT..[[\lib\lua\]]..vars.LUA_VERSION print(S[[ ============================ == LuaRocks is installed! == ============================ You may want to add the following elements to your paths; Lua interpreter; PATH : $LUA_BINDIR PATHEXT : .LUA LuaRocks; PATH : $FULL_PREFIX LUA_PATH : $FULL_PREFIX\lua\?.lua;$FULL_PREFIX\lua\?\init.lua Local user rocktree (Note: %APPDATA% is user dependent); PATH : %APPDATA%\LuaRocks\bin LUA_PATH : %APPDATA%\LuaRocks\share\lua\$LUA_VERSION\?.lua;%APPDATA%\LuaRocks\share\lua\$LUA_VERSION\?\init.lua LUA_CPATH: %APPDATA%\LuaRocks\lib\lua\$LUA_VERSION\?.dll System rocktree PATH : $TREE_BIN LUA_PATH : $TREE_LMODULE\?.lua;$TREE_LMODULE\?\init.lua LUA_CPATH: $TREE_CMODULE\?.dll Note that the %APPDATA% element in the paths above is user specific and it MUST be replaced by its actual value. For the current user that value is: $APPDATA. ]]) os.exit(0) luarocks-2.2.0+dfsg/makedist000077500000000000000000000027311241625207600160140ustar00rootroot00000000000000#!/bin/sh if ! [ "$1" ] then echo "usage: $0 " exit 1 fi if ! [ -d ".git" ] then echo "Should be run inside a git repo dir." exit 1 fi make clean || exit 1 grep -q "\"$1\"" rockspec || { echo echo "Version in rockspec is incorrect. Please fix it." exit 1 } grep -q "program_version = \"$1\"" src/luarocks/cfg.lua || { echo echo "Version in src/luarocks/cfg.lua is incorrect. Please fix it." exit 1 } out="luarocks-$1" rm -rf "$out" mkdir "$out" rm -f "missing_ref" git ls-files | while read i do if [ -f "$i" ] then dir=`dirname $i` mkdir -p "$out/$dir" cp "$i" "$out/$dir" if echo "$i" | grep -v "/bin/" | grep -q "^src/" then grep -qw `basename "$i"` Makefile || { echo "Missing ref in makefile: $i" touch "missing_ref" exit 1 } fi fi done if [ -e "missing_ref" ] then rm -f "missing_ref" exit 1 fi rm -rf "release-unix" "release-windows" "$out.tar.gz" "$out-win32.zip" mkdir "release-unix" cp -a "$out" "release-unix" mkdir "release-windows" mv "$out" "release-windows/$out-win32" cd "release-unix/$out" rm -rf makedist install.bat COPYING_lua COPYING_7z COPYING_win win32 lfw .travis.yml .gitignore cd .. tar czvpf ../"$out.tar.gz" "$out" cd .. rm -rf "release-unix" cd "release-windows/$out-win32" rm -rf makedist Makefile configure lfw .travis.yml .gitignore cd .. zip -r ../"$out-win32.zip" "$out-win32" cd .. rm -rf "release-windows" luarocks-2.2.0+dfsg/rockspec000066400000000000000000000020431241625207600160150ustar00rootroot00000000000000package = "LuaRocks" local VER = "2.2.0" local REV = "1" version = VER.."-"..REV description = { summary = "A deployment and management system for Lua modules.", detailed = [[ LuaRocks allows you to install Lua modules as self-contained packages called "rocks", which also contain version dependency information. This information is used both during installation, so that when one rock is requested all rocks it depends on are installed as well, and at run time, so that when a module is required, the correct version is loaded. LuaRocks supports both local and remote repositories, and multiple local rocks trees. ]], license = "MIT/X11", homepage = "http://www.luarocks.org", maintainer = "Hisham Muhammad" } dependencies = { "lua >= 5.1" } source = { url = "http://luarocks.org/releases/luarocks-"..VER..".tar.gz", } build = { type = "make", install_target = "install_rock", build_pass=false, install_variables = { BINDIR="$(BINDIR)", LUADIR="$(LUADIR)" } } luarocks-2.2.0+dfsg/src/000077500000000000000000000000001241625207600150515ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/bin/000077500000000000000000000000001241625207600156215ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/bin/luarocks000077500000000000000000000015221241625207600173720ustar00rootroot00000000000000#!/usr/bin/env lua -- this should be loaded first. local cfg = require("luarocks.cfg") local loader = require("luarocks.loader") local command_line = require("luarocks.command_line") program_description = "LuaRocks main command-line interface" commands = { help = "luarocks.help", pack = "luarocks.pack", unpack = "luarocks.unpack", build = "luarocks.build", install = "luarocks.install", search = "luarocks.search", list = "luarocks.list", remove = "luarocks.remove", make = "luarocks.make", download = "luarocks.download", path = "luarocks.path_cmd", show = "luarocks.show", new_version = "luarocks.new_version", lint = "luarocks.lint", write_rockspec = "luarocks.write_rockspec", purge = "luarocks.purge", doc = "luarocks.doc", upload = "luarocks.upload", } command_line.run_command(...) luarocks-2.2.0+dfsg/src/bin/luarocks-admin000077500000000000000000000007411241625207600204620ustar00rootroot00000000000000#!/usr/bin/env lua -- this should be loaded first. local cfg = require("luarocks.cfg") local loader = require("luarocks.loader") local command_line = require("luarocks.command_line") program_description = "LuaRocks repository administration interface" commands = { help = "luarocks.help", make_manifest = "luarocks.make_manifest", add = "luarocks.add", remove = "luarocks.admin_remove", refresh_cache = "luarocks.refresh_cache", } command_line.run_command(...) luarocks-2.2.0+dfsg/src/luarocks/000077500000000000000000000000001241625207600166745ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/add.lua000066400000000000000000000101671241625207600201340ustar00rootroot00000000000000 --- Module implementing the luarocks-admin "add" command. -- Adds a rock or rockspec to a rocks server. --module("luarocks.add", package.seeall) local add = {} package.loaded["luarocks.add"] = add local cfg = require("luarocks.cfg") local util = require("luarocks.util") local dir = require("luarocks.dir") local manif = require("luarocks.manif") local index = require("luarocks.index") local fs = require("luarocks.fs") local cache = require("luarocks.cache") add.help_summary = "Add a rock or rockspec to a rocks server." add.help_arguments = "[--server=] [--no-refresh] {|...}" add.help = [[ Arguments are local files, which may be rockspecs or rocks. The flag --server indicates which server to use. If not given, the default server set in the upload_server variable from the configuration file is used instead. The flag --no-refresh indicates the local cache should not be refreshed prior to generation of the updated manifest. ]] local function add_files_to_server(refresh, rockfiles, server, upload_server) assert(type(refresh) == "boolean" or not refresh) assert(type(rockfiles) == "table") assert(type(server) == "string") assert(type(upload_server) == "table" or not upload_server) local download_url, login_url = cache.get_server_urls(server, upload_server) local at = fs.current_dir() local refresh_fn = refresh and cache.refresh_local_cache or cache.split_server_url local local_cache, protocol, server_path, user, password = refresh_fn(server, download_url, cfg.upload_user, cfg.upload_password) if not local_cache then return nil, protocol end if protocol == "file" then return nil, "Server "..server.." is not recognized, check your configuration." end if not login_url then login_url = protocol.."://"..server_path end local ok, err = fs.change_dir(at) if not ok then return nil, err end local files = {} for i, rockfile in ipairs(rockfiles) do if fs.exists(rockfile) then util.printout("Copying file "..rockfile.." to "..local_cache.."...") local absolute = fs.absolute_name(rockfile) fs.copy(absolute, local_cache) table.insert(files, dir.base_name(absolute)) else util.printerr("File "..rockfile.." not found") end end if #files == 0 then return nil, "No files found" end local ok, err = fs.change_dir(local_cache) if not ok then return nil, err end util.printout("Updating manifest...") manif.make_manifest(local_cache, "one", true) manif.zip_manifests() util.printout("Updating index.html...") index.make_index(local_cache) local login_info = "" if user then login_info = " -u "..user end if password then login_info = login_info..":"..password end if not login_url:match("/$") then login_url = login_url .. "/" end table.insert(files, "index.html") table.insert(files, "manifest") for ver in util.lua_versions() do table.insert(files, "manifest-"..ver) table.insert(files, "manifest-"..ver..".zip") end -- TODO abstract away explicit 'curl' call local cmd if protocol == "rsync" then local srv, path = server_path:match("([^/]+)(/.+)") cmd = cfg.variables.RSYNC.." "..cfg.variables.RSYNCFLAGS.." -e ssh "..local_cache.."/ "..user.."@"..srv..":"..path.."/" elseif upload_server and upload_server.sftp then local part1, part2 = upload_server.sftp:match("^([^/]*)/(.*)$") cmd = cfg.variables.SCP.." "..table.concat(files, " ").." "..user.."@"..part1..":/"..part2 else cmd = cfg.variables.CURL.." "..login_info.." -T '{"..table.concat(files, ",").."}' "..login_url end util.printout(cmd) fs.execute(cmd) return true end function add.run(...) local files = { util.parse_flags(...) } local flags = table.remove(files, 1) if #files < 1 then return nil, "Argument missing. "..util.see_help("add", "luarocks-admin") end local server, server_table = cache.get_upload_server(flags["server"]) if not server then return nil, server_table end return add_files_to_server(not flags["no-refresh"], files, server, server_table) end return add luarocks-2.2.0+dfsg/src/luarocks/admin_remove.lua000066400000000000000000000064021241625207600220460ustar00rootroot00000000000000 --- Module implementing the luarocks-admin "remove" command. -- Removes a rock or rockspec from a rocks server. --module("luarocks.admin_remove", package.seeall) local admin_remove = {} package.loaded["luarocks.admin_remove"] = admin_remove local cfg = require("luarocks.cfg") local util = require("luarocks.util") local dir = require("luarocks.dir") local manif = require("luarocks.manif") local index = require("luarocks.index") local fs = require("luarocks.fs") local cache = require("luarocks.cache") admin_remove.help_summary = "Remove a rock or rockspec from a rocks server." admin_remove.help_arguments = "[--server=] [--no-refresh] {|...}" admin_remove.help = [[ Arguments are local files, which may be rockspecs or rocks. The flag --server indicates which server to use. If not given, the default server set in the upload_server variable from the configuration file is used instead. The flag --no-refresh indicates the local cache should not be refreshed prior to generation of the updated manifest. ]] local function remove_files_from_server(refresh, rockfiles, server, upload_server) assert(type(refresh) == "boolean" or not refresh) assert(type(rockfiles) == "table") assert(type(server) == "string") assert(type(upload_server) == "table" or not upload_server) local download_url, login_url = cache.get_server_urls(server, upload_server) local at = fs.current_dir() local refresh_fn = refresh and cache.refresh_local_cache or cache.split_server_url local local_cache, protocol, server_path, user, password = refresh_fn(server, download_url, cfg.upload_user, cfg.upload_password) if not local_cache then return nil, protocol end if protocol ~= "rsync" then return nil, "This command requires 'rsync', check your configuration." end local ok, err = fs.change_dir(at) if not ok then return nil, err end local nr_files = 0 for i, rockfile in ipairs(rockfiles) do local basename = dir.base_name(rockfile) local file = dir.path(local_cache, basename) util.printout("Removing file "..file.."...") fs.delete(file) if not fs.exists(file) then nr_files = nr_files + 1 else util.printerr("Failed removing "..file) end end if nr_files == 0 then return nil, "No files removed." end local ok, err = fs.change_dir(local_cache) if not ok then return nil, err end util.printout("Updating manifest...") manif.make_manifest(local_cache, "one", true) util.printout("Updating index.html...") index.make_index(local_cache) local srv, path = server_path:match("([^/]+)(/.+)") local cmd = cfg.variables.RSYNC.." "..cfg.variables.RSYNCFLAGS.." --delete -e ssh "..local_cache.."/ "..user.."@"..srv..":"..path.."/" util.printout(cmd) fs.execute(cmd) return true end function admin_remove.run(...) local files = { util.parse_flags(...) } local flags = table.remove(files, 1) if #files < 1 then return nil, "Argument missing. "..util.see_help("remove", "luarocks-admin") end local server, server_table = cache.get_upload_server(flags["server"]) if not server then return nil, server_table end return remove_files_from_server(not flags["no-refresh"], files, server, server_table) end return admin_remove luarocks-2.2.0+dfsg/src/luarocks/build.lua000066400000000000000000000355101241625207600205020ustar00rootroot00000000000000 --- Module implementing the LuaRocks "build" command. -- Builds a rock, compiling its C parts if any. --module("luarocks.build", package.seeall) local build = {} package.loaded["luarocks.build"] = build local pack = require("luarocks.pack") local path = require("luarocks.path") local util = require("luarocks.util") local repos = require("luarocks.repos") local fetch = require("luarocks.fetch") local fs = require("luarocks.fs") local dir = require("luarocks.dir") local deps = require("luarocks.deps") local manif = require("luarocks.manif") local remove = require("luarocks.remove") local cfg = require("luarocks.cfg") build.help_summary = "Build/compile a rock." build.help_arguments = "[--pack-binary-rock] [--keep] {|| []}" build.help = [[ Build and install a rock, compiling its C parts if any. Argument may be a rockspec file, a source rock file or the name of a rock to be fetched from a repository. --pack-binary-rock Do not install rock. Instead, produce a .rock file with the contents of compilation in the current directory. --keep Do not remove previously installed versions of the rock after building a new one. This behavior can be made permanent by setting keep_other_versions=true in the configuration file. --branch= Override the `source.branch` field in the loaded rockspec. Allows to specify a different branch to fetch. Particularly for SCM rocks. ]]..util.deps_mode_help() --- Install files to a given location. -- Takes a table where the array part is a list of filenames to be copied. -- In the hash part, other keys, if is_module_path is set, are identifiers -- in Lua module format, to indicate which subdirectory the file should be -- copied to. For example, install_files({["foo.bar"] = "src/bar.lua"}, "boo") -- will copy src/bar.lua to boo/foo. -- @param files table or nil: A table containing a list of files to copy in -- the format described above. If nil is passed, this function is a no-op. -- Directories should be delimited by forward slashes as in internet URLs. -- @param location string: The base directory files should be copied to. -- @param is_module_path boolean: True if string keys in files should be -- interpreted as dotted module paths. -- @return boolean or (nil, string): True if succeeded or -- nil and an error message. local function install_files(files, location, is_module_path) assert(type(files) == "table" or not files) assert(type(location) == "string") if files then for k, file in pairs(files) do local dest = location local filename = dir.base_name(file) if type(k) == "string" then local modname = k if is_module_path then dest = dir.path(location, path.module_to_path(modname)) local ok, err = fs.make_dir(dest) if not ok then return nil, err end if filename:match("%.lua$") then local basename = modname:match("([^.]+)$") local baseinfo = filename:gsub("%.lua$", "") if basename ~= baseinfo then filename = basename..".lua" end end else dest = dir.path(location, dir.dir_name(modname)) local ok, err = fs.make_dir(dest) if not ok then return nil, err end filename = dir.base_name(modname) end else local ok, err = fs.make_dir(dest) if not ok then return nil, err end end local ok = fs.copy(dir.path(file), dir.path(dest, filename)) if not ok then return nil, "Failed copying "..file end end end return true end --- Write to the current directory the contents of a table, -- where each key is a file name and its value is the file content. -- @param files table: The table of files to be written. local function extract_from_rockspec(files) for name, content in pairs(files) do local fd = io.open(dir.path(fs.current_dir(), name), "w+") fd:write(content) fd:close() end end --- Applies patches inlined in the build.patches section -- and extracts files inlined in the build.extra_files section -- of a rockspec. -- @param rockspec table: A rockspec table. -- @return boolean or (nil, string): True if succeeded or -- nil and an error message. function build.apply_patches(rockspec) assert(type(rockspec) == "table") local build_spec = rockspec.build if build_spec.extra_files then extract_from_rockspec(build_spec.extra_files) end if build_spec.patches then extract_from_rockspec(build_spec.patches) for patch, patchdata in util.sortedpairs(build_spec.patches) do util.printout("Applying patch "..patch.."...") local ok, err = fs.apply_patch(tostring(patch), patchdata) if not ok then return nil, "Failed applying patch "..patch end end end return true end local function install_default_docs(name, version) local patterns = { "readme", "license", "copying" } local dest = dir.path(path.install_dir(name, version), "doc") local has_dir = false for name in fs.dir() do for _, pattern in ipairs(patterns) do if name:lower():match("^"..pattern) then if not has_dir then fs.make_dir(dest) has_dir = true end fs.copy(name, dest) break end end end end --- Build and install a rock given a rockspec. -- @param rockspec_file string: local or remote filename of a rockspec. -- @param need_to_fetch boolean: true if sources need to be fetched, -- false if the rockspec was obtained from inside a source rock. -- @param minimal_mode boolean: true if there's no need to fetch, -- unpack or change dir (this is used by "luarocks make"). Implies -- need_to_fetch = false. -- @param deps_mode string: Dependency mode: "one" for the current default tree, -- "all" for all trees, "order" for all trees with priority >= the current default, -- "none" for no trees. -- @return (string, string) or (nil, string, [string]): Name and version of -- installed rock if succeeded or nil and an error message followed by an error code. function build.build_rockspec(rockspec_file, need_to_fetch, minimal_mode, deps_mode) assert(type(rockspec_file) == "string") assert(type(need_to_fetch) == "boolean") local rockspec, err, errcode = fetch.load_rockspec(rockspec_file) if err then return nil, err, errcode elseif not rockspec.build then return nil, "Rockspec error: build table not specified" elseif not rockspec.build.type then return nil, "Rockspec error: build type not specified" end if deps_mode == "none" then util.printerr("Warning: skipping dependency checks.") else local ok, err, errcode = deps.fulfill_dependencies(rockspec, deps_mode) if err then return nil, err, errcode end end local ok, err, errcode = deps.check_external_deps(rockspec, "build") if err then return nil, err, errcode end local name, version = rockspec.name, rockspec.version if repos.is_installed(name, version) then repos.delete_version(name, version) end if not minimal_mode then local _, source_dir if need_to_fetch then ok, source_dir, errcode = fetch.fetch_sources(rockspec, true) if not ok then return nil, source_dir, errcode end local ok, err = fs.change_dir(source_dir) if not ok then return nil, err end elseif rockspec.source.file then local ok, err = fs.unpack_archive(rockspec.source.file) if not ok then return nil, err end end fs.change_dir(rockspec.source.dir) end local dirs = { lua = { name = path.lua_dir(name, version), is_module_path = true }, lib = { name = path.lib_dir(name, version), is_module_path = true }, conf = { name = path.conf_dir(name, version), is_module_path = false }, bin = { name = path.bin_dir(name, version), is_module_path = false }, } for _, d in pairs(dirs) do local ok, err = fs.make_dir(d.name) if not ok then return nil, err end end local rollback = util.schedule_function(function() fs.delete(path.install_dir(name, version)) fs.remove_dir_if_empty(path.versions_dir(name)) end) local build_spec = rockspec.build if not minimal_mode then ok, err = build.apply_patches(rockspec) if err then return nil, err end end if build_spec.type ~= "none" then -- Temporary compatibility if build_spec.type == "module" then util.printout("Do not use 'module' as a build type. Use 'builtin' instead.") build_spec.type = "builtin" end if cfg.accepted_build_types and util.array_contains(cfg.accepted_build_types, build_spec.type) then return nil, "This rockspec uses the '"..build_spec.type.."' build type, which is blocked by the 'accepted_build_types' setting in your LuaRocks configuration." end local build_type ok, build_type = pcall(require, "luarocks.build." .. build_spec.type) if not ok or not type(build_type) == "table" then return nil, "Failed initializing build back-end for build type '"..build_spec.type.."': "..build_type end ok, err = build_type.run(rockspec) if not ok then return nil, "Build error: " .. err end end if build_spec.install then for id, install_dir in pairs(dirs) do ok, err = install_files(build_spec.install[id], install_dir.name, install_dir.is_module_path) if not ok then return nil, err end end end local copy_directories = build_spec.copy_directories local copying_default = false if not copy_directories then copy_directories = {"doc"} copying_default = true end local any_docs = false for _, copy_dir in pairs(copy_directories) do if fs.is_dir(copy_dir) then local dest = dir.path(path.install_dir(name, version), copy_dir) fs.make_dir(dest) fs.copy_contents(copy_dir, dest) any_docs = true else if not copying_default then return nil, "Directory '"..copy_dir.."' not found" end end end if not any_docs then install_default_docs(name, version) end for _, d in pairs(dirs) do fs.remove_dir_if_empty(d.name) end fs.pop_dir() fs.copy(rockspec.local_filename, path.rockspec_file(name, version)) if need_to_fetch then fs.pop_dir() end ok, err = manif.make_rock_manifest(name, version) if err then return nil, err end ok, err = repos.deploy_files(name, version, repos.should_wrap_bin_scripts(rockspec)) if err then return nil, err end util.remove_scheduled_function(rollback) rollback = util.schedule_function(function() repos.delete_version(name, version) end) ok, err = repos.run_hook(rockspec, "post_install") if err then return nil, err end ok, err = manif.update_manifest(name, version, nil, deps_mode) if err then return nil, err end local license = "" if rockspec.description and rockspec.description.license then license = ("(license: "..rockspec.description.license..")") end local root_dir = path.root_dir(cfg.rocks_dir) util.printout(name.." "..version.." is now built and installed in "..root_dir.." "..license) util.printout() util.remove_scheduled_function(rollback) return name, version end --- Build and install a rock. -- @param rock_file string: local or remote filename of a rock. -- @param need_to_fetch boolean: true if sources need to be fetched, -- false if the rockspec was obtained from inside a source rock. -- @param deps_mode: string: Which trees to check dependencies for: -- "one" for the current default tree, "all" for all trees, -- "order" for all trees with priority >= the current default, "none" for no trees. -- @return boolean or (nil, string, [string]): True if build was successful, -- or false and an error message and an optional error code. function build.build_rock(rock_file, need_to_fetch, deps_mode) assert(type(rock_file) == "string") assert(type(need_to_fetch) == "boolean") local unpack_dir, err, errcode = fetch.fetch_and_unpack_rock(rock_file) if not unpack_dir then return nil, err, errcode end local rockspec_file = path.rockspec_name_from_rock(rock_file) local ok, err = fs.change_dir(unpack_dir) if not ok then return nil, err end local ok, err, errcode = build.build_rockspec(rockspec_file, need_to_fetch, false, deps_mode) fs.pop_dir() return ok, err, errcode end local function do_build(name, version, deps_mode) if name:match("%.rockspec$") then return build.build_rockspec(name, true, false, deps_mode) elseif name:match("%.src%.rock$") then return build.build_rock(name, false, deps_mode) elseif name:match("%.all%.rock$") then local install = require("luarocks.install") return install.install_binary_rock(name, deps_mode) elseif name:match("%.rock$") then return build.build_rock(name, true, deps_mode) elseif not name:match(dir.separator) then local search = require("luarocks.search") return search.act_on_src_or_rockspec(build.run, name:lower(), version, deps.deps_mode_to_flag(deps_mode)) end return nil, "Don't know what to do with "..name end --- Driver function for "build" command. -- @param name string: A local or remote rockspec or rock file. -- If a package name is given, forwards the request to "search" and, -- if returned a result, installs the matching rock. -- @param version string: When passing a package name, a version number may -- also be given. -- @return boolean or (nil, string, exitcode): True if build was successful; nil and an -- error message otherwise. exitcode is optionally returned. function build.run(...) local flags, name, version = util.parse_flags(...) if type(name) ~= "string" then return nil, "Argument missing. "..util.see_help("build") end assert(type(version) == "string" or not version) if flags["pack-binary-rock"] then return pack.pack_binary_rock(name, version, do_build, name, version, deps.get_deps_mode(flags)) else local ok, err = fs.check_command_permissions(flags) if not ok then return nil, err, cfg.errorcodes.PERMISSIONDENIED end ok, err = do_build(name, version, deps.get_deps_mode(flags)) if not ok then return nil, err end local name, version = ok, err if (not flags["keep"]) and not cfg.keep_other_versions then local ok, err = remove.remove_other_versions(name, version, flags["force"]) if not ok then util.printerr(err) end end return name, version end end return build luarocks-2.2.0+dfsg/src/luarocks/build/000077500000000000000000000000001241625207600177735ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/build/builtin.lua000066400000000000000000000250741241625207600221540ustar00rootroot00000000000000 --- A builtin build system: back-end to provide a portable way of building C-based Lua modules. --module("luarocks.build.builtin", package.seeall) local builtin = {} local unpack = unpack or table.unpack local fs = require("luarocks.fs") local path = require("luarocks.path") local util = require("luarocks.util") local cfg = require("luarocks.cfg") local dir = require("luarocks.dir") --- Run a command displaying its execution on standard output. -- @return boolean: true if command succeeds (status code 0), false -- otherwise. local function execute(...) io.stdout:write(table.concat({...}, " ").."\n") return fs.execute(...) end --- Makes an RC file with an embedded Lua script, for building .exes on Windows -- @return nil if could open files, error otherwise local function make_rc(luafilename, rcfilename) --TODO EXEWRAPPER local rcfile = io.open(rcfilename, "w") if not rcfile then error("Could not open "..rcfilename.." for writing.") end rcfile:write("STRINGTABLE\r\nBEGIN\r\n") local i = 1 for line in io.lines(luafilename) do if not line:match("^#!") then rcfile:write(i .. " \"") line = line:gsub("\\", "\\\\"):gsub('"', '""'):gsub("[\r\n]+", "") rcfile:write(line .. "\\r\\n\"\r\n") i = i + 1 end end rcfile:write("END\r\n") rcfile:close() end --- Driver function for the builtin build back-end. -- @param rockspec table: the loaded rockspec. -- @return boolean or (nil, string): true if no errors ocurred, -- nil and an error message otherwise. function builtin.run(rockspec) assert(type(rockspec) == "table") local compile_object, compile_library, compile_wrapper_binary --TODO EXEWRAPPER local build = rockspec.build local variables = rockspec.variables local function add_flags(extras, flag, flags) if flags then if type(flags) ~= "table" then flags = { tostring(flags) } end util.variable_substitutions(flags, variables) for _, v in ipairs(flags) do table.insert(extras, flag:format(v)) end end end if cfg.is_platform("mingw32") then compile_object = function(object, source, defines, incdirs) local extras = {} add_flags(extras, "-D%s", defines) add_flags(extras, "-I%s", incdirs) return execute(variables.CC.." "..variables.CFLAGS, "-c", "-o", object, "-I"..variables.LUA_INCDIR, source, unpack(extras)) end compile_library = function(library, objects, libraries, libdirs, name) local extras = { unpack(objects) } add_flags(extras, "-L%s", libdirs) add_flags(extras, "-l%s", libraries) extras[#extras+1] = dir.path(variables.LUA_LIBDIR, variables.LUALIB) extras[#extras+1] = "-l" .. (variables.MSVCRT or "m") local ok = execute(variables.LD.." "..variables.LIBFLAG, "-o", library, unpack(extras)) return ok end compile_wrapper_binary = function(fullname, name) --TODO EXEWRAPPER local fullbasename = fullname:gsub("%.lua$", ""):gsub("/", "\\") local basename = name:gsub("%.lua$", ""):gsub("/", "\\") local rcname = basename..".rc" local resname = basename..".o" local wrapname = basename..".exe" make_rc(fullname, fullbasename..".rc") local ok = execute(variables.RC, "-o", resname, rcname) if not ok then return ok end ok = execute(variables.CC.." "..variables.CFLAGS, "-I"..variables.LUA_INCDIR, "-o", wrapname, resname, variables.WRAPPER, dir.path(variables.LUA_LIBDIR, variables.LUALIB), "-l" .. (variables.MSVCRT or "m"), "-luser32") return ok, wrapname end elseif cfg.is_platform("win32") then compile_object = function(object, source, defines, incdirs) local extras = {} add_flags(extras, "-D%s", defines) add_flags(extras, "-I%s", incdirs) return execute(variables.CC.." "..variables.CFLAGS, "-c", "-Fo"..object, "-I"..variables.LUA_INCDIR, source, unpack(extras)) end compile_library = function(library, objects, libraries, libdirs, name) local extras = { unpack(objects) } add_flags(extras, "-libpath:%s", libdirs) add_flags(extras, "%s.lib", libraries) local basename = dir.base_name(library):gsub(".[^.]*$", "") local deffile = basename .. ".def" local def = io.open(dir.path(fs.current_dir(), deffile), "w+") def:write("EXPORTS\n") def:write("luaopen_"..name:gsub("%.", "_").."\n") def:close() local ok = execute(variables.LD, "-dll", "-def:"..deffile, "-out:"..library, dir.path(variables.LUA_LIBDIR, variables.LUALIB), unpack(extras)) local basedir = "" if name:find("%.") ~= nil then basedir = name:gsub("%.%w+$", "\\") basedir = basedir:gsub("%.", "\\") end local manifestfile = basedir .. basename..".dll.manifest" if ok and fs.exists(manifestfile) then ok = execute(variables.MT, "-manifest", manifestfile, "-outputresource:"..basedir..basename..".dll;2") end return ok end compile_wrapper_binary = function(fullname, name) --TODO EXEWRAPPER local fullbasename = fullname:gsub("%.lua$", ""):gsub("/", "\\") local basename = name:gsub("%.lua$", ""):gsub("/", "\\") local object = basename..".obj" local rcname = basename..".rc" local resname = basename..".res" local wrapname = basename..".exe" make_rc(fullname, fullbasename..".rc") local ok = execute(variables.RC, "-r", "-fo"..resname, rcname) if not ok then return ok end ok = execute(variables.CC.." "..variables.CFLAGS, "-c", "-Fo"..object, "-I"..variables.LUA_INCDIR, variables.WRAPPER) if not ok then return ok end ok = execute(variables.LD, "-out:"..wrapname, resname, object, dir.path(variables.LUA_LIBDIR, variables.LUALIB), "user32.lib") local manifestfile = wrapname..".manifest" if ok and fs.exists(manifestfile) then ok = execute(variables.MT, "-manifest", manifestfile, "-outputresource:"..wrapname..";1") end return ok, wrapname end else compile_object = function(object, source, defines, incdirs) local extras = {} add_flags(extras, "-D%s", defines) add_flags(extras, "-I%s", incdirs) return execute(variables.CC.." "..variables.CFLAGS, "-I"..variables.LUA_INCDIR, "-c", source, "-o", object, unpack(extras)) end compile_library = function (library, objects, libraries, libdirs) local extras = { unpack(objects) } add_flags(extras, "-L%s", libdirs) if cfg.gcc_rpath then add_flags(extras, "-Wl,-rpath,%s:", libdirs) end add_flags(extras, "-l%s", libraries) if cfg.is_platform("cygwin") then add_flags(extras, "-l%s", {"lua"}) end return execute(variables.LD.." "..variables.LIBFLAG, "-o", library, "-L"..variables.LUA_LIBDIR, unpack(extras)) end compile_wrapper_binary = function(fullname, name) return true, name end --TODO EXEWRAPPER end local ok = true local built_modules = {} local luadir = path.lua_dir(rockspec.name, rockspec.version) local libdir = path.lib_dir(rockspec.name, rockspec.version) --TODO EXEWRAPPER -- On Windows, compiles an .exe for each Lua file in build.install.bin, and -- replaces the filename with the .exe name. Strips the .lua extension if it exists, -- otherwise just appends .exe to the name. Only if `cfg.exewrapper = true` if build.install and build.install.bin then for key, name in pairs(build.install.bin) do local fullname = dir.path(fs.current_dir(), name) if cfg.exewrapper and fs.is_lua(fullname) then ok, name = compile_wrapper_binary(fullname, name) if ok then build.install.bin[key] = name else return nil, "Build error in wrapper binaries" end end end end for name, info in pairs(build.modules) do local moddir = path.module_to_path(name) if type(info) == "string" then local ext = info:match(".([^.]+)$") if ext == "lua" then local filename = dir.base_name(info) if info:match("init%.lua$") and not name:match("%.init$") then moddir = path.module_to_path(name..".init") else local basename = name:match("([^.]+)$") local baseinfo = filename:gsub("%.lua$", "") if basename ~= baseinfo then filename = basename..".lua" end end local dest = dir.path(luadir, moddir, filename) built_modules[info] = dest else info = {info} end end if type(info) == "table" then local objects = {} local sources = info.sources if info[1] then sources = info end if type(sources) == "string" then sources = {sources} end for _, source in ipairs(sources) do local object = source:gsub(".[^.]*$", "."..cfg.obj_extension) if not object then object = source.."."..cfg.obj_extension end ok = compile_object(object, source, info.defines, info.incdirs) if not ok then return nil, "Failed compiling object "..object end table.insert(objects, object) end if not ok then break end local module_name = name:match("([^.]*)$").."."..util.matchquote(cfg.lib_extension) if moddir ~= "" then module_name = dir.path(moddir, module_name) local ok, err = fs.make_dir(moddir) if not ok then return nil, err end end built_modules[module_name] = dir.path(libdir, module_name) ok = compile_library(module_name, objects, info.libraries, info.libdirs, name) if not ok then return nil, "Failed compiling module "..module_name end end end for name, dest in pairs(built_modules) do fs.make_dir(dir.dir_name(dest)) ok = fs.copy(name, dest) if not ok then return nil, "Failed installing "..name.." in "..dest end end if fs.is_dir("lua") then local ok, err = fs.copy_contents("lua", luadir) if not ok then return nil, "Failed copying contents of 'lua' directory: "..err end end return true end return builtin luarocks-2.2.0+dfsg/src/luarocks/build/cmake.lua000066400000000000000000000036441241625207600215650ustar00rootroot00000000000000 --- Build back-end for CMake-based modules. --module("luarocks.build.cmake", package.seeall) local cmake = {} local fs = require("luarocks.fs") local util = require("luarocks.util") local cfg = require("luarocks.cfg") --- Driver function for the "cmake" build back-end. -- @param rockspec table: the loaded rockspec. -- @return boolean or (nil, string): true if no errors ocurred, -- nil and an error message otherwise. function cmake.run(rockspec) assert(type(rockspec) == "table") local build = rockspec.build local variables = build.variables or {} -- Pass Env variables variables.CMAKE_MODULE_PATH=os.getenv("CMAKE_MODULE_PATH") variables.CMAKE_LIBRARY_PATH=os.getenv("CMAKE_LIBRARY_PATH") variables.CMAKE_INCLUDE_PATH=os.getenv("CMAKE_INCLUDE_PATH") util.variable_substitutions(variables, rockspec.variables) if not fs.execute_quiet(rockspec.variables.CMAKE, "--help") then return nil, "'"..rockspec.variables.CMAKE.."' program not found. Is cmake installed? You may want to edit variables.CMAKE" end -- If inline cmake is present create CMakeLists.txt from it. if type(build.cmake) == "string" then local cmake_handler = assert(io.open(fs.current_dir().."/CMakeLists.txt", "w")) cmake_handler:write(build.cmake) cmake_handler:close() end -- Execute cmake with variables. local args = "" if cfg.cmake_generator then args = args .. ' -G"'..cfg.cmake_generator.. '"' end for k,v in pairs(variables) do args = args .. ' -D' ..k.. '="' ..v.. '"' end if not fs.execute_string(rockspec.variables.CMAKE.." . " ..args) then return nil, "Failed cmake." end if not fs.execute_string(rockspec.variables.MAKE.." -fMakefile") then return nil, "Failed building." end if not fs.execute_string(rockspec.variables.MAKE.." -fMakefile install") then return nil, "Failed installing." end return true end return cmake luarocks-2.2.0+dfsg/src/luarocks/build/command.lua000066400000000000000000000017271241625207600221230ustar00rootroot00000000000000 --- Build back-end for raw listing of commands in rockspec files. --module("luarocks.build.command", package.seeall) local command = {} local fs = require("luarocks.fs") local util = require("luarocks.util") --- Driver function for the "command" build back-end. -- @param rockspec table: the loaded rockspec. -- @return boolean or (nil, string): true if no errors ocurred, -- nil and an error message otherwise. function command.run(rockspec) assert(type(rockspec) == "table") local build = rockspec.build util.variable_substitutions(build, rockspec.variables) if build.build_command then util.printout(build.build_command) if not fs.execute(build.build_command) then return nil, "Failed building." end end if build.install_command then util.printout(build.install_command) if not fs.execute(build.install_command) then return nil, "Failed installing." end end return true end return command luarocks-2.2.0+dfsg/src/luarocks/build/make.lua000066400000000000000000000066111241625207600214170ustar00rootroot00000000000000 --- Build back-end for using Makefile-based packages. --module("luarocks.build.make", package.seeall) local make = {} local unpack = unpack or table.unpack local fs = require("luarocks.fs") local util = require("luarocks.util") local cfg = require("luarocks.cfg") --- Call "make" with given target and variables -- @param make_cmd string: the make command to be used (typically -- configured through variables.MAKE in the config files, or -- the appropriate platform-specific default). -- @param pass boolean: If true, run make; if false, do nothing. -- @param target string: The make target; an empty string indicates -- the default target. -- @param variables table: A table containing string-string key-value -- pairs representing variable assignments to be passed to make. -- @return boolean: false if any errors occurred, true otherwise. local function make_pass(make_cmd, pass, target, variables) assert(type(pass) == "boolean") assert(type(target) == "string") assert(type(variables) == "table") local assignments = {} for k,v in pairs(variables) do table.insert(assignments, k.."="..v) end if pass then return fs.execute(make_cmd.." "..target, unpack(assignments)) else return true end end --- Driver function for the "make" build back-end. -- @param rockspec table: the loaded rockspec. -- @return boolean or (nil, string): true if no errors ocurred, -- nil and an error message otherwise. function make.run(rockspec) assert(type(rockspec) == "table") local build = rockspec.build if build.build_pass == nil then build.build_pass = true end if build.install_pass == nil then build.install_pass = true end build.build_variables = build.build_variables or {} build.install_variables = build.install_variables or {} build.build_target = build.build_target or "" build.install_target = build.install_target or "install" local makefile = build.makefile or cfg.makefile if makefile then -- Assumes all make's accept -f. True for POSIX make, GNU make and Microsoft nmake. build.build_target = "-f "..makefile.." "..build.build_target build.install_target = "-f "..makefile.." "..build.install_target end if build.variables then for var, val in pairs(build.variables) do build.build_variables[var] = val build.install_variables[var] = val end end util.warn_if_not_used(build.build_variables, { CFLAGS=true }, "variable %s was not passed in build_variables") util.variable_substitutions(build.build_variables, rockspec.variables) util.variable_substitutions(build.install_variables, rockspec.variables) local auto_variables = { "CC" } for _, variable in pairs(auto_variables) do if not build.build_variables[variable] then build.build_variables[variable] = rockspec.variables[variable] end if not build.install_variables[variable] then build.install_variables[variable] = rockspec.variables[variable] end end -- backwards compatibility local make_cmd = cfg.make or rockspec.variables.MAKE local ok = make_pass(make_cmd, build.build_pass, build.build_target, build.build_variables) if not ok then return nil, "Failed building." end ok = make_pass(make_cmd, build.install_pass, build.install_target, build.install_variables) if not ok then return nil, "Failed installing." end return true end return make luarocks-2.2.0+dfsg/src/luarocks/cache.lua000066400000000000000000000061761241625207600204540ustar00rootroot00000000000000 --- Module handling the LuaRocks local cache. -- Adds a rock or rockspec to a rocks server. --module("luarocks.cache", package.seeall) local cache = {} package.loaded["luarocks.cache"] = cache local fs = require("luarocks.fs") local cfg = require("luarocks.cfg") local dir = require("luarocks.dir") local util = require("luarocks.util") function cache.get_upload_server(server) if not server then server = cfg.upload_server end if not server then return nil, "No server specified and no default configured with upload_server." end return server, cfg.upload_servers and cfg.upload_servers[server] end function cache.get_server_urls(server, upload_server) local download_url = server local login_url = nil if upload_server then if upload_server.rsync then download_url = "rsync://"..upload_server.rsync elseif upload_server.http then download_url = "http://"..upload_server.http elseif upload_server.ftp then download_url = "ftp://"..upload_server.ftp end if upload_server.ftp then login_url = "ftp://"..upload_server.ftp elseif upload_server.sftp then login_url = "sftp://"..upload_server.sftp end end return download_url, login_url end function cache.split_server_url(server, url, user, password) local protocol, server_path = dir.split_url(url) if server_path:match("@") then local credentials credentials, server_path = server_path:match("([^@]*)@(.*)") if credentials:match(":") then user, password = credentials:match("([^:]*):(.*)") else user = credentials end end local local_cache if cfg.local_cache then local_cache = cfg.local_cache .. "/" .. server end return local_cache, protocol, server_path, user, password end function cache.refresh_local_cache(server, url, user, password) local local_cache, protocol, server_path, user, password = cache.split_server_url(server, url, user, password) local ok, err = fs.make_dir(cfg.local_cache) if not ok then return nil, err end local tmp_cache = false if not local_cache then local err local_cache, err = fs.make_temp_dir("local_cache") tmp_cache = true end local ok, err = fs.make_dir(local_cache) if not ok then return nil, "Failed creating local cache dir: "..err end fs.change_dir(local_cache) if not ok then return nil, err end util.printout("Refreshing cache "..local_cache.."...") -- TODO abstract away explicit 'wget' call local ok = false if protocol == "rsync" then local srv, path = server_path:match("([^/]+)(/.+)") ok = fs.execute(cfg.variables.RSYNC.." "..cfg.variables.RSYNCFLAGS.." -e ssh "..user.."@"..srv..":"..path.."/ "..local_cache.."/") else local login_info = "" if user then login_info = " --user="..user end if password then login_info = login_info .. " --password="..password end ok = fs.execute(cfg.variables.WGET.." --no-cache -q -m -np -nd "..protocol.."://"..server_path..login_info) end if not ok then return nil, "Failed downloading cache." end return local_cache, protocol, server_path, user, password end return cache luarocks-2.2.0+dfsg/src/luarocks/cfg.lua000066400000000000000000000447651241625207600201560ustar00rootroot00000000000000--- Configuration for LuaRocks. -- Tries to load the user's configuration file and -- defines defaults for unset values. See the -- config -- file format documentation for details. -- -- End-users shouldn't edit this file. They can override any defaults -- set in this file using their system-wide $LUAROCKS_SYSCONFIG file -- (see luarocks.site_config) or their user-specific configuration file -- (~/.luarocks/config.lua on Unix or %APPDATA%/luarocks/config.lua on -- Windows). local rawset, next, table, pairs, require, io, os, setmetatable, pcall, ipairs, package, tonumber, type, assert, _VERSION = rawset, next, table, pairs, require, io, os, setmetatable, pcall, ipairs, package, tonumber, type, assert, _VERSION --module("luarocks.cfg") local cfg = {} package.loaded["luarocks.cfg"] = cfg local util = require("luarocks.util") cfg.lua_version = _VERSION:sub(5) local version_suffix = cfg.lua_version:gsub("%.", "_") -- Load site-local global configurations local ok, site_config = pcall(require, "luarocks.site_config_"..version_suffix) if not ok then ok, site_config = pcall(require, "luarocks.site_config") end if not ok then io.stderr:write("Site-local luarocks/site_config.lua file not found. Incomplete installation?\n") site_config = {} end cfg.site_config = site_config cfg.program_version = "2.2.0" cfg.major_version = cfg.program_version:match("([^.]%.[^.])") local persist = require("luarocks.persist") cfg.errorcodes = setmetatable({ OK = 0, UNSPECIFIED = 1, PERMISSIONDENIED = 2, },{ __index = function(t, key) local val = rawget(t, key) if not val then error("'"..tostring(key).."' is not a valid errorcode", 2) end return val end }) local popen_ok, popen_result = pcall(io.popen, "") if popen_ok then if popen_result then popen_result:close() end else io.stderr:write("Your version of Lua does not support io.popen,\n") io.stderr:write("which is required by LuaRocks. Please check your Lua installation.\n") os.exit(cfg.errorcodes.UNSPECIFIED) end -- System detection: local detected = {} local system,proc -- A proper installation of LuaRocks will hardcode the system -- and proc values with site_config.LUAROCKS_UNAME_S and site_config.LUAROCKS_UNAME_M, -- so that this detection does not run every time. When it is -- performed, we use the Unix way to identify the system, -- even on Windows (assuming UnxUtils or Cygwin). system = site_config.LUAROCKS_UNAME_S or io.popen("uname -s"):read("*l") proc = site_config.LUAROCKS_UNAME_M or io.popen("uname -m"):read("*l") if proc:match("i[%d]86") then proc = "x86" elseif proc:match("amd64") or proc:match("x86_64") then proc = "x86_64" elseif proc:match("Power Macintosh") then proc = "powerpc" end if system == "FreeBSD" then detected.unix = true detected.freebsd = true detected.bsd = true elseif system == "OpenBSD" then detected.unix = true detected.openbsd = true detected.bsd = true elseif system == "NetBSD" then detected.unix = true detected.netbsd = true detected.bsd = true elseif system == "Darwin" then detected.unix = true detected.macosx = true detected.bsd = true elseif system == "Linux" then detected.unix = true detected.linux = true elseif system == "SunOS" then detected.unix = true detected.solaris = true elseif system and system:match("^CYGWIN") then detected.unix = true detected.cygwin = true elseif system and system:match("^Windows") then detected.windows = true elseif system and system:match("^MINGW") then detected.windows = true detected.mingw32 = true else detected.unix = true -- Fall back to Unix in unknown systems. end -- Path configuration: local sys_config_file, home_config_file local sys_config_dir, home_config_dir local sys_config_ok, home_config_ok = false, false local extra_luarocks_module_dir sys_config_dir = site_config.LUAROCKS_SYSCONFDIR if detected.windows then cfg.home = os.getenv("APPDATA") or "c:" sys_config_dir = sys_config_dir or "c:/luarocks" home_config_dir = cfg.home.."/luarocks" cfg.home_tree = cfg.home.."/luarocks/" else cfg.home = os.getenv("HOME") or "" sys_config_dir = sys_config_dir or "/etc/luarocks" home_config_dir = cfg.home.."/.luarocks" cfg.home_tree = cfg.home.."/.luarocks/" end cfg.variables = {} cfg.rocks_trees = {} sys_config_file = site_config.LUAROCKS_SYSCONFIG or sys_config_dir.."/config-"..cfg.lua_version..".lua" local err sys_config_ok, err = persist.load_into_table(sys_config_file, cfg) if not sys_config_ok then sys_config_file = sys_config_dir.."/config.lua" sys_config_ok, err = persist.load_into_table(sys_config_file, cfg) end if err and sys_config_ok == nil then io.stderr:write(err.."\n") end if not site_config.LUAROCKS_FORCE_CONFIG then local home_overrides, err home_config_file = os.getenv("LUAROCKS_CONFIG_" .. version_suffix) or os.getenv("LUAROCKS_CONFIG") if home_config_file then home_overrides, err = persist.load_into_table(home_config_file, { home = cfg.home, lua_version = cfg.lua_version }) else home_config_file = home_config_dir.."/config-"..cfg.lua_version..".lua" home_overrides, err = persist.load_into_table(home_config_file, { home = cfg.home, lua_version = cfg.lua_version }) if not home_overrides then home_config_file = home_config_dir.."/config.lua" home_overrides, err = persist.load_into_table(home_config_file, { home = cfg.home, lua_version = cfg.lua_version }) end end if home_overrides then home_config_ok = true if home_overrides.rocks_trees then cfg.rocks_trees = nil end if home_overrides.rocks_servers then cfg.rocks_servers = nil end util.deep_merge(cfg, home_overrides) else -- nil or false home_config_ok = home_overrides if err and home_config_ok == nil then io.stderr:write(err.."\n") end end end if not next(cfg.rocks_trees) then if cfg.home_tree then table.insert(cfg.rocks_trees, { name = "user", root = cfg.home_tree } ) end if site_config.LUAROCKS_ROCKS_TREE then table.insert(cfg.rocks_trees, { name = "system", root = site_config.LUAROCKS_ROCKS_TREE } ) end end -- Configure defaults: local root = cfg.rocks_trees[#cfg.rocks_trees] local defaults = { local_by_default = false, use_extensions = false, accept_unknown_fields = false, fs_use_modules = true, hooks_enabled = true, deps_mode = "one", lua_modules_path = "/share/lua/"..cfg.lua_version, lib_modules_path = "/lib/lua/"..cfg.lua_version, rocks_subdir = site_config.LUAROCKS_ROCKS_SUBDIR or "/lib/luarocks/rocks", arch = "unknown", lib_extension = "unknown", obj_extension = "unknown", rocks_servers = { { "https://rocks.moonscript.org", "https://raw.githubusercontent.com/rocks-moonscript-org/moonrocks-mirror/master/", "http://luafr.org/moonrocks/", "http://luarocks.logiceditor.com/rocks", } }, disabled_servers = {}, upload = { server = "https://rocks.moonscript.org", tool_version = "0.0.1", api_version = "1", }, lua_extension = "lua", lua_interpreter = site_config.LUA_INTERPRETER or "lua", downloader = site_config.LUAROCKS_DOWNLOADER or "wget", md5checker = site_config.LUAROCKS_MD5CHECKER or "md5sum", connection_timeout = 30, -- 0 = no timeout variables = { MAKE = "make", CC = "cc", LD = "ld", CVS = "cvs", GIT = "git", SSCM = "sscm", SVN = "svn", HG = "hg", RSYNC = "rsync", WGET = "wget", SCP = "scp", CURL = "curl", PWD = "pwd", MKDIR = "mkdir", RMDIR = "rmdir", CP = "cp", LS = "ls", RM = "rm", FIND = "find", TEST = "test", CHMOD = "chmod", PATCH = "patch", ZIP = "zip", UNZIP = "unzip -n", GUNZIP = "gunzip", BUNZIP2 = "bunzip2", TAR = "tar", MD5SUM = "md5sum", OPENSSL = "openssl", MD5 = "md5", STAT = "stat", CMAKE = "cmake", SEVENZ = "7z", RSYNCFLAGS = "--exclude=.git -Oavz", STATFLAG = "-c '%a'", }, external_deps_subdirs = site_config.LUAROCKS_EXTERNAL_DEPS_SUBDIRS or { bin = "bin", lib = "lib", include = "include" }, runtime_external_deps_subdirs = site_config.LUAROCKS_RUNTIME_EXTERNAL_DEPS_SUBDIRS or { bin = "bin", lib = "lib", include = "include" }, rocks_provided = {} } if detected.windows then local full_prefix = site_config.LUAROCKS_PREFIX.."\\"..cfg.major_version extra_luarocks_module_dir = full_prefix.."\\lua\\?.lua" home_config_file = home_config_file and home_config_file:gsub("\\","/") defaults.fs_use_modules = false defaults.arch = "win32-"..proc defaults.platforms = {"win32", "windows" } defaults.lib_extension = "dll" defaults.external_lib_extension = "dll" defaults.obj_extension = "obj" defaults.external_deps_dirs = { "c:/external/" } defaults.variables.LUA_BINDIR = site_config.LUA_BINDIR and site_config.LUA_BINDIR:gsub("\\", "/") or "c:/lua"..cfg.lua_version.."/bin" defaults.variables.LUA_INCDIR = site_config.LUA_INCDIR and site_config.LUA_INCDIR:gsub("\\", "/") or "c:/lua"..cfg.lua_version.."/include" defaults.variables.LUA_LIBDIR = site_config.LUA_LIBDIR and site_config.LUA_LIBDIR:gsub("\\", "/") or "c:/lua"..cfg.lua_version.."/lib" defaults.cmake_generator = "MinGW Makefiles" defaults.makefile = "Makefile.win" defaults.variables.MAKE = "nmake" defaults.variables.CC = "cl" defaults.variables.RC = "rc" defaults.variables.WRAPPER = full_prefix.."\\rclauncher.c" defaults.variables.LD = "link" defaults.variables.MT = "mt" defaults.variables.LUALIB = "lua"..cfg.lua_version..".lib" defaults.variables.CFLAGS = "/MD /O2" defaults.variables.LIBFLAG = "/dll" local bins = { "SEVENZ", "CP", "FIND", "LS", "MD5SUM", "MKDIR", "MV", "PWD", "RMDIR", "TEST", "UNAME", "WGET" } for _, var in ipairs(bins) do if defaults.variables[var] then defaults.variables[var] = full_prefix.."\\tools\\"..defaults.variables[var] end end defaults.external_deps_patterns = { bin = { "?.exe", "?.bat" }, lib = { "?.lib", "?.dll", "lib?.dll" }, include = { "?.h" } } defaults.runtime_external_deps_patterns = { bin = { "?.exe", "?.bat" }, lib = { "?.dll", "lib?.dll" }, include = { "?.h" } } defaults.export_path = "SET PATH=%s" defaults.export_path_separator = ";" defaults.export_lua_path = "SET LUA_PATH=%s" defaults.export_lua_cpath = "SET LUA_CPATH=%s" defaults.wrapper_suffix = ".bat" local localappdata = os.getenv("LOCALAPPDATA") if not localappdata then -- for Windows versions below Vista localappdata = os.getenv("USERPROFILE").."/Local Settings/Application Data" end defaults.local_cache = localappdata.."/LuaRocks/Cache" defaults.web_browser = "start" end if detected.mingw32 then defaults.platforms = { "win32", "mingw32", "windows" } defaults.obj_extension = "o" defaults.cmake_generator = "MinGW Makefiles" defaults.variables.MAKE = "mingw32-make" defaults.variables.CC = "mingw32-gcc" defaults.variables.RC = "windres" defaults.variables.LD = "mingw32-gcc" defaults.variables.CFLAGS = "-O2" defaults.variables.LIBFLAG = "-shared" defaults.external_deps_patterns = { bin = { "?.exe", "?.bat" }, -- mingw lookup list from http://stackoverflow.com/a/15853231/1793220 -- ...should we keep ?.lib at the end? It's not in the above list. lib = { "lib?.dll.a", "?.dll.a", "lib?.a", "cyg?.dll", "lib?.dll", "?.dll", "?.lib" }, include = { "?.h" } } defaults.runtime_external_deps_patterns = { bin = { "?.exe", "?.bat" }, lib = { "cyg?.dll", "?.dll", "lib?.dll" }, include = { "?.h" } } end if detected.unix then defaults.lib_extension = "so" defaults.external_lib_extension = "so" defaults.obj_extension = "o" defaults.external_deps_dirs = { "/usr/local", "/usr" } defaults.variables.LUA_BINDIR = site_config.LUA_BINDIR or "/usr/local/bin" defaults.variables.LUA_INCDIR = site_config.LUA_INCDIR or "/usr/local/include" defaults.variables.LUA_LIBDIR = site_config.LUA_LIBDIR or "/usr/local/lib" defaults.variables.CFLAGS = "-O2" defaults.cmake_generator = "Unix Makefiles" defaults.platforms = { "unix" } defaults.variables.CC = "gcc" defaults.variables.LD = "gcc" defaults.gcc_rpath = true defaults.variables.LIBFLAG = "-shared" defaults.external_deps_patterns = { bin = { "?" }, lib = { "lib?.a", "lib?.so", "lib?.so.*" }, include = { "?.h" } } defaults.runtime_external_deps_patterns = { bin = { "?" }, lib = { "lib?.so", "lib?.so.*" }, include = { "?.h" } } defaults.export_path = "export PATH='%s'" defaults.export_path_separator = ":" defaults.export_lua_path = "export LUA_PATH='%s'" defaults.export_lua_cpath = "export LUA_CPATH='%s'" defaults.wrapper_suffix = "" defaults.local_cache = cfg.home.."/.cache/luarocks" if not defaults.variables.CFLAGS:match("-fPIC") then defaults.variables.CFLAGS = defaults.variables.CFLAGS.." -fPIC" end defaults.web_browser = "xdg-open" end if detected.cygwin then defaults.lib_extension = "so" -- can be overridden in the config file for mingw builds defaults.arch = "cygwin-"..proc defaults.platforms = {"unix", "cygwin"} defaults.cmake_generator = "Unix Makefiles" defaults.variables.CC = "echo -llua | xargs gcc" defaults.variables.LD = "echo -llua | xargs gcc" defaults.variables.LIBFLAG = "-shared" end if detected.bsd then defaults.variables.MAKE = "gmake" defaults.variables.STATFLAG = "-f '%OLp'" end if detected.macosx then defaults.variables.MAKE = "make" defaults.external_lib_extension = "dylib" defaults.arch = "macosx-"..proc defaults.platforms = {"unix", "bsd", "macosx"} defaults.variables.LIBFLAG = "-bundle -undefined dynamic_lookup -all_load" defaults.variables.STATFLAG = "-f '%A'" local version = io.popen("sw_vers -productVersion"):read("*l") version = tonumber(version and version:match("^[^.]+%.([^.]+)")) or 3 if version >= 5 then version = 5 else defaults.gcc_rpath = false end defaults.variables.CC = "export MACOSX_DEPLOYMENT_TARGET=10."..version.."; gcc" defaults.variables.LD = "export MACOSX_DEPLOYMENT_TARGET=10."..version.."; gcc" defaults.web_browser = "open" end if detected.linux then defaults.arch = "linux-"..proc defaults.platforms = {"unix", "linux"} end if detected.freebsd then defaults.arch = "freebsd-"..proc defaults.platforms = {"unix", "bsd", "freebsd"} defaults.gcc_rpath = false defaults.variables.CC = "cc" defaults.variables.LD = "cc" end if detected.openbsd then defaults.arch = "openbsd-"..proc defaults.platforms = {"unix", "bsd", "openbsd"} end if detected.netbsd then defaults.arch = "netbsd-"..proc defaults.platforms = {"unix", "bsd", "netbsd"} end if detected.solaris then defaults.arch = "solaris-"..proc defaults.platforms = {"unix", "solaris"} defaults.variables.MAKE = "gmake" end -- Expose some more values detected by LuaRocks for use by rockspec authors. defaults.variables.LIB_EXTENSION = defaults.lib_extension defaults.variables.OBJ_EXTENSION = defaults.obj_extension defaults.variables.LUAROCKS_PREFIX = site_config.LUAROCKS_PREFIX defaults.variables.LUA = site_config.LUA_DIR_SET and (defaults.variables.LUA_BINDIR.."/"..defaults.lua_interpreter) or defaults.lua_interpreter -- Add built-in modules to rocks_provided defaults.rocks_provided["lua"] = cfg.lua_version.."-1" if cfg.lua_version >= "5.2" then -- Lua 5.2+ defaults.rocks_provided["bit32"] = cfg.lua_version.."-1" end if cfg.lua_version >= "5.3" then -- Lua 5.3+ defaults.rocks_provided["utf8"] = cfg.lua_version.."-1" end if package.loaded.jit then -- LuaJIT local lj_version = package.loaded.jit.version:match("LuaJIT (.*)"):gsub("%-","") --defaults.rocks_provided["luajit"] = lj_version.."-1" defaults.rocks_provided["luabitop"] = lj_version.."-1" end -- Use defaults: -- Populate some arrays with values from their 'defaults' counterparts -- if they were not already set by user. for _, entry in ipairs({"variables", "rocks_provided"}) do if not cfg[entry] then cfg[entry] = {} end for k,v in pairs(defaults[entry]) do if not cfg[entry][k] then cfg[entry][k] = v end end end -- For values not set in the config file, use values from the 'defaults' table. local cfg_mt = { __index = function(t, k) local default = defaults[k] if default then rawset(t, k, default) end return default end } setmetatable(cfg, cfg_mt) function cfg.make_paths_from_tree(tree) local lua_path, lib_path, bin_path if type(tree) == "string" then lua_path = tree..cfg.lua_modules_path lib_path = tree..cfg.lib_modules_path bin_path = tree.."/bin" else lua_path = tree.lua_dir or tree.root..cfg.lua_modules_path lib_path = tree.lib_dir or tree.root..cfg.lib_modules_path bin_path = tree.bin_dir or tree.root.."/bin" end return lua_path, lib_path, bin_path end function cfg.package_paths() local new_path, new_cpath, new_bin = {}, {}, {} for _,tree in ipairs(cfg.rocks_trees) do local lua_path, lib_path, bin_path = cfg.make_paths_from_tree(tree) table.insert(new_path, lua_path.."/?.lua") table.insert(new_path, lua_path.."/?/init.lua") table.insert(new_cpath, lib_path.."/?."..cfg.lib_extension) table.insert(new_bin, bin_path) end if extra_luarocks_module_dir then table.insert(new_path, extra_luarocks_module_dir) end return table.concat(new_path, ";"), table.concat(new_cpath, ";"), table.concat(new_bin, cfg.export_path_separator) end function cfg.init_package_paths() local lr_path, lr_cpath, lr_bin = cfg.package_paths() package.path = util.remove_path_dupes(package.path .. ";" .. lr_path, ";") package.cpath = util.remove_path_dupes(package.cpath .. ";" .. lr_cpath, ";") end function cfg.which_config() return sys_config_file, sys_config_ok, home_config_file, home_config_ok end cfg.user_agent = "LuaRocks/"..cfg.program_version.." "..cfg.arch --- Check if platform was detected -- @param query string: The platform name to check. -- @return boolean: true if LuaRocks is currently running on queried platform. function cfg.is_platform(query) assert(type(query) == "string") for _, platform in ipairs(cfg.platforms) do if platform == query then return true end end end return cfg luarocks-2.2.0+dfsg/src/luarocks/command_line.lua000066400000000000000000000156201241625207600220300ustar00rootroot00000000000000 --- Functions for command-line scripts. --module("luarocks.command_line", package.seeall) local command_line = {} local unpack = unpack or table.unpack local util = require("luarocks.util") local cfg = require("luarocks.cfg") local path = require("luarocks.path") local dir = require("luarocks.dir") local deps = require("luarocks.deps") local program = util.this_program("luarocks") --- Display an error message and exit. -- @param message string: The error message. -- @param exitcode number: the exitcode to use local function die(message, exitcode) assert(type(message) == "string") local ok, err = pcall(util.run_scheduled_functions) if not ok then util.printerr("\nLuaRocks "..cfg.program_version.." internal bug (please report at luarocks-developers@lists.sourceforge.net):\n"..err) end util.printerr("\nError: "..message) os.exit(exitcode or cfg.errorcodes.UNSPECIFIED) end local function replace_tree(flags, args, tree) tree = dir.normalize(tree) flags["tree"] = tree for i = 1, #args do if args[i]:match("%-%-tree=") then args[i] = "--tree="..tree break end end path.use_tree(tree) end --- Main command-line processor. -- Parses input arguments and calls the appropriate driver function -- to execute the action requested on the command-line, forwarding -- to it any additional arguments passed by the user. -- Uses the global table "commands", which contains -- the loaded modules representing commands. -- @param ... string: Arguments given on the command-line. function command_line.run_command(...) local args = {...} local cmdline_vars = {} for i = #args, 1, -1 do local arg = args[i] if arg:match("^[^-][^=]*=") then local var, val = arg:match("^([A-Z_][A-Z0-9_]*)=(.*)") if val then cmdline_vars[var] = val table.remove(args, i) else die("Invalid assignment: "..arg) end end end local nonflags = { util.parse_flags(unpack(args)) } local flags = table.remove(nonflags, 1) if flags["from"] then flags["server"] = flags["from"] end if flags["only-from"] then flags["only-server"] = flags["only-from"] end if flags["only-sources-from"] then flags["only-sources"] = flags["only-sources-from"] end if flags["to"] then flags["tree"] = flags["to"] end if flags["nodeps"] then flags["deps-mode"] = "none" table.insert(args, "--deps-mode=none") end cfg.flags = flags local command if flags["verbose"] then -- setting it in the config file will kick-in earlier in the process cfg.verbose = true local fs = require("luarocks.fs") fs.verbose() end if flags["timeout"] then -- setting it in the config file will kick-in earlier in the process local timeout = tonumber(flags["timeout"]) if timeout then cfg.connection_timeout = timeout else die "Argument error: --timeout expects a numeric argument." end end if flags["version"] then util.printout(program.." "..cfg.program_version) util.printout(program_description) util.printout() os.exit(cfg.errorcodes.OK) elseif flags["help"] or #nonflags == 0 then command = "help" args = nonflags else command = nonflags[1] for i, arg in ipairs(args) do if arg == command then table.remove(args, i) break end end end command = command:gsub("-", "_") if flags["extensions"] then cfg.use_extensions = true local type_check = require("luarocks.type_check") type_check.load_extensions() end if cfg.local_by_default then flags["local"] = true end if flags["deps-mode"] and not deps.check_deps_mode_flag(flags["deps-mode"]) then die("Invalid entry for --deps-mode.") end if flags["branch"] then if flags["branch"] == true or flags["branch"] == "" then die("Argument error: use --branch=") end cfg.branch = flags["branch"] end if flags["tree"] then if flags["tree"] == true or flags["tree"] == "" then die("Argument error: use --tree=") end local named = false for _, tree in ipairs(cfg.rocks_trees) do if type(tree) == "table" and flags["tree"] == tree.name then if not tree.root then die("Configuration error: tree '"..tree.name.."' has no 'root' field.") end replace_tree(flags, args, tree.root) named = true break end end if not named then local fs = require("luarocks.fs") local root_dir = fs.absolute_name(flags["tree"]) replace_tree(flags, args, root_dir) end elseif flags["local"] then replace_tree(flags, args, cfg.home_tree) else local trees = cfg.rocks_trees path.use_tree(trees[#trees]) end if type(cfg.root_dir) == "string" then cfg.root_dir = cfg.root_dir:gsub("/+$", "") else cfg.root_dir.root = cfg.root_dir.root:gsub("/+$", "") end cfg.rocks_dir = cfg.rocks_dir:gsub("/+$", "") cfg.deploy_bin_dir = cfg.deploy_bin_dir:gsub("/+$", "") cfg.deploy_lua_dir = cfg.deploy_lua_dir:gsub("/+$", "") cfg.deploy_lib_dir = cfg.deploy_lib_dir:gsub("/+$", "") cfg.variables.ROCKS_TREE = cfg.rocks_dir cfg.variables.SCRIPTS_DIR = cfg.deploy_bin_dir if flags["server"] then if flags["server"] == true then die("Argument error: use --server=") end local protocol, path = dir.split_url(flags["server"]) table.insert(cfg.rocks_servers, 1, protocol.."://"..path) end if flags["only-server"] then if flags["only-server"] == true then die("Argument error: use --only-server=") end cfg.rocks_servers = { flags["only-server"] } end if flags["only-sources"] then cfg.only_sources_from = flags["only-sources"] end if command ~= "help" then for k, v in pairs(cmdline_vars) do cfg.variables[k] = v end end if commands[command] then -- TODO the interface of run should be modified, to receive the -- flags table and the (possibly unpacked) nonflags arguments. -- This would remove redundant parsing of arguments. -- I'm not changing this now to avoid messing with the run() -- interface, which I know some people use (even though -- I never published it as a public API...) local cmd = require(commands[command]) local xp, ok, err, exitcode = xpcall(function() return cmd.run(unpack(args)) end, function(err) die(debug.traceback("LuaRocks "..cfg.program_version .." bug (please report at luarocks-developers@lists.sourceforge.net).\n" ..err, 2)) end) if xp and (not ok) then die(err, exitcode) end else die("Unknown command: "..command) end util.run_scheduled_functions() end return command_line luarocks-2.2.0+dfsg/src/luarocks/deps.lua000066400000000000000000000655141241625207600203450ustar00rootroot00000000000000 --- Dependency handling functions. -- Dependencies are represented in LuaRocks through strings with -- a package name followed by a comma-separated list of constraints. -- Each constraint consists of an operator and a version number. -- In this string format, version numbers are represented as -- naturally as possible, like they are used by upstream projects -- (e.g. "2.0beta3"). Internally, LuaRocks converts them to a purely -- numeric representation, allowing comparison following some -- "common sense" heuristics. The precise specification of the -- comparison criteria is the source code of this module, but the -- test/test_deps.lua file included with LuaRocks provides some -- insights on what these criteria are. --module("luarocks.deps", package.seeall) local deps = {} package.loaded["luarocks.deps"] = deps local cfg = require("luarocks.cfg") local manif_core = require("luarocks.manif_core") local path = require("luarocks.path") local dir = require("luarocks.dir") local util = require("luarocks.util") local operators = { ["=="] = "==", ["~="] = "~=", [">"] = ">", ["<"] = "<", [">="] = ">=", ["<="] = "<=", ["~>"] = "~>", -- plus some convenience translations [""] = "==", ["="] = "==", ["!="] = "~=" } local deltas = { scm = 1100, cvs = 1000, rc = -1000, pre = -10000, beta = -100000, alpha = -1000000 } local version_mt = { --- Equality comparison for versions. -- All version numbers must be equal. -- If both versions have revision numbers, they must be equal; -- otherwise the revision number is ignored. -- @param v1 table: version table to compare. -- @param v2 table: version table to compare. -- @return boolean: true if they are considered equivalent. __eq = function(v1, v2) if #v1 ~= #v2 then return false end for i = 1, #v1 do if v1[i] ~= v2[i] then return false end end if v1.revision and v2.revision then return (v1.revision == v2.revision) end return true end, --- Size comparison for versions. -- All version numbers are compared. -- If both versions have revision numbers, they are compared; -- otherwise the revision number is ignored. -- @param v1 table: version table to compare. -- @param v2 table: version table to compare. -- @return boolean: true if v1 is considered lower than v2. __lt = function(v1, v2) for i = 1, math.max(#v1, #v2) do local v1i, v2i = v1[i] or 0, v2[i] or 0 if v1i ~= v2i then return (v1i < v2i) end end if v1.revision and v2.revision then return (v1.revision < v2.revision) end return false end } local version_cache = {} setmetatable(version_cache, { __mode = "kv" }) --- Parse a version string, converting to table format. -- A version table contains all components of the version string -- converted to numeric format, stored in the array part of the table. -- If the version contains a revision, it is stored numerically -- in the 'revision' field. The original string representation of -- the string is preserved in the 'string' field. -- Returned version tables use a metatable -- allowing later comparison through relational operators. -- @param vstring string: A version number in string format. -- @return table or nil: A version table or nil -- if the input string contains invalid characters. function deps.parse_version(vstring) if not vstring then return nil end assert(type(vstring) == "string") local cached = version_cache[vstring] if cached then return cached end local version = {} local i = 1 local function add_token(number) version[i] = version[i] and version[i] + number/100000 or number i = i + 1 end -- trim leading and trailing spaces vstring = vstring:match("^%s*(.*)%s*$") version.string = vstring -- store revision separately if any local main, revision = vstring:match("(.*)%-(%d+)$") if revision then vstring = main version.revision = tonumber(revision) end while #vstring > 0 do -- extract a number local token, rest = vstring:match("^(%d+)[%.%-%_]*(.*)") if token then add_token(tonumber(token)) else -- extract a word token, rest = vstring:match("^(%a+)[%.%-%_]*(.*)") if not token then util.printerr("Warning: version number '"..vstring.."' could not be parsed.") version[i] = 0 break end version[i] = deltas[token] or (token:byte() / 1000) end vstring = rest end setmetatable(version, version_mt) version_cache[vstring] = version return version end --- Utility function to compare version numbers given as strings. -- @param a string: one version. -- @param b string: another version. -- @return boolean: True if a > b. function deps.compare_versions(a, b) return deps.parse_version(a) > deps.parse_version(b) end --- Consumes a constraint from a string, converting it to table format. -- For example, a string ">= 1.0, > 2.0" is converted to a table in the -- format {op = ">=", version={1,0}} and the rest, "> 2.0", is returned -- back to the caller. -- @param input string: A list of constraints in string format. -- @return (table, string) or nil: A table representing the same -- constraints and the string with the unused input, or nil if the -- input string is invalid. local function parse_constraint(input) assert(type(input) == "string") local no_upgrade, op, version, rest = input:match("^(@?)([<>=~!]*)%s*([%w%.%_%-]+)[%s,]*(.*)") local _op = operators[op] version = deps.parse_version(version) if not _op then return nil, "Encountered bad constraint operator: '"..tostring(op).."' in '"..input.."'" end if not version then return nil, "Could not parse version from constraint: '"..input.."'" end return { op = _op, version = version, no_upgrade = no_upgrade=="@" and true or nil }, rest end --- Convert a list of constraints from string to table format. -- For example, a string ">= 1.0, < 2.0" is converted to a table in the format -- {{op = ">=", version={1,0}}, {op = "<", version={2,0}}}. -- Version tables use a metatable allowing later comparison through -- relational operators. -- @param input string: A list of constraints in string format. -- @return table or nil: A table representing the same constraints, -- or nil if the input string is invalid. function deps.parse_constraints(input) assert(type(input) == "string") local constraints, constraint, oinput = {}, nil, input while #input > 0 do constraint, input = parse_constraint(input) if constraint then table.insert(constraints, constraint) else return nil, "Failed to parse constraint '"..tostring(oinput).."' with error: ".. input end end return constraints end --- Convert a dependency from string to table format. -- For example, a string "foo >= 1.0, < 2.0" -- is converted to a table in the format -- {name = "foo", constraints = {{op = ">=", version={1,0}}, -- {op = "<", version={2,0}}}}. Version tables use a metatable -- allowing later comparison through relational operators. -- @param dep string: A dependency in string format -- as entered in rockspec files. -- @return table or nil: A table representing the same dependency relation, -- or nil if the input string is invalid. function deps.parse_dep(dep) assert(type(dep) == "string") local name, rest = dep:match("^%s*([a-zA-Z0-9][a-zA-Z0-9%.%-%_]*)%s*(.*)") if not name then return nil, "failed to extract dependency name from '"..tostring(dep).."'" end local constraints, err = deps.parse_constraints(rest) if not constraints then return nil, err end return { name = name, constraints = constraints } end --- Convert a version table to a string. -- @param v table: The version table -- @param internal boolean or nil: Whether to display versions in their -- internal representation format or how they were specified. -- @return string: The dependency information pretty-printed as a string. function deps.show_version(v, internal) assert(type(v) == "table") assert(type(internal) == "boolean" or not internal) return (internal and table.concat(v, ":")..(v.revision and tostring(v.revision) or "") or v.string) end --- Convert a dependency in table format to a string. -- @param dep table: The dependency in table format -- @param internal boolean or nil: Whether to display versions in their -- internal representation format or how they were specified. -- @return string: The dependency information pretty-printed as a string. function deps.show_dep(dep, internal) assert(type(dep) == "table") assert(type(internal) == "boolean" or not internal) local pretty = {} for _, c in ipairs(dep.constraints) do table.insert(pretty, c.op .. " " .. deps.show_version(c.version, internal)) end return dep.name.." "..table.concat(pretty, ", ") end --- A more lenient check for equivalence between versions. -- This returns true if the requested components of a version -- match and ignore the ones that were not given. For example, -- when requesting "2", then "2", "2.1", "2.3.5-9"... all match. -- When requesting "2.1", then "2.1", "2.1.3" match, but "2.2" -- doesn't. -- @param version string or table: Version to be tested; may be -- in string format or already parsed into a table. -- @param requested string or table: Version requested; may be -- in string format or already parsed into a table. -- @return boolean: True if the tested version matches the requested -- version, false otherwise. local function partial_match(version, requested) assert(type(version) == "string" or type(version) == "table") assert(type(requested) == "string" or type(version) == "table") if type(version) ~= "table" then version = deps.parse_version(version) end if type(requested) ~= "table" then requested = deps.parse_version(requested) end if not version or not requested then return false end for i, ri in ipairs(requested) do local vi = version[i] or 0 if ri ~= vi then return false end end if requested.revision then return requested.revision == version.revision end return true end --- Check if a version satisfies a set of constraints. -- @param version table: A version in table format -- @param constraints table: An array of constraints in table format. -- @return boolean: True if version satisfies all constraints, -- false otherwise. function deps.match_constraints(version, constraints) assert(type(version) == "table") assert(type(constraints) == "table") local ok = true setmetatable(version, version_mt) for _, constr in pairs(constraints) do if type(constr.version) == "string" then constr.version = deps.parse_version(constr.version) end local constr_version, constr_op = constr.version, constr.op setmetatable(constr_version, version_mt) if constr_op == "==" then ok = version == constr_version elseif constr_op == "~=" then ok = version ~= constr_version elseif constr_op == ">" then ok = version > constr_version elseif constr_op == "<" then ok = version < constr_version elseif constr_op == ">=" then ok = version >= constr_version elseif constr_op == "<=" then ok = version <= constr_version elseif constr_op == "~>" then ok = partial_match(version, constr_version) end if not ok then break end end return ok end --- Attempt to match a dependency to an installed rock. -- @param dep table: A dependency parsed in table format. -- @param blacklist table: Versions that can't be accepted. Table where keys -- are program versions and values are 'true'. -- @return table or nil: A table containing fields 'name' and 'version' -- representing an installed rock which matches the given dependency, -- or nil if it could not be matched. local function match_dep(dep, blacklist, deps_mode) assert(type(dep) == "table") local versions = cfg.rocks_provided[dep.name] if cfg.rocks_provided[dep.name] then -- provided rocks have higher priority than manifest's rocks versions = { cfg.rocks_provided[dep.name] } else versions = manif_core.get_versions(dep.name, deps_mode) end if not versions then return nil end if blacklist then local i = 1 while versions[i] do if blacklist[versions[i]] then table.remove(versions, i) else i = i + 1 end end end local candidates = {} for _, vstring in ipairs(versions) do local version = deps.parse_version(vstring) if deps.match_constraints(version, dep.constraints) then table.insert(candidates, version) end end if #candidates == 0 then return nil else table.sort(candidates) return { name = dep.name, version = candidates[#candidates].string } end end --- Attempt to match dependencies of a rockspec to installed rocks. -- @param rockspec table: The rockspec loaded as a table. -- @param blacklist table or nil: Program versions to not use as valid matches. -- Table where keys are program names and values are tables where keys -- are program versions and values are 'true'. -- @return table, table, table: A table where keys are dependencies parsed -- in table format and values are tables containing fields 'name' and -- version' representing matches; a table of missing dependencies -- parsed as tables; and a table of "no-upgrade" missing dependencies -- (to be used in plugin modules so that a plugin does not force upgrade of -- its parent application). function deps.match_deps(rockspec, blacklist, deps_mode) assert(type(rockspec) == "table") assert(type(blacklist) == "table" or not blacklist) local matched, missing, no_upgrade = {}, {}, {} for _, dep in ipairs(rockspec.dependencies) do local found = match_dep(dep, blacklist and blacklist[dep.name] or nil, deps_mode) if found then if not cfg.rocks_provided[dep.name] then matched[dep] = found end else if dep.constraints[1] and dep.constraints[1].no_upgrade then no_upgrade[dep.name] = dep else missing[dep.name] = dep end end end return matched, missing, no_upgrade end --- Return a set of values of a table. -- @param tbl table: The input table. -- @return table: The array of keys. local function values_set(tbl) local set = {} for _, v in pairs(tbl) do set[v] = true end return set end --- Check dependencies of a rock and attempt to install any missing ones. -- Packages are installed using the LuaRocks "install" command. -- Aborts the program if a dependency could not be fulfilled. -- @param rockspec table: A rockspec in table format. -- @return boolean or (nil, string, [string]): True if no errors occurred, or -- nil and an error message if any test failed, followed by an optional -- error code. function deps.fulfill_dependencies(rockspec, deps_mode) local search = require("luarocks.search") local install = require("luarocks.install") if rockspec.supported_platforms then if not deps.platforms_set then deps.platforms_set = values_set(cfg.platforms) end local supported = nil for _, plat in pairs(rockspec.supported_platforms) do local neg, plat = plat:match("^(!?)(.*)") if neg == "!" then if deps.platforms_set[plat] then return nil, "This rockspec for "..rockspec.package.." does not support "..plat.." platforms." end else if deps.platforms_set[plat] then supported = true else if supported == nil then supported = false end end end end if supported == false then local plats = table.concat(cfg.platforms, ", ") return nil, "This rockspec for "..rockspec.package.." does not support "..plats.." platforms." end end local _, missing, no_upgrade = deps.match_deps(rockspec, nil, deps_mode) if next(no_upgrade) then util.printerr("Missing dependencies for "..rockspec.name.." "..rockspec.version..":") for _, dep in pairs(no_upgrade) do util.printerr(deps.show_dep(dep)) end if next(missing) then for _, dep in pairs(missing) do util.printerr(deps.show_dep(dep)) end end util.printerr() for _, dep in pairs(no_upgrade) do util.printerr("This version of "..rockspec.name.." is designed for use with") util.printerr(deps.show_dep(dep)..", but is configured to avoid upgrading it") util.printerr("automatically. Please upgrade "..dep.name.." with") util.printerr(" luarocks install "..dep.name) util.printerr("or choose an older version of "..rockspec.name.." with") util.printerr(" luarocks search "..rockspec.name) end return nil, "Failed matching dependencies." end if next(missing) then util.printerr() util.printerr("Missing dependencies for "..rockspec.name..":") for _, dep in pairs(missing) do util.printerr(deps.show_dep(dep)) end util.printerr() for _, dep in pairs(missing) do -- Double-check in case dependency was filled during recursion. if not match_dep(dep, nil, deps_mode) then local rock = search.find_suitable_rock(dep) if not rock then return nil, "Could not satisfy dependency: "..deps.show_dep(dep) end local ok, err, errcode = install.run(rock) if not ok then return nil, "Failed installing dependency: "..rock.." - "..err, errcode end end end end return true end --- If filename matches a pattern, return the capture. -- For example, given "libfoo.so" and "lib?.so" is a pattern, -- returns "foo" (which can then be used to build names -- based on other patterns. -- @param file string: a filename -- @param pattern string: a pattern, where ? is to be matched by the filename. -- @return string The pattern, if found, or nil. local function deconstruct_pattern(file, pattern) local depattern = "^"..(pattern:gsub("%.", "%%."):gsub("%*", ".*"):gsub("?", "(.*)")).."$" return (file:match(depattern)) end --- Construct all possible patterns for a name and add to the files array. -- Run through the patterns array replacing all occurrences of "?" -- with the given file name and store them in the files array. -- @param file string A raw name (e.g. "foo") -- @param array of string An array of patterns with "?" as the wildcard -- (e.g. {"?.so", "lib?.so"}) -- @param files The array of constructed names local function add_all_patterns(file, patterns, files) for _, pattern in ipairs(patterns) do table.insert(files, (pattern:gsub("?", file))) end end --- Set up path-related variables for external dependencies. -- For each key in the external_dependencies table in the -- rockspec file, four variables are created: _DIR, _BINDIR, -- _INCDIR and _LIBDIR. These are not overwritten -- if already set (e.g. by the LuaRocks config file or through the -- command-line). Values in the external_dependencies table -- are tables that may contain a "header" or a "library" field, -- with filenames to be tested for existence. -- @param rockspec table: The rockspec table. -- @param mode string: if "build" is given, checks all files; -- if "install" is given, do not scan for headers. -- @return boolean or (nil, string): True if no errors occurred, or -- nil and an error message if any test failed. function deps.check_external_deps(rockspec, mode) assert(type(rockspec) == "table") local fs = require("luarocks.fs") local vars = rockspec.variables local patterns = cfg.external_deps_patterns local subdirs = cfg.external_deps_subdirs if mode == "install" then patterns = cfg.runtime_external_deps_patterns subdirs = cfg.runtime_external_deps_subdirs end if rockspec.external_dependencies then for name, files in pairs(rockspec.external_dependencies) do local ok = true local failed_file = nil local failed_dirname = nil for _, extdir in ipairs(cfg.external_deps_dirs) do ok = true local prefix = vars[name.."_DIR"] local dirs = { BINDIR = { subdir = subdirs.bin, testfile = "program", pattern = patterns.bin }, INCDIR = { subdir = subdirs.include, testfile = "header", pattern = patterns.include }, LIBDIR = { subdir = subdirs.lib, testfile = "library", pattern = patterns.lib } } if mode == "install" then dirs.INCDIR = nil end if not prefix then prefix = extdir end if type(prefix) == "table" then if prefix.bin then dirs.BINDIR.subdir = prefix.bin end if prefix.include then if dirs.INCDIR then dirs.INCDIR.subdir = prefix.include end end if prefix.lib then dirs.LIBDIR.subdir = prefix.lib end prefix = prefix.prefix end for dirname, dirdata in pairs(dirs) do local paths local path_var_value = vars[name.."_"..dirname] if path_var_value then paths = { path_var_value } elseif type(dirdata.subdir) == "table" then paths = {} for i,v in ipairs(dirdata.subdir) do paths[i] = dir.path(prefix, v) end else paths = { dir.path(prefix, dirdata.subdir) } end dirdata.dir = paths[1] local file = files[dirdata.testfile] if file then local files = {} if not file:match("%.") then add_all_patterns(file, dirdata.pattern, files) else for _, pattern in ipairs(dirdata.pattern) do local matched = deconstruct_pattern(file, pattern) if matched then add_all_patterns(matched, dirdata.pattern, files) end end table.insert(files, file) end local found = false failed_file = nil for _, f in pairs(files) do -- small convenience hack if f:match("%.so$") or f:match("%.dylib$") or f:match("%.dll$") then f = f:gsub("%.[^.]+$", "."..cfg.external_lib_extension) end for _, d in ipairs(paths) do if f:match("%*") then local replaced = f:gsub("%.", "%%."):gsub("%*", ".*") for entry in fs.dir(d) do if entry:match(replaced) then found = true break end end else found = fs.is_file(dir.path(d, f)) end if found then dirdata.dir = d break end end if found then break else if failed_file then failed_file = failed_file .. ", or " .. f else failed_file = f end end end if not found then ok = false failed_dirname = dirname break end end end if ok then for dirname, dirdata in pairs(dirs) do vars[name.."_"..dirname] = dirdata.dir end vars[name.."_DIR"] = prefix break end end if not ok then return nil, "Could not find expected file "..failed_file.." for "..name.." -- you may have to install "..name.." in your system and/or pass "..name.."_DIR or "..name.."_"..failed_dirname.." to the luarocks command. Example: luarocks install "..rockspec.name.." "..name.."_DIR=/usr/local", "dependency" end end end return true end --- Recursively scan dependencies, to build a transitive closure of all -- dependent packages. -- @param results table: The results table being built. -- @param missing table: The table of missing dependencies being recursively built. -- @param manifest table: The manifest table containing dependencies. -- @param name string: Package name. -- @param version string: Package version. -- @return (table, table): The results and a table of missing dependencies. function deps.scan_deps(results, missing, manifest, name, version, deps_mode) assert(type(results) == "table") assert(type(missing) == "table") assert(type(manifest) == "table") assert(type(name) == "string") assert(type(version) == "string") local fetch = require("luarocks.fetch") local err if results[name] then return results, missing end if not manifest.dependencies then manifest.dependencies = {} end local dependencies = manifest.dependencies if not dependencies[name] then dependencies[name] = {} end local dependencies_name = dependencies[name] local deplist = dependencies_name[version] local rockspec, err if not deplist then rockspec, err = fetch.load_local_rockspec(path.rockspec_file(name, version), false) if err then missing[name.." "..version] = err return results, missing end dependencies_name[version] = rockspec.dependencies else rockspec = { dependencies = deplist } end local matched, failures = deps.match_deps(rockspec, nil, deps_mode) results[name] = results for _, match in pairs(matched) do results, missing = deps.scan_deps(results, missing, manifest, match.name, match.version, deps_mode) end if next(failures) then for _, failure in pairs(failures) do missing[deps.show_dep(failure)] = "failed" end end results[name] = version return results, missing end local valid_deps_modes = { one = true, order = true, all = true, none = true, } function deps.check_deps_mode_flag(flag) return valid_deps_modes[flag] end function deps.get_deps_mode(flags) if flags["deps-mode"] then return flags["deps-mode"] else return cfg.deps_mode end end function deps.deps_mode_to_flag(deps_mode) return "--deps-mode="..deps_mode end return deps luarocks-2.2.0+dfsg/src/luarocks/dir.lua000066400000000000000000000050631241625207600201610ustar00rootroot00000000000000 --- Generic utilities for handling pathnames. --module("luarocks.dir", package.seeall) local dir = {} package.loaded["luarocks.dir"] = dir dir.separator = "/" --- Strip the path off a path+filename. -- @param pathname string: A path+name, such as "/a/b/c" -- or "\a\b\c". -- @return string: The filename without its path, such as "c". function dir.base_name(pathname) assert(type(pathname) == "string") local base = pathname:gsub("[/\\]*$", ""):match(".*[/\\]([^/\\]*)") return base or pathname end --- Strip the name off a path+filename. -- @param pathname string: A path+name, such as "/a/b/c". -- @return string: The filename without its path, such as "/a/b". -- For entries such as "/a/b/", "/a" is returned. If there are -- no directory separators in input, "" is returned. function dir.dir_name(pathname) assert(type(pathname) == "string") return (pathname:gsub("/*$", ""):match("(.*)[/]+[^/]*")) or "" end --- Describe a path in a cross-platform way. -- Use this function to avoid platform-specific directory -- separators in other modules. Removes trailing slashes from -- each component given, to avoid repeated separators. -- Separators inside strings are kept, to handle URLs containing -- protocols. -- @param ... strings representing directories -- @return string: a string with a platform-specific representation -- of the path. function dir.path(...) local t = {...} while t[1] == "" do table.remove(t, 1) end return (table.concat(t, "/"):gsub("([^:])/+", "%1/"):gsub("^/+", "/"):gsub("/*$", "")) end --- Split protocol and path from an URL or local pathname. -- URLs should be in the "protocol://path" format. -- For local pathnames, "file" is returned as the protocol. -- @param url string: an URL or a local pathname. -- @return string, string: the protocol, and the pathname without the protocol. function dir.split_url(url) assert(type(url) == "string") local protocol, pathname = url:match("^([^:]*)://(.*)") if not protocol then protocol = "file" pathname = url end return protocol, pathname end --- Normalize a url or local path. -- URLs should be in the "protocol://path" format. System independent -- forward slashes are used, removing trailing and double slashes -- @param url string: an URL or a local pathname. -- @return string: Normalized result. function dir.normalize(name) local protocol, pathname = dir.split_url(name) pathname = pathname:gsub("\\", "/"):gsub("(.)/*$", "%1"):gsub("//", "/") if protocol ~= "file" then pathname = protocol .."://"..pathname end return pathname end return dir luarocks-2.2.0+dfsg/src/luarocks/doc.lua000066400000000000000000000117311241625207600201470ustar00rootroot00000000000000 --- Module implementing the LuaRocks "doc" command. -- Shows documentation for an installed rock. --module("luarocks.doc", package.seeall) local doc = {} package.loaded["luarocks.doc"] = doc local util = require("luarocks.util") local show = require("luarocks.show") local path = require("luarocks.path") local dir = require("luarocks.dir") local fetch = require("luarocks.fetch") local fs = require("luarocks.fs") local download = require("luarocks.download") doc.help_summary = "Shows documentation for an installed rock." doc.help = [[ is an existing package name. Without any flags, tries to load the documentation using a series of heuristics. With these flags, return only the desired information: --homepage Open the home page of project. --list List documentation files only. For more information about a rock, see the 'show' command. ]] local function show_homepage(homepage, name, version) if not homepage then return nil, "No 'homepage' field in rockspec for "..name.." "..version end util.printout("Opening "..homepage.." ...") fs.browser(homepage) return true end local function try_to_open_homepage(name, version) local temp_dir, err = fs.make_temp_dir("doc-"..name.."-"..(version or "")) if not temp_dir then return nil, "Failed creating temporary directory: "..err end util.schedule_function(fs.delete, temp_dir) local ok, err = fs.change_dir(temp_dir) if not ok then return nil, err end local filename, err = download.download("rockspec", name, version) if not filename then return nil, err end local rockspec, err = fetch.load_local_rockspec(filename) if not rockspec then return nil, err end fs.pop_dir() local descript = rockspec.description or {} if not descript.homepage then return nil, "No homepage defined for "..name end return show_homepage(descript.homepage, name, version) end --- Driver function for "doc" command. -- @param name or nil: an existing package name. -- @param version string or nil: a version may also be passed. -- @return boolean: True if succeeded, nil on errors. function doc.run(...) local flags, name, version = util.parse_flags(...) if not name then return nil, "Argument missing. "..util.see_help("doc") end local iname, iversion, repo = show.pick_installed_rock(name, version, flags["tree"]) if not iname then util.printout(name..(version and " "..version or "").." is not installed. Looking for it in the rocks servers...") return try_to_open_homepage(name, version) end name, version = iname, iversion local rockspec, err = fetch.load_local_rockspec(path.rockspec_file(name, version, repo)) if not rockspec then return nil,err end local descript = rockspec.description or {} if flags["homepage"] then return show_homepage(descript.homepage, name, version) end local directory = path.install_dir(name,version,repo) local docdir local directories = { "doc", "docs" } for _, d in ipairs(directories) do local dirname = dir.path(directory, d) if fs.is_dir(dirname) then docdir = dirname break end end if not docdir then if descript.homepage and not flags["list"] then util.printout("Local documentation directory not found -- opening "..descript.homepage.." ...") fs.browser(descript.homepage) return true end return nil, "Documentation directory not found for "..name.." "..version end docdir = dir.normalize(docdir):gsub("/+", "/") local files = fs.find(docdir) local htmlpatt = "%.html?$" local extensions = { htmlpatt, "%.md$", "%.txt$", "%.textile$", "" } local basenames = { "index", "readme", "manual" } local porcelain = flags["porcelain"] if #files > 0 then util.title("Documentation files for "..name.." "..version, porcelain) if porcelain then for _, file in ipairs(files) do util.printout(docdir.."/"..file) end else util.printout(docdir.."/") for _, file in ipairs(files) do util.printout("\t"..file) end end end if flags["list"] then return true end for _, extension in ipairs(extensions) do for _, basename in ipairs(basenames) do local filename = basename..extension local found for _, file in ipairs(files) do if file:lower():match(filename) and ((not found) or #file < #found) then found = file end end if found then local pathname = dir.path(docdir, found) util.printout() util.printout("Opening "..pathname.." ...") util.printout() local ok = fs.browser(pathname) if not ok and not pathname:match(htmlpatt) then local fd = io.open(pathname, "r") util.printout(fd:read("*a")) fd:close() end return true end end end return true end return doc luarocks-2.2.0+dfsg/src/luarocks/download.lua000066400000000000000000000065761241625207600212240ustar00rootroot00000000000000 --- Module implementing the luarocks "download" command. -- Download a rock from the repository. --module("luarocks.download", package.seeall) local download = {} package.loaded["luarocks.download"] = download local util = require("luarocks.util") local path = require("luarocks.path") local fetch = require("luarocks.fetch") local search = require("luarocks.search") local fs = require("luarocks.fs") local dir = require("luarocks.dir") download.help_summary = "Download a specific rock file from a rocks server." download.help_arguments = "[--all] [--arch= | --source | --rockspec] [ []]" download.help = [[ --all Download all files if there are multiple matches. --source Download .src.rock if available. --rockspec Download .rockspec if available. --arch= Download rock for a specific architecture. ]] local function get_file(filename) local protocol, pathname = dir.split_url(filename) if protocol == "file" then local ok, err = fs.copy(pathname, fs.current_dir()) if ok then return pathname else return nil, err end else return fetch.fetch_url(filename) end end function download.download(arch, name, version, all) local results, err local query = search.make_query(name, version) if arch then query.arch = arch end if all then if name == "" then query.exact_name = false end results = search.search_repos(query) else results, err = search.find_suitable_rock(query) end if type(results) == "string" then return get_file(results) elseif type(results) == "table" and next(results) then if all then local all_ok = true local any_err = "" for name, result in pairs(results) do for version, versions in pairs(result) do for _,items in pairs(versions) do local filename = path.make_url(items.repo, name, version, items.arch) local ok, err = get_file(filename) if not ok then all_ok = false any_err = any_err .. "\n" .. err end end end end return all_ok, any_err else util.printerr("Multiple search results were returned.") util.title("Search results:") search.print_results(results) return nil, "Please narrow your query or use --all." end end return nil, "Could not find a result named "..name..(version and " "..version or "").."." end --- Driver function for the "download" command. -- @param name string: a rock name. -- @param version string or nil: if the name of a package is given, a -- version may also be passed. -- @return boolean or (nil, string): true if successful or nil followed -- by an error message. function download.run(...) local flags, name, version = util.parse_flags(...) assert(type(version) == "string" or not version) if type(name) ~= "string" and not flags["all"] then return nil, "Argument missing, see help." end if not name then name, version = "", "" end local arch if flags["source"] then arch = "src" elseif flags["rockspec"] then arch = "rockspec" elseif flags["arch"] then arch = flags["arch"] end local dl, err = download.download(arch, name, version, flags["all"]) return dl and true, err end return download luarocks-2.2.0+dfsg/src/luarocks/fetch.lua000066400000000000000000000354141241625207600204770ustar00rootroot00000000000000 --- Functions related to fetching and loading local and remote files. --module("luarocks.fetch", package.seeall) local fetch = {} package.loaded["luarocks.fetch"] = fetch local fs = require("luarocks.fs") local dir = require("luarocks.dir") local type_check = require("luarocks.type_check") local path = require("luarocks.path") local deps = require("luarocks.deps") local persist = require("luarocks.persist") local util = require("luarocks.util") local cfg = require("luarocks.cfg") function fetch.is_basic_protocol(protocol, remote) return protocol == "http" or protocol == "https" or protocol == "ftp" or (not remote and protocol == "file") end --- Fetch a local or remote file. -- Make a remote or local URL/pathname local, fetching the file if necessary. -- Other "fetch" and "load" functions use this function to obtain files. -- If a local pathname is given, it is returned as a result. -- @param url string: a local pathname or a remote URL. -- @param filename string or nil: this function attempts to detect the -- resulting local filename of the remote file as the basename of the URL; -- if that is not correct (due to a redirection, for example), the local -- filename can be given explicitly as this second argument. -- @return string or (nil, string, [string]): the absolute local pathname for the -- fetched file, or nil and a message in case of errors, followed by -- an optional error code. function fetch.fetch_url(url, filename, cache) assert(type(url) == "string") assert(type(filename) == "string" or not filename) local protocol, pathname = dir.split_url(url) if protocol == "file" then return fs.absolute_name(pathname) elseif fetch.is_basic_protocol(protocol, true) then local ok, filename = fs.download(url, filename, cache) if not ok then return nil, "Failed downloading "..url..(filename and " - "..filename or ""), "network" end return filename else return nil, "Unsupported protocol "..protocol end end --- For remote URLs, create a temporary directory and download URL inside it. -- This temporary directory will be deleted on program termination. -- For local URLs, just return the local pathname and its directory. -- @param url string: URL to be downloaded -- @param tmpname string: name pattern to use for avoiding conflicts -- when creating temporary directory. -- @param filename string or nil: local filename of URL to be downloaded, -- in case it can't be inferred from the URL. -- @return (string, string) or (nil, string, [string]): absolute local pathname of -- the fetched file and temporary directory name; or nil and an error message -- followed by an optional error code function fetch.fetch_url_at_temp_dir(url, tmpname, filename) assert(type(url) == "string") assert(type(tmpname) == "string") assert(type(filename) == "string" or not filename) filename = filename or dir.base_name(url) local protocol, pathname = dir.split_url(url) if protocol == "file" then if fs.exists(pathname) then return pathname, dir.dir_name(fs.absolute_name(pathname)) else return nil, "File not found: "..pathname end else local temp_dir, err = fs.make_temp_dir(tmpname) if not temp_dir then return nil, "Failed creating temporary directory "..tmpname..": "..err end util.schedule_function(fs.delete, temp_dir) local ok, err = fs.change_dir(temp_dir) if not ok then return nil, err end local file, err, errcode = fetch.fetch_url(url, filename) fs.pop_dir() if not file then return nil, "Error fetching file: "..err, errcode end return file, temp_dir end end -- Determine base directory of a fetched URL by extracting its -- archive and looking for a directory in the root. -- @param file string: absolute local pathname of the fetched file -- @param temp_dir string: temporary directory in which URL was fetched. -- @param src_url string: URL to use when inferring base directory. -- @param src_dir string or nil: expected base directory (inferred -- from src_url if not given). -- @return (string, string) or (string, nil) or (nil, string): -- The inferred base directory and the one actually found (which may -- be nil if not found), or nil followed by an error message. -- The inferred dir is returned first to avoid confusion with errors, -- because it is never nil. function fetch.find_base_dir(file, temp_dir, src_url, src_dir) local ok, err = fs.change_dir(temp_dir) if not ok then return nil, err end fs.unpack_archive(file) local inferred_dir = src_dir or fetch.url_to_base_dir(src_url) local found_dir = nil if fs.exists(inferred_dir) then found_dir = inferred_dir else util.printerr("Directory "..inferred_dir.." not found") local files = fs.list_dir() if files then table.sort(files) for i,filename in ipairs(files) do if fs.is_dir(filename) then util.printerr("Found "..filename) found_dir = filename break end end end end fs.pop_dir() return inferred_dir, found_dir end --- Obtain a rock and unpack it. -- If a directory is not given, a temporary directory will be created, -- which will be deleted on program termination. -- @param rock_file string: URL or filename of the rock. -- @param dest string or nil: if given, directory will be used as -- a permanent destination. -- @return string or (nil, string, [string]): the directory containing the contents -- of the unpacked rock. function fetch.fetch_and_unpack_rock(rock_file, dest) assert(type(rock_file) == "string") assert(type(dest) == "string" or not dest) local name = dir.base_name(rock_file):match("(.*)%.[^.]*%.rock") local rock_file, err, errcode = fetch.fetch_url_at_temp_dir(rock_file,"luarocks-rock-"..name) if not rock_file then return nil, "Could not fetch rock file: " .. err, errcode end rock_file = fs.absolute_name(rock_file) local unpack_dir if dest then unpack_dir = dest local ok, err = fs.make_dir(unpack_dir) if not ok then return nil, "Failed unpacking rock file: " .. err end else unpack_dir = fs.make_temp_dir(name) end if not dest then util.schedule_function(fs.delete, unpack_dir) end local ok, err = fs.change_dir(unpack_dir) if not ok then return nil, err end ok = fs.unzip(rock_file) if not ok then return nil, "Failed unpacking rock file: " .. rock_file end fs.pop_dir() return unpack_dir end function fetch.url_to_base_dir(url) local base = dir.base_name(url) return base:gsub("%.[^.]*$", ""):gsub("%.tar$", "") end --- Back-end function that actually loads the local rockspec. -- Performs some validation and postprocessing of the rockspec contents. -- @param filename string: The local filename of the rockspec file. -- @param quick boolean: if true, skips some steps when loading -- rockspec. -- @return table or (nil, string): A table representing the rockspec -- or nil followed by an error message. function fetch.load_local_rockspec(filename, quick) assert(type(filename) == "string") filename = fs.absolute_name(filename) local rockspec, err = persist.load_into_table(filename) if not rockspec then return nil, "Could not load rockspec file "..filename.." ("..err..")" end if cfg.branch and (type(rockspec.source) == "table") then rockspec.source.branch = cfg.branch end local globals = err local ok, err = true, nil if not quick then ok, err = type_check.type_check_rockspec(rockspec, globals) if not ok then return nil, filename..": "..err end end if rockspec.rockspec_format then if deps.compare_versions(rockspec.rockspec_format, type_check.rockspec_format) then return nil, "Rockspec format "..rockspec.rockspec_format.." is not supported, please upgrade LuaRocks." end end util.platform_overrides(rockspec.build) util.platform_overrides(rockspec.dependencies) util.platform_overrides(rockspec.external_dependencies) util.platform_overrides(rockspec.source) util.platform_overrides(rockspec.hooks) local basename = dir.base_name(filename) if basename == "rockspec" then rockspec.name = rockspec.package:lower() else rockspec.name = basename:match("(.*)-[^-]*-[0-9]*") if not rockspec.name then return nil, "Expected filename in format 'name-version-revision.rockspec'." end end local protocol, pathname = dir.split_url(rockspec.source.url) if fetch.is_basic_protocol(protocol) then rockspec.source.file = rockspec.source.file or dir.base_name(rockspec.source.url) end rockspec.source.protocol, rockspec.source.pathname = protocol, pathname -- Temporary compatibility if rockspec.source.cvs_module then rockspec.source.module = rockspec.source.cvs_module end if rockspec.source.cvs_tag then rockspec.source.tag = rockspec.source.cvs_tag end local name_version = rockspec.package:lower() .. "-" .. rockspec.version if basename ~= "rockspec" and basename ~= name_version .. ".rockspec" then return nil, "Inconsistency between rockspec filename ("..basename..") and its contents ("..name_version..".rockspec)." end rockspec.local_filename = filename local filebase = rockspec.source.file or rockspec.source.url local base = fetch.url_to_base_dir(filebase) rockspec.source.dir = rockspec.source.dir or rockspec.source.module or ((filebase:match("%.lua$") or filebase:match("%.c$")) and ".") or base if rockspec.dependencies then for i = 1, #rockspec.dependencies do local parsed, err = deps.parse_dep(rockspec.dependencies[i]) if not parsed then return nil, "Parse error processing dependency '"..rockspec.dependencies[i].."': "..tostring(err) end rockspec.dependencies[i] = parsed end else rockspec.dependencies = {} end if not quick then path.configure_paths(rockspec) end return rockspec end --- Load a local or remote rockspec into a table. -- This is the entry point for the LuaRocks tools. -- Only the LuaRocks runtime loader should use -- load_local_rockspec directly. -- @param filename string: Local or remote filename of a rockspec. -- @param location string or nil: Where to download. If not given, -- a temporary dir is created. -- @return table or (nil, string, [string]): A table representing the rockspec -- or nil followed by an error message and optional error code. function fetch.load_rockspec(filename, location) assert(type(filename) == "string") local name local basename = dir.base_name(filename) if basename == "rockspec" then name = "rockspec" else name = basename:match("(.*)%.rockspec") if not name then return nil, "Filename '"..filename.."' does not look like a rockspec." end end local err, errcode if location then local ok, err = fs.change_dir(location) if not ok then return nil, err end filename, err = fetch.fetch_url(filename) fs.pop_dir() else filename, err, errcode = fetch.fetch_url_at_temp_dir(filename,"luarocks-rockspec-"..name) end if not filename then return nil, err, errcode end return fetch.load_local_rockspec(filename) end --- Download sources for building a rock using the basic URL downloader. -- @param rockspec table: The rockspec table -- @param extract boolean: Whether to extract the sources from -- the fetched source tarball or not. -- @param dest_dir string or nil: If set, will extract to the given directory; -- if not given, will extract to a temporary directory. -- @return (string, string) or (nil, string, [string]): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message and optional error code. function fetch.get_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(extract) == "boolean") assert(type(dest_dir) == "string" or not dest_dir) local url = rockspec.source.url local name = rockspec.name.."-"..rockspec.version local filename = rockspec.source.file local source_file, store_dir, err, errcode if dest_dir then local ok, err = fs.change_dir(dest_dir) if not ok then return nil, err, "dest_dir" end source_file, err, errcode = fetch.fetch_url(url, filename) fs.pop_dir() store_dir = dest_dir else source_file, store_dir, errcode = fetch.fetch_url_at_temp_dir(url, "luarocks-source-"..name, filename) end if not source_file then return nil, err or store_dir, errcode end if rockspec.source.md5 then if not fs.check_md5(source_file, rockspec.source.md5) then return nil, "MD5 check for "..filename.." has failed.", "md5" end end if extract then local ok, err = fs.change_dir(store_dir) if not ok then return nil, err end fs.unpack_archive(rockspec.source.file) if not fs.exists(rockspec.source.dir) then return nil, "Directory "..rockspec.source.dir.." not found inside archive "..rockspec.source.file, "source.dir", source_file, store_dir end fs.pop_dir() end return source_file, store_dir end --- Download sources for building a rock, calling the appropriate protocol method. -- @param rockspec table: The rockspec table -- @param extract boolean: When downloading compressed formats, whether to extract -- the sources from the fetched archive or not. -- @param dest_dir string or nil: If set, will extract to the given directory. -- if not given, will extract to a temporary directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function fetch.fetch_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(extract) == "boolean") assert(type(dest_dir) == "string" or not dest_dir) local protocol = rockspec.source.protocol local ok, proto if fetch.is_basic_protocol(protocol) then proto = require("luarocks.fetch") else ok, proto = pcall(require, "luarocks.fetch."..protocol:gsub("[+-]", "_")) if not ok then return nil, "Unknown protocol "..protocol end end if cfg.only_sources_from and rockspec.source.pathname and #rockspec.source.pathname > 0 then if #cfg.only_sources_from == 0 then return nil, "Can't download "..rockspec.source.url.." -- download from remote servers disabled" elseif rockspec.source.pathname:find(cfg.only_sources_from, 1, true) ~= 1 then return nil, "Can't download "..rockspec.source.url.." -- only downloading from "..cfg.only_sources_from end end return proto.get_sources(rockspec, extract, dest_dir) end return fetch luarocks-2.2.0+dfsg/src/luarocks/fetch/000077500000000000000000000000001241625207600177655ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/fetch/cvs.lua000066400000000000000000000033141241625207600212640ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from CVS. --module("luarocks.fetch.cvs", package.seeall) local cvs = {} local unpack = unpack or table.unpack local fs = require("luarocks.fs") local dir = require("luarocks.dir") local util = require("luarocks.util") --- Download sources for building a rock, using CVS. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function cvs.get_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(dest_dir) == "string" or not dest_dir) local name_version = rockspec.name .. "-" .. rockspec.version local module = rockspec.source.module or dir.base_name(rockspec.source.url) local command = {rockspec.variables.CVS, "-d"..rockspec.source.pathname, "export", module} if rockspec.source.tag then table.insert(command, 4, "-r") table.insert(command, 5, rockspec.source.tag) end local store_dir if not dest_dir then store_dir = fs.make_temp_dir(name_version) if not store_dir then return nil, "Failed creating temporary directory." end util.schedule_function(fs.delete, store_dir) else store_dir = dest_dir end local ok, err = fs.change_dir(store_dir) if not ok then return nil, err end if not fs.execute(unpack(command)) then return nil, "Failed fetching files from CVS." end fs.pop_dir() return module, store_dir end return cvs luarocks-2.2.0+dfsg/src/luarocks/fetch/git.lua000066400000000000000000000066611241625207600212640ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from GIT. --module("luarocks.fetch.git", package.seeall) local git = {} local unpack = unpack or table.unpack local fs = require("luarocks.fs") local dir = require("luarocks.dir") local util = require("luarocks.util") --- Git >= 1.7.10 can clone a branch **or tag**, < 1.7.10 by branch only. We -- need to know this in order to build the appropriate command; if we can't -- clone by tag then we'll have to issue a subsequent command to check out the -- given tag. -- @return boolean: Whether Git can clone by tag. local function git_can_clone_by_tag(git_cmd) local version_string = io.popen(fs.Q(git_cmd)..' --version'):read() local major, minor, tiny = version_string:match('(%d-)%.(%d+)%.?(%d*)') major, minor, tiny = tonumber(major), tonumber(minor), tonumber(tiny) or 0 local value = major > 1 or (major == 1 and (minor > 7 or (minor == 7 and tiny >= 10))) git_can_clone_by_tag = function() return value end return value end --- Download sources for building a rock, using git. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function git.get_sources(rockspec, extract, dest_dir, depth) assert(type(rockspec) == "table") assert(type(dest_dir) == "string" or not dest_dir) local git_cmd = rockspec.variables.GIT local name_version = rockspec.name .. "-" .. rockspec.version local module = dir.base_name(rockspec.source.url) -- Strip off .git from base name if present module = module:gsub("%.git$", "") local store_dir if not dest_dir then store_dir = fs.make_temp_dir(name_version) if not store_dir then return nil, "Failed creating temporary directory." end util.schedule_function(fs.delete, store_dir) else store_dir = dest_dir end store_dir = fs.absolute_name(store_dir) local ok, err = fs.change_dir(store_dir) if not ok then return nil, err end local command = {fs.Q(git_cmd), "clone", depth or "--depth=1", rockspec.source.url, module} local tag_or_branch = rockspec.source.tag or rockspec.source.branch -- If the tag or branch is explicitly set to "master" in the rockspec, then -- we can avoid passing it to Git since it's the default. if tag_or_branch == "master" then tag_or_branch = nil end if tag_or_branch then if git_can_clone_by_tag(git_cmd) then -- The argument to `--branch` can actually be a branch or a tag as of -- Git 1.7.10. table.insert(command, 4, "--branch=" .. tag_or_branch) end end if not fs.execute(unpack(command)) then return nil, "Failed cloning git repository." end ok, err = fs.change_dir(module) if not ok then return nil, err end if tag_or_branch and not git_can_clone_by_tag() then local checkout_command = {fs.Q(git_cmd), "checkout", tag_or_branch} if not fs.execute(unpack(checkout_command)) then return nil, 'Failed to check out the "' .. tag_or_branch ..'" tag or branch.' end end fs.delete(dir.path(store_dir, module, ".git")) fs.delete(dir.path(store_dir, module, ".gitignore")) fs.pop_dir() fs.pop_dir() return module, store_dir end return git luarocks-2.2.0+dfsg/src/luarocks/fetch/git_file.lua000066400000000000000000000015141241625207600222530ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from local Git repositories. --module("luarocks.fetch.git_file", package.seeall) local git_file = {} local git = require("luarocks.fetch.git") --- Fetch sources for building a rock from a local Git repository. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function git_file.get_sources(rockspec, extract, dest_dir) rockspec.source.url = rockspec.source.url:gsub("^git.file://", "") return git.get_sources(rockspec, extract, dest_dir) end return git_file luarocks-2.2.0+dfsg/src/luarocks/fetch/git_http.lua000066400000000000000000000022531241625207600223140ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from Git repositories -- that use http:// transport. For example, for fetching a repository -- that requires the following command line: -- `git clone http://example.com/foo.git` -- you can use this in the rockspec: -- source = { url = "git+http://example.com/foo.git" } -- Prefer using the normal git:// fetch mode as it is more widely -- available in older versions of LuaRocks. --module("luarocks.fetch.git_http", package.seeall) local git_http = {} local git = require("luarocks.fetch.git") --- Fetch sources for building a rock from a local Git repository. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function git_http.get_sources(rockspec, extract, dest_dir) rockspec.source.url = rockspec.source.url:gsub("^git.", "") return git.get_sources(rockspec, extract, dest_dir, "--") end return git_http luarocks-2.2.0+dfsg/src/luarocks/fetch/hg.lua000066400000000000000000000037351241625207600210760ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from HG. --module("luarocks.fetch.hg", package.seeall) local hg = {} local unpack = unpack or table.unpack local fs = require("luarocks.fs") local dir = require("luarocks.dir") local util = require("luarocks.util") --- Download sources for building a rock, using hg. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function hg.get_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(dest_dir) == "string" or not dest_dir) local hg_cmd = rockspec.variables.HG local name_version = rockspec.name .. "-" .. rockspec.version -- Strip off special hg:// protocol type local url = rockspec.source.url:gsub("^hg://", "") local module = dir.base_name(url) local command = {hg_cmd, "clone", url, module} local tag_or_branch = rockspec.source.tag or rockspec.source.branch if tag_or_branch then command = {hg_cmd, "clone", "--rev", url, module} end local store_dir if not dest_dir then store_dir = fs.make_temp_dir(name_version) if not store_dir then return nil, "Failed creating temporary directory." end util.schedule_function(fs.delete, store_dir) else store_dir = dest_dir end local ok, err = fs.change_dir(store_dir) if not ok then return nil, err end if not fs.execute(unpack(command)) then return nil, "Failed cloning hg repository." end ok, err = fs.change_dir(module) if not ok then return nil, err end fs.delete(dir.path(store_dir, module, ".hg")) fs.delete(dir.path(store_dir, module, ".hgignore")) fs.pop_dir() fs.pop_dir() return module, store_dir end return hg luarocks-2.2.0+dfsg/src/luarocks/fetch/sscm.lua000066400000000000000000000035401241625207600214370ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from Surround SCM Server --module("luarocks.fetch.sscm", package.seeall) local sscm = {} local fs = require("luarocks.fs") local dir = require("luarocks.dir") --- Download sources via Surround SCM Server for building a rock. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function sscm.get_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(dest_dir) == "string" or not dest_dir) local sscm_cmd = rockspec.variables.SSCM local module = rockspec.source.module or dir.base_name(rockspec.source.url) local branch, repository = string.match(rockspec.source.pathname, "^([^/]*)/(.*)") if not branch or not repository then return nil, "Error retrieving branch and repository from rockspec." end -- Search for working directory. local working_dir local tmp = io.popen(string.format(sscm_cmd..[[ property "/" -d -b%s -p%s]], branch, repository)) for line in tmp:lines() do --%c because a chr(13) comes in the end. working_dir = string.match(line, "Working directory:[%s]*(.*)%c$") if working_dir then break end end tmp:close() if not working_dir then return nil, "Error retrieving working directory from SSCM." end if not fs.execute(sscm_cmd, "get", "*", "-e" , "-r", "-b"..branch, "-p"..repository, "-tmodify", "-wreplace") then return nil, "Failed fetching files from SSCM." end -- FIXME: This function does not honor the dest_dir parameter. return module, working_dir end return sscm luarocks-2.2.0+dfsg/src/luarocks/fetch/svn.lua000066400000000000000000000040071241625207600212770ustar00rootroot00000000000000 --- Fetch back-end for retrieving sources from Subversion. --module("luarocks.fetch.svn", package.seeall) local svn = {} local unpack = unpack or table.unpack local fs = require("luarocks.fs") local dir = require("luarocks.dir") local util = require("luarocks.util") --- Download sources for building a rock, using Subversion. -- @param rockspec table: The rockspec table -- @param extract boolean: Unused in this module (required for API purposes.) -- @param dest_dir string or nil: If set, will extract to the given directory. -- @return (string, string) or (nil, string): The absolute pathname of -- the fetched source tarball and the temporary directory created to -- store it; or nil and an error message. function svn.get_sources(rockspec, extract, dest_dir) assert(type(rockspec) == "table") assert(type(dest_dir) == "string" or not dest_dir) local svn_cmd = rockspec.variables.SVN local name_version = rockspec.name .. "-" .. rockspec.version local module = rockspec.source.module or dir.base_name(rockspec.source.url) local url = rockspec.source.url:gsub("^svn://", "") local command = {svn_cmd, "checkout", url, module} if rockspec.source.tag then table.insert(command, 5, "-r") table.insert(command, 6, rockspec.source.tag) end local store_dir if not dest_dir then store_dir = fs.make_temp_dir(name_version) if not store_dir then return nil, "Failed creating temporary directory." end util.schedule_function(fs.delete, store_dir) else store_dir = dest_dir end local ok, err = fs.change_dir(store_dir) if not ok then return nil, err end if not fs.execute(unpack(command)) then return nil, "Failed fetching files from Subversion." end ok, err = fs.change_dir(module) if not ok then return nil, err end for _, d in ipairs(fs.find(".")) do if dir.base_name(d) == ".svn" then fs.delete(dir.path(store_dir, module, d)) end end fs.pop_dir() fs.pop_dir() return module, store_dir end return svn luarocks-2.2.0+dfsg/src/luarocks/fs.lua000066400000000000000000000037411241625207600200140ustar00rootroot00000000000000 --- Proxy module for filesystem and platform abstractions. -- All code using "fs" code should require "luarocks.fs", -- and not the various platform-specific implementations. -- However, see the documentation of the implementation -- for the API reference. local pairs = pairs --module("luarocks.fs", package.seeall) local fs = {} package.loaded["luarocks.fs"] = fs local cfg = require("luarocks.cfg") local pack = table.pack or function(...) return { n = select("#", ...), ... } end local unpack = table.unpack or unpack local old_popen, old_exec fs.verbose = function() -- patch io.popen and os.execute to display commands in verbose mode if old_popen or old_exec then return end old_popen = io.popen io.popen = function(one, two) if two == nil then print("\nio.popen: ", one) else print("\nio.popen: ", one, "Mode:", two) end return old_popen(one, two) end old_exec = os.execute os.execute = function(cmd) print("\nos.execute: ", cmd) local code = pack(old_exec(cmd)) print("Results: "..tostring(code.n)) for i = 1,code.n do print(" "..tostring(i).." ("..type(code[i]).."): "..tostring(code[i])) end return unpack(code, 1, code.n) end end if cfg.verbose then fs.verbose() end local function load_fns(fs_table) for name, fn in pairs(fs_table) do if not fs[name] then fs[name] = fn end end end -- Load platform-specific functions local loaded_platform = nil for _, platform in ipairs(cfg.platforms) do local ok, fs_plat = pcall(require, "luarocks.fs."..platform) if ok and fs_plat then loaded_platform = platform load_fns(fs_plat) break end end -- Load platform-independent pure-Lua functionality local fs_lua = require("luarocks.fs.lua") load_fns(fs_lua) -- Load platform-specific fallbacks for missing Lua modules local ok, fs_plat_tools = pcall(require, "luarocks.fs."..loaded_platform..".tools") if ok and fs_plat_tools then load_fns(fs_plat_tools) end return fs luarocks-2.2.0+dfsg/src/luarocks/fs/000077500000000000000000000000001241625207600173045ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/fs/lua.lua000066400000000000000000000626721241625207600206050ustar00rootroot00000000000000 --- Native Lua implementation of filesystem and platform abstractions, -- using LuaFileSystem, LZLib, MD5 and LuaCurl. -- module("luarocks.fs.lua") local fs_lua = {} local fs = require("luarocks.fs") local cfg = require("luarocks.cfg") local dir = require("luarocks.dir") local util = require("luarocks.util") local path = require("luarocks.path") local socket_ok, zip_ok, unzip_ok, lfs_ok, md5_ok, posix_ok, _ local http, ftp, lrzip, luazip, lfs, md5, posix if cfg.fs_use_modules then socket_ok, http = pcall(require, "socket.http") _, ftp = pcall(require, "socket.ftp") zip_ok, lrzip = pcall(require, "luarocks.tools.zip") unzip_ok, luazip = pcall(require, "zip"); _G.zip = nil lfs_ok, lfs = pcall(require, "lfs") md5_ok, md5 = pcall(require, "md5") posix_ok, posix = pcall(require, "posix") end local patch = require("luarocks.tools.patch") local dir_stack = {} math.randomseed(os.time()) local dir_separator = "/" --- Quote argument for shell processing. -- Adds single quotes and escapes. -- @param arg string: Unquoted argument. -- @return string: Quoted argument. function fs_lua.Q(arg) assert(type(arg) == "string") -- FIXME Unix-specific return "'" .. arg:gsub("'", "'\\''") .. "'" end --- Test is file/dir is writable. -- Warning: testing if a file/dir is writable does not guarantee -- that it will remain writable and therefore it is no replacement -- for checking the result of subsequent operations. -- @param file string: filename to test -- @return boolean: true if file exists, false otherwise. function fs_lua.is_writable(file) assert(file) file = dir.normalize(file) local result if fs.is_dir(file) then local file2 = dir.path(file, '.tmpluarockstestwritable') local fh = io.open(file2, 'wb') result = fh ~= nil if fh then fh:close() end os.remove(file2) else local fh = io.open(file, 'r+b') result = fh ~= nil if fh then fh:close() end end return result end --- Create a temporary directory. -- @param name string: name pattern to use for avoiding conflicts -- when creating temporary directory. -- @return string or (nil, string): name of temporary directory or (nil, error message) on failure. function fs_lua.make_temp_dir(name) assert(type(name) == "string") name = dir.normalize(name) local temp_dir = (os.getenv("TMP") or "/tmp") .. "/luarocks_" .. name:gsub(dir.separator, "_") .. "-" .. tostring(math.floor(math.random() * 10000)) local ok, err = fs.make_dir(temp_dir) if ok then return temp_dir else return nil, err end end local function quote_args(command, ...) local out = { command } for _, arg in ipairs({...}) do assert(type(arg) == "string") out[#out+1] = fs.Q(arg) end return table.concat(out, " ") end --- Run the given command, quoting its arguments. -- The command is executed in the current directory in the dir stack. -- @param command string: The command to be executed. No quoting/escaping -- is applied. -- @param ... Strings containing additional arguments, which are quoted. -- @return boolean: true if command succeeds (status code 0), false -- otherwise. function fs_lua.execute(command, ...) assert(type(command) == "string") return fs.execute_string(quote_args(command, ...)) end --- Run the given command, quoting its arguments, silencing its output. -- The command is executed in the current directory in the dir stack. -- Silencing is omitted if 'verbose' mode is enabled. -- @param command string: The command to be executed. No quoting/escaping -- is applied. -- @param ... Strings containing additional arguments, which will be quoted. -- @return boolean: true if command succeeds (status code 0), false -- otherwise. function fs_lua.execute_quiet(command, ...) assert(type(command) == "string") if cfg.verbose then -- omit silencing output return fs.execute_string(quote_args(command, ...)) else return fs.execute_string(fs.quiet(quote_args(command, ...))) end end --- Check the MD5 checksum for a file. -- @param file string: The file to be checked. -- @param md5sum string: The string with the expected MD5 checksum. -- @return boolean: true if the MD5 checksum for 'file' equals 'md5sum', false + msg if not -- or if it could not perform the check for any reason. function fs_lua.check_md5(file, md5sum) file = dir.normalize(file) local computed, msg = fs.get_md5(file) if not computed then return false, msg end if computed:match("^"..md5sum) then return true else return false, "Mismatch MD5 hash for file "..file end end --- List the contents of a directory. -- @param at string or nil: directory to list (will be the current -- directory if none is given). -- @return table: an array of strings with the filenames representing -- the contents of a directory. function fs_lua.list_dir(at) local result = {} for file in fs.dir(at) do result[#result+1] = file end return result end --- Iterate over the contents of a directory. -- @param at string or nil: directory to list (will be the current -- directory if none is given). -- @return function: an iterator function suitable for use with -- the for statement. function fs_lua.dir(at) if not at then at = fs.current_dir() end at = dir.normalize(at) if not fs.is_dir(at) then return function() end end return coroutine.wrap(function() fs.dir_iterator(at) end) end --------------------------------------------------------------------- -- LuaFileSystem functions --------------------------------------------------------------------- if lfs_ok then --- Run the given command. -- The command is executed in the current directory in the dir stack. -- @param cmd string: No quoting/escaping is applied to the command. -- @return boolean: true if command succeeds (status code 0), false -- otherwise. function fs_lua.execute_string(cmd) local code = os.execute(cmd) return (code == 0 or code == true) end --- Obtain current directory. -- Uses the module's internal dir stack. -- @return string: the absolute pathname of the current directory. function fs_lua.current_dir() return lfs.currentdir() end --- Change the current directory. -- Uses the module's internal dir stack. This does not have exact -- semantics of chdir, as it does not handle errors the same way, -- but works well for our purposes for now. -- @param d string: The directory to switch to. function fs_lua.change_dir(d) table.insert(dir_stack, lfs.currentdir()) d = dir.normalize(d) return lfs.chdir(d) end --- Change directory to root. -- Allows leaving a directory (e.g. for deleting it) in -- a crossplatform way. function fs_lua.change_dir_to_root() table.insert(dir_stack, lfs.currentdir()) lfs.chdir("/") -- works on Windows too end --- Change working directory to the previous in the dir stack. -- @return true if a pop ocurred, false if the stack was empty. function fs_lua.pop_dir() local d = table.remove(dir_stack) if d then lfs.chdir(d) return true else return false end end --- Create a directory if it does not already exist. -- If any of the higher levels in the path name do not exist -- too, they are created as well. -- @param directory string: pathname of directory to create. -- @return boolean or (boolean, string): true on success or (false, error message) on failure. function fs_lua.make_dir(directory) assert(type(directory) == "string") directory = dir.normalize(directory) local path = nil if directory:sub(2, 2) == ":" then path = directory:sub(1, 2) directory = directory:sub(4) else if directory:match("^/") then path = "" end end for d in directory:gmatch("([^"..dir.separator.."]+)"..dir.separator.."*") do path = path and path .. dir.separator .. d or d local mode = lfs.attributes(path, "mode") if not mode then local ok, err = lfs.mkdir(path) if not ok then return false, err end elseif mode ~= "directory" then return false, path.." is not a directory" end end return true end --- Remove a directory if it is empty. -- Does not return errors (for example, if directory is not empty or -- if already does not exist) -- @param d string: pathname of directory to remove. function fs_lua.remove_dir_if_empty(d) assert(d) d = dir.normalize(d) lfs.rmdir(d) end --- Remove a directory if it is empty. -- Does not return errors (for example, if directory is not empty or -- if already does not exist) -- @param d string: pathname of directory to remove. function fs_lua.remove_dir_tree_if_empty(d) assert(d) d = dir.normalize(d) for i=1,10 do lfs.rmdir(d) d = dir.dir_name(d) end end --- Copy a file. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @param perms string or nil: Permissions for destination file, -- or nil to use the source filename permissions -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function fs_lua.copy(src, dest, perms) assert(src and dest) src = dir.normalize(src) dest = dir.normalize(dest) local destmode = lfs.attributes(dest, "mode") if destmode == "directory" then dest = dir.path(dest, dir.base_name(src)) end if not perms then perms = fs.get_permissions(src) end local src_h, err = io.open(src, "rb") if not src_h then return nil, err end local dest_h, err = io.open(dest, "w+b") if not dest_h then src_h:close() return nil, err end while true do local block = src_h:read(8192) if not block then break end dest_h:write(block) end src_h:close() dest_h:close() fs.chmod(dest, perms) return true end --- Implementation function for recursive copy of directory contents. -- Assumes paths are normalized. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @return boolean or (boolean, string): true on success, false on failure local function recursive_copy(src, dest) local srcmode = lfs.attributes(src, "mode") if srcmode == "file" then local ok = fs.copy(src, dest) if not ok then return false end elseif srcmode == "directory" then local subdir = dir.path(dest, dir.base_name(src)) local ok, err = fs.make_dir(subdir) if not ok then return nil, err end for file in lfs.dir(src) do if file ~= "." and file ~= ".." then local ok = recursive_copy(dir.path(src, file), subdir) if not ok then return false end end end end return true end --- Recursively copy the contents of a directory. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function fs_lua.copy_contents(src, dest) assert(src and dest) src = dir.normalize(src) dest = dir.normalize(dest) assert(lfs.attributes(src, "mode") == "directory") for file in lfs.dir(src) do if file ~= "." and file ~= ".." then local ok = recursive_copy(dir.path(src, file), dest) if not ok then return false, "Failed copying "..src.." to "..dest end end end return true end --- Implementation function for recursive removal of directories. -- Assumes paths are normalized. -- @param name string: Pathname of file -- @return boolean or (boolean, string): true on success, -- or nil and an error message on failure. local function recursive_delete(name) local ok = os.remove(name) if ok then return true end local pok, ok, err = pcall(function() for file in lfs.dir(name) do if file ~= "." and file ~= ".." then local ok, err = recursive_delete(dir.path(name, file)) if not ok then return nil, err end end end local ok, err = lfs.rmdir(name) return ok, (not ok) and err end) if pok then return ok, err else return pok, ok end end --- Delete a file or a directory and all its contents. -- @param name string: Pathname of source -- @return nil function fs_lua.delete(name) name = dir.normalize(name) recursive_delete(name) end --- Internal implementation function for fs.dir. -- Yields a filename on each iteration. -- @param at string: directory to list -- @return nil function fs_lua.dir_iterator(at) for file in lfs.dir(at) do if file ~= "." and file ~= ".." then coroutine.yield(file) end end end --- Implementation function for recursive find. -- Assumes paths are normalized. -- @param cwd string: Current working directory in recursion. -- @param prefix string: Auxiliary prefix string to form pathname. -- @param result table: Array of strings where results are collected. local function recursive_find(cwd, prefix, result) for file in lfs.dir(cwd) do if file ~= "." and file ~= ".." then local item = prefix .. file table.insert(result, item) local pathname = dir.path(cwd, file) if lfs.attributes(pathname, "mode") == "directory" then recursive_find(pathname, item..dir_separator, result) end end end end --- Recursively scan the contents of a directory. -- @param at string or nil: directory to scan (will be the current -- directory if none is given). -- @return table: an array of strings with the filenames representing -- the contents of a directory. function fs_lua.find(at) assert(type(at) == "string" or not at) if not at then at = fs.current_dir() end at = dir.normalize(at) if not fs.is_dir(at) then return {} end local result = {} recursive_find(at, "", result) return result end --- Test for existance of a file. -- @param file string: filename to test -- @return boolean: true if file exists, false otherwise. function fs_lua.exists(file) assert(file) file = dir.normalize(file) return type(lfs.attributes(file)) == "table" end --- Test is pathname is a directory. -- @param file string: pathname to test -- @return boolean: true if it is a directory, false otherwise. function fs_lua.is_dir(file) assert(file) file = dir.normalize(file) return lfs.attributes(file, "mode") == "directory" end --- Test is pathname is a regular file. -- @param file string: pathname to test -- @return boolean: true if it is a file, false otherwise. function fs_lua.is_file(file) assert(file) file = dir.normalize(file) return lfs.attributes(file, "mode") == "file" end function fs_lua.set_time(file, time) file = dir.normalize(file) return lfs.touch(file, time) end end --------------------------------------------------------------------- -- LuaZip functions --------------------------------------------------------------------- if zip_ok then function fs_lua.zip(zipfile, ...) return lrzip.zip(zipfile, ...) end end if unzip_ok then --- Uncompress files from a .zip archive. -- @param zipfile string: pathname of .zip archive to be extracted. -- @return boolean: true on success, false on failure. function fs_lua.unzip(zipfile) local zipfile, err = luazip.open(zipfile) if not zipfile then return nil, err end local files = zipfile:files() local file = files() repeat if file.filename:sub(#file.filename) == "/" then local ok, err = fs.make_dir(dir.path(fs.current_dir(), file.filename)) if not ok then return nil, err end else local base = dir.dir_name(file.filename) if base ~= "" then base = dir.path(fs.current_dir(), base) if not fs.is_dir(base) then local ok, err = fs.make_dir(base) if not ok then return nil, err end end end local rf, err = zipfile:open(file.filename) if not rf then zipfile:close(); return nil, err end local contents = rf:read("*a") rf:close() local wf, err = io.open(dir.path(fs.current_dir(), file.filename), "wb") if not wf then zipfile:close(); return nil, err end wf:write(contents) wf:close() end file = files() until not file zipfile:close() return true end end --------------------------------------------------------------------- -- LuaSocket functions --------------------------------------------------------------------- if socket_ok then local ltn12 = require("ltn12") local luasec_ok, https = pcall(require, "ssl.https") local redirect_protocols = { http = http, https = luasec_ok and https, } local function request(url, method, http, loop_control) local result = {} local proxy = cfg.proxy if type(proxy) ~= "string" then proxy = nil end -- LuaSocket's http.request crashes when given URLs missing the scheme part. if proxy and not proxy:find("://") then proxy = "http://" .. proxy end if cfg.show_downloads then io.write(method.." "..url.." ...\n") end local dots = 0 if cfg.connection_timeout and cfg.connection_timeout > 0 then http.TIMEOUT = cfg.connection_timeout end local res, status, headers, err = http.request { url = url, proxy = proxy, method = method, redirect = false, sink = ltn12.sink.table(result), step = cfg.show_downloads and function(...) io.write(".") io.flush() dots = dots + 1 if dots == 70 then io.write("\n") dots = 0 end return ltn12.pump.step(...) end, headers = { ["user-agent"] = cfg.user_agent.." via LuaSocket" }, } if cfg.show_downloads then io.write("\n") end if not res then return nil, status elseif status == 301 or status == 302 then local location = headers.location if location then local protocol, rest = dir.split_url(location) if redirect_protocols[protocol] then if not loop_control then loop_control = {} elseif loop_control[location] then return nil, "Redirection loop -- broken URL?" end loop_control[url] = true return request(location, method, redirect_protocols[protocol], loop_control) else return nil, "URL redirected to unsupported protocol - install luasec to get HTTPS support.", "https" end end return nil, err elseif status ~= 200 then return nil, err else return result, status, headers, err end end local function http_request(url, http, cached) if cached then local tsfd = io.open(cached..".timestamp", "r") if tsfd then local timestamp = tsfd:read("*a") tsfd:close() local result, status, headers, err = request(url, "HEAD", http) if status == 200 and headers["last-modified"] == timestamp then return true end if not result then return nil, status, headers end end end local result, status, headers, err = request(url, "GET", http) if result then if cached and headers["last-modified"] then local tsfd = io.open(cached..".timestamp", "w") if tsfd then tsfd:write(headers["last-modified"]) tsfd:close() end end return table.concat(result) else return nil, status, headers end end local downloader_warning = false --- Download a remote file. -- @param url string: URL to be fetched. -- @param filename string or nil: this function attempts to detect the -- resulting local filename of the remote file as the basename of the URL; -- if that is not correct (due to a redirection, for example), the local -- filename can be given explicitly as this second argument. -- @return (boolean, string): true and the filename on success, -- false and the error message on failure. function fs_lua.download(url, filename, cache) assert(type(url) == "string") assert(type(filename) == "string" or not filename) filename = fs.absolute_name(filename or dir.base_name(url)) local content, err, https_err if util.starts_with(url, "http:") then content, err, https_err = http_request(url, http, cache and filename) elseif util.starts_with(url, "ftp:") then content, err = ftp.get(url) elseif util.starts_with(url, "https:") then if luasec_ok then content, err = http_request(url, https, cache and filename) else https_err = true end else err = "Unsupported protocol" end if https_err then if not downloader_warning then util.printerr("Warning: falling back to "..cfg.downloader.." - install luasec to get native HTTPS support") downloader_warning = true end return fs.use_downloader(url, filename, cache) end if cache and content == true then return true, filename end if not content then return false, tostring(err) end local file = io.open(filename, "wb") if not file then return false end file:write(content) file:close() return true, filename end else --...if socket_ok == false then function fs_lua.download(url, filename, cache) return fs.use_downloader(url, filename, cache) end end --------------------------------------------------------------------- -- MD5 functions --------------------------------------------------------------------- if md5_ok then --- Get the MD5 checksum for a file. -- @param file string: The file to be computed. -- @return string: The MD5 checksum or nil + error function fs_lua.get_md5(file) file = fs.absolute_name(file) local file_handler = io.open(file, "rb") if not file_handler then return nil, "Failed to open file for reading: "..file end local computed = md5.sumhexa(file_handler:read("*a")) file_handler:close() if computed then return computed end return nil, "Failed to compute MD5 hash for file "..file end end --------------------------------------------------------------------- -- POSIX functions --------------------------------------------------------------------- if posix_ok then local octal_to_rwx = { ["0"] = "---", ["1"] = "--x", ["2"] = "-w-", ["3"] = "-wx", ["4"] = "r--", ["5"] = "r-x", ["6"] = "rw-", ["7"] = "rwx", } function fs_lua.chmod(file, mode) -- LuaPosix (as of 5.1.15) does not support octal notation... if mode:sub(1,1) == "0" then local new_mode = {} for c in mode:sub(2):gmatch(".") do table.insert(new_mode, octal_to_rwx[c]) end mode = table.concat(new_mode) end local err = posix.chmod(file, mode) return err == 0 end function fs_lua.get_permissions(file) return posix.stat(file, "mode") end end --------------------------------------------------------------------- -- Other functions --------------------------------------------------------------------- --- Apply a patch. -- @param patchname string: The filename of the patch. -- @param patchdata string or nil: The actual patch as a string. function fs_lua.apply_patch(patchname, patchdata) local p, all_ok = patch.read_patch(patchname, patchdata) if not all_ok then return nil, "Failed reading patch "..patchname end if p then return patch.apply_patch(p, 1) end end --- Move a file. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function fs_lua.move(src, dest) assert(src and dest) if fs.exists(dest) and not fs.is_dir(dest) then return false, "File already exists: "..dest end local ok, err = fs.copy(src, dest) if not ok then return false, err end fs.delete(src) if fs.exists(src) then return false, "Failed move: could not delete "..src.." after copy." end return true end --- Check if user has write permissions for the command. -- Assumes the configuration variables under cfg have been previously set up. -- @param flags table: the flags table passed to run() drivers. -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function fs_lua.check_command_permissions(flags) local root_dir = path.root_dir(cfg.rocks_dir) local ok = true local err = "" for _, dir in ipairs { cfg.rocks_dir, root_dir } do if fs.exists(dir) and not fs.is_writable(dir) then ok = false err = "Your user does not have write permissions in " .. dir break end end local root_parent = dir.dir_name(root_dir) if ok and not fs.exists(root_dir) and not fs.is_writable(root_parent) then ok = false err = root_dir.." does not exist and your user does not have write permissions in " .. root_parent end if ok then return true else if flags["local"] then err = err .. " \n-- please check your permissions." else err = err .. " \n-- you may want to run as a privileged user or use your local tree with --local." end return nil, err end end --- Check whether a file is a Lua script -- When the file can be succesfully compiled by the configured -- Lua interpreter, it's considered to be a valid Lua file. -- @param name filename of file to check -- @return boolean true, if it is a Lua script, false otherwise function fs_lua.is_lua(name) name = name:gsub([[%\]],"/") -- normalize on fw slash to prevent escaping issues local lua = fs.Q(dir.path(cfg.variables["LUA_BINDIR"], cfg.lua_interpreter)) -- get lua interpreter configured -- execute on configured interpreter, might not be the same as the interpreter LR is run on local result = fs.execute_string(lua..[[ -e "if loadfile(']]..name..[[') then os.exit() else os.exit(1) end"]]) return (result == true) end return fs_lua luarocks-2.2.0+dfsg/src/luarocks/fs/unix.lua000066400000000000000000000076011241625207600207760ustar00rootroot00000000000000 --- Unix implementation of filesystem and platform abstractions. --module("luarocks.fs.unix", package.seeall) local unix = {} local fs = require("luarocks.fs") local cfg = require("luarocks.cfg") local dir = require("luarocks.dir") local util = require("luarocks.util") math.randomseed(os.time()) --- Annotate command string for quiet execution. -- @param cmd string: A command-line string. -- @return string: The command-line, with silencing annotation. function unix.quiet(cmd) return cmd.." 1> /dev/null 2> /dev/null" end --- Return an absolute pathname from a potentially relative one. -- @param pathname string: pathname to convert. -- @param relative_to string or nil: path to prepend when making -- pathname absolute, or the current dir in the dir stack if -- not given. -- @return string: The pathname converted to absolute. function unix.absolute_name(pathname, relative_to) assert(type(pathname) == "string") assert(type(relative_to) == "string" or not relative_to) relative_to = relative_to or fs.current_dir() if pathname:sub(1,1) == "/" then return pathname else return relative_to .. "/" .. pathname end end --- Create a wrapper to make a script executable from the command-line. -- @param file string: Pathname of script to be made executable. -- @param dest string: Directory where to put the wrapper. -- @param name string: rock name to be used in loader context. -- @param version string: rock version to be used in loader context. -- @return boolean or (nil, string): True if succeeded, or nil and -- an error message. function unix.wrap_script(file, dest, name, version) assert(type(file) == "string") assert(type(dest) == "string") local base = dir.base_name(file) local wrapname = fs.is_dir(dest) and dest.."/"..base or dest local lpath, lcpath = cfg.package_paths() local wrapper = io.open(wrapname, "w") if not wrapper then return nil, "Could not open "..wrapname.." for writing." end wrapper:write("#!/bin/sh\n\n") local lua = dir.path(cfg.variables["LUA_BINDIR"], cfg.lua_interpreter) local ppaths = "package.path="..util.LQ(lpath..";").."..package.path; package.cpath="..util.LQ(lcpath..";").."..package.cpath" local addctx = "local k,l,_=pcall(require,"..util.LQ("luarocks.loader")..") _=k and l.add_context("..util.LQ(name)..","..util.LQ(version)..")" wrapper:write('exec '..fs.Q(lua)..' -e '..fs.Q(ppaths)..' -e '..fs.Q(addctx)..' '..fs.Q(file)..' "$@"\n') wrapper:close() if fs.chmod(wrapname, "0755") then return true else return nil, "Could not make "..wrapname.." executable." end end --- Check if a file (typically inside path.bin_dir) is an actual binary -- or a Lua wrapper. -- @param filename string: the file name with full path. -- @return boolean: returns true if file is an actual binary -- (or if it couldn't check) or false if it is a Lua wrapper. function unix.is_actual_binary(filename) if filename:match("%.lua$") then return false end local file = io.open(filename) if not file then return true end local first = file:read(2) file:close() if not first then util.printerr("Warning: could not read "..filename) return true end return first ~= "#!" end function unix.copy_binary(filename, dest) return fs.copy(filename, dest, "0755") end --- Move a file on top of the other. -- The new file ceases to exist under its original name, -- and takes over the name of the old file. -- On Unix this is done through a single rename operation. -- @param old_file The name of the original file, -- which will be the new name of new_file. -- @param new_file The name of the new file, -- which will replace old_file. -- @return boolean or (nil, string): True if succeeded, or nil and -- an error message. function unix.replace_file(old_file, new_file) return os.rename(new_file, old_file) end function unix.tmpname() return os.tmpname() end return unix luarocks-2.2.0+dfsg/src/luarocks/fs/unix/000077500000000000000000000000001241625207600202675ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/fs/unix/tools.lua000066400000000000000000000262451241625207600221430ustar00rootroot00000000000000 --- fs operations implemented with third-party tools for Unix platform abstractions. --module("luarocks.fs.unix.tools", package.seeall) local tools = {} local fs = require("luarocks.fs") local dir = require("luarocks.dir") local cfg = require("luarocks.cfg") local dir_stack = {} local vars = cfg.variables local function command_at(directory, cmd) return "cd " .. fs.Q(directory) .. " && " .. cmd end --- Obtain current directory. -- Uses the module's internal directory stack. -- @return string: the absolute pathname of the current directory. function tools.current_dir() local current = cfg.cache_pwd if not current then local pipe = io.popen(fs.Q(vars.PWD)) current = pipe:read("*l") pipe:close() cfg.cache_pwd = current end for _, directory in ipairs(dir_stack) do current = fs.absolute_name(directory, current) end return current end --- Run the given command. -- The command is executed in the current directory in the directory stack. -- @param cmd string: No quoting/escaping is applied to the command. -- @return boolean: true if command succeeds (status code 0), false -- otherwise. function tools.execute_string(cmd) local code, err = os.execute(command_at(fs.current_dir(), cmd)) if code == 0 or code == true then return true else return false end end --- Change the current directory. -- Uses the module's internal directory stack. This does not have exact -- semantics of chdir, as it does not handle errors the same way, -- but works well for our purposes for now. -- @param directory string: The directory to switch to. function tools.change_dir(directory) assert(type(directory) == "string") if fs.is_dir(directory) then table.insert(dir_stack, directory) return true end return nil, "directory not found: "..directory end --- Change directory to root. -- Allows leaving a directory (e.g. for deleting it) in -- a crossplatform way. function tools.change_dir_to_root() table.insert(dir_stack, "/") end --- Change working directory to the previous in the directory stack. function tools.pop_dir() local directory = table.remove(dir_stack) return directory ~= nil end --- Create a directory if it does not already exist. -- If any of the higher levels in the path name does not exist -- too, they are created as well. -- @param directory string: pathname of directory to create. -- @return boolean: true on success, false on failure. function tools.make_dir(directory) assert(directory) local ok, err = fs.execute(vars.MKDIR.." -p", directory) if not ok then err = "failed making directory "..directory end return ok, err end --- Remove a directory if it is empty. -- Does not return errors (for example, if directory is not empty or -- if already does not exist) -- @param directory string: pathname of directory to remove. function tools.remove_dir_if_empty(directory) assert(directory) fs.execute_quiet(vars.RMDIR, directory) end --- Remove a directory if it is empty. -- Does not return errors (for example, if directory is not empty or -- if already does not exist) -- @param directory string: pathname of directory to remove. function tools.remove_dir_tree_if_empty(directory) assert(directory) fs.execute_quiet(vars.RMDIR, "-p", directory) end --- Copy a file. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @param perm string or nil: Permissions for destination file, -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function tools.copy(src, dest, perm) assert(src and dest) if fs.execute(vars.CP, src, dest) then if perm then if fs.is_dir(dest) then dest = dir.path(dest, dir.base_name(src)) end if fs.chmod(dest, perm) then return true else return false, "Failed setting permissions of "..dest end end return true else return false, "Failed copying "..src.." to "..dest end end --- Recursively copy the contents of a directory. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function tools.copy_contents(src, dest) assert(src and dest) if fs.execute_quiet(vars.CP.." -pPR "..fs.Q(src).."/* "..fs.Q(dest)) then return true else return false, "Failed copying "..src.." to "..dest end end --- Delete a file or a directory and all its contents. -- For safety, this only accepts absolute paths. -- @param arg string: Pathname of source -- @return nil function tools.delete(arg) assert(arg) assert(arg:sub(1,1) == "/") fs.execute_quiet(vars.RM, "-rf", arg) end --- Internal implementation function for fs.dir. -- Yields a filename on each iteration. -- @param at string: directory to list -- @return nil function tools.dir_iterator(at) local pipe = io.popen(command_at(at, vars.LS)) for file in pipe:lines() do if file ~= "." and file ~= ".." then coroutine.yield(file) end end pipe:close() end --- Recursively scan the contents of a directory. -- @param at string or nil: directory to scan (will be the current -- directory if none is given). -- @return table: an array of strings with the filenames representing -- the contents of a directory. function tools.find(at) assert(type(at) == "string" or not at) if not at then at = fs.current_dir() end if not fs.is_dir(at) then return {} end local result = {} local pipe = io.popen(command_at(at, vars.FIND.." * 2>/dev/null")) for file in pipe:lines() do table.insert(result, file) end pipe:close() return result end --- Compress files in a .zip archive. -- @param zipfile string: pathname of .zip archive to be created. -- @param ... Filenames to be stored in the archive are given as -- additional arguments. -- @return boolean: true on success, false on failure. function tools.zip(zipfile, ...) return fs.execute(vars.ZIP.." -r", zipfile, ...) end --- Uncompress files from a .zip archive. -- @param zipfile string: pathname of .zip archive to be extracted. -- @return boolean: true on success, false on failure. function tools.unzip(zipfile) assert(zipfile) return fs.execute_quiet(vars.UNZIP, zipfile) end --- Test is file/directory exists -- @param file string: filename to test -- @return boolean: true if file exists, false otherwise. function tools.exists(file) assert(file) return fs.execute(vars.TEST, "-e", file) end --- Test is pathname is a directory. -- @param file string: pathname to test -- @return boolean: true if it is a directory, false otherwise. function tools.is_dir(file) assert(file) return fs.execute(vars.TEST, "-d", file) end --- Test is pathname is a regular file. -- @param file string: pathname to test -- @return boolean: true if it is a regular file, false otherwise. function tools.is_file(file) assert(file) return fs.execute(vars.TEST, "-f", file) end --- Download a remote file. -- @param url string: URL to be fetched. -- @param filename string or nil: this function attempts to detect the -- resulting local filename of the remote file as the basename of the URL; -- if that is not correct (due to a redirection, for example), the local -- filename can be given explicitly as this second argument. -- @return (boolean, string): true and the filename on success, -- false and the error message on failure. function tools.use_downloader(url, filename, cache) assert(type(url) == "string") assert(type(filename) == "string" or not filename) filename = fs.absolute_name(filename or dir.base_name(url)) local ok if cfg.downloader == "wget" then local wget_cmd = fs.Q(vars.WGET).." --no-check-certificate --no-cache --user-agent='"..cfg.user_agent.." via wget' --quiet " if cfg.connection_timeout and cfg.connection_timeout > 0 then wget_cmd = wget_cmd .. "--timeout="..tonumber(cfg.connection_timeout).." --tries=1 " end if cache then -- --timestamping is incompatible with --output-document, -- but that's not a problem for our use cases. fs.change_dir(dir.dir_name(filename)) ok = fs.execute_quiet(wget_cmd.." --timestamping ", url) fs.pop_dir() elseif filename then ok = fs.execute_quiet(wget_cmd.." --output-document ", filename, url) else ok = fs.execute_quiet(wget_cmd, url) end elseif cfg.downloader == "curl" then local curl_cmd = fs.Q(vars.CURL).." -f -k -L --user-agent '"..cfg.user_agent.." via curl' " if cfg.connection_timeout and cfg.connection_timeout > 0 then curl_cmd = curl_cmd .. "--connect-timeout "..tonumber(cfg.connection_timeout).." " end ok = fs.execute_string(curl_cmd..fs.Q(url).." 2> /dev/null 1> "..fs.Q(filename)) end if ok then return true, filename else return false end end function tools.chmod(pathname, mode) if mode then return fs.execute(vars.CHMOD, mode, pathname) else return false end end --- Apply a patch. -- @param patchname string: The filename of the patch. function tools.apply_patch(patchname) return fs.execute(vars.PATCH.." -p1 -f -i ", patchname) end --- Unpack an archive. -- Extract the contents of an archive, detecting its format by -- filename extension. -- @param archive string: Filename of archive. -- @return boolean or (boolean, string): true on success, false and an error message on failure. function tools.unpack_archive(archive) assert(type(archive) == "string") local ok if archive:match("%.tar%.gz$") or archive:match("%.tgz$") then ok = fs.execute_string(vars.GUNZIP.." -c "..archive.."|"..vars.TAR.." -xf -") elseif archive:match("%.tar%.bz2$") then ok = fs.execute_string(vars.BUNZIP2.." -c "..archive.."|tar -xf -") elseif archive:match("%.zip$") then ok = fs.execute(vars.UNZIP, archive) elseif archive:match("%.lua$") or archive:match("%.c$") then -- Ignore .lua and .c files; they don't need to be extracted. return true else local ext = archive:match(".*(%..*)") return false, "Unrecognized filename extension "..(ext or "") end if not ok then return false, "Failed extracting "..archive end return true end local md5_cmd = { md5sum = vars.MD5SUM, openssl = vars.OPENSSL.." md5", md5 = vars.MD5, } --- Get the MD5 checksum for a file. -- @param file string: The file to be computed. -- @return string: The MD5 checksum function tools.get_md5(file) local cmd = md5_cmd[cfg.md5checker] if not cmd then return nil, "no MD5 checker command configured" end local pipe = io.popen(cmd.." "..fs.Q(fs.absolute_name(file))) local computed = pipe:read("*a") pipe:close() if computed then computed = computed:match("("..("%x"):rep(32)..")") end if computed then return computed end return nil, "Failed to compute MD5 hash for file "..tostring(fs.absolute_name(file)) end function tools.get_permissions(filename) local pipe = io.popen(vars.STAT.." "..vars.STATFLAG.." "..fs.Q(filename)) local ret = pipe:read("*l") pipe:close() return ret end function tools.browser(url) return fs.execute(cfg.web_browser, url) end return tools luarocks-2.2.0+dfsg/src/luarocks/fs/win32.lua000066400000000000000000000162671241625207600207650ustar00rootroot00000000000000--- Windows implementation of filesystem and platform abstractions. -- Download http://unxutils.sourceforge.net/ for Windows GNU utilities -- used by this module. --module("luarocks.fs.win32", package.seeall) local win32 = {} local fs = require("luarocks.fs") local cfg = require("luarocks.cfg") local dir = require("luarocks.dir") local util = require("luarocks.util") -- Monkey patch io.popen and os.execute to make sure quoting -- works as expected. -- See http://lua-users.org/lists/lua-l/2013-11/msg00367.html local _prefix = "type NUL && " local _popen, _execute = io.popen, os.execute io.popen = function(cmd, ...) return _popen(_prefix..cmd, ...) end os.execute = function(cmd, ...) return _execute(_prefix..cmd, ...) end --- Annotate command string for quiet execution. -- @param cmd string: A command-line string. -- @return string: The command-line, with silencing annotation. function win32.quiet(cmd) return cmd.." 2> NUL 1> NUL" end local win_escape_chars = { ["%"] = "%%", ['"'] = '\\"', } local function q_escaper(bs, q) return ("\\"):rep(2*#bs-1) .. (q or "\\") end local function p_escaper(bs) return bs .. bs .. '"%"' end --- Quote argument for shell processing. Fixes paths on Windows. -- Adds double quotes and escapes. -- @param arg string: Unquoted argument. -- @return string: Quoted argument. function win32.Q(arg) assert(type(arg) == "string") -- Quote DIR for Windows if arg:match("^[%.a-zA-Z]?:?[\\/]") then arg = arg:gsub("/", "\\") end if arg == "\\" then return '\\' -- CHDIR needs special handling for root dir end -- URLs and anything else arg = arg:gsub('(\\+)(")', q_escaper) arg = arg:gsub('(\\+)$', q_escaper) arg = arg:gsub('"', win_escape_chars) arg = arg:gsub('(\\*)%%', p_escaper) return '"' .. arg .. '"' end --- Quote argument for shell processing in batch files. -- Adds double quotes and escapes. -- @param arg string: Unquoted argument. -- @return string: Quoted argument. function win32.Qb(arg) assert(type(arg) == "string") -- Quote DIR for Windows if arg:match("^[%.a-zA-Z]?:?[\\/]") then arg = arg:gsub("/", "\\") end if arg == "\\" then return '\\' -- CHDIR needs special handling for root dir end -- URLs and anything else arg = arg:gsub('(\\+)(")', q_escaper) arg = arg:gsub('(\\+)$', q_escaper) arg = arg:gsub('[%%"]', win_escape_chars) return '"' .. arg .. '"' end --- Return an absolute pathname from a potentially relative one. -- @param pathname string: pathname to convert. -- @param relative_to string or nil: path to prepend when making -- pathname absolute, or the current dir in the dir stack if -- not given. -- @return string: The pathname converted to absolute. function win32.absolute_name(pathname, relative_to) assert(type(pathname) == "string") assert(type(relative_to) == "string" or not relative_to) relative_to = relative_to or fs.current_dir() -- FIXME I'm not sure this first \\ should be there at all. -- What are the Windows rules for drive letters? if pathname:match("^[\\.a-zA-Z]?:?[\\/]") then return pathname else return relative_to .. "/" .. pathname end end --- Create a wrapper to make a script executable from the command-line. -- @param file string: Pathname of script to be made executable. -- @param dest string: Directory where to put the wrapper. -- @param name string: rock name to be used in loader context. -- @param version string: rock version to be used in loader context. -- @return boolean or (nil, string): True if succeeded, or nil and -- an error message. function win32.wrap_script(file, dest, name, version) assert(type(file) == "string") assert(type(dest) == "string") local base = dir.base_name(file) local wrapname = fs.is_dir(dest) and dest.."/"..base or dest wrapname = wrapname..".bat" local lpath, lcpath = cfg.package_paths() local wrapper = io.open(wrapname, "w") if not wrapper then return nil, "Could not open "..wrapname.." for writing." end wrapper:write("@echo off\n") local lua = dir.path(cfg.variables["LUA_BINDIR"], cfg.lua_interpreter) local ppaths = "package.path="..util.LQ(lpath..";").."..package.path; package.cpath="..util.LQ(lcpath..";").."..package.cpath" local addctx = "local k,l,_=pcall(require,"..util.LQ("luarocks.loader")..") _=k and l.add_context("..util.LQ(name)..","..util.LQ(version)..")" wrapper:write(fs.Qb(lua)..' -e '..fs.Qb(ppaths)..' -e '..fs.Qb(addctx)..' '..fs.Qb(file)..' %*\n') wrapper:close() return true end function win32.is_actual_binary(name) name = name:lower() if name:match("%.bat$") or name:match("%.exe$") then return true end return false end function win32.copy_binary(filename, dest) local ok, err = fs.copy(filename, dest) if not ok then return nil, err end local exe_pattern = "%.[Ee][Xx][Ee]$" local base = dir.base_name(filename) dest = dir.dir_name(dest) if base:match(exe_pattern) then base = base:gsub(exe_pattern, ".lua") local helpname = dest.."/"..base local helper = io.open(helpname, "w") if not helper then return nil, "Could not open "..helpname.." for writing." end helper:write('package.path=\"'..package.path:gsub("\\","\\\\")..';\"..package.path\n') helper:write('package.cpath=\"'..package.path:gsub("\\","\\\\")..';\"..package.cpath\n') helper:close() end return true end function win32.chmod(filename, mode) return true end function win32.get_permissions(filename) return "" end --- Move a file on top of the other. -- The new file ceases to exist under its original name, -- and takes over the name of the old file. -- On Windows this is done by removing the original file and -- renaming the new file to its original name. -- @param old_file The name of the original file, -- which will be the new name of new_file. -- @param new_file The name of the new file, -- which will replace old_file. -- @return boolean or (nil, string): True if succeeded, or nil and -- an error message. function win32.replace_file(old_file, new_file) os.remove(old_file) return os.rename(new_file, old_file) end --- Test is file/dir is writable. -- Warning: testing if a file/dir is writable does not guarantee -- that it will remain writable and therefore it is no replacement -- for checking the result of subsequent operations. -- @param file string: filename to test -- @return boolean: true if file exists, false otherwise. function win32.is_writable(file) assert(file) file = dir.normalize(file) local result local tmpname = 'tmpluarockstestwritable.deleteme' if fs.is_dir(file) then local file2 = dir.path(file, tmpname) local fh = io.open(file2, 'wb') result = fh ~= nil if fh then fh:close() end if result then -- the above test might give a false positive when writing to -- c:\program files\ because of VirtualStore redirection on Vista and up -- So check whether it's really there result = fs.exists(file2) end os.remove(file2) else local fh = io.open(file, 'r+b') result = fh ~= nil if fh then fh:close() end end return result end function win32.tmpname() return os.getenv("TMP")..os.tmpname() end return win32 luarocks-2.2.0+dfsg/src/luarocks/fs/win32/000077500000000000000000000000001241625207600202465ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/fs/win32/tools.lua000066400000000000000000000302271241625207600221150ustar00rootroot00000000000000 --- fs operations implemented with third-party tools for Windows platform abstractions. -- Download http://unxutils.sourceforge.net/ for Windows GNU utilities -- used by this module. --module("luarocks.fs.win32.tools", package.seeall) local tools = {} local fs = require("luarocks.fs") local dir = require("luarocks.dir") local cfg = require("luarocks.cfg") local dir_stack = {} local vars = cfg.variables --- Strip the last extension of a filename. -- Example: "foo.tar.gz" becomes "foo.tar". -- If filename has no dots, returns it unchanged. -- @param filename string: The file name to strip. -- @return string: The stripped name. local function strip_extension(filename) assert(type(filename) == "string") return (filename:gsub("%.[^.]+$", "")) or filename end local function command_at(directory, cmd) local drive = directory:match("^([A-Za-z]:)") cmd = "cd " .. fs.Q(directory) .. " & " .. cmd if drive then cmd = drive .. " & " .. cmd end return cmd end --- Obtain current directory. -- Uses the module's internal directory stack. -- @return string: the absolute pathname of the current directory. function tools.current_dir() local current = cfg.cache_pwd if not current then local pipe = io.popen(fs.Q(vars.PWD)) current = pipe:read("*l") pipe:close() cfg.cache_pwd = current end for _, directory in ipairs(dir_stack) do current = fs.absolute_name(directory, current) end return current end --- Run the given command. -- The command is executed in the current directory in the directory stack. -- @param cmd string: No quoting/escaping is applied to the command. -- @return boolean: true if command succeeds (status code 0), false -- otherwise. function tools.execute_string(cmd) cmd = command_at(fs.current_dir(), cmd) local code = os.execute(cmd) if code == 0 or code == true then return true else return false end end --- Change the current directory. -- Uses the module's internal directory stack. This does not have exact -- semantics of chdir, as it does not handle errors the same way, -- but works well for our purposes for now. -- @param directory string: The directory to switch to. -- @return boolean or (nil, string): true if successful, (nil, error message) if failed. function tools.change_dir(directory) assert(type(directory) == "string") if fs.is_dir(directory) then table.insert(dir_stack, directory) return true end return nil, "directory not found: "..directory end --- Change directory to root. -- Allows leaving a directory (e.g. for deleting it) in -- a crossplatform way. function tools.change_dir_to_root() table.insert(dir_stack, "/") end --- Change working directory to the previous in the directory stack. function tools.pop_dir() local directory = table.remove(dir_stack) return directory ~= nil end --- Create a directory if it does not already exist. -- If any of the higher levels in the path name does not exist -- too, they are created as well. -- @param directory string: pathname of directory to create. -- @return boolean: true on success, false on failure. function tools.make_dir(directory) assert(directory) directory = dir.normalize(directory) fs.execute_quiet(fs.Q(vars.MKDIR).." -p ", directory) if not fs.is_dir(directory) then return false, "failed making directory "..directory end return true end --- Remove a directory if it is empty. -- Does not return errors (for example, if directory is not empty or -- if already does not exist) -- @param directory string: pathname of directory to remove. function tools.remove_dir_if_empty(directory) assert(directory) fs.execute_quiet(fs.Q(vars.RMDIR), directory) end --- Remove a directory if it is empty. -- Does not return errors (for example, if directory is not empty or -- if already does not exist) -- @param directory string: pathname of directory to remove. function tools.remove_dir_tree_if_empty(directory) assert(directory) fs.execute_quiet(fs.Q(vars.RMDIR), directory) end --- Copy a file. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function tools.copy(src, dest) assert(src and dest) if dest:match("[/\\]$") then dest = dest:sub(1, -2) end local ok = fs.execute(fs.Q(vars.CP), src, dest) if ok then return true else return false, "Failed copying "..src.." to "..dest end end --- Recursively copy the contents of a directory. -- @param src string: Pathname of source -- @param dest string: Pathname of destination -- @return boolean or (boolean, string): true on success, false on failure, -- plus an error message. function tools.copy_contents(src, dest) assert(src and dest) if fs.execute_quiet(fs.Q(vars.CP).." -dR "..src.."\\*.* "..fs.Q(dest)) then return true else return false, "Failed copying "..src.." to "..dest end end --- Delete a file or a directory and all its contents. -- For safety, this only accepts absolute paths. -- @param arg string: Pathname of source -- @return nil function tools.delete(arg) assert(arg) assert(arg:match("^[a-zA-Z]?:?[\\/]")) fs.execute_quiet("if exist "..fs.Q(arg.."\\").." ( RMDIR /S /Q "..fs.Q(arg).." ) else ( DEL /Q /F "..fs.Q(arg).." )") end --- Internal implementation function for fs.dir. -- Yields a filename on each iteration. -- @param at string: directory to list -- @return nil function tools.dir_iterator(at) local pipe = io.popen(command_at(at, fs.Q(vars.LS))) for file in pipe:lines() do if file ~= "." and file ~= ".." then coroutine.yield(file) end end pipe:close() end --- Recursively scan the contents of a directory. -- @param at string or nil: directory to scan (will be the current -- directory if none is given). -- @return table: an array of strings with the filenames representing -- the contents of a directory. Paths are returned with forward slashes. function tools.find(at) assert(type(at) == "string" or not at) if not at then at = fs.current_dir() end if not fs.is_dir(at) then return {} end local result = {} local pipe = io.popen(command_at(at, fs.Q(vars.FIND).." 2> NUL")) for file in pipe:lines() do -- Windows find is a bit different local first_two = file:sub(1,2) if first_two == ".\\" or first_two == "./" then file=file:sub(3) end if file ~= "." then table.insert(result, (file:gsub("\\", "/"))) end end pipe:close() return result end --- Compress files in a .zip archive. -- @param zipfile string: pathname of .zip archive to be created. -- @param ... Filenames to be stored in the archive are given as -- additional arguments. -- @return boolean: true on success, false on failure. function tools.zip(zipfile, ...) return fs.execute_quiet(fs.Q(vars.SEVENZ).." -aoa a -tzip", zipfile, ...) end --- Uncompress files from a .zip archive. -- @param zipfile string: pathname of .zip archive to be extracted. -- @return boolean: true on success, false on failure. function tools.unzip(zipfile) assert(zipfile) return fs.execute_quiet(fs.Q(vars.SEVENZ).." -aoa x", zipfile) end --- Test is pathname is a directory. -- @param file string: pathname to test -- @return boolean: true if it is a directory, false otherwise. function tools.is_dir(file) assert(file) return fs.execute_quiet("if not exist " .. fs.Q(file.."\\").." invalidcommandname") end --- Test is pathname is a regular file. -- @param file string: pathname to test -- @return boolean: true if it is a regular file, false otherwise. function tools.is_file(file) assert(file) return fs.execute(fs.Q(vars.TEST).." -f", file) end --- Download a remote file. -- @param url string: URL to be fetched. -- @param filename string or nil: this function attempts to detect the -- resulting local filename of the remote file as the basename of the URL; -- if that is not correct (due to a redirection, for example), the local -- filename can be given explicitly as this second argument. -- @return (boolean, string): true and the filename on success, -- false and the error message on failure. function tools.use_downloader(url, filename, cache) assert(type(url) == "string") assert(type(filename) == "string" or not filename) filename = fs.absolute_name(filename or dir.base_name(url)) local ok if cfg.downloader == "wget" then local wget_cmd = fs.Q(vars.WGET).." --no-check-certificate --no-cache --user-agent=\""..cfg.user_agent.." via wget\" --quiet " if cfg.connection_timeout and cfg.connection_timeout > 0 then wget_cmd = wget_cmd .. "--timeout="..tonumber(cfg.connection_timeout).." --tries=1 " end if cache then -- --timestamping is incompatible with --output-document, -- but that's not a problem for our use cases. fs.change_dir(dir.dir_name(filename)) ok = fs.execute_quiet(wget_cmd.." --timestamping ", url) fs.pop_dir() elseif filename then ok = fs.execute_quiet(wget_cmd.." --output-document ", filename, url) else ok = fs.execute_quiet(wget_cmd, url) end elseif cfg.downloader == "curl" then local curl_cmd = vars.CURL.." -f -k -L --user-agent \""..cfg.user_agent.." via curl\" " if cfg.connection_timeout and cfg.connection_timeout > 0 then curl_cmd = curl_cmd .. "--connect-timeout "..tonumber(cfg.connection_timeout).." " end ok = fs.execute_string(curl_cmd..fs.Q(url).." 2> NUL 1> "..fs.Q(filename)) end if ok then return true, filename else return false end end --- Uncompress gzip file. -- @param archive string: Filename of archive. -- @return boolean : success status local function gunzip(archive) return fs.execute_quiet(fs.Q(vars.SEVENZ).." -aoa x", archive) end --- Unpack an archive. -- Extract the contents of an archive, detecting its format by -- filename extension. -- @param archive string: Filename of archive. -- @return boolean or (boolean, string): true on success, false and an error message on failure. function tools.unpack_archive(archive) assert(type(archive) == "string") local ok local sevenzx = fs.Q(vars.SEVENZ).." -aoa x" if archive:match("%.tar%.gz$") then ok = gunzip(archive) if ok then ok = fs.execute_quiet(sevenzx, strip_extension(archive)) end elseif archive:match("%.tgz$") then ok = gunzip(archive) if ok then ok = fs.execute_quiet(sevenzx, strip_extension(archive)..".tar") end elseif archive:match("%.tar%.bz2$") then ok = fs.execute_quiet(sevenzx, archive) if ok then ok = fs.execute_quiet(sevenzx, strip_extension(archive)) end elseif archive:match("%.zip$") then ok = fs.execute_quiet(sevenzx, archive) elseif archive:match("%.lua$") or archive:match("%.c$") then -- Ignore .lua and .c files; they don't need to be extracted. return true else local ext = archive:match(".*(%..*)") return false, "Unrecognized filename extension "..(ext or "") end if not ok then return false, "Failed extracting "..archive end return true end local md5_cmd = { md5sum = fs.Q(vars.MD5SUM), openssl = fs.Q(vars.OPENSSL).." md5", md5 = fs.Q(vars.MD5), } --- Get the MD5 checksum for a file. -- @param file string: The file to be computed. -- @return string: The MD5 checksum or nil + message function tools.get_md5(file) local cmd = md5_cmd[cfg.md5checker] if not cmd then return nil, "no MD5 checker command configured" end local pipe = io.popen(cmd.." "..fs.Q(fs.absolute_name(file))) local computed = pipe:read("*a") pipe:close() if computed then computed = computed:match("("..("%x"):rep(32)..")") end if computed then return computed end return nil, "Failed to compute MD5 hash for file "..tostring(fs.absolute_name(file)) end --- Test for existance of a file. -- @param file string: filename to test -- @return boolean: true if file exists, false otherwise. function tools.exists(file) assert(file) return fs.execute_quiet("if not exist " .. fs.Q(file) .. " invalidcommandname") end function tools.browser(url) return fs.execute(cfg.web_browser..' "Starting docs..." '..fs.Q(url)) end return tools luarocks-2.2.0+dfsg/src/luarocks/help.lua000066400000000000000000000111011241625207600203210ustar00rootroot00000000000000 --- Module implementing the LuaRocks "help" command. -- This is a generic help display module, which -- uses a global table called "commands" to find commands -- to show help for; each command should be represented by a -- table containing "help" and "help_summary" fields. --module("luarocks.help", package.seeall) local help = {} local util = require("luarocks.util") local cfg = require("luarocks.cfg") local dir = require("luarocks.dir") local program = util.this_program("luarocks") help.help_summary = "Help on commands. Type '"..program.." help ' for more." help.help_arguments = "[]" help.help = [[ is the command to show help for. ]] local function print_banner() util.printout("\nLuaRocks "..cfg.program_version..", a module deployment system for Lua") end local function print_section(section) util.printout("\n"..section) end local function get_status(status) if status then return "ok" elseif status == false then return "not found" else return "failed" end end --- Driver function for the "help" command. -- @param command string or nil: command to show help for; if not -- given, help summaries for all commands are shown. -- @return boolean or (nil, string): true if there were no errors -- or nil and an error message if an invalid command was requested. function help.run(...) local flags, command = util.parse_flags(...) if not command then local sys_file, sys_ok, home_file, home_ok = cfg.which_config() print_banner() print_section("NAME") util.printout("\t"..program..[[ - ]]..program_description) print_section("SYNOPSIS") util.printout("\t"..program..[[ [--from= | --only-from=] [--to=] [VAR=VALUE]... [] ]]) print_section("GENERAL OPTIONS") util.printout([[ These apply to all commands, as appropriate: --server= Fetch rocks/rockspecs from this server (takes priority over config file) --only-server= Fetch rocks/rockspecs from this server only (overrides any entries in the config file) --only-sources= Restrict downloads to paths matching the given URL. --tree= Which tree to operate on. --local Use the tree in the user's home directory. To enable it, see ']]..program..[[ help path'. --verbose Display verbose output of commands executed. --timeout= Timeout on network operations, in seconds. 0 means no timeout (wait forever). Default is ]]..cfg.connection_timeout..[[.]]) print_section("VARIABLES") util.printout([[ Variables from the "variables" table of the configuration file can be overriden with VAR=VALUE assignments.]]) print_section("COMMANDS") for name, command in util.sortedpairs(commands) do local cmd = require(command) util.printout("", name) util.printout("\t", cmd.help_summary) end print_section("CONFIGURATION") util.printout("\tLua version: " .. cfg.lua_version) util.printout("\tConfiguration files:") util.printout("\t\tSystem: ".. dir.normalize(sys_file) .. " (" .. get_status(sys_ok) ..")") if home_file then util.printout("\t\tUser : ".. dir.normalize(home_file) .. " (" .. get_status(home_ok) ..")\n") else util.printout("\t\tUser : disabled in this LuaRocks installation.\n") end util.printout("\tRocks trees in use: ") for _, tree in ipairs(cfg.rocks_trees) do if type(tree) == "string" then util.printout("\t\t"..dir.normalize(tree)) else local name = tree.name and " (\""..tree.name.."\")" or "" util.printout("\t\t"..dir.normalize(tree.root)..name) end end else command = command:gsub("-", "_") local cmd = require(commands[command]) if cmd then local arguments = cmd.help_arguments or "" print_banner() print_section("NAME") util.printout("\t"..program.." "..command.." - "..cmd.help_summary) print_section("SYNOPSIS") util.printout("\t"..program.." "..command.." "..arguments) print_section("DESCRIPTION") util.printout("",(cmd.help:gsub("\n","\n\t"):gsub("\n\t$",""))) print_section("SEE ALSO") util.printout("","'"..program.." help' for general options and configuration.\n") else return nil, "Unknown command '"..command.."'" end end return true end return help luarocks-2.2.0+dfsg/src/luarocks/index.lua000066400000000000000000000126371241625207600205170ustar00rootroot00000000000000 --- Module which builds the index.html page to be used in rocks servers. --module("luarocks.index", package.seeall) local index = {} package.loaded["luarocks.index"] = index local util = require("luarocks.util") local fs = require("luarocks.fs") local deps = require("luarocks.deps") local persist = require("luarocks.persist") local dir = require("luarocks.dir") local manif = require("luarocks.manif") local ext_url_target = ' target="_blank"' local index_header = [[ Available rocks

Available rocks

Lua modules available from this location for use with LuaRocks:

]] local index_package_begin = [[ ]] local index_footer_begin = [[

$package - $summary

$detailed
$externaldependencies latest sources $homepage | License: $license

 ]] local index_package_end = [[

manifest file ]] local index_manifest_ver = [[ • Lua $VER manifest file (zip) ]] local index_footer_end = [[

]] function index.format_external_dependencies(rockspec) if rockspec.external_dependencies then local deplist = {} local listed_set = {} local plats = nil for name, desc in util.sortedpairs(rockspec.external_dependencies) do if name ~= "platforms" then table.insert(deplist, name:lower()) listed_set[name] = true else plats = desc end end if plats then for plat, entries in util.sortedpairs(plats) do for name, desc in util.sortedpairs(entries) do if not listed_set[name] then table.insert(deplist, name:lower() .. " (on "..plat..")") end end end end return '

External dependencies: ' .. table.concat(deplist, ', ').. '

' else return "" end end function index.make_index(repo) if not fs.is_dir(repo) then return nil, "Cannot access repository at "..repo end local manifest = manif.load_manifest(repo) local out = io.open(dir.path(repo, "index.html"), "w") out:write(index_header) for package, version_list in util.sortedpairs(manifest.repository) do local latest_rockspec = nil local output = index_package_begin for version, data in util.sortedpairs(version_list, deps.compare_versions) do local versions = {} output = output..version..': ' table.sort(data, function(a,b) return a.arch < b.arch end) for _, item in ipairs(data) do local file if item.arch == 'rockspec' then file = ("%s-%s.rockspec"):format(package, version) if not latest_rockspec then latest_rockspec = file end else file = ("%s-%s.%s.rock"):format(package, version, item.arch) end table.insert(versions, ''..item.arch..'') end output = output .. table.concat(versions, ', ') .. '
' end output = output .. index_package_end if latest_rockspec then local rockspec = persist.load_into_table(dir.path(repo, latest_rockspec)) local descript = rockspec.description or {} local vars = { anchor = package, package = rockspec.package, original = rockspec.source.url, summary = descript.summary or "", detailed = descript.detailed or "", license = descript.license or "N/A", homepage = descript.homepage and ('| project homepage') or "", externaldependencies = index.format_external_dependencies(rockspec) } vars.detailed = vars.detailed:gsub("\n\n", "

"):gsub("%s+", " ") vars.detailed = vars.detailed:gsub("(https?://[a-zA-Z0-9%.%%-_%+%[%]=%?&/$@;:]+)", '%1') output = output:gsub("$(%w+)", vars) else output = output:gsub("$anchor", package) output = output:gsub("$package", package) output = output:gsub("$(%w+)", "") end out:write(output) end out:write(index_footer_begin) for ver in util.lua_versions() do out:write((index_manifest_ver:gsub("$VER", ver))) end out:write(index_footer_end) out:close() end return index luarocks-2.2.0+dfsg/src/luarocks/install.lua000066400000000000000000000142471241625207600210550ustar00rootroot00000000000000--- Module implementing the LuaRocks "install" command. -- Installs binary rocks. --module("luarocks.install", package.seeall) local install = {} package.loaded["luarocks.install"] = install local path = require("luarocks.path") local repos = require("luarocks.repos") local fetch = require("luarocks.fetch") local util = require("luarocks.util") local fs = require("luarocks.fs") local deps = require("luarocks.deps") local manif = require("luarocks.manif") local remove = require("luarocks.remove") local cfg = require("luarocks.cfg") install.help_summary = "Install a rock." install.help_arguments = "{| []}" install.help = [[ Argument may be the name of a rock to be fetched from a repository or a filename of a locally available rock. --keep Do not remove previously installed versions of the rock after installing a new one. This behavior can be made permanent by setting keep_other_versions=true in the configuration file. ]]..util.deps_mode_help() --- Install a binary rock. -- @param rock_file string: local or remote filename of a rock. -- @param deps_mode: string: Which trees to check dependencies for: -- "one" for the current default tree, "all" for all trees, -- "order" for all trees with priority >= the current default, "none" for no trees. -- @return (string, string) or (nil, string, [string]): Name and version of -- installed rock if succeeded or nil and an error message followed by an error code. function install.install_binary_rock(rock_file, deps_mode) assert(type(rock_file) == "string") local name, version, arch = path.parse_name(rock_file) if not name then return nil, "Filename "..rock_file.." does not match format 'name-version-revision.arch.rock'." end if arch ~= "all" and arch ~= cfg.arch then return nil, "Incompatible architecture "..arch, "arch" end if repos.is_installed(name, version) then repos.delete_version(name, version) end local rollback = util.schedule_function(function() fs.delete(path.install_dir(name, version)) fs.remove_dir_if_empty(path.versions_dir(name)) end) local ok, err, errcode = fetch.fetch_and_unpack_rock(rock_file, path.install_dir(name, version)) if not ok then return nil, err, errcode end local rockspec, err, errcode = fetch.load_rockspec(path.rockspec_file(name, version)) if err then return nil, "Failed loading rockspec for installed package: "..err, errcode end if deps_mode == "none" then util.printerr("Warning: skipping dependency checks.") else ok, err, errcode = deps.check_external_deps(rockspec, "install") if err then return nil, err, errcode end end -- For compatibility with .rock files built with LuaRocks 1 if not fs.exists(path.rock_manifest_file(name, version)) then ok, err = manif.make_rock_manifest(name, version) if err then return nil, err end end if deps_mode ~= "none" then ok, err, errcode = deps.fulfill_dependencies(rockspec, deps_mode) if err then return nil, err, errcode end end ok, err = repos.deploy_files(name, version, repos.should_wrap_bin_scripts(rockspec)) if err then return nil, err end util.remove_scheduled_function(rollback) rollback = util.schedule_function(function() repos.delete_version(name, version) end) ok, err = repos.run_hook(rockspec, "post_install") if err then return nil, err end ok, err = manif.update_manifest(name, version, nil, deps_mode) if err then return nil, err end local license = "" if rockspec.description.license then license = ("(license: "..rockspec.description.license..")") end local root_dir = path.root_dir(cfg.rocks_dir) util.printout() util.printout(name.." "..version.." is now installed in "..root_dir.." "..license) util.remove_scheduled_function(rollback) return name, version end --- Driver function for the "install" command. -- @param name string: name of a binary rock. If an URL or pathname -- to a binary rock is given, fetches and installs it. If a rockspec or a -- source rock is given, forwards the request to the "build" command. -- If a package name is given, forwards the request to "search" and, -- if returned a result, installs the matching rock. -- @param version string: When passing a package name, a version number -- may also be given. -- @return boolean or (nil, string, exitcode): True if installation was -- successful, nil and an error message otherwise. exitcode is optionally returned. function install.run(...) local flags, name, version = util.parse_flags(...) if type(name) ~= "string" then return nil, "Argument missing. "..util.see_help("install") end local ok, err = fs.check_command_permissions(flags) if not ok then return nil, err, cfg.errorcodes.PERMISSIONDENIED end if name:match("%.rockspec$") or name:match("%.src%.rock$") then util.printout("Using "..name.."... switching to 'build' mode") local build = require("luarocks.build") return build.run(name, util.forward_flags(flags, "local", "keep", "deps-mode")) elseif name:match("%.rock$") then ok, err = install.install_binary_rock(name, deps.get_deps_mode(flags)) if not ok then return nil, err end local name, version = ok, err if (not flags["keep"]) and not cfg.keep_other_versions then local ok, err = remove.remove_other_versions(name, version, flags["force"]) if not ok then util.printerr(err) end end return name, version else local search = require("luarocks.search") local results, err = search.find_suitable_rock(search.make_query(name:lower(), version)) if err then return nil, err elseif type(results) == "string" then local url = results util.printout("Installing "..url.."...") return install.run(url, util.forward_flags(flags)) else util.printout() util.printerr("Could not determine which rock to install.") util.title("Search results:") search.print_results(results) return nil, (next(results) and "Please narrow your query." or "No results found.") end end end return install luarocks-2.2.0+dfsg/src/luarocks/lint.lua000066400000000000000000000030421241625207600203440ustar00rootroot00000000000000 --- Module implementing the LuaRocks "lint" command. -- Utility function that checks syntax of the rockspec. --module("luarocks.lint", package.seeall) local lint = {} package.loaded["luarocks.lint"] = lint local util = require("luarocks.util") local download = require("luarocks.download") local fetch = require("luarocks.fetch") lint.help_summary = "Check syntax of a rockspec." lint.help_arguments = "" lint.help = [[ This is a utility function that checks the syntax of a rockspec. It returns success or failure if the text of a rockspec is syntactically correct. ]] function lint.run(...) local flags, input = util.parse_flags(...) if not input then return nil, "Argument missing. "..util.see_help("lint") end local filename = input if not input:match(".rockspec$") then local err filename, err = download.download("rockspec", input) if not filename then return nil, err end end local rs, err = fetch.load_local_rockspec(filename) if not rs then return nil, "Failed loading rockspec: "..err end local ok = true -- This should have been done in the type checker, -- but it would break compatibility of other commands. -- Making 'lint' alone be stricter shouldn't be a problem, -- because extra-strict checks is what lint-type commands -- are all about. if not rs.description.license then util.printerr("Rockspec has no license field.") ok = false end return ok, ok or filename.." failed consistency checks." end return lint luarocks-2.2.0+dfsg/src/luarocks/list.lua000066400000000000000000000025021241625207600203510ustar00rootroot00000000000000 --- Module implementing the LuaRocks "list" command. -- Lists currently installed rocks. --module("luarocks.list", package.seeall) local list = {} package.loaded["luarocks.list"] = list local search = require("luarocks.search") local cfg = require("luarocks.cfg") local util = require("luarocks.util") local path = require("luarocks.path") list.help_summary = "Lists currently installed rocks." list.help_arguments = "[--porcelain] " list.help = [[ is a substring of a rock name to filter by. --porcelain Produce machine-friendly output. ]] --- Driver function for "list" command. -- @param filter string or nil: A substring of a rock name to filter by. -- @param version string or nil: a version may also be passed. -- @return boolean: True if succeeded, nil on errors. function list.run(...) local flags, filter, version = util.parse_flags(...) local results = {} local query = search.make_query(filter and filter:lower() or "", version) query.exact_name = false local trees = cfg.rocks_trees if flags["tree"] then trees = { flags["tree"] } end for _, tree in ipairs(trees) do search.manifest_search(results, path.rocks_dir(tree), query) end util.title("Installed rocks:", flags["porcelain"]) search.print_results(results, flags["porcelain"]) return true end return list luarocks-2.2.0+dfsg/src/luarocks/loader.lua000066400000000000000000000207551241625207600206560ustar00rootroot00000000000000 --- A module which installs a Lua package loader that is LuaRocks-aware. -- This loader uses dependency information from the LuaRocks tree to load -- correct versions of modules. It does this by constructing a "context" -- table in the environment, which records which versions of packages were -- used to load previous modules, so that the loader chooses versions -- that are declared to be compatible with the ones loaded earlier. local loaders = package.loaders or package.searchers local package, require, ipairs, pairs, table, type, next, tostring, error = package, require, ipairs, pairs, table, type, next, tostring, error local unpack = unpack or table.unpack --module("luarocks.loader") local loader = {} package.loaded["luarocks.loader"] = loader local cfg = require("luarocks.cfg") cfg.init_package_paths() local path = require("luarocks.path") local manif_core = require("luarocks.manif_core") local deps = require("luarocks.deps") loader.context = {} -- Contains a table when rocks trees are loaded, -- or 'false' to indicate rocks trees failed to load. -- 'nil' indicates rocks trees were not attempted to be loaded yet. loader.rocks_trees = nil local function load_rocks_trees() local any_ok = false local trees = {} for _, tree in ipairs(cfg.rocks_trees) do local manifest, err = manif_core.load_local_manifest(path.rocks_dir(tree)) if manifest then any_ok = true table.insert(trees, {tree=tree, manifest=manifest}) end end if not any_ok then loader.rocks_trees = false return false end loader.rocks_trees = trees return true end --- Process the dependencies of a package to determine its dependency -- chain for loading modules. -- @param name string: The name of an installed rock. -- @param version string: The version of the rock, in string format function loader.add_context(name, version) -- assert(type(name) == "string") -- assert(type(version) == "string") if loader.context[name] then return end loader.context[name] = version if not loader.rocks_trees and not load_rocks_trees() then return nil end for _, tree in ipairs(loader.rocks_trees) do local manifest = tree.manifest local pkgdeps if manifest.dependencies and manifest.dependencies[name] then pkgdeps = manifest.dependencies[name][version] end if not pkgdeps then return nil end for _, dep in ipairs(pkgdeps) do local pkg, constraints = dep.name, dep.constraints for _, tree in ipairs(loader.rocks_trees) do local entries = tree.manifest.repository[pkg] if entries then for version, pkgs in pairs(entries) do if (not constraints) or deps.match_constraints(deps.parse_version(version), constraints) then loader.add_context(pkg, version) end end end end end end end --- Internal sorting function. -- @param a table: A provider table. -- @param b table: Another provider table. -- @return boolean: True if the version of a is greater than that of b. local function sort_versions(a,b) return a.version > b.version end --- Request module to be loaded through other loaders, -- once the proper name of the module has been determined. -- For example, in case the module "socket.core" has been requested -- to the LuaRocks loader and it determined based on context that -- the version 2.0.2 needs to be loaded and it is not the current -- version, the module requested for the other loaders will be -- "socket.core_2_0_2". -- @param module The module name requested by the user, such as "socket.core" -- @param name The rock name, such as "luasocket" -- @param version The rock version, such as "2.0.2-1" -- @param module_name The actual module name, such as "socket.core" or "socket.core_2_0_2". -- @return table or (nil, string): The module table as returned by some other loader, -- or nil followed by an error message if no other loader managed to load the module. local function call_other_loaders(module, name, version, module_name) for i, a_loader in ipairs(loaders) do if a_loader ~= loader.luarocks_loader then local results = { a_loader(module_name) } if type(results[1]) == "function" then return unpack(results) end end end return "Failed loading module "..module.." in LuaRocks rock "..name.." "..version end --- Search for a module in the rocks trees -- @param module string: module name (eg. "socket.core") -- @param filter_module_name function(string, string, string, string, number): -- a function that takes the module name (eg "socket.core"), the rock name -- (eg "luasocket"), the version (eg "2.0.2-1"), the path of the rocks tree -- (eg "/usr/local"), and the numeric index of the matching entry, so the -- filter function can know if the matching module was the first entry or not. -- @return string, string, string, (string or table): -- * name of the rock containing the module (eg. "luasocket") -- * version of the rock (eg. "2.0.2-1") -- * name of the module (eg. "socket.core", or "socket.core_2_0_2" if file is stored versioned). -- * tree of the module (string or table in `rocks_trees` format) local function select_module(module, filter_module_name) --assert(type(module) == "string") --assert(type(filter_module_name) == "function") if not loader.rocks_trees and not load_rocks_trees() then return nil end local providers = {} for _, tree in ipairs(loader.rocks_trees) do local entries = tree.manifest.modules[module] if entries then for i, entry in ipairs(entries) do local name, version = entry:match("^([^/]*)/(.*)$") local module_name = tree.manifest.repository[name][version][1].modules[module] if type(module_name) ~= "string" then error("Invalid data in manifest file for module "..tostring(module).." (invalid data for "..tostring(name).." "..tostring(version)..")") end module_name = filter_module_name(module_name, name, version, tree.tree, i) if loader.context[name] == version then return name, version, module_name end version = deps.parse_version(version) table.insert(providers, {name = name, version = version, module_name = module_name, tree = tree}) end end end if next(providers) then table.sort(providers, sort_versions) local first = providers[1] return first.name, first.version.string, first.module_name, first.tree end end --- Search for a module -- @param module string: module name (eg. "socket.core") -- @return string, string, string, (string or table): -- * name of the rock containing the module (eg. "luasocket") -- * version of the rock (eg. "2.0.2-1") -- * name of the module (eg. "socket.core", or "socket.core_2_0_2" if file is stored versioned). -- * tree of the module (string or table in `rocks_trees` format) local function pick_module(module) return select_module(module, function(module_name, name, version, tree, i) if i > 1 then module_name = path.versioned_name(module_name, "", name, version) end module_name = path.path_to_module(module_name) return module_name end) end --- Return the pathname of the file that would be loaded for a module. -- @param module string: module name (eg. "socket.core") -- @return string: filename of the module (eg. "/usr/local/lib/lua/5.1/socket/core.so") function loader.which(module) local name, version, module_name = select_module(module, path.which_i) return module_name end --- Package loader for LuaRocks support. -- A module is searched in installed rocks that match the -- current LuaRocks context. If module is not part of the -- context, or if a context has not yet been set, the module -- in the package with the highest version is used. -- @param module string: The module name, like in plain require(). -- @return table: The module table (typically), like in plain -- require(). See require() -- in the Lua reference manual for details. function loader.luarocks_loader(module) local name, version, module_name = pick_module(module) if not name then return "No LuaRocks module found for "..module else loader.add_context(name, version) return call_other_loaders(module, name, version, module_name) end end table.insert(loaders, 1, loader.luarocks_loader) return loader luarocks-2.2.0+dfsg/src/luarocks/make.lua000066400000000000000000000071471241625207600203250ustar00rootroot00000000000000 --- Module implementing the LuaRocks "make" command. -- Builds sources in the current directory, but unlike "build", -- it does not fetch sources, etc., assuming everything is -- available in the current directory. --module("luarocks.make", package.seeall) local make = {} package.loaded["luarocks.make"] = make local build = require("luarocks.build") local fs = require("luarocks.fs") local util = require("luarocks.util") local cfg = require("luarocks.cfg") local fetch = require("luarocks.fetch") local pack = require("luarocks.pack") local remove = require("luarocks.remove") local deps = require("luarocks.deps") make.help_summary = "Compile package in current directory using a rockspec." make.help_arguments = "[--pack-binary-rock] []" make.help = [[ Builds sources in the current directory, but unlike "build", it does not fetch sources, etc., assuming everything is available in the current directory. If no argument is given, look for a rockspec in the current directory. If more than one is found, you must specify which to use, through the command-line. This command is useful as a tool for debugging rockspecs. To install rocks, you'll normally want to use the "install" and "build" commands. See the help on those for details. --pack-binary-rock Do not install rock. Instead, produce a .rock file with the contents of compilation in the current directory. --keep Do not remove previously installed versions of the rock after installing a new one. This behavior can be made permanent by setting keep_other_versions=true in the configuration file. --branch= Override the `source.branch` field in the loaded rockspec. Allows to specify a different branch to fetch. Particularly for SCM rocks. ]] --- Driver function for "make" command. -- @param name string: A local rockspec. -- @return boolean or (nil, string, exitcode): True if build was successful; nil and an -- error message otherwise. exitcode is optionally returned. function make.run(...) local flags, rockspec = util.parse_flags(...) assert(type(rockspec) == "string" or not rockspec) if not rockspec then for file in fs.dir() do if file:match("rockspec$") then if rockspec then return nil, "Please specify which rockspec file to use." else rockspec = file end end end if not rockspec then return nil, "Argument missing: please specify a rockspec to use on current directory." end end if not rockspec:match("rockspec$") then return nil, "Invalid argument: 'make' takes a rockspec as a parameter. "..util.see_help("make") end if flags["pack-binary-rock"] then local rspec, err, errcode = fetch.load_rockspec(rockspec) if not rspec then return nil, err end return pack.pack_binary_rock(rspec.name, rspec.version, build.build_rockspec, rockspec, false, true, deps.get_deps_mode(flags)) else local ok, err = fs.check_command_permissions(flags) if not ok then return nil, err, cfg.errorcodes.PERMISSIONDENIED end ok, err = build.build_rockspec(rockspec, false, true, deps.get_deps_mode(flags)) if not ok then return nil, err end local name, version = ok, err if (not flags["keep"]) and not cfg.keep_other_versions then local ok, err = remove.remove_other_versions(name, version, flags["force"]) if not ok then util.printerr(err) end end return name, version end end return make luarocks-2.2.0+dfsg/src/luarocks/make_manifest.lua000066400000000000000000000035771241625207600222160ustar00rootroot00000000000000 --- Module implementing the luarocks-admin "make_manifest" command. -- Compile a manifest file for a repository. --module("luarocks.make_manifest", package.seeall) local make_manifest = {} package.loaded["luarocks.make_manifest"] = make_manifest local manif = require("luarocks.manif") local index = require("luarocks.index") local cfg = require("luarocks.cfg") local util = require("luarocks.util") local deps = require("luarocks.deps") local fs = require("luarocks.fs") local dir = require("luarocks.dir") make_manifest.help_summary = "Compile a manifest file for a repository." make_manifest.help = [[ , if given, is a local repository pathname. --local-tree If given, do not write versioned versions of the manifest file. Use this when rebuilding the manifest of a local rocks tree. ]] --- Driver function for "make_manifest" command. -- @param repo string or nil: Pathname of a local repository. If not given, -- the default local repository configured as cfg.rocks_dir is used. -- @return boolean or (nil, string): True if manifest was generated, -- or nil and an error message. function make_manifest.run(...) local flags, repo = util.parse_flags(...) assert(type(repo) == "string" or not repo) repo = repo or cfg.rocks_dir util.printout("Making manifest for "..repo) if repo:match("/lib/luarocks") and not flags["local-tree"] then util.warning("This looks like a local rocks tree, but you did not pass --local-tree.") end local ok, err = manif.make_manifest(repo, deps.get_deps_mode(flags), not flags["local-tree"]) if ok and not flags["local-tree"] then util.printout("Generating index.html for "..repo) index.make_index(repo) end if flags["local-tree"] then for luaver in util.lua_versions() do fs.delete(dir.path(repo, "manifest-"..luaver)) end end return ok, err end return make_manifest luarocks-2.2.0+dfsg/src/luarocks/manif.lua000066400000000000000000000447671241625207600205130ustar00rootroot00000000000000--- Module for handling manifest files and tables. -- Manifest files describe the contents of a LuaRocks tree or server. -- They are loaded into manifest tables, which are then used for -- performing searches, matching dependencies, etc. --module("luarocks.manif", package.seeall) local manif = {} package.loaded["luarocks.manif"] = manif local manif_core = require("luarocks.manif_core") local persist = require("luarocks.persist") local fetch = require("luarocks.fetch") local dir = require("luarocks.dir") local fs = require("luarocks.fs") local search = require("luarocks.search") local util = require("luarocks.util") local cfg = require("luarocks.cfg") local path = require("luarocks.path") local repos = require("luarocks.repos") local deps = require("luarocks.deps") manif.rock_manifest_cache = {} --- Commit a table to disk in given local path. -- @param where string: The directory where the table should be saved. -- @param name string: The filename. -- @param tbl table: The table to be saved. -- @return boolean or (nil, string): true if successful, or nil and a -- message in case of errors. local function save_table(where, name, tbl) assert(type(where) == "string") assert(type(name) == "string") assert(type(tbl) == "table") local filename = dir.path(where, name) local ok, err = persist.save_from_table(filename..".tmp", tbl) if ok then ok, err = fs.replace_file(filename, filename..".tmp") end return ok, err end function manif.load_rock_manifest(name, version, root) assert(type(name) == "string") assert(type(version) == "string") local name_version = name.."/"..version if manif.rock_manifest_cache[name_version] then return manif.rock_manifest_cache[name_version].rock_manifest end local pathname = path.rock_manifest_file(name, version, root) local rock_manifest = persist.load_into_table(pathname) if not rock_manifest then return nil end manif.rock_manifest_cache[name_version] = rock_manifest return rock_manifest.rock_manifest end function manif.make_rock_manifest(name, version) local install_dir = path.install_dir(name, version) local rock_manifest = path.rock_manifest_file(name, version) local tree = {} for _, file in ipairs(fs.find(install_dir)) do local full_path = dir.path(install_dir, file) local walk = tree local last local last_name for name in file:gmatch("[^/]+") do local next = walk[name] if not next then next = {} walk[name] = next end last = walk last_name = name walk = next end if fs.is_file(full_path) then local sum, err = fs.get_md5(full_path) if not sum then return nil, "Failed producing checksum: "..tostring(err) end last[last_name] = sum end end rock_manifest = { rock_manifest=tree } manif.rock_manifest_cache[name.."/"..version] = rock_manifest save_table(install_dir, "rock_manifest", rock_manifest ) end local function fetch_manifest_from(repo_url, filename) local url = dir.path(repo_url, filename) local name = repo_url:gsub("[/:]","_") local cache_dir = dir.path(cfg.local_cache, name) local ok = fs.make_dir(cache_dir) if not ok then return nil, "Failed creating temporary cache directory "..cache_dir end local file, err, errcode = fetch.fetch_url(url, dir.path(cache_dir, filename), true) if not file then return nil, "Failed fetching manifest for "..repo_url..(err and " - "..err or ""), errcode end return file end --- Load a local or remote manifest describing a repository. -- All functions that use manifest tables assume they were obtained -- through either this function or load_local_manifest. -- @param repo_url string: URL or pathname for the repository. -- @return table or (nil, string, [string]): A table representing the manifest, -- or nil followed by an error message and an optional error code. function manif.load_manifest(repo_url) assert(type(repo_url) == "string") if manif_core.manifest_cache[repo_url] then return manif_core.manifest_cache[repo_url] end local filenames = { "manifest-"..cfg.lua_version..".zip", "manifest-"..cfg.lua_version, "manifest", } local protocol, repodir = dir.split_url(repo_url) local pathname if protocol == "file" then for _, filename in ipairs(filenames) do pathname = dir.path(repodir, filename) if fs.exists(pathname) then break end end else local err, errcode for _, filename in ipairs(filenames) do pathname, err, errcode = fetch_manifest_from(repo_url, filename) if pathname then break end end if not pathname then return nil, err, errcode end end if pathname:match(".*%.zip$") then pathname = fs.absolute_name(pathname) local dir = dir.dir_name(pathname) fs.change_dir(dir) local nozip = pathname:match("(.*)%.zip$") fs.delete(nozip) local ok = fs.unzip(pathname) fs.pop_dir() if not ok then fs.delete(pathname) fs.delete(pathname..".timestamp") return nil, "Failed extracting manifest file" end pathname = nozip end return manif_core.manifest_loader(pathname, repo_url) end --- Output a table listing items of a package. -- @param itemsfn function: a function for obtaining items of a package. -- pkg and version will be passed to it; it should return a table with -- items as keys. -- @param pkg string: package name -- @param version string: package version -- @param tbl table: the package matching table: keys should be item names -- and values arrays of strings with packages names in "name/version" format. local function store_package_items(itemsfn, pkg, version, tbl) assert(type(itemsfn) == "function") assert(type(pkg) == "string") assert(type(version) == "string") assert(type(tbl) == "table") local pkg_version = pkg.."/"..version local result = {} for item, path in pairs(itemsfn(pkg, version)) do result[item] = path if not tbl[item] then tbl[item] = {} end table.insert(tbl[item], pkg_version) end return result end --- Sort function for ordering rock identifiers in a manifest's -- modules table. Rocks are ordered alphabetically by name, and then -- by version which greater first. -- @param a string: Version to compare. -- @param b string: Version to compare. -- @return boolean: The comparison result, according to the -- rule outlined above. local function sort_pkgs(a, b) assert(type(a) == "string") assert(type(b) == "string") local na, va = a:match("(.*)/(.*)$") local nb, vb = b:match("(.*)/(.*)$") return (na == nb) and deps.compare_versions(va, vb) or na < nb end --- Sort items of a package matching table by version number (higher versions first). -- @param tbl table: the package matching table: keys should be strings -- and values arrays of strings with packages names in "name/version" format. local function sort_package_matching_table(tbl) assert(type(tbl) == "table") if next(tbl) then for item, pkgs in pairs(tbl) do if #pkgs > 1 then table.sort(pkgs, sort_pkgs) -- Remove duplicates from the sorted array. local prev = nil local i = 1 while pkgs[i] do local curr = pkgs[i] if curr == prev then table.remove(pkgs, i) else prev = curr i = i + 1 end end end end end end --- Process the dependencies of a manifest table to determine its dependency -- chains for loading modules. The manifest dependencies information is filled -- and any dependency inconsistencies or missing dependencies are reported to -- standard error. -- @param manifest table: a manifest table. -- @param deps_mode string: Dependency mode: "one" for the current default tree, -- "all" for all trees, "order" for all trees with priority >= the current default, -- "none" for no trees. local function update_dependencies(manifest, deps_mode) assert(type(manifest) == "table") assert(type(deps_mode) == "string") for pkg, versions in pairs(manifest.repository) do for version, repositories in pairs(versions) do local current = pkg.." "..version for _, repo in ipairs(repositories) do if repo.arch == "installed" then local missing repo.dependencies, missing = deps.scan_deps({}, {}, manifest, pkg, version, deps_mode) repo.dependencies[pkg] = nil if missing then for miss, err in pairs(missing) do if miss == current then util.printerr("Tree inconsistency detected: "..current.." has no rockspec. "..err) elseif deps_mode ~= "none" then util.printerr("Missing dependency for "..pkg.." "..version..": "..miss) end end end end end end end end --- Filter manifest table by Lua version, removing rockspecs whose Lua version -- does not match. -- @param manifest table: a manifest table. -- @param lua_version string or nil: filter by Lua version -- @param repodir string: directory of repository being scanned -- @param cache table: temporary rockspec cache table local function filter_by_lua_version(manifest, lua_version, repodir, cache) assert(type(manifest) == "table") assert(type(repodir) == "string") assert((not cache) or type(cache) == "table") cache = cache or {} lua_version = deps.parse_version(lua_version) for pkg, versions in pairs(manifest.repository) do local to_remove = {} for version, repositories in pairs(versions) do for _, repo in ipairs(repositories) do if repo.arch == "rockspec" then local pathname = dir.path(repodir, pkg.."-"..version..".rockspec") local rockspec, err = cache[pathname] if not rockspec then rockspec, err = fetch.load_local_rockspec(pathname, true) end if rockspec then cache[pathname] = rockspec for _, dep in ipairs(rockspec.dependencies) do if dep.name == "lua" then if not deps.match_constraints(lua_version, dep.constraints) then table.insert(to_remove, version) end break end end else util.printerr("Error loading rockspec for "..pkg.." "..version..": "..err) end end end end if next(to_remove) then for _, incompat in ipairs(to_remove) do versions[incompat] = nil end if not next(versions) then manifest.repository[pkg] = nil end end end end --- Store search results in a manifest table. -- @param results table: The search results as returned by search.disk_search. -- @param manifest table: A manifest table (must contain repository, modules, commands tables). -- It will be altered to include the search results. -- @param dep_handler: dependency handler function -- @return boolean or (nil, string): true in case of success, or nil followed by an error message. local function store_results(results, manifest, dep_handler) assert(type(results) == "table") assert(type(manifest) == "table") assert((not dep_handler) or type(dep_handler) == "function") for name, versions in pairs(results) do local pkgtable = manifest.repository[name] or {} for version, entries in pairs(versions) do local versiontable = {} for _, entry in ipairs(entries) do local entrytable = {} entrytable.arch = entry.arch if entry.arch == "installed" then local rock_manifest = manif.load_rock_manifest(name, version) if not rock_manifest then return nil, "rock_manifest file not found for "..name.." "..version.." - not a LuaRocks 2 tree?" end entrytable.modules = store_package_items(repos.package_modules, name, version, manifest.modules) entrytable.commands = store_package_items(repos.package_commands, name, version, manifest.commands) end table.insert(versiontable, entrytable) end pkgtable[version] = versiontable end manifest.repository[name] = pkgtable end if dep_handler then dep_handler(manifest) end sort_package_matching_table(manifest.modules) sort_package_matching_table(manifest.commands) return true end --- Scan a LuaRocks repository and output a manifest file. -- A file called 'manifest' will be written in the root of the given -- repository directory. -- @param repo A local repository directory. -- @param deps_mode string: Dependency mode: "one" for the current default tree, -- "all" for all trees, "order" for all trees with priority >= the current default, -- "none" for the default dependency mode from the configuration. -- @param versioned boolean: if versioned versions of the manifest should be created. -- @return boolean or (nil, string): True if manifest was generated, -- or nil and an error message. function manif.make_manifest(repo, deps_mode, remote) assert(type(repo) == "string") assert(type(deps_mode) == "string") if deps_mode == "none" then deps_mode = cfg.deps_mode end if not fs.is_dir(repo) then return nil, "Cannot access repository at "..repo end local query = search.make_query("") query.exact_name = false query.arch = "any" local results = search.disk_search(repo, query) local manifest = { repository = {}, modules = {}, commands = {} } manif_core.manifest_cache[repo] = manifest local dep_handler = nil if not remote then dep_handler = function(manifest) update_dependencies(manifest, deps_mode) end end local ok, err = store_results(results, manifest, dep_handler) if not ok then return nil, err end if remote then local cache = {} for luaver in util.lua_versions() do local vmanifest = { repository = {}, modules = {}, commands = {} } local dep_handler = function(manifest) filter_by_lua_version(manifest, luaver, repo, cache) end local ok, err = store_results(results, vmanifest, dep_handler) save_table(repo, "manifest-"..luaver, vmanifest) end end return save_table(repo, "manifest", manifest) end --- Load a manifest file from a local repository and add to the repository -- information with regard to the given name and version. -- A file called 'manifest' will be written in the root of the given -- repository directory. -- @param name string: Name of a package from the repository. -- @param version string: Version of a package from the repository. -- @param repo string or nil: Pathname of a local repository. If not given, -- the default local repository is used. -- @param deps_mode string: Dependency mode: "one" for the current default tree, -- "all" for all trees, "order" for all trees with priority >= the current default, -- "none" for using the default dependency mode from the configuration. -- @return boolean or (nil, string): True if manifest was generated, -- or nil and an error message. function manif.update_manifest(name, version, repo, deps_mode) assert(type(name) == "string") assert(type(version) == "string") repo = path.rocks_dir(repo or cfg.root_dir) assert(type(deps_mode) == "string") if deps_mode == "none" then deps_mode = cfg.deps_mode end util.printout("Updating manifest for "..repo) local manifest, err = manif.load_manifest(repo) if not manifest then util.printerr("No existing manifest. Attempting to rebuild...") local ok, err = manif.make_manifest(repo, deps_mode) if not ok then return nil, err end manifest, err = manif.load_manifest(repo) if not manifest then return nil, err end end local results = {[name] = {[version] = {{arch = "installed", repo = repo}}}} local dep_handler = function(manifest) update_dependencies(manifest, deps_mode) end local ok, err = store_results(results, manifest, dep_handler) if not ok then return nil, err end return save_table(repo, "manifest", manifest) end function manif.zip_manifests() for ver in util.lua_versions() do local file = "manifest-"..ver local zip = file..".zip" fs.delete(dir.path(fs.current_dir(), zip)) fs.zip(zip, file) end end local function find_providers(file, root) assert(type(file) == "string") root = root or cfg.root_dir local manifest, err = manif_core.load_local_manifest(path.rocks_dir(root)) if not manifest then return nil, "untracked" end local deploy_bin = path.deploy_bin_dir(root) local deploy_lua = path.deploy_lua_dir(root) local deploy_lib = path.deploy_lib_dir(root) local key, manifest_tbl if util.starts_with(file, deploy_lua) then manifest_tbl = manifest.modules key = path.path_to_module(file:sub(#deploy_lua+1):gsub("\\", "/")) elseif util.starts_with(file, deploy_lib) then manifest_tbl = manifest.modules key = path.path_to_module(file:sub(#deploy_lib+1):gsub("\\", "/")) elseif util.starts_with(file, deploy_bin) then manifest_tbl = manifest.commands key = file:sub(#deploy_bin+1):gsub("^[\\/]*", "") else assert(false, "Assertion failed: '"..file.."' is not a deployed file.") end local providers = manifest_tbl[key] if not providers then return nil, "untracked" end return providers end --- Given a path of a deployed file, figure out which rock name and version -- correspond to it in the tree manifest. -- @param file string: The full path of a deployed file. -- @param root string or nil: A local root dir for a rocks tree. If not given, the default is used. -- @return string, string: name and version of the provider rock. function manif.find_current_provider(file, root) local providers, err = find_providers(file, root) if not providers then return nil, err end return providers[1]:match("([^/]*)/([^/]*)") end function manif.find_next_provider(file, root) local providers, err = find_providers(file, root) if not providers then return nil, err end if providers[2] then return providers[2]:match("([^/]*)/([^/]*)") else return nil end end return manif luarocks-2.2.0+dfsg/src/luarocks/manif_core.lua000066400000000000000000000054051241625207600215050ustar00rootroot00000000000000 --- Core functions for querying manifest files. -- This module requires no specific 'fs' functionality. --module("luarocks.manif_core", package.seeall) local manif_core = {} package.loaded["luarocks.manif_core"] = manif_core local persist = require("luarocks.persist") local type_check = require("luarocks.type_check") local dir = require("luarocks.dir") local util = require("luarocks.util") local cfg = require("luarocks.cfg") local path = require("luarocks.path") manif_core.manifest_cache = {} --- Back-end function that actually loads the manifest -- and stores it in the manifest cache. -- @param file string: The local filename of the manifest file. -- @param repo_url string: The repository identifier. -- @param quick boolean: If given, skips type checking. function manif_core.manifest_loader(file, repo_url, quick) local manifest, err = persist.load_into_table(file) if not manifest then return nil, "Failed loading manifest for "..repo_url..": "..err end local globals = err if not quick then local ok, err = type_check.type_check_manifest(manifest, globals) if not ok then return nil, "Error checking manifest: "..err end end manif_core.manifest_cache[repo_url] = manifest return manifest end --- Load a local manifest describing a repository. -- All functions that use manifest tables assume they were obtained -- through either this function or load_manifest. -- @param repo_url string: URL or pathname for the repository. -- @return table or (nil, string): A table representing the manifest, -- or nil followed by an error message. function manif_core.load_local_manifest(repo_url) assert(type(repo_url) == "string") if manif_core.manifest_cache[repo_url] then return manif_core.manifest_cache[repo_url] end local pathname = dir.path(repo_url, "manifest") return manif_core.manifest_loader(pathname, repo_url, true) end --- Get all versions of a package listed in a manifest file. -- @param name string: a package name. -- @param deps_mode string: "one", to use only the currently -- configured tree; "order" to select trees based on order -- (use the current tree and all trees below it on the list) -- or "all", to use all trees. -- @return table: An array of strings listing installed -- versions of a package. function manif_core.get_versions(name, deps_mode) assert(type(name) == "string") assert(type(deps_mode) == "string") local manifest = {} path.map_trees(deps_mode, function(tree) local loaded = manif_core.load_local_manifest(path.rocks_dir(tree)) if loaded then util.deep_merge(manifest, loaded) end end) local item = next(manifest) and manifest.repository[name] if item then return util.keys(item) end return {} end return manif_core luarocks-2.2.0+dfsg/src/luarocks/new_version.lua000066400000000000000000000124711241625207600217420ustar00rootroot00000000000000 --- Module implementing the LuaRocks "new_version" command. -- Utility function that writes a new rockspec, updating data from a previous one. --module("luarocks.new_version", package.seeall) local new_version = {} package.loaded["luarocks.new_version"] = new_version local util = require("luarocks.util") local download = require("luarocks.download") local fetch = require("luarocks.fetch") local persist = require("luarocks.persist") local fs = require("luarocks.fs") local type_check = require("luarocks.type_check") new_version.help_summary = "Auto-write a rockspec for a new version of a rock." new_version.help_arguments = "{|} [] []" new_version.help = [[ This is a utility function that writes a new rockspec, updating data from a previous one. If a package name is given, it downloads the latest rockspec from the default server. If a rockspec is given, it uses it instead. If the version number is not given, it only increments the revision number of the given (or downloaded) rockspec. If a URL is given, it replaces the one from the old rockspec with the given URL. If a URL is not given and a new version is given, it tries to guess the new URL by replacing occurrences of the version number in the URL or tag. It also tries to download the new URL to determine the new MD5 checksum. WARNING: it writes the new rockspec to the current directory, overwriting the file if it already exists. ]] local function try_replace(tbl, field, old, new) if not tbl[field] then return false end local old_field = tbl[field] local new_field = tbl[field]:gsub(old, new) if new_field ~= old_field then util.printout("Guessing new '"..field.."' field as "..new_field) tbl[field] = new_field return true end return false end local function check_url_and_update_md5(out_rs, out_name) local old_md5 = out_rs.source.md5 out_rs.source.md5 = nil local file, temp_dir = fetch.fetch_url_at_temp_dir(out_rs.source.url, "luarocks-new-version-"..out_name) if not file then util.printerr("Warning: invalid URL - "..temp_dir) return true end util.printout("File successfully downloaded. Updating MD5 checksum...") out_rs.source.md5 = fs.get_md5(file) local inferred_dir, found_dir = fetch.find_base_dir(file, temp_dir, out_rs.source.url, out_rs.source.dir) if not inferred_dir then return nil, found_dir end if found_dir and found_dir ~= inferred_dir then out_rs.source.dir = found_dir end return out_rs.source.md5 ~= old_md5 end local function update_source_section(out_rs, out_name, url, old_ver, new_ver) if url then out_rs.source.url = url check_url_and_update_md5(out_rs, out_name) return true end if new_ver == old_ver then return true end if not out_rs.source then return nil, "'source' table is missing. Invalid rockspec?" end if out_rs.source.dir then try_replace(out_rs.source, "dir", old_ver, new_ver) end if out_rs.source.file then try_replace(out_rs.source, "file", old_ver, new_ver) end local ok = try_replace(out_rs.source, "url", old_ver, new_ver) if ok then check_url_and_update_md5(out_rs, out_name) return true end ok = try_replace(out_rs.source, "tag", old_ver, new_ver) if not ok then ok = check_url_and_update_md5(out_rs, out_name) if ok then util.printerr("Warning: URL is the same, but MD5 has changed. Old rockspec is broken.") end end if not ok then return nil, "Failed to determine the location of the new version." end return true end function new_version.run(...) local flags, input, version, url = util.parse_flags(...) if not input then return nil, "Missing arguments: expected program or rockspec. "..util.see_help("new_version") end assert(type(input) == "string") local filename = input if not input:match(".rockspec$") then local err filename, err = download.download("rockspec", input) if not filename then return nil, err end end local valid_rs, err = fetch.load_rockspec(filename) if not valid_rs then return nil, err end local old_ver, old_rev = valid_rs.version:match("(.*)%-(%d+)$") local new_ver, new_rev if version then new_ver, new_rev = version:match("(.*)%-(%d+)$") new_rev = tonumber(new_rev) if not new_rev then new_ver = version new_rev = 1 end else new_ver = old_ver new_rev = tonumber(old_rev) + 1 end local new_rockver = new_ver:gsub("-", "") local out_rs = persist.load_into_table(filename) local out_name = out_rs.package:lower() out_rs.version = new_rockver.."-"..new_rev local ok, err = update_source_section(out_rs, out_name, url, old_ver, new_ver) if not ok then return nil, err end if out_rs.build and out_rs.build.type == "module" then out_rs.build.type = "builtin" end local out_filename = out_name.."-"..new_rockver.."-"..new_rev..".rockspec" persist.save_from_table(out_filename, out_rs, type_check.rockspec_order) util.printout("Wrote "..out_filename) local valid_out_rs, err = fetch.load_local_rockspec(out_filename) if not valid_out_rs then return nil, "Failed loading generated rockspec: "..err end return true end return new_version luarocks-2.2.0+dfsg/src/luarocks/pack.lua000066400000000000000000000164321241625207600203230ustar00rootroot00000000000000 --- Module implementing the LuaRocks "pack" command. -- Creates a rock, packing sources or binaries. --module("luarocks.pack", package.seeall) local pack = {} package.loaded["luarocks.pack"] = pack local unpack = unpack or table.unpack local path = require("luarocks.path") local repos = require("luarocks.repos") local fetch = require("luarocks.fetch") local fs = require("luarocks.fs") local cfg = require("luarocks.cfg") local util = require("luarocks.util") local dir = require("luarocks.dir") local manif = require("luarocks.manif") local search = require("luarocks.search") pack.help_summary = "Create a rock, packing sources or binaries." pack.help_arguments = "{| []}" pack.help = [[ Argument may be a rockspec file, for creating a source rock, or the name of an installed package, for creating a binary rock. In the latter case, the app version may be given as a second argument. ]] --- Create a source rock. -- Packages a rockspec and its required source files in a rock -- file with the .src.rock extension, which can later be built and -- installed with the "build" command. -- @param rockspec_file string: An URL or pathname for a rockspec file. -- @return string or (nil, string): The filename of the resulting -- .src.rock file; or nil and an error message. function pack.pack_source_rock(rockspec_file) assert(type(rockspec_file) == "string") local rockspec, err = fetch.load_rockspec(rockspec_file) if err then return nil, "Error loading rockspec: "..err end rockspec_file = rockspec.local_filename local name_version = rockspec.name .. "-" .. rockspec.version local rock_file = fs.absolute_name(name_version .. ".src.rock") local source_file, source_dir = fetch.fetch_sources(rockspec, false) if not source_file then return nil, source_dir end local ok, err = fs.change_dir(source_dir) if not ok then return nil, err end fs.delete(rock_file) fs.copy(rockspec_file, source_dir) if not fs.zip(rock_file, dir.base_name(rockspec_file), dir.base_name(source_file)) then return nil, "Failed packing "..rock_file end fs.pop_dir() return rock_file end local function copy_back_files(name, version, file_tree, deploy_dir, pack_dir) local ok, err = fs.make_dir(pack_dir) if not ok then return nil, err end for file, sub in pairs(file_tree) do local source = dir.path(deploy_dir, file) local target = dir.path(pack_dir, file) if type(sub) == "table" then local ok, err = copy_back_files(name, version, sub, source, target) if not ok then return nil, err end else local versioned = path.versioned_name(source, deploy_dir, name, version) if fs.exists(versioned) then fs.copy(versioned, target) else fs.copy(source, target) end end end return true end -- @param name string: Name of package to pack. -- @param version string or nil: A version number may also be passed. -- @return string or (nil, string): The filename of the resulting -- .src.rock file; or nil and an error message. local function do_pack_binary_rock(name, version) assert(type(name) == "string") assert(type(version) == "string" or not version) local query = search.make_query(name, version) query.exact_name = true local results = {} search.manifest_search(results, cfg.rocks_dir, query) if not next(results) then return nil, "'"..name.."' does not seem to be an installed rock." end local versions = results[name] if not version then local first = next(versions) if next(versions, first) then return nil, "Please specify which version of '"..name.."' to pack." end version = first end if not version:match("[^-]+%-%d+") then return nil, "Expected version "..version.." in version-revision format." end local info = versions[version][1] local root = path.root_dir(info.repo) local prefix = path.install_dir(name, version, root) if not fs.exists(prefix) then return nil, "'"..name.." "..version.."' does not seem to be an installed rock." end local rock_manifest = manif.load_rock_manifest(name, version, root) if not rock_manifest then return nil, "rock_manifest file not found for "..name.." "..version.." - not a LuaRocks 2 tree?" end local name_version = name .. "-" .. version local rock_file = fs.absolute_name(name_version .. "."..cfg.arch..".rock") local temp_dir = fs.make_temp_dir("pack") fs.copy_contents(prefix, temp_dir) local is_binary = false if rock_manifest.lib then local ok, err = copy_back_files(name, version, rock_manifest.lib, path.deploy_lib_dir(root), dir.path(temp_dir, "lib")) if not ok then return nil, "Failed copying back files: " .. err end is_binary = true end if rock_manifest.lua then local ok, err = copy_back_files(name, version, rock_manifest.lua, path.deploy_lua_dir(root), dir.path(temp_dir, "lua")) if not ok then return nil, "Failed copying back files: " .. err end end local ok, err = fs.change_dir(temp_dir) if not ok then return nil, err end if not is_binary and not repos.has_binaries(name, version) then rock_file = rock_file:gsub("%."..cfg.arch:gsub("%-","%%-").."%.", ".all.") end fs.delete(rock_file) if not fs.zip(rock_file, unpack(fs.list_dir())) then return nil, "Failed packing "..rock_file end fs.pop_dir() fs.delete(temp_dir) return rock_file end function pack.pack_binary_rock(name, version, cmd, ...) -- The --pack-binary-rock option for "luarocks build" basically performs -- "luarocks build" on a temporary tree and then "luarocks pack". The -- alternative would require refactoring parts of luarocks.build and -- luarocks.pack, which would save a few file operations: the idea would be -- to shave off the final deploy steps from the build phase and the initial -- collect steps from the pack phase. local temp_dir, err = fs.make_temp_dir("luarocks-build-pack-"..dir.base_name(name)) if not temp_dir then return nil, "Failed creating temporary directory: "..err end util.schedule_function(fs.delete, temp_dir) path.use_tree(temp_dir) local ok, err = cmd(...) if not ok then return nil, err end local rname, rversion = path.parse_name(name) if not rname then rname, rversion = name, version end return do_pack_binary_rock(rname, rversion) end --- Driver function for the "pack" command. -- @param arg string: may be a rockspec file, for creating a source rock, -- or the name of an installed package, for creating a binary rock. -- @param version string or nil: if the name of a package is given, a -- version may also be passed. -- @return boolean or (nil, string): true if successful or nil followed -- by an error message. function pack.run(...) local flags, arg, version = util.parse_flags(...) assert(type(version) == "string" or not version) if type(arg) ~= "string" then return nil, "Argument missing. "..util.see_help("pack") end local file, err if arg:match(".*%.rockspec") then file, err = pack.pack_source_rock(arg) else file, err = do_pack_binary_rock(arg, version) end if err then return nil, err else util.printout("Packed: "..file) return true end end return pack luarocks-2.2.0+dfsg/src/luarocks/path.lua000066400000000000000000000347211241625207600203420ustar00rootroot00000000000000 --- LuaRocks-specific path handling functions. -- All paths are configured in this module, making it a single -- point where the layout of the local installation is defined in LuaRocks. --module("luarocks.path", package.seeall) local path = {} local dir = require("luarocks.dir") local cfg = require("luarocks.cfg") local util = require("luarocks.util") --- Infer rockspec filename from a rock filename. -- @param rock_name string: Pathname of a rock file. -- @return string: Filename of the rockspec, without path. function path.rockspec_name_from_rock(rock_name) assert(type(rock_name) == "string") local base_name = dir.base_name(rock_name) return base_name:match("(.*)%.[^.]*.rock") .. ".rockspec" end function path.rocks_dir(tree) if type(tree) == "string" then return dir.path(tree, cfg.rocks_subdir) else assert(type(tree) == "table") return tree.rocks_dir or dir.path(tree.root, cfg.rocks_subdir) end end function path.root_dir(rocks_dir) assert(type(rocks_dir) == "string") return rocks_dir:match("(.*)" .. util.matchquote(cfg.rocks_subdir) .. ".*$") end function path.rocks_tree_to_string(tree) if type(tree) == "string" then return tree else assert(type(tree) == "table") return tree.root end end function path.deploy_bin_dir(tree) if type(tree) == "string" then return dir.path(tree, "bin") else assert(type(tree) == "table") return tree.bin_dir or dir.path(tree.root, "bin") end end function path.deploy_lua_dir(tree) if type(tree) == "string" then return dir.path(tree, cfg.lua_modules_path) else assert(type(tree) == "table") return tree.lua_dir or dir.path(tree.root, cfg.lua_modules_path) end end function path.deploy_lib_dir(tree) if type(tree) == "string" then return dir.path(tree, cfg.lib_modules_path) else assert(type(tree) == "table") return tree.lib_dir or dir.path(tree.root, cfg.lib_modules_path) end end function path.manifest_file(tree) if type(tree) == "string" then return dir.path(tree, cfg.rocks_subdir, "manifest") else assert(type(tree) == "table") return (tree.rocks_dir and dir.path(tree.rocks_dir, "manifest")) or dir.path(tree.root, cfg.rocks_subdir, "manifest") end end --- Get the directory for all versions of a package in a tree. -- @param name string: The package name. -- @return string: The resulting path -- does not guarantee that -- @param tree string or nil: If given, specifies the local tree to use. -- the package (and by extension, the path) exists. function path.versions_dir(name, tree) assert(type(name) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name) end --- Get the local installation directory (prefix) for a package. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the path) exists. function path.install_dir(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version) end --- Get the local filename of the rockspec of an installed rock. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the file) exists. function path.rockspec_file(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, name.."-"..version..".rockspec") end --- Get the local filename of the rock_manifest file of an installed rock. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the file) exists. function path.rock_manifest_file(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, "rock_manifest") end --- Get the local installation directory for C libraries of a package. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the path) exists. function path.lib_dir(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, "lib") end --- Get the local installation directory for Lua modules of a package. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the path) exists. function path.lua_dir(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, "lua") end --- Get the local installation directory for documentation of a package. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the path) exists. function path.doc_dir(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, "doc") end --- Get the local installation directory for configuration files of a package. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the path) exists. function path.conf_dir(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, "conf") end --- Get the local installation directory for command-line scripts -- of a package. -- @param name string: The package name. -- @param version string: The package version. -- @param tree string or nil: If given, specifies the local tree to use. -- @return string: The resulting path -- does not guarantee that -- the package (and by extension, the path) exists. function path.bin_dir(name, version, tree) assert(type(name) == "string") assert(type(version) == "string") tree = tree or cfg.root_dir return dir.path(path.rocks_dir(tree), name, version, "bin") end --- Extract name, version and arch of a rock filename, -- or name, version and "rockspec" from a rockspec name. -- @param file_name string: pathname of a rock or rockspec -- @return (string, string, string) or nil: name, version and arch -- or nil if name could not be parsed function path.parse_name(file_name) assert(type(file_name) == "string") if file_name:match("%.rock$") then return dir.base_name(file_name):match("(.*)-([^-]+-%d+)%.([^.]+)%.rock$") else return dir.base_name(file_name):match("(.*)-([^-]+-%d+)%.(rockspec)") end end --- Make a rockspec or rock URL. -- @param pathname string: Base URL or pathname. -- @param name string: Package name. -- @param version string: Package version. -- @param arch string: Architecture identifier, or "rockspec" or "installed". -- @return string: A URL or pathname following LuaRocks naming conventions. function path.make_url(pathname, name, version, arch) assert(type(pathname) == "string") assert(type(name) == "string") assert(type(version) == "string") assert(type(arch) == "string") local filename = name.."-"..version if arch == "installed" then filename = dir.path(name, version, filename..".rockspec") elseif arch == "rockspec" then filename = filename..".rockspec" else filename = filename.."."..arch..".rock" end return dir.path(pathname, filename) end --- Convert a pathname to a module identifier. -- In Unix, for example, a path "foo/bar/baz.lua" is converted to -- "foo.bar.baz"; "bla/init.lua" returns "bla"; "foo.so" returns "foo". -- @param file string: Pathname of module -- @return string: The module identifier, or nil if given path is -- not a conformant module path (the function does not check if the -- path actually exists). function path.path_to_module(file) assert(type(file) == "string") local name = file:match("(.*)%."..cfg.lua_extension.."$") if name then name = name:gsub(dir.separator, ".") local init = name:match("(.*)%.init$") if init then name = init end else name = file:match("(.*)%."..cfg.lib_extension.."$") if name then name = name:gsub(dir.separator, ".") end end if not name then name = file end name = name:gsub("^%.+", ""):gsub("%.+$", "") return name end --- Obtain the directory name where a module should be stored. -- For example, on Unix, "foo.bar.baz" will return "foo/bar". -- @param mod string: A module name in Lua dot-separated format. -- @return string: A directory name using the platform's separator. function path.module_to_path(mod) assert(type(mod) == "string") return (mod:gsub("[^.]*$", ""):gsub("%.", dir.separator)) end --- Set up path-related variables for a given rock. -- Create a "variables" table in the rockspec table, containing -- adjusted variables according to the configuration file. -- @param rockspec table: The rockspec table. function path.configure_paths(rockspec) assert(type(rockspec) == "table") local vars = {} for k,v in pairs(cfg.variables) do vars[k] = v end local name, version = rockspec.name, rockspec.version vars.PREFIX = path.install_dir(name, version) vars.LUADIR = path.lua_dir(name, version) vars.LIBDIR = path.lib_dir(name, version) vars.CONFDIR = path.conf_dir(name, version) vars.BINDIR = path.bin_dir(name, version) vars.DOCDIR = path.doc_dir(name, version) rockspec.variables = vars end --- Produce a versioned version of a filename. -- @param file string: filename (must start with prefix) -- @param prefix string: Path prefix for file -- @param name string: Rock name -- @param version string: Rock version -- @return string: a pathname with the same directory parts and a versioned basename. function path.versioned_name(file, prefix, name, version) assert(type(file) == "string") assert(type(name) == "string") assert(type(version) == "string") local rest = file:sub(#prefix+1):gsub("^/*", "") local name_version = (name.."_"..version):gsub("%-", "_"):gsub("%.", "_") return dir.path(prefix, name_version.."-"..rest) end function path.use_tree(tree) cfg.root_dir = tree cfg.rocks_dir = path.rocks_dir(tree) cfg.deploy_bin_dir = path.deploy_bin_dir(tree) cfg.deploy_lua_dir = path.deploy_lua_dir(tree) cfg.deploy_lib_dir = path.deploy_lib_dir(tree) end --- Apply a given function to the active rocks trees based on chosen dependency mode. -- @param deps_mode string: Dependency mode: "one" for the current default tree, -- "all" for all trees, "order" for all trees with priority >= the current default, -- "none" for no trees (this function becomes a nop). -- @param fn function: function to be applied, with the tree dir (string) as the first -- argument and the remaining varargs of map_trees as the following arguments. -- @return a table with all results of invocations of fn collected. function path.map_trees(deps_mode, fn, ...) local result = {} if deps_mode == "one" then table.insert(result, (fn(cfg.root_dir, ...)) or 0) elseif deps_mode == "all" or deps_mode == "order" then local use = false if deps_mode == "all" then use = true end for _, tree in ipairs(cfg.rocks_trees) do if dir.normalize(path.rocks_tree_to_string(tree)) == dir.normalize(path.rocks_tree_to_string(cfg.root_dir)) then use = true end if use then table.insert(result, (fn(tree, ...)) or 0) end end end return result end --- Return the pathname of the file that would be loaded for a module, indexed. -- @param module_name string: module name (eg. "socket.core") -- @param name string: name of the package (eg. "luasocket") -- @param version string: version number (eg. "2.0.2-1") -- @param tree string: repository path (eg. "/usr/local") -- @param i number: the index, 1 if version is the current default, > 1 otherwise. -- This is done this way for use by select_module in luarocks.loader. -- @return string: filename of the module (eg. "/usr/local/lib/lua/5.1/socket/core.so") function path.which_i(module_name, name, version, tree, i) local deploy_dir if module_name:match("%.lua$") then deploy_dir = path.deploy_lua_dir(tree) module_name = dir.path(deploy_dir, module_name) else deploy_dir = path.deploy_lib_dir(tree) module_name = dir.path(deploy_dir, module_name) end if i > 1 then module_name = path.versioned_name(module_name, deploy_dir, name, version) end return module_name end --- Return the pathname of the file that would be loaded for a module, -- returning the versioned pathname if given version is not the default version -- in the given manifest. -- @param module_name string: module name (eg. "socket.core") -- @param name string: name of the package (eg. "luasocket") -- @param version string: version number (eg. "2.0.2-1") -- @param tree string: repository path (eg. "/usr/local") -- @param manifest table: the manifest table for the tree. -- @return string: filename of the module (eg. "/usr/local/lib/lua/5.1/socket/core.so") function path.which(module_name, filename, name, version, tree, manifest) local versions = manifest.modules[module_name] assert(versions) for i, name_version in ipairs(versions) do if name_version == name.."/"..version then return path.which_i(filename, name, version, tree, i):gsub("//", "/") end end assert(false) end return path luarocks-2.2.0+dfsg/src/luarocks/path_cmd.lua000066400000000000000000000045171241625207600211650ustar00rootroot00000000000000 --- @module luarocks.path_cmd -- Driver for the `luarocks path` command. local path_cmd = {} local util = require("luarocks.util") local deps = require("luarocks.deps") local cfg = require("luarocks.cfg") local path = require("luarocks.path") path_cmd.help_summary = "Return the currently configured package path." path_cmd.help_arguments = "" path_cmd.help = [[ Returns the package path currently configured for this installation of LuaRocks, formatted as shell commands to update LUA_PATH and LUA_CPATH. --bin Adds the system path to the output --append Appends the paths to the existing paths. Default is to prefix the LR paths to the existing paths. --lr-path Exports the Lua path (not formatted as shell command) --lr-cpath Exports the Lua cpath (not formatted as shell command) --lr-bin Exports the system path (not formatted as shell command) On Unix systems, you may run: eval `luarocks path` And on Windows: luarocks path > "%temp%\_lrp.bat" && call "%temp%\_lrp.bat" && del "%temp%\_lrp.bat" ]] --- Driver function for "path" command. -- @return boolean This function always succeeds. function path_cmd.run(...) local flags = util.parse_flags(...) local deps_mode = deps.get_deps_mode(flags) local lr_path, lr_cpath, lr_bin = cfg.package_paths() local path_sep = cfg.export_path_separator if flags["lr-path"] then util.printout(util.remove_path_dupes(lr_path, ';')) return true elseif flags["lr-cpath"] then util.printout(util.remove_path_dupes(lr_cpath, ';')) return true elseif flags["lr-bin"] then util.printout(util.remove_path_dupes(lr_bin, path_sep)) return true end if flags["append"] then lr_path = package.path .. ";" .. lr_path lr_cpath = package.cpath .. ";" .. lr_cpath lr_bin = os.getenv("PATH") .. path_sep .. lr_bin else lr_path = lr_path.. ";" .. package.path lr_cpath = lr_cpath .. ";" .. package.cpath lr_bin = lr_bin .. path_sep .. os.getenv("PATH") end util.printout(cfg.export_lua_path:format(util.remove_path_dupes(lr_path, ';'))) util.printout(cfg.export_lua_cpath:format(util.remove_path_dupes(lr_cpath, ';'))) if flags["bin"] then util.printout(cfg.export_path:format(util.remove_path_dupes(lr_bin, path_sep))) end return true end return path_cmd luarocks-2.2.0+dfsg/src/luarocks/persist.lua000066400000000000000000000140741241625207600210760ustar00rootroot00000000000000 --- Utility module for loading files into tables and -- saving tables into files. -- Implemented separately to avoid interdependencies, -- as it is used in the bootstrapping stage of the cfg module. --module("luarocks.persist", package.seeall) local persist = {} package.loaded["luarocks.persist"] = persist local util = require("luarocks.util") --- Load a Lua file containing assignments, storing them in a table. -- The global environment is not propagated to the loaded file. -- @param filename string: the name of the file. -- @param tbl table or nil: if given, this table is used to store -- loaded values. -- @return table or (nil, string): a table with the file's assignments -- as fields, or nil and a message in case of errors. function persist.load_into_table(filename, tbl) assert(type(filename) == "string") assert(type(tbl) == "table" or not tbl) local result, chunk, ran, err result = tbl or {} local globals = {} local globals_mt = { __index = function(t, n) globals[n] = true return rawget(t, n) end } local save_mt = getmetatable(result) setmetatable(result, globals_mt) if _VERSION == "Lua 5.1" then -- Lua 5.1 chunk, err = loadfile(filename) if chunk then setfenv(chunk, result) ran, err = pcall(chunk) end else -- Lua 5.2 chunk, err = loadfile(filename, "t", result) if chunk then ran, err = pcall(chunk) end end setmetatable(result, save_mt) if not chunk then if err:sub(1,5) ~= filename:sub(1,5) then return false, err end return nil, "Error loading file: "..err end if not ran then return nil, "Error running file: "..err end return result, globals end local write_table --- Write a value as Lua code, invoking write_table. -- This function handles only numbers, strings and tables -- are keys (tables are handled recursively). -- @param out userdata: a file object, open for writing. -- @param v: the value to be written. -- @param level number: the indentation level -- @param sub_order table: optional prioritization table -- @see write_table local function write_value(out, v, level, sub_order) if type(v) == "table" then write_table(out, v, level + 1, sub_order) elseif type(v) == "string" then if v:match("\n") then local open, close = "[[", "]]" local equals = 0 while v:find(open,1,true) or v:find(close,1,true) do equals = equals + 1 local eqs = ("="):rep(equals) open, close = "["..eqs.."[", "]"..eqs.."]" end out:write(open.."\n"..v..close) else out:write("\""..v:gsub("\"", "\\\"").."\"") end else out:write(tostring(v)) end end --- Write a table as Lua code representing a table to disk -- (that is, in curly brackets notation). -- This function handles only numbers, strings and tables -- are keys (tables are handled recursively). -- @param out userdata: a file object, open for writing. -- @param tbl table: the table to be written. -- @param level number: the indentation level -- @param field_order table: optional prioritization table write_table = function(out, tbl, level, field_order) out:write("{") local sep = "\n" local indentation = " " local indent = true local i = 1 for k, v, sub_order in util.sortedpairs(tbl, field_order) do out:write(sep) if indent then for n = 1,level do out:write(indentation) end end sep = ",\n" indent = true if type(k) == "number" then if k ~= i then out:write("["..tostring(k).."]=") else i = i + 1 end indent = false sep = ", " elseif type(k) == "table" then out:write("[") write_table(out, k, level + 1) out:write("] = ") else if k:match("^[a-zA-Z_][a-zA-Z0-9_]*$") then out:write(k.." = ") else out:write("['"..k:gsub("'", "\\'").."'] = ") end end write_value(out, v, level, sub_order) end if sep ~= "\n" then out:write("\n") for n = 1,level-1 do out:write(indentation) end end out:write("}") end --- Writes a table to an io-like object. -- @param out userdata: a file object, open for writing. -- @param tbl table: the table to be written. -- @param field_order table: optional prioritization table -- @return userdata The file object originally passed in as the `out` parameter. local function write_table(out, tbl, field_order) for k, v, sub_order in util.sortedpairs(tbl, field_order) do out:write(k.." = ") write_value(out, v, 0, sub_order) out:write("\n") end return out end --- Save the contents of a table to a string. -- Each element of the table is saved as a global assignment. -- Only numbers, strings and tables (containing numbers, strings -- or other recursively processed tables) are supported. -- @param tbl table: the table containing the data to be written -- @param field_order table: an optional array indicating the order of top-level fields. -- @return string function persist.save_from_table_to_string(tbl, field_order) local out = {buffer = {}} function out:write(data) table.insert(self.buffer, data) end write_table(out, tbl, field_order) return table.concat(out.buffer) end --- Save the contents of a table in a file. -- Each element of the table is saved as a global assignment. -- Only numbers, strings and tables (containing numbers, strings -- or other recursively processed tables) are supported. -- @param filename string: the output filename -- @param tbl table: the table containing the data to be written -- @param field_order table: an optional array indicating the order of top-level fields. -- @return boolean or (nil, string): true if successful, or nil and a -- message in case of errors. function persist.save_from_table(filename, tbl, field_order) local out = io.open(filename, "w") if not out then return nil, "Cannot create file at "..filename end write_table(out, tbl, field_order) out:close() return true end return persist luarocks-2.2.0+dfsg/src/luarocks/purge.lua000066400000000000000000000051141241625207600205220ustar00rootroot00000000000000 --- Module implementing the LuaRocks "purge" command. -- Remove all rocks from a given tree. --module("luarocks.purge", package.seeall) local purge = {} package.loaded["luarocks.purge"] = purge local util = require("luarocks.util") local fs = require("luarocks.fs") local path = require("luarocks.path") local search = require("luarocks.search") local deps = require("luarocks.deps") local repos = require("luarocks.repos") local manif = require("luarocks.manif") local cfg = require("luarocks.cfg") local remove = require("luarocks.remove") purge.help_summary = "Remove all installed rocks from a tree." purge.help_arguments = "--tree= [--old-versions]" purge.help = [[ This command removes rocks en masse from a given tree. By default, it removes all rocks from a tree. The --tree argument is mandatory: luarocks purge does not assume a default tree. --old-versions Keep the highest-numbered version of each rock and remove the other ones. By default it only removes old versions if they are not needed as dependencies. This can be overridden with the flag --force. ]] function purge.run(...) local flags = util.parse_flags(...) local tree = flags["tree"] if type(tree) ~= "string" then return nil, "The --tree argument is mandatory. "..util.see_help("purge") end local results = {} local query = search.make_query("") query.exact_name = false if not fs.is_dir(tree) then return nil, "Directory not found: "..tree end local ok, err = fs.check_command_permissions(flags) if not ok then return nil, err, cfg.errorcodes.PERMISSIONDENIED end search.manifest_search(results, path.rocks_dir(tree), query) local sort = function(a,b) return deps.compare_versions(b,a) end if flags["old-versions"] then sort = deps.compare_versions end for package, versions in util.sortedpairs(results) do for version, repositories in util.sortedpairs(versions, sort) do if flags["old-versions"] then util.printout("Keeping "..package.." "..version.."...") local ok, err = remove.remove_other_versions(package, version, flags["force"]) if not ok then util.printerr(err) end break else util.printout("Removing "..package.." "..version.."...") local ok, err = repos.delete_version(package, version, true) if not ok then util.printerr(err) end end end end return manif.make_manifest(cfg.rocks_dir, "one") end return purge luarocks-2.2.0+dfsg/src/luarocks/refresh_cache.lua000066400000000000000000000021241241625207600221570ustar00rootroot00000000000000 --- Module implementing the luarocks-admin "refresh_cache" command. --module("luarocks.refresh_cache", package.seeall) local refresh_cache = {} package.loaded["luarocks.refresh_cache"] = refresh_cache local util = require("luarocks.util") local cfg = require("luarocks.cfg") local cache = require("luarocks.cache") refresh_cache.help_summary = "Refresh local cache of a remote rocks server." refresh_cache.help_arguments = "[--from=]" refresh_cache.help = [[ The flag --from indicates which server to use. If not given, the default server set in the upload_server variable from the configuration file is used instead. ]] function refresh_cache.run(...) local flags = util.parse_flags(...) local server, upload_server = cache.get_upload_server(flags["server"]) if not server then return nil, upload_server end local download_url = cache.get_server_urls(server, upload_server) local ok, err = cache.refresh_local_cache(server, download_url, cfg.upload_user, cfg.upload_password) if not ok then return nil, err else return true end end return refresh_cache luarocks-2.2.0+dfsg/src/luarocks/remove.lua000066400000000000000000000141561241625207600207030ustar00rootroot00000000000000 --- Module implementing the LuaRocks "remove" command. -- Uninstalls rocks. --module("luarocks.remove", package.seeall) local remove = {} package.loaded["luarocks.remove"] = remove local search = require("luarocks.search") local deps = require("luarocks.deps") local fetch = require("luarocks.fetch") local repos = require("luarocks.repos") local path = require("luarocks.path") local util = require("luarocks.util") local cfg = require("luarocks.cfg") local manif = require("luarocks.manif") local fs = require("luarocks.fs") remove.help_summary = "Uninstall a rock." remove.help_arguments = "[--force[=fast]] []" remove.help = [[ Argument is the name of a rock to be uninstalled. If a version is not given, try to remove all versions at once. Will only perform the removal if it does not break dependencies. To override this check and force the removal, use --force. To perform a forced removal without reporting dependency issues, use --force=fast. ]]..util.deps_mode_help() --- Obtain a list of packages that depend on the given set of packages -- (where all packages of the set are versions of one program). -- @param name string: the name of a program -- @param versions array of string: the versions to be deleted. -- @return array of string: an empty table if no packages depend on any -- of the given list, or an array of strings in "name/version" format. local function check_dependents(name, versions, deps_mode) local dependents = {} local blacklist = {} blacklist[name] = {} for version, _ in pairs(versions) do blacklist[name][version] = true end local local_rocks = {} local query_all = search.make_query("") query_all.exact_name = false search.manifest_search(local_rocks, cfg.rocks_dir, query_all) local_rocks[name] = nil for rock_name, rock_versions in pairs(local_rocks) do for rock_version, _ in pairs(rock_versions) do local rockspec, err = fetch.load_rockspec(path.rockspec_file(rock_name, rock_version)) if rockspec then local _, missing = deps.match_deps(rockspec, blacklist, deps_mode) if missing[name] then table.insert(dependents, { name = rock_name, version = rock_version }) end end end end return dependents end --- Delete given versions of a program. -- @param name string: the name of a program -- @param versions array of string: the versions to be deleted. -- @return boolean or (nil, string): true on success or nil and an error message. local function delete_versions(name, versions) for version, _ in pairs(versions) do util.printout("Removing "..name.." "..version.."...") local ok, err = repos.delete_version(name, version) if not ok then return nil, err end end return true end function remove.remove_search_results(results, name, deps_mode, force) local versions = results[name] local version = next(versions) local second = next(versions, version) local dependents = {} if force ~= "fast" then util.printout("Checking stability of dependencies on the absence of") util.printout(name.." "..table.concat(util.keys(versions), ", ").."...") util.printout() dependents = check_dependents(name, versions, deps_mode) end if #dependents > 0 then if force then util.printerr("The following packages may be broken by this forced removal:") for _, dependent in ipairs(dependents) do util.printerr(dependent.name.." "..dependent.version) end util.printerr() else if not second then util.printerr("Will not remove "..name.." "..version..".") util.printerr("Removing it would break dependencies for: ") else util.printerr("Will not remove installed versions of "..name..".") util.printerr("Removing them would break dependencies for: ") end for _, dependent in ipairs(dependents) do util.printerr(dependent.name.." "..dependent.version) end util.printerr() util.printerr("Use --force to force removal (warning: this may break modules).") return nil, "Failed removing." end end local ok, err = delete_versions(name, versions) if not ok then return nil, err end ok, err = manif.make_manifest(cfg.rocks_dir, deps_mode) if not ok then return nil, err end util.printout("Removal successful.") return true end function remove.remove_other_versions(name, version, force) local results = {} search.manifest_search(results, cfg.rocks_dir, { name = name, exact_name = true, constraints = {{ op = "~=", version = version}} }) if results[name] then return remove.remove_search_results(results, name, cfg.deps_mode, force) end return true end --- Driver function for the "remove" command. -- @param name string: name of a rock. If a version is given, refer to -- a specific version; otherwise, try to remove all versions. -- @param version string: When passing a package name, a version number -- may also be given. -- @return boolean or (nil, string, exitcode): True if removal was -- successful, nil and an error message otherwise. exitcode is optionally returned. function remove.run(...) local flags, name, version = util.parse_flags(...) if type(name) ~= "string" then return nil, "Argument missing, see help." end local deps_mode = flags["deps-mode"] or cfg.deps_mode local ok, err = fs.check_command_permissions(flags) if not ok then return nil, err, cfg.errorcodes.PERMISSIONDENIED end local rock_type = name:match("%.(rock)$") or name:match("%.(rockspec)$") local filename = name if rock_type then name, version = path.parse_name(filename) if not name then return nil, "Invalid "..rock_type.." filename: "..filename end end local results = {} search.manifest_search(results, cfg.rocks_dir, search.make_query(name, version)) if not results[name] then return nil, "Could not find rock '"..name..(version and " "..version or "").."' in "..cfg.root_dir end return remove.remove_search_results(results, name, deps_mode, flags["force"]) end return remove luarocks-2.2.0+dfsg/src/luarocks/repos.lua000066400000000000000000000273121241625207600205340ustar00rootroot00000000000000 --- Functions for managing the repository on disk. --module("luarocks.repos", package.seeall) local repos = {} package.loaded["luarocks.repos"] = repos local fs = require("luarocks.fs") local path = require("luarocks.path") local cfg = require("luarocks.cfg") local util = require("luarocks.util") local dir = require("luarocks.dir") local manif = require("luarocks.manif") local deps = require("luarocks.deps") --- Get all installed versions of a package. -- @param name string: a package name. -- @return table or nil: An array of strings listing installed -- versions of a package, or nil if none is available. local function get_installed_versions(name) assert(type(name) == "string") local dirs = fs.list_dir(path.versions_dir(name)) return (dirs and #dirs > 0) and dirs or nil end --- Check if a package exists in a local repository. -- Version numbers are compared as exact string comparison. -- @param name string: name of package -- @param version string: package version in string format -- @return boolean: true if a package is installed, -- false otherwise. function repos.is_installed(name, version) assert(type(name) == "string") assert(type(version) == "string") return fs.is_dir(path.install_dir(name, version)) end local function recurse_rock_manifest_tree(file_tree, action) assert(type(file_tree) == "table") assert(type(action) == "function") local function do_recurse_rock_manifest_tree(tree, parent_path, parent_module) for file, sub in pairs(tree) do if type(sub) == "table" then local ok, err = do_recurse_rock_manifest_tree(sub, parent_path..file.."/", parent_module..file..".") if not ok then return nil, err end else local ok, err = action(parent_path, parent_module, file) if not ok then return nil, err end end end return true end return do_recurse_rock_manifest_tree(file_tree, "", "") end local function store_package_data(result, name, file_tree) if not file_tree then return end return recurse_rock_manifest_tree(file_tree, function(parent_path, parent_module, file) local pathname = parent_path..file result[path.path_to_module(pathname)] = pathname return true end ) end --- Obtain a list of modules within an installed package. -- @param package string: The package name; for example "luasocket" -- @param version string: The exact version number including revision; -- for example "2.0.1-1". -- @return table: A table of modules where keys are module identifiers -- in "foo.bar" format and values are pathnames in architecture-dependent -- "foo/bar.so" format. If no modules are found or if package or version -- are invalid, an empty table is returned. function repos.package_modules(package, version) assert(type(package) == "string") assert(type(version) == "string") local result = {} local rock_manifest = manif.load_rock_manifest(package, version) store_package_data(result, package, rock_manifest.lib) store_package_data(result, package, rock_manifest.lua) return result end --- Obtain a list of command-line scripts within an installed package. -- @param package string: The package name; for example "luasocket" -- @param version string: The exact version number including revision; -- for example "2.0.1-1". -- @return table: A table of items where keys are command names -- as strings and values are pathnames in architecture-dependent -- ".../bin/foo" format. If no modules are found or if package or version -- are invalid, an empty table is returned. function repos.package_commands(package, version) assert(type(package) == "string") assert(type(version) == "string") local result = {} local rock_manifest = manif.load_rock_manifest(package, version) store_package_data(result, package, rock_manifest.bin) return result end --- Check if a rock contains binary executables. -- @param name string: name of an installed rock -- @param version string: version of an installed rock -- @return boolean: returns true if rock contains platform-specific -- binary executables, or false if it is a pure-Lua rock. function repos.has_binaries(name, version) assert(type(name) == "string") assert(type(version) == "string") local rock_manifest = manif.load_rock_manifest(name, version) if rock_manifest.bin then for name, md5 in pairs(rock_manifest.bin) do -- TODO verify that it is the same file. If it isn't, find the actual command. if fs.is_actual_binary(dir.path(cfg.deploy_bin_dir, name)) then return true end end end return false end function repos.run_hook(rockspec, hook_name) assert(type(rockspec) == "table") assert(type(hook_name) == "string") local hooks = rockspec.hooks if not hooks then return true end if cfg.hooks_enabled == false then return nil, "This rockspec contains hooks, which are blocked by the 'hooks_enabled' setting in your LuaRocks configuration." end if not hooks.substituted_variables then util.variable_substitutions(hooks, rockspec.variables) hooks.substituted_variables = true end local hook = hooks[hook_name] if hook then util.printout(hook) if not fs.execute(hook) then return nil, "Failed running "..hook_name.." hook." end end return true end local function install_binary(source, target, name, version) assert(type(source) == "string") assert(type(target) == "string") if fs.is_lua(source) then repos.ok, repos.err = fs.wrap_script(source, target, name, version) else repos.ok, repos.err = fs.copy_binary(source, target) end return repos.ok, repos.err end local function resolve_conflict(target, deploy_dir, name, version) local cname, cversion = manif.find_current_provider(target) if not cname then return nil, cversion end if name ~= cname or deps.compare_versions(version, cversion) then local versioned = path.versioned_name(target, deploy_dir, cname, cversion) local ok, err = fs.make_dir(dir.dir_name(versioned)) if not ok then return nil, err end fs.move(target, versioned) return target else return path.versioned_name(target, deploy_dir, name, version) end end function repos.should_wrap_bin_scripts(rockspec) assert(type(rockspec) == "table") if cfg.wrap_bin_scripts ~= nil then return cfg.wrap_bin_scripts end if rockspec.deploy and rockspec.deploy.wrap_bin_scripts == false then return false end return true end function repos.deploy_files(name, version, wrap_bin_scripts) assert(type(name) == "string") assert(type(version) == "string") assert(type(wrap_bin_scripts) == "boolean") local function deploy_file_tree(file_tree, path_fn, deploy_dir, move_fn) local source_dir = path_fn(name, version) if not move_fn then move_fn = fs.move end return recurse_rock_manifest_tree(file_tree, function(parent_path, parent_module, file) local source = dir.path(source_dir, parent_path, file) local target = dir.path(deploy_dir, parent_path, file) local ok, err if fs.exists(target) then local new_target, err = resolve_conflict(target, deploy_dir, name, version) if err == "untracked" then local backup = target repeat backup = backup.."~" until not fs.exists(backup) -- slight race condition here, but shouldn't be a problem. util.printerr("Warning: "..target.." is not tracked by this installation of LuaRocks. Moving it to "..backup) fs.move(target, backup) elseif err then return nil, err.." Cannot install new version." else target = new_target end end ok, err = fs.make_dir(dir.dir_name(target)) if not ok then return nil, err end ok, err = move_fn(source, target, name, version) fs.remove_dir_tree_if_empty(dir.dir_name(source)) if not ok then return nil, err end return true end ) end local rock_manifest = manif.load_rock_manifest(name, version) local ok, err = true if rock_manifest.bin then local move_bin_fn = wrap_bin_scripts and install_binary or fs.copy_binary ok, err = deploy_file_tree(rock_manifest.bin, path.bin_dir, cfg.deploy_bin_dir, move_bin_fn) end if ok and rock_manifest.lua then ok, err = deploy_file_tree(rock_manifest.lua, path.lua_dir, cfg.deploy_lua_dir) end if ok and rock_manifest.lib then ok, err = deploy_file_tree(rock_manifest.lib, path.lib_dir, cfg.deploy_lib_dir) end return ok, err end local function delete_suffixed(filename, suffix) local filenames = { filename } if suffix and suffix ~= "" then filenames = { filename..suffix, filename } end for _, name in ipairs(filenames) do if fs.exists(name) then fs.delete(name) if fs.exists(name) then return nil, "Failed deleting "..name, "fail" end return true, name end end return false, "File not found", "not found" end --- Delete a package from the local repository. -- Version numbers are compared as exact string comparison. -- @param name string: name of package -- @param version string: package version in string format -- @param quick boolean: do not try to fix the versioned name -- of another version that provides the same module that -- was deleted. This is used during 'purge', as every module -- will be eventually deleted. function repos.delete_version(name, version, quick) assert(type(name) == "string") assert(type(version) == "string") local function delete_deployed_file_tree(file_tree, deploy_dir, suffix) return recurse_rock_manifest_tree(file_tree, function(parent_path, parent_module, file) local target = dir.path(deploy_dir, parent_path, file) local versioned = path.versioned_name(target, deploy_dir, name, version) local ok, name, err = delete_suffixed(versioned, suffix) if ok then fs.remove_dir_tree_if_empty(dir.dir_name(versioned)) return true end if err == "fail" then return nil, name end ok, name, err = delete_suffixed(target, suffix) if err == "fail" then return nil, name end if not quick then local next_name, next_version = manif.find_next_provider(target) if next_name then local versioned = path.versioned_name(name, deploy_dir, next_name, next_version) fs.move(versioned, name) fs.remove_dir_tree_if_empty(dir.dir_name(versioned)) end end fs.remove_dir_tree_if_empty(dir.dir_name(target)) return true end ) end local rock_manifest = manif.load_rock_manifest(name, version) if not rock_manifest then return nil, "rock_manifest file not found for "..name.." "..version.." - not a LuaRocks 2 tree?" end local ok, err = true if rock_manifest.bin then ok, err = delete_deployed_file_tree(rock_manifest.bin, cfg.deploy_bin_dir, cfg.wrapper_suffix) end if ok and rock_manifest.lua then ok, err = delete_deployed_file_tree(rock_manifest.lua, cfg.deploy_lua_dir) end if ok and rock_manifest.lib then ok, err = delete_deployed_file_tree(rock_manifest.lib, cfg.deploy_lib_dir) end if err then return nil, err end fs.delete(path.install_dir(name, version)) if not get_installed_versions(name) then fs.delete(dir.path(cfg.rocks_dir, name)) end return true end return repos luarocks-2.2.0+dfsg/src/luarocks/require.lua000066400000000000000000000001541241625207600210530ustar00rootroot00000000000000--- Retained for compatibility reasons only. Use luarocks.loader instead. return require("luarocks.loader") luarocks-2.2.0+dfsg/src/luarocks/search.lua000066400000000000000000000360331241625207600206510ustar00rootroot00000000000000 --- Module implementing the LuaRocks "search" command. -- Queries LuaRocks servers. --module("luarocks.search", package.seeall) local search = {} package.loaded["luarocks.search"] = search local dir = require("luarocks.dir") local path = require("luarocks.path") local manif = require("luarocks.manif") local deps = require("luarocks.deps") local cfg = require("luarocks.cfg") local util = require("luarocks.util") search.help_summary = "Query the LuaRocks servers." search.help_arguments = "[--source] [--binary] { [] | --all }" search.help = [[ --source Return only rockspecs and source rocks, to be used with the "build" command. --binary Return only pure Lua and binary rocks (rocks that can be used with the "install" command without requiring a C toolchain). --all List all contents of the server that are suitable to this platform, do not filter by name. ]] --- Convert the arch field of a query table to table format. -- @param query table: A query table. local function query_arch_as_table(query) local format = type(query.arch) if format == "table" then return elseif format == "nil" then local accept = {} accept["src"] = true accept["all"] = true accept["rockspec"] = true accept["installed"] = true accept[cfg.arch] = true query.arch = accept elseif format == "string" then local accept = {} for a in query.arch:gmatch("[%w_-]+") do accept[a] = true end query.arch = accept end end --- Store a search result (a rock or rockspec) in the results table. -- @param results table: The results table, where keys are package names and -- versions are tables matching version strings to an array of servers. -- @param name string: Package name. -- @param version string: Package version. -- @param arch string: Architecture of rock ("all", "src" or platform -- identifier), "rockspec" or "installed" -- @param repo string: Pathname of a local repository of URL of -- rocks server. local function store_result(results, name, version, arch, repo) assert(type(results) == "table") assert(type(name) == "string") assert(type(version) == "string") assert(type(arch) == "string") assert(type(repo) == "string") if not results[name] then results[name] = {} end if not results[name][version] then results[name][version] = {} end table.insert(results[name][version], { arch = arch, repo = repo }) end --- Test the name field of a query. -- If query has a boolean field exact_name set to false, -- then substring match is performed; otherwise, exact string -- comparison is done. -- @param query table: A query in dependency table format. -- @param name string: A package name. -- @return boolean: True if names match, false otherwise. local function match_name(query, name) assert(type(query) == "table") assert(type(name) == "string") if query.exact_name == false then return name:find(query.name, 0, true) and true or false else return name == query.name end end --- Store a match in a results table if version matches query. -- Name, version, arch and repository path are stored in a given -- table, optionally checking if version and arch (if given) match -- a query. -- @param results table: The results table, where keys are package names and -- versions are tables matching version strings to an array of servers. -- @param repo string: URL or pathname of the repository. -- @param name string: The name of the package being tested. -- @param version string: The version of the package being tested. -- @param arch string: The arch of the package being tested. -- @param query table: A table describing the query in dependency -- format (for example, {name = "filesystem", exact_name = false, -- constraints = {op = "~>", version = {1,0}}}, arch = "rockspec"). -- If the arch field is omitted, the local architecture (cfg.arch) -- is used. The special value "any" is also recognized, returning all -- matches regardless of architecture. local function store_if_match(results, repo, name, version, arch, query) if match_name(query, name) then if query.arch[arch] or query.arch["any"] then if deps.match_constraints(deps.parse_version(version), query.constraints) then store_result(results, name, version, arch, repo) end end end end --- Perform search on a local repository. -- @param repo string: The pathname of the local repository. -- @param query table: A table describing the query in dependency -- format (for example, {name = "filesystem", exact_name = false, -- constraints = {op = "~>", version = {1,0}}}, arch = "rockspec"). -- If the arch field is omitted, the local architecture (cfg.arch) -- is used. The special value "any" is also recognized, returning all -- matches regardless of architecture. -- @param results table or nil: If given, this table will store the -- results; if not given, a new table will be created. -- @param table: The results table, where keys are package names and -- versions are tables matching version strings to an array of servers. -- If a table was given in the "results" parameter, that is the result value. function search.disk_search(repo, query, results) assert(type(repo) == "string") assert(type(query) == "table") assert(type(results) == "table" or not results) local fs = require("luarocks.fs") if not results then results = {} end query_arch_as_table(query) for name in fs.dir(repo) do local pathname = dir.path(repo, name) local rname, rversion, rarch = path.parse_name(name) if rname and (pathname:match(".rockspec$") or pathname:match(".rock$")) then store_if_match(results, repo, rname, rversion, rarch, query) elseif fs.is_dir(pathname) then for version in fs.dir(pathname) do if version:match("-%d+$") then store_if_match(results, repo, name, version, "installed", query) end end end end return results end --- Perform search on a rocks server. -- @param results table: The results table, where keys are package names and -- versions are tables matching version strings to an array of servers. -- @param repo string: The URL of the rocks server. -- @param query table: A table describing the query in dependency -- format (for example, {name = "filesystem", exact_name = false, -- constraints = {op = "~>", version = {1,0}}}, arch = "rockspec"). -- If the arch field is omitted, the local architecture (cfg.arch) -- is used. The special value "any" is also recognized, returning all -- matches regardless of architecture. -- @return true or, in case of errors, nil and an error message. function search.manifest_search(results, repo, query) assert(type(results) == "table") assert(type(repo) == "string") assert(type(query) == "table") query_arch_as_table(query) local manifest, err, errcode = manif.load_manifest(repo) if not manifest then return nil, err, errcode end for name, versions in pairs(manifest.repository) do for version, items in pairs(versions) do for _, item in ipairs(items) do store_if_match(results, repo, name, version, item.arch, query) end end end return true end --- Search on all configured rocks servers. -- @param query table: A dependency query. -- @return table: A table where keys are package names -- and values are tables matching version strings to an array of -- rocks servers; if no results are found, an empty table is returned. function search.search_repos(query) assert(type(query) == "table") local results = {} for _, repo in ipairs(cfg.rocks_servers) do if not cfg.disabled_servers[repo] then if type(repo) == "string" then repo = { repo } end for _, mirror in ipairs(repo) do local protocol, pathname = dir.split_url(mirror) if protocol == "file" then mirror = pathname end local ok, err, errcode = search.manifest_search(results, mirror, query) if errcode == "network" then cfg.disabled_servers[repo] = true end if ok then break else util.warning("Failed searching manifest: "..err) end end end end -- search through rocks in cfg.rocks_provided local provided_repo = "provided by VM or rocks_provided" for name, versions in pairs(cfg.rocks_provided) do store_if_match(results, provided_repo, name, versions, "installed", query) end return results end --- Prepare a query in dependency table format. -- @param name string: The query name. -- @param version string or nil: -- @return table: A query in table format function search.make_query(name, version) assert(type(name) == "string") assert(type(version) == "string" or not version) local query = { name = name, constraints = {} } if version then table.insert(query.constraints, { op = "==", version = deps.parse_version(version)}) end return query end --- Get the URL for the latest in a set of versions. -- @param name string: The package name to be used in the URL. -- @param versions table: An array of version informations, as stored -- in search results tables. -- @return string or nil: the URL for the latest version if one could -- be picked, or nil. local function pick_latest_version(name, versions) assert(type(name) == "string") assert(type(versions) == "table") local vtables = {} for v, _ in pairs(versions) do table.insert(vtables, deps.parse_version(v)) end table.sort(vtables) local version = vtables[#vtables].string local items = versions[version] if items then local pick = 1 for i, item in ipairs(items) do if (item.arch == 'src' and items[pick].arch == 'rockspec') or (item.arch ~= 'src' and item.arch ~= 'rockspec') then pick = i end end return path.make_url(items[pick].repo, name, version, items[pick].arch) end return nil end --- Attempt to get a single URL for a given search. -- @param query table: A dependency query. -- @return string or table or (nil, string): URL for matching rock if -- a single one was found, a table of candidates if it could not narrow to -- a single result, or nil followed by an error message. function search.find_suitable_rock(query) assert(type(query) == "table") local results = search.search_repos(query) local first = next(results) if not first then return nil, "No results matching query were found." elseif not next(results, first) then if cfg.rocks_provided[query.name] ~= nil then -- do not install versions that listed in cfg.rocks_provided return nil, "Rock "..query.name.. " "..cfg.rocks_provided[query.name].. " was found but it is provided by VM or 'rocks_provided' in the config file." end return pick_latest_version(query.name, results[first]) else return results end end --- Print a list of rocks/rockspecs on standard output. -- @param results table: A table where keys are package names and versions -- are tables matching version strings to an array of rocks servers. -- @param porcelain boolean or nil: A flag to force machine-friendly output. function search.print_results(results, porcelain) assert(type(results) == "table") assert(type(porcelain) == "boolean" or not porcelain) for package, versions in util.sortedpairs(results) do if not porcelain then util.printout(package) end for version, repos in util.sortedpairs(versions, deps.compare_versions) do for _, repo in ipairs(repos) do repo.repo = dir.normalize(repo.repo) if porcelain then util.printout(package, version, repo.arch, repo.repo) else util.printout(" "..version.." ("..repo.arch..") - "..repo.repo) end end end if not porcelain then util.printout() end end end --- Splits a list of search results into two lists, one for "source" results -- to be used with the "build" command, and one for "binary" results to be -- used with the "install" command. -- @param results table: A search results table. -- @return (table, table): Two tables, one for source and one for binary -- results. local function split_source_and_binary_results(results) local sources, binaries = {}, {} for name, versions in pairs(results) do for version, repositories in pairs(versions) do for _, repo in ipairs(repositories) do local where = sources if repo.arch == "all" or repo.arch == cfg.arch then where = binaries end store_result(where, name, version, repo.arch, repo.repo) end end end return sources, binaries end --- Given a name and optionally a version, try to find in the rocks -- servers a single .src.rock or .rockspec file that satisfies -- the request, and run the given function on it; or display to the -- user possibilities if it couldn't narrow down a single match. -- @param action function: A function that takes a .src.rock or -- .rockspec URL as a parameter. -- @param name string: A rock name -- @param version string or nil: A version number may also be given. -- @return The result of the action function, or nil and an error message. function search.act_on_src_or_rockspec(action, name, version, ...) assert(type(action) == "function") assert(type(name) == "string") assert(type(version) == "string" or not version) local query = search.make_query(name, version) query.arch = "src|rockspec" local results, err = search.find_suitable_rock(query) if type(results) == "string" then return action(results, ...) else return nil, "Could not find a result named "..name..(version and " "..version or "").."." end end --- Driver function for "search" command. -- @param name string: A substring of a rock name to search. -- @param version string or nil: a version may also be passed. -- @return boolean or (nil, string): True if build was successful; nil and an -- error message otherwise. function search.run(...) local flags, name, version = util.parse_flags(...) if flags["all"] then name, version = "", nil end if type(name) ~= "string" and not flags["all"] then return nil, "Enter name and version or use --all. "..util.see_help("search") end local query = search.make_query(name:lower(), version) query.exact_name = false local results, err = search.search_repos(query) local porcelain = flags["porcelain"] util.title("Search results:", porcelain, "=") local sources, binaries = split_source_and_binary_results(results) if next(sources) and not flags["binary"] then util.title("Rockspecs and source rocks:", porcelain) search.print_results(sources, porcelain) end if next(binaries) and not flags["source"] then util.title("Binary and pure-Lua rocks:", porcelain) search.print_results(binaries, porcelain) end return true end return search luarocks-2.2.0+dfsg/src/luarocks/show.lua000066400000000000000000000125311241625207600203610ustar00rootroot00000000000000--- Module implementing the LuaRocks "show" command. -- Shows information about an installed rock. --module("luarocks.show", package.seeall) local show = {} package.loaded["luarocks.show"] = show local search = require("luarocks.search") local cfg = require("luarocks.cfg") local util = require("luarocks.util") local path = require("luarocks.path") local deps = require("luarocks.deps") local fetch = require("luarocks.fetch") local manif = require("luarocks.manif") show.help_summary = "Shows information about an installed rock." show.help = [[ is an existing package name. Without any flags, show all module information. With these flags, return only the desired information: --home home page of project --modules all modules provided by this package as used by require() --deps packages this package depends on --rockspec the full path of the rockspec file --mversion the package version --rock-tree local tree where rock is installed --rock-dir data directory of the installed rock ]] local function keys_as_string(t, sep) return table.concat(util.keys(t), sep or " ") end local function word_wrap(line) local width = tonumber(os.getenv("COLUMNS")) or 80 if width > 80 then width = 80 end if #line > width then local brk = width while brk > 0 and line:sub(brk, brk) ~= " " do brk = brk - 1 end if brk > 0 then return line:sub(1, brk-1) .. "\n" .. word_wrap(line:sub(brk+1)) end end return line end local function format_text(text) text = text:gsub("^%s*",""):gsub("%s$", ""):gsub("\n[ \t]+","\n"):gsub("([^\n])\n([^\n])","%1 %2") local paragraphs = util.split_string(text, "\n\n") for n, line in ipairs(paragraphs) do paragraphs[n] = word_wrap(line) end return (table.concat(paragraphs, "\n\n"):gsub("%s$", "")) end function show.pick_installed_rock(name, version, tree) local results = {} local query = search.make_query(name, version) query.exact_name = true local tree_map = {} local trees = cfg.rocks_trees if tree then trees = { tree } end for _, tree in ipairs(trees) do local rocks_dir = path.rocks_dir(tree) tree_map[rocks_dir] = tree search.manifest_search(results, rocks_dir, query) end if not next(results) then -- return nil,"cannot find package "..name.." "..(version or "").."\nUse 'list' to find installed rocks." end version = nil local repo_url local package, versions = util.sortedpairs(results)() --question: what do we do about multiple versions? This should --give us the latest version on the last repo (which is usually the global one) for vs, repositories in util.sortedpairs(versions, deps.compare_versions) do if not version then version = vs end for _, rp in ipairs(repositories) do repo_url = rp.repo end end local repo = tree_map[repo_url] return name, version, repo, repo_url end --- Driver function for "show" command. -- @param name or nil: an existing package name. -- @param version string or nil: a version may also be passed. -- @return boolean: True if succeeded, nil on errors. function show.run(...) local flags, name, version = util.parse_flags(...) if not name then return nil, "Argument missing. "..util.see_help("show") end local repo, repo_url name, version, repo, repo_url = show.pick_installed_rock(name, version, flags["tree"]) if not name then return nil, version end local directory = path.install_dir(name,version,repo) local rockspec_file = path.rockspec_file(name, version, repo) local rockspec, err = fetch.load_local_rockspec(rockspec_file) if not rockspec then return nil,err end local descript = rockspec.description or {} local manifest, err = manif.load_manifest(repo_url) if not manifest then return nil,err end local minfo = manifest.repository[name][version][1] if flags["rock-tree"] then util.printout(path.rocks_tree_to_string(repo)) elseif flags["rock-dir"] then util.printout(directory) elseif flags["home"] then util.printout(descript.homepage) elseif flags["modules"] then util.printout(keys_as_string(minfo.modules, "\n")) elseif flags["deps"] then util.printout(keys_as_string(minfo.dependencies)) elseif flags["rockspec"] then util.printout(rockspec_file) elseif flags["mversion"] then util.printout(version) else util.printout() util.printout(rockspec.package.." "..rockspec.version.." - "..(descript.summary or "")) util.printout() if descript.detailed then util.printout(format_text(descript.detailed)) util.printout() end if descript.license then util.printout("License: ", descript.license) end if descript.homepage then util.printout("Homepage: ", descript.homepage) end util.printout("Installed in: ", path.rocks_tree_to_string(repo)) if next(minfo.modules) then util.printout() util.printout("Modules:") for mod, filename in util.sortedpairs(minfo.modules) do util.printout("\t"..mod.." ("..path.which(mod, filename, name, version, repo, manifest)..")") end end if next(minfo.dependencies) then util.printout() util.printout("Depends on:") util.printout("\t"..keys_as_string(minfo.dependencies, "\n\t")) end util.printout() end return true end return show luarocks-2.2.0+dfsg/src/luarocks/tools/000077500000000000000000000000001241625207600200345ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/tools/patch.lua000066400000000000000000000532251241625207600216450ustar00rootroot00000000000000--- Patch utility to apply unified diffs. -- -- http://lua-users.org/wiki/LuaPatch -- -- (c) 2008 David Manura, Licensed under the same terms as Lua (MIT license). -- Code is heavilly based on the Python-based patch.py version 8.06-1 -- Copyright (c) 2008 rainforce.org, MIT License -- Project home: http://code.google.com/p/python-patch/ . -- Version 0.1 --module("luarocks.tools.patch", package.seeall) local patch = {} local fs = require("luarocks.fs") local util = require("luarocks.util") local io = io local os = os local string = string local table = table local format = string.format -- logging local debugmode = false local function debug(s) end local function info(s) end local function warning(s) io.stderr:write(s .. '\n') end -- Returns boolean whether string s2 starts with string s. local function startswith(s, s2) return s:sub(1, #s2) == s2 end -- Returns boolean whether string s2 ends with string s. local function endswith(s, s2) return #s >= #s2 and s:sub(#s-#s2+1) == s2 end -- Returns string s after filtering out any new-line characters from end. local function endlstrip(s) return s:gsub('[\r\n]+$', '') end -- Returns shallow copy of table t. local function table_copy(t) local t2 = {} for k,v in pairs(t) do t2[k] = v end return t2 end local function exists(filename) local fh = io.open(filename) local result = fh ~= nil if fh then fh:close() end return result end local function isfile() return true end --FIX? local function read_file(filename) local fh, err, oserr = io.open(filename, 'rb') if not fh then return fh, err, oserr end local data, err, oserr = fh:read'*a' fh:close() if not data then return nil, err, oserr end return data end local function write_file(filename, data) local fh, err, oserr = io.open(filename 'wb') if not fh then return fh, err, oserr end local status, err, oserr = fh:write(data) fh:close() if not status then return nil, err, oserr end return true end local function file_copy(src, dest) local data, err, oserr = read_file(src) if not data then return data, err, oserr end local status, err, oserr = write_file(dest) if not status then return status, err, oserr end return true end local function string_as_file(s) return { at = 0, str = s, len = #s, eof = false, read = function(self, n) if self.eof then return nil end local chunk = self.str:sub(self.at, self.at + n - 1) self.at = self.at + n if self.at > self.len then self.eof = true end return chunk end, close = function(self) self.eof = true end, } end -- -- file_lines(f) is similar to f:lines() for file f. -- The main difference is that read_lines includes -- new-line character sequences ("\n", "\r\n", "\r"), -- if any, at the end of each line. Embedded "\0" are also handled. -- Caution: The newline behavior can depend on whether f is opened -- in binary or ASCII mode. -- (file_lines - version 20080913) -- local function file_lines(f) local CHUNK_SIZE = 1024 local buffer = "" local pos_beg = 1 return function() local pos, chars while 1 do pos, chars = buffer:match('()([\r\n].)', pos_beg) if pos or not f then break elseif f then local chunk = f:read(CHUNK_SIZE) if chunk then buffer = buffer:sub(pos_beg) .. chunk pos_beg = 1 else f = nil end end end if not pos then pos = #buffer elseif chars == '\r\n' then pos = pos + 1 end local line = buffer:sub(pos_beg, pos) pos_beg = pos + 1 if #line > 0 then return line end end end local function match_linerange(line) local m1, m2, m3, m4 = line:match("^@@ %-(%d+),(%d+) %+(%d+),(%d+)") if not m1 then m1, m3, m4 = line:match("^@@ %-(%d+) %+(%d+),(%d+)") end if not m1 then m1, m2, m3 = line:match("^@@ %-(%d+),(%d+) %+(%d+)") end if not m1 then m1, m3 = line:match("^@@ %-(%d+) %+(%d+)") end return m1, m2, m3, m4 end function patch.read_patch(filename, data) -- define possible file regions that will direct the parser flow local state = 'header' -- 'header' - comments before the patch body -- 'filenames' - lines starting with --- and +++ -- 'hunkhead' - @@ -R +R @@ sequence -- 'hunkbody' -- 'hunkskip' - skipping invalid hunk mode local all_ok = true local lineends = {lf=0, crlf=0, cr=0} local files = {source={}, target={}, hunks={}, fileends={}, hunkends={}} local nextfileno = 0 local nexthunkno = 0 --: even if index starts with 0 user messages -- number hunks from 1 -- hunkinfo holds parsed values, hunkactual - calculated local hunkinfo = { startsrc=nil, linessrc=nil, starttgt=nil, linestgt=nil, invalid=false, text={} } local hunkactual = {linessrc=nil, linestgt=nil} info(format("reading patch %s", filename)) local fp if data then fp = string_as_file(data) else fp = filename == '-' and io.stdin or assert(io.open(filename, "rb")) end local lineno = 0 for line in file_lines(fp) do lineno = lineno + 1 if state == 'header' then if startswith(line, "--- ") then state = 'filenames' end -- state is 'header' or 'filenames' end if state == 'hunkbody' then -- skip hunkskip and hunkbody code until definition of hunkhead read -- process line first if line:match"^[- +\\]" or line:match"^[\r\n]*$" then -- gather stats about line endings local he = files.hunkends[nextfileno] if endswith(line, "\r\n") then he.crlf = he.crlf + 1 elseif endswith(line, "\n") then he.lf = he.lf + 1 elseif endswith(line, "\r") then he.cr = he.cr + 1 end if startswith(line, "-") then hunkactual.linessrc = hunkactual.linessrc + 1 elseif startswith(line, "+") then hunkactual.linestgt = hunkactual.linestgt + 1 elseif startswith(line, "\\") then -- nothing else hunkactual.linessrc = hunkactual.linessrc + 1 hunkactual.linestgt = hunkactual.linestgt + 1 end table.insert(hunkinfo.text, line) -- todo: handle \ No newline cases else warning(format("invalid hunk no.%d at %d for target file %s", nexthunkno, lineno, files.target[nextfileno])) -- add hunk status node table.insert(files.hunks[nextfileno], table_copy(hunkinfo)) files.hunks[nextfileno][nexthunkno].invalid = true all_ok = false state = 'hunkskip' end -- check exit conditions if hunkactual.linessrc > hunkinfo.linessrc or hunkactual.linestgt > hunkinfo.linestgt then warning(format("extra hunk no.%d lines at %d for target %s", nexthunkno, lineno, files.target[nextfileno])) -- add hunk status node table.insert(files.hunks[nextfileno], table_copy(hunkinfo)) files.hunks[nextfileno][nexthunkno].invalid = true state = 'hunkskip' elseif hunkinfo.linessrc == hunkactual.linessrc and hunkinfo.linestgt == hunkactual.linestgt then table.insert(files.hunks[nextfileno], table_copy(hunkinfo)) state = 'hunkskip' -- detect mixed window/unix line ends local ends = files.hunkends[nextfileno] if (ends.cr~=0 and 1 or 0) + (ends.crlf~=0 and 1 or 0) + (ends.lf~=0 and 1 or 0) > 1 then warning(format("inconsistent line ends in patch hunks for %s", files.source[nextfileno])) end if debugmode then local debuglines = {crlf=ends.crlf, lf=ends.lf, cr=ends.cr, file=files.target[nextfileno], hunk=nexthunkno} debug(format("crlf: %(crlf)d lf: %(lf)d cr: %(cr)d\t " .. "- file: %(file)s hunk: %(hunk)d", debuglines)) end end -- state is 'hunkbody' or 'hunkskip' end if state == 'hunkskip' then if match_linerange(line) then state = 'hunkhead' elseif startswith(line, "--- ") then state = 'filenames' if debugmode and #files.source > 0 then debug(format("- %2d hunks for %s", #files.hunks[nextfileno], files.source[nextfileno])) end end -- state is 'hunkskip', 'hunkhead', or 'filenames' end local advance if state == 'filenames' then if startswith(line, "--- ") then if util.array_contains(files.source, nextfileno) then all_ok = false warning(format("skipping invalid patch for %s", files.source[nextfileno+1])) table.remove(files.source, nextfileno+1) -- double source filename line is encountered -- attempt to restart from this second line end -- Accept a space as a terminator, like GNU patch does. -- Breaks patches containing filenames with spaces... -- FIXME Figure out what does GNU patch do in those cases. local match = line:match("^%-%-%- ([^ \t\r\n]+)") if not match then all_ok = false warning(format("skipping invalid filename at line %d", lineno+1)) state = 'header' else table.insert(files.source, match) end elseif not startswith(line, "+++ ") then if util.array_contains(files.source, nextfileno) then all_ok = false warning(format("skipping invalid patch with no target for %s", files.source[nextfileno+1])) table.remove(files.source, nextfileno+1) else -- this should be unreachable warning("skipping invalid target patch") end state = 'header' else if util.array_contains(files.target, nextfileno) then all_ok = false warning(format("skipping invalid patch - double target at line %d", lineno+1)) table.remove(files.source, nextfileno+1) table.remove(files.target, nextfileno+1) nextfileno = nextfileno - 1 -- double target filename line is encountered -- switch back to header state state = 'header' else -- Accept a space as a terminator, like GNU patch does. -- Breaks patches containing filenames with spaces... -- FIXME Figure out what does GNU patch do in those cases. local re_filename = "^%+%+%+ ([^ \t\r\n]+)" local match = line:match(re_filename) if not match then all_ok = false warning(format( "skipping invalid patch - no target filename at line %d", lineno+1)) state = 'header' else table.insert(files.target, match) nextfileno = nextfileno + 1 nexthunkno = 0 table.insert(files.hunks, {}) table.insert(files.hunkends, table_copy(lineends)) table.insert(files.fileends, table_copy(lineends)) state = 'hunkhead' advance = true end end end -- state is 'filenames', 'header', or ('hunkhead' with advance) end if not advance and state == 'hunkhead' then local m1, m2, m3, m4 = match_linerange(line) if not m1 then if not util.array_contains(files.hunks, nextfileno-1) then all_ok = false warning(format("skipping invalid patch with no hunks for file %s", files.target[nextfileno])) end state = 'header' else hunkinfo.startsrc = tonumber(m1) hunkinfo.linessrc = tonumber(m2 or 1) hunkinfo.starttgt = tonumber(m3) hunkinfo.linestgt = tonumber(m4 or 1) hunkinfo.invalid = false hunkinfo.text = {} hunkactual.linessrc = 0 hunkactual.linestgt = 0 state = 'hunkbody' nexthunkno = nexthunkno + 1 end -- state is 'header' or 'hunkbody' end end if state ~= 'hunkskip' then warning(format("patch file incomplete - %s", filename)) all_ok = false -- os.exit(?) else -- duplicated message when an eof is reached if debugmode and #files.source > 0 then debug(format("- %2d hunks for %s", #files.hunks[nextfileno], files.source[nextfileno])) end end local sum = 0; for _,hset in ipairs(files.hunks) do sum = sum + #hset end info(format("total files: %d total hunks: %d", #files.source, sum)) fp:close() return files, all_ok end local function find_hunk(file, h, hno) for fuzz=0,2 do local lineno = h.startsrc for i=0,#file do local found = true local location = lineno for l, hline in ipairs(h.text) do if l > fuzz then -- todo: \ No newline at the end of file if startswith(hline, " ") or startswith(hline, "-") then local line = file[lineno] lineno = lineno + 1 if not line or #line == 0 then found = false break end if endlstrip(line) ~= endlstrip(hline:sub(2)) then found = false break end end end end if found then local offset = location - h.startsrc - fuzz if offset ~= 0 then warning(format("Hunk %d found at offset %d%s...", hno, offset, fuzz == 0 and "" or format(" (fuzz %d)", fuzz))) end h.startsrc = location h.starttgt = h.starttgt + offset for i=1,fuzz do table.remove(h.text, 1) table.remove(h.text, #h.text) end return true end lineno = i end end return false end local function load_file(filename) local fp = assert(io.open(filename)) local file = {} local readline = file_lines(fp) while true do local line = readline() if not line then break end table.insert(file, line) end fp:close() return file end local function find_hunks(file, hunks) for hno, h in ipairs(hunks) do find_hunk(file, h, hno) end end local function check_patched(file, hunks) local matched = true local lineno = 1 local ok, err = pcall(function() if #file == 0 then error 'nomatch' end for hno, h in ipairs(hunks) do -- skip to line just before hunk starts if #file < h.starttgt then error 'nomatch' end lineno = h.starttgt for _, hline in ipairs(h.text) do -- todo: \ No newline at the end of file if not startswith(hline, "-") and not startswith(hline, "\\") then local line = file[lineno] lineno = lineno + 1 if #line == 0 then error 'nomatch' end if endlstrip(line) ~= endlstrip(hline:sub(2)) then warning(format("file is not patched - failed hunk: %d", hno)) error 'nomatch' end end end end end) if err == 'nomatch' then matched = false end -- todo: display failed hunk, i.e. expected/found return matched end local function patch_hunks(srcname, tgtname, hunks) local src = assert(io.open(srcname, "rb")) local tgt = assert(io.open(tgtname, "wb")) local src_readline = file_lines(src) -- todo: detect linefeeds early - in apply_files routine -- to handle cases when patch starts right from the first -- line and no lines are processed. At the moment substituted -- lineends may not be the same at the start and at the end -- of patching. Also issue a warning about mixed lineends local srclineno = 1 local lineends = {['\n']=0, ['\r\n']=0, ['\r']=0} for hno, h in ipairs(hunks) do debug(format("processing hunk %d for file %s", hno, tgtname)) -- skip to line just before hunk starts while srclineno < h.startsrc do local line = src_readline() -- Python 'U' mode works only with text files if endswith(line, "\r\n") then lineends["\r\n"] = lineends["\r\n"] + 1 elseif endswith(line, "\n") then lineends["\n"] = lineends["\n"] + 1 elseif endswith(line, "\r") then lineends["\r"] = lineends["\r"] + 1 end tgt:write(line) srclineno = srclineno + 1 end for _,hline in ipairs(h.text) do -- todo: check \ No newline at the end of file if startswith(hline, "-") or startswith(hline, "\\") then src_readline() srclineno = srclineno + 1 else if not startswith(hline, "+") then src_readline() srclineno = srclineno + 1 end local line2write = hline:sub(2) -- detect if line ends are consistent in source file local sum = 0 for k,v in pairs(lineends) do if v > 0 then sum=sum+1 end end if sum == 1 then local newline for k,v in pairs(lineends) do if v ~= 0 then newline = k end end tgt:write(endlstrip(line2write) .. newline) else -- newlines are mixed or unknown tgt:write(line2write) end end end end for line in src_readline do tgt:write(line) end tgt:close() src:close() return true end local function strip_dirs(filename, strip) if strip == nil then return filename end for i=1,strip do filename=filename:gsub("^[^/]*/", "") end return filename end function patch.apply_patch(the_patch, strip) local all_ok = true local total = #the_patch.source for fileno, filename in ipairs(the_patch.source) do filename = strip_dirs(filename, strip) local continue local f2patch = filename if not exists(f2patch) then f2patch = strip_dirs(the_patch.target[fileno], strip) f2patch = fs.absolute_name(f2patch) if not exists(f2patch) then --FIX:if f2patch nil warning(format("source/target file does not exist\n--- %s\n+++ %s", filename, f2patch)) all_ok = false continue = true end end if not continue and not isfile(f2patch) then warning(format("not a file - %s", f2patch)) all_ok = false continue = true end if not continue then filename = f2patch info(format("processing %d/%d:\t %s", fileno, total, filename)) -- validate before patching local hunks = the_patch.hunks[fileno] local file = load_file(filename) local hunkno = 1 local hunk = hunks[hunkno] local hunkfind = {} local hunkreplace = {} local validhunks = 0 local canpatch = false local hunklineno local isbreak local lineno = 0 find_hunks(file, hunks) for _, line in ipairs(file) do lineno = lineno + 1 local continue if not hunk or lineno < hunk.startsrc then continue = true elseif lineno == hunk.startsrc then hunkfind = {} for _,x in ipairs(hunk.text) do if x:sub(1,1) == ' ' or x:sub(1,1) == '-' then hunkfind[#hunkfind+1] = endlstrip(x:sub(2)) end end hunkreplace = {} for _,x in ipairs(hunk.text) do if x:sub(1,1) == ' ' or x:sub(1,1) == '+' then hunkreplace[#hunkreplace+1] = endlstrip(x:sub(2)) end end --pprint(hunkreplace) hunklineno = 1 -- todo \ No newline at end of file end -- check hunks in source file if not continue and lineno < hunk.startsrc + #hunkfind - 1 then if endlstrip(line) == hunkfind[hunklineno] then hunklineno = hunklineno + 1 else debug(format("hunk no.%d doesn't match source file %s", hunkno, filename)) -- file may be already patched, but check other hunks anyway hunkno = hunkno + 1 if hunkno <= #hunks then hunk = hunks[hunkno] continue = true else isbreak = true; break end end end -- check if processed line is the last line if not continue and lineno == hunk.startsrc + #hunkfind - 1 then debug(format("file %s hunk no.%d -- is ready to be patched", filename, hunkno)) hunkno = hunkno + 1 validhunks = validhunks + 1 if hunkno <= #hunks then hunk = hunks[hunkno] else if validhunks == #hunks then -- patch file canpatch = true isbreak = true; break end end end end if not isbreak then if hunkno <= #hunks then warning(format("premature end of source file %s at hunk %d", filename, hunkno)) all_ok = false end end if validhunks < #hunks then if check_patched(file, hunks) then warning(format("already patched %s", filename)) else warning(format("source file is different - %s", filename)) all_ok = false end end if canpatch then local backupname = filename .. ".orig" if exists(backupname) then warning(format("can't backup original file to %s - aborting", backupname)) all_ok = false else assert(os.rename(filename, backupname)) if patch_hunks(backupname, filename, hunks) then warning(format("successfully patched %s", filename)) assert(os.remove(backupname)) else warning(format("error patching file %s", filename)) assert(file_copy(filename, filename .. ".invalid")) warning(format("invalid version is saved to %s", filename .. ".invalid")) -- todo: proper rejects assert(os.rename(backupname, filename)) all_ok = false end end end end -- if not continue end -- for -- todo: check for premature eof return all_ok end return patch luarocks-2.2.0+dfsg/src/luarocks/tools/tar.lua000066400000000000000000000113331241625207600213260ustar00rootroot00000000000000 --- A pure-Lua implementation of untar (unpacking .tar archives) --module("luarocks.tools.tar", package.seeall) local tar = {} local fs = require("luarocks.fs") local dir = require("luarocks.dir") local util = require("luarocks.util") local blocksize = 512 local function get_typeflag(flag) if flag == "0" or flag == "\0" then return "file" elseif flag == "1" then return "link" elseif flag == "2" then return "symlink" -- "reserved" in POSIX, "symlink" in GNU elseif flag == "3" then return "character" elseif flag == "4" then return "block" elseif flag == "5" then return "directory" elseif flag == "6" then return "fifo" elseif flag == "7" then return "contiguous" -- "reserved" in POSIX, "contiguous" in GNU elseif flag == "x" then return "next file" elseif flag == "g" then return "global extended header" elseif flag == "L" then return "long name" elseif flag == "K" then return "long link name" end return "unknown" end local function octal_to_number(octal) local exp = 0 local number = 0 for i = #octal,1,-1 do local digit = tonumber(octal:sub(i,i)) if not digit then break end number = number + (digit * 8^exp) exp = exp + 1 end return number end local function checksum_header(block) local sum = 256 for i = 1,148 do sum = sum + block:byte(i) end for i = 157,500 do sum = sum + block:byte(i) end return sum end local function nullterm(s) return s:match("^[^%z]*") end local function read_header_block(block) local header = {} header.name = nullterm(block:sub(1,100)) header.mode = nullterm(block:sub(101,108)) header.uid = octal_to_number(nullterm(block:sub(109,116))) header.gid = octal_to_number(nullterm(block:sub(117,124))) header.size = octal_to_number(nullterm(block:sub(125,136))) header.mtime = octal_to_number(nullterm(block:sub(137,148))) header.chksum = octal_to_number(nullterm(block:sub(149,156))) header.typeflag = get_typeflag(block:sub(157,157)) header.linkname = nullterm(block:sub(158,257)) header.magic = block:sub(258,263) header.version = block:sub(264,265) header.uname = nullterm(block:sub(266,297)) header.gname = nullterm(block:sub(298,329)) header.devmajor = octal_to_number(nullterm(block:sub(330,337))) header.devminor = octal_to_number(nullterm(block:sub(338,345))) header.prefix = block:sub(346,500) if header.magic ~= "ustar " and header.magic ~= "ustar\0" then return false, "Invalid header magic "..header.magic end if header.version ~= "00" and header.version ~= " \0" then return false, "Unknown version "..header.version end if not checksum_header(block) == header.chksum then return false, "Failed header checksum" end return header end function tar.untar(filename, destdir) assert(type(filename) == "string") assert(type(destdir) == "string") local tar_handle = io.open(filename, "r") if not tar_handle then return nil, "Error opening file "..filename end local long_name, long_link_name while true do local block repeat block = tar_handle:read(blocksize) until (not block) or checksum_header(block) > 256 if not block then break end local header, err = read_header_block(block) if not header then util.printerr(err) end local file_data = tar_handle:read(math.ceil(header.size / blocksize) * blocksize):sub(1,header.size) if header.typeflag == "long name" then long_name = nullterm(file_data) elseif header.typeflag == "long link name" then long_link_name = nullterm(file_data) else if long_name then header.name = long_name long_name = nil end if long_link_name then header.name = long_link_name long_link_name = nil end end local pathname = dir.path(destdir, header.name) if header.typeflag == "directory" then local ok, err = fs.make_dir(pathname) if not ok then return nil, err end elseif header.typeflag == "file" then local dirname = dir.dir_name(pathname) if dirname ~= "" then local ok, err = fs.make_dir(dirname) if not ok then return nil, err end end local file_handle = io.open(pathname, "wb") file_handle:write(file_data) file_handle:close() fs.set_time(pathname, header.mtime) if fs.chmod then fs.chmod(pathname, header.mode) end end --[[ for k,v in pairs(header) do util.printout("[\""..tostring(k).."\"] = "..(type(v)=="number" and v or "\""..v:gsub("%z", "\\0").."\"")) end util.printout() --]] end return true end return tar luarocks-2.2.0+dfsg/src/luarocks/tools/zip.lua000066400000000000000000000202751241625207600213470ustar00rootroot00000000000000 --- A Lua implementation of .zip file archiving (used for creating .rock files), -- using only lua-zlib. --module("luarocks.tools.zip", package.seeall) local zip = {} local zlib = require("zlib") local fs = require("luarocks.fs") local dir = require("luarocks.dir") local function number_to_bytestring(number, nbytes) local out = {} for i = 1, nbytes do local byte = number % 256 table.insert(out, string.char(byte)) number = (number - byte) / 256 end return table.concat(out) end --- Begin a new file to be stored inside the zipfile. -- @param self handle of the zipfile being written. -- @param filename filenome of the file to be added to the zipfile. -- @return true if succeeded, nil in case of failure. local function zipwriter_open_new_file_in_zip(self, filename) if self.in_open_file then self:close_file_in_zip() return nil end local lfh = {} self.local_file_header = lfh lfh.last_mod_file_time = 0 -- TODO lfh.last_mod_file_date = 0 -- TODO lfh.crc32 = 0 -- initial value lfh.compressed_size = 0 -- unknown yet lfh.uncompressed_size = 0 -- unknown yet lfh.file_name_length = #filename lfh.extra_field_length = 0 lfh.file_name = filename:gsub("\\", "/") lfh.external_attr = 0 -- TODO properly store permissions self.in_open_file = true self.data = {} return true end --- Write data to the file currently being stored in the zipfile. -- @param self handle of the zipfile being written. -- @param buf string containing data to be written. -- @return true if succeeded, nil in case of failure. local function zipwriter_write_file_in_zip(self, buf) if not self.in_open_file then return nil end local lfh = self.local_file_header local cbuf = zlib.compress(buf):sub(3, -5) lfh.crc32 = zlib.crc32(lfh.crc32, buf) lfh.compressed_size = lfh.compressed_size + #cbuf lfh.uncompressed_size = lfh.uncompressed_size + #buf table.insert(self.data, cbuf) return true end --- Complete the writing of a file stored in the zipfile. -- @param self handle of the zipfile being written. -- @return true if succeeded, nil in case of failure. local function zipwriter_close_file_in_zip(self) local zh = self.ziphandle if not self.in_open_file then return nil end -- Local file header local lfh = self.local_file_header lfh.offset = zh:seek() zh:write(number_to_bytestring(0x04034b50, 4)) -- signature zh:write(number_to_bytestring(20, 2)) -- version needed to extract: 2.0 zh:write(number_to_bytestring(0, 2)) -- general purpose bit flag zh:write(number_to_bytestring(8, 2)) -- compression method: deflate zh:write(number_to_bytestring(lfh.last_mod_file_time, 2)) zh:write(number_to_bytestring(lfh.last_mod_file_date, 2)) zh:write(number_to_bytestring(lfh.crc32, 4)) zh:write(number_to_bytestring(lfh.compressed_size, 4)) zh:write(number_to_bytestring(lfh.uncompressed_size, 4)) zh:write(number_to_bytestring(lfh.file_name_length, 2)) zh:write(number_to_bytestring(lfh.extra_field_length, 2)) zh:write(lfh.file_name) -- File data for _, cbuf in ipairs(self.data) do zh:write(cbuf) end -- Data descriptor zh:write(number_to_bytestring(lfh.crc32, 4)) zh:write(number_to_bytestring(lfh.compressed_size, 4)) zh:write(number_to_bytestring(lfh.uncompressed_size, 4)) table.insert(self.files, lfh) self.in_open_file = false return true end -- @return boolean or (boolean, string): true on success, -- false and an error message on failure. local function zipwriter_add(self, file) local fin local ok, err = self:open_new_file_in_zip(file) if not ok then err = "error in opening "..file.." in zipfile" else fin = io.open(fs.absolute_name(file), "rb") if not fin then ok = false err = "error opening "..file.." for reading" end end if ok then local buf = fin:read("*a") if not buf then err = "error reading "..file ok = false else ok = self:write_file_in_zip(buf) if not ok then err = "error in writing "..file.." in the zipfile" end end end if fin then fin:close() end if ok then ok = self:close_file_in_zip() if not ok then err = "error in writing "..file.." in the zipfile" end end return ok == true, err end --- Complete the writing of the zipfile. -- @param self handle of the zipfile being written. -- @return true if succeeded, nil in case of failure. local function zipwriter_close(self) local zh = self.ziphandle local central_directory_offset = zh:seek() local size_of_central_directory = 0 -- Central directory structure for _, lfh in ipairs(self.files) do zh:write(number_to_bytestring(0x02014b50, 4)) -- signature zh:write(number_to_bytestring(3, 2)) -- version made by: UNIX zh:write(number_to_bytestring(20, 2)) -- version needed to extract: 2.0 zh:write(number_to_bytestring(0, 2)) -- general purpose bit flag zh:write(number_to_bytestring(8, 2)) -- compression method: deflate zh:write(number_to_bytestring(lfh.last_mod_file_time, 2)) zh:write(number_to_bytestring(lfh.last_mod_file_date, 2)) zh:write(number_to_bytestring(lfh.crc32, 4)) zh:write(number_to_bytestring(lfh.compressed_size, 4)) zh:write(number_to_bytestring(lfh.uncompressed_size, 4)) zh:write(number_to_bytestring(lfh.file_name_length, 2)) zh:write(number_to_bytestring(lfh.extra_field_length, 2)) zh:write(number_to_bytestring(0, 2)) -- file comment length zh:write(number_to_bytestring(0, 2)) -- disk number start zh:write(number_to_bytestring(0, 2)) -- internal file attributes zh:write(number_to_bytestring(lfh.external_attr, 4)) -- external file attributes zh:write(number_to_bytestring(lfh.offset, 4)) -- relative offset of local header zh:write(lfh.file_name) size_of_central_directory = size_of_central_directory + 46 + lfh.file_name_length end -- End of central directory record zh:write(number_to_bytestring(0x06054b50, 4)) -- signature zh:write(number_to_bytestring(0, 2)) -- number of this disk zh:write(number_to_bytestring(0, 2)) -- number of disk with start of central directory zh:write(number_to_bytestring(#self.files, 2)) -- total number of entries in the central dir on this disk zh:write(number_to_bytestring(#self.files, 2)) -- total number of entries in the central dir zh:write(number_to_bytestring(size_of_central_directory, 4)) zh:write(number_to_bytestring(central_directory_offset, 4)) zh:write(number_to_bytestring(0, 2)) -- zip file comment length zh:close() return true end --- Return a zip handle open for writing. -- @param name filename of the zipfile to be created. -- @return a zip handle, or nil in case of error. function zip.new_zipwriter(name) local zw = {} zw.ziphandle = io.open(fs.absolute_name(name), "wb") if not zw.ziphandle then return nil end zw.files = {} zw.in_open_file = false zw.add = zipwriter_add zw.close = zipwriter_close zw.open_new_file_in_zip = zipwriter_open_new_file_in_zip zw.write_file_in_zip = zipwriter_write_file_in_zip zw.close_file_in_zip = zipwriter_close_file_in_zip return zw end --- Compress files in a .zip archive. -- @param zipfile string: pathname of .zip archive to be created. -- @param ... Filenames to be stored in the archive are given as -- additional arguments. -- @return boolean or (boolean, string): true on success, -- false and an error message on failure. function zip.zip(zipfile, ...) local zw = zip.new_zipwriter(zipfile) if not zw then return nil, "error opening "..zipfile end local ok, err for _, file in pairs({...}) do if fs.is_dir(file) then for _, entry in pairs(fs.find(file)) do local fullname = dir.path(file, entry) if fs.is_file(fullname) then ok, err = zw:add(fullname) if not ok then break end end end else ok, err = zw:add(file) if not ok then break end end end local ok = zw:close() if not ok then return false, "error closing "..zipfile end return ok, err end return zip luarocks-2.2.0+dfsg/src/luarocks/type_check.lua000066400000000000000000000222461241625207600215230ustar00rootroot00000000000000--- Type-checking functions. -- Functions and definitions for doing a basic lint check on files -- loaded by LuaRocks. --module("luarocks.type_check", package.seeall) local type_check = {} package.loaded["luarocks.type_check"] = type_check local cfg = require("luarocks.cfg") type_check.rockspec_format = "1.0" local rockspec_types = { rockspec_format = "string", MUST_package = "string", MUST_version = "[%w.]+-[%d]+", description = { summary = "string", detailed = "string", homepage = "string", license = "string", maintainer = "string" }, dependencies = { platforms = {}, ANY = "string" }, supported_platforms = { ANY = "string" }, external_dependencies = { platforms = {}, ANY = { program = "string", header = "string", library = "string" } }, MUST_source = { platforms = {}, MUST_url = "string", md5 = "string", file = "string", dir = "string", tag = "string", branch = "string", module = "string", cvs_tag = "string", cvs_module = "string" }, build = { platforms = {}, type = "string", install = { lua = { MORE = true }, lib = { MORE = true }, conf = { MORE = true }, bin = { MORE = true } }, copy_directories = { ANY = "string" }, MORE = true }, hooks = { platforms = {}, post_install = "string" } } type_check.rockspec_order = {"rockspec_format", "package", "version", { "source", { "url", "tag", "branch", "md5" } }, { "description", {"summary", "detailed", "homepage", "license" } }, "supported_platforms", "dependencies", "external_dependencies", { "build", {"type", "modules", "copy_directories", "platforms"} }, "hooks"} function type_check.load_extensions() type_check.rockspec_format = "1.1" rockspec_types.deploy = { wrap_bin_scripts = true, } end if cfg.use_extensions then type_check.load_extensions() end rockspec_types.build.platforms.ANY = rockspec_types.build rockspec_types.dependencies.platforms.ANY = rockspec_types.dependencies rockspec_types.external_dependencies.platforms.ANY = rockspec_types.external_dependencies rockspec_types.MUST_source.platforms.ANY = rockspec_types.MUST_source rockspec_types.hooks.platforms.ANY = rockspec_types.hooks local manifest_types = { MUST_repository = { -- packages ANY = { -- versions ANY = { -- items ANY = { MUST_arch = "string", modules = { ANY = "string" }, commands = { ANY = "string" }, dependencies = { ANY = "string" }, -- TODO: to be extended with more metadata. } } } }, MUST_modules = { -- modules ANY = { -- providers ANY = "string" } }, MUST_commands = { -- modules ANY = { -- commands ANY = "string" } }, dependencies = { -- each module ANY = { -- each version ANY = { -- each dependency ANY = { name = "string", constraints = { ANY = { no_upgrade = "boolean", op = "string", version = { string = "string", ANY = 0, } } } } } } } } local type_check_table --- Type check an object. -- The object is compared against an archetypical value -- matching the expected type -- the actual values don't matter, -- only their types. Tables are type checked recursively. -- @param name any: The object name (for error messages). -- @param item any: The object being checked. -- @param expected any: The reference object. In case of a table, -- its is structured as a type reference table. -- @param context string: A string indicating the "context" where the -- error occurred (such as the name of the table the item is a part of), -- to be used by error messages. -- @return boolean or (nil, string): true if type checking -- succeeded, or nil and an error message if it failed. -- @see type_check_table local function type_check_item(name, item, expected, context) name = tostring(name) local item_type = type(item) local expected_type = type(expected) if expected_type == "number" then if not tonumber(item) then return nil, "Type mismatch on field "..context..name..": expected a number" end elseif expected_type == "string" then if type(item) ~= "string" then return nil, "Type mismatch on field "..context..name..": expected a string" end if expected ~= "string" then if item_type ~= "string" then return nil, "Type mismatch on field "..context..name..": expected a string, got a "..type(item) elseif not item:match("^"..expected.."$") then return nil, "Type mismatch on field "..context..name..": invalid value "..item.." does not match '"..expected.."'" end end elseif expected_type == "table" then if item_type ~= expected_type then return nil, "Type mismatch on field "..context..name..": expected a table" else return type_check_table(item, expected, context..name..".") end elseif item_type ~= expected_type then return nil, "Type mismatch on field "..context..name..": expected a "..expected_type end return true end --- Type check the contents of a table. -- The table's contents are compared against a reference table, -- which contains the recognized fields, with archetypical values -- matching the expected types -- the actual values of items in the -- reference table don't matter, only their types (ie, for field x -- in tbl that is correctly typed, type(tbl.x) == type(types.x)). -- If the reference table contains a field called MORE, then -- unknown fields in the checked table are accepted. -- If it contains a field called ANY, then its type will be -- used to check any unknown fields. If a field is prefixed -- with MUST_, it is mandatory; its absence from the table is -- a type error. -- Tables are type checked recursively. -- @param tbl table: The table to be type checked. -- @param types table: The reference table, containing -- values for recognized fields in the checked table. -- @param context string: A string indicating the "context" where the -- error occurred (such as the name of the table the item is a part of), -- to be used by error messages. -- @return boolean or (nil, string): true if type checking -- succeeded, or nil and an error message if it failed. type_check_table = function(tbl, types, context) assert(type(tbl) == "table") assert(type(types) == "table") for k, v in pairs(tbl) do local t = types[k] or (type(k) == "string" and types["MUST_"..k]) or types.ANY if t then local ok, err = type_check_item(k, v, t, context) if not ok then return nil, err end elseif types.MORE then -- Accept unknown field else if not cfg.accept_unknown_fields then return nil, "Unknown field "..k end end end for k, v in pairs(types) do local mandatory_key = k:match("^MUST_(.+)") if mandatory_key then if not tbl[mandatory_key] then return nil, "Mandatory field "..context..mandatory_key.." is missing." end end end return true end local function check_undeclared_globals(globals, types) local undeclared = {} for glob, _ in pairs(globals) do if not (types[glob] or types["MUST_"..glob]) then table.insert(undeclared, glob) end end if #undeclared == 1 then return nil, "Unknown variable: "..undeclared[1] elseif #undeclared > 1 then return nil, "Unknown variables: "..table.concat(undeclared, ", ") end return true end --- Type check a rockspec table. -- Verify the correctness of elements from a -- rockspec table, reporting on unknown fields and type -- mismatches. -- @return boolean or (nil, string): true if type checking -- succeeded, or nil and an error message if it failed. function type_check.type_check_rockspec(rockspec, globals) assert(type(rockspec) == "table") if rockspec.rockspec_format then -- relies on global state type_check.load_extensions() end local ok, err = check_undeclared_globals(globals, rockspec_types) if not ok then return nil, err end return type_check_table(rockspec, rockspec_types, "") end --- Type check a manifest table. -- Verify the correctness of elements from a -- manifest table, reporting on unknown fields and type -- mismatches. -- @return boolean or (nil, string): true if type checking -- succeeded, or nil and an error message if it failed. function type_check.type_check_manifest(manifest, globals) assert(type(manifest) == "table") local ok, err = check_undeclared_globals(globals, manifest_types) if not ok then return nil, err end return type_check_table(manifest, manifest_types, "") end return type_check luarocks-2.2.0+dfsg/src/luarocks/unpack.lua000066400000000000000000000136261241625207600206700ustar00rootroot00000000000000 --- Module implementing the LuaRocks "unpack" command. -- Unpack the contents of a rock. --module("luarocks.unpack", package.seeall) local unpack = {} package.loaded["luarocks.unpack"] = unpack local fetch = require("luarocks.fetch") local fs = require("luarocks.fs") local util = require("luarocks.util") local build = require("luarocks.build") local dir = require("luarocks.dir") unpack.help_summary = "Unpack the contents of a rock." unpack.help_arguments = "[--force] {| []}" unpack.help = [[ Unpacks the contents of a rock in a newly created directory. Argument may be a rock file, or the name of a rock in a rocks server. In the latter case, the app version may be given as a second argument. --force Unpack files even if the output directory already exists. ]] --- Load a rockspec file to the given directory, fetches the source -- files specified in the rockspec, and unpack them inside the directory. -- @param rockspec_file string: The URL for a rockspec file. -- @param dir_name string: The directory where to store and unpack files. -- @return table or (nil, string): the loaded rockspec table or -- nil and an error message. local function unpack_rockspec(rockspec_file, dir_name) assert(type(rockspec_file) == "string") assert(type(dir_name) == "string") local rockspec, err = fetch.load_rockspec(rockspec_file) if not rockspec then return nil, "Failed loading rockspec "..rockspec_file..": "..err end local ok, err = fs.change_dir(dir_name) if not ok then return nil, err end local ok, sources_dir = fetch.fetch_sources(rockspec, true, ".") if not ok then return nil, sources_dir end ok, err = fs.change_dir(sources_dir) if not ok then return nil, err end build.apply_patches(rockspec) fs.pop_dir() fs.pop_dir() return rockspec end --- Load a .rock file to the given directory and unpack it inside it. -- @param rock_file string: The URL for a .rock file. -- @param dir_name string: The directory where to unpack. -- @param kind string: the kind of rock file, as in the second-level -- extension in the rock filename (eg. "src", "all", "linux-x86") -- @return table or (nil, string): the loaded rockspec table or -- nil and an error message. local function unpack_rock(rock_file, dir_name, kind) assert(type(rock_file) == "string") assert(type(dir_name) == "string") local ok, err, errcode = fetch.fetch_and_unpack_rock(rock_file, dir_name) if not ok then return nil, "Failed unzipping rock "..rock_file, errcode end ok, err = fs.change_dir(dir_name) if not ok then return nil, err end local rockspec_file = dir_name..".rockspec" local rockspec, err = fetch.load_rockspec(rockspec_file) if not rockspec then return nil, "Failed loading rockspec "..rockspec_file..": "..err end if kind == "src" then if rockspec.source.file then local ok, err = fs.unpack_archive(rockspec.source.file) if not ok then return nil, err end ok, err = fs.change_dir(rockspec.source.dir) if not ok then return nil, err end build.apply_patches(rockspec) fs.pop_dir() end end return rockspec end --- Create a directory and perform the necessary actions so that -- the sources for the rock and its rockspec are unpacked inside it, -- laid out properly so that the 'make' command is able to build the module. -- @param file string: A rockspec or .rock URL. -- @return boolean or (nil, string): true if successful or nil followed -- by an error message. local function run_unpacker(file, force) assert(type(file) == "string") local base_name = dir.base_name(file) local dir_name, kind, extension = base_name:match("(.*)%.([^.]+)%.(rock)$") if not extension then dir_name, extension = base_name:match("(.*)%.(rockspec)$") kind = "rockspec" end if not extension then return nil, file.." does not seem to be a valid filename." end local exists = fs.exists(dir_name) if exists and not force then return nil, "Directory "..dir_name.." already exists." end if not exists then local ok, err = fs.make_dir(dir_name) if not ok then return nil, err end end local rollback = util.schedule_function(fs.delete, fs.absolute_name(dir_name)) local rockspec, err if extension == "rock" then rockspec, err = unpack_rock(file, dir_name, kind) elseif extension == "rockspec" then rockspec, err = unpack_rockspec(file, dir_name) end if not rockspec then return nil, err end if kind == "src" or kind == "rockspec" then if rockspec.source.dir ~= "." then local ok = fs.copy(rockspec.local_filename, rockspec.source.dir) if not ok then return nil, "Failed copying unpacked rockspec into unpacked source directory." end end util.printout() util.printout("Done. You may now enter directory ") util.printout(dir.path(dir_name, rockspec.source.dir)) util.printout("and type 'luarocks make' to build.") end util.remove_scheduled_function(rollback) return true end --- Driver function for the "unpack" command. -- @param name string: may be a rock filename, for unpacking a -- rock file or the name of a rock to be fetched and unpacked. -- @param version string or nil: if the name of a package is given, a -- version may also be passed. -- @return boolean or (nil, string): true if successful or nil followed -- by an error message. function unpack.run(...) local flags, name, version = util.parse_flags(...) assert(type(version) == "string" or not version) if type(name) ~= "string" then return nil, "Argument missing. "..util.see_help("unpack") end if name:match(".*%.rock") or name:match(".*%.rockspec") then return run_unpacker(name, flags["force"]) else local search = require("luarocks.search") return search.act_on_src_or_rockspec(run_unpacker, name, version) end end return unpack luarocks-2.2.0+dfsg/src/luarocks/upload.lua000066400000000000000000000054461241625207600206740ustar00rootroot00000000000000 local upload = {} local util = require("luarocks.util") local fetch = require("luarocks.fetch") local pack = require("luarocks.pack") local cfg = require("luarocks.cfg") local Api = require("luarocks.upload.api") upload.help_summary = "Upload a rockspec to the public rocks repository." upload.help_arguments = "[--skip-pack] [--api-key=] [--force] " upload.help = [[ Pack a source rock file (.src.rock extension), upload rockspec and source rock to server. --skip-pack Do not pack and send source rock. --api-key= Give it an API key. It will be stored for subsequent uses. --force Replace existing rockspec if the same revision of a module already exists. This should be used only in case of upload mistakes: when updating a rockspec, increment the revision number instead. ]] function upload.run(...) local flags, fname = util.parse_flags(...) if not fname then return nil, "Missing rockspec. "..util.see_help("upload") end local api, err = Api.new(flags) if not api then return nil, err end if cfg.verbose then api.debug = true end local rockspec, err, errcode = fetch.load_rockspec(fname) if err then return nil, err, errcode end util.printout("Sending " .. tostring(fname) .. " ...") local res, err = api:method("check_rockspec", { package = rockspec.package, version = rockspec.version }) if not res then return nil, err end if not res.module then util.printout("Will create new module (" .. tostring(rockspec.package) .. ")") end if res.version and not flags["force"] then return nil, "Revision "..rockspec.version.." already exists on the server. "..util.see_help("upload") end local rock_fname if not flags["skip-pack"] then util.printout("Packing " .. tostring(rockspec.package)) rock_fname, err = pack.pack_source_rock(fname) if not rock_fname then return nil, err end end local multipart = require("luarocks.upload.multipart") res, err = api:method("upload", nil, { rockspec_file = multipart.new_file(fname) }) if not res then return nil, err end if res.is_new and #res.manifests == 0 then util.printerr("Warning: module not added to root manifest due to name taken.") end local module_url = res.module_url if rock_fname then util.printout(("Sending " .. tostring(rock_fname) .. " ...")) res, err = api:method("upload_rock/" .. tostring(res.version.id), nil, { rock_file = multipart.new_file(rock_fname) }) if not res then return nil, err end end util.printout() util.printout("Done: " .. tostring(module_url)) util.printout() return true end return upload luarocks-2.2.0+dfsg/src/luarocks/upload/000077500000000000000000000000001241625207600201605ustar00rootroot00000000000000luarocks-2.2.0+dfsg/src/luarocks/upload/api.lua000066400000000000000000000176221241625207600214440ustar00rootroot00000000000000 local api = {} local cfg = require("luarocks.cfg") local fs = require("luarocks.fs") local util = require("luarocks.util") local persist = require("luarocks.persist") local multipart = require("luarocks.upload.multipart") local Api = {} local function upload_config_file() local _, _, home_conf, home_ok = cfg.which_config() if not home_conf then return nil end return (home_conf:gsub("/[^/]+$", "/upload_config.lua")) end function Api:load_config() local upload_conf = upload_config_file() print(upload_conf) if not upload_conf then return nil end local cfg, err = persist.load_into_table(upload_conf) return cfg end function Api:save_config() -- Test configuration before saving it. local res, err = self:raw_method("status") if not res then return nil, err end if res.errors then util.printerr("Server says: " .. tostring(res.errors[1])) return end local upload_conf = upload_config_file() if not upload_conf then return nil end persist.save_from_table(upload_conf, self.config) fs.chmod(upload_conf, "0600") end function Api:check_version() if not self._server_tool_version then local tool_version = cfg.upload.tool_version local res, err = self:request(tostring(self.config.server) .. "/api/tool_version", { current = tool_version }) if not res then return nil, err end if not res.version then return nil, "failed to fetch tool version" end self._server_tool_version = res.version if res.force_update then return nil, "Your upload client is too out of date to continue, please upgrade LuaRocks." end if res.version ~= tool_version then util.printerr("Warning: Your LuaRocks is out of date, consider upgrading.") end end return true end function Api:method(...) local res, err = self:raw_method(...) if not res then return nil, err end if res.errors then if res.errors[1] == "Invalid key" then return nil, res.errors[1] .. " (use the --api-key flag to change)" end local msg = table.concat(res.errors, ", ") return nil, "API Failed: " .. msg end return res end function Api:raw_method(path, ...) self:check_version() local url = tostring(self.config.server) .. "/api/" .. tostring(cfg.upload.api_version) .. "/" .. tostring(self.config.key) .. "/" .. tostring(path) return self:request(url, ...) end local function encode_query_string(t, sep) if sep == nil then sep = "&" end local i = 0 local buf = { } for k, v in pairs(t) do if type(k) == "number" and type(v) == "table" then k, v = v[1], v[2] end buf[i + 1] = multipart.url_escape(k) buf[i + 2] = "=" buf[i + 3] = multipart.url_escape(v) buf[i + 4] = sep i = i + 4 end buf[i] = nil return table.concat(buf) end -- An ode to the multitude of JSON libraries out there... local function require_json() for _, lib in ipairs({ "cjson", "dkjson", "json" }) do local json_ok, json = pcall(require, lib) if json_ok then return json_ok, json end end return nil end local ltn12_ok, ltn12 = pcall(require, "ltn12") if not ltn12_ok then -- If not using LuaSocket and/or LuaSec... function Api:request(url, params, post_params) local vars = cfg.variables local json_ok, json = require_json() if not json_ok then return nil, "A JSON library is required for this command." end if cfg.downloader == "wget" then local curl_ok = fs.execute_quiet(vars.CURL, "--version") if not curl_ok then return nil, "Missing network helper program 'curl'.\nMake sure 'curl' is installed and available from your path." end end if not self.config.key then return nil, "Must have API key before performing any actions." end local body local headers = {} if params and next(params) then url = url .. ("?" .. encode_query_string(params)) end local method = "GET" local out local tmpfile = fs.tmpname() if post_params then method = "POST" local curl_cmd = fs.Q(vars.CURL).." -f -k -L --silent --user-agent \""..cfg.user_agent.." via curl\" " for k,v in pairs(post_params) do local var = v if type(v) == "table" then var = "@"..v.fname end curl_cmd = curl_cmd .. "--form \""..k.."="..var.."\" " end if cfg.connection_timeout and cfg.connection_timeout > 0 then curl_cmd = curl_cmd .. "--connect-timeout "..tonumber(cfg.connection_timeout).." " end ok = fs.execute_string(curl_cmd..fs.Q(url).." -o "..fs.Q(tmpfile)) else local ok, err = fs.download(url, tmpfile) if not ok then return nil, "API failure: " .. tostring(err) .. " - " .. tostring(url) end end local tmpfd = io.open(tmpfile) if not tmpfd then os.remove(tmpfile) return nil, "API failure reading temporary file - " .. tostring(url) end out = tmpfd:read("*a") tmpfd:close() os.remove(tmpfile) if self.debug then util.printout("[" .. tostring(method) .. " via curl] " .. tostring(url) .. " ... ") end return json.decode(out) end else -- use LuaSocket and LuaSec local warned_luasec = false function Api:request(url, params, post_params) local json_ok, json = require_json() if not json_ok then return nil, "A JSON library is required for this command." end local server = tostring(self.config.server) local http_ok, http local via = "luasocket" if server:match("^https://") then http_ok, http = pcall(require, "ssl.https") if http_ok then via = "luasec" else if not warned_luasec then util.printerr("LuaSec is not available; using plain HTTP. Install 'luasec' to enable HTTPS.") warned_luasec = true end http_ok, http = pcall(require, "socket.http") server = server:gsub("^https", "http") url = url:gsub("^https", "http") via = "luasocket" end else http_ok, http = pcall(require, "socket.http") end if not http_ok then return nil, "Failed loading socket library!" end if not self.config.key then return nil, "Must have API key before performing any actions." end local body local headers = {} if params and next(params) then url = url .. ("?" .. encode_query_string(params)) end if post_params then local boundary body, boundary = multipart.encode(post_params) headers["Content-length"] = #body headers["Content-type"] = "multipart/form-data; boundary=" .. tostring(boundary) end local method = post_params and "POST" or "GET" if self.debug then util.printout("[" .. tostring(method) .. " via "..via.."] " .. tostring(url) .. " ... ") end local out = {} local _, status = http.request({ url = url, headers = headers, method = method, sink = ltn12.sink.table(out), source = body and ltn12.source.string(body) }) if self.debug then util.printout(tostring(status)) end if status ~= 200 then return nil, "API returned " .. tostring(status) .. " - " .. tostring(url) end return json.decode(table.concat(out)) end end function api.new(flags, name) local self = {} setmetatable(self, { __index = Api }) self.config = self:load_config() or {} self.config.server = flags["server"] or self.config.server or cfg.upload.server self.config.version = self.config.version or cfg.upload.version self.config.key = flags["api-key"] or self.config.key self.debug = flags["debug"] if not self.config.key then return nil, "You need an API key to upload rocks.\n" .. "Navigate to "..self.config.server.."/settings to get a key\n" .. "and then pass it through the --api-key= flag." end if flags["api-key"] then self:save_config() end return self end return api luarocks-2.2.0+dfsg/src/luarocks/upload/multipart.lua000066400000000000000000000053471241625207600227150ustar00rootroot00000000000000 local multipart = {} local File = {} local unpack = unpack or table.unpack math.randomseed(os.time()) -- socket.url.escape(s) from LuaSocket 3.0rc1 function multipart.url_escape(s) return (string.gsub(s, "([^A-Za-z0-9_])", function(c) return string.format("%%%02x", string.byte(c)) end)) end function File:mime() if not self.mimetype then local mimetypes_ok, mimetypes = pcall(require, "mimetypes") if mimetypes_ok then self.mimetype = mimetypes.guess(self.fname) else self.mimetype = "application/octet-stream" end end return self.mimetype end function File:content() local fd = io.open(self.fname) if not fd then return nil, "Failed to open file: "..self.fname end local data = fd:read("*a") fd:close() return data end local function rand_string(len) local shuffled = {} for i = 1, len do local r = math.random(97, 122) if math.random() >= 0.5 then r = r - 32 end shuffled[i] = r end return string.char(unpack(shuffled)) end -- multipart encodes params -- returns encoded string,boundary -- params is an a table of tuple tables: -- params = { -- {key1, value2}, -- {key2, value2}, -- key3: value3 -- } function multipart.encode(params) local tuples = { } for i = 1, #params do tuples[i] = params[i] end for k,v in pairs(params) do if type(k) == "string" then table.insert(tuples, {k, v}) end end local chunks = {} for _, tuple in ipairs(tuples) do local k,v = unpack(tuple) k = multipart.url_escape(k) local buffer = { 'Content-Disposition: form-data; name="' .. k .. '"' } local content if type(v) == "table" and v.__class == File then buffer[1] = buffer[1] .. ('; filename="' .. v.fname:gsub(".*/", "") .. '"') table.insert(buffer, "Content-type: " .. v:mime()) content = v:content() else content = v end table.insert(buffer, "") table.insert(buffer, content) table.insert(chunks, table.concat(buffer, "\r\n")) end local boundary while not boundary do boundary = "Boundary" .. rand_string(16) for _, chunk in ipairs(chunks) do if chunk:find(boundary) then boundary = nil break end end end local inner = "\r\n--" .. boundary .. "\r\n" return table.concat({ "--", boundary, "\r\n", table.concat(chunks, inner), "\r\n", "--", boundary, "--", "\r\n" }), boundary end function multipart.new_file(fname, mime) local self = {} setmetatable(self, { __index = File }) self.__class = File self.fname = fname self.mimetype = mime return self end return multipart luarocks-2.2.0+dfsg/src/luarocks/util.lua000066400000000000000000000421421241625207600203570ustar00rootroot00000000000000 --- Assorted utilities for managing tables, plus a scheduler for rollback functions. -- Does not requires modules directly (only as locals -- inside specific functions) to avoid interdependencies, -- as this is used in the bootstrapping stage of luarocks.cfg. --module("luarocks.util", package.seeall) local util = {} local unpack = unpack or table.unpack local scheduled_functions = {} local debug = require("debug") --- Schedule a function to be executed upon program termination. -- This is useful for actions such as deleting temporary directories -- or failure rollbacks. -- @param f function: Function to be executed. -- @param ... arguments to be passed to function. -- @return table: A token representing the scheduled execution, -- which can be used to remove the item later from the list. function util.schedule_function(f, ...) assert(type(f) == "function") local item = { fn = f, args = {...} } table.insert(scheduled_functions, item) return item end --- Unschedule a function. -- This is useful for cancelling a rollback of a completed operation. -- @param item table: The token representing the scheduled function that was -- returned from the schedule_function call. function util.remove_scheduled_function(item) for k, v in pairs(scheduled_functions) do if v == item then table.remove(scheduled_functions, k) return end end end --- Execute scheduled functions. -- Some calls create temporary files and/or directories and register -- corresponding cleanup functions. Calling this function will run -- these function, erasing temporaries. -- Functions are executed in the inverse order they were scheduled. function util.run_scheduled_functions() local fs = require("luarocks.fs") fs.change_dir_to_root() for i = #scheduled_functions, 1, -1 do local item = scheduled_functions[i] item.fn(unpack(item.args)) end end --- Produce a Lua pattern that matches precisely the given string -- (this is suitable to be concatenating to other patterns, -- so it does not include beginning- and end-of-string markers (^$) -- @param s string: The input string -- @return string: The equivalent pattern function util.matchquote(s) return (s:gsub("[?%-+*%[%].%%()$^]","%%%1")) end --- Extract flags from an arguments list. -- Given string arguments, extract flag arguments into a flags set. -- For example, given "foo", "--tux=beep", "--bla", "bar", "--baz", -- it would return the following: -- {["bla"] = true, ["tux"] = "beep", ["baz"] = true}, "foo", "bar". function util.parse_flags(...) local args = {...} local flags = {} for i = #args, 1, -1 do local flag = args[i]:match("^%-%-(.*)") if flag then local var,val = flag:match("([a-z_%-]*)=(.*)") if val then flags[var] = val else flags[flag] = true end table.remove(args, i) end end return flags, unpack(args) end --- Build a sequence of flags for forwarding from one command to -- another (for example, from "install" to "build"). -- @param flags table: A table of parsed flags -- @param ... string...: A variable number of flags to be checked -- in the flags table. If no flags are passed as varargs, the -- entire flags table is forwarded. -- @return string... A variable number of strings function util.forward_flags(flags, ...) assert(type(flags) == "table") local out = {} local filter = select('#', ...) local function add_flag(flagname) if flags[flagname] then if flags[flagname] == true then table.insert(out, "--"..flagname) else table.insert(out, "--"..flagname.."="..flags[flagname]) end end end if filter > 0 then for i = 1, filter do add_flag(select(i, ...)) end else for flagname, _ in pairs(flags) do add_flag(flagname) end end return unpack(out) end --- Merges contents of src on top of dst's contents. -- @param dst Destination table, which will receive src's contents. -- @param src Table which provides new contents to dst. -- @see platform_overrides function util.deep_merge(dst, src) for k, v in pairs(src) do if type(v) == "table" then if not dst[k] then dst[k] = {} end if type(dst[k]) == "table" then util.deep_merge(dst[k], v) else dst[k] = v end else dst[k] = v end end end --- Perform platform-specific overrides on a table. -- Overrides values of table with the contents of the appropriate -- subset of its "platforms" field. The "platforms" field should -- be a table containing subtables keyed with strings representing -- platform names. Names that match the contents of the global -- cfg.platforms setting are used. For example, if -- cfg.platforms= {"foo"}, then the fields of -- tbl.platforms.foo will overwrite those of tbl with the same -- names. For table values, the operation is performed recursively -- (tbl.platforms.foo.x.y.z overrides tbl.x.y.z; other contents of -- tbl.x are preserved). -- @param tbl table or nil: Table which may contain a "platforms" field; -- if it doesn't (or if nil is passed), this function does nothing. function util.platform_overrides(tbl) assert(type(tbl) == "table" or not tbl) local cfg = require("luarocks.cfg") if not tbl then return end if tbl.platforms then for _, platform in ipairs(cfg.platforms) do local platform_tbl = tbl.platforms[platform] if platform_tbl then util.deep_merge(tbl, platform_tbl) end end end tbl.platforms = nil end local var_format_pattern = "%$%((%a[%a%d_]+)%)" --- Create a new shallow copy of a table: a new table with -- the same keys and values. Keys point to the same objects as -- the original table (ie, does not copy recursively). -- @param tbl table: the input table -- @return table: a new table with the same contents. local function make_shallow_copy(tbl) local copy = {} for k,v in pairs(tbl) do copy[k] = v end return copy end -- Check if a set of needed variables are referenced -- somewhere in a list of definitions, warning the user -- about any unused ones. Each key in needed_set should -- appear as a $(XYZ) variable at least once as a -- substring of some value of var_defs. -- @param var_defs: a table with string keys and string -- values, containing variable definitions. -- @param needed_set: a set where keys are the names of -- needed variables. -- @param msg string: the warning message to display. function util.warn_if_not_used(var_defs, needed_set, msg) needed_set = make_shallow_copy(needed_set) for _, val in pairs(var_defs) do for used in val:gmatch(var_format_pattern) do needed_set[used] = nil end end for var, _ in pairs(needed_set) do util.warning(msg:format(var)) end end -- Output any entries that might remain in $(XYZ) format, -- warning the user that substitutions have failed. -- @param line string: the input string local function warn_failed_matches(line) local any_failed = false if line:match(var_format_pattern) then for unmatched in line:gmatch(var_format_pattern) do util.warning("unmatched variable " .. unmatched) any_failed = true end end return any_failed end --- Perform make-style variable substitutions on string values of a table. -- For every string value tbl.x which contains a substring of the format -- "$(XYZ)" will have this substring replaced by vars["XYZ"], if that field -- exists in vars. Only string values are processed; this function -- does not scan subtables recursively. -- @param tbl table: Table to have its string values modified. -- @param vars table: Table containing string-string key-value pairs -- representing variables to replace in the strings values of tbl. function util.variable_substitutions(tbl, vars) assert(type(tbl) == "table") assert(type(vars) == "table") local updated = {} for k, v in pairs(tbl) do if type(v) == "string" then updated[k] = v:gsub(var_format_pattern, vars) if warn_failed_matches(updated[k]) then updated[k] = updated[k]:gsub(var_format_pattern, "") end end end for k, v in pairs(updated) do tbl[k] = v end end --- Return an array of keys of a table. -- @param tbl table: The input table. -- @return table: The array of keys. function util.keys(tbl) local ks = {} for k,_ in pairs(tbl) do table.insert(ks, k) end return ks end local function default_sort(a, b) local ta = type(a) local tb = type(b) if ta == "number" and tb == "number" then return a < b elseif ta == "number" then return true elseif tb == "number" then return false else return tostring(a) < tostring(b) end end -- The iterator function used internally by util.sortedpairs. -- @param tbl table: The table to be iterated. -- @param sort_function function or nil: An optional comparison function -- to be used by table.sort when sorting keys. -- @see sortedpairs local function sortedpairs_iterator(tbl, sort_function) local ks = util.keys(tbl) if not sort_function or type(sort_function) == "function" then table.sort(ks, sort_function or default_sort) for _, k in ipairs(ks) do coroutine.yield(k, tbl[k]) end else local order = sort_function local done = {} for _, k in ipairs(order) do local sub_order if type(k) == "table" then sub_order = k[2] k = k[1] end if tbl[k] then done[k] = true coroutine.yield(k, tbl[k], sub_order) end end table.sort(ks, default_sort) for _, k in ipairs(ks) do if not done[k] then coroutine.yield(k, tbl[k]) end end end end --- A table iterator generator that returns elements sorted by key, -- to be used in "for" loops. -- @param tbl table: The table to be iterated. -- @param sort_function function or table or nil: An optional comparison function -- to be used by table.sort when sorting keys, or an array listing an explicit order -- for keys. If a value itself is an array, it is taken so that the first element -- is a string representing the field name, and the second element is a priority table -- for that key. -- @return function: the iterator function. function util.sortedpairs(tbl, sort_function) return coroutine.wrap(function() sortedpairs_iterator(tbl, sort_function) end) end function util.lua_versions() local versions = { "5.1", "5.2", "5.3" } local i = 0 return function() i = i + 1 return versions[i] end end function util.starts_with(s, prefix) return s:sub(1,#prefix) == prefix end --- Print a line to standard output function util.printout(...) io.stdout:write(table.concat({...},"\t")) io.stdout:write("\n") end --- Print a line to standard error function util.printerr(...) io.stderr:write(table.concat({...},"\t")) io.stderr:write("\n") end --- Display a warning message. -- @param msg string: the warning message function util.warning(msg) util.printerr("Warning: "..msg) end function util.title(msg, porcelain, underline) if porcelain then return end util.printout() util.printout(msg) util.printout((underline or "-"):rep(#msg)) util.printout() end function util.this_program(default) local i = 1 local last, cur = default, default while i do local dbg = debug.getinfo(i,"S") if not dbg then break end last = cur cur = dbg.source i=i+1 end return last:sub(2) end function util.deps_mode_help(program) local cfg = require("luarocks.cfg") return [[ --deps-mode= How to handle dependencies. Four modes are supported: * all - use all trees from the rocks_trees list for finding dependencies * one - use only the current tree (possibly set with --tree) * order - use trees based on order (use the current tree and all trees below it on the rocks_trees list) * none - ignore dependencies altogether. The default mode may be set with the deps_mode entry in the configuration file. The current default is "]]..cfg.deps_mode..[[". Type ']]..util.this_program(program or "luarocks")..[[' with no arguments to see your list of rocks trees. ]] end function util.see_help(command, program) return "See '"..util.this_program(program or "luarocks")..' help'..(command and " "..command or "").."'." end -- from http://lua-users.org/wiki/SplitJoin -- by PhilippeLhoste function util.split_string(str, delim, maxNb) -- Eliminate bad cases... if string.find(str, delim) == nil then return { str } end if maxNb == nil or maxNb < 1 then maxNb = 0 -- No limit end local result = {} local pat = "(.-)" .. delim .. "()" local nb = 0 local lastPos for part, pos in string.gmatch(str, pat) do nb = nb + 1 result[nb] = part lastPos = pos if nb == maxNb then break end end -- Handle the last field if nb ~= maxNb then result[nb + 1] = string.sub(str, lastPos) end return result end --- Remove repeated entries from a path-style string. -- Example: given ("a;b;c;a;b;d", ";"), returns "a;b;c;d". -- @param list string: A path string (from $PATH or package.path) -- @param sep string: The separator function util.remove_path_dupes(list, sep) assert(type(list) == "string") assert(type(sep) == "string") local parts = util.split_string(list, sep) local final, entries = {}, {} for _, part in ipairs(parts) do part = part:gsub("//", "/") if not entries[part] then table.insert(final, part) entries[part] = true end end return table.concat(final, sep) end --- -- Formats tables with cycles recursively to any depth. -- References to other tables are shown as values. -- Self references are indicated. -- The string returned is "Lua code", which can be procesed -- (in the case in which indent is composed by spaces or "--"). -- Userdata and function keys and values are shown as strings, -- which logically are exactly not equivalent to the original code. -- This routine can serve for pretty formating tables with -- proper indentations, apart from printing them: -- io.write(table.show(t, "t")) -- a typical use -- Written by Julio Manuel Fernandez-Diaz, -- Heavily based on "Saving tables with cycles", PIL2, p. 113. -- @param t table: is the table. -- @param name string: is the name of the table (optional) -- @param indent string: is a first indentation (optional). -- @return string: the pretty-printed table function util.show_table(t, name, indent) local cart -- a container local autoref -- for self references local function isemptytable(t) return next(t) == nil end local function basicSerialize (o) local so = tostring(o) if type(o) == "function" then local info = debug.getinfo(o, "S") -- info.name is nil because o is not a calling level if info.what == "C" then return ("%q"):format(so .. ", C function") else -- the information is defined through lines return ("%q"):format(so .. ", defined in (" .. info.linedefined .. "-" .. info.lastlinedefined .. ")" .. info.source) end elseif type(o) == "number" then return so else return ("%q"):format(so) end end local function addtocart (value, name, indent, saved, field) indent = indent or "" saved = saved or {} field = field or name cart = cart .. indent .. field if type(value) ~= "table" then cart = cart .. " = " .. basicSerialize(value) .. ";\n" else if saved[value] then cart = cart .. " = {}; -- " .. saved[value] .. " (self reference)\n" autoref = autoref .. name .. " = " .. saved[value] .. ";\n" else saved[value] = name --if tablecount(value) == 0 then if isemptytable(value) then cart = cart .. " = {};\n" else cart = cart .. " = {\n" for k, v in pairs(value) do k = basicSerialize(k) local fname = ("%s[%s]"):format(name, k) field = ("[%s]"):format(k) -- three spaces between levels addtocart(v, fname, indent .. " ", saved, field) end cart = cart .. indent .. "};\n" end end end end name = name or "__unnamed__" if type(t) ~= "table" then return name .. " = " .. basicSerialize(t) end cart, autoref = "", "" addtocart(t, name, indent) return cart .. autoref end function util.array_contains(tbl, value) for _, v in ipairs(tbl) do if v == value then return true end end return false end -- Quote Lua string, analogous to fs.Q. -- @param s A string, such as "hello" -- @return string: A quoted string, such as '"hello"' function util.LQ(s) return ("%q"):format(s) end return util luarocks-2.2.0+dfsg/src/luarocks/validate.lua000066400000000000000000000110751241625207600211740ustar00rootroot00000000000000 --- Sandboxed test of build/install of all packages in a repository (unfinished and disabled). --module("luarocks.validate", package.seeall) local validate = {} package.loaded["luarocks.validate"] = validate local fs = require("luarocks.fs") local dir = require("luarocks.dir") local path = require("luarocks.path") local cfg = require("luarocks.cfg") local build = require("luarocks.build") local install = require("luarocks.install") local util = require("luarocks.util") validate.help_summary = "Sandboxed test of build/install of all packages in a repository." validate.help = [[ , if given, is a local repository pathname. ]] local function save_settings(repo) local protocol, path = dir.split_url(repo) table.insert(cfg.rocks_servers, 1, protocol.."://"..path) return { root_dir = cfg.root_dir, rocks_dir = cfg.rocks_dir, deploy_bin_dir = cfg.deploy_bin_dir, deploy_lua_dir = cfg.deploy_lua_dir, deploy_lib_dir = cfg.deploy_lib_dir, } end local function restore_settings(settings) cfg.root_dir = settings.root_dir cfg.rocks_dir = settings.rocks_dir cfg.deploy_bin_dir = settings.deploy_bin_dir cfg.deploy_lua_dir = settings.deploy_lua_dir cfg.deploy_lib_dir = settings.deploy_lib_dir cfg.variables.ROCKS_TREE = settings.rocks_dir cfg.variables.SCRIPTS_DIR = settings.deploy_bin_dir table.remove(cfg.rocks_servers, 1) end local function prepare_sandbox(file) local root_dir = fs.make_temp_dir(file):gsub("/+$", "") cfg.root_dir = root_dir cfg.rocks_dir = path.rocks_dir(root_dir) cfg.deploy_bin_dir = path.deploy_bin_dir(root_dir) cfg.variables.ROCKS_TREE = cfg.rocks_dir cfg.variables.SCRIPTS_DIR = cfg.deploy_bin_dir return root_dir end local function validate_rockspec(file) local ok, err, errcode = build.build_rockspec(file, true, "one") if not ok then util.printerr(err) end return ok, err, errcode end local function validate_src_rock(file) local ok, err, errcode = build.build_rock(file, false, "one") if not ok then util.printerr(err) end return ok, err, errcode end local function validate_rock(file) local ok, err, errcode = install.install_binary_rock(file, "one") if not ok then util.printerr(err) end return ok, err, errcode end function validate.run(...) local flags, repo = util.parse_flags(...) repo = repo or cfg.rocks_dir util.printout("Verifying contents of "..repo) local results = { ok = {} } local settings = save_settings(repo) local sandbox if flags["quick"] then sandbox = prepare_sandbox("luarocks_validate") end if not fs.exists(repo) then return nil, repo.." is not a local repository." end for file in fs.dir(repo) do for _=1,1 do if file == "manifest" or file == "index.html" then break -- continue for end local pathname = fs.absolute_name(dir.path(repo, file)) if not flags["quick"] then sandbox = prepare_sandbox(file) end local ok, err, errcode util.printout() util.printout("Verifying "..pathname) if file:match("%.rockspec$") then ok, err, errcode = validate_rockspec(pathname, "one") elseif file:match("%.src%.rock$") then ok, err, errcode = validate_src_rock(pathname) elseif file:match("%.rock$") then ok, err, errcode = validate_rock(pathname) end if ok then table.insert(results.ok, {file=file} ) else if not errcode then errcode = "misc" end if not results[errcode] then results[errcode] = {} end table.insert(results[errcode], {file=file, err=err} ) end util.run_scheduled_functions() if not flags["quick"] then fs.delete(sandbox) end repeat until not fs.pop_dir() end end if flags["quick"] then fs.delete(sandbox) end restore_settings(settings) util.title("Results:") util.printout("OK: "..tostring(#results.ok)) for _, entry in ipairs(results.ok) do util.printout(entry.file) end for errcode, errors in pairs(results) do if errcode ~= "ok" then util.printout() util.printout(errcode.." errors: "..tostring(#errors)) for _, entry in ipairs(errors) do util.printout(entry.file, entry.err) end end end util.title("Summary:") local total = 0 for errcode, errors in pairs(results) do util.printout(errcode..": "..tostring(#errors)) total = total + #errors end util.printout("Total: "..total) return true end return validate luarocks-2.2.0+dfsg/src/luarocks/write_rockspec.lua000066400000000000000000000255011241625207600224250ustar00rootroot00000000000000 --module("luarocks.write_rockspec", package.seeall) local write_rockspec = {} package.loaded["luarocks.write_rockspec"] = write_rockspec local dir = require("luarocks.dir") local fetch = require("luarocks.fetch") local fs = require("luarocks.fs") local path = require("luarocks.path") local persist = require("luarocks.persist") local type_check = require("luarocks.type_check") local util = require("luarocks.util") write_rockspec.help_summary = "Write a template for a rockspec file." write_rockspec.help_arguments = "[--output= ...] [] [] {|}" write_rockspec.help = [[ This command writes an initial version of a rockspec file, based on an URL or a local path. You may use a relative path such as '.'. If a local path is given, name and version arguments are mandatory. For URLs, LuaRocks will attempt to infer name and version if not given. If a repository URL is given with no version, it creates an 'scm' rock. Note that the generated file is a _starting point_ for writing a rockspec, and is not guaranteed to be complete or correct. --output= Write the rockspec with the given filename. If not given, a file is written in the current directory with a filename based on given name and version. --license="" A license string, such as "MIT/X11" or "GNU GPL v3". --summary="" A short one-line description summary. --detailed="" A longer description string. --homepage= Project homepage. --lua-version= Supported Lua versions. Accepted values are "5.1", "5.2", "5.3", "5.1,5.2", "5.2,5.3", or "5.1,5.2,5.3". --tag= Tag to use. Will attempt to extract version number from it. --lib=[,] A comma-separated list of libraries that C files need to link to. ]] local function open_file(name) return io.open(dir.path(fs.current_dir(), name), "r") end local function get_url(rockspec) local file, temp_dir, err_code, err_file, err_temp_dir = fetch.fetch_sources(rockspec, false) if err_code == "source.dir" then file, temp_dir = err_file, err_temp_dir elseif not file then util.warning("Could not fetch sources - "..temp_dir) return false end util.printout("File successfully downloaded. Making checksum and checking base dir...") if fetch.is_basic_protocol(rockspec.source.protocol) then rockspec.source.md5 = fs.get_md5(file) end local inferred_dir, found_dir = fetch.find_base_dir(file, temp_dir, rockspec.source.url) return true, found_dir or inferred_dir, temp_dir end local function configure_lua_version(rockspec, luaver) if luaver == "5.1" then table.insert(rockspec.dependencies, "lua ~> 5.1") elseif luaver == "5.2" then table.insert(rockspec.dependencies, "lua ~> 5.2") elseif luaver == "5.3" then table.insert(rockspec.dependencies, "lua ~> 5.3") elseif luaver == "5.1,5.2" then table.insert(rockspec.dependencies, "lua >= 5.1, < 5.3") elseif luaver == "5.2,5.3" then table.insert(rockspec.dependencies, "lua >= 5.2, < 5.4") elseif luaver == "5.1,5.2,5.3" then table.insert(rockspec.dependencies, "lua >= 5.1, < 5.4") else util.warning("Please specify supported Lua version with --lua-version=. "..util.see_help("write_rockspec")) end end local function detect_description(rockspec) local fd = open_file("README.md") or open_file("README") if not fd then return end local data = fd:read("*a") fd:close() local paragraph = data:match("\n\n([^%[].-)\n\n") if not paragraph then paragraph = data:match("\n\n(.*)") end if paragraph then if #paragraph < 80 then rockspec.description.summary = paragraph:gsub("\n", "") rockspec.description.detailed = paragraph else local summary = paragraph:gsub("\n", " "):match("([^.]*%.) ") if summary then rockspec.description.summary = summary:gsub("\n", "") end rockspec.description.detailed = paragraph end end end local function detect_mit_license(data) local strip_copyright = (data:gsub("Copyright [^\n]*\n", "")) local sum = 0 for i = 1, #strip_copyright do local num = string.byte(strip_copyright:sub(i,i)) if num > 32 and num <= 128 then sum = sum + num end end return sum == 78656 end local function show_license(rockspec) local fd = open_file("COPYING") or open_file("LICENSE") or open_file("MIT-LICENSE.txt") if not fd then return nil end local data = fd:read("*a") fd:close() local is_mit = detect_mit_license(data) util.title("License for "..rockspec.package..":") util.printout(data) util.printout() return is_mit end local function get_cmod_name(file) local fd = open_file(file) if not fd then return nil end local data = fd:read("*a") fd:close() return (data:match("int%s+luaopen_([a-zA-Z0-9_]+)")) end local luamod_blacklist = { test = true, tests = true, } local function fill_as_builtin(rockspec, libs) rockspec.build.type = "builtin" rockspec.build.modules = {} local prefix = "" for _, parent in ipairs({"src", "lua"}) do if fs.is_dir(parent) then fs.change_dir(parent) prefix = parent.."/" break end end local incdirs, libdirs if libs then incdirs, libdirs = {}, {} for _, lib in ipairs(libs) do local upper = lib:upper() incdirs[#incdirs+1] = "$("..upper.."_INCDIR)" libdirs[#libdirs+1] = "$("..upper.."_LIBDIR)" end end for _, file in ipairs(fs.find()) do local luamod = file:match("(.*)%.lua$") if luamod and not luamod_blacklist[luamod] then rockspec.build.modules[path.path_to_module(file)] = prefix..file else local cmod = file:match("(.*)%.c$") if cmod then local modname = get_cmod_name(file) or path.path_to_module(file:gsub("%.c$", ".lua")) rockspec.build.modules[modname] = { sources = prefix..file, libraries = libs, incdirs = incdirs, libdirs = libdirs, } end end end for _, directory in ipairs({ "doc", "docs", "samples", "tests" }) do if fs.is_dir(directory) then if not rockspec.build.copy_directories then rockspec.build.copy_directories = {} end table.insert(rockspec.build.copy_directories, directory) end end if prefix ~= "" then fs.pop_dir() end end local function rockspec_cleanup(rockspec) rockspec.source.file = nil rockspec.source.protocol = nil rockspec.variables = nil rockspec.name = nil end function write_rockspec.run(...) local flags, name, version, url_or_dir = util.parse_flags(...) if not name then return nil, "Missing arguments. "..util.see_help("write_rockspec") end if name and not version then url_or_dir = name name = nil elseif not url_or_dir then url_or_dir = version end if flags["tag"] == true then return nil, "Incorrect usage: --tag requires an argument. "..util.see_help("write_rockspec") end if flags["tag"] then if not version then version = flags["tag"]:gsub("^v", "") end end local protocol, pathname = dir.split_url(url_or_dir) if not fetch.is_basic_protocol(protocol) then if not name then name = dir.base_name(url_or_dir):gsub("%.[^.]+$", "") end if not version then version = "scm" end elseif protocol ~= "file" then local filename = dir.base_name(url_or_dir) local newname, newversion = filename:match("(.*)-([^-]+)") if (not name) and newname then name = newname end if (not version) and newversion then version = newversion:gsub(".[a-z]+$", ""):gsub(".tar$", "") end if not (name and version) then return nil, "Missing name and version arguments. "..util.see_help("write_rockspec") end elseif not version then return nil, "Missing name and version arguments. "..util.see_help("write_rockspec") end local filename = flags["output"] or dir.path(fs.current_dir(), name:lower().."-"..version.."-1.rockspec") if not flags["homepage"] and url_or_dir:match("^git://github.com") then flags["homepage"] = "http://"..url_or_dir:match("^[^:]+://(.*)") end local rockspec = { package = name, name = name:lower(), version = version.."-1", source = { url = "*** please add URL for source tarball, zip or repository here ***", tag = flags["tag"], }, description = { summary = flags["summary"] or "*** please specify description summary ***", detailed = flags["detailed"] or "*** please enter a detailed description ***", homepage = flags["homepage"] or "*** please enter a project homepage ***", license = flags["license"] or "*** please specify a license ***", }, dependencies = {}, build = {}, } path.configure_paths(rockspec) rockspec.source.protocol = protocol configure_lua_version(rockspec, flags["lua-version"]) local local_dir = url_or_dir if url_or_dir:match("://") then rockspec.source.url = url_or_dir rockspec.source.file = dir.base_name(url_or_dir) rockspec.source.dir = "dummy" if not fetch.is_basic_protocol(rockspec.source.protocol) then if version ~= "scm" then rockspec.source.tag = flags["tag"] or "v" .. version end end rockspec.source.dir = nil local ok, base_dir, temp_dir = get_url(rockspec) if ok then if base_dir ~= dir.base_name(url_or_dir) then rockspec.source.dir = base_dir end end if base_dir then local_dir = dir.path(temp_dir, base_dir) else local_dir = nil end end if not local_dir then local_dir = "." end local libs = nil if flags["lib"] then libs = {} rockspec.external_dependencies = {} for lib in flags["lib"]:gmatch("([^,]+)") do table.insert(libs, lib) rockspec.external_dependencies[lib:upper()] = { library = lib } end end local ok, err = fs.change_dir(local_dir) if not ok then return nil, "Failed reaching files from project - error entering directory "..local_dir end detect_description(rockspec) local is_mit = show_license(rockspec) if is_mit and not flags["license"] then rockspec.description.license = "MIT" end fill_as_builtin(rockspec, libs) rockspec_cleanup(rockspec) persist.save_from_table(filename, rockspec, type_check.rockspec_order) util.printout() util.printout("Wrote template at "..filename.." -- you should now edit and finish it.") util.printout() return true end return write_rockspec luarocks-2.2.0+dfsg/test/000077500000000000000000000000001241625207600152415ustar00rootroot00000000000000luarocks-2.2.0+dfsg/test/testfiles/000077500000000000000000000000001241625207600172435ustar00rootroot00000000000000luarocks-2.2.0+dfsg/test/testfiles/missing_external-0.1-1.rockspec000066400000000000000000000007221241625207600250040ustar00rootroot00000000000000package = "missing_external" version = "0.1-1" source = { -- any valid URL url = "https://raw.github.com/keplerproject/luarocks/master/src/luarocks/build.lua" } description = { summary = "Missing external dependency", } external_dependencies = { INEXISTENT = { library = "inexistentlib*", header = "inexistentheader*.h", } } dependencies = { "lua >= 5.1" } build = { type = "builtin", modules = { build = "build.lua" } } luarocks-2.2.0+dfsg/test/testing.sh000077500000000000000000000521771241625207600172710ustar00rootroot00000000000000#!/bin/bash -e # Setup ######################################### [ -e ../configure ] || { echo "Please run this from the test/ directory." exit 1 } if [ -z "$*" ] then ps aux | grep -q '[s]shd' || { echo "Run sudo /bin/sshd in order to perform all tests." exit 1 } fi if [ "$1" == "--travis" ] then travis=true shift fi luaversion=5.1.5 if [ "$1" == "--lua" ] then shift luaversion=$1 shift fi testing_dir="$PWD" testing_tree="$testing_dir/testing-$luaversion" testing_sys_tree="$testing_dir/testing_sys-$luaversion" testing_tree_copy="$testing_dir/testing_copy-$luaversion" testing_sys_tree_copy="$testing_dir/testing_sys_copy-$luaversion" testing_cache="$testing_dir/testing_cache-$luaversion" testing_server="$testing_dir/testing_server-$luaversion" if [ "$1" == "--clean" ] then shift rm -rf "$testing_cache" rm -rf "$testing_server" fi [ "$1" ] || rm -f luacov.stats.out rm -f luacov.report.out rm -rf /tmp/luarocks_testing mkdir /tmp/luarocks_testing rm -rf "$testing_tree" rm -rf "$testing_sys_tree" rm -rf "$testing_tree_copy" rm -rf "$testing_sys_tree_copy" rm -rf "$testing_dir/testing_config.lua" rm -rf "$testing_dir/testing_config_show_downloads.lua" rm -rf "$testing_dir/testing_config_sftp.lua" rm -rf "$testing_dir/luacov.config" mkdir -p "$testing_cache" [ "$1" = "clean" ] && { rm -f luacov.stats.out exit 0 } cat < $testing_dir/testing_config.lua rocks_trees = { "$testing_tree", { name = "system", root = "$testing_sys_tree" }, } rocks_servers = { "$testing_server" } local_cache = "$testing_cache" upload_server = "testing" upload_user = "hisham" upload_servers = { testing = { rsync = "localhost/tmp/luarocks_testing", }, } external_deps_dirs = { "/usr/local", "/usr", -- These are used for a test that fails, so it -- can point to invalid paths: { prefix = "/opt", bin = "bin", include = "include", lib = { "lib", "lib64" }, } } EOF ( cat $testing_dir/testing_config.lua echo "show_downloads = true" ) > $testing_dir/testing_config_show_downloads.lua cat < $testing_dir/testing_config_sftp.lua rocks_trees = { "$testing_tree", "$testing_sys_tree", } local_cache = "$testing_cache" upload_server = "testing" upload_user = "hisham" upload_servers = { testing = { sftp = "localhost/tmp/luarocks_testing", }, } EOF cat < $testing_dir/luacov.config return { ["configfile"] = ".luacov", ["statsfile"] = "$testing_dir/luacov.stats.out", ["reportfile"] = "$testing_dir/luacov.report.out", runreport = false, deletestats = false, ["include"] = {}, ["exclude"] = { "luacov$", "luacov%.reporter$", "luacov%.defaults$", "luacov%.runner$", "luacov%.stats$", "luacov%.tick$", }, } EOF export LUAROCKS_CONFIG="$testing_dir/testing_config.lua" export LUA_PATH= export LUA_CPATH= if [ "$travis" ] then luadir=/tmp/lua-$luaversion pushd /tmp if [ ! -e "$luadir/bin/lua" ] then mkdir -p lua echo "Downloading lua $luaversion..." wget "http://www.lua.org/ftp/lua-$luaversion.tar.gz" &> /dev/null tar zxpf "lua-$luaversion.tar.gz" cd "lua-$luaversion" echo "Building lua $luaversion..." make linux INSTALL_TOP="$luadir" &> /dev/null make install INSTALL_TOP="$luadir" &> /dev/null fi popd else luadir="/Programs/Lua/Current" fi if [ `uname -m` = i686 ] then platform="linux-x86" else platform="linux-x86_64" fi lua="$luadir/bin/lua" version_luasocket=3.0rc1 verrev_luasocket=${version_luasocket}-1 srcdir_luasocket=luasocket-3.0-rc1 version_cprint=0.1 verrev_cprint=0.1-1 version_luacov=0.5 verrev_luacov=0.5-1 version_lxsh=0.8.6 version_validate_args=1.5.4 verrev_validate_args=1.5.4-1 verrev_lxsh=${version_lxsh}-2 luasec=luasec cd .. ./configure --with-lua="$luadir" make clean make src/luarocks/site_config.lua make dev cd src basedir=$PWD run_lua() { if [ "$1" = "--noecho" ]; then shift; noecho=1; else noecho=0; fi if [ "$1" = "--nocov" ]; then shift; nocov=1; else nocov=0; fi if [ "$noecho" = 0 ] then echo $* fi cmd=$1 shift if [ "$nocov" = 0 ] then "$lua" -e"require('luacov.runner')('$testing_dir/luacov.config')" "$basedir/bin/$cmd" "$@" else "$lua" "$basedir/bin/$cmd" "$@" fi } luarocks="run_lua luarocks" luarocks_nocov="run_lua --nocov luarocks" luarocks_noecho="run_lua --noecho luarocks" luarocks_noecho_nocov="run_lua --noecho --nocov luarocks" luarocks_admin="run_lua luarocks-admin" luarocks_admin_nocov="run_lua --nocov luarocks-admin" ################################################### mkdir -p "$testing_server" ( cd "$testing_server" luarocks_repo="http://luarocks.org/repositories/rocks" luarocks_scm_repo="http://luarocks.org/repositories/rocks-scm" get() { [ -e `basename "$1"` ] || wget -c "$1"; } get "$luarocks_repo/luacov-${verrev_luacov}.src.rock" get "$luarocks_repo/luacov-${verrev_luacov}.rockspec" get "$luarocks_repo/luadoc-3.0.1-1.src.rock" get "$luarocks_repo/lualogging-1.3.0-1.src.rock" get "$luarocks_repo/luasocket-${verrev_luasocket}.src.rock" get "$luarocks_repo/luasocket-${verrev_luasocket}.rockspec" get "$luarocks_repo/luafilesystem-1.6.2-1.src.rock" get "$luarocks_repo/stdlib-35-1.src.rock" get "$luarocks_repo/luarepl-0.4-1.src.rock" get "$luarocks_repo/validate-args-1.5.4-1.rockspec" get "$luarocks_scm_repo/luasec-scm-1.rockspec" get "$luarocks_repo/luabitop-1.0.2-1.rockspec" get "$luarocks_repo/lpty-1.0.1-1.src.rock" get "$luarocks_repo/cprint-${verrev_cprint}.src.rock" get "$luarocks_repo/cprint-${verrev_cprint}.rockspec" get "$luarocks_repo/wsapi-1.6-1.src.rock" get "$luarocks_repo/lxsh-${verrev_lxsh}.src.rock" get "$luarocks_repo/abelhas-1.0-1.rockspec" get "$luarocks_repo/lzlib-0.4.work3-1.src.rock" get "$luarocks_repo/lpeg-0.12-1.src.rock" get "$luarocks_repo/luaposix-31-1.src.rock" get "$luarocks_repo/md5-1.2-1.src.rock" get "$luarocks_repo/lrandom-20120430.51-1.src.rock" get "$luarocks_repo/lrandom-20120430.52-1.src.rock" get "$luarocks_repo/lrandom-20120430.51-1.rockspec" get "$luarocks_repo/lrandom-20120430.52-1.rockspec" ) $luarocks_admin_nocov make_manifest "$testing_server" ################################################### checksum_path() { ( cd "$1"; find . -printf "%s %p\n" | md5sum ) } build_environment() { rm -rf "$testing_tree" rm -rf "$testing_sys_tree" rm -rf "$testing_tree_copy" rm -rf "$testing_sys_tree_copy" mkdir -p "$testing_tree" mkdir -p "$testing_sys_tree" $luarocks_admin_nocov make_manifest "$testing_cache" for package in "$@" do $luarocks_nocov install --only-server="$testing_cache" --tree="$testing_sys_tree" $package || { $luarocks_nocov build --tree="$testing_sys_tree" $package $luarocks_nocov pack --tree="$testing_sys_tree" $package; mv $package-*.rock "$testing_cache" } done eval `$luarocks_noecho_nocov path --bin` cp -a "$testing_tree" "$testing_tree_copy" cp -a "$testing_sys_tree" "$testing_sys_tree_copy" testing_tree_copy_md5=`checksum_path "$testing_tree_copy"` testing_sys_tree_copy_md5=`checksum_path "$testing_sys_tree_copy"` } reset_environment() { testing_tree_md5=`checksum_path "$testing_tree"` testing_sys_tree_md5=`checksum_path "$testing_sys_tree"` if [ "$testing_tree_md5" != "$testing_tree_copy_md5" ] then rm -rf "$testing_tree" cp -a "$testing_tree_copy" "$testing_tree" fi if [ "$testing_sys_tree_md5" != "$testing_sys_tree_copy_md5" ] then rm -rf "$testing_sys_tree" cp -a "$testing_sys_tree_copy" "$testing_sys_tree" fi } need() { echo "Obtaining $1 $2..." if $luarocks show $1 &> /dev/null then echo "Already available" return fi platrock="$1-$2.$platform.rock" if [ ! -e "$testing_cache/$platrock" ] then echo "Building $1 $2..." $luarocks_nocov build --pack-binary-rock $1 $2 mv "$platrock" "$testing_cache" fi echo "Installing $1 $2..." $luarocks_nocov install "$testing_cache/$platrock" return } need_luasocket() { need luasocket $verrev_luasocket; } # Tests ######################################### test_version() { $luarocks --version; } fail_arg_server() { $luarocks --server; } fail_arg_only_server() { $luarocks --only-server; } fail_unknown_command() { $luarocks unknown_command; } test_empty_list() { $luarocks list; } fail_build_noarg() { $luarocks build; } fail_download_noarg() { $luarocks download; } fail_install_noarg() { $luarocks install; } fail_lint_noarg() { $luarocks lint; } fail_search_noarg() { $luarocks search; } fail_show_noarg() { $luarocks show; } fail_unpack_noarg() { $luarocks unpack; } fail_remove_noarg() { $luarocks remove; } fail_doc_noarg() { $luarocks doc; } fail_new_version_noarg() { $luarocks new_version; } fail_write_rockspec_noarg() { $luarocks write_rockspec; } fail_build_invalid() { $luarocks build invalid; } fail_download_invalid() { $luarocks download invalid; } fail_install_invalid() { $luarocks install invalid; } fail_lint_invalid() { $luarocks lint invalid; } fail_show_invalid() { $luarocks show invalid; } fail_new_version_invalid() { $luarocks new_version invalid; } fail_make_norockspec() { $luarocks make; } fail_build_blank_arg() { $luarocks build --tree="" lpeg; } test_build_withpatch() { need_luasocket; $luarocks build luadoc; } test_build_diffversion() { $luarocks build luacov ${version_luacov}; } test_build_command() { $luarocks build stdlib; } test_build_install_bin() { $luarocks build luarepl; } test_build_nohttps() { need_luasocket; $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks build ./validate-args-${version_validate_args}-1.rockspec && rm ./validate-args-${version_validate_args}-1.rockspec; } test_build_https() { need_luasocket; $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks install $luasec && $luarocks build ./validate-args-${verrev_validate_args}.rockspec && rm ./validate-args-${verrev_validate_args}.rockspec; } test_build_supported_platforms() { $luarocks build lpty; } fail_build_missing_external() { $luarocks build "$testing_dir/testfiles/missing_external-0.1-1.rockspec" INEXISTENT_INCDIR="/invalid/dir"; } test_build_deps_partial_match() { $luarocks build lrandom; } test_build_show_downloads() { export LUAROCKS_CONFIG="$testing_dir/testing_config_show_downloads.lua" && $luarocks build alien; export LUAROCKS_CONFIG="$testing_dir/testing_config.lua"; } test_download_all() { $luarocks download --all validate-args && rm validate-args-*; } test_download_rockspecversion() { $luarocks download --rockspec validate-args ${verrev_validate_args} && rm validate-args-*; } test_help() { $luarocks help; } test_install_binaryrock() { $luarocks build --pack-binary-rock cprint && $luarocks install ./cprint-${verrev_cprint}.${platform}.rock && rm ./cprint-${verrev_cprint}.${platform}.rock; } test_install_with_bin() { $luarocks install wsapi; } fail_install_notazipfile() { $luarocks install "$testing_dir/testfiles/not_a_zipfile-1.0-1.src.rock"; } test_lint_ok() { $luarocks download --rockspec validate-args ${verrev_validate_args} && $luarocks lint ./validate-args-${verrev_validate_args}.rockspec && rm ./validate-args-${verrev_validate_args}.rockspec; } fail_lint_type_mismatch_string() { $luarocks lint "$testing_dir/testfiles/type_mismatch_string-1.0-1.rockspec"; } fail_lint_type_mismatch_version() { $luarocks lint "$testing_dir/testfiles/type_mismatch_version-1.0-1.rockspec"; } fail_lint_type_mismatch_table() { $luarocks lint "$testing_dir/testfiles/type_mismatch_table-1.0-1.rockspec"; } test_list() { $luarocks list; } test_list_porcelain() { $luarocks list --porcelain; } test_make_with_rockspec() { rm -rf ./luasocket-${verrev_luasocket} && $luarocks download --src luasocket && $luarocks unpack ./luasocket-${verrev_luasocket}.src.rock && cd luasocket-${verrev_luasocket}/${srcdir_luasocket} && $luarocks make luasocket-${verrev_luasocket}.rockspec && cd ../.. && rm -rf ./luasocket-${verrev_luasocket}; } test_make_default_rockspec() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --src lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } test_make_pack_binary_rock() { rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --src lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make --deps-mode=none --pack-binary-rock && [ -e ./lxsh-${verrev_lxsh}.all.rock ] && cd ../.. && rm -rf ./lxsh-${verrev_lxsh}; } fail_make_which_rockspec() { rm -rf ./luasocket-${verrev_luasocket} && $luarocks download --src luasocket && $luarocks unpack ./luasocket-${verrev_luasocket}.src.rock && cd luasocket-${verrev_luasocket}/${srcdir_luasocket} && $luarocks make && cd ../.. && rm -rf ./luasocket-${verrev_luasocket}; } test_new_version() { $luarocks download --rockspec luacov ${version_luacov} && $luarocks new_version ./luacov-${version_luacov}-1.rockspec 0.2 && rm ./luacov-0.*; } test_new_version_url() { $luarocks download --rockspec abelhas 1.0 && $luarocks new_version ./abelhas-1.0-1.rockspec 1.1 https://github.com/downloads/ittner/abelhas/abelhas-1.1.tar.gz && rm ./abelhas-*; } test_pack() { $luarocks list && $luarocks pack luacov && rm ./luacov-*.rock; } test_pack_src() { $luarocks install $luasec && $luarocks download --rockspec luasocket && $luarocks pack ./luasocket-${verrev_luasocket}.rockspec && rm ./luasocket-${version_luasocket}-*.rock; } test_path() { $luarocks path --bin; } test_path_lr_path() { $luarocks path --lr-path; } test_path_lr_cpath() { $luarocks path --lr-cpath; } test_path_lr_bin() { $luarocks path --lr-bin; } fail_purge_missing_tree() { $luarocks purge --tree="$testing_tree"; } test_purge() { $luarocks purge --tree="$testing_sys_tree"; } test_remove() { $luarocks build luacov ${version_luacov} && $luarocks remove luacov ${version_luacov}; } test_remove_force() { need_luasocket; $luarocks build lualogging && $luarocks remove --force luasocket; } fail_remove_deps() { need_luasocket; $luarocks build lualogging && $luarocks remove luasocket; } fail_remove_invalid_name() { $luarocks remove invalid.rock; } test_search_found() { $luarocks search zlib; } test_search_missing() { $luarocks search missing_rock; } test_show() { $luarocks show luacov; } test_show_modules() { $luarocks show --modules luacov; } test_show_depends() { need_luasocket; $luarocks install $luasec && $luarocks show luasec; } test_show_oldversion() { $luarocks install luacov ${version_luacov} && $luarocks show luacov ${version_luacov}; } test_unpack_download() { rm -rf ./cprint-${verrev_cprint} && $luarocks unpack cprint && rm -rf ./cprint-${verrev_cprint}; } test_unpack_src() { rm -rf ./cprint-${verrev_cprint} && $luarocks download --src cprint && $luarocks unpack ./cprint-${verrev_cprint}.src.rock && rm -rf ./cprint-${verrev_cprint}; } test_unpack_rockspec() { rm -rf ./cprint-${verrev_cprint} && $luarocks download --rockspec cprint && $luarocks unpack ./cprint-${verrev_cprint}.rockspec && rm -rf ./cprint-${verrev_cprint}; } test_unpack_binary() { rm -rf ./cprint-${verrev_cprint} && $luarocks build cprint && $luarocks pack cprint && $luarocks unpack ./cprint-${verrev_cprint}.${platform}.rock && rm -rf ./cprint-${verrev_cprint}; } test_admin_help() { $luarocks_admin help; } test_admin_make_manifest() { $luarocks_admin make_manifest; } test_admin_add_rsync() { if [ "$travis" ]; then return; fi; $luarocks_admin --server=testing add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; } test_admin_add_sftp() { if [ "$travis" ]; then return; fi; export LUAROCKS_CONFIG="$testing_dir/testing_config_sftp.lua" && $luarocks_admin --server=testing add ./luasocket-${verrev_luasocket}.src.rock; export LUAROCKS_CONFIG="$testing_dir/testing_config.lua"; } fail_admin_add_missing() { $luarocks_admin --server=testing add; } fail_admin_invalidserver() { $luarocks_admin --server=invalid add "$testing_server/luasocket-${verrev_luasocket}.src.rock"; } fail_admin_invalidrock() { if [ "$travis" ]; then return 1; fi; $luarocks_admin --server=testing add invalid; } test_admin_refresh_cache() { if [ "$travis" ]; then return; fi; $luarocks_admin --server=testing refresh_cache; } test_admin_remove() { if [ "$travis" ]; then return; fi; $luarocks_admin --server=testing remove luasocket-${verrev_luasocket}.src.rock; } fail_admin_remove_missing() { $luarocks_admin --server=testing remove; } fail_deps_mode_invalid_arg() { $luarocks remove luacov --deps-mode; } test_deps_mode_one() { $luarocks build --tree="system" lpeg && $luarocks list && $luarocks build --deps-mode=one --tree="$testing_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 1 ]; } test_deps_mode_order() { $luarocks build --tree="system" lpeg && $luarocks build --deps-mode=order --tree="$testing_tree" lxsh && $luarocks_noecho list --tree="$testing_tree" --porcelain lpeg && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; } test_deps_mode_order_sys() { $luarocks build --tree="$testing_tree" lpeg && $luarocks build --deps-mode=order --tree="$testing_sys_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg | wc -l` = 1 ]; } test_deps_mode_all_sys() { $luarocks build --tree="$testing_tree" lpeg && $luarocks build --deps-mode=all --tree="$testing_sys_tree" lxsh && [ `$luarocks_noecho list --tree="$testing_sys_tree" --porcelain lpeg | wc -l` = 0 ]; } test_deps_mode_none() { $luarocks build --tree="$testing_tree" --deps-mode=none lxsh; [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; } test_deps_mode_nodeps_alias() { $luarocks build --tree="$testing_tree" --nodeps lxsh; [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ]; } test_deps_mode_make_order() { $luarocks build --tree="$testing_sys_tree" lpeg && rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --src lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make --tree="$testing_tree" --deps-mode=order && cd ../.. && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 0 ] && rm -rf ./lxsh-${verrev_lxsh}; } test_deps_mode_make_order_sys() { $luarocks build --tree="$testing_tree" lpeg && rm -rf ./lxsh-${verrev_lxsh} && $luarocks download --src lxsh ${verrev_lxsh} && $luarocks unpack ./lxsh-${verrev_lxsh}.src.rock && cd lxsh-${verrev_lxsh}/lxsh-${version_lxsh}-1 && $luarocks make --tree="$testing_sys_tree" --deps-mode=order && cd ../.. && [ `$luarocks_noecho list --tree="$testing_tree" --porcelain lpeg | wc -l` = 1 ] && rm -rf ./lxsh-${verrev_lxsh}; } test_write_rockspec() { $luarocks write_rockspec git://github.com/keplerproject/luarocks; } test_write_rockspec_lib() { $luarocks write_rockspec git://github.com/mbalmer/luafcgi --lib=fcgi --license="3-clause BSD" --lua-version=5.1,5.2; } test_write_rockspec_fullargs() { $luarocks write_rockspec git://github.com/keplerproject/luarocks --lua-version=5.1,5.2 --license="MIT/X11" --homepage="http://www.luarocks.org" --summary="A package manager for Lua modules"; } fail_write_rockspec_args() { $luarocks write_rockspec invalid; } fail_write_rockspec_args_url() { $luarocks write_rockspec http://example.com/invalid.zip; } test_write_rockspec_http() { $luarocks write_rockspec http://luarocks.org/releases/luarocks-2.1.0.tar.gz --lua-version=5.1; } test_write_rockspec_basedir() { $luarocks write_rockspec https://github.com/downloads/Olivine-Labs/luassert/luassert-1.2.tar.gz --lua-version=5.1; } test_doc() { $luarocks install luarepl; $luarocks doc luarepl; } # Driver ######################################### run_tests() { grep "^test_$1.*(" < $testing_dir/testing.sh | cut -d'(' -f1 | while read test do echo "-------------------------------------------" echo "$test" echo "-------------------------------------------" reset_environment if $test then echo "OK: Expected success." else echo "FAIL: Unexpected failure."; exit 1 fi done grep "^fail_$1.*(" < $testing_dir/testing.sh | cut -d'(' -f1 | while read test do echo "-------------------------------------------" echo "$test" echo "-------------------------------------------" reset_environment if $test then echo "FAIL: Unexpected success."; exit 1 else echo "OK: Expected failure." fi done } run_with_minimal_environment() { echo "===========================================" echo "Running with minimal environment" echo "===========================================" build_environment luacov run_tests $1 } run_with_full_environment() { echo "===========================================" echo "Running with full environment" echo "===========================================" build_environment luacov luafilesystem luasocket luabitop luaposix md5 lzlib run_tests $1 } run_all_tests() { run_with_minimal_environment $1 run_with_full_environment $1 } run_all_tests $1 #run_with_minimal_environment $1 $testing_sys_tree/bin/luacov -c $testing_dir/luacov.config src/luarocks src/bin if [ "$travis" ] then grep "Summary" -B1 -A1000 $testing_dir/luacov.report.out else cat "$testing_dir/luacov.report.out" fi