home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
oberon
/
tool
/
calc.tool
(
.txt
)
< prev
next >
Wrap
Oberon Text
|
1977-12-31
|
1KB
|
27 lines
Syntax10.Scn.Fnt
ParcElems
Alloc
LineElems
Alloc
Calc.Reset
Calc.Set alpha := 33H beta := 1000H ~
Calc.List
Calc.Hex alpha + beta
Calc.Dec alpha^2 * 3
Calc.Real cos (193 * pi)
Oberon Desktop Calculator
Warning:
Due to Texts scanner problems, a "-" should be
followed by a digit or a space to get proper results !
Expression Syntax:
Expr = Term {AddOp Term}.
Term = Factor {MulOp Factor}.
Factor = Atom {PowOp Atom}.
Atom = Number | Functor Atom | ident | "(" Expr ")".
PowOp = "^".
MulOp = "*" | "/" | "%" | "<" | ">". -- % modulo, < shift left, > shift right
AddOp = ["+" | "-"]. -- no add op: addition(!)
Number = (digit {digit}) | (digit {hexDigit} "H") | (digit {hexDigit} "X") | (""" char """).
Functor = "arccos" | "arcsin" | "arctan" | "cos" | "entier" | "exp" | "ln" | "short" | "sign" | "sin" | "sqrt" | "tan".
All operators except for "^" are left-associative; "^" is right-associative.