c_src/time._nitni.c

   1 #include "time._nitni.h"
   2 #include "time_nit.h"
   3 /* out/indirect function for time::Object::get_time */
   4 val_t Object_get_time___out( val_t recv )
   5 {
   6 bigint orig_return;
   7 val_t trans_return;
   8 orig_return = kernel_Any_Any_get_time_0( NULL );
   9 trans_return = TAG_Int(orig_return);
  10 nitni_local_ref_clean(  );
  11 return trans_return;
  12 }
  13 /* out/indirect function for time::Sys::nanosleep */
  14 void Sys_nanosleep___out( val_t recv, val_t sec, val_t nanosec )
  15 {
  16 std_nanosleep( NULL, UNTAG_Int(sec), UNTAG_Int(nanosec) );
  17 nitni_local_ref_clean(  );
  18 }
  19 /* out/indirect function for time::TimeT::init */
  20 val_t NEW_TimeT_standard___time___TimeT___init(  )
  21 {
  22 time_t orig_return;
  23 val_t trans_return;
  24 orig_return = new_TimeT___impl(  );
  25 trans_return = BOX_TimeT(orig_return);
  26 nitni_local_ref_clean(  );
  27 return trans_return;
  28 }
  29 /* out/indirect function for time::TimeT::from_i */
  30 val_t NEW_TimeT_standard___time___TimeT___from_i( val_t i )
  31 {
  32 time_t orig_return;
  33 val_t trans_return;
  34 orig_return = new_TimeT_from_i___impl( UNTAG_Int(i) );
  35 trans_return = BOX_TimeT(orig_return);
  36 nitni_local_ref_clean(  );
  37 return trans_return;
  38 }
  39 /* out/indirect function for time::TimeT::update */
  40 void TimeT_update___out( val_t recv )
  41 {
  42 time_t trans_recv;
  43 trans_recv = UNBOX_TimeT(recv);
  44 TimeT_update___impl( trans_recv );
  45 nitni_local_ref_clean(  );
  46 }
  47 /* out/indirect function for time::TimeT::ctime */
  48 val_t TimeT_ctime___out( val_t recv )
  49 {
  50 time_t trans_recv;
  51 String orig_return;
  52 val_t trans_return;
  53 trans_recv = UNBOX_TimeT(recv);
  54 orig_return = malloc( sizeof( struct s_String ) );
  55 orig_return->ref.val = NIT_NULL;
  56 orig_return->ref.count = 0;
  57 orig_return = TimeT_ctime___impl( trans_recv );
  58 trans_return = orig_return->ref.val;
  59 nitni_local_ref_clean(  );
  60 return trans_return;
  61 }
  62 /* out/indirect function for time::TimeT::difftime */
  63 val_t TimeT_difftime___out( val_t recv, val_t start )
  64 {
  65 time_t trans_recv;
  66 time_t trans___start;
  67 float orig_return;
  68 val_t trans_return;
  69 trans_recv = UNBOX_TimeT(recv);
  70 trans___start = UNBOX_TimeT(start);
  71 orig_return = TimeT_difftime___impl( trans_recv, trans___start );
  72 trans_return = BOX_Float(orig_return);
  73 nitni_local_ref_clean(  );
  74 return trans_return;
  75 }
  76 /* out/indirect function for time::TimeT::to_i */
  77 val_t TimeT_to_i___out( val_t recv )
  78 {
  79 time_t trans_recv;
  80 bigint orig_return;
  81 val_t trans_return;
  82 trans_recv = UNBOX_TimeT(recv);
  83 orig_return = TimeT_to_i___impl( trans_recv );
  84 trans_return = TAG_Int(orig_return);
  85 nitni_local_ref_clean(  );
  86 return trans_return;
  87 }
  88 /* out/indirect function for time::Tm::gmtime */
  89 val_t NEW_Tm_standard___time___Tm___gmtime(  )
  90 {
  91 struct tm * orig_return;
  92 val_t trans_return;
  93 orig_return = new_Tm_gmtime___impl(  );
  94 trans_return = BOX_Tm(orig_return);
  95 nitni_local_ref_clean(  );
  96 return trans_return;
  97 }
  98 /* out/indirect function for time::Tm::gmtime_from_timet */
  99 val_t NEW_Tm_standard___time___Tm___gmtime_from_timet( val_t t )
 100 {
 101 time_t trans___t;
 102 struct tm * orig_return;
 103 val_t trans_return;
 104 trans___t = UNBOX_TimeT(t);
 105 orig_return = new_Tm_gmtime_from_timet___impl( trans___t );
 106 trans_return = BOX_Tm(orig_return);
 107 nitni_local_ref_clean(  );
 108 return trans_return;
 109 }
 110 /* out/indirect function for time::Tm::localtime */
 111 val_t NEW_Tm_standard___time___Tm___localtime(  )
 112 {
 113 struct tm * orig_return;
 114 val_t trans_return;
 115 orig_return = new_Tm_localtime___impl(  );
 116 trans_return = BOX_Tm(orig_return);
 117 nitni_local_ref_clean(  );
 118 return trans_return;
 119 }
 120 /* out/indirect function for time::Tm::localtime_from_timet */
 121 val_t NEW_Tm_standard___time___Tm___localtime_from_timet( val_t t )
 122 {
 123 time_t trans___t;
 124 struct tm * orig_return;
 125 val_t trans_return;
 126 trans___t = UNBOX_TimeT(t);
 127 orig_return = new_Tm_localtime_from_timet___impl( trans___t );
 128 trans_return = BOX_Tm(orig_return);
 129 nitni_local_ref_clean(  );
 130 return trans_return;
 131 }
 132 /* out/indirect function for time::Tm::to_timet */
 133 val_t Tm_to_timet___out( val_t recv )
 134 {
 135 struct tm * trans_recv;
 136 time_t orig_return;
 137 val_t trans_return;
 138 trans_recv = UNBOX_Tm(recv);
 139 orig_return = Tm_to_timet___impl( trans_recv );
 140 trans_return = BOX_TimeT(orig_return);
 141 nitni_local_ref_clean(  );
 142 return trans_return;
 143 }
 144 /* out/indirect function for time::Tm::sec */
 145 val_t Tm_sec___out( val_t recv )
 146 {
 147 struct tm * trans_recv;
 148 bigint orig_return;
 149 val_t trans_return;
 150 trans_recv = UNBOX_Tm(recv);
 151 orig_return = Tm_sec___impl( trans_recv );
 152 trans_return = TAG_Int(orig_return);
 153 nitni_local_ref_clean(  );
 154 return trans_return;
 155 }
 156 /* out/indirect function for time::Tm::min */
 157 val_t Tm_min___out( val_t recv )
 158 {
 159 struct tm * trans_recv;
 160 bigint orig_return;
 161 val_t trans_return;
 162 trans_recv = UNBOX_Tm(recv);
 163 orig_return = Tm_min___impl( trans_recv );
 164 trans_return = TAG_Int(orig_return);
 165 nitni_local_ref_clean(  );
 166 return trans_return;
 167 }
 168 /* out/indirect function for time::Tm::hour */
 169 val_t Tm_hour___out( val_t recv )
 170 {
 171 struct tm * trans_recv;
 172 bigint orig_return;
 173 val_t trans_return;
 174 trans_recv = UNBOX_Tm(recv);
 175 orig_return = Tm_hour___impl( trans_recv );
 176 trans_return = TAG_Int(orig_return);
 177 nitni_local_ref_clean(  );
 178 return trans_return;
 179 }
 180 /* out/indirect function for time::Tm::mday */
 181 val_t Tm_mday___out( val_t recv )
 182 {
 183 struct tm * trans_recv;
 184 bigint orig_return;
 185 val_t trans_return;
 186 trans_recv = UNBOX_Tm(recv);
 187 orig_return = Tm_mday___impl( trans_recv );
 188 trans_return = TAG_Int(orig_return);
 189 nitni_local_ref_clean(  );
 190 return trans_return;
 191 }
 192 /* out/indirect function for time::Tm::mon */
 193 val_t Tm_mon___out( val_t recv )
 194 {
 195 struct tm * trans_recv;
 196 bigint orig_return;
 197 val_t trans_return;
 198 trans_recv = UNBOX_Tm(recv);
 199 orig_return = Tm_mon___impl( trans_recv );
 200 trans_return = TAG_Int(orig_return);
 201 nitni_local_ref_clean(  );
 202 return trans_return;
 203 }
 204 /* out/indirect function for time::Tm::year */
 205 val_t Tm_year___out( val_t recv )
 206 {
 207 struct tm * trans_recv;
 208 bigint orig_return;
 209 val_t trans_return;
 210 trans_recv = UNBOX_Tm(recv);
 211 orig_return = Tm_year___impl( trans_recv );
 212 trans_return = TAG_Int(orig_return);
 213 nitni_local_ref_clean(  );
 214 return trans_return;
 215 }
 216 /* out/indirect function for time::Tm::wday */
 217 val_t Tm_wday___out( val_t recv )
 218 {
 219 struct tm * trans_recv;
 220 bigint orig_return;
 221 val_t trans_return;
 222 trans_recv = UNBOX_Tm(recv);
 223 orig_return = Tm_wday___impl( trans_recv );
 224 trans_return = TAG_Int(orig_return);
 225 nitni_local_ref_clean(  );
 226 return trans_return;
 227 }
 228 /* out/indirect function for time::Tm::yday */
 229 val_t Tm_yday___out( val_t recv )
 230 {
 231 struct tm * trans_recv;
 232 bigint orig_return;
 233 val_t trans_return;
 234 trans_recv = UNBOX_Tm(recv);
 235 orig_return = Tm_yday___impl( trans_recv );
 236 trans_return = TAG_Int(orig_return);
 237 nitni_local_ref_clean(  );
 238 return trans_return;
 239 }
 240 /* out/indirect function for time::Tm::is_dst */
 241 val_t Tm_is_dst___out( val_t recv )
 242 {
 243 struct tm * trans_recv;
 244 int orig_return;
 245 val_t trans_return;
 246 trans_recv = UNBOX_Tm(recv);
 247 orig_return = Tm_is_dst___impl( trans_recv );
 248 trans_return = TAG_Bool(orig_return);
 249 nitni_local_ref_clean(  );
 250 return trans_return;
 251 }
 252 /* out/indirect function for time::Tm::asctime */
 253 val_t Tm_asctime___out( val_t recv )
 254 {
 255 struct tm * trans_recv;
 256 String orig_return;
 257 val_t trans_return;
 258 trans_recv = UNBOX_Tm(recv);
 259 orig_return = malloc( sizeof( struct s_String ) );
 260 orig_return->ref.val = NIT_NULL;
 261 orig_return->ref.count = 0;
 262 orig_return = Tm_asctime___impl( trans_recv );
 263 trans_return = orig_return->ref.val;
 264 nitni_local_ref_clean(  );
 265 return trans_return;
 266 }
 267 /* out/indirect function for time::Tm::strftime */
 268 val_t Tm_strftime___out( val_t recv, val_t format )
 269 {
 270 struct tm * trans_recv;
 271 String trans___format;
 272 String orig_return;
 273 val_t trans_return;
 274 trans_recv = UNBOX_Tm(recv);
 275 trans___format = malloc( sizeof( struct s_String ) );
 276 trans___format->ref.val = NIT_NULL;
 277 trans___format->ref.count = 0;
 278 nitni_local_ref_add( (struct nitni_ref *)trans___format );
 279 trans___format->ref.val = format;
 280 orig_return = malloc( sizeof( struct s_String ) );
 281 orig_return->ref.val = NIT_NULL;
 282 orig_return->ref.count = 0;
 283 orig_return = Tm_strftime___impl( trans_recv, trans___format );
 284 trans_return = orig_return->ref.val;
 285 nitni_local_ref_clean(  );
 286 return trans_return;
 287 }
 288 /* friendly for string::NativeString::to_s_with_copy */
 289 String time_NativeString_to_s_with_copy( char * recv )
 290 {
 291 val_t trans_recv;
 292 val_t orig_return;
 293 String trans_return;
 294 trans_recv = BOX_NativeString(recv);
 295 trans_return = malloc( sizeof( struct s_String ) );
 296 trans_return->ref.val = NIT_NULL;
 297 trans_return->ref.count = 0;
 298 nitni_local_ref_add( (struct nitni_ref *)trans_return );
 299 orig_return = CALL_standard___string___NativeString___to_s_with_copy( trans_recv )( trans_recv );
 300 trans_return->ref.val = orig_return;
 301 return trans_return;
 302 }
 303 /* friendly for string::String::to_cstring */
 304 char * time_String_to_cstring( String recv )
 305 {
 306 val_t trans_recv;
 307 val_t orig_return;
 308 char * trans_return;
 309 trans_recv = recv->ref.val;
 310 orig_return = CALL_standard___string___String___to_cstring( trans_recv )( trans_recv );
 311 trans_return = UNBOX_NativeString(orig_return);
 312 return trans_return;
 313 }
 314 /* friendly for string::NativeString::(string::Object::to_s) */
 315 String time_NativeString_to_s( char * recv )
 316 {
 317 val_t trans_recv;
 318 val_t orig_return;
 319 String trans_return;
 320 trans_recv = BOX_NativeString(recv);
 321 trans_return = malloc( sizeof( struct s_String ) );
 322 trans_return->ref.val = NIT_NULL;
 323 trans_return->ref.count = 0;
 324 nitni_local_ref_add( (struct nitni_ref *)trans_return );
 325 orig_return = CALL_standard___string___Object___to_s( trans_recv )( trans_recv );
 326 trans_return->ref.val = orig_return;
 327 return trans_return;
 328 }