mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 01:22:51 -06:00
Merge branch 'master' into lpgf
# Conflicts: # gf.cabal
This commit is contained in:
@@ -27,6 +27,10 @@ instance Predef Int where
|
||||
|
||||
instance Predef Bool where
|
||||
toValue = boolV
|
||||
fromValue v = case v of
|
||||
VCApp (cPredef,cPTrue) [] -> return True
|
||||
VCApp (cPredef,cPFalse) [] -> return False
|
||||
_ -> verror "Bool" v
|
||||
|
||||
instance Predef String where
|
||||
toValue = string
|
||||
|
||||
@@ -437,7 +437,7 @@ wc_type = cmd_name
|
||||
x2 = takeWhile (\c -> isIdent c || isSpace c || c == '-' || c == '=' || c == '"') x1
|
||||
|
||||
cmd = case [x | (x,cs) <- RP.readP_to_S pCommand x2, all isSpace cs] of
|
||||
[x] -> Just x
|
||||
[x] -> Just x
|
||||
_ -> Nothing
|
||||
|
||||
isIdent c = c == '_' || c == '\'' || isAlphaNum c
|
||||
|
||||
@@ -23,10 +23,10 @@ data Fun = Fun { fname:: FunId, ftype:: Type }
|
||||
|
||||
data Concrete = Concrete { langcode:: Id,
|
||||
opens:: [ModId],
|
||||
params:: [Param],
|
||||
lincats:: [Lincat],
|
||||
opers:: [Oper],
|
||||
lins:: [Lin] }
|
||||
params:: [Param],
|
||||
lincats:: [Lincat],
|
||||
opers:: [Oper],
|
||||
lins:: [Lin] }
|
||||
deriving Show
|
||||
|
||||
data Param = Param {pname:: Id, prhs:: String} deriving Show
|
||||
|
||||
Reference in New Issue
Block a user