289 lines
7.2 KiB
Plaintext
289 lines
7.2 KiB
Plaintext
concrete StructuralGla of Structural = CatGla **
|
|
open Prelude, ResGla, (Noun=NounGla), ParadigmsGla in {
|
|
|
|
-------
|
|
-- Ad*
|
|
{-
|
|
lin almost_AdA =
|
|
lin almost_AdN =
|
|
lin at_least_AdN =
|
|
lin at_most_AdN =
|
|
lin so_AdA =
|
|
lin too_AdA =
|
|
lin very_AdA =
|
|
|
|
lin as_CAdv =
|
|
lin less_CAdv =
|
|
lin more_CAdv =
|
|
|
|
lin how8much_IAdv =
|
|
lin when_IAdv =
|
|
|
|
lin how_IAdv =
|
|
lin where_IAdv =
|
|
lin why_IAdv =
|
|
|
|
lin always_AdV = ss "" ;
|
|
|
|
lin everywhere_Adv = ss "" ;
|
|
lin here7from_Adv = ss "" ;
|
|
lin here7to_Adv = ss "" ;
|
|
lin here_Adv = ss "" ;
|
|
lin quite_Adv = ss "" ;
|
|
lin somewhere_Adv = ss "" ;
|
|
lin there7from_Adv = ss "" ;
|
|
lin there7to_Adv = ss "" ;
|
|
lin there_Adv = ss "" ;
|
|
|
|
-}
|
|
-------
|
|
-- Conj
|
|
|
|
-- The lincat of Conj is Coordination.ConjunctionDistr ** {n:Number}
|
|
-- which means that there are two fields for the strings, and
|
|
-- n:Number which specifies the number of the resulting NP.
|
|
|
|
lin and_Conj = {s1 = [] ; s2 = "agus" ; n = Pl} ;
|
|
-- lin or_Conj =
|
|
-- lin if_then_Conj =
|
|
lin both7and_DConj = {s1 = "both" ; s2 = "and" ; n = Pl} ;
|
|
-- lin either7or_DConj =
|
|
|
|
-- lin but_PConj =
|
|
-- lin otherwise_PConj =
|
|
-- lin therefore_PConj =
|
|
|
|
|
|
-----------------
|
|
-- *Det and Quant
|
|
{-
|
|
lin how8many_IDet =
|
|
lin every_Det =
|
|
|
|
lin all_Predet = {s = ""} ;
|
|
lin not_Predet = { s = "" } ;
|
|
lin only_Predet = { s = "" } ;
|
|
lin most_Predet = {s = ""} ;
|
|
|
|
lin few_Det = R.indefDet "" pl ;
|
|
lin many_Det = R.indefDet "" pl ;
|
|
lin much_Det = R.indefDet "" sg ;
|
|
|
|
lin somePl_Det =
|
|
lin someSg_Det =
|
|
|
|
lin no_Quant =
|
|
lin that_Quant = mkQuant "" ;
|
|
lin this_Quant = mkQuant "" ;
|
|
lin which_IQuant = mkQuant "" ;
|
|
|
|
-----
|
|
-- NP
|
|
|
|
lin somebody_NP =
|
|
|
|
|
|
lin everybody_NP =
|
|
lin everything_NP =
|
|
lin nobody_NP =
|
|
lin nothing_NP =
|
|
lin somebody_NP =
|
|
lin something_NP =
|
|
|
|
-------}
|
|
-- Prep
|
|
|
|
-- lin above_Prep = mkPrep "" ;
|
|
-- lin after_Prep = mkPrep "" ;
|
|
-- lin before_Prep = mkPrep "" ;
|
|
-- lin behind_Prep = mkPrep "" ;
|
|
-- lin between_Prep = = mkPrep "" ;
|
|
-- lin by8agent_Prep = mkPrep "" ;
|
|
-- lin by8means_Prep = mkPrep "" ;
|
|
-- lin during_Prep = mkPrep "" ;
|
|
-- lin except_Prep = mkPrep "" ;
|
|
lin for_Prep = ResGla.doPrep ;
|
|
lin from_Prep = ResGla.bhoPrep ;
|
|
-- lin in8front_Prep = mkPrep "" ;
|
|
lin in_Prep = ResGla.annPrep ;
|
|
lin on_Prep = ResGla.airPrep ;
|
|
-- lin part_Prep = mkPrep "" ;
|
|
-- lin possess_Prep = mkPrep "" ;
|
|
-- lin through_Prep = mkPrep "" ;
|
|
lin to_Prep = ResGla.guPrep ;
|
|
-- lin under_Prep = mkPrep "" ;
|
|
-- lin with_Prep = mkPrep "" ;
|
|
-- lin without_Prep = mkPrep "" ;
|
|
|
|
-------
|
|
-- Pron
|
|
|
|
-- Pronouns are closed class, no constructor in ParadigmsGla.
|
|
--lin it_Pron =
|
|
lin i_Pron = mkPron "mi" "mo" Sg1 ;
|
|
lin youPol_Pron = youPl_Pron ;
|
|
lin youSg_Pron = mkPron "thu" "do" Sg2 ;
|
|
lin he_Pron = mkPron "e" "a" (Sg3 Masc) ;
|
|
lin she_Pron = mkPron "i" "a" (Sg3 Fem) ;
|
|
lin we_Pron = mkPron "sinn" "àr" Pl1 ;
|
|
lin youPl_Pron = mkPron"sibh" "ur" Pl2 ;
|
|
lin they_Pron = mkPron "iad" AN Pl3 ;
|
|
{-
|
|
lin whatPl_IP =
|
|
lin whatSg_IP =
|
|
lin whoPl_IP =
|
|
lin whoSg_IP =
|
|
|
|
-------
|
|
-- Subj
|
|
|
|
lin although_Subj =
|
|
lin because_Subj =
|
|
lin if_Subj =
|
|
lin that_Subj =
|
|
lin when_Subj =
|
|
|
|
|
|
------
|
|
-- Utt
|
|
|
|
lin language_title_Utt = ss "" ;
|
|
lin no_Utt = ss "" ;
|
|
lin yes_Utt = ss "" ;
|
|
|
|
|
|
-------
|
|
-- Verb
|
|
|
|
lin have_V2 =
|
|
|
|
lin can8know_VV = -- can (capacity)
|
|
lin can_VV = -- can (possibility)
|
|
lin must_VV =
|
|
lin want_VV =
|
|
|
|
------
|
|
-- Voc
|
|
|
|
lin please_Voc = ss "" ;
|
|
-}
|
|
|
|
lin
|
|
almost_AdA = {s = "cha mhòr"} ;
|
|
almost_AdN = {s = "cha mhòr"} ;
|
|
at_least_AdN = {s = "co-dhiù"} ;
|
|
at_most_AdN = {s = "air a' char as motha"} ;
|
|
so_AdA = {s = "cho"} ;
|
|
too_AdA = {s = "ro"} ;
|
|
very_AdA = {s = "glè"} ;
|
|
as_CAdv = {s = "cho" ; p = "ri"} ;
|
|
less_CAdv = {s = "nas lugha" ; p = "na"} ;
|
|
more_CAdv = {s = "nas" ; p = "na"} ;
|
|
|
|
how8much_IAdv = {s = "dè an uiread"} ;
|
|
how_IAdv = {s = "ciamar"} ;
|
|
when_IAdv = {s = "cuin"} ;
|
|
where_IAdv = {s = "càite"} ;
|
|
why_IAdv = {s = "carson"} ;
|
|
always_AdV = {s = "an-còmhnaidh"} ;
|
|
everywhere_Adv = {s = "anns gach àite"} ;
|
|
here7from_Adv = {s = "à seo"} ;
|
|
here7to_Adv = {s = "an seo"} ;
|
|
here_Adv = {s = "an seo"} ;
|
|
quite_Adv = {s = "gu math"} ;
|
|
somewhere_Adv = {s = "an àiteigin"} ;
|
|
there7from_Adv = {s = "à sin"} ;
|
|
there7to_Adv = {s = "an sin"} ;
|
|
there_Adv = {s = "an sin"} ;
|
|
|
|
or_Conj = {s1 = [] ; s2 = "no" ; n = Sg} ;
|
|
if_then_Conj = {s1 = "ma" ; s2 = "an uair sin" ; n = Sg} ;
|
|
either7or_DConj = {s1 = "an dara cuid" ; s2 = "no" ; n = Sg} ;
|
|
but_PConj = {s = "ach"} ;
|
|
otherwise_PConj = {s = "air neo"} ;
|
|
therefore_PConj = {s = "mar sin"} ;
|
|
|
|
every_Det = ParadigmsGla.mkDet "gach" Sg Indef ;
|
|
few_Det = ParadigmsGla.mkDet "beagan" Pl Indef ;
|
|
many_Det = ParadigmsGla.mkDet "mòran" Pl Indef ;
|
|
much_Det = ParadigmsGla.mkDet "mòran" Sg Indef ;
|
|
somePl_Det = ParadigmsGla.mkDet "cuid de" Pl Indef ;
|
|
someSg_Det = ParadigmsGla.mkDet "rudeigin de" Sg Indef ;
|
|
how8many_IDet = {s = "cia mheud"} ;
|
|
all_Predet = {s = "uile"} ;
|
|
most_Predet = {s = "a' mhòr-chuid de"} ;
|
|
not_Predet = {s = "chan e"} ;
|
|
only_Predet = {s = "a-mhàin"} ;
|
|
no_Quant = ParadigmsGla.mkQuant "gun" Indef ;
|
|
that_Quant = ParadigmsGla.mkQuant "sin" Def ;
|
|
this_Quant = ParadigmsGla.mkQuant "seo" Def ;
|
|
which_IQuant = {s = "dè"} ;
|
|
|
|
everybody_NP = atomNP "a h-uile duine" Pl3 ;
|
|
everything_NP = atomNP "a h-uile rud" (Sg3 Masc) ;
|
|
nobody_NP = atomNP "duine sam bith" (Sg3 Masc) ;
|
|
nothing_NP = atomNP "rud sam bith" (Sg3 Masc) ;
|
|
somebody_NP = atomNP "cuideigin" (Sg3 Masc) ;
|
|
something_NP = atomNP "rudeigin" (Sg3 Masc) ;
|
|
|
|
above_Prep = simplePrep "os cionn" Gen ;
|
|
after_Prep = simplePrep "an dèidh" Gen ;
|
|
before_Prep = simplePrep "ro" (Dat Lenited) ;
|
|
behind_Prep = simplePrep "air cùl" Gen ;
|
|
between_Prep = simplePrep "eadar" (Dat NoMutation) ;
|
|
by8agent_Prep = simplePrep "le" (Dat NoMutation) ;
|
|
by8means_Prep = simplePrep "le" (Dat NoMutation) ;
|
|
during_Prep = simplePrep "rè" Gen ;
|
|
except_Prep = simplePrep "ach" (Nom NoMutation) ;
|
|
in8front_Prep = simplePrep "air beulaibh" Gen ;
|
|
part_Prep = simplePrep "de" (Dat Lenited) ;
|
|
possess_Prep = simplePrep "aig" (Dat NoMutation) ;
|
|
through_Prep = simplePrep "tro" (Dat NoMutation) ;
|
|
under_Prep = simplePrep "fo" (Dat Lenited) ;
|
|
with_Prep = simplePrep "le" (Dat NoMutation) ;
|
|
without_Prep = simplePrep "gun" (Dat Lenited) ;
|
|
|
|
it_Pron = mkPron "e" "a" (Sg3 Masc) ;
|
|
whatPl_IP = {s = "dè"} ;
|
|
whatSg_IP = {s = "dè"} ;
|
|
whoPl_IP = {s = "cò"} ;
|
|
whoSg_IP = {s = "cò"} ;
|
|
|
|
although_Subj = {s = "ged"} ;
|
|
because_Subj = {s = "oir"} ;
|
|
if_Subj = {s = "ma"} ;
|
|
that_Subj = {s = "gun"} ;
|
|
when_Subj = {s = "nuair a"} ;
|
|
|
|
language_title_Utt = {s = "Gàidhlig"} ;
|
|
no_Utt = {s = "chan eil"} ;
|
|
yes_Utt = {s = "tha"} ;
|
|
please_Voc = {s = "mas e do thoil e"} ;
|
|
|
|
have_V2 = biV ** {c2 = aigPrep} ;
|
|
can8know_VV = mkV "urrainn" ;
|
|
can_VV = mkV "faod" ;
|
|
must_VV = mkV "feum" ;
|
|
want_VV = mkV "iarr" ;
|
|
|
|
oper
|
|
biV : LinV = {
|
|
s = "bi" ;
|
|
conditional = table {Sg => "bhiodh" ; Pl => "bhiodh"} ;
|
|
imperative = table {
|
|
P1 => table {Sg => "bitheam" ; Pl => "bitheamaid"} ;
|
|
P2 => table {Sg => "bi" ; Pl => "bithibh"} ;
|
|
P3 => table {Sg => "bitheadh" ; Pl => "bitheadh"}
|
|
} ;
|
|
future = table {Indep => "bidh" ; Dep => "bi"} ;
|
|
past = table {Indep => "bha" ; Dep => "robh"} ;
|
|
noun = "bhith" ; participle = "air a bhith" ;
|
|
copular = True ; complement = []
|
|
} ;
|
|
|
|
atomNP : Str -> PronAgr -> LinNP = \s,a -> emptyNP ** {
|
|
s = \\_ => s ; voc = s ; a = IsPron a
|
|
} ;
|
|
|
|
}
|