progress on the Names API

2026-06-30 02:58:35 -06:00 · 2023-08-07 21:15:48 +02:00
parent 9fcee982e5
commit 531e2c2dd2
36 changed files with 220 additions and 22 deletions
@@ -32,16 +32,18 @@ lin
           )
     } ;

-  InflectionPN = \pn -> {
+  InflectionLN = \n -> {
    t  = "nm" ;
-    s1 = heading1 ("Namn" ++ case pn.g of {
-                               Utr   => "(utr)" ;
-                               Neutr => "(neutr)"
-                             }) ;
+    s1 = heading1 ("Platsnamn" ++ case n.g of {
+                                    Utr   => "(utr)" ;
+                                    Neutr => "(neutr)"
+                                  }) ;
    s2 = frameTable (
-           tr (th "nom" ++ td (pn.s ! Nom)) ++
-           tr (th "gen" ++ td (pn.s ! Gen))
-           )
+           tr (th "nom" ++ td (n.s ! Nom)) ++
+           tr (th "gen" ++ td (n.s ! Gen))
+           ) ++
+         heading1 ("Adverb") ++
+         paragraph (n.c.s ++ n.s ! caseNP accusative) ;
     } ;

  InflectionGN = \pn -> {