tests/base_adaptive_loop_isa.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Licensed under the Apache License, Version 2.0 (the "License");
   4 # you may not use this file except in compliance with the License.
   5 # You may obtain a copy of the License at
   6 #
   7 #     http://www.apache.org/licenses/LICENSE-2.0
   8 #
   9 # Unless required by applicable law or agreed to in writing, software
  10 # distributed under the License is distributed on an "AS IS" BASIS,
  11 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  12 # See the License for the specific language governing permissions and
  13 # limitations under the License.
  14
  15 import core::kernel
  16
  17
  18 interface A
  19 end
  20
  21 class B
  22         super A
  23         var next: A
  24 end
  25
  26 class C
  27         super A
  28 end
  29
  30 class D
  31         super A
  32 end
  33
  34 fun foo(a: A): Int
  35 do
  36         var i = 0
  37         if a isa B then while i < 10 do
  38                 i += 1
  39
  40                 if a isa C then return i
  41                 if not a isa B then return -i
  42                 a = a.next #alt1#
  43         end
  44         return i
  45 end
  46
  47 var c = new C
  48 var b = new B(c)
  49 var bd = new B(new D)
  50 foo(c).output
  51 foo(b).output
  52 foo(bd).output