Members/nobuyasu/Lua: tools.lua annotate

author	Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date	Fri, 01 Feb 2013 03:07:15 +0900
parents
children

rev	line source
0 73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	1
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	2 --- fs operations implemented with third-party tools for Unix platform abstractions.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	3 module("luarocks.fs.unix.tools", package.seeall)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	4
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	5 local fs = require("luarocks.fs")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	6 local dir = require("luarocks.dir")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	7 local cfg = require("luarocks.cfg")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	8
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	9 local dir_stack = {}
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	10
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	11 local vars = cfg.variables
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	12
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	13 local function command_at(directory, cmd)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	14 return "cd " .. fs.Q(directory) .. " && " .. cmd
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	15 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	16
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	17 --- Obtain current directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	18 -- Uses the module's internal directory stack.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	19 -- @return string: the absolute pathname of the current directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	20 function current_dir()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	21 local pipe = io.popen(vars.PWD)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	22 local current = pipe:read("*l")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	23 pipe:close()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	24 for _, directory in ipairs(dir_stack) do
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	25 current = fs.absolute_name(directory, current)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	26 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	27 return current
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	28 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	29
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	30 --- Run the given command.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	31 -- The command is executed in the current directory in the directory stack.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	32 -- @param cmd string: No quoting/escaping is applied to the command.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	33 -- @return boolean: true if command succeeds (status code 0), false
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	34 -- otherwise.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	35 function execute_string(cmd)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	36 local code = os.execute(command_at(fs.current_dir(), cmd))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	37 if code == 0 or code == true then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	38 return true
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	39 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	40 return false
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	41 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	42 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	43
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	44 --- Change the current directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	45 -- Uses the module's internal directory stack. This does not have exact
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	46 -- semantics of chdir, as it does not handle errors the same way,
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	47 -- but works well for our purposes for now.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	48 -- @param directory string: The directory to switch to.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	49 function change_dir(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	50 assert(type(directory) == "string")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	51 table.insert(dir_stack, directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	52 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	53
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	54 --- Change directory to root.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	55 -- Allows leaving a directory (e.g. for deleting it) in
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	56 -- a crossplatform way.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	57 function change_dir_to_root()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	58 table.insert(dir_stack, "/")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	59 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	60
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	61 --- Change working directory to the previous in the directory stack.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	62 function pop_dir()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	63 local directory = table.remove(dir_stack)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	64 return directory ~= nil
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	65 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	66
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	67 --- Create a directory if it does not already exist.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	68 -- If any of the higher levels in the path name does not exist
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	69 -- too, they are created as well.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	70 -- @param directory string: pathname of directory to create.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	71 -- @return boolean: true on success, false on failure.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	72 function make_dir(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	73 assert(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	74 return fs.execute(vars.MKDIR.." -p", directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	75 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	76
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	77 --- Remove a directory if it is empty.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	78 -- Does not return errors (for example, if directory is not empty or
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	79 -- if already does not exist)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	80 -- @param directory string: pathname of directory to remove.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	81 function remove_dir_if_empty(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	82 assert(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	83 fs.execute_string(fs.quiet(vars.RMDIR.." "..fs.Q(directory)))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	84 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	85
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	86 --- Remove a directory if it is empty.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	87 -- Does not return errors (for example, if directory is not empty or
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	88 -- if already does not exist)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	89 -- @param directory string: pathname of directory to remove.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	90 function remove_dir_tree_if_empty(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	91 assert(directory)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	92 fs.execute_string(fs.quiet(vars.RMDIR.." -p "..fs.Q(directory)))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	93 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	94
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	95 --- Copy a file.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	96 -- @param src string: Pathname of source
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	97 -- @param dest string: Pathname of destination
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	98 -- @param perm string or nil: Permissions for destination file,
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	99 -- @return boolean or (boolean, string): true on success, false on failure,
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	100 -- plus an error message.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	101 function copy(src, dest, perm)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	102 assert(src and dest)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	103 if fs.execute(vars.CP, src, dest) then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	104 if perm then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	105 if fs.is_dir(dest) then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	106 dest = dir.path(dest, dir.base_name(src))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	107 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	108 if fs.chmod(dest, perm) then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	109 return true
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	110 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	111 return false, "Failed setting permissions of "..dest
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	112 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	113 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	114 return true
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	115 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	116 return false, "Failed copying "..src.." to "..dest
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	117 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	118 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	119
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	120 --- Recursively copy the contents of a directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	121 -- @param src string: Pathname of source
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	122 -- @param dest string: Pathname of destination
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	123 -- @return boolean or (boolean, string): true on success, false on failure,
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	124 -- plus an error message.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	125 function copy_contents(src, dest)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	126 assert(src and dest)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	127 if fs.execute_string(fs.quiet(vars.CP.." -pPR "..fs.Q(src).."/* "..fs.Q(dest))) then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	128 return true
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	129 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	130 return false, "Failed copying "..src.." to "..dest
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	131 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	132 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	133 --- Delete a file or a directory and all its contents.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	134 -- For safety, this only accepts absolute paths.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	135 -- @param arg string: Pathname of source
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	136 -- @return boolean: true on success, false on failure.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	137 function delete(arg)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	138 assert(arg)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	139 assert(arg:sub(1,1) == "/")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	140 return fs.execute_string(fs.quiet(vars.RM.." -rf " .. fs.Q(arg)))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	141 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	142
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	143 --- List the contents of a directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	144 -- @param at string or nil: directory to list (will be the current
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	145 -- directory if none is given).
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	146 -- @return table: an array of strings with the filenames representing
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	147 -- the contents of a directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	148 function list_dir(at)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	149 assert(type(at) == "string" or not at)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	150 if not at then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	151 at = fs.current_dir()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	152 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	153 if not fs.is_dir(at) then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	154 return {}
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	155 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	156 local result = {}
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	157 local pipe = io.popen(command_at(at, vars.LS))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	158 for file in pipe:lines() do
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	159 table.insert(result, file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	160 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	161 pipe:close()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	162 return result
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	163 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	164
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	165 --- Recursively scan the contents of a directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	166 -- @param at string or nil: directory to scan (will be the current
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	167 -- directory if none is given).
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	168 -- @return table: an array of strings with the filenames representing
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	169 -- the contents of a directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	170 function find(at)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	171 assert(type(at) == "string" or not at)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	172 if not at then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	173 at = fs.current_dir()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	174 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	175 if not fs.is_dir(at) then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	176 return {}
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	177 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	178 local result = {}
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	179 local pipe = io.popen(command_at(at, vars.FIND.." * 2>/dev/null"))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	180 for file in pipe:lines() do
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	181 table.insert(result, file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	182 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	183 pipe:close()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	184 return result
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	185 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	186
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	187 --- Compress files in a .zip archive.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	188 -- @param zipfile string: pathname of .zip archive to be created.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	189 -- @param ... Filenames to be stored in the archive are given as
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	190 -- additional arguments.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	191 -- @return boolean: true on success, false on failure.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	192 function zip(zipfile, ...)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	193 return fs.execute(vars.ZIP.." -r", zipfile, ...)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	194 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	195
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	196 --- Uncompress files from a .zip archive.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	197 -- @param zipfile string: pathname of .zip archive to be extracted.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	198 -- @return boolean: true on success, false on failure.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	199 function unzip(zipfile)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	200 assert(zipfile)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	201 return fs.execute(vars.UNZIP, zipfile)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	202 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	203
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	204 --- Test is file/directory exists
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	205 -- @param file string: filename to test
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	206 -- @return boolean: true if file exists, false otherwise.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	207 function exists(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	208 assert(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	209 return fs.execute(vars.TEST, "-e", file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	210 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	211
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	212 --- Test is pathname is a directory.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	213 -- @param file string: pathname to test
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	214 -- @return boolean: true if it is a directory, false otherwise.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	215 function is_dir(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	216 assert(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	217 return fs.execute(vars.TEST, "-d", file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	218 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	219
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	220 --- Test is pathname is a regular file.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	221 -- @param file string: pathname to test
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	222 -- @return boolean: true if it is a regular file, false otherwise.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	223 function is_file(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	224 assert(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	225 return fs.execute(vars.TEST, "-f", file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	226 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	227
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	228 --- Download a remote file.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	229 -- @param url string: URL to be fetched.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	230 -- @param filename string or nil: this function attempts to detect the
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	231 -- resulting local filename of the remote file as the basename of the URL;
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	232 -- if that is not correct (due to a redirection, for example), the local
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	233 -- filename can be given explicitly as this second argument.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	234 -- @return boolean: true on success, false on failure.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	235 function download(url, filename)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	236 assert(type(url) == "string")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	237 assert(type(filename) == "string" or not filename)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	238
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	239 if cfg.downloader == "wget" then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	240 local wget_cmd = vars.WGET.." --no-check-certificate --no-cache --user-agent='"..cfg.user_agent.." via wget' --quiet --continue "
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	241 if filename then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	242 return fs.execute(wget_cmd.." --output-document ", filename, url)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	243 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	244 return fs.execute(wget_cmd, url)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	245 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	246 elseif cfg.downloader == "curl" then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	247 filename = filename or dir.base_name(url)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	248 return fs.execute_string(vars.CURL.." -L --user-agent '"..cfg.user_agent.." via curl' "..fs.Q(url).." 2> /dev/null 1> "..fs.Q(filename))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	249 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	250 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	251
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	252 function chmod(pathname, mode)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	253 if mode then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	254 return fs.execute(vars.CHMOD, mode, pathname)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	255 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	256 return false
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	257 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	258 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	259
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	260 --- Apply a patch.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	261 -- @param patchname string: The filename of the patch.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	262 function apply_patch(patchname)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	263 return fs.execute(vars.PATCH.." -p1 -f -i ", patchname)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	264 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	265
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	266 --- Unpack an archive.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	267 -- Extract the contents of an archive, detecting its format by
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	268 -- filename extension.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	269 -- @param archive string: Filename of archive.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	270 -- @return boolean or (boolean, string): true on success, false and an error message on failure.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	271 function unpack_archive(archive)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	272 assert(type(archive) == "string")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	273
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	274 local ok
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	275 if archive:match("%.tar%.gz$") or archive:match("%.tgz$") then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	276 ok = fs.execute_string(vars.GUNZIP.." -c "..archive.."\|"..vars.TAR.." -xf -")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	277 elseif archive:match("%.tar%.bz2$") then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	278 ok = fs.execute_string(vars.BUNZIP2.." -c "..archive.."\|tar -xf -")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	279 elseif archive:match("%.zip$") then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	280 ok = fs.execute(vars.UNZIP, archive)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	281 elseif archive:match("%.lua$") or archive:match("%.c$") then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	282 -- Ignore .lua and .c files; they don't need to be extracted.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	283 return true
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	284 else
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	285 local ext = archive:match(".(%..)")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	286 return false, "Unrecognized filename extension "..(ext or "")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	287 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	288 if not ok then
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	289 return false, "Failed extracting "..archive
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	290 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	291 return true
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	292 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	293
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	294 local md5_cmd = {
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	295 md5sum = vars.MD5SUM,
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	296 openssl = vars.OPENSSL.." md5",
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	297 md5 = vars.MD5,
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	298 }
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	299
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	300 --- Get the MD5 checksum for a file.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	301 -- @param file string: The file to be computed.
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	302 -- @return string: The MD5 checksum
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	303 function get_md5(file)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	304 local cmd = md5_cmd[cfg.md5checker]
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	305 if not cmd then return nil end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	306 local pipe = io.popen(cmd.." "..fs.absolute_name(file))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	307 local computed = pipe:read("*a")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	308 pipe:close()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	309 if not computed then return nil end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	310 return computed:match("("..("%x"):rep(32)..")")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	311 end
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	312
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	313 function get_permissions(filename)
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	314 local pipe = io.popen(vars.STAT.." "..vars.STATFLAG.." "..fs.Q(filename))
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	315 local ret = pipe:read("*l")
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	316 pipe:close()
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	317 return ret
73146cb10aa5 add some files Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> parents: diff changeset	318 end

0

73146cb10aa5 add some files