tests/test_ni_special_pointer.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2011 Alexis Laferrière <alexis.laf@xymus.net>
   4 #
   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
   8 #
   9 #     http://www.apache.org/licenses/LICENSE-2.0
  10 #
  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.
  16
  17 extern ExternInt special Pointer
  18         new as_0 is extern
  19         new as_1 is extern
  20         new as_2 is extern
  21
  22         redef fun to_s : String is extern import String::from_cstring
  23         fun to_i : Int is extern
  24 end
  25
  26 redef class Int
  27         fun to_extern_int : ExternInt is extern
  28 end
  29
  30 var i = new ExternInt.as_0
  31 print i.to_i
  32
  33 i = new ExternInt.as_1
  34 print i.to_i
  35
  36 i = new ExternInt.as_2
  37 print i.to_i
  38
  39 i = 1234 .to_extern_int
  40 print i.to_i