Implemented some new words in swedish. Use english compound for police officer.

This commit is contained in:
bringert
2006-04-21 12:08:10 +00:00
parent 59d066c8bf
commit e03610fb8f
3 changed files with 11 additions and 3 deletions

View File

@@ -14,6 +14,7 @@ Where is the factory?
The doctor sleeps. The doctor sleeps.
I see a small girl. I see a small girl.
Does your leg hurt?
Soldiers don't eat corpses. Soldiers don't eat corpses.
Do you need medicine? Do you need medicine?
We don't give weapons to dangerous soldiers. We don't give weapons to dangerous soldiers.
@@ -29,7 +30,7 @@ Drink cold water!
Give your weapon to the soldier! Give your weapon to the soldier!
Show me the landmine! Show me the landmine!
Give water to the boy! Give water to the boy!
Drop your weapon!
== Should work == == Should work ==

View File

@@ -28,7 +28,7 @@ concrete PeaceLexExt_Eng of PeaceLexExt =
landmine_N = regN "landmine" ; landmine_N = regN "landmine" ;
map_N = regN "map" ; map_N = regN "map" ;
medicine_N = regN "medicine" ; medicine_N = regN "medicine" ;
police8officer_N = mk2N "policeman" "policemen" ; police8officer_N = compoundN "police" (regN "officer") ;
skin_N = regN "skin" ; skin_N = regN "skin" ;
soldier_N = regN "soldier" ; soldier_N = regN "soldier" ;
weapon_N = regN "weapon"; weapon_N = regN "weapon";

View File

@@ -1,7 +1,7 @@
--# -path=.:present:prelude --# -path=.:present:prelude
concrete PeaceLexExt_Swe of PeaceLexExt = concrete PeaceLexExt_Swe of PeaceLexExt =
PeaceCat_Swe ** open LexiconSwe, ParadigmsSwe in { PeaceCat_Swe ** open ParadigmsSwe, IrregSwe, LexiconSwe in {
lin lin
@@ -20,16 +20,23 @@ concrete PeaceLexExt_Swe of PeaceLexExt =
corpse_N = mk2N "lik" "lik" ; corpse_N = mk2N "lik" "lik" ;
doctor_N = mkN "doktor" "doktorn" "doktorer" "doktorerna"; doctor_N = mkN "doktor" "doktorn" "doktorer" "doktorerna";
enemy_N = mk2N "fiende" "fiender" ; enemy_N = mk2N "fiende" "fiender" ;
face_N = regN "ansikte" ;
food_N = regN "mat"; food_N = regN "mat";
friend_N = mkN "vän" "vännen" "vänner" "vännerna" ; friend_N = mkN "vän" "vännen" "vänner" "vännerna" ;
ground_N = mk2N "mark" "marker";
knife_N = regN "kniv" ;
landmine_N = regN "landmina" ; landmine_N = regN "landmina" ;
map_N = regN "karta" ;
medicine_N = mk2N "medicin" "mediciner"; medicine_N = mk2N "medicin" "mediciner";
police8officer_N = mk2N "polis" "poliser" ;
skin_N = mk2N "skinn" "skinn" ; skin_N = mk2N "skinn" "skinn" ;
soldier_N = mk2N "soldat" "soldater" ; soldier_N = mk2N "soldat" "soldater" ;
weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ; weapon_N = mkN "vapen" "vapnet" "vapen" "vapnen" ;
-- Verbs -- Verbs
cough_V = regV "hostar" ; cough_V = regV "hostar" ;
drop_V2 = dirV2 (regV "släpper") ;
hurt_V = partV göra_V "ont" ; -- FIXME: "Gör ont ditt ben?"
need_V2 = dirV2 (regV "behöver"); need_V2 = dirV2 (regV "behöver");
own_V2 = dirV2 (regV "äger") ; own_V2 = dirV2 (regV "äger") ;
show_V3 = dirdirV3 (regV "visar") ; show_V3 = dirdirV3 (regV "visar") ;