GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

resource = resource-1.0

Browse Source
This commit is contained in:
aarne
2006-06-22 22:25:55 +00:00
parent 7e5584b1ab
commit 251bc4c738
881 changed files with 31130 additions and 31130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/resource/norwegian/AdjectiveNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete AdjectiveNor of Adjective = CatNor ** AdjectiveScand with
(ResScand = ResNor) ;

2
lib/resource/norwegian/AdverbNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete AdverbNor of Adverb = CatNor ** AdverbScand with
(ResScand = ResNor) ;

235
lib/resource/norwegian/BasicNor.gf
View File

@@ -1,235 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete BasicNor of Basic = CategoriesNor ** open ParadigmsNor,VerbsNor in {
flags startcat=Phr ; lexer=textlit ; unlexer=text ;
optimize=values ;
lin
airplane_N = mk2N "fly" "flyet" ;
answer_V2S = mkV2S (regV "svare") "til" ;
apartment_N = mk2N "leilighet" "leiligheten" ;
apple_N = mk2N "eple" "eplet" ;
art_N = mk2N "kunst" "kunsten" ;
ask_V2Q = mkV2Q spørre_V [] ;
baby_N = mk2N "baby" "babyen" ;
bad_ADeg = regADeg "dårlig" ; ----
bank_N = mk2N "bank" "banken" ;
beautiful_ADeg = mk3ADeg "vakker" "vakkert" "vakra" ;
become_VA = mkVA bli_V ;
beer_N = regN "øl" neutrum ;
beg_V2V = mkV2V be_V [] "att" ;
big_ADeg = irregADeg "stor" "større" "størst";
bike_N = mkN "sykkel" "sykkelen" "sykler" "syklene" ;
bird_N = mk2N "fugl" "fuglen" ;
black_ADeg = mk2ADeg "svart" "svart" ;
blue_ADeg = mk2ADeg "blå" "blått";
boat_N = regN "båt" masculine ;
book_N = mkN "bok" "boka" "bøker" "bøkene" ;
boot_N = mkN "støvel" "støvelen" "støvler" "støvlene" ;
boss_N = mk2N "sjef" "sjefen" ;
boy_N = regN "gutt" masculine ;
bread_N = regN "brød" neutrum ;
break_V2 = dirV2 (mk2V "knuse" "knuste") ;
broad_ADeg = regADeg "bred" ;
brother_N2 = mkN2 ( (mkN "bror" "broren" "brødre" "brødrene")) "til" ;
brown_ADeg = regADeg "brun" ;
butter_N = regN "smør" neutrum ;
buy_V2 = dirV2 (mk2V "kjøpe" "kjøpte") ;
camera_N = mk2N "kamera" "kameraen" ; ----
cap_N = mk2N "lue" "lua" ;
car_N = regN "bil" masculine ;
carpet_N = regN "matte" feminine ;
cat_N = mk2N "katt" "katten" ;
ceiling_N = regN "tak" neutrum ;
chair_N = regN "stol" masculine ;
cheese_N = regN "ost" masculine ;
child_N = regN "barn" neutrum ;
church_N = regN "kirke" feminine ;
city_N = mk2N "by" "byen" ;
clean_ADeg = regADeg "rein" ;
clever_ADeg = regADeg "klok" ;
close_V2 = dirV2 (mk2V "lukke" "lukket") ;
coat_N = regN "frakk" masculine ;
cold_ADeg = regADeg "kald" ;
come_V = komme_V ;
computer_N = mk2N "datamaskin" "datamaskinen" ;
country_N = mk2N "land" "landet" ;
cousin_N = mk2N "fetter" "fetteren" ; ----
cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ----
die_V = dø_V ;
dirty_ADeg = mk3ADeg "skitten" "skittent" "skitne" ; ----
distance_N3 = mkN3 (regN "avstand" masculine) "fra" "til" ;
doctor_N = mk2N "lege" "legen" ;
dog_N = regN "hund" masculine ;
door_N = regN "dør" feminine ;
drink_V2 = dirV2 drikke_V ;
easy_A2V = mkA2V (regA "grei") "før" ;
eat_V2 = dirV2 (mk2V "spise" "spiste") ;
empty_ADeg = mkADeg "tom" "tomt" "tomme" "tommere" "tommest" ;
enemy_N = regN "fiende" masculine ;
factory_N = mk2N "fabrikk" "fabrikken" ;
father_N2 = mkN2 ( (mkN "far" "faren" "fedre" "fedrene")) "til" ;
fear_VS = mkVS (regV "frykte") ;
find_V2 = dirV2 (irregV "finne" "fann" "funnet") ;
fish_N = mk2N "fisk" "fisken" ;
floor_N = regN "golv" neutrum ;
forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ;
fridge_N = regN "kjøleskap" neutrum ;
friend_N = mkN "venn" "vennen" "venner" "vennene" ;
fruit_N = mk2N "frukt" "frukten" ;
fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ;
garden_N = regN "hage" masculine ;
girl_N = regN "jente" feminine ;
glove_N = regN "hanske" masculine ;
gold_N = regN "gull" neutrum ;
good_ADeg = mkADeg "god" "godt" "gode" "bedre" "best" ;
go_V = gå_V ;
green_ADeg = mk2ADeg "grønn" "grønt" ;
harbour_N = regN "havn" feminine;
hate_V2 = dirV2 (regV "hate") ;
hat_N = regN "hatt" masculine ;
have_V2 = dirV2 ha_V ;
hear_V2 = dirV2 (mk2V "høre" "hørte") ;
hill_N = regN "haug" masculine ;
hope_VS = mkVS (regV "håpe") ;
horse_N = regN "hest" masculine ;
hot_ADeg = regADeg "heit" ;
house_N = regN "hus" neutrum ;
important_ADeg = regADeg "viktig" ;
industry_N = mk2N "industri" "industrien" ;
iron_N = regN "jern" neutrum ;
king_N = regN "konge" masculine ;
know_V2 = dirV2 vite_V ;
lake_N = regN "vann" neutrum ;
lamp_N = regN "lampe" feminine ;
learn_V2 = dirV2 (mk2V "lære" "lærte") ;
leather_N = regN "lær" neutrum ;
leave_V2 = dirV2 forlate_V ;
like_V2 = dirV2 (mk2V "like" "likte") ;
listen_V2 = dirV2 (regV "lytte") ;
live_V = mk2V "leve" "levde" ;
long_ADeg = irregADeg "lang" "lengre" "lengst" ;
lose_V2 = dirV2 (mk2V "tape" "tapte") ;
love_N = regN "kjærlighet" masculine ;
love_V2 = dirV2 (regV "elske") ;
man_N = (mkN "mann" "mannen" "menn" "mennen") ;
married_A2 = mkA2 (mk2A "gift" "gift") "med" ;
meat_N = regN "kjøtt" neutrum ;
milk_N = regN "melk" masculine ;
moon_N = regN "måne" masculine ;
mother_N2 = mkN2 (mkN "mor" "moren" "mødre" "mødrene") "til" ; ---- fem
mountain_N = regN "berg" neutrum ;
music_N = mk2N "musikk" "musikken" ;
narrow_ADeg = regADeg "smal" ;
new_ADeg = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ;
newspaper_N = regN "avis" feminine ;
oil_N = regN "olje" masculine ;
old_ADeg = mkADeg "gammel" "gammelt" "gamle" "eldre" "eldst" ;
open_V2 = dirV2 (regV "åpne") ;
paint_V2A = mkV2A (regV "male") [] ;
paper_N = regN "papir" neutrum ; ----
peace_N = regN "fred" masculine ;
pen_N = regN "penn" masculine ;
planet_N = mk2N "planet" "planeten" ;
plastic_N = mk2N "plast" "plasten" ;
play_V2 = dirV2 (mk2V "spille" "spilte") ;
policeman_N = mk2N "politi" "politien" ;
priest_N = mk2N "prest" "presten" ;
probable_AS = mkAS (regA "sannsynlig") ;
queen_N = regN "dronning" feminine ;
radio_N = regN "radio" masculine ;
rain_V0 = mkV0 (regV "regne") ;
read_V2 = dirV2 (mk2V "lese" "leste") ;
red_ADeg = regADeg "rød" ;
religion_N = mk2N "religion" "religionen" ;
restaurant_N = mk2N "restaurant" "restauranten" ;
river_N = mk2N "elv" "elva" ;
rock_N = regN "stein" masculine ;
roof_N = regN "tak" neutrum ;
rubber_N = mk2N "gummi" "gummien" ;
run_V = springe_V ;
say_VS = mkVS si_V ;
school_N = regN "skole" feminine;
science_N = mk2N "vitenskap" "vitenskapen" ;
sea_N = mk2N "sjø" "sjøen" ;
seek_V2 = mkV2 (mk2V "lete" "lette") "etter" ;
see_V2 = dirV2 se_V ;
sell_V3 = dirV3 selge_V "til" ;
send_V3 = dirV3 (mk2V "sende" "sendte") "til" ;
sheep_N = mk2N "får" "fåret" ;
ship_N = regN "skip" neutrum ;
shirt_N = regN "skjorte" feminine ;
shoe_N = regN "sko" masculine ;
shop_N = mk2N "butikk" "butikken" ;
short_ADeg = regADeg "kort" ;
silver_N = mk2N "sølv" "sølvet";
sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ;
sleep_V = irregV "sove" "sov" "sovet" ;
small_ADeg = mkADeg "liten" "lite" "små" "mindre" "minst" ; ---- lille
snake_N = regN "orm" masculine ;
sock_N = regN "strømpe" masculine ;
speak_V2 = dirV2 (regV "snakke") ;
star_N = regN "stjerne" feminine ;
steel_N = regN "stål" neutrum ;
stone_N = regN "stein" masculine ;
stove_N = regN "komfyr" masculine ;
student_N = mk2N "student" "studenten" ;
stupid_ADeg = mk3ADeg "dum" "dumt" "dumme" ;
sun_N = regN "sol" feminine ;
switch8off_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "av") ;
switch8on_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "på") ;
table_N = regN "bord" neutrum ;
talk_V3 = mkV3 (regV "snakke") "til" "om" ;
teacher_N = mkN "lærer" "læreren" "lærere" "lærerne" ;
teach_V2 = dirV2 (mk2V "undervise" "underviste") ;
television_N = mk2N "fjernsyn" "fjernsynet" ;
thick_ADeg = mk2ADeg "tykk" "tykt" ;
thin_ADeg = mk2ADeg "tynn" "tynt" ;
train_N = regN "tog" neutrum ;
travel_V = mk2V "reise" "reiste" ;
tree_N = mkN "tre" "treet" "trær" "træne" ;
---- trousers_N = regN "trousers" ; ---- pl t !
ugly_ADeg = mk2ADeg "stygg" "stygt" ;
understand_V2 = dirV2 (irregV "forstå" "forstod" "forstått") ;
university_N = regN "universitet" neutrum ;
village_N = mk2N "grend" "grenda" ;
wait_V2 = mkV2 (regV "vente") "på" ;
walk_V = (irregV "gå" "gikk" "gått") ;
warm_ADeg = regADeg "varm" ;
war_N = regN "krig" masculine ;
watch_V2 = mkV2 se_V "på" ;
water_N = mk2N "vatn" "vatnet" ;
white_ADeg = regADeg "hvit" ;
window_N = mkN "vindu" "vinduet" "vinduer" "vinduene" ; ---- er?
wine_N = mk2N "vin" "vinen" ;
win_V2 = dirV2 (irregV "vinne" "vant" "vunnet") ;
woman_N = regN "kvinne" feminine ; ---- kvinnen
wonder_VQ = mkVQ (regV "undre") ; ---- seg
wood_N = mkN "tre" "treet" "trær" "træne" ;
write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ;
yellow_ADeg = regADeg "gul" ;
young_ADeg = irregADeg "ung" "yngre" "yngst" ;
do_V2 = dirV2 (irregV "gjøre" "gjorde" "gjort") ;
now_Adv = mkAdv "nå" ;
already_Adv = mkAdv "allerede" ;
song_N = mk2N "sang" "sangen" ;
add_V3 = mkV3 (partV (irregV "legge" "la" "lagt") "til") [] "til" ;
number_N = mk2N "nummer" "nummeret" ;
put_V2 = mkV2 (irregV "sette" "satte" "satt") [] ;
stop_V = regV "stanse" ;
jump_V = regV "hoppe" ;
here_Adv = mkAdv "her" ;
here7to_Adv = mkAdv "hit" ;
here7from_Adv = mkAdv ["herfra"] ;
there_Adv = mkAdv "der" ;
there7to_Adv = mkAdv "dit" ;
there7from_Adv = mkAdv ["derfra"] ;
} ;
-- a" -> e" 86
-- ö -> ø 66
-- ck -> kk 20
-- ä -> e 44

2
lib/resource/norwegian/CatNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete CatNor of Cat = CommonX ** CatScand with
(ResScand = ResNor) ;

4
lib/resource/norwegian/CategoriesNor.gf
View File

@@ -1,4 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete CategoriesNor of Categories =
CategoriesScand with (SyntaxScand=SyntaxNor) ;

4
lib/resource/norwegian/ClauseNor.gf
View File

@@ -1,4 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete ClauseNor of Clause = CategoriesNor **
ClauseI with (Rules=RulesNor), (Verbphrase=VerbphraseNor) ;

2
lib/resource/norwegian/ConjunctionNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete ConjunctionNor of Conjunction = CatNor ** ConjunctionScand with
(ResScand = ResNor) ;

27
lib/resource/norwegian/CountryNor.gf
View File

@@ -1,27 +0,0 @@
concrete CountryNor of Country = open CategoriesNor, ParadigmsNor in {
lincat
Country = PN ;
Nationality = A ;
Language = N ;
lin
Denmark = regPN "Danmark" neutrum ;
England = regPN "England" neutrum ;
Finland = regPN "Finland" neutrum ;
France = regPN "Frankrike" neutrum ;
Germany = regPN "Tyskland" neutrum ;
Italy = regPN "Italien" neutrum ;
Norway = regPN "Norge" neutrum ;
Russia = regPN "Ryssland" neutrum ;
Spain = regPN "Spanien" neutrum ;
Sweden = regPN "Sverige" neutrum ;
Danish = regA "dansk" ;
English = regA "engelsk" ;
DanishLang = regN "dansk" masculine ;
EnglishLang = regN "engelsk" masculine ;
} ;

90
lib/resource/norwegian/DiffNor.gf Normal file
View File

@@ -0,0 +1,90 @@
instance DiffNor of DiffScand = open CommonScand, Prelude in {
-- Parameters.
param
Gender = Utr Sex | Neutr ;
Sex = Masc | Fem ;
oper
utrum = Utr Masc ;
neutrum = Neutr ;
gennum : Gender -> Number -> GenNum = \g,n ->
case <g,n> of {
<Utr _,Sg> => SgUtr ;
<Neutr,Sg> => SgNeutr ;
_ => Plg
} ;
detDef : Species = Def ;
Verb : Type = {
s : VForm => Str ;
part : Str ;
vtype : VType ;
isVaere : Bool
} ;
hasAuxBe v = v.isVaere ;
-- Strings.
conjThat = "at" ;
conjThan = "enn" ;
conjAnd = "og" ;
compMore = "mere" ;
infMark = "å" ;
subjIf = "hvis" ;
artIndef : Gender => Str = table {
Utr Masc => "en" ;
Utr Fem => "ei" ;
Neutr => "et"
} ;
verbHave =
mkVerb "ha" "har" "ha" "hadde" "hatt" nonExist nonExist nonExist
** {part = [] ; isVaere = False} ;
verbBe =
mkVerb "være" "er" "var" "var" "vært" "væren" "været" "værne"
** {part = [] ; isVaere = False} ;
verbBecome =
mkVerb "bli" "blir" "bli" "ble" "blitt" "bliven" "blivet" "blivne"
** {part = [] ; isVaere = True} ;
-- auxiliary
noPart = {part = []} ;
auxFut = "vil" ; -- "skal" in ExtNor
auxCond = "ville" ;
negation : Polarity => Str = table {
Pos => [] ;
Neg => "ikke"
} ;
genderForms : (x1,x2 : Str) -> Gender => Str = \all,allt ->
table {
Utr _ => all ;
Neutr => allt
} ;
relPron : GenNum => RCase => Str = \\gn,c => case c of {
RNom => "som" ;
RGen => "hvis" ;
RPrep => gennumForms "hvilken" "hvilket" "hvilke" ! gn
} ;
pronSuch = gennumForms "sådan" "sådant" "sådanne" ;
reflPron : Agr -> Str = \a -> case a of {
{gn = Plg ; p = P1} => "oss" ;
{gn = Plg ; p = P2} => "jer" ;
{p = P1} => "meg" ;
{p = P2} => "deg" ;
{p = P3} => "seg"
} ;
}

8
lib/resource/norwegian/ExtraNor.gf Normal file
View File

@@ -0,0 +1,8 @@
concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor in {
lin
PossNP np pro = {
s = \\c => np.s ! NPNom ++ pro.s ! NPPoss np.a.gn ; ---- c
a = np.a
} ;
}

9
lib/resource/norwegian/ExtraNorAbs.gf Normal file
View File

@@ -0,0 +1,9 @@
-- Structures special for Norwegian. These are not implemented in other
-- Scandinavian languages.
abstract ExtraNorAbs = ExtraScandAbs ** {
fun
PossNP : NP -> Pron -> NP ; -- bilen min
}

2
lib/resource/norwegian/ExtraScandNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete ExtraScandNor of ExtraScandAbs = CatNor ** ExtraScand with
(ResScand = ResNor) ;

21
lib/resource/norwegian/GrammarNor.gf Normal file
View File

@@ -0,0 +1,21 @@
--# -path=.:../scandinavian:../abstract:../common:prelude
concrete GrammarNor of Grammar =
NounNor,
VerbNor,
AdjectiveNor,
AdverbNor,
NumeralNor,
SentenceNor,
QuestionNor,
RelativeNor,
ConjunctionNor,
PhraseNor,
TextX,
IdiomNor,
StructuralNor
** {
flags startcat = Phr ; unlexer = text ; lexer = text ;
} ;

42
lib/resource/norwegian/IdiomNor.gf Normal file
View File

@@ -0,0 +1,42 @@
concrete IdiomNor of Idiom = CatNor **
open MorphoNor, ParadigmsNor, IrregNor, Prelude in {
flags optimize=all_subs ;
lin
ImpersCl vp = mkClause "det" (agrP3 neutrum Sg) vp ;
GenericCl vp = mkClause "man" (agrP3 utrum Sg) vp ;
CleftNP np rs = mkClause "det" (agrP3 neutrum Sg)
(insertObj (\\_ => rs.s ! np.a)
(insertObj (\\_ => np.s ! rs.c) (predV verbBe))) ;
CleftAdv ad s = mkClause "det" (agrP3 neutrum Sg)
(insertObj (\\_ => "som" ++ s.s ! Sub)
(insertObj (\\_ => ad.s) (predV verbBe))) ;
ExistNP np =
mkClause "det" (agrP3 neutrum Sg) (insertObj
(\\_ => np.s ! accusative) (predV (depV finne_V))) ;
ExistIP ip = {
s = \\t,a,p =>
let
cls =
(mkClause "det" (agrP3 neutrum Sg) (predV (depV finne_V))).s ! t ! a ! p ;
who = ip.s ! accusative
in table {
QDir => who ++ cls ! Inv ;
QIndir => who ++ cls ! Sub
}
} ;
ProgrVP vp =
insertObj (\\a => ["ved å"] ++ infVP vp a) (predV verbBe) ;
ImpPl1 vp = {s = ["lat oss"] ++ infVP vp {gn = Plg ; p = P1}} ;
}

13
lib/resource/norwegian/VerbsNor.gf → lib/resource/norwegian/IrregNor.gf
View File

@@ -1,12 +1,12 @@
--# -path=.:../scandinavian:../abstract:../../prelude
--# -path=.:../scandinavian:../common:../abstract:../../prelude
-- see: http://frodo.bruderhof.com/norskklassen/commonverbs.htm
concrete VerbsNor of VerbsNorAbs = CategoriesNor ** open ParadigmsNor in {
concrete IrregNor of IrregNorAbs = CatNor ** open ParadigmsNor in {
flags optimize=values ;
lin be_V = irregV "be" "bad" "bedt" ;
lin be_V = mkV "be" "ber" "bes" "bad" "bedt" "be" ;
lin bite_V = irregV "bite" (variants {"bet" ; "beit"}) "bitt" ;
lin bli_V = irregV "bli" (variants {"ble" ; "blei"}) "blitt" ;
lin brenne_V = irregV "brenne" (variants {"brant" ; "brente"}) "brent" ;
@@ -20,7 +20,8 @@ concrete VerbsNor of VerbsNorAbs = CategoriesNor ** open ParadigmsNor in {
lin eie_V = irregV "eie" (variants {"eide" ; "åtte"}) (variants {"eid" ; "ått"}) ;
lin falle_V = irregV "falle" "falt" "falt" ;
lin finne_V = irregV "finne" "fant" "funnet" ;
lin fly_V = irregV "fly" (variants {"fløy" ; "flaug"}) (variants {"fløyet" ; "flydd"}) ; lin flyte_V = irregV "flyte" (variants {"fløte" ; "flaut"}) "flytt" ;
lin fly_V = irregV "fly" (variants {"fløy" ; "flaug"}) (variants {"fløyet";"flydd"}) ;
lin flyte_V = irregV "flyte" (variants {"fløte" ; "flaut"}) "flytt" ;
lin foretrekke_V = irregV "foretrekke" "foretrakk" "foretrukket" ;
lin forlate_V = irregV "forlate" "forlot" "forlatt" ;
lin forstå_V = irregV "forstå" "forstod" "forstått" ;
@@ -45,10 +46,10 @@ concrete VerbsNor of VerbsNorAbs = CategoriesNor ** open ParadigmsNor in {
lin løpe_V = irregV "løpe" "løp" (variants {"løpt" ; "løpet"}) ;
lin måtte_V = irregV "måtte" "måtte" "måttet" ;
lin renne_V = irregV "renne" "rant" "rent" ;
lin se_V = irregV "se" "så" "sett" ;
lin se_V = mkV "se" "ser" "ses" "så" "sett" "se" ;
lin selge_V = irregV "selge" "solgte" "solgt" ;
lin sette_V = irregV "sette" "satte" "satt" ;
lin si_V = irregV "si" "sa" "sagt" ;
lin si_V = mkV "si" "sier" "sies" "sa" "sagt" "sagd" ;
lin sitte_V = irregV "sitte" "satt" "sittet" ;
lin skjære_V = irregV "skjære" "skar" "skåret" ;
lin skrive_V = irregV "skrive" "skrev" "skrevet" ;

2
lib/resource/norwegian/VerbsNorAbs.gf → lib/resource/norwegian/IrregNorAbs.gf
View File

@@ -1,4 +1,4 @@
abstract VerbsNorAbs = Categories ** {
abstract IrregNorAbs = Cat ** {
fun be_V : V ;
fun bite_V : V ;
fun bli_V : V ;

25
lib/resource/norwegian/LangNor.gf
View File

@@ -1,23 +1,10 @@
--# -path=.:../scandinavian:../abstract:../../prelude
--# -path=.:../scandinavian:../abstract:../common:prelude
concrete LangNor of Lang =
RulesNor,
ClauseNor,
StructuralNor,
BasicNor,
TimeNor,
CountryNor,
MathNor
GrammarNor,
LexiconNor
** {
** open Prelude, ParadigmsNor in {
flags startcat = Phr ; unlexer = text ; lexer = text ;
lin
AdvDate d = prefixSS "på" d ;
AdvTime t = prefixSS "klokken" t ;
NWeekday w = w ;
PNWeekday w = nounPN w ;
PNCountry x = x ;
ANationality x = x ;
NLanguage x = x ;
}
} ;

361
lib/resource/norwegian/LexiconNor.gf Normal file
View File

@@ -0,0 +1,361 @@
--# -path=.:../scandinavian:../common:../abstract:../../prelude
concrete LexiconNor of Lexicon = CatNor **
open Prelude, ParadigmsNor, IrregNor in {
flags startcat=Phr ; lexer=textlit ; unlexer=text ;
optimize=values ;
lin
airplane_N = mk2N "fly" "flyet" ;
answer_V2S = mkV2S (regV "svare") (mkPrep "til") ;
apartment_N = mk2N "leilighet" "leiligheten" ;
apple_N = mk2N "eple" "eplet" ;
art_N = mk2N "kunst" "kunsten" ;
ask_V2Q = mkV2Q spørre_V noPrep ;
baby_N = mk2N "baby" "babyen" ;
bad_A = regADeg "dårlig" ; ----
bank_N = mk2N "bank" "banken" ;
beautiful_A = mk3ADeg "vakker" "vakkert" "vakra" ;
become_VA = mkVA (vaereV bli_V) ;
beer_N = regGenN "øl" neutrum ;
beg_V2V = mkV2V be_V noPrep (mkPrep "at") ;
big_A = irregADeg "stor" "større" "størst";
bike_N = mkN "sykkel" "sykkelen" "sykler" "syklene" ;
bird_N = mk2N "fugl" "fuglen" ;
black_A = mk2ADeg "svart" "svart" ;
blue_A = mk2ADeg "blå" "blått";
boat_N = regGenN "båt" masculine ;
book_N = mkN "bok" "boka" "bøker" "bøkene" ;
boot_N = mkN "støvel" "støvelen" "støvler" "støvlene" ;
boss_N = mk2N "sjef" "sjefen" ;
boy_N = regGenN "gutt" masculine ;
bread_N = regGenN "brød" neutrum ;
break_V2 = dirV2 (mk2V "knuse" "knuste") ;
broad_A = regADeg "bred" ;
brother_N2 = mkN2 ( (mkN "bror" "broren" "brødre" "brødrene")) (mkPrep "til") ;
brown_A = regADeg "brun" ;
butter_N = regGenN "smør" neutrum ;
buy_V2 = dirV2 (mk2V "kjøpe" "kjøpte") ;
camera_N = mk2N "kamera" "kameraen" ; ----
cap_N = mk2N "lue" "lua" ;
car_N = regGenN "bil" masculine ;
carpet_N = regGenN "matte" feminine ;
cat_N = mk2N "katt" "katten" ;
ceiling_N = regGenN "tak" neutrum ;
chair_N = regGenN "stol" masculine ;
cheese_N = regGenN "ost" masculine ;
child_N = regGenN "barn" neutrum ;
church_N = regGenN "kirke" feminine ;
city_N = mk2N "by" "byen" ;
clean_A = regADeg "rein" ;
clever_A = regADeg "klok" ;
close_V2 = dirV2 (mk2V "lukke" "lukket") ;
coat_N = regGenN "frakk" masculine ;
cold_A = regADeg "kald" ;
come_V = vaereV komme_V ;
computer_N = mk2N "datamaskin" "datamaskinen" ;
country_N = mk2N "land" "landet" ;
cousin_N = mk2N "fetter" "fetteren" ; ----
cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ----
die_V = vaereV dø_V ;
dirty_A = mk3ADeg "skitten" "skittent" "skitne" ; ----
distance_N3 = mkN3 (regGenN "avstand" masculine) (mkPrep "fra") (mkPrep "til") ;
doctor_N = mk2N "lege" "legen" ;
dog_N = regGenN "hund" masculine ;
door_N = regGenN "dør" feminine ;
drink_V2 = dirV2 drikke_V ;
easy_A2V = mkA2V (regA "grei") (mkPrep "for") ;
eat_V2 = dirV2 (mk2V "spise" "spiste") ;
empty_A = mkADeg "tom" "tomt" "tomme" "tommere" "tommest" ;
enemy_N = regGenN "fiende" masculine ;
factory_N = mk2N "fabrikk" "fabrikken" ;
father_N2 = mkN2 ( (mkN "far" "faren" "fedre" "fedrene")) (mkPrep "til") ;
fear_VS = mkVS (regV "frykte") ;
find_V2 = dirV2 (irregV "finne" "fann" "funnet") ;
fish_N = mk2N "fisk" "fisken" ;
floor_N = regGenN "golv" neutrum ;
forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ;
fridge_N = regGenN "kjøleskap" neutrum ;
friend_N = mkN "venn" "vennen" "venner" "vennene" ;
fruit_N = mk2N "frukt" "frukten" ;
fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ;
garden_N = regGenN "hage" masculine ;
girl_N = regGenN "jente" feminine ;
glove_N = regGenN "hanske" masculine ;
gold_N = regGenN "gull" neutrum ;
good_A = mkADeg "god" "godt" "gode" "bedre" "best" ;
go_V = vaereV gå_V ;
green_A = mk2ADeg "grønn" "grønt" ;
harbour_N = regGenN "havn" feminine;
hate_V2 = dirV2 (regV "hate") ;
hat_N = regGenN "hatt" masculine ;
have_V2 = dirV2 ha_V ;
hear_V2 = dirV2 (mk2V "høre" "hørte") ;
hill_N = regGenN "haug" masculine ;
hope_VS = mkVS (regV "håpe") ;
horse_N = regGenN "hest" masculine ;
hot_A = regADeg "heit" ;
house_N = regGenN "hus" neutrum ;
important_A = regADeg "viktig" ;
industry_N = mk2N "industri" "industrien" ;
iron_N = regGenN "jern" neutrum ;
king_N = regGenN "konge" masculine ;
know_V2 = dirV2 vite_V ;
lake_N = regGenN "vann" neutrum ;
lamp_N = regGenN "lampe" feminine ;
learn_V2 = dirV2 (mk2V "lære" "lærte") ;
leather_N = regGenN "lær" neutrum ;
leave_V2 = dirV2 forlate_V ;
like_V2 = dirV2 (mk2V "like" "likte") ;
listen_V2 = dirV2 (regV "lytte") ;
live_V = mk2V "leve" "levde" ;
long_A = irregADeg "lang" "lengre" "lengst" ;
lose_V2 = dirV2 (mk2V "tape" "tapte") ;
love_N = regGenN "kjærlighet" masculine ;
love_V2 = dirV2 (regV "elske") ;
man_N = (mkN "mann" "mannen" "menn" "mennen") ;
married_A2 = mkA2 (mk2A "gift" "gift") (mkPrep "med") ;
meat_N = regGenN "kjøtt" neutrum ;
milk_N = regGenN "melk" masculine ;
moon_N = regGenN "måne" masculine ;
mother_N2 = mkN2 (mkN "mor" "moren" "mødre" "mødrene") (mkPrep "til") ; ---- fem
mountain_N = regGenN "berg" neutrum ;
music_N = mk2N "musikk" "musikken" ;
narrow_A = regADeg "smal" ;
new_A = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ;
newspaper_N = regGenN "avis" feminine ;
oil_N = regGenN "olje" masculine ;
old_A = mkADeg "gammel" "gammelt" "gamle" "eldre" "eldst" ;
open_V2 = dirV2 (regV "åpne") ;
paint_V2A = mkV2A (regV "male") noPrep ;
paper_N = regGenN "papir" neutrum ; ----
paris_PN = regGenPN "Paris" neutrum ;
peace_N = regGenN "fred" masculine ;
pen_N = regGenN "penn" masculine ;
planet_N = mk2N "planet" "planeten" ;
plastic_N = mk2N "plast" "plasten" ;
play_V2 = dirV2 (mk2V "spille" "spilte") ;
policeman_N = mk2N "politi" "politien" ;
priest_N = mk2N "prest" "presten" ;
probable_AS = mkAS (regA "sannsynlig") ;
queen_N = regGenN "dronning" feminine ;
radio_N = regGenN "radio" masculine ;
rain_V0 = mkV0 (regV "regne") ;
read_V2 = dirV2 (mk2V "lese" "leste") ;
red_A = regADeg "rød" ;
religion_N = mk2N "religion" "religionen" ;
restaurant_N = mk2N "restaurant" "restauranten" ;
river_N = mk2N "elv" "elva" ;
rock_N = regGenN "stein" masculine ;
roof_N = regGenN "tak" neutrum ;
rubber_N = mk2N "gummi" "gummien" ;
run_V = vaereV springe_V ;
say_VS = mkVS si_V ;
school_N = regGenN "skole" feminine;
science_N = mk2N "vitenskap" "vitenskapen" ;
sea_N = mk2N "sjø" "sjøen" ;
seek_V2 = mkV2 (mk2V "lete" "lette") (mkPrep "etter") ;
see_V2 = dirV2 se_V ;
sell_V3 = dirV3 selge_V (mkPrep "til") ;
send_V3 = dirV3 (mk2V "sende" "sendte") (mkPrep "til") ;
sheep_N = mk2N "får" "fåret" ;
ship_N = regGenN "skip" neutrum ;
shirt_N = regGenN "skjorte" feminine ;
shoe_N = regGenN "sko" masculine ;
shop_N = mk2N "butikk" "butikken" ;
short_A = regADeg "kort" ;
silver_N = mk2N "sølv" "sølvet";
sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ;
sleep_V = irregV "sove" "sov" "sovet" ;
small_A = mkADeg "liten" "lite" "små" "mindre" "minst" ; ---- lille
snake_N = regGenN "orm" masculine ;
sock_N = regGenN "strømpe" masculine ;
speak_V2 = dirV2 (regV "snakke") ;
star_N = regGenN "stjerne" feminine ;
steel_N = regGenN "stål" neutrum ;
stone_N = regGenN "stein" masculine ;
stove_N = regGenN "komfyr" masculine ;
student_N = mk2N "student" "studenten" ;
stupid_A = mk3ADeg "dum" "dumt" "dumme" ;
sun_N = regGenN "sol" feminine ;
switch8off_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "av") ;
switch8on_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "på") ;
table_N = regGenN "bord" neutrum ;
talk_V3 = mkV3 (regV "snakke") (mkPrep "til") (mkPrep "om") ;
teacher_N = mkN "lærer" "læreren" "lærere" "lærerne" ;
teach_V2 = dirV2 (mk2V "undervise" "underviste") ;
television_N = mk2N "fjernsyn" "fjernsynet" ;
thick_A = mk2ADeg "tykk" "tykt" ;
thin_A = mk2ADeg "tynn" "tynt" ;
train_N = regGenN "tog" neutrum ;
travel_V = vaereV (mk2V "reise" "reiste") ;
tree_N = mkN "tre" "treet" "trær" "træne" ;
---- trousers_N = regGenN "trousers" ; ---- pl t !
ugly_A = mk2ADeg "stygg" "stygt" ;
understand_V2 = dirV2 (irregV "forstå" "forstod" "forstått") ;
university_N = regGenN "universitet" neutrum ;
village_N = mk2N "grend" "grenda" ;
wait_V2 = mkV2 (regV "vente") (mkPrep "på") ;
walk_V = vaereV gå_V ;
warm_A = regADeg "varm" ;
war_N = regGenN "krig" masculine ;
watch_V2 = mkV2 se_V (mkPrep "på") ;
water_N = mk2N "vatn" "vatnet" ;
white_A = regADeg "hvit" ;
window_N = mkN "vindu" "vinduet" "vinduer" "vinduene" ; ---- er?
wine_N = mk2N "vin" "vinen" ;
win_V2 = dirV2 (irregV "vinne" "vant" "vunnet") ;
woman_N = regGenN "kvinne" feminine ; ---- kvinnen
wonder_VQ = mkVQ (regV "undre") ; ---- seg
wood_N = mkN "tre" "treet" "trær" "træne" ;
write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ;
yellow_A = regADeg "gul" ;
young_A = irregADeg "ung" "yngre" "yngst" ;
do_V2 = dirV2 (irregV "gjøre" "gjorde" "gjort") ;
now_Adv = mkAdv "nå" ;
already_Adv = mkAdv "allerede" ;
song_N = mk2N "sang" "sangen" ;
add_V3 = mkV3 (partV (irregV "legge" "la" "lagt") "til") noPrep (mkPrep "til") ;
number_N = mk2N "nummer" "nummeret" ;
put_V2 = mkV2 (irregV "sette" "satte" "satt") noPrep ;
stop_V = vaereV (regV "stanse") ;
jump_V = regV "hoppe" ;
left_Ord = {s = "venstre" ; isDet = True} ;
right_Ord = {s = "høyre" ; isDet = True} ;
far_Adv = mkAdv "fjern" ;
correct_A = regA "riktig" ;
dry_A = mk2A "tørr" "tørt" ;
dull_A = regA "sløv" ;
full_A = regA "full" ;
heavy_A = irregADeg "tung" "tyngre" "tyngst" ;
near_A = mkADeg "nære" "nære" "nære" "nærmere" "nærmest" ;
rotten_A = mk3ADeg "råtten" "råttent" "råtne" ;
round_A = regA "rund" ;
sharp_A = mk2A "kvass" "kvast" ;
smooth_A = mk2A "slett" "slett" ;
straight_A = regA "rak" ;
wet_A = regA "våt" ;
wide_A = regA "bred" ;
animal_N = mk2N "dyr" "dyret" ;
ashes_N = mk2N "aske" "aska" ;
back_N = mk2N "rygg" "ryggen" ;
bark_N = mk2N "bark" "barken" ;
belly_N = mk2N "mage" "magen" ;
blood_N = mk2N "blod" "blodet" ;
bone_N = mk2N "bein" "beinet" ;
breast_N = mk2N "bryst" "brystet" ;
cloud_N = mk2N "sky" "skya" ;
day_N = mk2N "dag" "dagen" ;
dust_N = mk2N "støv" "støvet" ;
ear_N = mk2N "øre" "øret" ;
earth_N = mk2N "jord" "jorda" ;
egg_N = mk2N "egg" "egget" ;
eye_N = mkN "øye" "øyet" "øyne" "øynene" ;
fat_N = mk2N "fett" "fettet" ;
feather_N = mk2N "fjør" "fjøra" ;
fingernail_N = mk2N "negl" "neglen" ;
fire_N = mk2N "ild" "ilden" ;
flower_N = mk2N "blomst" "blomsten" ;
fog_N = mk2N "tåke" "tåka" ;
foot_N = mk2N "fot" "føtter" ;
forest_N = mk2N "skog" "skogen" ;
grass_N = mk2N "gras" "graset" ;
guts_N = mk2N "tarm" "tarmen" ; ---- involler
hair_N = mk2N "hår" "håret" ;
hand_N = mk2N "hånd" "hånden" ;
head_N = mk2N "hode" "hodet" ;
heart_N = mk2N "hjerte" "hjertet" ;
horn_N = mk2N "horn" "hornet" ;
husband_N = mkN "ektemann" "ektemannen" "ektemenn" "ektemennen" ;
ice_N = mk2N "is" "isen" ;
knee_N = mkN "kne" "kneet" "knær" "knæne" ;
leaf_N = mk2N "løv" "løvet" ;
leg_N = mk2N "bein" "beinet" ;
liver_N = mkN "lever" "leveren" "levrer" "levrene" ;
louse_N = mk2N "lus" "lusa" ;
mouth_N = mk2N "munn" "munnen" ;
name_N = mk2N "navn" "navnet" ;
neck_N = mk2N "nakke" "nakken" ;
night_N = mkN "natt" "natta" "netter" "nettene" ;
nose_N = mk2N "nese" "nesen" ;
person_N = mk2N "person" "personen" ;
rain_N = mk2N "regn" "regnet" ;
road_N = mk2N "vei" "veien" ;
root_N = mkN "rot" "rota" "røtter" "røttene" ;
rope_N = mk2N "tau" "tauet" ;
salt_N = mk2N "salt" "saltet" ;
sand_N = mk2N "sand" "sanden" ;
seed_N = mk2N "frø" "frøet" ;
skin_N = mk2N "skinn" "skinnet" ;
sky_N = mkN "himmel" "himmelen" "himler" "himlene" ;
smoke_N = mk2N "røyk" "røyken" ;
snow_N = mk2N "snø" "snøen" ;
stick_N = mk2N "pinne" "pinnen" ;
tail_N = mk2N "hale" "halen" ;
tongue_N = mk2N "tunge" "tunga" ;
tooth_N = mkN "tann" "tanna" "tenner" "tennene" ;
wife_N = mk2N "kone" "kona" ;
wind_N = mk2N "vind" "vinden" ;
wing_N = mk2N "vinge" "vingen" ;
worm_N = mk2N "mark" "marken" ;
year_N = mk2N "år" "året" ;
bite_V2 = dirV2 (IrregNor.bite_V) ;
blow_V = mk2V "blåse" "blåste" ;
burn_V = brenne_V ;
count_V2 = dirV2 (regV "regne") ;
cut_V2 = dirV2 (skjære_V) ;
dig_V = mk2V "grave" "gravde" ;
fall_V = vaereV falle_V ;
fear_V2 = dirV2 (regV "frykte") ;
fight_V2 = dirV2 (slåss_V) ;
float_V = flyte_V ;
flow_V = renne_V ;
fly_V = vaereV fly_V ;
freeze_V = fryse_V ;
give_V3 = dirdirV3 gi_V ;
hit_V2 = dirV2 (slå_V) ;
hold_V2 = dirV2 (holde_V) ;
hunt_V2 = dirV2 (regV "jakte") ;
kill_V2 = dirV2 (mk2V "drepe" "drepte") ;
laugh_V = mkV "le" "ler" "les" "lo" "ledd" "le" ;
lie_V = ligge_V ;
play_V = mk2V "leke" "lekte" ;
pull_V2 = dirV2 (dra_V) ;
push_V2 = dirV2 (irregV "skyve" "skjøv" "skjøvet") ;
rub_V2 = dirV2 (gni_V) ;
scratch_V2 = dirV2 (regV "klø") ;
sew_V = mk2V "sy" "sydde" ;
sing_V = synge_V ;
sit_V = sitte_V ;
smell_V = regV "lukte" ;
spit_V = regV "spytte" ;
split_V2 = dirV2 (mk2V "kløyve" "kløyvde") ;
squeeze_V2 = dirV2 (mk2V "klemme" "klemte") ;
stab_V2 = dirV2 (stikke_V) ;
stand_V = vaereV stå_V ;
suck_V2 = dirV2 (suge_V) ;
swell_V = partV (regV "hovne") "opp" ;
swim_V = regV "simme" ;
think_V = mk2V "tenke" "tenkte" ;
throw_V2 = dirV2 (regV "kaste") ;
tie_V2 = dirV2 (regV "knytte") ;
turn_V = mk2V "vende" "vendte" ;
vomit_V = partV (regV "kaste") "opp" ;
wash_V2 = dirV2 (regV "vaske") ;
wipe_V2 = dirV2 (regV "tørke") ;
breathe_V = regV "puste" ;
grammar_N = regN "grammatikk" ;
language_N = mk2N "språk" "språket" ;
rule_N = mkN "regel" "regelen" "regler" "reglene" ;
} ;
-- a" -> e" 86
-- ö -> ø 66
-- ck -> kk 20
-- ä -> e 44

6
lib/resource/norwegian/MathNor.gf
View File

@@ -1,4 +1,2 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete MathNor of Math = CategoriesNor **
MathScand with (SyntaxScand=SyntaxNor) ;
concrete MathNor of Math = CatNor ** MathScand with
(ResScand = ResNor) ;

277
lib/resource/norwegian/MorphoNor.gf
View File

@@ -8,38 +8,30 @@
--
-- We use the parameter types and word classes defined for morphology.
resource MorphoNor = open Predef, Prelude, TypesNor in {
-- Danish grammar source: http://users.cybercity.dk/~nmb3879/danish.html
resource MorphoNor = CommonScand, ResNor ** open Prelude, Predef in {
-- genders
oper
masc = Utr Masc ;
fem = Utr NoMasc ;
fem = Utr Fem ;
neutr = Neutr ;
-- type synonyms
Subst : Type = {s : Number => Species => Case => Str} ;
Adj = Adjective ;
-- nouns
oper
mkSubstantive : (_,_,_,_ : Str) -> {s : SubstForm => Str} =
\dreng, drengen, drenger, drengene -> {s = table {
SF Sg Indef c => mkCase dreng ! c ;
SF Sg Def c => mkCase drengen ! c ;
SF Pl Indef c => mkCase drenger ! c ;
SF Pl Def c => mkCase drengene ! c
}
} ;
mkSubstantive : (_,_,_,_ : Str) -> Subst =
\dreng, drengen, drenger, drengene ->
{s = nounForms dreng drengen drenger drengene} ;
mkCase : Str -> Case => Str = \bil -> table {
Nom => bil ;
Gen => bil + "s" --- but: hus --> hus
} ;
extNGen : Str -> NounGender = \s -> case last s of {
"n" => NUtr Masc ;
"a" => NUtr NoMasc ;
_ => NNeutr
extNGen : Str -> Gender = \s -> case last s of {
"n" => Utr Masc ;
"a" => Utr Fem ;
_ => Neutr
} ;
nBil : Str -> Subst = \bil ->
@@ -58,67 +50,61 @@ oper
mkSubstantive hotell (hotell + "et") (hotell + "er") (hotell + "ene") **
{h1 = neutr} ;
-- adjectives
mkAdjective : (_,_,_,_,_ : Str) -> Adj =
mkAdject : (_,_,_,_,_ : Str) -> Adj =
\stor,stort,store,storre,storst -> {s = table {
AF (Posit (Strong (ASg (Utr _)))) c => mkCase stor ! c ;
AF (Posit (Strong (ASg Neutr))) c => mkCase stort ! c ;
AF (Posit _) c => mkCase store ! c ;
AF Compar c => mkCase storre ! c ;
AF (Super SupStrong) c => mkCase storst ! c ;
AF (Super SupWeak) c => mkCase (storst + "e") ! c
AF (APosit (Strong SgUtr )) c => mkCase c stor ;
AF (APosit (Strong SgNeutr)) c => mkCase c stort ;
AF (APosit _) c => mkCase c store ;
AF ACompar c => mkCase c storre ;
AF (ASuperl SupStrong) c => mkCase c storst ;
AF (ASuperl SupWeak) c => mkCase c (storst + "e")
}
} ;
aRod : Str -> Adj = \rod ->
mkAdjective rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ;
mkAdject rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ;
aAbstrakt : Str -> Adj = \abstrakt ->
mkAdjective abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ;
mkAdject abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ;
aRask : Str -> Adj = \rask ->
mkAdjective rask rask (rask + "e") (rask + "ere") (rask + "est") ;
mkAdject rask rask (rask + "e") (rask + "ere") (rask + "est") ;
aBillig : Str -> Adj = \billig ->
mkAdjective billig billig (billig + "e") (billig + "ere") (billig + "st") ;
extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj ->
{s = \\a,c => adj.s ! (AF (Posit a) c)} ;
mkAdject billig billig (billig + "e") (billig + "ere") (billig + "st") ;
-- verbs
mkVerb : (_,_,_,_,_,_ : Str) -> Verbum =
Verbum : Type = {s : VForm => Str} ;
mkVerb6 : (_,_,_,_,_,_ : Str) -> Verbum =
\spise,spiser,spises,spiste,spist,spis -> {s = table {
VI (Inf v) => mkVoice v spise ;
VF (Pres Act) => spiser ;
VF (Pres Pass) => spises ;
VF (Pret v) => mkVoice v spiste ;
VI (Supin v) => mkVoice v spist ;
VI (PtPret (Strong (ASg _)) c) => mkCase spist ! c ;
VI (PtPret _ c) => case last spist of {
"a" => mkCase spist ! c ;
_ => mkCase (spist + "e") ! c
VI (VInfin v) => mkVoice v spise ;
VF (VPres Act) => spiser ;
VF (VPres Pass) => spises ;
VF (VPret v) => mkVoice v spiste ; --# notpresent
VI (VSupin v) => mkVoice v spist ; --# notpresent
VI (VPtPret (Strong (SgUtr | SgNeutr)) c) => mkCase c spist ;
VI (VPtPret _ c) => case last spist of {
"a" => mkCase c spist ;
_ => mkCase c (spist + "e")
} ;
VF (Imper v) => mkVoice v spis
VF (VImper v) => mkVoice v spis
}
} ;
mkVoice : Voice -> Str -> Str = \v,s -> case v of {
Act => s ;
Pass => s + case last s of {
"s" => "es" ;
_ => "s"
}
} ;
vHusk : Str -> Verbum = \husk ->
let huska : Str = husk + "a" ---- variants {husk + "a" ; husk + "et"}
in
mkVerb (husk + "e") (husk + "er") (husk + "es") huska huska husk ;
mkVerb6 (husk + "e") (husk + "er") (husk + "es") huska huska husk ;
vSpis : Str -> Verbum = \spis ->
mkVerb (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ;
mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ;
vLev : Str -> Verbum = \lev ->
let lever = case last lev of {
@@ -126,10 +112,10 @@ extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj ->
_ => lev + "er"
}
in
mkVerb (lev + "e") lever (lev + "es") (lev + "de") (lev + "d") lev ;
mkVerb6 (lev + "e") lever (lev + "es") (lev + "de") (lev + "d") lev ;
vBo : Str -> Verbum = \bo ->
mkVerb bo (bo + "r") (bo + "es") (bo + "dde") (bo + "dd") bo ;
mkVerb6 bo (bo + "r") (bo + "es") (bo + "dde") (bo + "dd") bo ;
regVerb : Str -> Str -> Verbum = \spise, spiste ->
let
@@ -145,150 +131,41 @@ extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj ->
_ => vHusk spis
} ;
irregVerb : (drikke,drakk,drukket : Str) -> Verbum =
\drikke,drakk,drukket ->
let
drikk = init drikke ;
drikker = case last (init drikke) of {
"r" => drikk ;
_ => drikke + "r"
}
in
mkVerb drikke drikker (drikke + "s") drakk drukket drikk ;
-- pronouns
oper jag_32 : ProPN =
{s = table {
PNom => "jeg" ;
PAcc => "meg" ;
PGen (ASg (Utr Masc)) => "min" ;
PGen (ASg (Utr NoMasc)) => "mi" ;
PGen (ASg Neutr) => "mitt" ;
PGen APl => "mine"
} ;
h1 = Utr Masc ; -- Masc doesn't matter
h2 = Sg ;
h3 = P1
} ;
oper du_33 : ProPN =
{s = table {
PNom => "du" ;
PAcc => "deg" ;
PGen (ASg (Utr Masc)) => "din" ;
PGen (ASg (Utr NoMasc)) => "di" ;
PGen (ASg Neutr) => "ditt" ;
PGen APl => "dine"
} ;
h1 = Utr Masc ;
h2 = Sg ;
h3 = P2
} ;
oper han_34 : ProPN =
{s = table {
PNom => "han" ;
PAcc => "ham" ;
PGen (ASg (Utr _)) => "hans" ;
PGen (ASg Neutr) => "hans" ;
PGen APl => "hans"
} ;
h1 = masc ;
h2 = Sg ;
h3 = P3
} ;
oper hon_35 : ProPN =
{s = table {
PNom => "hun" ;
PAcc => "henne" ;
PGen (ASg (Utr _)) => "hennes" ;
PGen (ASg Neutr) => "hennes" ;
PGen APl => "hennes"
} ;
h1 = fem ;
h2 = Sg ;
h3 = P3
} ;
oper vi_36 : ProPN =
{s = table {
PNom => "vi" ;
PAcc => "oss" ;
PGen (ASg (Utr _)) => "vår" ;
PGen (ASg Neutr) => "vårt" ;
PGen APl => "våre"
} ;
h1 = Utr Masc ;
h2 = Pl ;
h3 = P1
} ;
oper ni_37 : ProPN =
{s = table {
PNom => "dere" ;
PAcc => "dere" ;
PGen _ => "deres"
} ;
h1 = Utr Masc ;
h2 = Pl ;
h3 = P2
} ;
oper de_38 : ProPN =
{s = table {
PNom => "de" ;
PAcc => "dem" ;
PGen _ => "deres"
} ;
h1 = Utr Masc ;
h2 = Pl ;
h3 = P3
} ;
oper De_38 : ProPN =
{s = table {
PNom => "Dere" ;
PAcc => "Dere" ;
PGen _ => "Deres"
} ;
h1 = Utr Masc ;
h2 = Sg ;
h3 = P2
} ;
oper den_39 : ProPN =
{s = table {
PNom => "de" ;
PAcc => "den" ;
PGen _ => "dens"
} ;
h1 = Utr Masc ;
h2 = Sg ;
h3 = P3
} ;
oper det_40 : ProPN =
{s = table {
PNom => "det" ;
PAcc => "det" ;
PGen _ => "dets"
} ;
h1 = Neutr ;
h2 = Sg ;
h3 = P3
} ;
-- from Numerals
-- For $Numeral$.
param DForm = ental | ton | tiotal ;
oper mkTal : Str -> Str -> Str -> {s : DForm => Str} =
\två -> \tolv -> \tjugo ->
{s = table {ental => två ; ton => tolv ; tiotal => tjugo}} ;
oper regTal : Str -> {s : DForm => Str} = \fem -> mkTal fem (fem + "ten") (fem + "ti") ;
oper
LinDigit = {s : DForm => CardOrd => Str} ;
cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje ->
table {
NCard _ => tre ;
NOrd a => tredje ---- a
} ;
cardReg : Str -> CardOrd => Str = \syv ->
cardOrd syv (syv + case last syv of {
"n" => "de" ;
"e" => "nde" ;
_ => "ende"
}) ;
mkTal : (x1,_,_,_,x5 : Str) -> LinDigit =
\två, tolv, tjugo, andra, tolfte ->
{s = table {
ental => cardOrd två andra ;
ton => cardOrd tolv tolfte ;
tiotal => cardReg tjugo
}
} ;
numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n ->
{s = n ; n = Pl} ;
invNum : CardOrd = NCard Neutr ;
numPl : Str -> {s : Gender => Str ; n : Number} = \n ->
{s = \\_ => n ; n = Pl} ;
}

7
lib/resource/norwegian/Norwegian.gf Normal file
View File

@@ -0,0 +1,7 @@
--# -path=.:../scandinavian:../abstract:../common:prelude
concrete Norwegian of NorwegianAbs =
LangNor,
IrregNor - [fly_V],
ExtraNor
** {} ;

5
lib/resource/norwegian/NorwegianAbs.gf Normal file
View File

@@ -0,0 +1,5 @@
abstract NorwegianAbs =
Lang,
IrregNorAbs - [fly_V],
ExtraNorAbs
** {} ;

2
lib/resource/norwegian/NounNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete NounNor of Noun = CatNor ** NounScand with
(ResScand = ResNor) ;

47
lib/resource/norwegian/NumeralNor.gf Normal file
View File

@@ -0,0 +1,47 @@
concrete NumeralNor of Numeral = CatNor ** open ResScand, MorphoNor in {
lincat
Digit = {s : DForm => CardOrd => Str} ;
Sub10 = {s : DForm => CardOrd => Str ; n : Number} ;
Sub100, Sub1000, Sub1000000 =
{s : CardOrd => Str ; n : Number} ;
lin
num x = x ;
n2 = mkTal "to" "tolv" "tjue" "andre" "tolfte" ;
n3 = mkTal "tre" "tretten" "tretti" "tredje" "trettende" ;
n4 = mkTal "fire" "fjorten" "førti" "fjerde" "fjortende" ;
n5 = mkTal "fem" "femten" "femti" "femte" "femtende" ;
n6 = mkTal "seks" "seksten" "seksti" "sjette" "sextende" ;
n7 = mkTal "sju" "sytten" "sytti" "syvende" "syttende" ;
n8 = mkTal "åtte" "atten" "åtti" "åttende" "attende" ;
n9 = mkTal "ni" "nitten" "nitti" "niende" "nittende" ;
pot01 = {
s = \\f => table {
NCard g => case g of {Neutr => "ett" ; _ => "en"} ;
_ => "første"
} ;
n = Sg
} ;
pot0 d = {s = \\f,g => d.s ! f ! g ; n = Pl} ;
pot110 = numPl (cardReg "ti") ;
pot111 = numPl (cardOrd "elve" "elfte") ;
pot1to19 d = numPl (d.s ! ton) ;
pot0as1 n = {s = n.s ! ental ; n = n.n} ;
pot1 d = numPl (d.s ! tiotal) ;
pot1plus d e = {s = \\g => d.s ! tiotal ! invNum ++ e.s ! ental ! g ; n = Pl} ;
pot1as2 n = n ;
pot2 d =
numPl (\\g => d.s ! ental ! invNum ++ cardOrd "hundre" "hundrede" ! g) ;
pot2plus d e =
{s = \\g => d.s ! ental ! invNum ++ "hundre" ++ "og" ++ e.s ! g ; n = Pl} ;
pot2as3 n = n ;
pot3 n =
numPl (\\g => n.s ! invNum ++ cardOrd "tusen" "tusende" ! g) ;
pot3plus n m =
{s = \\g => n.s ! invNum ++ "tusen" ++ "og" ++ m.s ! g ; n = Pl} ;
}

41
lib/resource/norwegian/NumeralsNor.gf
View File

@@ -1,41 +0,0 @@
-- norsk bokmol, by Herman R Jervell herman.jervell@ilf.uio.no,
-- 6/3/2001
concrete NumeralsNor of Numerals = open Prelude, TypesNor, MorphoNor in {
lincat Numeral = {s : Gender => Str ; n : Number} ;
lincat Digit = {s : DForm => Str} ;
lincat Sub10 = {s : DForm => Gender => Str ; n : Number} ;
lincat Sub100 = {s : Gender => Str ; n : Number} ;
lincat Sub1000 = {s : Gender => Str ; n : Number} ;
lincat Sub1000000 = {s : Gender => Str ; n : Number} ;
lin num x = x ;
lin n2 = mkTal "to" "tolv" "tjue" ;
lin n3 = mkTal "tre" "tretten" "tretti" ;
lin n4 = mkTal "fire" "fjorten" "førti" ;
lin n5 = regTal "fem" ;
lin n6 = regTal "seks" ;
lin n7 = mkTal "sju" "sytten" "sytti" ;
lin n8 = mkTal "åtte" "atten" "åtti" ;
lin n9 = mkTal "ni" "nitten" "nitti" ;
lin pot01 = {s = table {f => table {Neutr => "ett" ; _ => "én"}} ; n = Sg} ;
lin pot0 d = {s = \\f,g => d.s ! f ; n = Pl} ;
lin pot110 = numPl "ti" ;
lin pot111 = numPl "elve" ;
lin pot1to19 d = numPl (d.s ! ton) ;
lin pot0as1 n = {s = n.s ! ental ; n = n.n} ;
lin pot1 d = numPl (d.s ! tiotal) ;
lin pot1plus d e = {s = \\g => d.s ! tiotal ++ e.s ! ental ! g ; n = Pl} ;
lin pot1as2 n = n ;
lin pot2 d = numPl (d.s ! ental ! Neutr ++ "hundre") ;
lin pot2plus d e = {s = \\g => d.s ! ental ! Neutr ++ "hundre" ++ "og" ++ e.s ! g ; n = Pl} ;
lin pot2as3 n = n ;
lin pot3 n = numPl (n.s ! Neutr ++ "tusen") ;
lin pot3plus n m = {s = \\g => n.s ! Neutr ++ "tusen" ++ "og" ++ m.s ! g ; n = Pl} ;
}

269
lib/resource/norwegian/ParadigmsNor.gf
View File

@@ -1,15 +1,16 @@
--# -path=.:../scandinavian:../abstract:../../prelude
--# -path=.:../scandinavian:../common:../abstract:../../prelude
--1 Norwegian Lexical Paradigms
--
-- Aarne Ranta 2003
--
-- This is an API to the user of the resource grammar
-- This is an API for the user of the resource grammar
-- for adding lexical items. It gives functions for forming
-- expressions of open categories: nouns, adjectives, verbs.
--
-- It covers the "bokmål" variant of Norwegian.
--
-- Closed categories (determiners, pronouns, conjunctions) are
-- accessed through the resource syntax API, $Structural.gf$.
-- accessed through the resource syntax API, $Structural$.
--
-- The main difference with $MorphoNor.gf$ is that the types
-- referred to are compiled resource grammar types. We have moreover
@@ -21,13 +22,17 @@
-- regular cases. Then we give a worst-case function $mkC$, which serves as an
-- escape to construct the most irregular words of type $C$.
-- However, this function should only seldom be needed: we have a
-- separate module $IrregularEng$, which covers all irregularly inflected
-- words.
--
-- The following modules are presupposed:
-- separate module [``IrregNor`` ../../norwegian/IrregNor],
-- which covers irregularly inflected verbs.
resource ParadigmsNor =
open (Predef=Predef), Prelude, TypesNor, MorphoNor, SyntaxNor, CategoriesNor in {
open
(Predef=Predef),
Prelude,
CommonScand,
ResNor,
MorphoNor,
CatNor in {
--2 Parameters
--
@@ -56,7 +61,8 @@ oper
-- Prepositions used in many-argument functions are just strings.
Preposition : Type = Str ;
mkPrep : Str -> Prep ;
noPrep : Prep ; -- empty string
--2 Nouns
@@ -65,11 +71,17 @@ oper
mkN : (dreng,drengen,drenger,drengene : Str) -> N ;
-- The regular function takes the singular indefinite form and the gender,
-- and computes the other forms by a heuristic.
-- The regular function takes the singular indefinite form
-- and computes the other forms and the gender by a heuristic.
-- The heuristic is that nouns ending "e" are feminine like "kvinne",
-- all others are masculine like "bil".
-- If in doubt, use the $cc$ command to test!
regN : Str -> Gender -> N ;
regN : Str -> N ;
-- Giving gender manually makes the heuristic more reliable.
regGenN : Str -> Gender -> N ;
-- This function takes the singular indefinite and definite forms; the
-- gender is computed from the definite form.
@@ -85,27 +97,28 @@ oper
--3 Relational nouns
--
-- Relational nouns ("daughter of x") need a preposition.
-- Relational nouns ("datter til x") need a preposition.
mkN2 : N -> Preposition -> N2 ;
mkN2 : N -> Prep -> N2 ;
-- The most common preposition is "av", and the following is a
-- shortcut for regular, $nonhuman$ relational nouns with "av".
regN2 : Str -> Gender -> N2 ;
-- Use the function $mkPreposition$ or see the section on prepositions below to
-- Use the function $mkPrep$ or see the section on prepositions below to
-- form other prepositions.
--
-- Three-place relational nouns ("the connection from x to y") need two prepositions.
-- Three-place relational nouns ("forbindelse fra x til y")
-- need two prepositions.
mkN3 : N -> Preposition -> Preposition -> N3 ;
mkN3 : N -> Prep -> Prep -> N3 ;
--3 Relational common noun phrases
--
-- In some cases, you may want to make a complex $CN$ into a
-- relational noun (e.g. "the old town hall of"). However, $N2$ and
-- relational noun (e.g. "den gamle kongen av"). However, $N2$ and
-- $N3$ are purely lexical categories. But you can use the $AdvCN$
-- and $PrepNP$ constructions to build phrases like this.
@@ -114,7 +127,8 @@ oper
--
-- Proper names, with a regular genitive, are formed as follows
regPN : Str -> Gender -> PN ; -- John, John's
regPN : Str -> PN ; -- utrum
regGenPN : Str -> Gender -> PN ;
-- Sometimes you can reuse a common noun as a proper name, e.g. "Bank".
@@ -143,53 +157,44 @@ oper
--
-- Two-place adjectives need a preposition for their second argument.
mkA2 : A -> Preposition -> A2 ;
mkA2 : A -> Prep -> A2 ;
-- Comparison adjectives may need as many as five forms.
mkADeg : (stor,stort,store,storre,storst : Str) -> ADeg ;
mkADeg : (stor,stort,store,storre,storst : Str) -> A ;
-- The regular pattern works for many adjectives, e.g. those ending
-- with "ig".
regADeg : Str -> ADeg ;
regADeg : Str -> A ;
-- Just the comparison forms can be irregular.
irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ;
irregADeg : (tung,tyngre,tyngst : Str) -> A ;
-- Sometimes just the positive forms are irregular.
mk3ADeg : (galen,galet,galna : Str) -> ADeg ;
mk2ADeg : (bred,bredt : Str) -> ADeg ;
mk3ADeg : (galen,galet,galne : Str) -> A ;
mk2ADeg : (bred,bredt : Str) -> A ;
-- If comparison is formed by "mer, "mest", as in general for
-- If comparison is formed by "mer", "mest", as in general for
-- long adjective, the following pattern is used:
compoundADeg : A -> ADeg ; -- -/mer/mest norsk
-- From a given $ADeg$, it is possible to get back to $A$.
adegA : ADeg -> A ;
compoundA : A -> A ; -- -/mer/mest norsk
--2 Adverbs
-- Adverbs are not inflected. Most lexical ones have position
-- after the verb. Some can be preverbal (e.g. "always").
-- after the verb. Some follow the verb (e.g. "altid").
mkAdv : Str -> Adv ;
mkAdV : Str -> AdV ;
mkAdv : Str -> Adv ; -- e.g. her
mkAdV : Str -> AdV ; -- e.g. altid
-- Adverbs modifying adjectives and sentences can also be formed.
mkAdA : Str -> AdA ;
--2 Prepositions
--
-- A preposition is just a string.
mkPreposition : Str -> Preposition ;
--2 Verbs
--
@@ -205,30 +210,39 @@ oper
mk2V : (leve,levde : Str) -> V ;
-- There is an extensive list of irregular verbs in the module $IrregularSwe$.
-- There is an extensive list of irregular verbs in the module $IrregNor$.
-- In practice, it is enough to give three forms, as in school books.
irregV : (drikke, drakk, drukket : Str) -> V ;
--3 Verbs with 'være' as auxiliary
--
-- By default, the auxiliary is "have". This function changes it to "være".
vaereV : V -> V ;
--3 Verbs with a particle.
--
-- The particle, such as in "switch on", is given as a string.
-- The particle, such as in "lukke opp", is given as a string.
partV : V -> Str -> V ;
--3 Deponent verbs.
--
-- Some words are used in passive forms only, e.g. "hoppas".
-- Some words are used in passive forms only, e.g. "trives", some as
-- reflexive e.g. "forestille seg".
depV : V -> V ;
reflV : V -> V ;
--3 Two-place verbs
--
-- Two-place verbs need a preposition, except the special case with direct object.
-- (transitive verbs). Notice that a particle comes from the $V$.
mkV2 : V -> Preposition -> V2 ;
mkV2 : V -> Prep -> V2 ;
dirV2 : V -> V2 ;
@@ -237,9 +251,9 @@ oper
-- Three-place (ditransitive) verbs need two prepositions, of which
-- the first one or both can be absent.
mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about
dirV3 : V -> Str -> V3 ; -- give,_,to
dirdirV3 : V -> V3 ; -- give,_,_
mkV3 : V -> Prep -> Prep -> V3 ; -- snakke, med, om
dirV3 : V -> Prep -> V3 ; -- gi,_,til
dirdirV3 : V -> V3 ; -- gi,_,_
--3 Other complement patterns
--
@@ -248,126 +262,175 @@ oper
mkV0 : V -> V0 ;
mkVS : V -> VS ;
mkV2S : V -> Str -> V2S ;
mkV2S : V -> Prep -> V2S ;
mkVV : V -> VV ;
mkV2V : V -> Str -> Str -> V2V ;
mkV2V : V -> Prep -> Prep -> V2V ;
mkVA : V -> VA ;
mkV2A : V -> Str -> V2A ;
mkV2A : V -> Prep -> V2A ;
mkVQ : V -> VQ ;
mkV2Q : V -> Str -> V2Q ;
mkV2Q : V -> Prep -> V2Q ;
mkAS : A -> AS ;
mkA2S : A -> Str -> A2S ;
mkA2S : A -> Prep -> A2S ;
mkAV : A -> AV ;
mkA2V : A -> Str -> A2V ;
mkA2V : A -> Prep -> A2V ;
-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated
-- just as synonyms of $V2$, and the second argument is given
-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$.
-- $V0$ is just $V$.
V0, V2S, V2V, V2A, V2Q : Type ;
AS, A2S, AV, A2V : Type ;
--.
--2 Definitions of the paradigms
--
-- The definitions should not bother the user of the API. So they are
-- hidden from the document.
--.
Gender = SyntaxNor.NounGender ;
Number = TypesNor.Number ;
Case = TypesNor.Case ;
masculine = NUtr Masc ;
feminine = NUtr NoMasc ;
neutrum = NNeutr ;
Gender = MorphoNor.Gender ;
Number = MorphoNor.Number ;
Case = MorphoNor.Case ;
masculine = Utr Masc ;
feminine = Utr Fem ;
neutrum = Neutr ;
singular = Sg ;
plural = Pl ;
nominative = Nom ;
genitive = Gen ;
mkN x y z u = let sb = mkSubstantive x y z u
in {s = \\n,b,c => sb.s ! SF n b c ; g = extNGen y ; lock_N = <>} ;
regN x g = case last x of {
mkN x y z u = mkSubstantive x y z u ** {g = extNGen y ; lock_N = <>} ;
regN x = regGenN x g where {
g = case <x : Str> of {
_ + "e" => Utr Fem ;
_ => Utr Masc
}
} ;
regGenN x g = case last x of {
"e" => case g of {
NUtr Masc => mkN x (x + "n") (x + "r") (x + "ne") ;
NUtr NoMasc => mkN x (init x + "a") (x + "r") (x + "ne") ;
NNeutr => mkN x (x + "t") (x + "r") (init x + "a")
Utr Masc => mkN x (x + "n") (x + "r") (x + "ne") ;
Utr Fem => mkN x (init x + "a") (x + "r") (x + "ne") ;
Neutr => mkN x (x + "t") (x + "r") (init x + "a")
} ;
_ => case g of {
NUtr Masc => mkN x (x + "en") (x + "er") (x + "ene") ;
NUtr NoMasc => mkN x (x + "a") (x + "er") (x + "ene") ;
NNeutr => mkN x (x + "et") (x + "") (x + "a")
Utr Masc => mkN x (x + "en") (x + "er") (x + "ene") ;
Utr Fem => mkN x (x + "a") (x + "er") (x + "ene") ;
Neutr => mkN x (x + "et") (x + "") (x + "a")
}
} ;
mk2N x y = case last y of {
"n" => regN x masculine ;
"a" => regN x feminine ;
_ => regN x neutrum
"n" => regGenN x masculine ;
"a" => regGenN x feminine ;
_ => regGenN x neutrum
} ;
mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ;
regN2 n g = mkN2 (regN n g) (mkPreposition "av") ;
mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ;
mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ;
regN2 n g = mkN2 (regGenN n g) (mkPrep "av") ;
mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ;
regPN n g = {s = \\c => mkCase n ! c ; g = g} ** {lock_PN = <>} ;
regGenPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ;
regPN n = regGenPN n utrum ;
nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ;
mkNP x y n g =
{s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ;
{s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ;
lock_NP = <>} ;
mkA a b c = extractPositive (mkAdjective a b c [] []) ** {lock_A = <>} ;
mkA a b c = (mkAdject a b c [] []) ** {isComp = False ; lock_A = <>} ;
mk2A a b = mkA a b (a + "e") ;
regA a = extractPositive (regADeg a) ** {lock_A = <>} ;
regA a = (regADeg a) ** {isComp = False ; lock_A = <>} ;
mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ;
mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ;
mkADeg a b c d e = mkAdjective a b c d e ** {lock_ADeg = <>} ;
mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ;
regADeg a = case Predef.dp 2 a of {
"ig" => aBillig a ;
"sk" => aRask a ;
_ => aRod a
} ** {lock_ADeg = <>} ;
irregADeg a b c = mkAdjective a (a + "t") (a + "e") b c ** {lock_ADeg = <>} ;
mk3ADeg a b c = mkAdjective a b c (a + "ere") (a + "est") ** {lock_ADeg = <>} ;
mk2ADeg a b = mkAdjective a b (a + "e") (a + "ere") (a + "est") ** {lock_ADeg = <>} ;
} ** {isComp = False ; lock_A = <>} ;
irregADeg a b c = mkAdject a (a + "t") (a + "e") b c **
{isComp = False ; lock_A = <>} ;
mk3ADeg a b c = mkAdject a b c (a + "ere") (a + "est") **
{isComp = False ; lock_A = <>} ;
mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") **
{isComp = False ; lock_A = <>} ;
compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ;
mkAdv x = ss x ** {lock_Adv = <>} ;
mkAdV x = ss x ** {lock_AdV = <>} ;
mkAdA x = ss x ** {lock_AdA = <>} ;
mkPreposition p = p ;
mkPrep p = {s = p ; lock_Prep = <>} ;
noPrep = mkPrep [] ;
mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ;
mkV a b c d e f = mkVerb6 a b c d e f **
{part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ;
regV a = case last a of {
"e" => vHusk (init a) ;
_ => vBo a
} ** {s1 = [] ; lock_V = <>} ;
} ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ;
mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ;
mk2V a b = regVerb a b ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ;
irregV x y z = irregVerb x y z
** {s1 = [] ; lock_V = <>} ;
irregV =
\drikke,drakk,drukket ->
let
drikk = case last drikke of {
"e" => init drikke ;
_ => drikke
} ;
drikker = case last (init drikke) of {
"r" => init drikke ;
_ => drikke + "r"
}
in
mkV drikke drikker (drikke + "s") drakk drukket drikk ;
partV v p = {s = v.s ; s1 = p ; lock_V = <>} ;
depV v = deponentVerb v ** {lock_V = <>} ;
vaereV v = {
s = v.s ;
part = [] ;
vtype = v.vtype ;
isVaere = True ;
lock_V = <>
} ;
mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ;
dirV2 v = mkV2 v [] ;
partV v p = {s = v.s ; part = p ; vtype = v.vtype ; isVaere = v.isVaere ; lock_V = <>} ;
depV v = {s = v.s ; part = v.part ; vtype = VPass ; isVaere = False ; lock_V = <>} ;
reflV v = {s = v.s ; part = v.part ; vtype = VRefl ; isVaere = False ; lock_V = <>} ;
mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ;
dirV3 v p = mkV3 v [] p ;
dirdirV3 v = dirV3 v [] ;
mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ;
dirV2 v = mkV2 v noPrep ;
mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ;
dirV3 v p = mkV3 v noPrep p ;
dirdirV3 v = dirV3 v noPrep ;
mkV0 v = v ** {lock_V0 = <>} ;
mkVS v = v ** {lock_VS = <>} ;
mkV2S v p = mkV2 v p ** {lock_V2S = <>} ;
mkVV v = v ** {isAux = False ; lock_VV = <>} ;
mkVV v = v ** {c2 = "å" ; lock_VV = <>} ;
mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ;
mkVA v = v ** {lock_VA = <>} ;
mkV2A v p = mkV2 v p ** {lock_V2A = <>} ;
mkVQ v = v ** {lock_VQ = <>} ;
mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ;
mkAS v = v ** {lock_AS = <>} ;
mkA2S v p = mkA2 v p ** {lock_A2S = <>} ;
mkAV v = v ** {lock_AV = <>} ;
mkA2V v p = mkA2 v p ** {lock_A2V = <>} ;
mkAS v = v ** {lock_A = <>} ;
mkA2S v p = mkA2 v p ** {lock_A = <>} ;
mkAV v = v ** {lock_A = <>} ;
mkA2V v p = mkA2 v p ** {lock_A = <>} ;
V0 : Type = V ;
V2S, V2V, V2Q, V2A : Type = V2 ;
AS, A2S, AV : Type = A ;
A2V : Type = A2 ;
} ;

2
lib/resource/norwegian/PhraseNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete PhraseNor of Phrase = CatNor ** PhraseScand with
(ResScand = ResNor) ;

2
lib/resource/norwegian/QuestionNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete QuestionNor of Question = CatNor ** QuestionScand with
(ResScand = ResNor) ;

2
lib/resource/norwegian/RelativeNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete RelativeNor of Relative = CatNor ** RelativeScand with
(ResScand = ResNor) ;

3
lib/resource/norwegian/ResNor.gf Normal file
View File

@@ -0,0 +1,3 @@
instance ResNor of ResScand = DiffNor ** open CommonScand, Prelude in {
} ;

4
lib/resource/norwegian/ResourceNor.gf
View File

@@ -1,4 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete ResourceNor of Resource = RulesNor, StructuralNor, ClauseNor ** {} ;

4
lib/resource/norwegian/RulesNor.gf
View File

@@ -1,4 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete RulesNor of Rules = CategoriesNor **
RulesScand with (SyntaxScand=SyntaxNor) ;

2
lib/resource/norwegian/SentenceNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete SentenceNor of Sentence = CatNor ** SentenceScand with
(ResScand = ResNor) ;

160
lib/resource/norwegian/StructuralNor.gf
View File

@@ -1,100 +1,126 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete StructuralNor of Structural = CatNor **
open MorphoNor, ParadigmsNor, Prelude in {
--1 The Top-Level Norwegian Resource Grammar: Structural Words
--
-- Aarne Ranta 2002 -- 2004
--
concrete StructuralNor of Structural =
CategoriesNor, NumeralsNor ** open Prelude, MorphoNor, SyntaxNor in {
flags optimize=all ;
lin
UseNumeral i = {s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ; n = i.n} ;
above_Prep = ss "ovenfor" ;
after_Prep = ss "etter" ;
by8agent_Prep = ss "av" ;
all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ;
all_NDet = mkDeterminerPlNum "alle" IndefP ;
almost_Adv = ss "nesten" ;
all_Predet = {s = gennumForms "all" "alt" "alle"} ;
almost_AdA, almost_AdN = ss "nesten" ;
although_Subj = ss ["selv om"] ;
always_AdV = ss "altid" ;
and_Conj = ss "og" ** {n = Pl} ;
because_Subj = ss ["fordi"] ;
because_Subj = ss "fordi" ;
before_Prep = ss "før" ;
behind_Prep = ss "bakom" ;
between_Prep = ss "mellom" ;
both_AndConjD = sd2 "både" "og" ** {n = Pl} ;
both7and_DConj = sd2 "både" "og" ** {n = Pl} ;
but_PConj = ss "men" ;
by8means_Prep = ss "med" ;
can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
{s1 = [] ; isAux = True} ;
can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
{s1 = [] ; isAux = True} ;
can8know_VV, can_VV =
mkV "kunne" "kan" nonExist "kunne" "kunnet" nonExist **
{c2 = [] ; lock_VV = <>} ;
during_Prep = ss "under" ;
either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ;
everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in
{s = \\c => alla ! npCase c ; g = Utr Masc ; n = Pl ; p = P3} ;
every_Det = varjeDet ;
everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ;
everywhere_Adv = advPost "overalt" ;
either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ;
everybody_NP = regNP "alle" "alles" Plg ;
every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ;
everything_NP = regNP "alt" "alts" SgNeutr ;
everywhere_Adv = ss "overalt" ;
few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ;
first_Ord = {s = "første" ; isDet = True} ;
from_Prep = ss "fra" ;
he_NP = pronNounPhrase han_34 ;
he_Pron = MorphoNor.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ;
here_Adv = ss "her" ;
here7to_Adv = ss "hit" ;
here7from_Adv = ss "herfra" ;
how_IAdv = ss "hvor" ;
how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ;
how8many_IDet = {s = \\_ => ["hur mange"] ; n = Pl ; det = DDef Indef} ;
if_Subj = ss "hvis" ;
in8front_Prep = ss "foran" ;
i_NP = pronNounPhrase jag_32 ;
i_Pron =
MorphoNor.mkNP "jeg" "meg" (variants {"min" ; "mi"}) "mit" "mine" SgUtr P1 ; --- mi
in_Prep = ss "i" ;
it_NP = pronNounPhrase det_40 ; ----
many_Det = mkDeterminerPl "mange" IndefP ;
most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ;
most8many_Det = flestaDet ;
much_Det = mkDeterminerSg (detSgInvar "mye") IndefP ;
must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "mått" **
{s1 = [] ; isAux = True} ;
it_Pron = MorphoNor.regNP "det" "dets" SgNeutr ;
less_CAdv = ss "mindre" ;
many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ;
more_CAdv = ss "mer" ;
most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ;
much_Det = {s = \\_,_ => "mye" ; n = Pl ; det = DDef Indef} ;
must_VV =
mkV "måtte" "må" "få" "måtte" "måttet" "mått" ** {c2 = [] ; lock_VV = <>} ;
no_Phr = ss ["Nei"] ;
on_Prep = ss "på" ;
one_Quant = {s = \\_ => genderForms ["en"] ["et"] ; n = Sg ; det = DIndef} ; --- ei
only_Predet = {s = \\_ => "kun"} ;
or_Conj = ss "eller" ** {n = Sg} ;
otherwise_Adv = ss "annerledes" ; ---- ?
otherwise_PConj = ss "annarledes" ;
part_Prep = ss "av" ;
no_Phr = ss ["Nei ."] ;
yes_Phr = ss ["Ja ."] ;
please_Voc = ss "takk" ; ---
possess_Prep = ss "av" ;
quite_Adv = ss "temmelig" ;
she_NP = pronNounPhrase hon_35 ;
so_Adv = ss "så" ;
somebody_NP = nameNounPhrase (mkProperName "noen" (NUtr Masc)) ;
some_Det = mkDeterminerSgGender2 "noen" "noe" IndefP ;
some_NDet = mkDeterminerPlNum "noen" IndefP ;
something_NP = nameNounPhrase (mkProperName "noe" NNeutr) ;
somewhere_Adv = advPost ["et eller annet sted"] ; ---- ?
that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Def) ;
that_NP = regNameNounPhrase ["det"] NNeutr ;
therefore_Adv = ss "derfor" ;
these_NDet = mkDeterminerPlNum ["disse"] (DefP Def) ;
they8fem_NP = pronNounPhrase de_38 ;
they_NP = pronNounPhrase de_38 ;
this_Det = mkDeterminerSgGender2 ["denne"] ["dette"] (DefP Def) ;
this_NP = regNameNounPhrase ["dette"] NNeutr ;
those_NDet = mkDeterminerPlNum ["de der"] (DefP Def) ;
thou_NP = pronNounPhrase du_33 ;
she_Pron = MorphoNor.mkNP "hun" "henne" "hennes" "hennes" "hennes" SgUtr P3 ;
so_AdA = ss "så" ;
someSg_Det = {s = \\_ => genderForms "noen" "noe" ; n = Sg ; det = DIndef} ;
somePl_Det = {s = \\_,_ => "noen" ; n = Pl ; det = DIndef} ;
somebody_NP = regNP "noen" "noens" SgUtr ;
something_NP = regNP "noe" "noes" SgNeutr ;
somewhere_Adv = ss ["et eller annet sted"] ; ---- ?
that_Quant =
{s = table {
Sg => \\_ => genderForms ["den der"] ["det der"] ;
Pl => \\_,_ => ["de der"]
} ;
det = DDef Indef
} ;
that_NP = regNP ["det der"] ["det ders"] SgNeutr ;
there_Adv = ss "der" ;
there7to_Adv = ss "dit" ;
there7from_Adv = ss "derfra" ;
therefore_PConj = ss "derfor" ;
these_NP = regNP ["disse"] ["disses"] Plg ;
they_Pron = MorphoNor.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ;
this_Quant =
{s = table {
Sg => \\_ => genderForms ["denne"] ["dette"] ;
Pl => \\_,_ => ["disse"]
} ;
det = DDef Def
} ;
this_NP = regNP ["dette"] ["dettes"] SgNeutr ;
those_NP = regNP ["de der"] ["de ders"] Plg ;
through_Prep = ss "gjennom" ;
too_Adv = ss "for" ;
too_AdA = ss "for" ;
to_Prep = ss "til" ;
under_Prep = ss "under" ;
very_Adv = ss "meget" ;
want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" "vill" **
{s1 = [] ; isAux = True} ;
we_NP = pronNounPhrase (vi_36) ;
what8many_IP = intPronWhat plural ;
what8one_IP = intPronWhat singular ;
very_AdA = ss "mye" ;
want_VV =
mkV "ville" "vil" nonExist "ville" "villet" "villed" **
{c2 = [] ; lock_VV = <>} ;
we_Pron = MorphoNor.mkNP "vi" "oss" "vår" "vårt" "våre" Plg P1 ;
whatSg_IP = {s = \\_ => "hva" ; gn = SgUtr} ; ---- infl
whatPl_IP = {s = \\_ => "hva" ; gn = Plg} ; ---- infl
when_IAdv = ss "når" ;
when_Subj = ss "når" ;
where_IAdv = ss "hver" ;
which8one_IDet = vilkenDet ;
which8many_IDet = mkDeterminerPl "hvilke" IndefP ;
who8many_IP = intPronWho plural ;
who8one_IP = intPronWho singular ;
whichPl_IDet = {s = \\_ => "hvilke" ; n = Pl ; det = DIndef} ;
whichSg_IDet = {s = genderForms "hvilken" "hvilket" ; n = Sg ; det = DIndef} ;
whoSg_IP = {s = vem.s ; gn = SgUtr} ;
whoPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ;
why_IAdv = ss "hvorfor" ;
without_Prep = ss "uten" ;
with_Prep = ss "med" ;
ye_NP = pronNounPhrase (ni_37) ;
you_NP = pronNounPhrase De_38 ;
yes_Phr = ss ["ja"] ;
youSg_Pron =
MorphoNor.mkNP "du" "deg" (variants {"din" ; "di"}) "dit" "dine" SgUtr P2 ; ----
youPl_Pron = MorphoNor.mkNP "dere" "dere" "deres" "deres" "deres" Plg P2 ;
youPol_Pron = MorphoNor.mkNP "Dere" "Dere" "Deres" "Deres" "Deres" SgUtr P2 ; --- wrong in refl
-- Auxiliaries that are used repeatedly.
oper
vem = MorphoNor.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ;
}

249
lib/resource/norwegian/SwadeshLexNor.gf
View File

@@ -1,249 +0,0 @@
--# -path=.:../abstract:../scandinavian:../../prelude
concrete SwadeshLexNor of SwadeshLex = CategoriesNor
** open ResourceNor, SyntaxNor, ParadigmsNor, VerbsNor,
BasicNor, Prelude in {
lin
-- Pronouns
i_NP = i_NP ;
thou_NP = thou_NP ;
he_NP = he_NP ;
we_NP = we_NP ;
you_NP = you_NP ;
they_NP = they_NP ;
who8many_IP = who8many_IP ;
who8one_IP = who8one_IP ;
what8many_IP = what8many_IP ;
what8one_IP = what8one_IP ;
-- Determiners
this_Det = this_Det ;
that_Det = that_Det ;
all_NDet = all_NDet ;
many_Det = many_Det ;
some_Det = some_Det ;
few_Det = mkDeterminerPl "få" IndefP ;
other_Det = mkDeterminerPl "andre" IndefP ;
-- Adverbs
here_Adv = here_Adv ;
there_Adv = there_Adv ;
where_IAdv = where_IAdv ;
when_IAdv = when_IAdv ;
how_IAdv = how_IAdv ;
-- not : Adv ; -- ?
-- Conjunctions
and_Conj = and_Conj ;
-- Prepositions
at_Prep = ss "ved" ;
in_Prep = ss "i" ;
with_Prep = ss "med" ;
-- Numerals
one_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))) ;
two_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
three_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
four_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
five_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
-- Adjectives
bad_ADeg = bad_ADeg ;
big_ADeg = big_ADeg ;
black_ADeg = black_ADeg ;
cold_ADeg = cold_ADeg ;
correct_ADeg = regADeg "riktig" ;
dirty_ADeg = dirty_ADeg ;
dry_ADeg = mk2ADeg "tørr" "tørt" ;
dull_ADeg = regADeg "sløv" ;
far_ADeg = regADeg "fjern" ;
full_ADeg = regADeg "full" ;
good_ADeg = good_ADeg ;
green_ADeg = green_ADeg ;
heavy_ADeg = irregADeg "tung" "tyngre" "tyngst" ;
left_A = mkA "venstre" "venstre" "venstre" ;
long_ADeg = long_ADeg ;
narrow_ADeg = narrow_ADeg ;
near_ADeg = mkADeg "nære" "nære" "nære" "nærmere" "nærmest" ;
new_ADeg = new_ADeg ;
old_ADeg = old_ADeg ;
red_ADeg = red_ADeg ;
right_A = mkA "høyre" "høyre" "høyre" ;
rotten_ADeg = mk3ADeg "råtten" "råttent" "råtne" ;
round_ADeg = regADeg "rund" ;
sharp_ADeg = mk2ADeg "kvass" "kvast" ;
short_ADeg = short_ADeg ;
small_ADeg = small_ADeg ;
smooth_ADeg = mk2ADeg "slett" "slett" ;
straight_ADeg = regADeg "rak" ;
thick_ADeg = thick_ADeg ;
thin_ADeg = thin_ADeg ;
warm_ADeg = warm_ADeg ;
wet_ADeg = regADeg "våt" ;
white_ADeg = white_ADeg ;
wide_ADeg = regADeg "bred" ;
yellow_ADeg = yellow_ADeg ;
-- Nouns
animal_N = mk2N "dyr" "dyret" ;
ashes_N = mk2N "aske" "aska" ;
back_N = mk2N "rygg" "ryggen" ;
bark_N = mk2N "bark" "barken" ;
belly_N = mk2N "mage" "magen" ;
bird_N = bird_N ;
blood_N = mk2N "blod" "blodet" ;
bone_N = mk2N "bein" "beinet" ;
breast_N = mk2N "bryst" "brystet" ;
child_N = child_N ;
cloud_N = mk2N "sky" "skya" ;
day_N = mk2N "dag" "dagen" ;
dog_N = dog_N ;
dust_N = mk2N "støv" "støvet" ;
ear_N = mk2N "øre" "øret" ;
earth_N = mk2N "jord" "jorda" ;
egg_N = mk2N "egg" "egget" ;
eye_N = mkN "øye" "øyet" "øyne" "øynene" ;
fat_N = mk2N "fett" "fettet" ;
father_N = mkN "far" "faren" "fedre" "fedrene" ;
-- father_N = UseN2 father_N2 ;
feather_N = mk2N "fjør" "fjøra" ;
fingernail_N = mk2N "negl" "neglen" ;
fire_N = mk2N "ild" "ilden" ;
fish_N = fish_N ;
flower_N = mk2N "blomst" "blomsten" ;
fog_N = mk2N "tåke" "tåka" ;
foot_N = mk2N "fot" "føtter" ;
forest_N = mk2N "skog" "skogen" ;
fruit_N = fruit_N ;
grass_N = mk2N "gras" "graset" ;
guts_N = mk2N "tarm" "tarmen" ; ---- involler
hair_N = mk2N "hår" "håret" ;
hand_N = mk2N "hånd" "hånden" ;
head_N = mk2N "hode" "hodet" ;
heart_N = mk2N "hjerte" "hjertet" ;
horn_N = mk2N "horn" "hornet" ;
husband_N = mkN "ektemann" "ektemannen" "ektemenn" "ektemennen" ;
ice_N = mk2N "is" "isen" ;
knee_N = mkN "kne" "kneet" "knær" "knæne" ;
lake_N = lake_N ;
leaf_N = mk2N "løv" "løvet" ;
leg_N = mk2N "bein" "beinet" ;
liver_N = mkN "lever" "leveren" "levrer" "levrene" ;
louse_N = mk2N "lus" "lusa" ;
man_N = man_N ;
meat_N = meat_N ;
moon_N = moon_N ;
mother_N = mkN "mor" "moren" "mødre" "mødrene" ;
-- mother_N = UseN2 mother_N2 ;
mountain_N = mountain_N ;
mouth_N = mk2N "munn" "munnen" ;
name_N = mk2N "navn" "navnet" ;
neck_N = mk2N "nakke" "nakken" ;
night_N = mkN "natt" "natta" "netter" "nettene" ;
nose_N = mk2N "nese" "nesen" ;
person_N = mk2N "person" "personen" ;
rain_N = mk2N "regn" "regnet" ;
river_N = river_N ;
road_N = mk2N "vei" "veien" ;
root_N = mkN "rot" "rota" "røtter" "røttene" ;
rope_N = mk2N "tau" "tauet" ;
salt_N = mk2N "salt" "saltet" ;
sand_N = mk2N "sand" "sanden" ;
sea_N = sea_N ;
seed_N = mk2N "frø" "frøet" ;
skin_N = mk2N "skinn" "skinnet" ;
sky_N = mkN "himmel" "himmelen" "himler" "himlene" ;
smoke_N = mk2N "røyk" "røyken" ;
snake_N = snake_N ;
snow_N = mk2N "snø" "snøen" ;
star_N = star_N ;
stick_N = mk2N "pinne" "pinnen" ;
stone_N = stone_N ;
sun_N = sun_N ;
tail_N = mk2N "hale" "halen" ;
tongue_N = mk2N "tunge" "tunga" ;
tooth_N = mkN "tann" "tanna" "tenner" "tennene" ;
tree_N = tree_N ;
water_N = water_N ;
wife_N = mk2N "kone" "kona" ;
wind_N = mk2N "vind" "vinden" ;
wing_N = mk2N "vinge" "vingen" ;
woman_N = woman_N ;
worm_N = mk2N "mark" "marken" ;
year_N = mk2N "år" "året" ;
-- Verbs
bite_V = VerbsNor.bite_V ;
blow_V = mk2V "blåse" "blåste" ;
breathe_V = regV "puste" ;
burn_V = brenne_V ;
come_V = komme_V ;
count_V = regV "regne" ;
cut_V = skjære_V ;
die_V = dø_V ;
dig_V = mk2V "grave" "gravde" ;
drink_V = drikke_V ;
eat_V = mk2V "spise" "spiste" ; ---- ete
fall_V = falle_V ;
fear_V = regV "frykte" ;
fight_V = slåss_V ;
float_V = flyte_V ;
flow_V = renne_V ;
fly_V = fly_V ;
freeze_V = fryse_V ;
give_V = gi_V ;
hear_V = mk2V "høre" "hørde" ;
hit_V = slå_V;
hold_V = holde_V ;
hunt_V = regV "jakte" ;
kill_V = mk2V "drepe" "drepte" ;
know_V = vite_V ;
laugh_V = mkV "le" "ler" "les" "lo" "ledd" "le" ;
lie_V = ligge_V ;
live_V = mk2V "leve" "levde" ;
play_V = mk2V "leke" "lekte" ;
pull_V = dra_V ;
push_V = irregV "skyve" "skjøv" "skjøvet" ;
rub_V = gni_V ;
say_V = si_V ;
scratch_V = regV "klø" ;
see_V = se_V ;
sew_V = mk2V "sy" "sydde" ;
sing_V = synge_V ;
sit_V = sitte_V ;
sleep_V = sove_V ;
smell_V = regV "lukte" ;
spit_V = regV "spytte" ;
split_V = mk2V "kløyve" "kløyvde" ;
squeeze_V = mk2V "klemme" "klemte" ;
stab_V = stikke_V ;
stand_V = stå_V ;
suck_V = suge_V ;
swell_V = partV (regV "hovne") "opp" ;
swim_V = regV "simme" ;
think_V = mk2V "tenke" "tenkte" ;
throw_V = regV "kaste" ;
tie_V = regV "knytte" ;
turn_V = mk2V "vende" "vendte" ;
vomit_V = partV (regV "kaste") "opp" ;
walk_V = gå_V ;
wash_V = regV "vaske" ;
wipe_V = regV "tørke" ;
}

123
lib/resource/norwegian/SyntaxNor.gf
View File

@@ -1,123 +0,0 @@
--# -path=.:../scandinavian:../../prelude
instance SyntaxNor of SyntaxScand = TypesNor **
open Prelude, (CO = Coordination), MorphoNor in {
flags optimize=all ;
oper
------ mkAdjForm
-- When common nouns are extracted from lexicon, the composite noun form is ignored.
npDet : NounPhrase = nameNounPhrase (mkProperName "det" NNeutr) ;
mkAdjForm : Species -> Number -> NounGender -> AdjFormPos = \b,n,g ->
case <b,n> of {
<Indef,Sg> => Strong (ASg (genNoun g)) ;
<Indef,Pl> => Strong APl ;
<Def, _> => Weak
} ;
verbFinnas : Verb =
mkVerb "finnes" "finner" "finnes" "fantes" "funnets" "fins" ** {s1 = []} ;
verbVara = mkVerb "være" "er" nonExist "var" "vært" "vær" ** {s1 = []} ;
verbHava = mkVerb "ha" "har" "has" "hadde" "hatt" "ha" ** {s1 = []} ;
relPronForms : RelCase => GenNum => Str = table {
RNom => \\_ => "som" ;
RAcc => \\_ => variants {"som" ; []} ;
RGen => \\_ => "hvis" ;
RPrep => pronVilken
} ;
pronVilken = table {
ASg (Utr Masc) => "hvilken" ; --- cannot reduce patter _ in Rules
ASg (Utr NoMasc) => "hvilken" ;
ASg Neutr => "hvilket" ;
APl => "hvilke"
} ;
pronSådan = table {
ASg (Utr _) => "sådan" ;
ASg Neutr => "sådant" ;
APl => "sådanne"
} ;
pronNågon = table {
ASg (Utr _) => "noen" ;
ASg Neutr => "noe" ;
APl => "noen"
} ;
specDefPhrase : Bool -> Species = \b ->
Def ;
superlSpecies = Def ;
artIndef = table {Utr Masc => "en" ; Utr NoMasc => "ei" ; Neutr => "et"} ;
artDef : Bool => GenNum => Str = table {
True => table {
ASg (Utr _) => "den" ;
ASg Neutr => "det" ; -- det gamla huset
APl => variants {"de"}
} ;
False => table {_ => []} -- huset
} ;
auxHar = "har" ;
auxHade = "hadde" ;
auxHa = "ha" ;
auxSka = "vil" ;
auxSkulle = "ville" ;
infinAtt = "å" ;
subordAtt = "at" ;
varjeDet : Determiner = mkDeterminerSg (detSgInvar "hver") IndefP ;
allaDet : Determiner = mkDeterminerPl "alle" IndefP ;
flestaDet : Determiner = mkDeterminerPl ["de fleste"] IndefP ;
prepÄn = "enn" ;
negInte = "ikke" ;
conjOm = "hvis" ;
pronVars = "hvis" ;
pronVem = "hvem" ;
pronVems = "hvis" ; ---- ??
pronVad = "hva" ;
--- added with Nor
conjGender : Gender -> Gender -> Gender = \m,n -> Neutr ;
---- case <m,n> of {
---- _ => Neutr ----- bug in type check <Utr _, Utr _>
---- } ;
mkDeterminerSgGender3 : Str -> Str -> Str -> SpeciesP -> Determiner = \en,ei,ett ->
mkDeterminerSgGender (table {Utr Masc => en ; Utr NoMasc => ei ; Neutr => ett}) ;
reflPron : Number -> Person -> Str = \n,p -> case <n,p> of {
<Sg,P1> => "meg" ;
<Sg,P2> => "deg" ;
<Pl,P1> => "oss" ;
<Pl,P2> => "jer" ;
_ => "seg"
} ;
progressiveVerbPhrase : VerbPhrase -> VerbGroup =
complVerbVerb
({s = verbVara.s ; s1 = "ved" ; isAux = False}) ;
progressiveClause : NounPhrase -> VerbPhrase -> Clause = \np,vp ->
predVerbGroupClause np
(complVerbVerb
({s = verbVara.s ; s1 = "ved" ; isAux = False})
vp) ;
conjEt = "og" ;
}

33
lib/resource/norwegian/TimeNor.gf
View File

@@ -1,33 +0,0 @@
concrete TimeNor of Time = NumeralsNor **
open Prelude, TypesNor, CategoriesNor, ParadigmsNor in {
lincat
Date = SS ;
Weekday = N ;
Hour = SS ;
Minute = SS ;
Time = SS ;
lin
DayDate day = ss (day.s ! singular ! Indef ! nominative) ;
DayTimeDate day time = ss (day.s ! singular ! Indef ! nominative ++ "klokken" ++ time.s) ;
FormalTime = infixSS "og" ;
PastTime h m = ss (m.s ++ "over" ++ h.s) ;
ToTime h m = ss (m.s ++ "på" ++ h.s) ;
ExactTime h = ss (h.s ++ "akkurat") ;
NumHour n = {s = n.s ! Neutr} ;
NumMinute n = {s = n.s ! Neutr} ;
monday = regN "mandag" masculine ;
tuesday = regN "tirsdag" masculine ;
wednesday = regN "onsdag" masculine ;
thursday = regN "torsdag" masculine ;
friday = regN "fredag" masculine ;
saturday = regN "lørdag" masculine ;
sunday = regN "søndag" masculine ;
} ;

29
lib/resource/norwegian/TypesNor.gf
View File

@@ -1,29 +0,0 @@
--1 Norwegian Word Classes and Morphological Parameters
--
-- This is a resource module for Italian morphology, defining the
-- morphological parameters and word classes of Italian.
-- The morphology is so far only
-- complete w.r.t. the syntax part of the resource grammar.
-- It does not include those parameters that are not needed for
-- analysing individual words: such parameters are defined in syntax modules.
instance TypesNor of TypesScand = {
param
Gender = Utr Sex | Neutr ;
NounGender = NUtr Sex | NNeutr ;
oper
utrum : Gender = Utr Masc ; --- where it doesn't matter
neutrum : Gender = Neutr ;
oper
genNoun = \s -> case s of {NUtr x => Utr x ; NNeutr => Neutr} ;
sexNoun _ = NoMasc ;
gen2nounGen = \s -> case s of {Utr x => NUtr x ; Neutr => NNeutr} ;
param
AdjFormPos = Strong GenNum | Weak ;
}

2
lib/resource/norwegian/VerbNor.gf Normal file
View File

@@ -0,0 +1,2 @@
concrete VerbNor of Verb = CatNor ** VerbScand with
(ResScand = ResNor) ;

3
lib/resource/norwegian/VerbphraseNor.gf
View File

@@ -1,3 +0,0 @@
--# -path=.:../scandinavian:../abstract:../../prelude
concrete VerbphraseNor of Verbphrase = CategoriesNor **
VerbphraseScand with (SyntaxScand=SyntaxNor) ;