Packages

lmug

0.2.8
0.2.8 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.2 0.1.1 0.1.0 0.0.902 0.0.901 0.0.900

LFE HTTP Server Abstraction and Web Application Middleware Infrastructure

Current section

Files

Jump to
Readme
15 Versions
3 Dependencies
Dependants
Files
Activity
lmug src lmug-util.lfe
Raw

src/lmug-util.lfe 

(defmodule lmug-util

  (doc "lmug utility functions.")

  (export all))



(include-lib "inets/include/httpd.hrl")



(defun normalize-method

  ((method) (when (is_list method))

   (list_to_atom (string:to_lower method)))

  ((method)

   method))



(defun bin->str (bin)

  (bin->str-with-default bin ""))



(defun bin->str-with-default

  ((bin def) (when (is_binary bin))

   (bin->str-with-default (binary_to_list bin) def))

  ((bin def) (when (is_binary def))

   (bin->str-with-default bin (binary_to_list def)))

  (("" def)

   def)

  ((str _)

   str))