-- use this path to read the grammar from the same directory
--# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/french:../../lib/resource-0.6/romance

--1 Functions that are not in the API, but common in French
--
-- Aarne Ranta, Janna Khegai 2003

resource ExtraFre = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ParadigmsFre in {

oper 
  NPMedicine: Type = NP ** {des : Bool};

  avoirBesoin1: CN -> VP = \doctor ->   
    PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
           AppFun (funDe (nReg "besoin" Masc) ) 
           (IndefOneNP doctor)
         )
       )
    ) ;

  avoirBesoin: NPMedicine -> VP = \medicine ->   
    if_then_else VP medicine.des     

    (PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
           AppFun (funPrep (nReg "besoin" Masc) "") 
           medicine
         )
       )
    )) 

    (PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (
           AppFun (funDe (nReg "besoin" Masc)) 
           medicine
         )
       )
    )) ;

  injuredBody: (Gender => Number => Str) -> NP -> CN -> S =
   \injured, patient, head -> 
    PredVP patient 
      {s = \\g,v => pronRefl patient.n patient.p ++ 
              verbEtre.s ! v ++
              injured ! g ! patient.n ++
              (DefOneNP head).s ! case2pform Acc;
       lock_VP = <> 
      } ;
  
  
  delDet : Det = mkDeterminer Sg (artDef Masc Sg genitive) 
    (artDef Fem Sg genitive)  ** {lock_Det = <>} ;
  desDet : Det = mkDeterminer1 Pl "des"  ** {lock_Det = <>} ;

  nullDet : Det = mkDeterminer1 Sg "" ** {lock_Det =<>} ;

---  tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> };

};