tests/sav/nitpretty_args21.res

   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
  38         extern `{ return errno; `}
  39
  40 private class A
  41         var my_attr = 1234
  42
  43         fun baz(msg: String) import String.length, String.to_cstring, my_attr, my_attr= `{
  44                 char *c_msg;
  45                 int msg_len;
  46
  47                 /* String_to_cstring isa a allback to msg.to_cstring */
  48                 c_msg = String_to_cstring( msg );
  49
  50                 /* String_length is a callback to msg.length */
  51                 msg_len = String_length( msg );
  52
  53                 printf( "received msg: %s, of length = %d\n", c_msg, msg_len );
  54
  55                 /* A_my_attr is a callback to the getter of self.my_attr */
  56                 printf( "old attr %d\n", A_my_attr(self) );
  57
  58                 if(chose)
  59                         truc;
  60                 else
  61                         chose;
  62
  63                 /* A_my_attr is a callback to the setter of self.my_attr= */
  64                 A_my_attr__assign( self, msg_len );
  65         `}
  66 end
  67
  68 extern class TimeT `{time_t`}
  69         new `{ return time(NULL); `}
  70         new from_i(i: Int) `{ return i; `}
  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
  81                 extern import Array[Int].length, Array[Int].[], Int.as(nullable Int) `{`}
  82 end
  83
  84 fun address_is_null: Bool is extern "address_is_null"
  85
  86 fun free `{ free(self); `}