scripts/scufl2-info/src/scufl2_info/util.clj

;   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.
;
(ns scufl2-info.util
  )


(defn ensure-uuid [uuid]
   (try 
      (java.util.UUID/fromString uuid)
    (catch Exception e
      (throw (ex-info (str "Invalid UUID: " uuid) {:status 400})))))

(defn ensure-int [number]
  (try
    (Integer/parseInt number)
  (catch NumberFormatException e
    (throw (ex-info (str "Invalid integer: " number) {:status 400})))))

(defn ensure-bool [bool-str]
  (Boolean/parseBoolean bool-str))

;; by g-faustus http://stackoverflow.com/a/3249777
(defn in? 
  "true if seq contains elm"
  [seq elm]  
  (some #(= elm %) seq))