Changed module names.

grammars/resource/swedish/MorphoSwe.gf

@@ -8,7 +8,7 @@
 --
 -- We use the parameter types and word classes defined for morphology.
 
-resource Morpho = Types ** open Prelude in {
+resource MorphoSwe = TypesSwe ** open Prelude in {
 
 -- The indefinite and definite article
 oper

grammars/resource/swedish/ResSwe.gf

@@ -12,12 +12,12 @@
 --
 -- The users of the resource grammar should not look at this file for the
 -- linearization rules, which are in fact hidden in the document version.
--- They should use $resource.Abs.gf$ to access the syntactic rules.
+-- They should use $ResAbs.gf$ to access the syntactic rules.
 -- This file can be consulted in those, hopefully rare, occasions in which
 -- one has to know how the syntactic categories are
--- implemented. The parameter types are defined in $Types.gf$.
+-- implemented. The parameter types are defined in $TypesSwe.gf$.
 
-concrete ResSwe of ResAbs = open Prelude, Syntax in {
+concrete ResSwe of ResAbs = open Prelude, SyntaxSwe in {
 
 flags 
   startcat=Phr ; 

grammars/resource/swedish/Svenska.gf

@@ -1 +0,0 @@
-resource Svenska = reuse ResSwe ;

grammars/resource/swedish/Swedish.gf

@@ -0,0 +1,4 @@
+-- use this path to read the grammar from the same directory
+--# -path=.:../abstract:../../prelude
+
+resource Swedish = reuse ResSwe ;

grammars/resource/swedish/SyntaxSwe.gf

@@ -7,7 +7,7 @@
 --
 -- The following modules are presupposed:
 
-resource Syntax = Morpho ** open Prelude, (CO = Coordination) in {
+resource SyntaxSwe = MorphoSwe ** open Prelude, (CO = Coordination) in {
 
 --2 Common Nouns
 --

grammars/resource/swedish/TestSwe.gf

@@ -1,7 +1,7 @@
 -- use this path to read the grammar from the same directory
 --# -path=.:../abstract:../../prelude
 
-concrete TestSwe of TestAbs = ResSwe ** open Syntax in {
+concrete TestSwe of TestAbs = ResSwe ** open SyntaxSwe in {
 
 flags startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
 
@@ -12,6 +12,9 @@ lin
   Small = liten_1146 ;
   Old = gammal_16 ;
   Young = ung_29 ;
+  American = extAdjective (aFin "amerikansk") ;
+  Finnish = extAdjective (aFin "finsk") ;
+  Married = extAdjective (aAbstrakt "gift") ** {s2 = "med"} ;
   Man = extCommNoun Masc man_1144 ;
   Woman = extCommNoun NoMasc (sApa "kvinn") ;
   Car = extCommNoun NoMasc (sBil "bil") ;

grammars/resource/swedish/TypesSwe.gf

@@ -9,7 +9,7 @@
 -- This GF grammar was obtained from the functional morphology file TypesSw.hs
 -- semi-automatically. The GF inflection engine obtained was obtained automatically.
 
-resource Types = open Prelude in {
+resource TypesSwe = open Prelude in {
 
 --