forked from GitHub/gf-rgl
store and propagate the exact source location for all judgements in the grammar. It may not be used accurately in the error messages yet
This commit is contained in:
@@ -79,7 +79,6 @@ fun
|
|||||||
door_N : N ;
|
door_N : N ;
|
||||||
do_V2 : V2 ;
|
do_V2 : V2 ;
|
||||||
drink_V2 : V2 ;
|
drink_V2 : V2 ;
|
||||||
drink_V2 : V2 ;
|
|
||||||
dry_A : A ;
|
dry_A : A ;
|
||||||
dull_A : A ;
|
dull_A : A ;
|
||||||
dust_N : N ;
|
dust_N : N ;
|
||||||
@@ -87,7 +86,6 @@ fun
|
|||||||
earth_N : N ;
|
earth_N : N ;
|
||||||
easy_A2V : A2 ;
|
easy_A2V : A2 ;
|
||||||
eat_V2 : V2 ;
|
eat_V2 : V2 ;
|
||||||
eat_V2 : V2 ;
|
|
||||||
egg_N : N ;
|
egg_N : N ;
|
||||||
empty_A : A ;
|
empty_A : A ;
|
||||||
enemy_N : N ;
|
enemy_N : N ;
|
||||||
@@ -140,7 +138,6 @@ fun
|
|||||||
head_N : N ;
|
head_N : N ;
|
||||||
heart_N : N ;
|
heart_N : N ;
|
||||||
hear_V2 : V2 ;
|
hear_V2 : V2 ;
|
||||||
hear_V2 : V2 ;
|
|
||||||
heavy_A : A ;
|
heavy_A : A ;
|
||||||
hill_N : N ;
|
hill_N : N ;
|
||||||
hit_V2 : V2 ;
|
hit_V2 : V2 ;
|
||||||
@@ -255,7 +252,6 @@ fun
|
|||||||
seed_N : N ;
|
seed_N : N ;
|
||||||
seek_V2 : V2 ;
|
seek_V2 : V2 ;
|
||||||
see_V2 : V2 ;
|
see_V2 : V2 ;
|
||||||
see_V2 : V2 ;
|
|
||||||
sell_V3 : V3 ;
|
sell_V3 : V3 ;
|
||||||
send_V3 : V3 ;
|
send_V3 : V3 ;
|
||||||
sew_V : V ;
|
sew_V : V ;
|
||||||
|
|||||||
@@ -126,16 +126,9 @@ oper
|
|||||||
mkVA : V -> VA ;
|
mkVA : V -> VA ;
|
||||||
mkVA v = v ** {lock_VA = <>} ;
|
mkVA v = v ** {lock_VA = <>} ;
|
||||||
|
|
||||||
mkV2A : V -> Prep -> V2A ;
|
|
||||||
mkV2A v p = prepV2 v p ** {lock_V2A = <>} ;
|
|
||||||
|
|
||||||
mkVQ : V -> VQ ;
|
mkVQ : V -> VQ ;
|
||||||
mkVQ v = v ** {lock_VQ = <>} ;
|
mkVQ v = v ** {lock_VQ = <>} ;
|
||||||
|
|
||||||
mkV2Q : V -> Prep -> V2Q ;
|
|
||||||
mkV2Q v p = prepV2 v p ** {lock_V2Q = <>} ;
|
|
||||||
|
|
||||||
|
|
||||||
--2 Nouns
|
--2 Nouns
|
||||||
|
|
||||||
--3 Two-place Nouns
|
--3 Two-place Nouns
|
||||||
|
|||||||
@@ -1087,8 +1087,6 @@ abstract IrregCatAbs = Cat ** {
|
|||||||
-- fun zaherir_V : V ;
|
-- fun zaherir_V : V ;
|
||||||
-- fun zambullir_V : V ;
|
-- fun zambullir_V : V ;
|
||||||
-- fun zurcir_V : V ;
|
-- fun zurcir_V : V ;
|
||||||
fun haver_V : V ;
|
|
||||||
fun estar_V : V ;
|
|
||||||
fun callar_V : V ;
|
fun callar_V : V ;
|
||||||
fun caure_V : V ;
|
fun caure_V : V ;
|
||||||
fun cloure_V : V ;
|
fun cloure_V : V ;
|
||||||
|
|||||||
@@ -3,7 +3,6 @@ resource Formal = open Prelude in {
|
|||||||
-- to replace the old library Precedence
|
-- to replace the old library Precedence
|
||||||
|
|
||||||
oper
|
oper
|
||||||
Prec : PType ;
|
|
||||||
TermPrec : Type = {s : Str ; p : Prec} ;
|
TermPrec : Type = {s : Str ; p : Prec} ;
|
||||||
|
|
||||||
mkPrec : Prec -> Str -> TermPrec = \p,s ->
|
mkPrec : Prec -> Str -> TermPrec = \p,s ->
|
||||||
|
|||||||
Reference in New Issue
Block a user