GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

the Error type; better lexer error reporting

Browse Source
This commit is contained in:
aarne
2006-09-01 15:11:22 +00:00
parent 66d3c75031
commit fda42f61c4
9 changed files with 132 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/resource-1.0/english/ParadigmsEng.gf
View File

@@ -418,8 +418,13 @@ oper
in mkV cry cries cried cried crying ;
regDuplV fit =
let fitt = fit + last fit in
mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ;
case last fit of {
("a" | "e" | "i" | "o" | "u" | "y") =>
Predef.error (["final duplication makes no sense for"] ++ fit) ;
t =>
let fitt = fit + t in
mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing")
} ;
irregV x y z = let reg = (regV x).s in
mkV x (reg ! VPres) y z (reg ! VPresPart) ** {s1 = [] ; lock_V = <>} ;