forked from GitHub/gf-core
added SymbNum and SymbOrd in Symbol
This commit is contained in:
@@ -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
|
||||||
|
|
||||||
|
|||||||
@@ -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 ;
|
||||||
|
|||||||
@@ -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 ;
|
||||||
|
|||||||
@@ -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 ;
|
||||||
|
|||||||
@@ -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 ;
|
||||||
|
|||||||
Reference in New Issue
Block a user