meissa/activity-pub-poc
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Check if the input is String before regex match

Browse source
This commit is contained in:
bom 2023-07-06 14:09:22 +02:00
parent 01d4799fb2
commit 61d10bcbc6
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/main/clj/org/domaindrivenarchitecture/activity_pub_poc/core.clj
View file

@ -27,13 +27,16 @@
(def parsed-rdf-syntax (parse (slurp cm/activitystreams-ttl)))
(defn type-string? [input]
(re-matches #"[A-Z]" (str (first input))))
(and (string? input)
(re-matches #"[A-Z]" (str (first input)))))
(defn url-string? [input]
(re-matches #"https?:\/\/(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,4}\b([-a-zA-Z0-9@:%_\+.~#?&//=]*)" input))
(and (string? input)
(re-matches #"https?:\/\/(www\.)?[-a-zA-Z0-9@:%._\+~#=]{2,256}\.[a-z]{2,4}\b([-a-zA-Z0-9@:%_\+.~#?&//=]*)" input)))
(defn uri-string? [input]
(re-matches #"\w+:(\/?\/?)[^\s]+" input))
(and (string? input)
(re-matches #"\w+:(\/?\/?)[^\s]+" input)))
(defn uri-vector? [input]
(and (every? #(uri-string? %) input)