#! perl -slw
use strict;

package O;
#use Inline qw( FORCE NOISY NOCLEAN );
use Inline C => <<'END_C', NAME => 'xso';

typedef struct {
    SV *sv;
} O;

void *mem( size_t size ) {
    void *p;
    Newx( p, size, char );
    return p;
}

SV *new( char *package ) {
    O *o = (O*)mem( sizeof( O ) );

    SV *oh = newSVuv( (UV)o );
    SV *rv = newRV( oh );

    o->sv = newSV(0);

    sv_bless( rv, gv_stashpv( package, 0 ) );
    SvREADONLY_on( oh );
    SvREADONLY_on( rv );
    printf( "Creating oh:%p o:%p o->sv:%p\n", oh, o, o->sv );
    return rv;
}

int set( SV *rv, SV *in ) {
    SV *oh = SvRV( rv );
    O *o = (O*)SvUV( oh );

    sv_setsv( o->sv, in );
    printf( "Setting oh:%p o:%p o->sv:%p\n", oh, o, o->sv );
    return 1;
}

SV *get( SV *rv ) {
    SV *oh = SvRV( rv );
    O *o = (O*)SvUV( oh );

    printf( "Getting from oh:%p o:%p o->sv:%p\n", oh, o, o->sv );
    return newSVsv( o->sv );
}

void DESTROY( SV *rv ) {
    SV *oh = SvRV( rv );
    O *o = (O*)SvUV( oh );

    printf( "Destroying oh:%p o:%p o->sv:%p\n", oh, o, o->sv );

    /* TODO: We can only destroy oh and o in the original.
    SvREFCNT_dec( o->sv );
    free(o);
    */
}

END_C

package main;
use threads;
use Devel::Peek;

my $o = O->new();

$o->set( "abcde" );
print $o->get();

print "\nthreaded\n";

async {
    $o->set( "12345" );
}->join;

#<>;
print $o->get();
#<>;