1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
--!A cross-platform build utility based on Lua
--
-- Licensed to the Apache Software Foundation (ASF) under one
-- or more contributor license agreements. See the NOTICE file
-- distributed with this work for additional information
-- regarding copyright ownership. The ASF licenses this file
-- to you under the Apache License, Version 2.0 (the
-- "License"); you may not use this file except in compliance
-- with the License. You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
--
-- Copyright (C) 2015 - 2018, TBOOX Open Source Group.
--
-- @author ruki
-- @file path.lua
--
-- define module: path
local path = path or {}
-- load modules
local utils = require("base/utils")
local string = require("base/string")
-- get the directory of the path
function path.directory(p)
local i = p:find_last("[/\\]")
if i then
if i > 1 then i = i - 1 end
return p:sub(1, i)
else
return "."
end
end
-- get the filename of the path
function path.filename(p)
local i = p:find_last("[/\\]")
if i then
return p:sub(i + 1)
else
return p
end
end
-- get the basename of the path
function path.basename(p)
local name = path.filename(p)
local i = name:find_last(".", true)
if i then
return name:sub(1, i - 1)
else
return name
end
end
-- get the file extension of the path: .xxx
function path.extension(p)
-- check
assert(p)
-- get extension
local i = p:find_last(".", true)
if i then
return p:sub(i)
else
return ""
end
end
-- join path
function path.join(p, ...)
-- check
assert(p)
-- join them
for _, name in ipairs({...}) do
p = p .. "/" .. name
end
-- translate path
return path.translate(p)
end
-- split path by the separator
function path.split(p)
return p:split("/\\")
end
-- get the path seperator
function path.seperator()
return xmake._HOST == "windows" and '\\' or '/'
end
-- the last character is the path seperator?
function path.islastsep(p)
local sep = p:sub(#p, #p)
return xmake._HOST == "windows" and (sep == '\\' or sep == '/') or (sep == '/')
end
-- convert path pattern to a lua pattern
function path.pattern(pattern)
-- translate wildcards, .e.g *, **
pattern = pattern:gsub("([%+%.%-%^%$%(%)%%])", "%%%1")
pattern = pattern:gsub("%*%*", "\001")
pattern = pattern:gsub("%*", "\002")
pattern = pattern:gsub("\001", ".*")
pattern = pattern:gsub("\002", "[^/]*")
-- case-insensitive filesystem?
if not os.fscase() then
pattern = string.ipattern(pattern, true)
end
return pattern
end
-- return module: path
return path
|
