tests/test_intern_extern.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 class A
  16         fun foo is intern `{ puts("A::foo from C"); `}
  17         fun bar is intern do print "A::bar from Nit"
  18 end
  19
  20 redef class NativeArray[E]
  21         fun foo is intern `{ puts("NA::foo from C"); `}
  22         fun bar is intern do print "NA::bar from Nit"
  23 end
  24
  25 redef class Int
  26         fun foo is intern `{ puts("Int::foo from C"); `}
  27         fun bar is intern do print "Int::bar from Nit"
  28 end
  29
  30 var a = new A
  31 a.foo
  32 a.bar
  33
  34 var na = new NativeArray[Object](5)
  35 na.foo
  36 na.bar
  37
  38 1.foo
  39 1.bar