c_src: update to have intern args

[nit.git] / c_src / file._nitni.c

diff --git a/c_src/file._nitni.c b/c_src/file._nitni.c
index 460ab72..d4c650b 100644 (file)
--- a/c_src/file._nitni.c
+++ b/c_src/file._nitni.c
@@ -32,9 +32,11 @@ return trans_return;
 /* out/indirect function for file::NativeString::file_exists */
 val_t NativeString_file_exists___out( val_t recv )
 {
+char * trans_recv;
 int orig_return;
 val_t trans_return;
-orig_return = string_NativeString_NativeString_file_exists_0( UNBOX_NativeString(recv) );
+trans_recv = UNBOX_NativeString(recv);
+orig_return = string_NativeString_NativeString_file_exists_0( trans_recv );
 trans_return = TAG_Bool(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -42,9 +44,11 @@ return trans_return;
 /* out/indirect function for file::NativeString::file_stat */
 val_t NativeString_file_stat___out( val_t recv )
 {
+char * trans_recv;
 void* orig_return;
 val_t trans_return;
-orig_return = string_NativeString_NativeString_file_stat_0( UNBOX_NativeString(recv) );
+trans_recv = UNBOX_NativeString(recv);
+orig_return = string_NativeString_NativeString_file_stat_0( trans_recv );
 trans_return = BOX_FileStat(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -52,9 +56,11 @@ return trans_return;
 /* out/indirect function for file::NativeString::file_mkdir */
 val_t NativeString_file_mkdir___out( val_t recv )
 {
+char * trans_recv;
 int orig_return;
 val_t trans_return;
-orig_return = string_NativeString_NativeString_file_mkdir_0( UNBOX_NativeString(recv) );
+trans_recv = UNBOX_NativeString(recv);
+orig_return = string_NativeString_NativeString_file_mkdir_0( trans_recv );
 trans_return = TAG_Bool(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -62,9 +68,11 @@ return trans_return;
 /* out/indirect function for file::NativeString::file_delete */
 val_t NativeString_file_delete___out( val_t recv )
 {
+char * trans_recv;
 int orig_return;
 val_t trans_return;
-orig_return = string_NativeString_NativeString_file_delete_0( UNBOX_NativeString(recv) );
+trans_recv = UNBOX_NativeString(recv);
+orig_return = string_NativeString_NativeString_file_delete_0( trans_recv );
 trans_return = TAG_Bool(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -72,9 +80,11 @@ return trans_return;
 /* out/indirect function for file::FileStat::mode */
 val_t FileStat_mode___out( val_t recv )
 {
+void* trans_recv;
 bigint orig_return;
 val_t trans_return;
-orig_return = file_FileStat_FileStat_mode_0( UNBOX_FileStat(recv) );
+trans_recv = UNBOX_FileStat(recv);
+orig_return = file_FileStat_FileStat_mode_0( trans_recv );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -82,9 +92,11 @@ return trans_return;
 /* out/indirect function for file::FileStat::atime */
 val_t FileStat_atime___out( val_t recv )
 {
+void* trans_recv;
 bigint orig_return;
 val_t trans_return;
-orig_return = file_FileStat_FileStat_atime_0( UNBOX_FileStat(recv) );
+trans_recv = UNBOX_FileStat(recv);
+orig_return = file_FileStat_FileStat_atime_0( trans_recv );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -92,9 +104,11 @@ return trans_return;
 /* out/indirect function for file::FileStat::ctime */
 val_t FileStat_ctime___out( val_t recv )
 {
+void* trans_recv;
 bigint orig_return;
 val_t trans_return;
-orig_return = file_FileStat_FileStat_ctime_0( UNBOX_FileStat(recv) );
+trans_recv = UNBOX_FileStat(recv);
+orig_return = file_FileStat_FileStat_ctime_0( trans_recv );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -102,9 +116,11 @@ return trans_return;
 /* out/indirect function for file::FileStat::mtime */
 val_t FileStat_mtime___out( val_t recv )
 {
+void* trans_recv;
 bigint orig_return;
 val_t trans_return;
-orig_return = file_FileStat_FileStat_mtime_0( UNBOX_FileStat(recv) );
+trans_recv = UNBOX_FileStat(recv);
+orig_return = file_FileStat_FileStat_mtime_0( trans_recv );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -112,9 +128,11 @@ return trans_return;
 /* out/indirect function for file::FileStat::size */
 val_t FileStat_size___out( val_t recv )
 {
+void* trans_recv;
 bigint orig_return;
 val_t trans_return;
-orig_return = file_FileStat_FileStat_size_0( UNBOX_FileStat(recv) );
+trans_recv = UNBOX_FileStat(recv);
+orig_return = file_FileStat_FileStat_size_0( trans_recv );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -122,11 +140,13 @@ return trans_return;
 /* out/indirect function for file::NativeFile::io_read */
 val_t NativeFile_io_read___out( val_t recv, val_t buf, val_t len )
 {
-bigint trans___len;
+void* trans_recv;
+char * trans___buf;
 bigint orig_return;
 val_t trans_return;
-trans___len = UNTAG_Int(len);
-orig_return = file_NativeFile_NativeFile_io_read_2( UNBOX_NativeFile(recv), UNBOX_NativeString(buf), trans___len );
+trans_recv = UNBOX_NativeFile(recv);
+trans___buf = UNBOX_NativeString(buf);
+orig_return = file_NativeFile_NativeFile_io_read_2( trans_recv, trans___buf, UNTAG_Int(len) );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -134,11 +154,13 @@ return trans_return;
 /* out/indirect function for file::NativeFile::io_write */
 val_t NativeFile_io_write___out( val_t recv, val_t buf, val_t len )
 {
-bigint trans___len;
+void* trans_recv;
+char * trans___buf;
 bigint orig_return;
 val_t trans_return;
-trans___len = UNTAG_Int(len);
-orig_return = file_NativeFile_NativeFile_io_write_2( UNBOX_NativeFile(recv), UNBOX_NativeString(buf), trans___len );
+trans_recv = UNBOX_NativeFile(recv);
+trans___buf = UNBOX_NativeString(buf);
+orig_return = file_NativeFile_NativeFile_io_write_2( trans_recv, trans___buf, UNTAG_Int(len) );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -146,9 +168,11 @@ return trans_return;
 /* out/indirect function for file::NativeFile::io_close */
 val_t NativeFile_io_close___out( val_t recv )
 {
+void* trans_recv;
 bigint orig_return;
 val_t trans_return;
-orig_return = file_NativeFile_NativeFile_io_close_0( UNBOX_NativeFile(recv) );
+trans_recv = UNBOX_NativeFile(recv);
+orig_return = file_NativeFile_NativeFile_io_close_0( trans_recv );
 trans_return = TAG_Int(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -156,9 +180,11 @@ return trans_return;
 /* out/indirect function for file::NativeFile::file_stat */
 val_t NativeFile_file_stat___out( val_t recv )
 {
+void* trans_recv;
 void* orig_return;
 val_t trans_return;
-orig_return = file_NativeFile_NativeFile_file_stat_0( UNBOX_NativeFile(recv) );
+trans_recv = UNBOX_NativeFile(recv);
+orig_return = file_NativeFile_NativeFile_file_stat_0( trans_recv );
 trans_return = BOX_FileStat(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -166,9 +192,11 @@ return trans_return;
 /* out/indirect function for file::NativeFile::io_open_read */
 val_t NEW_NativeFile_standard___file___NativeFile___io_open_read( val_t path )
 {
+char * trans___path;
 void* orig_return;
 val_t trans_return;
-orig_return = file_NativeFileCapable_NativeFileCapable_io_open_read_1( UNBOX_NativeString(path) );
+trans___path = UNBOX_NativeString(path);
+orig_return = file_NativeFileCapable_NativeFileCapable_io_open_read_1( trans___path );
 trans_return = BOX_NativeFile(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -176,9 +204,11 @@ return trans_return;
 /* out/indirect function for file::NativeFile::io_open_write */
 val_t NEW_NativeFile_standard___file___NativeFile___io_open_write( val_t path )
 {
+char * trans___path;
 void* orig_return;
 val_t trans_return;
-orig_return = file_NativeFileCapable_NativeFileCapable_io_open_write_1( UNBOX_NativeString(path) );
+trans___path = UNBOX_NativeString(path);
+orig_return = file_NativeFileCapable_NativeFileCapable_io_open_write_1( trans___path );
 trans_return = BOX_NativeFile(orig_return);
 nitni_local_ref_clean(  );
 return trans_return;
@@ -238,13 +268,15 @@ CALL_standard___collection___abstract_collection___SimpleCollection___add( trans
 /* friendly for string::String::from_cstring */
 String file_new_String_from_cstring( char * str )
 {
+val_t trans___str;
 val_t orig_return;
 String trans_return;
+trans___str = BOX_NativeString(str);
 trans_return = malloc( sizeof( struct s_String ) );
 trans_return->ref.val = NIT_NULL;
 trans_return->ref.count = 0;
 nitni_local_ref_add( (struct nitni_ref *)trans_return );
-orig_return = NEW_String_standard___string___String___from_cstring( BOX_NativeString(str) );
+orig_return = NEW_String_standard___string___String___from_cstring( trans___str );
 trans_return->ref.val = orig_return;
 return trans_return;
 }
@@ -263,7 +295,7 @@ int file_HashSet_is_a_Set( HashSet value )
 {
 val_t temp;
 temp = value->ref.val;
-if ( ! ( ISOBJ( temp ) ? OBJISA( temp, standard___collection___abstract_collection___Set ): VALISA( temp, standard___collection___abstract_collection___Set ) ) ) return 0;
+if ( ! ( ISOBJ( temp ) ? ISNULL( temp ) || OBJISA( temp, standard___collection___abstract_collection___Set ): VALISA( temp, standard___collection___abstract_collection___Set ) ) ) return 0;
 return 1;
 }
 Set file_HashSet_as_Set( HashSet value )
@@ -277,7 +309,7 @@ nitni_local_ref_add( (struct nitni_ref *)out );
 temp = value->ref.val;
 if ( ISNULL(temp) ){   fprintf( stderr, "Casting from HashSet[String] to Set[String] failed because value is null." );
        abort();
-}if ( ! ( ISOBJ( temp ) ? OBJISA( temp, standard___collection___abstract_collection___Set ): VALISA( temp, standard___collection___abstract_collection___Set ) ) ){
+}if ( ! ( ISOBJ( temp ) ? ISNULL( temp ) || OBJISA( temp, standard___collection___abstract_collection___Set ): VALISA( temp, standard___collection___abstract_collection___Set ) ) ){
        fprintf( stderr, "Casting to Set[String] failed because value is not a Set[String]." );
        abort();
 }
@@ -288,7 +320,7 @@ int file_String_is_a_Object( String value )
 {
 val_t temp;
 temp = value->ref.val;
-if ( ! ( ISOBJ( temp ) ? OBJISA( temp, standard___kernel___Object ): VALISA( temp, standard___kernel___Object ) ) ) return 0;
+if ( ! ( ISOBJ( temp ) ? ISNULL( temp ) || OBJISA( temp, standard___kernel___Object ): VALISA( temp, standard___kernel___Object ) ) ) return 0;
 return 1;
 }
 Object file_String_as_Object( String value )
@@ -302,7 +334,7 @@ nitni_local_ref_add( (struct nitni_ref *)out );
 temp = value->ref.val;
 if ( ISNULL(temp) ){   fprintf( stderr, "Casting from String to Object failed because value is null." );
        abort();
-}if ( ! ( ISOBJ( temp ) ? OBJISA( temp, standard___kernel___Object ): VALISA( temp, standard___kernel___Object ) ) ){
+}if ( ! ( ISOBJ( temp ) ? ISNULL( temp ) || OBJISA( temp, standard___kernel___Object ): VALISA( temp, standard___kernel___Object ) ) ){
        fprintf( stderr, "Casting to Object failed because value is not a Object." );
        abort();
 }