Permalink
Browse files

removed comment

  • Loading branch information...
1 parent a26aca7 commit 2dc33943ba40f53c0e5d4effbcdbff539157b1bb seni committed Sep 2, 2011
Showing with 0 additions and 33 deletions.
  1. +0 −33 src/Copilot/Library/RegExp.hs
@@ -382,39 +382,6 @@ regexp2CopilotNFAB rexp propositions reset =
in outStream
- -- let symbols = getSymbols rexp
-
- -- preceding' numSym = case preceding rexp numSym of
- -- [] -> [] -- start state
- -- other -> [ streams !! i
- -- | i <- map ( fromJust . symbolNum ) other ]
-
- -- lookup' a l = case lookup a l of
- -- Nothing -> error $ "boolean stream "
- -- ++ a
- -- ++ " is not defined"
- -- Just s -> s
-
- -- matchesInput numSym = case symbol numSym of
- -- Any -> C.true
- -- Sym t -> lookup' ( getName t ) propositions
-
- -- transitions numSym ps = matchesInput numSym
- -- C.&& ( foldl ( C.|| ) C.false ps )
-
- -- stream numSym = let ps = preceding' numSym
- -- init = null ps
- -- in [ init ] C.++
- -- ( C.mux reset
- -- ( C.constant init )
- -- ( transitions numSym ps ) )
-
- -- streams = map stream symbols
-
- -- outStream = foldl ( C.|| ) C.false streams
-
- -- in outStream
-
copilotRegexpB :: SourceName -> [ ( StreamName, C.Stream Bool ) ]
-> C.Stream Bool -> C.Stream Bool

0 comments on commit 2dc3394

Please sign in to comment.