Repository navigation
Expand file tree
/
Copy pathBoolean.lua
More file actions
118 lines (107 loc) · 2.87 KB
/
Copy pathBoolean.lua
File metadata and controls
118 lines (107 loc) · 2.87 KB
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
--[[
Copyright 2017 YANG Huan (sy.yanghuan@gmail.com).
Licensed 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.
--]]
local System = System
local throw = System.throw
local debugsetmetatable = System.debugsetmetatable
local ArgumentException = System.ArgumentException
local ArgumentNullException = System.ArgumentNullException
local FormatException = System.FormatException
local type = type
local setmetatable = setmetatable
local function compareTo(this, v)
if this == v then
return 0
elseif this == false then
return -1
end
return 1
end
local falseString = "False"
local trueString = "True"
local function parse(s)
if s == nil then
return nil, 1
end
local i, j, value = s:find("^[%s%c%z]*(%a+)[%s%c%z]*$")
if value then
s = value:lower()
if s == "true" then
return true
elseif s == "false" then
return false
end
end
return nil, 2
end
local function toString(this)
return this and trueString or falseString
end
local Boolean = System.defStc("System.Boolean", {
default = System.falseFn,
Equals = System.equals,
CompareTo = compareTo,
ToString = toString,
FalseString = falseString,
TrueString = trueString,
GetHashCode = function (this)
return this and 1 or 0
end,
CompareToObj = function (this, v)
if v == nil then return 1 end
if type(v) ~= "boolean" then
throw(ArgumentException("Arg_MustBeBoolean"))
end
return compareTo(this, v)
end,
EqualsObj = function (this, v)
if type(v) ~= "boolean" then
return false
end
return this == v
end,
__concat = function (a, b)
if type(a) == "boolean" then
return toString(a) .. b
else
return a .. toString(b)
end
end,
__tostring = toString,
Parse = function (s)
local v, err = parse(s)
if v == nil then
if err == 1 then
throw(ArgumentNullException())
else
throw(FormatException())
end
end
return v
end,
TryParse = function (s)
local v = parse(s)
if v ~= nil then
return true, v
end
return false, false
end,
base = function (_, T)
return { System.IComparable, System.IConvertible, System.IComparable_1(T), System.IEquatable_1(T) }
end
})
if debugsetmetatable then
debugsetmetatable(false, Boolean)
end
local ValueType = System.ValueType
local boolMetaTable = setmetatable({ __index = ValueType, __call = Boolean.default }, ValueType)
setmetatable(Boolean, boolMetaTable)