X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=GenIRC.icl;fp=GenIRC.icl;h=0000000000000000000000000000000000000000;hp=e6dc8ec9ae1f6d1ed52844c279516bdcf7efe2da;hb=c78c6197214262f5332c3cec2f1a1494a95acc33;hpb=f379174bc06f111322df8922c1bc80cfad951dd5

diff --git a/GenIRC.icl b/GenIRC.icl
deleted file mode 100644
index e6dc8ec..0000000
--- a/GenIRC.icl
+++ /dev/null
@@ -1,64 +0,0 @@
-implementation module GenIRC
-
-import StdEnv
-import StdGeneric
-
-import Data.Either
-import Data.Func
-import Data.Functor
-import Data.Maybe
-import Data.Tuple
-import Text
-
-import IRC
-
-pOne [] = (Left "Expected an argument", [])
-pOne [a:as] = (Right a, as)
-
-generic gIRCParse a :: [String] -> (Either Error a, [String])
-gIRCParse{|UNIT|} a = (Right UNIT, a)
-gIRCParse{|String|} as = pOne as
-gIRCParse{|Int|} as = appFst (fmap toInt) $ pOne as
-gIRCParse{|EITHER|} lp rp as = case lp as of
-	(Right a, rest) = (Right $ LEFT a, rest)
-	(Left e1, _) = case rp as of
-		(Right a, rest) = (Right $ RIGHT a, rest)
-		(Left e2, _) = (Left $ e2, [])
-gIRCParse{|OBJECT|} p as = appFst (fmap OBJECT) $ p as
-gIRCParse{|CONS of d|} p []
-	= (Left $ concat ["Expected a cmd constructor: ", d.gcd_name], [])
-gIRCParse{|CONS of d|} p [a:as]
-	| a <> d.gcd_name = (Left $ concat [
-		"Wrong constructor. expected: ", d.gcd_name, ", got: ", a], [])
-	= case p as of
-		(Right a, rest) = (Right $ CONS a, rest)
-		(Left e, _) = (Left e, [])
-gIRCParse{|PAIR|} pl pr as = case pl as of
-	(Right a1, rest) = case pr rest of
-		(Right a2, rest) = (Right $ PAIR a1 a2, rest)
-		(Left e, _) = (Left e, [])
-	(Left e, _) = (Left e, [])
-gIRCParse{|[]|} pl as = case pl as of
-		(Right e, rest) = case gIRCParse{|*->*|} pl rest of
-			(Right es, rest) = (Right [e:es], rest)
-			(Left e, _) = (Left e, [])
-		(Left e, _) = (Right [], as)
-gIRCParse{|Maybe|} pm as
-	= appFst (either (const $ Right Nothing) $ Right o Just) $ pm as
-gIRCParse{|CSepList|} as = appFst (fmap $ CSepList o split ",") $ pOne as
-
-derive gIRCParse (,), IRCCommand
-derive gIRCPrint (,), IRCCommand
-
-generic gIRCPrint a :: a -> [String]
-gIRCPrint{|UNIT|} _ = []
-gIRCPrint{|String|} s = if (indexOf " " s == -1) [s] [":"+++s]
-gIRCPrint{|Int|} i = [toString i]
-gIRCPrint{|EITHER|} lp rp (LEFT i) = lp i
-gIRCPrint{|EITHER|} lp rp (RIGHT i) = rp i
-gIRCPrint{|OBJECT|} lp (OBJECT p) = lp p
-gIRCPrint{|PAIR|} lp rp (PAIR l r) = lp l ++ rp r
-gIRCPrint{|CONS of d|} pc (CONS c) = [d.gcd_name:pc c]
-gIRCPrint{|[]|} pl x = flatten $ map pl x
-gIRCPrint{|Maybe|} pl m = gIRCPrint{|*->*|} pl $ maybeToList m
-gIRCPrint{|CSepList|} (CSepList as) = [join "," as]