# This file is part of NIT ( http://www.nitlanguage.org ).
#
# Copyright 2011 Alexis Laferrière <alexis.laf@xymus.net>
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.


class A
	var value : Int

	init ( value : Int ) do self.value = value

	fun +( other : A ) : A is extern import value, A

	fun -( other : A ) : A is extern import value, A

	fun *( by : Int ) : A is extern import value, A

	fun /( by : Int ) : A is extern import value, A

	redef fun ==( other ) is extern import value, nullable Object as(A)

	fun %( other : A ) : A is extern import value, A

#	fun +=( other : A ) : A is extern import value, value=, A `{
#		int new_val = A_value( recv ) + A_value( other );
#		A_value__assign( recv, new_val );
#		return new_A( new_val );
#	`}

#	fun -=( other : A ) : A is extern import +=, A, value `{
#		A inv_other = new_A( -1*A_value( other ) );
#		return A__plus_equal( recv, int_other );
#	`}

	fun <=>( other : A ) : A is extern import value, A

#	fun @( other : A ) : A is extern import value, A `{
#		return new_A( A_value( recv )* 1000 );
#	`}

	fun >( other : A ) : Bool is extern import value

	fun <( other : A ) : Bool is extern import value

	fun >=( other : A ) : Bool is extern import value

	fun <=( other : A ) : Bool is extern import value

	fun >>( other : A ) is extern import value, value=, A

	fun <<( other : A ) is extern import value, A

	fun []( index : Int ) : A is extern import A

	fun []=( index : Int, value : A ) : A is extern import A

	redef fun to_s do return value.to_s
end

print new A( 1 ) + new A( 10 ) # 11
print new A( 10 ) - new A( 1 ) # 9

print new A( 2 ) * 11 # 22
print new A( 33 ) / 11 # 3

print new A( 44 ) == null # false
print new A( 55 ) == 55 # false
print new A( 33 ) == new A( 11 ) # false
print new A( 22 ) == new A( 77 ) # false
print new A( 11 ) == new A( 11 ) # true

print new A( 147 ) % new A( 12 ) # 3
print new A( 4 ) <=> new A( 123 ) # 4096

print new A( 1 ) < new A( 100 ) # true
print new A( 100 ) < new A( 100 ) # false
print new A( 100 ) < new A( 1 ) # false

print new A( 1 ) > new A( 100 ) # false
print new A( 100 ) > new A( 100 ) # false
print new A( 100 ) > new A( 1 ) # true

print new A( 1 ) <= new A( 100 ) # true
print new A( 100 ) <= new A( 100 ) # true
print new A( 100 ) <= new A( 1 ) # false

print new A( 1 ) >= new A( 100 ) # false
print new A( 100 ) >= new A( 100 ) # true
print new A( 100 ) >= new A( 1 ) # true

#var x = new A( 1 )
#x << new A( 5 )
#print x # 16

#var y = new A( 32 )
#y >> new A( 2 )
#print y # 8

var a = new A( 456 )
print a[ 52 ] # 52

a[ 74 ] = new A( 96 )
print a # 96