cat Interj in lib

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} ; ---