FilesExpand file tree

master

/

Enum.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

168 lines (158 loc) · 4.5 KB

master

/

Enum.lua

Copy path

Top

File metadata and controls

• Code
• Blame

168 lines (158 loc) · 4.5 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

--[[

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 Int = System.Int

local Number = System.Number

local band = System.band

local bor = System.bor

local ArgumentNullException = System.ArgumentNullException

local ArgumentException = System.ArgumentException

local assert = assert

local pairs = pairs

local tostring = tostring

local type = type

local function toString(this, cls)

if this == nil then return "" end

if cls then

for k, v in pairs(cls) do

if v == this then

return k

end

end

end

return tostring(this)

end

local function hasFlag(this, flag)

if this == flag then

return true

end

return band(this, flag) == flag

end

Number.EnumToString = toString

Number.HasFlag = hasFlag

System.EnumToString = toString

System.EnumHasFlag = hasFlag

local function tryParseEnum(enumType, value, ignoreCase)

if enumType == nil then throw(ArgumentNullException("enumType")) end

local cls = enumType[1] or enumType

if cls.class ~= "E" then throw(ArgumentException("Arg_MustBeEnum")) end

if value == nil then

return

end

if ignoreCase then

value = value:lower()

end

local i, j, s, r = 1

while true do

i, j, s = value:find("%s*(%a+)%s*", i)

if not i then

return

end

for k, v in pairs(cls) do

if ignoreCase then

k = k:lower()

end

if k == s then

if not r then

r = v

else

r = bor(r, v)

end

break

end

end

i = value:find(',', j + 1)

if not i then

break

end

i = i + 1

end

return r

end

System.define("System.Enum", {

CompareToObj = Int.CompareToObj,

EqualsObj = Int.EqualsObj,

default = Int.default,

ToString = toString,

HasFlag = hasFlag,

GetHashCode = Int.GetHashCode,

GetName = function (enumType, value)

if enumType == nil then throw(ArgumentNullException("enumType")) end

if value == nil then throw(ArgumentNullException("value")) end

if not enumType:getIsEnum() then throw(ArgumentException("Arg_MustBeEnum")) end

for k, v in pairs(enumType[1]) do

if v == value then

return k

end

end

end,

GetNames = function (enumType)

if enumType == nil then throw(ArgumentNullException("enumType")) end

if not enumType:getIsEnum() then throw(ArgumentException("Arg_MustBeEnum")) end

local t = {}

local count = 1

for k, v in pairs(enumType[1]) do

if type(v) == "number" then

t[count] = k

count = count + 1

end

end

return System.arrayFromTable(t, System.String)

end,

GetValues = function (enumType)

if enumType == nil then throw(ArgumentNullException("enumType")) end

if not enumType:getIsEnum() then throw(ArgumentException("Arg_MustBeEnum")) end

local t = {}

local count = 1

for _, v in pairs(enumType[1]) do

if type(v) == "number" then

t[count] = v

count = count + 1

end

end

return System.arrayFromTable(t, System.Int32)

end,

IsDefined = function (enumType, value)

if enumType == nil then throw(ArgumentNullException("enumType")) end

if value == nil then throw(ArgumentNullException("value")) end

if not enumType:getIsEnum() then throw(ArgumentException("Arg_MustBeEnum")) end

local cls = enumType[1]

local t = type(value)

if t == "string" then

return cls[value] ~= nil

elseif t == "number" then

for _, v in pairs(cls) do

if v == value then

return true

end

end

return false

end

throw(System.InvalidOperationException())

end,

Parse = function (enumType, value, ignoreCase)

local result = tryParseEnum(enumType, value, ignoreCase)

if result == nil then

throw(ArgumentException("Requested value '" .. value .. "' was not found."))

end

return result

end,

TryParse = function (type, value, ignoreCase)

local result = tryParseEnum(type, value, ignoreCase)

if result == nil then

return false, 0

end

return true, result

end

})