tests/test_ffi_c_new_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 # Test callback to an extern constructor from extern code
  16
  17 import core::text
  18
  19 extern class IntPtr `{ int* `}
  20         new (v: Int) `{
  21                 int *r = malloc(sizeof(int));
  22                 *r = v;
  23                 return r;
  24         `}
  25
  26         redef fun to_s import CString, CString.to_s `{
  27                 int len = snprintf(NULL, 0, "%d", *self) + 1;
  28                 char *c = new_CString(len);
  29                 sprintf(c, "%d", *self);
  30                 return CString_to_s(c);
  31         `}
  32 end
  33
  34 fun foo: IntPtr import IntPtr `{
  35         int *c = new_IntPtr(5678);
  36         return c;
  37 `}
  38
  39 var a = new IntPtr(1234)
  40 a.to_s.output
  41 "\n".output
  42
  43 var b = foo
  44 b.to_s.output
  45 "\n".output