From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 9 Dec 2009 09:47:16 +0000 Subject: moving a few things to deprecated --- old-lib/resource/mathematical/SymbolScand.gf | 38 ---------------------------- 1 file changed, 38 deletions(-) delete mode 100644 old-lib/resource/mathematical/SymbolScand.gf (limited to 'old-lib/resource/mathematical/SymbolScand.gf') diff --git a/old-lib/resource/mathematical/SymbolScand.gf b/old-lib/resource/mathematical/SymbolScand.gf deleted file mode 100644 index 8bde4e1a4..000000000 --- a/old-lib/resource/mathematical/SymbolScand.gf +++ /dev/null @@ -1,38 +0,0 @@ -incomplete concrete SymbolScand of Symbol = - CatScand ** open Prelude, ResScand, CommonScand 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!neutrum ; g = Neutr} ; --- c - CNIntNP cn i = { - s = \\c => (cn.s ! Sg ! DIndef ! Nom ++ i.s) ; - a = agrP3 cn.g Sg - } ; - CNSymbNP det cn xs = let g = cn.g in { - s = \\c => det.s ! cn.isMod ! g ++ cn.s ! det.n ! det.det ! caseNP c ++ xs.s ; - a = agrP3 g det.n - } ; - CNNumNP cn i = { - s = \\c => (cn.s ! Sg ! DIndef ! Nom ++ i.s ! neutrum) ; - a = agrP3 cn.g Sg - } ; - - SymbS sy = {s = \\_ => sy.s} ; - - SymbNum n = {s = \\_ => n.s ; isDet = True ; n = Pl} ; - SymbOrd n = {s = n.s ++ ":te" ; isDet = True} ; --- - -lincat - - Symb, [Symb] = SS ; - -lin - - MkSymb s = s ; - - BaseSymb = infixSS conjAnd ; - ConsSymb = infixSS "," ; - -} -- cgit v1.2.3