added a project for Portuguese as a copy of Spanish

Author: aarneranta

lib/src/MkLang.hs

@@ -22,7 +22,7 @@ change xx = case xx of
      system "ls *.gf > files.tmp"
      files <- readFile "files.tmp" >>= return . lines
      mapM_ (changeIdents from to) files
-     mapM_ commentOut files
+----     mapM_ commentOut files
   comment -> do
      files <- readFile "files.tmp" >>= return . lines
      mapM_ commentOut files

lib/src/api/CombinatorsPor.gf

@@ -0,0 +1,15 @@
+--# -path=.:alltenses:prelude
+
+resource CombinatorsPor = Combinators - [appCN, appCNc] with 
+  (Cat = CatPor),
+  (Structural = StructuralPor),
+  (Noun = NounPor),
+  (Constructors = ConstructorsPor) ** 
+{
+oper
+appCN : CN -> NP -> NP
+       = \cn,x -> mkNP the_Art (PossNP cn x) ;
+appCNc : CN -> [NP] -> NP
+       = \cn,xs -> let np : NP = mkNP and_Conj xs
+                   in mkNP the_Art (PossNP cn np) ; 
+}

lib/src/api/ConstructorsPor.gf

@@ -0,0 +1,3 @@
+--# -path=.:alltenses:prelude
+
+resource ConstructorsPor = Constructors with (Grammar = GrammarPor) ;

lib/src/api/SymbolicPor.gf

@@ -0,0 +1,5 @@
+--# -path=.:../spanish:../romance:../common:../abstract:../prelude
+
+resource SymbolicPor = Symbolic with 
+  (Symbol = SymbolPor),
+  (Grammar = GrammarPor) ;

lib/src/api/SyntaxPor.gf

@@ -0,0 +1,5 @@
+--# -path=.:alltenses
+
+instance SyntaxPor of Syntax = 
+  ConstructorsPor, CatPor, StructuralPor, CombinatorsPor ;
+

lib/src/api/TryPor.gf

@@ -0,0 +1,3 @@
+--# -path=.:../spanish:../romance:../common:../abstract:../prelude
+
+resource TryPor = SyntaxPor, LexiconPor, ParadigmsPor - [mkAdv,mkAdN] ;

lib/src/portuguese/AdjectivePor.gf

@@ -0,0 +1,2 @@
+concrete AdjectivePor of Adjective = CatPor ** AdjectiveRomance with
+  (ResRomance = ResPor) ;

lib/src/portuguese/AdverbPor.gf

@@ -0,0 +1,2 @@
+concrete AdverbPor of Adverb = CatPor ** AdverbRomance with
+  (ResRomance = ResPor) ;

lib/src/portuguese/AllPor.gf

@@ -0,0 +1,7 @@
+--# -path=.:../romance:../abstract:../common:../api:../prelude
+
+concrete AllPor of AllPorAbs = 
+  LangPor,
+  IrregPor,
+  ExtraPor 
+  ** {} ;

lib/src/portuguese/AllPorAbs.gf

@@ -0,0 +1,5 @@
+abstract AllPorAbs = 
+  Lang,
+  IrregPorAbs,
+  ExtraPorAbs
+  ** {} ;