blob: b9d007a62b5b57c51cf0ab472704f57d4e4f4a03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
TYPE Box
DECLARE Value : INTEGER
ENDTYPE
OVERLOAD FUNCTION OPERATOR+(a : Box, b : REAL) RETURNS INTEGER
RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION OPERATOR<(a : Box, b : Box) RETURNS STRING
RETURN "text"
ENDFUNCTION
DECLARE a : Box
DECLARE flag : BOOLEAN
flag <- a < a
OUTPUT a + 1
OVERLOAD FUNCTION OPERATOR&(a : INTEGER, b : INTEGER) RETURNS INTEGER
RETURN b
ENDFUNCTION
OVERLOAD FUNCTION OPERATOR*(a : Box) RETURNS INTEGER
RETURN 1
ENDFUNCTION
OVERLOAD FUNCTION OPERATOR+(a : Box, b : REAL) RETURNS REAL
RETURN 2.0
ENDFUNCTION
|
