blob: 9b4813560f83aa30244db7a50b45cd3d281444a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
CLASS Box
Value : INTEGER
OVERLOAD FUNCTION OPERATOR+(rhs : Box) RETURNS INTEGER
RETURN 1
ENDFUNCTION
PRIVATE OVERLOAD FUNCTION OPERATOR&(rhs : STRING) RETURNS STRING
RETURN rhs
ENDFUNCTION
ENDCLASS
OVERLOAD FUNCTION OPERATOR+(lhs : Box, rhs : Box) RETURNS INTEGER
RETURN 2
ENDFUNCTION
DECLARE a : Box
OUTPUT a + a
OUTPUT a & "x"
OUTPUT a.OPERATOR&("x")
DECLARE items : ARRAY[1:2] OF Box
OUTPUT NOT items
|
