GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 23:02:50 -06:00
Code Issues Packages Projects Releases Wiki 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

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 ;
}
}