partial implementation of Ancient Greek RGL

src/ancient_greek/SymbolGrc.gf

@@ -0,0 +1,39 @@
+--# -path=.:abstract:common
+
+concrete SymbolGrc of Symbol = CatGrc ** open Prelude, ResGrc in {
+--
+--lin
+--  SymbPN i = {s = \\c => i.s ; g = Neutr} ; --- c
+--  IntPN i  = {s = \\c => i.s ; g = Neutr} ; --- c
+--  FloatPN i = {s = \\c => i.s ; g = Neutr} ; --- c
+--  NumPN i = {s = \\c => i.s ; g = Neutr} ; --- c
+--  CNIntNP cn i = {
+--    s = \\c => (cn.s ! Sg ! Nom ++ i.s) ;
+--    a = agrgP3 Sg cn.g
+--    } ;
+--  CNSymbNP det cn xs = {
+--    s = \\c => det.s ++ cn.s ! det.n ! c ++ xs.s ; 
+--    a = agrgP3 det.n cn.g
+--    } ;
+--  CNNumNP cn i = {
+--    s = \\c => (cn.s ! Sg ! Nom ++ i.s) ;
+--    a = agrgP3 Sg cn.g
+--    } ;
+--
+--  SymbS sy = sy ; 
+--
+--  SymbNum sy = {s = sy.s ; n = Pl ; hasCard = True} ;
+--  SymbOrd sy = {s = sy.s ++ "th"} ;
+--
+--lincat 
+--
+--  Symb, [Symb] = SS ;
+--
+--lin
+--
+--  MkSymb s = s ;
+--
+--  BaseSymb = infixSS "and" ;
+--  ConsSymb = infixSS "," ;
+--
+}