1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2011-2014 Alexis Laferrière <alexis.laf@xymus.net>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
20 init ( value
: Int ) do self.value
= value
22 fun +( other
: A
) : A
import value
, A
`{
23 int s = A_value( recv );
24 int o = A_value( other );
26 return new_A( s + o );
29 fun -( other
: A
) : A
import value
, A
`{
30 int s = A_value( recv );
31 int o = A_value( other );
33 return new_A( s - o );
36 fun -: A
import value
, A
`{
37 int s = A_value(recv);
41 fun *( by
: Int ) : A
import value
, A
`{
42 int s = A_value( recv );
44 return new_A( s * by );
47 fun /( by
: Int ) : A
import value
, A
`{
48 int s = A_value( recv );
50 return new_A( s / by );
53 redef fun ==( other
) import value
, nullable Object.as(A
) `{
54 if ( nullable_Object_is_a_A( other ) &&
55 A_value( nullable_Object_as_A(other) ) == A_value( recv ) )
61 fun %( other
: A
) : A
import value
, A
`{
62 return new_A( A_value( recv ) % A_value( other ) );
65 # fun +=( other : A ) : A import value, value=, A `{
66 # int new_val = A_value( recv ) + A_value( other );
67 # A_value__assign( recv, new_val );
68 # return new_A( new_val );
71 # fun -=( other : A ) : A import +=, A, value `{
72 # A inv_other = new_A( -1*A_value( other ) );
73 # return A__plus_equal( recv, int_other );
76 fun <=>( other
: A
) : A
import value
, A
`{
77 return new_A( A_value( recv )* 1024 );
80 # fun @( other : A ) : A import value, A `{
81 # return new_A( A_value( recv )* 1000 );
84 fun >( other
: A
) : Bool import value
`{
85 return A_value( recv ) > A_value( other );
88 fun <( other
: A
) : Bool import value
`{
89 return A_value( recv ) < A_value( other );
92 fun >=( other
: A
) : Bool import value
`{
93 return A_value( recv ) >= A_value( other );
96 fun <=( other
: A
) : Bool import value
`{
97 return A_value( recv ) <= A_value( other );
100 fun >>( other
: A
) import value
, value
=, A
`{
101 int new_val = A_value( recv ) >> A_value( other );
102 A_value__assign( recv, new_val );
105 fun <<( other
: A
) import value
, A
`{
106 int new_val = A_value( recv ) << A_value( other );
107 A_value__assign( recv, new_val );
110 fun []( index
: Int ) : A
import A
`{
111 return new_A( index );
114 fun []=( index
: Int, value
: A
) : A
import A
`{
115 return new_A( index + A_value( value ) );
118 redef fun to_s
do return value
.to_s
121 print
new A
( 1 ) + new A
( 10 ) # 11
122 print
new A
( 10 ) - new A
( 1 ) # 9
124 print
new A
( 2 ) * 11 # 22
125 print
new A
( 33 ) / 11 # 3
127 #print new A( 44 ) == null # false
128 print
new A
( 55 ) == 55 # false
129 print
new A
( 33 ) == new A
( 11 ) # false
130 print
new A
( 22 ) == new A
( 77 ) # false
131 print
new A
( 11 ) == new A
( 11 ) # true
133 print
new A
( 147 ) % new A
( 12 ) # 3
134 print
new A
( 4 ) <=> new A
( 123 ) # 4096
136 print
new A
( 1 ) < new A
( 100 ) # true
137 print
new A
( 100 ) < new A
( 100 ) # false
138 print
new A
( 100 ) < new A
( 1 ) # false
140 print
new A
( 1 ) > new A
( 100 ) # false
141 print
new A
( 100 ) > new A
( 100 ) # false
142 print
new A
( 100 ) > new A
( 1 ) # true
144 print
new A
( 1 ) <= new A
( 100 ) # true
145 print
new A
( 100 ) <= new A
( 100 ) # true
146 print
new A
( 100 ) <= new A
( 1 ) # false
148 print
new A
( 1 ) >= new A
( 100 ) # false
149 print
new A
( 100 ) >= new A
( 100 ) # true
150 print
new A
( 100 ) >= new A
( 1 ) # true
163 a
[ 74 ] = new A
( 96 )