rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

replace '≔' and '·' with '=' and (only) '.'

Browse source
This commit is contained in:
rhiannon morris 2023-03-17 21:54:09 +01:00
parent 1c53b63bdf
commit f2272da4b4
6 changed files with 42 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/Quox/Parser/Parser.idr
View file

@ -120,7 +120,7 @@ qty = zeroOne Zero One
private covering
qtys : Grammar False (List PQty)
qtys = option [] [|toList $ some qty <* res "·"|]
qtys = option [] [|toList $ some qty <* res "."|]
export
dimConst : Grammar True DimConst
@ -177,7 +177,7 @@ private covering
caseIntro : Grammar True PQty
caseIntro = resC "case1" $> One
<|> resC "caseω" $> Any
<|> resC "case" *> qty <* resC "·"
<|> resC "case" *> qty <* resC "."
private
optNameBinder : Grammar False BName
@ -272,12 +272,12 @@ export covering
defIntro : Grammar True PQty
defIntro = Zero <$ resC "def0"
<|> Any <$ resC "defω"
<|> resC "def" *> option Any (qty <* resC "·")
<|> resC "def" *> option Any (qty <* resC ".")
export covering
definition : Grammar True PDefinition
definition =
[|MkPDef defIntro name (optional (resC ":" *> term)) (resC "≔" *> term)|]
[|MkPDef defIntro name (optional (resC ":" *> term)) (resC "=" *> term)|]
export
load : Grammar True String