wisp hello world

circle.wisp

(ns tt.circle)


(def PI (.-PI Math))
(defn area [r] (* PI r r))

helloimport.wisp

(ns tt.nodeimport
  (:require [tt.circle :as circle]))


(def http (require "http"))
(def url (require "url"))
 
(def server 
  (.createServer http 
                 (fn [request response]
                   (.writeHead response 200 {"Content-Type" "text/plain"})
                   (def url_parts
                     (.parse url
                       (.-url request) 
                       true))
                   (def query (.-query url_parts))
                   (.end response 
                     (+ "area is "
                        (.area circle
                          (.-r query)))))))
 
(.listen server 8000)
 
(.log console "Server running at http://127.0.0.1:8000/")

; wget http://127.0.0.1:8000/?r=5

hellonode.wisp

(def http (require "http"))

(def server 
  (.createServer http 
                 (fn [request response]
                   (.writeHead response {"Content-Type" "text/plain"})
                   (.end response "hello world\n"))))

(.listen server 8000)

(.log console "Server running at http://127.0.0.1:8000/")

importmodule.wisp

(ns tt.importmodule
  (:require [tt.circle :as circle]))

(.log console 
  (+ 
    "The area of a circle of radius 4 is "
    (.area circle 4)))
    
; wisp importmodule.wisp