/
predicate.clj
147 lines (123 loc) · 2.25 KB
/
predicate.clj
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
(ns clojang.types.predicate
(:import [com.ericsson.otp.erlang
OtpErlangAtom
OtpErlangBoolean
OtpErlangBinary
OtpErlangBitstr
OtpErlangByte
OtpErlangChar
OtpErlangDouble
OtpErlangFloat
OtpErlangFun
OtpErlangInt
OtpErlangList
OtpErlangList$SubList
OtpErlangLong
OtpErlangMap
OtpErlangObject
OtpErlangPid
OtpErlangPort
OtpErlangRef
OtpErlangShort
OtpErlangString
OtpErlangTuple
OtpErlangUInt
OtpErlangUShort])
(:refer-clojure :exclude [boolean? char? double? float? int? list? map? string?]))
(defn atom?
""
[arg]
(instance? OtpErlangAtom arg))
(defn boolean?
""
[arg]
(instance? OtpErlangBoolean arg))
(defn binary?
""
[arg]
(instance? OtpErlangBinary arg))
(defn bitstr?
""
[arg]
(instance? OtpErlangBitstr arg))
(defn byte?
""
[arg]
(instance? OtpErlangByte arg))
(defn char?
""
[arg]
(instance? OtpErlangChar arg))
(defn double?
""
[arg]
(instance? OtpErlangDouble arg))
(defn float?
""
[arg]
(instance? OtpErlangFloat arg))
(defn fun?
""
[arg]
(instance? OtpErlangFun arg))
(defn int?
""
[arg]
(instance? OtpErlangInt arg))
(defn list?
""
[arg]
(instance? OtpErlangList arg))
(defn long?
""
[arg]
(instance? OtpErlangLong arg))
(defn map?
""
[arg]
(instance? OtpErlangMap arg))
(defn object?
""
[arg]
(instance? OtpErlangObject arg))
(defn pid?
""
[arg]
(instance? OtpErlangPid arg))
(defn port?
""
[arg]
(instance? OtpErlangPort arg))
(defn ref?
""
[arg]
(instance? OtpErlangRef arg))
(defn short?
""
[arg]
(instance? OtpErlangShort arg))
(defn string?
""
[arg]
(instance? OtpErlangString arg))
(defn sublist?
""
[arg]
(instance? OtpErlangList$SubList arg))
(defn tuple?
""
[arg]
(instance? OtpErlangTuple arg))
; (defn undefined?
; ""
; [arg]
; (and (instance? OtpErlangAtom arg)
; (= (types/erl->clj arg) nil)))
(defn uint?
""
[arg]
(instance? OtpErlangUInt arg))
(defn ushort?
""
[arg]
(instance? OtpErlangUShort arg))