tests/test_ffi_c_lots_of_refs.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2014 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 class As `{ A* `}
  18         new (size: Int) `{
  19                 return malloc(sizeof(A) * size);
  20         `}
  21
  22         fun []=(i: Int, v: A) `{
  23                 self[i] = v;
  24                 A_incr_ref(v);
  25         `}
  26
  27         fun [](i: Int): A `{
  28                 return self[i];
  29         `}
  30 end
  31
  32 class A
  33         var i: Int
  34         var s: String
  35
  36         init(i: Int)
  37         do
  38                 self.i = i
  39                 self.s = i.to_s
  40         end
  41
  42         redef fun to_s do return "<{i} {s}>"
  43 end
  44
  45 var length = 1000000
  46 var aaa = new As(length)
  47 for i in length.times do aaa[i] = new A(i)
  48 sys.force_garbage_collection
  49 for i in length.times do assert aaa[i].to_s == "<{i} {i}>"