From dd38d0d1dda2be42bf280aeca110542f2f2fef1b Mon Sep 17 00:00:00 2001
From: Calvin <calvin@EESI>
Date: Tue, 28 May 2013 10:47:11 -0400
Subject: removed files

---
 src/nbc/genome.sml | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 src/nbc/genome.sml

(limited to 'src/nbc/genome.sml')

diff --git a/src/nbc/genome.sml b/src/nbc/genome.sml
deleted file mode 100644
index 81f3183..0000000
--- a/src/nbc/genome.sml
+++ /dev/null
@@ -1,33 +0,0 @@
-signature GENOME = sig
-	exception Bad
-	type t
-	val load: string * int -> t
-	val get: t * string -> int option
-end
-
-structure Genome :> GENOME = struct
-	exception Bad
-	fun |> (x, f) = f x
-	infix |>
-
-	type t = (string, int) HashTable.hash_table
-	fun load (gname, order) =
-		let
-			val h = HashTable.mkTable
-				(HashString.hashString, op =)
-				(1024 * 1024, Fail "")
-		in
-			Options.genomeText (order, gname) |> Gzip.openIn |> Misc.sequenceLines
-			|> Sequence.map (fn s => (
-				 case Misc.split2 s of
-					SOME (count, nmer) => (
-						nmer
-						, case Int.fromString count of
-							NONE => raise Bad
-							| SOME x => x
-					) | NONE => raise Bad
-			)) |> Sequence.app (HashTable.insert h)
-			; h
-		end
-	fun get (h, nmer) = HashTable.find h nmer
-end
-- 
cgit v1.2.3