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

a number of new API functions for the concrete syntax.

Browse Source
This commit is contained in:
krangelov
2021-11-09 09:16:20 +01:00
parent a4ad17a478
commit 9eb88f9281
7 changed files with 138 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/runtime/haskell/PGF2/Transactions.hsc
View File

@@ -20,7 +20,10 @@ module PGF2.Transactions
, alterConcrete
, dropConcrete
, setConcreteFlag
, createLincat
, dropLincat
, createLin
, dropLin
) where
import PGF2.FFI
@@ -210,7 +213,22 @@ data PArg = PArg [(LIndex,LIndex)] {-# UNPACK #-} !LParam
data Production = Production [PArg] LParam [[Symbol]]
deriving (Eq,Show)
createLincat :: Cat -> [String] -> Transaction Concr ()
createLincat name fields = Transaction $ \c_db c_abstr c_revision c_exn ->
withText name $ \c_name ->
pgf_create_lincat c_db c_abstr c_revision c_name (fromIntegral (length fields)) c_exn
dropLincat :: Cat -> Transaction Concr ()
dropLincat name = Transaction $ \c_db _ c_revision c_exn ->
withText name $ \c_name ->
pgf_drop_lincat c_db c_revision c_name c_exn
createLin :: Fun -> [Production] -> Transaction Concr ()
createLin name rules = Transaction $ \c_db c_abstr c_revision c_exn ->
withText name $ \c_name ->
pgf_create_lin c_db c_abstr c_revision c_name (fromIntegral (length rules)) c_exn
dropLin :: Fun -> Transaction Concr ()
dropLin name = Transaction $ \c_db _ c_revision c_exn ->
withText name $ \c_name ->
pgf_drop_lin c_db c_revision c_name c_exn