lojysamban 0.0.6 → 0.0.7

raw patch · 2 files changed

+17/−3 lines, 2 files

Files

lojysamban.cabal +11/−1
lojysamban2.hs +6/−2

lojysamban.cabal view

@@ -2,7 +2,7 @@ cabal-version:		>= 1.6  name:			lojysamban-version:		0.0.6+version:		0.0.7 stability:		experimental author:			.iocikun.juj. <PAF01143@nifty.ne.jp> maintainer:		.iocikun.juj. <PAF01143@nifty.ne.jp>@@ -15,6 +15,16 @@ synopsis:		Prolog with lojban description:		Prolog with lojban     .+    > lojysamban+    > .i la .iocikun. patfu la .ituk.+    > .i la manam. mamta la .ituk.+    > .i da rirni de .ijanai da patfu de+    > .i da rirni de .ijanai da mamta de+    > fa'o+    > .i ma rirni la .ituk.+    > .i la iocikun .a la manam+    > .i co'o+    >     > lojysamban example/pendo.jbo     > .i ma pendo la .ualeis.     > .i la gromit

lojysamban2.hs view

@@ -170,8 +170,12 @@ 	Left f = readSentenceFact s  getRule (_, Jek _ _ (_, "ja", _) (Just (_, "nai", _)), _, Just t) =-	lefts $ readTUhE t+	lefts $ readRule t getNotRule (_, Jek _ _ (_, "ja", _) (Just (_, "nai", _)), _, Just t) =-	rights $ readTUhE t+	rights $ readRule t +readRule t@(TUhE _ _ _ _ _ _) = readTUhE t+readRule t = [readSentenceFact t]+ readTUhE (TUhE _ _ _ t _ _) = map readSentenceFact $ getSentences t+readTUhE o = error $ show o