GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

move NumeralX.inc to ParamX since it is used in many places

Browse Source
This commit is contained in:
Krasimir Angelov
2026-03-03 14:34:52 +01:00
parent 8e780d6263
commit 761597ad8c
25 changed files with 13 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/albanian/NumeralSqi.gf
View File

@@ -84,10 +84,4 @@ oper
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
}

5
src/amharic/NumeralAmh.gf
View File

@@ -109,11 +109,6 @@ lin pot3plus n m = {
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
------------------ :) what a releif
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o ;

2
src/ancient_greek/ResGrc.gf
View File

@@ -18,7 +18,7 @@
-- Author: Hans Leiß, LMU Munich, CIS
resource ResGrc = ParamX - [Number,Sg,Pl,ImpForm,numImp,Tense,ImpF]
resource ResGrc = ParamX - [Number,Sg,Pl,ImpForm,numImp,Tense,ImpF,inc,DTail]
** open Prelude, PhonoGrc, Predef in {
flags
optimize = noexpand ; -- optimize=all is impossible with addAccent

6
src/bulgarian/NumeralBul.gf
View File

@@ -200,12 +200,6 @@ lin pot5decimal d = {
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c (c+"ма") o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "ти") ;

6
src/catalan/NumeralCat.gf
View File

@@ -179,12 +179,6 @@ param
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + ":o") ;

6
src/common/ParamX.gf
View File

@@ -64,5 +64,11 @@ resource ParamX = open Prelude in {
param
DTail = T1 | T2 | T3 ;
oper
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
}

6
src/english/NumeralEng.gf
View File

@@ -134,12 +134,6 @@ lin PosDecimal d = d ** {hasDot=False} ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "th") ;

6
src/french/NumeralFre.gf
View File

@@ -192,12 +192,6 @@ oper hyphen = BIND ++ "-" ++ BIND ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "ème") ;

6
src/interlingua/NumeralIna.gf
View File

@@ -86,12 +86,6 @@ concrete NumeralIna of Numeral = CatIna [Numeral,Digits,Decimal] ** open ResIna,
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "e") ;

6
src/italian/NumeralIta.gf
View File

@@ -159,12 +159,6 @@ param Pred = pred | indip ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mkDig : Str -> TDigit = \c -> mk2Dig c Pl ;

6
src/japanese/NumeralJpn.gf
View File

@@ -224,10 +224,4 @@ flags coding = utf8 ;
T3 => "," ;
_ => []
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
}

4
src/japanese/ResJpn.gf
View File

@@ -1,9 +1,8 @@
resource ResJpn = open Prelude in {
resource ResJpn = ParamX [Number,Sg,Pl,DTail,T1,T2,T3,inc] ** open Prelude in {
flags coding = utf8 ;
param
Number = Sg | Pl ;
Style = Plain | Resp ;
Animateness = Anim | Inanim ;
Mood = Ind | Con ;
@@ -15,7 +14,6 @@ param
Particle = Wa | Ga ;
Anteriority = Simul | Anter ;
NumeralType = EndZero | EndNotZero | SingleDigit ;
DTail = T1 | T2 | T3 ;
ConjType = And | Or | Both | IfConj ;
SubjType = That | If | OtherSubj ;
VocType = VocPres | Please | VocAbs ;

2
src/latin/CatLat.gf
View File

@@ -1,4 +1,4 @@
concrete CatLat of Cat = CommonX-[Adv] ** open ResLat, ParamX, Prelude in {
concrete CatLat of Cat = CommonX-[Adv] ** open ResLat, Prelude in {
flags optimize=all_subs ;

2
src/latin/MorphoLat.gf
View File

@@ -8,7 +8,7 @@
-- syntax. To build a lexicon, it is better to use $ParadigmsLat$, which
-- gives a higher-level access to this module.
resource MorphoLat = ParamX, ResLat ** open Prelude, Predef in {
resource MorphoLat = ResLat ** open Prelude, Predef in {
--
-- flags optimize=all ;
--

2
src/latin/NumeralLat.gf
View File

@@ -1,4 +1,4 @@
concrete NumeralLat of Numeral = CatLat, ParamX[Number] ** open ParadigmsLat, Prelude, ResLat, Predef in {
concrete NumeralLat of Numeral = CatLat ** open ParadigmsLat, Prelude, ResLat, Predef in {
lincat
Digit = TDigit ;
Sub10 = TNumeral ;

2
src/latin/ResLat.gf
View File

@@ -2,7 +2,7 @@
--1 Latin auxiliary operations.
resource ResLat = ParamX ** open Prelude, Predef, (C=CommonX) in {
resource ResLat = ParamX - [DTail,T1,T2,T3,inc] ** open Prelude, Predef, (C=CommonX) in {
param
Case = Nom | Acc | Gen | Dat | Abl | Voc ;

5
src/maltese/NumeralMlt.gf
View File

@@ -388,11 +388,6 @@ concrete NumeralMlt of Numeral = CatMlt [Numeral,Digits,Decimal] ** open Prelude
T3 => BIND++","++BIND ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
lin
-- Dig

6
src/persian/NumeralPes.gf
View File

@@ -105,12 +105,6 @@ lin pot3plus n m = {
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "م") ;

6
src/portuguese/NumeralPor.gf
View File

@@ -228,12 +228,6 @@ concrete NumeralPor of Numeral = CatPor [Numeral,Digits,Decimal] **
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mk4Dig : Str -> Str -> Str -> Number -> TDigit = \c,o,a,n -> {
s = table {

6
src/rukiga/NumeralCgg.gf
View File

@@ -116,12 +116,6 @@ lin pot3plus n m = let
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
};
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c c;

8
src/russian/NumeralRus.gf
View File

@@ -455,12 +455,6 @@ lincat
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mk3Dig : Str -> Str -> NumSize -> TDigit = \c,o,size -> mk4Dig c o Pl size ;
@@ -476,4 +470,4 @@ lincat
s : Str ;
size : NumSize
} ;
}
}

6
src/scots/NumeralSco.gf
View File

@@ -134,12 +134,6 @@ lin PosDecimal d = d ** {hasDot=False} ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + "th") ;

6
src/spanish/NumeralSpa.gf
View File

@@ -153,12 +153,6 @@ param
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
oper
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
mkDig : Str -> TDigit = \c -> mk2Dig c (c + ":o") ;

6
src/telugu/NumeralTel.gf
View File

@@ -73,12 +73,6 @@
---- _ => BIND
---- } ;
----
---- inc : DTail -> DTail = \t -> case t of {
---- T1 => T2 ;
---- T2 => T3 ;
---- T3 => T1
---- } ;
----
---- mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
---- mkDig : Str -> TDigit = \c -> mk2Dig c (c + "th") ;
----

6
src/turkish/NumeralTur.gf
View File

@@ -92,10 +92,4 @@ oper
T3 => BIND++","++BIND ;
_ => BIND
} ;
inc : DTail -> DTail = \t -> case t of {
T1 => T2 ;
T2 => T3 ;
T3 => T1
} ;
}