aboutsummaryrefslogtreecommitdiff
path: root/src/boot/tokens.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-07-27 21:50:57 +0000
committerdos-reis <gdr@axiomatics.org>2010-07-27 21:50:57 +0000
commitb096b33583bf6357cdb6baaaa9232c179b6b2d24 (patch)
tree97906841a404480a7b5af9c6112ac6a76ee24510 /src/boot/tokens.boot
parent1fa9b881cc958d00fefed9ddc8eb4ebae7a04c54 (diff)
downloadopen-axiom-b096b33583bf6357cdb6baaaa9232c179b6b2d24.tar.gz
* boot/tokens.boot: quo and rem are now keywords and infix operators.
* boot/parser.boot (bpEuclid): New. Parse integer quotient and remainder expressions. (bpMinus): Now build on bpEuclid instead of bpTimes.
Diffstat (limited to 'src/boot/tokens.boot')
-rw-r--r--src/boot/tokens.boot6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 1424c6cd..476d0a62 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -56,8 +56,10 @@ shoeKeyWords == [ _
['"namespace", "NAMESPACE"], _
['"of", "OF"] , _
['"or", "OR"] , _
+ ['"rem", "REM"], _
['"repeat", "REPEAT"] , _
['"return", "RETURN"], _
+ ['"quo", "QUO"], _
['"structure", "STRUCTURE"], _
['"then", "THEN"], _
['"throw", "THROW"], _
@@ -187,6 +189,8 @@ for i in [ _
for i in [ _
["SHOEEQ" ,"="], _
["TIMES" ,"*"], _
+ ["REM", "rem"],_
+ ["QUO", "quo"],_
["PLUS" ,"+"], _
["IS" ,"is"], _
["ISNT" ,"isnt"], _
@@ -294,6 +298,8 @@ for i in [ _
["MINUS", "-"] , _
["TIMES", "*"] , _
["POWER", "EXPT"] , _
+ ['REM, 'REM],_
+ ['QUO, 'TRUNCATE],_
["SLASH", "/"] , _
["LT", "<"], _
["GT", ">"] , _