1
0
forked from GitHub/gf-core

added SymbNum and SymbOrd in Symbol

This commit is contained in:
aarne
2006-11-12 13:42:50 +00:00
parent fbd9b862e2
commit 7cdb45fb5a
5 changed files with 14 additions and 1 deletions

View File

@@ -22,7 +22,7 @@ fun
--2 Symbols as numerals
SymbNum : Symb -> Num ; -- n
SymbOrd : Symb -> Num ; -- n'th
SymbOrd : Symb -> Ord ; -- n'th
--2 Symbol lists

View File

@@ -18,6 +18,9 @@ lin
SymbS sy = sy ;
SymbNum n = {s = \\_,_ => n.s ; isNum = True} ;
SymbOrd n = {s = \\_,_ => n.s ++ "."} ;
lincat
Symb, [Symb] = SS ;

View File

@@ -17,6 +17,10 @@ lin
} ;
SymbS sy = {s = \\_ => sy.s} ;
SymbNum n = {s = n.s} ;
SymbOrd n = {s = \\_ => n.s ++ "."} ;
lincat
Symb, [Symb] = SS ;

View File

@@ -18,6 +18,9 @@ lin
} ;
SymbS sy = {s = \\_ => sy.s} ;
SymbNum n = {s = \\_ => n.s ; isNum = True} ;
SymbOrd n = {s = \\_ => n.s ++ "."} ; ---
lincat
Symb, [Symb] = SS ;

View File

@@ -16,6 +16,9 @@ lin
SymbS sy = {s = \\_ => sy.s} ;
SymbNum n = {s = \\_ => n.s ; isDet = True} ;
SymbOrd n = {s = n.s ++ ":te" ; isDet = True} ; ---
lincat
Symb, [Symb] = SS ;