GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

make it possible to load several grammars in the same process and ensure reader-writer exclusion

Browse Source
This commit is contained in:
krangelov
2021-08-06 19:34:02 +02:00
parent 2d6bcd1953
commit 825e8447db
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/runtime/haskell/PGF2.hsc
View File

@@ -43,6 +43,7 @@ import Data.IORef
type AbsName = String -- ^ Name of abstract syntax type AbsName = String -- ^ Name of abstract syntax
type ConcName = String -- ^ Name of concrete syntax type ConcName = String -- ^ Name of concrete syntax
-- | Reads a PGF file and keeps it in memory.
readPGF :: FilePath -> IO PGF readPGF :: FilePath -> IO PGF
readPGF fpath = readPGF fpath =
withCString fpath $ \c_fpath -> withCString fpath $ \c_fpath ->
@@ -61,6 +62,10 @@ readPGF fpath =
free c_msg free c_msg
throwIO (PGFError msg) throwIO (PGFError msg)
-- | Reads a PGF file and stores the unpacked data in an NGF file
-- ready to be shared with other process, or used for quick startup.
-- The NGF file is platform dependent and should not be copied
-- between machines.
bootNGF :: FilePath -> FilePath -> IO PGF bootNGF :: FilePath -> FilePath -> IO PGF
bootNGF pgf_path ngf_path = bootNGF pgf_path ngf_path =
withCString pgf_path $ \c_pgf_path -> withCString pgf_path $ \c_pgf_path ->
@@ -80,6 +85,10 @@ bootNGF pgf_path ngf_path =
free c_msg free c_msg
throwIO (PGFError msg) throwIO (PGFError msg)
-- | Tries to read the grammar from an already booted NGF file.
-- If the file does not exist then a new one is created, and the
-- grammar is set to be empty. It can later be populated with
-- rules dynamically.
readNGF :: FilePath -> IO PGF readNGF :: FilePath -> IO PGF
readNGF fpath = readNGF fpath =
withCString fpath $ \c_fpath -> withCString fpath $ \c_fpath ->