1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2011-2013 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 *( by
: Int ) : A
import value
, A
`{
37 int s = A_value( recv );
39 return new_A( s * by );
42 fun /( by
: Int ) : A
import value
, A
`{
43 int s = A_value( recv );
45 return new_A( s / by );
48 redef fun ==( other
) import value
, nullable Object.as(A
) `{
49 if ( nullable_Object_is_a_A( other ) &&
50 A_value( nullable_Object_as_A(other) ) == A_value( recv ) )
56 fun %( other
: A
) : A
import value
, A
`{
57 return new_A( A_value( recv ) % A_value( other ) );
60 # fun +=( other : A ) : A import value, value=, A `{
61 # int new_val = A_value( recv ) + A_value( other );
62 # A_value__assign( recv, new_val );
63 # return new_A( new_val );
66 # fun -=( other : A ) : A import +=, A, value `{
67 # A inv_other = new_A( -1*A_value( other ) );
68 # return A__plus_equal( recv, int_other );
71 fun <=>( other
: A
) : A
import value
, A
`{
72 return new_A( A_value( recv )* 1024 );
75 # fun @( other : A ) : A import value, A `{
76 # return new_A( A_value( recv )* 1000 );
79 fun >( other
: A
) : Bool import value
`{
80 return A_value( recv ) > A_value( other );
83 fun <( other
: A
) : Bool import value
`{
84 return A_value( recv ) < A_value( other );
87 fun >=( other
: A
) : Bool import value
`{
88 return A_value( recv ) >= A_value( other );
91 fun <=( other
: A
) : Bool import value
`{
92 return A_value( recv ) <= A_value( other );
95 fun >>( other
: A
) import value
, value
=, A
`{
96 int new_val = A_value( recv ) >> A_value( other );
97 A_value__assign( recv, new_val );
100 fun <<( other
: A
) import value
, A
`{
101 int new_val = A_value( recv ) << A_value( other );
102 A_value__assign( recv, new_val );
105 fun []( index
: Int ) : A
import A
`{
106 return new_A( index );
109 fun []=( index
: Int, value
: A
) : A
import A
`{
110 return new_A( index + A_value( value ) );
113 redef fun to_s
do return value
.to_s
116 print
new A
( 1 ) + new A
( 10 ) # 11
117 print
new A
( 10 ) - new A
( 1 ) # 9
119 print
new A
( 2 ) * 11 # 22
120 print
new A
( 33 ) / 11 # 3
122 #print new A( 44 ) == null # false
123 print
new A
( 55 ) == 55 # false
124 print
new A
( 33 ) == new A
( 11 ) # false
125 print
new A
( 22 ) == new A
( 77 ) # false
126 print
new A
( 11 ) == new A
( 11 ) # true
128 print
new A
( 147 ) % new A
( 12 ) # 3
129 print
new A
( 4 ) <=> new A
( 123 ) # 4096
131 print
new A
( 1 ) < new A
( 100 ) # true
132 print
new A
( 100 ) < new A
( 100 ) # false
133 print
new A
( 100 ) < new A
( 1 ) # false
135 print
new A
( 1 ) > new A
( 100 ) # false
136 print
new A
( 100 ) > new A
( 100 ) # false
137 print
new A
( 100 ) > new A
( 1 ) # true
139 print
new A
( 1 ) <= new A
( 100 ) # true
140 print
new A
( 100 ) <= new A
( 100 ) # true
141 print
new A
( 100 ) <= new A
( 1 ) # false
143 print
new A
( 1 ) >= new A
( 100 ) # false
144 print
new A
( 100 ) >= new A
( 100 ) # true
145 print
new A
( 100 ) >= new A
( 1 ) # true
158 a
[ 74 ] = new A
( 96 )