nocf flag ; mathematical API

lib/resource-1.0/finnish/ParadigmsFin.gf

@@ -114,11 +114,6 @@ oper
 
   nKukko : (kukko,kukon,kukkoja : Str) -> N ;
 
--- For convenience, we define 1-argument paradigms as producing the
--- nonhuman gender; the following function changes this:
-
-  humanN : N -> N ;
-
 -- A special case are nouns with no alternations: 
 -- the vowel harmony is inferred from the last letter,
 -- which must be one of "o", "u", "ö", "y".

lib/resource-1.0/finnish/StructuralFin.gf

@@ -34,7 +34,8 @@ concrete StructuralFin of Structural = CatFin **
   either7or_DConj = sd2 "joko" "tai" ** {n = Sg} ;
   everybody_NP = mkNP (regN "jokainen") Sg ;
   every_Det = mkDet Sg (regN "jokainen") ;
-  everything_NP = mkNP (nhn (sKorpi "kaikki" "kaiken" "kaikkena")) Sg ;
+  everything_NP = mkNP ((nhn (sKorpi "kaikki" "kaiken" "kaikkena")) **
+    {lock_N = <>}) Sg ;
   everywhere_Adv = ss "kaikkialla" ;
   first_Ord = {s = \\n,c => (regN "ensimmäinen").s ! NCase n c} ;
   from_Prep = casePrep elative ;

lib/resource-1.0/italian/ParadigmsIta.gf

@@ -252,8 +252,7 @@ oper
   mkVQ  : V -> VQ ;
   mkV2Q : V -> Preposition -> V2Q ;
 
-  mkAS   : A -> AS ;
-  subjAS : A -> AS ;
+  mkAS  : A -> AS ;
   mkA2S : A -> Preposition -> A2S ;
   mkAV  : A -> Preposition -> AV ;
   mkA2V : A -> Preposition -> Preposition -> A2V ;

lib/resource-1.0/mathematical/MathematicalFin.gf

@@ -0,0 +1,24 @@
+--# -path=.:../finnish:../abstract:../common:prelude
+
+concrete MathematicalFin of Mathematical = 
+  NounFin - [ComplN2], --- to avoid ambiguity 
+--  VerbFin, 
+--  AdjectiveFin,
+--  AdverbFin,
+  NumeralFin,
+--  SentenceFin,
+  QuestionFin,
+  RelativeFin,
+  ConjunctionFin,
+  PhraseFin,
+  StructuralFin,
+
+  SymbolFin,
+  PredicationFin,
+
+  LexiconFin
+  ** {
+
+flags startcat = Phr ;
+
+} ;

lib/resource-1.0/mathematical/MathematicalSpa.gf

@@ -0,0 +1,24 @@
+--# -path=.:../spanish:../romance:../abstract:../common:prelude
+
+concrete MathematicalSpa of Mathematical = 
+  NounSpa - [ComplN2], --- to avoid ambiguity 
+--  VerbSpa, 
+--  AdjectiveSpa,
+--  AdverbSpa,
+  NumeralSpa,
+--  SentenceSpa,
+  QuestionSpa,
+  RelativeSpa,
+  ConjunctionSpa,
+  PhraseSpa,
+  StructuralSpa,
+
+  SymbolSpa,
+  PredicationSpa, --  - [predV3,predV2], --- gf bug
+
+  LexiconSpa
+  ** {
+
+flags startcat = Phr ;
+
+} ;

lib/resource-1.0/mathematical/PredicationFin.gf

@@ -0,0 +1,3 @@
+concrete PredicationFin of Predication = CatFin ** PredicationI with
+  (Lang = LangFin) ;
+

lib/resource-1.0/mathematical/PredicationSpa.gf

@@ -0,0 +1,3 @@
+concrete PredicationSpa of Predication = CatSpa ** PredicationI with
+  (Lang = LangSpa) ;
+

lib/resource-1.0/mathematical/SymbolFin.gf

@@ -0,0 +1,28 @@
+concrete SymbolFin of Symbol = CatFin ** open Prelude, ResFin in {
+
+lin
+  SymbPN i = {s = \\c => i.s} ; --- c
+  IntPN i  = {s = \\c => i.s} ; --- c
+{-
+  CNIntNP cn i = {
+    s = \\c => (cn.s ! Sg ! DIndef ! Nom ++ i.s) ;
+    a = agrP3 cn.g Sg
+    } ;
+  CNSymbNP det cn xs = let g = cn.g in {
+    s = \\c => det.s ! cn.isMod ! g ++ cn.s ! det.n ! det.det ! caseNP c ++ xs.s ; 
+    a = agrP3 g det.n
+    } ;
+-}
+lincat 
+
+  Symb, SymbList = SS ;
+
+lin
+
+  MkSymb s = s ;
+
+  BaseSymb = infixSS "ja" ;
+  ConsSymb = infixSS "," ;
+
+}
+

lib/resource-1.0/mathematical/SymbolSpa.gf

@@ -0,0 +1,2 @@
+concrete SymbolSpa of Symbol = CatSpa ** SymbolRomance with
+  (ResRomance = ResSpa) ;

lib/resource-1.0/spanish/ParadigmsSpa.gf

@@ -255,8 +255,7 @@ oper
   mkVQ  : V -> VQ ;
   mkV2Q : V -> Preposition -> V2Q ;
 
-  mkAS   : A -> AS ;
-  subjAS : A -> AS ;
+  mkAS  : A -> AS ;
   mkA2S : A -> Preposition -> A2S ;
   mkAV  : A -> Preposition -> AV ;
   mkA2V : A -> Preposition -> Preposition -> A2V ;