GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-10 13:29:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

gfse: supply information about what's defined in the exampe language to the server functions for example-based grammar writing

Browse Source
This commit is contained in:
hallgren
2011-11-02 16:54:22 +00:00
parent bed4395a3d
commit 366922aa0f
5 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/example-based/ExampleDemo.hs
View File

@@ -42,8 +42,8 @@ data Environ = Env {getTypeMap :: TypeMap, -- mapping between a
}
getNext :: Environ -> ([MyFunc],[MyFunc])
getNext env =
getNext :: Environ -> Environ -> ([MyFunc],[MyFunc])
getNext env example_env =
let sgs = getSigs env
allfuncs = getAll env
names = Set.fromList $ map getName $ concat $ Map.elems sgs