Packages

lutil

0.10.0-rc3
0.16.3 0.16.2 0.16.1 0.15.0 0.14.3 0.14.2 0.14.1 0.14.0 0.13.5 0.13.4 0.13.3 0.13.2 0.13.1 0.13.0 0.12.2 0.12.1 0.12.0 0.10.0-rc6 0.10.0-rc5 0.10.0-rc4 0.10.0-rc3 0.10.0-rc2 0.10.0-rc1

LFE Utility Functions and Macros

HexDocs

Current section

Files

Jump to
Readme
23 Versions
0 Dependencies
6 Dependants
Files
Activity
lutil src lutil.lfe
Raw

src/lutil.lfe 

;;;; misc utility functions

;;;;

(defmodule lutil

  (export all))



(defun uuid4 ()

  "Adapted from the implementation given here:

    https://github.com/afiskon/erlang-uuid-v4/blob/8c03a11524f6bccf984575877b533ef30a009175/src/uuid.erl

  "

  (let* (((binary

            (a (size 32))

            (b (size 16))

            (c (size 16))

            (d (size 16))

            (e (size 48))) (crypto:rand_bytes 16))

        (format-template '"~8.16.0b-~4.16.0b-4~3.16.0b-~4.16.0b-~12.16.0b")

        (uuid-data (list a b (band c #x0fff) (band d #x3fff) (bor #x8000 e)))

        (string (io_lib:format format-template uuid-data)))

    (list_to_binary string)))



(defun uuid4

  "A wrapper for uuid4/0."

  ;; Example usage:

  ;;

  ;;   > (lutil:uuid4 (tuple 'type 'binary))

  ;;   #B(50 101 51 53 49 99 48 97 45 50 100 100 52 45 52 54 56 55 45 50 ...)

  ;;

  ;;   > (lutil:uuid4 (tuple 'type 'list))

  ;;   "65c0aff3-421e-40bf-0f64-3ac0d1e0b72d"

  ;;

  ;;   > (lutil:uuid4 (tuple 'type 'atom))

  ;;  '

  (((tuple 'type 'binary))

    (uuid4))

  (((tuple 'type 'list))

    (binary_to_list (uuid4)))

  (((tuple 'type 'atom))

    (binary_to_atom (uuid4) 'latin1)))



(defun get-app-version (app-name)

  "DEPLRECATED.



  Provided for backwards compatibility."

  (lr3-ver-util:get-app-version app-name))



(defun get-version ()

  (lr3-ver-util:get-app-version 'lutil))



(defun get-versions ()

  (++ (lr3-ver-util:get-versions)

      `(#(kla ,(lr3-ver-util:get-app-version 'kla))

        #(clj ,(lr3-ver-util:get-app-version 'clj))

        #(lutil ,(get-version)))))



(defun check (x)

  (=/= x 'false))



(defun get-env-funcs (env)

  (lists:sort

    (lists:map

      (lambda (x)

        (element 1 x))

      (element 3 env))))



(defun warn (msg)

  (warn msg '()))



(defun warn (msg args)

  (lfe_io:format (++ msg "~n") args))



(defun deprecated ()

  (deprecated "This functionality has been deprecated."))



(defun deprecated (msg)

  (warn (++ "Deprecated: " msg)))