msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

generalized pt -transfer so that it goes into subtrees (naive implementation in TreeOperations; using PGF.Expr.match would be better); example given in 'h pt'

Browse Source
This commit is contained in:
aarne
2011-03-12 10:20:54 +00:00
parent 9fdcc97716
commit d782be6440
4 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/abstract/Noun.gf
View File

@@ -55,6 +55,7 @@ abstract Noun = Cat ** {
-- $Card$ consists of either digits or numeral words.
data
NumDigits : Digits -> Card ; -- 51
NumNumeral : Numeral -> Card ; -- fifty-one
@@ -62,6 +63,7 @@ abstract Noun = Cat ** {
-- A $Card$ can be modified by certain adverbs.
fun
AdNum : AdN -> Card -> Card ; -- almost 51
-- An $Ord$ consists of either digits or numeral words.

9
lib/src/abstract/NumeralTransfer.gf
View File

@@ -1,4 +1,9 @@
abstract NumeralTransfer = Numeral ** {
abstract NumeralTransfer = Numeral, Noun ** {
fun digits2numeral : Card -> Card ;
def
digits2numeral (NumDigits d) = NumNumeral (digits2num d) ;
digits2numeral n = n ;
fun digits2num : Digits -> Numeral ;
def digits2num (IDig d1) = num (pot2as3 (pot1as2 (pot0as1 (dn10 d1)))) ;
@@ -89,4 +94,4 @@ def nd n2 = D_2 ;
nd n8 = D_8 ;
nd n9 = D_9 ;
}
}