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

Export a grammar in source format to JSON

Browse Source
This commit is contained in:
Krasimir Angelov
2025-04-14 11:16:27 +02:00
parent 3432e6f571
commit cc4d07f168
3 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/api/GF/Compile/Export.hs
View File

@@ -34,6 +34,7 @@ exportPGF opts fmt pgf =
FmtPGFPretty -> multi "txt" (showPGF) FmtPGFPretty -> multi "txt" (showPGF)
FmtCanonicalGF -> [] -- canon "gf" (render80 . abstract2canonical) FmtCanonicalGF -> [] -- canon "gf" (render80 . abstract2canonical)
FmtCanonicalJson-> [] FmtCanonicalJson-> []
FmtSourceJson -> []
FmtHaskell -> multi "hs" (grammar2haskell opts name) FmtHaskell -> multi "hs" (grammar2haskell opts name)
FmtJava -> multi "java" (grammar2java opts name) FmtJava -> multi "java" (grammar2java opts name)
FmtBNF -> single "bnf" bnfPrinter FmtBNF -> single "bnf" bnfPrinter

2
src/compiler/api/GF/Compiler.hs
View File

@@ -72,6 +72,8 @@ compileSourceFiles opts fs =
when (FmtCanonicalJson `elem` ofmts) $ when (FmtCanonicalJson `elem` ofmts) $
do (gr_canon,_) <- runCheck (grammar2canonical opts absname gr) do (gr_canon,_) <- runCheck (grammar2canonical opts absname gr)
writeExport (render absname ++ ".json", encode (grammar2json gr_canon)) writeExport (render absname ++ ".json", encode (grammar2json gr_canon))
when (FmtSourceJson `elem` ofmts) $
do writeExport (render absname ++ ".json", encode (grammar2json gr))
where where
ofmts = flag optOutputFormats opts ofmts = flag optOutputFormats opts

2
src/compiler/api/GF/Infra/Option.hs
View File

@@ -87,6 +87,7 @@ data Phase = Preproc | Convert | Compile | Link
data OutputFormat = FmtPGFPretty data OutputFormat = FmtPGFPretty
| FmtCanonicalGF | FmtCanonicalGF
| FmtCanonicalJson | FmtCanonicalJson
| FmtSourceJson
| FmtJavaScript | FmtJavaScript
| FmtJSON | FmtJSON
| FmtPython | FmtPython
@@ -474,6 +475,7 @@ outputFormatsExpl =
[(("pgf_pretty", FmtPGFPretty),"human-readable pgf"), [(("pgf_pretty", FmtPGFPretty),"human-readable pgf"),
(("canonical_gf", FmtCanonicalGF),"Canonical GF source files"), (("canonical_gf", FmtCanonicalGF),"Canonical GF source files"),
(("canonical_json", FmtCanonicalJson),"Canonical JSON source files"), (("canonical_json", FmtCanonicalJson),"Canonical JSON source files"),
(("source_json", FmtSourceJson),"Source grammar as a JSON file"),
(("json", FmtJSON),"JSON (whole grammar)"), (("json", FmtJSON),"JSON (whole grammar)"),
(("haskell", FmtHaskell),"Haskell (abstract syntax)"), (("haskell", FmtHaskell),"Haskell (abstract syntax)"),
(("java", FmtJava),"Java (abstract syntax)"), (("java", FmtJava),"Java (abstract syntax)"),