diff options
| author | krangelov <kr.angelov@gmail.com> | 2020-08-14 20:56:20 +0200 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2020-08-14 20:56:20 +0200 |
| commit | 24beed9a953432565d9577620b7c0f51bb2824c3 (patch) | |
| tree | 5e1f6b869a1aa30de5bd0e59a9d84a0842517a49 /src/runtime/haskell-bind/README.md | |
| parent | 23edeec5a95bb7378d8f075e5bee5e67235adadd (diff) | |
| parent | 542a41fb32c7b70066816854921354bbafb63539 (diff) | |
Merge branch 'master' of https://github.com/GrammaticalFramework/gf-core
Diffstat (limited to 'src/runtime/haskell-bind/README.md')
| -rw-r--r-- | src/runtime/haskell-bind/README.md | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/README.md b/src/runtime/haskell-bind/README.md new file mode 100644 index 000000000..1cb68df65 --- /dev/null +++ b/src/runtime/haskell-bind/README.md @@ -0,0 +1,56 @@ +# PGF2 + +This is a Haskell binding to the PGF runtime written in C. + +The exposed modules are: + +- `PGF2`: a user API similar to Python and Java APIs +- `PGF2.Internal`: an internal module with FFI definitions for the relevant C functions + +## How to compile + +**Important:** You must have the C runtime already installed and available on your system. +See <https://github.com/GrammaticalFramework/gf-core/blob/master/src/runtime/c/INSTALL> + +Once the runtine is installed, you can install the library to your global Cabal installation: + +``` +cabal install pgf2 --extra-lib-dirs=/usr/local/lib +``` + +or add it to your `stack.yaml` file: + +```yaml +extra-deps: + - pgf2 +extra-lib-dirs: + - /usr/local/lib +``` + +## How to use + +Simply import `PGF2` in your Haskell program. +The Cabal infrastructure will make sure to tell the compiler where to find the relevant modules. + +## Example + +```haskell +module Main where + +import PGF2 +import qualified Data.Map as Map + +main = do + pgf <- readPGF "App12.pgf" + let Just eng = Map.lookup "AppEng" (languages pgf) + + -- Parsing + let res = parse eng (startCat pgf) "this is a small theatre" + let ParseOk ((tree,prob):rest) = res + print tree + + -- Linearisation + let Just expr = readExpr "AdjCN (PositA red_A) (UseN theatre_N)" + let s = linearize eng expr + print s +``` |
