(Hun) Fresh copypaste from generic dummy template. Compiles, isn't good.

2026-06-28 12:26:30 -06:00 · 2020-03-28 15:43:58 +01:00
parent 7fee10e1e0
commit e1a94a0741
22 changed files with 2195 additions and 2627 deletions
@@ -1,48 +1,50 @@
--# -path=.:../abstract:../common
+--# -path=.:../abstract:../common:../prelude
+
+concrete SymbolHun of Symbol = CatHun **
+  open Prelude, ParadigmsHun, ResHun, (NS=NounHun) in {
+
+lin
+
+  --  : Symb -> PN ;                -- x
+  SymbPN i = mkPN i.s ;
+
+  -- : Int -> PN ;                 -- 27
+  IntPN i  = mkPN i.s ;
+
+  -- : Float -> PN ;               -- 3.14159
+  FloatPN i = mkPN i.s ;
+
+  -- : Card -> PN ;                -- twelve [as proper name]
+  NumPN i = mkPN i.s ;
+
+{-
+lin
+--  CNIntNP cn i = {} ;
+
+  -- : Det -> CN -> [Symb] -> NP ; -- (the) (2) numbers x and y
+  CNSymbNP det cn xs =
+    let cnSymb = cn ** { comp = cn.comp ++ xs.s }
+     in NS.DetCN det cnSymb ;
+
+  -- : CN -> Card -> NP ;          -- level five ; level 5
+  CNNumNP cn i = NS.MassNP (cn ** { comp = cn.comp ++ i.s }) ;
+
+  -- : Symb -> S ;
+  SymbS sy = {s = } ;
+  -- : Symb -> Card ;
+  SymbNum sy = { s = sy.s ; n = Pl } ;
+
+  -- : Symb -> Ord ;
+  SymbOrd sy = { s =} ;
+-}
+lincat
+  Symb, [Symb] = SS ;
+
+lin
+  MkSymb s = s ;
+
+  BaseSymb = infixSS "és" ;
+  ConsSymb = infixSS "," ;

-concrete SymbolHun of Symbol = CatHun ** open Prelude, ResHun in 
-{
--{
--
--lin
--  SymbPN i = {s = addGenitiveS i.s ; g = Neutr} ;
--  IntPN i  = {s = addGenitiveS i.s ; g = Neutr} ;
--  FloatPN i = {s = addGenitiveS i.s ; g = Neutr} ;
--  NumPN i = {s = i.s ; g = Neutr} ;
--  CNIntNP cn i = {
--    s = \\c => cn.s ! Sg ! Nom ++ (addGenitiveS i.s) ! npcase2case c ;
--    a = agrgP3 Sg cn.g
--    } ;
--  CNSymbNP det cn xs = {
--    s = \\c => det.s ++ cn.s ! det.n ! Nom ++ (addGenitiveS xs.s) ! npcase2case c ; 
--    a = agrgP3 det.n cn.g
--    } ;
--  CNNumNP cn i = {
--    s = \\c => cn.s ! Sg ! Nom ++ i.s ! npcase2case c ;
--    a = agrgP3 Sg cn.g
--    } ;
--
--  SymbS sy = sy ; 
--
--  SymbNum sy = { s = addGenitiveS sy.s ; n = Pl ; hasCard = True } ;
--  SymbOrd sy = { s = \\c => sy.s ++ (regGenitiveS "th")!c} ;
--
--lincat 
--
--  Symb, [Symb] = SS ;
--
--lin
--  MkSymb s = s ;
--
--  BaseSymb = infixSS "and" ;
--  ConsSymb = infixSS "," ;
--
--oper
--    -- Note: this results in a space before 's, but there's
--    -- not mauch we can do about that.
--    addGenitiveS : Str -> Case => Str = \s -> 
--      table { Gen => s ++ "'s"; _ => s } ;
--
--}

 }