alexy’s gists

alexy / autoincrementmap.clj

Created March 28, 2010 03:07 — forked from ato/autoincrementmap.clj

	(defn assoc-autoinc [m k]
	(if (get m k)
	m
	(let [v (inc (:last-value (meta m) -1))]
	(with-meta
	(assoc m k v)
	(assoc (meta m) :last-value v)))))

	(defn get-or-autoinc! [m k]
	(if-let [v (get @m k)]

alexy / gist:351243

Created April 1, 2010 02:24 — forked from arohner/gist:351238

	(defn map-same
	"like map, but returns a collection of the same type as the first input collection"
	[f & colls]
	(let [first-coll (first colls)]
	(if (list? first-coll)
	(list* (apply map f colls))
	(into (empty first-coll) (apply map f colls)))))

alexy / audit-ns.clj

Created April 29, 2010 16:25 — forked from cgrand/audit-ns.clj

	user=> (defn audit-ns [ns]
	(let [publics (ns-publics ns)]
	(map key (remove #(let [m (-> % val meta)] (or (:doc m) (:added m))) publics))))
	#'user/audit-ns
	user=> (audit-ns (find-ns 'clojure.core))
	(chunked-seq? find-protocol-impl chunk-buffer find-protocol-method EMPTY-NODE await1 -reset-methods allow-unresolved-vars proxy-call-with-super
	munge print-doc math-context with-loading-context unquote-splicing chunk-cons chunk-append destructure -cache-protocol-fn print-dup
	use-context-classloader proxy-name print-ctor chunk-rest method-sig print-method hash-combine chunk definterface unquote primitives-classnames
	rational? chunk-first source-path assert print-special-doc chunk-next print-simple)

alexy / gist:389878

Created May 4, 2010 19:45 — forked from arohner/gist:389842

	;; routes.clj

	(ns winston.ui.routes
	(:use [clojure.contrib.except :only (throwf)])
	(:require [clojure.contrib.string :as str])))

	(defn path-for* [routefn route-args]
	{:pre [routefn]}
	(let [path (-> routefn meta ::http-path)]
	(when (not path)

alexy / TokyoCabinetJson2.hs

Created May 30, 2010 00:52

	import System (getArgs)
	import Data.Map hiding (map)
	import Database.TokyoCabinet
	import qualified Data.ByteString.Char8 as B
	import Text.JSONb

	fetch :: String -> Maybe Int -> TCM [(String,B.ByteString)]
	fetch fileName maxElems = do
	tc <- new :: TCM HDB -- alternatively you can use BDB or FDB
	open tc fileName [OREADER]

alexy / foo.clj

Created July 27, 2010 18:07 — forked from hiredman/foo.clj


	(defn sig [x]
	(:sig (meta (resolve x))))

	(defmulti type-of (comp type first list))

	(defmethod type-of :function [thing & _] (sig thing))

	(defmethod type-of java.util.List [expr & a]
	(conj (map #(type-of % (first a)) (rest expr))

alexy / tokyo-read-reps.clj

Created October 6, 2010 17:20

	(defn tokyo-read-reps [db-pathname & [proto str-load?]]
	(let [
	proto (or proto Repliers)
	init-params (let [par {:path db-pathname :read-only true}]
	(if str-load? par
	(merge par {:dump protobuf-dump :load (partial protobuf-load proto)})))
	db (tc/db-init init-params)
	_ (tc/db-open db)
	tc (:db db)
	r (when (.iterinit tc)

alexy / cake's not bakin'

Created December 8, 2010 19:12

cake 0.6.0 wants bake.jar which it cannot have, never!

config: {"project.library.path"=>"/opt/local/lib"}

vars: {:script "bin/cake" :opts {:default ["deps"] :d [""]} :pwd "/s/w/clojure/cake" :args ["default" "-d" "deps"] :env {"MANPATH" "/s/src/srilm/current/bin:/s/src/srilm/current/bin/macosx/man:/opt/local/share/man:" "OLDPWD" "/Users/alexyk" "Apple_PubSub_Socket_Render" "/tmp/launch-QWcUGb/Render" "USER" "alexyk" "TMPDIR" "/var/folders/mw/mwJSf7ErEa4w8nWyKyyqD++++TY/-Tmp-/" "LC_CTYPE" "en_US.UTF-8" "TERM" "xterm-color" "DARCS_EMAIL" "[email protected] (Alexy Khrabrov)" "SSH_AGENT_PID" "474" "MAGICK_HOME" "/usr/local/ImageMagick" "GEM_HOME" "/Users/alexyk/.jgem" "PROMPT" "%~ " "SHLVL" "1" "__CF_USER_TEXT_ENCODING" "0x1F9:0:0" "LC_ALL" "en_US.UTF-8" "COMMAND_MODE" "legacy" "SHELL" "/bin/zsh" "DISPLAY" "/tmp/launch-VNuY4O/org.x:0" "LOGNAME" "alexyk" "LANG" "en_US.UTF-8" "DYLD_LIBRARY_PATH" "/usr/local/ImageMagick/lib" "PWD" "/s/w/clojure/cake" "PATH" "/opt/ocaml/bin:/opt/ocaml/sbin:/Users/alexyk/.cabal/bin:/opt/brew/bin:/Users/alexyk/bin:/opt/sbin:/opt/bin:

alexy / polyDefPar.ml

Created February 3, 2011 01:51

	let printShowTable: tex -> ?verbose:bool ->
	('a BatInnerIO.output -> 'b -> unit) ->
	'c list list -> string -> unit =
	fun tex ?(verbose=false) printOne table tableName ->
	let oc = open_out tableName in
	printTable oc tex printOne table tableName;
	close_out oc;
	if verbose then
	printTable stdout tex printOne table tableName
	else ()

alexy / read_lines.ml

Created March 22, 2011 20:30

return a list of lines in a file, with an optional skip number and max on actually returned ones

	let read_lines ?skip ?maxn filename =
	let ic = open_in filename in
	let step,ctr = make_step_counter 0 in
	E.from_while begin fun () ->
	try
	match skip,maxn with
	\| (Some s, _) when ctr () < s ->
	ignore (input_line ic); step (); Some None
	\| (skip, Some n) when n > 0 && ctr () - (Option.default 0 skip) = n ->
	close_in ic; None

Alexy Khrabrov alexy