c_src/stream._nitni.c

   1 #include "stream._nitni.h"
   2 #include "stream_nit.h"
   3 /* out/indirect function for stream::FDStream::native_close */
   4 val_t FDStream_native_close___out( val_t recv, val_t i )
   5 {
   6 bigint trans___i;
   7 bigint orig_return;
   8 val_t trans_return;
   9 trans___i = UNTAG_Int(i);
  10 orig_return = stream_FDStream_FDStream_native_close_1( NULL, trans___i );
  11 trans_return = TAG_Int(orig_return);
  12 nitni_local_ref_clean(  );
  13 return trans_return;
  14 }
  15 /* out/indirect function for stream::FDStream::native_read_char */
  16 val_t FDStream_native_read_char___out( val_t recv, val_t i )
  17 {
  18 bigint trans___i;
  19 bigint orig_return;
  20 val_t trans_return;
  21 trans___i = UNTAG_Int(i);
  22 orig_return = stream_FDStream_FDStream_native_read_char_1( NULL, trans___i );
  23 trans_return = TAG_Int(orig_return);
  24 nitni_local_ref_clean(  );
  25 return trans_return;
  26 }
  27 /* out/indirect function for stream::FDStream::native_read */
  28 val_t FDStream_native_read___out( val_t recv, val_t i, val_t buf, val_t len )
  29 {
  30 bigint trans___i;
  31 bigint trans___len;
  32 bigint orig_return;
  33 val_t trans_return;
  34 trans___i = UNTAG_Int(i);
  35 trans___len = UNTAG_Int(len);
  36 orig_return = stream_FDStream_FDStream_native_read_3( NULL, trans___i, UNBOX_NativeString(buf), trans___len );
  37 trans_return = TAG_Int(orig_return);
  38 nitni_local_ref_clean(  );
  39 return trans_return;
  40 }
  41 /* out/indirect function for stream::FDStream::native_write */
  42 val_t FDStream_native_write___out( val_t recv, val_t i, val_t buf, val_t len )
  43 {
  44 bigint trans___i;
  45 bigint trans___len;
  46 bigint orig_return;
  47 val_t trans_return;
  48 trans___i = UNTAG_Int(i);
  49 trans___len = UNTAG_Int(len);
  50 orig_return = stream_FDStream_FDStream_native_write_3( NULL, trans___i, UNBOX_NativeString(buf), trans___len );
  51 trans_return = TAG_Int(orig_return);
  52 nitni_local_ref_clean(  );
  53 return trans_return;
  54 }
  55 /* out/indirect function for stream::FDStream::native_write_char */
  56 val_t FDStream_native_write_char___out( val_t recv, val_t i, val_t c )
  57 {
  58 bigint trans___i;
  59 char trans___c;
  60 bigint orig_return;
  61 val_t trans_return;
  62 trans___i = UNTAG_Int(i);
  63 trans___c = UNTAG_Char(c);
  64 orig_return = stream_FDStream_FDStream_native_write_char_2( NULL, trans___i, trans___c );
  65 trans_return = TAG_Int(orig_return);
  66 nitni_local_ref_clean(  );
  67 return trans_return;
  68 }
  69 /* out/indirect function for stream::Object::intern_poll */
  70 val_t Object_intern_poll___out( val_t recv, val_t in_fds, val_t out_fds )
  71 {
  72 Object trans_recv;
  73 Array trans___in_fds;
  74 Array trans___out_fds;
  75 nullable_Int orig_return;
  76 val_t trans_return;
  77 trans_recv = malloc( sizeof( struct s_Object ) );
  78 trans_recv->ref.val = NIT_NULL;
  79 trans_recv->ref.count = 0;
  80 nitni_local_ref_add( (struct nitni_ref *)trans_recv );
  81 trans_recv->ref.val = recv;
  82 trans___in_fds = malloc( sizeof( struct s_Array ) );
  83 trans___in_fds->ref.val = NIT_NULL;
  84 trans___in_fds->ref.count = 0;
  85 nitni_local_ref_add( (struct nitni_ref *)trans___in_fds );
  86 trans___in_fds->ref.val = in_fds;
  87 trans___out_fds = malloc( sizeof( struct s_Array ) );
  88 trans___out_fds->ref.val = NIT_NULL;
  89 trans___out_fds->ref.count = 0;
  90 nitni_local_ref_add( (struct nitni_ref *)trans___out_fds );
  91 trans___out_fds->ref.val = out_fds;
  92 orig_return = malloc( sizeof( struct s_nullable_Int ) );
  93 orig_return->ref.val = NIT_NULL;
  94 orig_return->ref.count = 0;
  95 orig_return = Object_intern_poll___impl( trans_recv, trans___in_fds, trans___out_fds );
  96 trans_return = orig_return->ref.val;
  97 nitni_local_ref_clean(  );
  98 return trans_return;
  99 }
 100 nullable_Int stream_null_Int()
 101 {
 102 nullable_Int n;
 103 n = malloc( sizeof( struct s_nullable_Int ) );
 104 n->ref.val = NIT_NULL;
 105 n->ref.count = 0;
 106 nitni_local_ref_add( (struct nitni_ref *)n );
 107 return n;
 108 }
 109 nullable_Object stream_null_Object()
 110 {
 111 nullable_Object n;
 112 n = malloc( sizeof( struct s_nullable_Object ) );
 113 n->ref.val = NIT_NULL;
 114 n->ref.count = 0;
 115 nitni_local_ref_add( (struct nitni_ref *)n );
 116 return n;
 117 }
 118 /* friendly for array::AbstractArrayRead::(abstract_collection::Collection::length) */
 119 bigint stream_Array_length( Array recv )
 120 {
 121 val_t trans_recv;
 122 val_t orig_return;
 123 bigint trans_return;
 124 trans_recv = recv->ref.val;
 125 orig_return = CALL_standard___collection___abstract_collection___Collection___length( trans_recv )( trans_recv );
 126 trans_return = UNTAG_Int(orig_return);
 127 return trans_return;
 128 }
 129 /* friendly for array::Array::(abstract_collection::SequenceRead::[]) */
 130 nullable_Object stream_Array__index( Array recv, bigint index )
 131 {
 132 val_t trans_recv;
 133 val_t trans___index;
 134 val_t orig_return;
 135 nullable_Object trans_return;
 136 trans_recv = recv->ref.val;
 137 trans___index = TAG_Int(index);
 138 trans_return = malloc( sizeof( struct s_nullable_Object ) );
 139 trans_return->ref.val = NIT_NULL;
 140 trans_return->ref.count = 0;
 141 nitni_local_ref_add( (struct nitni_ref *)trans_return );
 142 orig_return = CALL_standard___collection___abstract_collection___SequenceRead_____bra( trans_recv )( trans_recv, trans___index );
 143 trans_return->ref.val = orig_return;
 144 return trans_return;
 145 }
 146 int stream_nullable_Object_is_a_Int( nullable_Object value )
 147 {
 148 val_t temp;
 149 temp = value->ref.val;
 150 if ( ISNULL(temp) ) return 0;
 151 if ( ! ( ISOBJ( temp ) ? OBJISA( temp, standard___kernel___Int ): VALISA( temp, standard___kernel___Int ) ) ) return 0;
 152 return 1;
 153 }
 154 bigint stream_nullable_Object_as_Int( nullable_Object value )
 155 {
 156 val_t temp;
 157 bigint out;
 158 temp = value->ref.val;
 159 if ( ISNULL(temp) ){    fprintf( stderr, "Casting from nullable Object to Int failed because value is null." );
 160         abort();
 161 }if ( ! ( ISOBJ( temp ) ? OBJISA( temp, standard___kernel___Int ): VALISA( temp, standard___kernel___Int ) ) ){
 162         fprintf( stderr, "Casting to Int failed because value is not a Int." );
 163         abort();
 164 }
 165 out = UNTAG_Int(temp);
 166 return out;
 167 }
 168 nullable_Int stream_Int_as_nullable( bigint value )
 169 {
 170 val_t temp;
 171 nullable_Int out;
 172 out = malloc( sizeof( struct s_nullable_Int ) );
 173 out->ref.val = NIT_NULL;
 174 out->ref.count = 0;
 175 nitni_local_ref_add( (struct nitni_ref *)out );
 176 temp = TAG_Int(value);
 177 out->ref.val = temp;
 178 return out;
 179 }