mgodave

(ns netflow.packet
  (:import jpcap.JpcapCaptor)
  (:import jpcap.packet.Packet))

(def captor (JpcapCaptor/openFile "mytrace.pcap"))

(defn packet-seq [captor]
  (let [packet (.getPacket captor)]
    (when-not (= (Packet/EOF) packet)
      (lazy-seq (cons packet (packet-seq captor))))))

swannodette

(ns fj
  (:import [java.util.concurrent RecursiveTask 
                                 ForkJoinPool]))

(set! *warn-on-reflection* true)

;; -----------------------------------------------
;; Helpers to provide an idiomatic interface to FJ

(defprotocol IFJTask

JunKikuchi

reduce #(conj %1 %2 %2) []

JunKikuchi

#(take (- %2 %1) (iterate inc %1))

oneness

(ns gcount.core
  "generates charts out of the result from google search term(s)."
  (:use (incanter core charts))
  (:require [clj-http.client :as http-client]))

(def *search-provider* "http://www.google.com/search?hl=en&q=")
(def *search-pattern* #"About.*?([\d,]+).*?")

(defn search-for-term [term]
  (let [encoded-term (.replaceAll (apply str term) " " "+")

claj

(ns dsstuff
"things i used to do in duckstreams in clojure 1.2.0")

;;read-lines from files

(defn read-lines-from-file [filename]
  (with-open [rdr (clojure.java.io/reader filename)]
    (line-seq rdr)))

;;thank you Abhinav Sarkar (http://stackoverflow.com/questions/4118123/read-a-very-large-text-file-into-a-list-in-clojure)

biesnecker

(import '(org.joda.time LocalDate))

(defn today [] (LocalDate.))

;; basic functions to increment or decrement a date
(defn inc-date [#^LocalDate ds] (.plusDays ds 1))
(defn dec-date [#^LocalDate ds] (.minusDays ds 1))

;; generate infinite streams of LocalDate objects starting with start-ds
(defn inc-date-stream [#^LocalDate start-ds] (iterate inc-date start-ds))

tce

(comment "wildcardfilter from http://corfield.org/blog/post.cfm/real-world-clojure-powermta-log-files")

(defn- wildcard-filter
  "Given a regex, return a FilenameFilter that matches."
  [re]
  (reify java.io.FilenameFilter
    (accept [_ dir name] (not (nil? (re-find re name))))))

(defn- nonhidden-filter
  "return a FilenameFilter that ignores files that begin with dot or end with ~."

david-mcneil

(ns people
  (:use [clojure.string :only (join)]
        [clojure.pprint :only (pprint simple-dispatch)]))

;; we can make maps using the special literal form:

{:a 100
 :b 200}

(class {:a 100 :b 200})

fogus

(defn commatize [n]
  (-> (->> n str seq reverse (partition-all 3) (interpose \,))
      flatten
      reverse
      (#(apply str %))))


(commatize 1000)    ;=> "100"
(commatize 100)     ;=> "1,000"
(commatize 1000000) ;=> "1,000,000"