astview 0.1.2 → 0.1.3

raw patch · 10 files changed

+50/−49 lines, 10 filessetup-changed

Files

Setup.hs +1/−1
astview.cabal +6/−5
data/EX1.hs +0/−4
data/EX1.hs.txt +4/−0
data/EX2.hs +0/−12
data/EX2.hs.txt +12/−0
data/EX3.hs +0/−2
data/EX3.hs.txt +2/−0
data/EX4.hs +0/−25
data/EX4.hs.txt +25/−0

Setup.hs view

@@ -38,7 +38,7 @@   then return [s]   else do     putStr $ (extract s)++" "-    file <- readFile ("data/"++(extract s)++".hs")+    file <- readFile ("data/"++(extract s)++".hs.txt")     let replacement = lines $ hscolour CSS defaultColourPrefs False True (extract s) False file     return (["<!-- Example "++(extract s)++" follows: -->"]            ++ replacement

astview.cabal view

@@ -1,5 +1,5 @@ Name:            astview-Version:         0.1.2+Version:         0.1.3 License:         BSD4 License-File:    LICENSE Author:          @@ -28,12 +28,13 @@                  data/HaskellExtParser.hs                  data/astview.html                  data/astview-tmpl.html-                 data/EX1.hs-                 data/EX2.hs-                 data/EX3.hs-                 data/EX4.hs                  data/style.css                  data/LICENSE.unwrapped+                 data/EX1.hs.txt+                 data/EX2.hs.txt+                 data/EX3.hs.txt+                 data/EX4.hs.txt+  Executable         astview   Hs-Source-Dirs:  src

− data/EX1.hs

@@ -1,4 +0,0 @@-data Parser -  = Parser { name :: String-           , exts :: [String]-           , tree :: String -> Tree String}

+ data/EX1.hs.txt view

@@ -0,0 +1,4 @@+data Parser +  = Parser { name :: String+           , exts :: [String]+           , tree :: String -> Tree String}

− data/EX2.hs

@@ -1,12 +0,0 @@-haskell :: Parser-haskell =  Parser "Haskell" [".hs"] buildTreeHaskell--buildTreeHaskell :: String -> Tree String-buildTreeHaskell s = case parseHaskell s of-     Right ast -> flat $ data2tree (ast::HsModule)-     Left ParseError -> Node "ParseError" []--parseHaskell :: (Data a) => String -> Either ParseError a-parseHaskell s = case parseModule s of-  ParseOk p -> unsafeCoerce $ Right p-  _         -> Left ParseError

+ data/EX2.hs.txt view

@@ -0,0 +1,12 @@+haskell :: Parser+haskell =  Parser "Haskell" [".hs"] buildTreeHaskell++buildTreeHaskell :: String -> Tree String+buildTreeHaskell s = case parseHaskell s of+     Right ast -> flat $ data2tree (ast::HsModule)+     Left ParseError -> Node "ParseError" []++parseHaskell :: (Data a) => String -> Either ParseError a+parseHaskell s = case parseModule s of+  ParseOk p -> unsafeCoerce $ Right p+  _         -> Left ParseError

− data/EX3.hs

@@ -1,2 +0,0 @@-parsers :: [Parser]-parsers = haskell:stdParserData

+ data/EX3.hs.txt view

@@ -0,0 +1,2 @@+parsers :: [Parser]+parsers = haskell:stdParserData

− data/EX4.hs

@@ -1,25 +0,0 @@-user@host:path$ cd ~/.cabal/share/astview-0.2/data-user@host:~/.cabal/share/astview-0.2/data$ ghci Parsers.hs---- ghci package-messages stripped--*Parsers> :info Parser-data Parser-  = Parser {name :: !String,-            exts :: [String],-            tree :: String -> Tree String}---- show all registered parsers-*Parsers> map name parsers                                            -["Haskell","CSV","Expr","Java","IsoPascal","C","Glade","List"]---- get haskell parser-*Parsers> let haskell = head parsers                                 ---- build a sample tree of strings-*Parsers> let sample = tree haskell "main = putStrLn \"Hello World\""---- draw the tree-*Parsers> putStrLn $ Data.Tree.drawTree sample---- lengthy output follows

+ data/EX4.hs.txt view

@@ -0,0 +1,25 @@+user@host:path$ cd ~/.cabal/share/astview-0.2/data+user@host:~/.cabal/share/astview-0.2/data$ ghci Parsers.hs++-- ghci package-messages stripped++*Parsers> :info Parser+data Parser+  = Parser {name :: !String,+            exts :: [String],+            tree :: String -> Tree String}++-- show all registered parsers+*Parsers> map name parsers                                            +["Haskell","CSV","Expr","Java","IsoPascal","C","Glade","List"]++-- get haskell parser+*Parsers> let haskell = head parsers                                 ++-- build a sample tree of strings+*Parsers> let sample = tree haskell "main = putStrLn \"Hello World\""++-- draw the tree+*Parsers> putStrLn $ Data.Tree.drawTree sample++-- lengthy output follows