cat Interj in lib

lib/src/abstract/Cat.gf

@@ -12,7 +12,7 @@
 -- implementation in all languages in the resource (typically,
 -- just a string). These categories are
 -- $AdA, AdN, AdV, Adv, Ant, CAdv, IAdv, PConj, Phr$, 
--- $Pol, SC, Tense, Text, Utt, Voc$.
+-- $Pol, SC, Tense, Text, Utt, Voc, Interj$.
 --
 -- Moreover, the list categories $ListAdv, ListAP, ListNP, ListS$
 -- are defined on $Conjunction$ and only used locally there.

lib/src/abstract/Common.gf

@@ -15,10 +15,11 @@ abstract Common = {
 
 -- Constructed in [``Phrase`` Phrase.html]:
 
-    Phr ;   -- phrase in a text                    e.g. "but be quiet please"
+    Phr ;    -- phrase in a text                   e.g. "but be quiet please"
-    Utt ;   -- sentence, question, word...         e.g. "be quiet"
+    Utt ;    -- sentence, question, word...        e.g. "be quiet"
-    Voc ;   -- vocative or "please"                e.g. "my darling"
+    Voc ;    -- vocative or "please"               e.g. "my darling"
-    PConj ; -- phrase-beginning conjunction        e.g. "therefore"
+    PConj ;  -- phrase-beginning conjunction       e.g. "therefore"
+    Interj ; -- interjection                       e.g. "alas"
 
 -- Constructed in [``Sentence`` Sentence.html]:
 

lib/src/abstract/Lexicon.gf

@@ -2,6 +2,7 @@ abstract Lexicon = Cat ** {
 fun
   add_V3 : V3 ;
   airplane_N : N ;
+  alas_Interj : Interj ;
   already_Adv : Adv ;
   animal_N : N ;
   answer_V2S : V2S ;

lib/src/abstract/Phrase.gf

@@ -23,17 +23,18 @@ abstract Phrase = Cat ** {
 -- Moreover, in many languages e.g. noun phrases in different cases
 -- can be used.
 
-    UttIP   : IP   -> Utt ;                 -- who
+    UttIP     : IP   -> Utt ;               -- who
-    UttIAdv : IAdv -> Utt ;                 -- why
+    UttIAdv   : IAdv -> Utt ;               -- why
-    UttNP   : NP   -> Utt ;                 -- this man
+    UttNP     : NP   -> Utt ;               -- this man
-    UttAdv  : Adv  -> Utt ;                 -- here
+    UttAdv    : Adv  -> Utt ;               -- here
-    UttVP   : VP   -> Utt ;                 -- to sleep
+    UttVP     : VP   -> Utt ;               -- to sleep
-    UttCN   : CN   -> Utt ;                 -- house
+    UttCN     : CN   -> Utt ;               -- house
-    UttCard : Card -> Utt ;                 -- five
+    UttCard   : Card -> Utt ;               -- five
-    UttAP   : AP   -> Utt ;                 -- fine
+    UttAP     : AP   -> Utt ;               -- fine
+    UttInterj : Interj -> Utt ;             -- alas
 
 -- The phrasal conjunction is optional. A sentence conjunction
--- can also used to prefix an utterance.
+-- can also be used to prefix an utterance.
 
     NoPConj   : PConj ;                      
     PConjConj : Conj -> PConj ;             -- and

lib/src/common/CommonX.gf

@@ -1,18 +1,19 @@
 concrete CommonX of Common = open (R = ParamX) in {
 
   lincat
-    Text = {s : Str} ; --lock_Text : {}} ;
+    Text = {s : Str} ; 
-    Phr = {s : Str} ; --lock_Phr : {}} ;
+    Phr = {s : Str} ; 
-    Utt = {s : Str} ; --lock_Utt : {}} ;
+    Utt = {s : Str} ; 
-    Voc = {s : Str} ; --lock_Voc : {}} ;
+    Voc = {s : Str} ; 
-    SC  = {s : Str} ; --lock_SC : {}} ;
+    SC  = {s : Str} ; 
-    Adv = {s : Str} ; --lock_Adv : {}} ;
+    Adv = {s : Str} ; 
-    AdV = {s : Str} ; --lock_AdV : {}} ;
+    AdV = {s : Str} ; 
-    AdA = {s : Str} ; --lock_AdA : {}} ;
+    AdA = {s : Str} ; 
-    AdN = {s : Str} ; --lock_AdN : {}} ;
+    AdN = {s : Str} ; 
-    IAdv = {s : Str} ; --lock_IAdv : {}} ;
+    IAdv = {s : Str} ; 
-    CAdv = {s,p : Str} ; --lock_CAdv : {}} ;
+    CAdv = {s,p : Str} ; 
-    PConj = {s : Str} ; --lock_PConj : {}} ;
+    PConj = {s : Str} ; 
+    Interj = {s : Str} ; 
 
     Temp  = {s : Str ; t : R.Tense ; a : R.Anteriority} ;
     Tense = {s : Str ; t : R.Tense} ;

lib/src/english/LexiconEng.gf

@@ -8,6 +8,7 @@ flags
 
 lin
   airplane_N = regN "airplane" ;
+  alas_Interj = ss "alas" ;
   answer_V2S = mkV2S (mkV "answer" "answered") toP ;
   apartment_N = regN "apartment" ;
   apple_N = regN "apple" ;

lib/src/english/ParadigmsEng.gf

@@ -60,6 +60,10 @@ oper
 -- Prepositions are used in many-argument functions for rection.
 -- The resource category $Prep$ is used.
 
+-- The number of a noun phrase can be extracted with the following
+-- function.
+
+  npNumber : NP -> Number ;
 
 
 --2 Nouns
@@ -341,6 +345,8 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ;
   nominative = Nom ;
   genitive = Gen ;
 
+  npNumber np = (fromAgr np.a).n ;
+
   Preposition : Type = Str ; -- obsolete
 
   regN = \ray -> 

lib/src/english/PhraseEng.gf

@@ -17,6 +17,7 @@ concrete PhraseEng of Phrase = CatEng ** open Prelude, ResEng in {
     UttCN n = {s = n.s ! Sg ! Nom} ;
     UttCard n = {s = n.s ! Nom} ;
     UttAP ap = {s = ap.s ! agrP3 Sg} ;
+    UttInterj i = i ;
 
     NoPConj = {s = []} ;
     PConjConj conj = {s = conj.s2} ; ---