Skip to content

Instantly share code, notes, and snippets.

View rrichardson's full-sized avatar
💭
⚔️ Hacking Away

Rick Richardson rrichardson

💭
⚔️ Hacking Away
60 followers · 6 following
View GitHub Profile
@rrichardson
rrichardson / go_cloneable
Created December 2, 2009 17:19
type Cloneable interface {
Clone() Cloneable;
}
type MapA map[int]string;
type MapB map[string]int;
func (m MapA) Clone() Clonable {
nmap := make(MapA);
@rrichardson
rrichardson / gist:247402
Created December 2, 2009 18:09
package main
import "fmt"
import "reflect"
type Cloneable interface {
Clone() Cloneable;
}
type Mapable interface {
@rrichardson
rrichardson / gist:248458
Created December 3, 2009 19:59
package main
import "fmt"
import "reflect"
type Cloneable interface {
Clone() Cloneable;
}
type MapA map[int]string;
@rrichardson
rrichardson / gist:317185
Created February 28, 2010 04:13
case ServerRequest(key) =>
reply(sessionMap.get(key) match {
case Some(svr) =>
SessionSuccess(svr)
case None =>
SessionFailure("No session found for supplied key")
})
@rrichardson
rrichardson / gist:325339
Created March 8, 2010 16:50
trait NeoIterable[T] extends Iterator[T] {
def first() : T = {
this.take(1).toList.head
}
}
implicit def jiterable2iterable[T](it: java.lang.Iterable[T]) = new Wrapper[T](it.iterator()) with NeoIterable[T]
use:
@rrichardson
rrichardson / gist:392426
Created May 6, 2010 17:33
type bsonvalue =
| BDouble of float
| BString of string
| BObject of bsondoc
| BArray of list bsonvalue
| BBinary of int * string
| BUndefined
| BOid of string
| BBool of bool
| BDate of int64
@rrichardson
rrichardson / gist:394874
Created May 9, 2010 01:25
getNextMsgID :: Peer -> IO Int64
getNextMsgID peer = modifyMvar (pCurrent peer) (\x -> do { let y = x + 1; return (y, y); } )
@rrichardson
rrichardson / gist:398727
Created May 12, 2010 15:33
forMpar :: [a] -> (a -> IO b) -> IO [b]
forMpar xs fun = do
sem <- newQSem (length xs)
c <- newChan
forM_ xs (\x -> forkIO $ wrap fun x c sem)
waitQSem sem
collect (length xs) c []
where wrap f item chan qsem = f item >>= writeChan chan >> signalQSem qsem
collect 0 chan acc = return acc
collect count chan acc = do !i <- readChan chan; collect (count - 1) chan i::acc
@rrichardson
rrichardson / gist:406413
Created May 19, 2010 15:22
syncRequests :: BsonDoc -> [Peer] -> IO [BsonDoc]
syncRequests doc prs = do
sem <- newQSem (length prs)
c <- newChan
forM_ prs $ \p -> do
(mid, msg) <- initMessage p MsgTypeCall 0 doc
registerSync p c sem mid
putMessage (pConn p) msg
waitQSem sem
collect (length prs) c []
@rrichardson
rrichardson / olelo error
Created November 10, 2010 17:06
<!DOCTYPE html>
<html class="no-js " lang="en-US"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><script type="text/javascript">Olelo = {"path":"","page_name":"","page_new":true,"page_modified":false,"page_path":"","page_title":"Root","page_version":"","page_next_version":"","page_previous_version":"","page_mime":"text/x-creole","default_mime":"text/x-creole","user_logged_in":true,"user_name":"10.16.64.79"};</script><title>My Project - New Page</title><link href="/static/images/favicon.png?1" rel="shortcut icon" type="image/png"><base href="http://172.17.3.122:8080/"><link rel="stylesheet" href="/static/themes/atlantis/style.css?1289221523" type="text/css" title="atlantis"><script src="/static/script.js?1289221523" type="text/javascript" async="async"></script><link rel="stylesheet" href="/_/assets/assets.css?1289221523" type="text/css"><link rel="alternate" type="application/atom+xml" title="Sitewide Atom Changelog" href="/?format=atom&amp;output=changelog"><link rel="alternate" ty