mmcgrana

~/Desktop $ java -cp clojure-1.3.0-alpha2.jar:clj-stacktrace-0.2.0.jar clojure.main trace_test.clj
== java
java.lang.Exception: I regret to inform you that you are doing it wrong.
	at user$biz.invoke(trace_test.clj:8)
	at user$bat$f__104.invoke(trace_test.clj:12)
	at user$bat.invoke(trace_test.clj:13)
	at user$bar.invoke(trace_test.clj:17)
	at user$foo.invoke(trace_test.clj:22)
	at user$eval109.invoke(trace_test.clj:25)
	at clojure.lang.Compiler.eval(Compiler.java:6168)

mmcgrana

{:class java.lang.Exception,
 :message "I regret to inform you that you are doing it wrong.",
 :trace-elems
 ({:annon-fn false,
   :fn "biz",
   :ns "user",
   :clojure true,
   :file "trace_test.clj",
   :line 7}
  {:annon-fn true,

mmcgrana

Clojure 1.3.0-alpha2

user=> (try (throw (Throwable. "fail")) (catch Exception e (println "error:" e)))    
Throwable fail  user/eval1 (NO_SOURCE_FILE:1)

user=> (try (throw (Exception. "fail")) (catch Exception e (println "error:" e)))
error: #<Exception java.lang.Exception: fail>

mmcgrana

# in one terminal
$ lein deps
$ lein run -m server

# in another terminal
$ curl -i http://localhost:8080/sync
$ curl -i http://localhost:8080/poll
$ curl -i http://localhost:8080/stream
$ ./wsclient ws://localhost:8080/websocket?name=bob

=> hi

mmcgrana

log: node server.js

mmcgrana

var sys = require('sys'),
    fleetdb = require('./fleetdb');

var db = new fleetdb.Database();
db.open('http://127.0.0.1:3400');

done = 0;
for(var i=0; i<10000; i++) {
  db.query(['ping'], function(status, data) {
    done += 1;

mmcgrana

var sys = require('sys');
var fleetdb = require('./fleetdb');

var db = new fleetdb.Database();
db.open('http://127.0.0.1:3400');

var done = 0;

setInterval(function() {
  if (done == 100000) {

mmcgrana

#!/usr/bin/env bash

if [ "$1" == "repl" ]; then
  CLASSPATH=$(lein classpath)
  JAVA_OPTS="$JAVA_OPTS -Duser.home=$HOME"
  JLINE="jline.ConsoleRunner"
  exec java $JAVA_OPTS -cp $CLASSPATH $JLINE clojure.main --repl
else
  export LEIN_VERSION="1.4.2"
  LEIN_PLUGINS="$(ls -1 lib/dev/*jar 2> /dev/null | tr \\n \:)"

mmcgrana

(ns demo.handle
  (:import (sun.misc Signal SignalHandler)))

(defn trap-signal [sig f]
  (Signal/handle (Signal. sig)
    (proxy [SignalHandler] []
      (handle [_] (f)))))

(defn trap-shutdown [f]
  (let [rt (Runtime/getRuntime)]

mmcgrana

(ns http.server
  (:require [vertx.http :as http]))

(def server (http/server))

(defn vertx-start
  []
  (-> server
      (http/on-request
       (fn [req resp]