tests/test_ffi_c_new.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2011-2013 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 `{
  18 int dv = 1234;
  19 `}
  20
  21 extern class A `{int *`}
  22         super Pointer
  23
  24         new import p `{
  25                 return &dv;
  26         `}
  27         new with_args( x : Int, a : A ) `{
  28         int* v = (int*)malloc( sizeof(int) );
  29         (*v) = (int)x;
  30             return v;
  31         `}
  32
  33         fun a do print "a"
  34         fun p `{
  35             printf( "allo from %i\n", *self );
  36         `}
  37         fun d : A import d, A `{
  38         return new_A();
  39         `}
  40 end
  41
  42 class B
  43         init do end
  44 end
  45
  46 var a = new A
  47 var b = new A.with_args( 2345, a )
  48 a.a
  49 b.a
  50
  51 a.p # 1234
  52 b.p # 2345
  53 new A.with_args( 3456, b ).p # 3456
  54
  55 a.d.p #
  56 b.d.p #
  57
  58 var c = new B