doc/tutorial/arithm/ArithmSwe.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

--# -path=.:alltenses:prelude


concrete ArithmSwe of Arithm = ArithmI with
  (Lang = LangSwe),
  (Lex = LexSwe) ;

{-
concrete ArithmSwe of Arithm = open LangSwe, ParadigmsSwe in {

  lincat
    Prop = S ;
    Nat  = NP ;

  lin
    Zero = 
      UsePN (regPN "noll" neutrum) ;
    Succ n = 
      DetCN (DetSg (SgQuant DefArt) NoOrd) 
        (ComplN2 (mkN2 (mk2N "efterföljare" "efterföljare") 
           (mkPreposition "till")) n) ;
    Even n = 
      UseCl TPres ASimul PPos 
        (PredVP n (UseComp (CompAP (PositA (regA "jämn"))))) ;
    And x y = 
      ConjS and_Conj (BaseS x y) ;

}
-}