diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-08 12:22:05 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-08 12:22:05 +0000 |
| commit | 327c63eb741606adf5d7d98cd32b731f6bda7ae7 (patch) | |
| tree | 898c6c4ada7e1d3283bd13333a1d7367748cbaa5 /src/GF/GFCC/API.hs | |
| parent | 12144083879e174d8d8176f2c37ea0aaf1a3d948 (diff) | |
gt command in gf3
Diffstat (limited to 'src/GF/GFCC/API.hs')
| -rw-r--r-- | src/GF/GFCC/API.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GF/GFCC/API.hs b/src/GF/GFCC/API.hs index 0a3b37cc5..f02942a20 100644 --- a/src/GF/GFCC/API.hs +++ b/src/GF/GFCC/API.hs @@ -59,8 +59,9 @@ linearizeAllLang :: MultiGrammar -> Tree -> [(Language,String)] parseAll :: MultiGrammar -> Category -> String -> [[Tree]] parseAllLang :: MultiGrammar -> Category -> String -> [(Language,[Tree])] -generateAll :: MultiGrammar -> Category -> [Tree] -generateRandom :: MultiGrammar -> Category -> IO [Tree] +generateAll :: MultiGrammar -> Category -> [Tree] +generateRandom :: MultiGrammar -> Category -> IO [Tree] +generateAllDepth :: MultiGrammar -> Category -> Maybe Int -> [Tree] readTree :: MultiGrammar -> String -> Tree showTree :: Tree -> String @@ -105,7 +106,8 @@ generateRandom mgr cat = do gen <- newStdGen return $ genRandom gen (gfcc mgr) (CId cat) -generateAll mgr cat = generate (gfcc mgr) (CId cat) +generateAll mgr cat = generate (gfcc mgr) (CId cat) Nothing +generateAllDepth mgr cat = generate (gfcc mgr) (CId cat) readTree _ = pTree |