simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into develop

Browse source
This commit is contained in:
Simon Brooke 2018-07-20 14:16:54 +01:00
parent 03ce993e93 6921ca99e4
commit 36d4205ad1
3 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -1,4 +1,4 @@
(defproject adl-support "0.1.1-SNAPSHOT" (defproject adl-support "0.1.0"
:description "A small library of functions called by generated ADL code." :description "A small library of functions called by generated ADL code."
:url "http://example.com/FIXME" :url "http://example.com/FIXME"
:license {:name "MIT License" :license {:name "MIT License"

8
src/adl_support/core.clj
View file

@ -18,6 +18,14 @@
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(def ^:dynamic *warn*
"The idea here is to have a function with which to show warnings to the user,
which can be dynamically bound. Any binding should be a function of one
argument, which it should print, log, or otherwise display."
(fn [s] (println s)))
(defn query-string-to-map (defn query-string-to-map
"A `query-string` - the query-part of a URL - comprises generally "A `query-string` - the query-part of a URL - comprises generally
`<name>=<value>&<name>=<value>...`; reduce such a string to a map. `<name>=<value>&<name>=<value>...`; reduce such a string to a map.

4
src/adl_support/utils.clj
View file

@ -3,9 +3,7 @@
adl-support.utils adl-support.utils
(:require [clojure.math.numeric-tower :refer [expt]] (:require [clojure.math.numeric-tower :refer [expt]]
[clojure.pprint :as p] [clojure.pprint :as p]
[clojure.string :as s] [clojure.string :as s]))
[clojure.tools.logging :as log]
[clojure.xml :as x]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;