Mercurial > hg > Members > toma > Jungle-haskell
annotate test/test.hs @ 9:947c5cfa4149
Change function related to Tree, Tree is not visiable from outside.
| author | Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 21 Jan 2014 13:17:02 +0900 |
| parents | f03876c8236a |
| children | 29d0f605efa9 |
| rev | line source |
|---|---|
| 7 | 1 {-# LANGUAGE OverloadedStrings #-} |
| 2 | |
| 3 import Jungle | |
| 4 import Data.Maybe | |
| 5 import qualified Data.ByteString.Lazy.Char8 as B | |
| 6 | |
| 7 jungle = createJungle | |
| 8 | |
| 9 tree = do | |
| 10 a <- createTree jungle "test" | |
|
9
947c5cfa4149
Change function related to Tree, Tree is not visiable from outside.
Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
parents:
8
diff
changeset
|
11 node <- getRootNode a "test" |
| 7 | 12 return (add node) |
| 13 | |
| 14 addc path pos node = addNewChildAt node path pos | |
| 15 | |
| 16 addchild = | |
| 17 (addc [3] 2) . (addc [] 3) . (addc [1,1] 2) . (addc [1,1] 1). (addc [2] 2) . (addc [1] 2) . | |
| 18 (addc [2] 1) . (addc [] 2). (addc [1] 1) . (addc [] 1) | |
| 19 | |
| 20 adda path key value node = putAttribute node path key value | |
| 21 | |
| 22 addattr = | |
| 23 (adda [1,1] "key" "value") . (adda [1,1] "test" "test2") . | |
| 24 (adda [] "root" "node") . (adda [1] "tes" "abc") . | |
| 25 (adda [3,2] "test" "3-2") . (adda [2,2] "test" "2-2") | |
| 26 | |
| 27 add = addattr . addchild | |
| 28 | |
| 29 {- | |
| 30 ghci> :l test.hs | |
| 31 ghci> y <- tree | |
| 32 ghci> putStrLn $ printAttributes y | |
| 33 ghci> putStrLn $ drawNode y | |
| 34 -} |