GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

.gfo files in binary format

Browse Source
This commit is contained in:
krasimir
2009-01-23 06:15:27 +00:00
parent 3c53194ca9
commit f0718589df
3 changed files with 60 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Grammar/Binary.hs
View File

@@ -10,6 +10,7 @@
module GF.Grammar.Binary where
import Data.Binary
import qualified Data.Map as Map
import qualified Data.ByteString.Char8 as BS
import GF.Data.Operations
@@ -260,3 +261,8 @@ instance Binary Label where
instance Binary MetaSymb where
put (MetaSymb m) = put m
get = fmap MetaSymb get
decodeModHeader :: FilePath -> IO SourceModule
decodeModHeader fpath = do
(m,mtype,mstatus,flags,extend,mwith,opens) <- decodeFile fpath
return (m,ModInfo mtype mstatus flags extend mwith opens Map.empty Map.empty)