tests/test_pretty/test_extern1.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 import end
  16 intrude import core::kernel
  17 private import core::text
  18
  19 `{`}
  20
  21 `{
  22 #ifdef truc
  23         #undef truc
  24 #endif
  25 `}
  26
  27 in "C headers" `{
  28         #include <errno.h>
  29 `}
  30
  31 fun err: Int is extern `{ return 1; `}
  32
  33 fun errno: Int is extern `{
  34         return errno;
  35 `}
  36
  37 fun errnoooooooooooooooooooooooooooooooooooooooooooooooooooooooooo: Int is extern `{ return errno; `}
  38
  39 private class A
  40     var my_attr = 1234
  41
  42     fun baz( msg : String ) import String.length, String.to_cstring, my_attr, my_attr= `{
  43                 char *c_msg;
  44                 int msg_len;
  45
  46                 /* String_to_cstring isa a allback to msg.to_cstring */
  47                 c_msg = String_to_cstring( msg );
  48
  49                 /* String_length is a callback to msg.length */
  50                 msg_len = String_length( msg );
  51
  52                 printf( "received msg: %s, of length = %d\n", c_msg, msg_len );
  53
  54                 /* A_my_attr is a callback to the getter of self.my_attr */
  55                 printf( "old attr %d\n", A_my_attr(self) );
  56
  57                 if(chose)
  58                         truc;
  59                 else
  60                         chose;
  61
  62                 /* A_my_attr is a callback to the setter of self.my_attr= */
  63                 A_my_attr__assign( self, msg_len );
  64     `}
  65 end
  66
  67 extern class TimeT `{time_t`}
  68         new `{ return time(NULL); `}
  69         new from_i(i: Int) `{ return i; `}
  70
  71         fun update `{ time(&self); `}
  72
  73         fun ctime: String import CString.to_s `{
  74                 return CString_to_s( ctime(&self) );
  75         `}
  76
  77         # Difference in secondes from start (self if the end time)
  78         fun difftime(start: TimeT): Float `{ return difftime(self, start); `}
  79
  80         private fun intern_poll(in_fds: Array[Int], out_fds: Array[Int]) : nullable Int is extern import Array[Int].length, Array[Int].[], Int.as(nullable Int) `{`}
  81 end
  82
  83 fun address_is_null: Bool is extern "address_is_null"
  84
  85 fun free `{ free(self); `}
  86