This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns afile.core | |
(:refer-clojure :exclude [deref]) | |
(:require | |
[clojure.edn :as edn] | |
[clojure.pprint :refer [pprint]] | |
[clojure.test :refer [deftest is run-tests]])) | |
(defn- load-file! | |
[fname init-value] | |
(let [f (java.io.File. fname)] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns afile.gambit-1 | |
(:refer-clojure :exclude [deref]) | |
(:require | |
[clojure.edn :as edn] | |
[clojure.pprint :refer [pprint]] | |
[clojure.test :refer [deftest is run-tests]])) | |
(defn- load-file! | |
[file init-value] | |
(if (.exists file) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns afile.gambit-3 | |
(:refer-clojure :exclude [deref]) | |
(:require | |
[clojure.edn :as edn] | |
[clojure.pprint :refer [pprint]] | |
[clojure.core.async :refer [go <! put! chan]] | |
[clojure.test :refer [deftest is run-tests]])) | |
(defn- load-file! | |
[file init-value] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Compiling ClojureScript... | |
Exception in thread "main" java.lang.VerifyError: (class: cljs/util$last_modified, method: invokeStatic signature: (Ljava/lang/Object;)Ljava/lang/Object;) Can only throw Throwable objects, compiling:(util.cljc:142:1) | |
at clojure.lang.Compiler$DefExpr.eval(Compiler.java:468) | |
at clojure.lang.Compiler.eval(Compiler.java:6948) | |
at clojure.lang.Compiler.load(Compiler.java:7390) | |
at clojure.lang.RT.loadResourceScript(RT.java:372) | |
at clojure.lang.RT.loadResourceScript(RT.java:363) | |
at clojure.lang.RT.load(RT.java:453) | |
at clojure.lang.RT.load(RT.java:419) | |
at clojure.core$load$fn__5436.invoke(core.clj:5869) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package com.zentrope { | |
import scala.actors.Actor | |
import scala.actors.TIMEOUT | |
import scala.concurrent.Lock | |
import scala.concurrent.ops.spawn | |
import scala.util.Random | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
base_dir = Dir.pwd | |
build_dir = "#{base_dir}/build" | |
src_dir = "#{base_dir}/src" | |
lib_dir = "#{base_dir}/lib" | |
def classpath(location) | |
places = File.join(location, "*.jar") | |
return Dir.glob(places).join(":") | |
end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env python | |
from BaseHTTPServer import BaseHTTPRequestHandler, HTTPServer | |
import urllib2 | |
import base64 | |
import cgi | |
from xml.etree.ElementTree import XML | |
class Cws: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env python | |
from google.appengine.ext import webapp | |
from google.appengine.ext.webapp import util | |
from google.appengine.ext.webapp import template | |
from google.appengine.ext.webapp import WSGIApplication | |
from google.appengine.api import memcache | |
from google.appengine.ext import db |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-module(par). | |
-compile(export_all). | |
%% Just some experiments in parallel processing. | |
test_job() -> | |
Parent = self(), | |
spawn(fun() -> | |
do_job(Parent, {job, make_ref()}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package zentrope.hornet { | |
// This is a small app to see what it's like to work with | |
// HornetQ messaging in a Scala context. The main things I'm | |
// interested in are making working with HornetQ itself as a | |
// resource easier, and making confience methods, classes, data | |
// structures easier for anyone using this code. | |
import scala.actors._ | |
import scala.concurrent.ops.spawn | |