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 --2 Symbols as numerals
SymbNum : Symb -> Num ; -- n SymbNum : Symb -> Num ; -- n
SymbOrd : Symb -> Num ; -- n'th SymbOrd : Symb -> Ord ; -- n'th
--2 Symbol lists --2 Symbol lists

View File

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

View File

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

View File

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

View File

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