rodnaph

Including algo.monads-0.1.0.jar
Including classpath-1.3.0-alpha3.jar
Including clojure-1.3.0.jar
Including colorize-0.1.1.jar
Including core.unify-0.5.1.jar
Including find-namespaces-1.3.0-alpha3.jar
Including jar-1.3.0-alpha3.jar
Including joda-time-2.0.jar
Including lazytest-1.2.3.jar
Including math.combinatorics-0.0.1.jar

rodnaph

/* BAD */

function foo() {
  stuff( 123, function() {
     // unpossible to test really
  });
}

/* better */

rodnaph

#!/bin/sh

TOGGLE="deactivate"

if [ "`php -i | grep xdebug`" = "" ]; then
    TOGGLE="activate"
fi

sudo port $TOGGLE php5-xdebug
sudo apachectl stop

rodnaph

PortSystem          1.0

name                Thieriot
version             0.0.5

categories          devel shells
platforms           darwin
maintainers         rodnaph
description         Shell tool for managing a projects Jenkins builds

rodnaph

;; src/myapp/core.clj

(ns myapp.core
  (:use lamina.core
        aleph.http))

(def ws-channel (channel))

(defn app [ch _]

rodnaph

diff -u app/config/parameters.yml app/config/parameters.yml.dist | patch -p0 app/config/parameters.yml

rodnaph

; This only support one level...

(defne flatteno
  "A relation which matches ys as a flattening of xs, only supports one level"
  [xs ys]
  ([() _] (== ys ()))
  ([[a . b] _]
    (fresh [c]
      (flatteno b c)

rodnaph

(defn flatteno [xs ys]
  (let [zs (flatten ys)]
    (permuteo xs zs)))

rodnaph

(defn nullo
  [x]
  (== '() x))

(defn pairo
  [x]
  (fresh [a b]
    (conso a b x)))

(defn flatteno

rodnaph

// oh boy...

String [] tranTypes = new String[1];
String tranType = "_salesOrder";
tranTypes[0] = tranType;
semsfTranType.searchValue = tranTypes;

// ==