mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
added SymbNum and SymbOrd in Symbol
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -18,6 +18,9 @@ lin
|
||||
|
||||
SymbS sy = sy ;
|
||||
|
||||
SymbNum n = {s = \\_,_ => n.s ; isNum = True} ;
|
||||
SymbOrd n = {s = \\_,_ => n.s ++ "."} ;
|
||||
|
||||
lincat
|
||||
|
||||
Symb, [Symb] = SS ;
|
||||
|
||||
@@ -17,6 +17,10 @@ lin
|
||||
} ;
|
||||
SymbS sy = {s = \\_ => sy.s} ;
|
||||
|
||||
SymbNum n = {s = n.s} ;
|
||||
SymbOrd n = {s = \\_ => n.s ++ "."} ;
|
||||
|
||||
|
||||
lincat
|
||||
|
||||
Symb, [Symb] = SS ;
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
@@ -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 ;
|
||||
|
||||
Reference in New Issue
Block a user