/*
classRecogniser( key )( object ) -> Bool
*/
Ref * sysClassRecogniser( Ref * pc, MachineClass *vm ) {
if ( vm->count != 1 ) throw Ginger::Mishap( "Wrong number of arguments" );
Ref kk = vm->fastPeek();
if ( !IsObj( kk ) || *RefToPtr4( kk ) != sysClassKey ) throw Ginger::Mishap( "Key needed" );
CodeGen codegen = vm->codegen();
codegen->vmiFUNCTION( makeName( "is", RefToPtr4( kk )[ CLASS_OFFSET_TITLE ] ), 1, 1 );
codegen->vmiSYS_CALL_ARG( sysargRecognise, kk );
codegen->vmiSYS_RETURN();
vm->fastPeek() = codegen->vmiENDFUNCTION();
return pc;
}
/*
classConstructor( key )( arg1, ..., argN ) -> instance
*/
Ref * sysClassConstructor( Ref * pc, MachineClass *vm ) {
if ( vm->count != 1 ) throw Ginger::Mishap( "Wrong number of arguments" );
Ref kk = vm->fastPeek();
if ( !IsObj( kk ) || *RefToPtr4( kk ) != sysClassKey ) throw Ginger::Mishap( "Key needed" );
Ref * obj_K = RefToPtr4( kk );
long n = SmallToLong( obj_K[ CLASS_OFFSET_NFIELDS ] );
CodeGen codegen = vm->codegen();
codegen->vmiFUNCTION( makeName( "new", obj_K[ CLASS_OFFSET_TITLE ]), n, 1 );
//vmiCHECK_COUNT( codegen, n );
codegen->vmiSYS_CALL_ARGDAT( sysargdatConstruct, kk, n );
codegen->vmiSYS_RETURN();
vm->fastPeek() = codegen->vmiENDFUNCTION();
return pc;
}
/*
classExploder( key )( instance ) -> ( arg1, ..., argN )
*/
Ref * sysClassExploder( Ref * pc, MachineClass * vm ) {
if ( vm->count != 1 ) throw Ginger::Mishap( "Wrong number of arguments" );
Ref key = vm->fastPeek();
if ( !IsObj( key ) ) throw Ginger::Mishap( "Class of object needed" );
Ref * key_K = RefToPtr4( key );
if ( *key_K != sysClassKey ) throw Ginger::Mishap( "Class of object needed" );
const long N = SmallToLong( key_K[ CLASS_OFFSET_NFIELDS ] );
CodeGen codegen = vm->codegen();
codegen->vmiFUNCTION( makeName( "dest", key_K[ CLASS_OFFSET_TITLE ] ), 1, N );
codegen->vmiSYS_CALL_ARG( sysargExplode, key );
codegen->vmiSYS_RETURN();
vm->fastPeek() = codegen->vmiENDFUNCTION();
return pc;
}
/**
setSlot( CLASS:Class, POSITION:Small, METHOD:Method )
1. The method is inserted into the correct position in the class's
slot array. To start with, only one method per slot will be
permitted.
2. A call to setMethod is then made with an unsafe access function
as the method's function. The values are passed on the stack.
No stack checks are needed as the size of the argument lists of
the two functions are the same.
*/
Ref * sysSetSlot( Ref * pc, MachineClass * vm ) {
if ( vm->count != 3 ) throw Ginger::Mishap( "Wrong number of arguments" );
Ref method = vm->fastPop();
Ref position = vm->fastPop();
Ref gclass = vm->fastPop();
if ( !IsMethod( method ) ) throw Ginger::Mishap( "Method needed" ).culprit( "Method", refToString( method ) );
if ( !IsSmall( position ) ) throw Ginger::Mishap( "Small needed" ).culprit( "Position", refToString( position ) );
if ( !IsClass( gclass ) ) throw Ginger::Mishap( "Class needed" ).culprit( "Class", refToString( gclass ) );
long pos = SmallToLong( position );
long nfields = SmallToLong( RefToPtr4( gclass )[ CLASS_OFFSET_NFIELDS ] );
if ( not( 1 <= pos && pos <= nfields ) ) {
throw
Ginger::Mishap( "Position out of range" ).
culprit( "Position", pos ).
culprit( "Number of fields", nfields )
;
}
// Update the class-slot.
INDEX( INDEX( gclass, CLASS_OFFSET_SLOTS ), pos ) = method;
// Push onto the stack to get protection from garbage collection.
vm->fastPush( gclass );
vm->fastPush( method );
// ENDFUNCTION does not in fact cause a garbage collection, as it
// forces the heap to grow. However this is a more accurate way
// to write the code.
//
// The following block should not be in-lined but extracted as a
// service function.
{
CodeGen codegen = vm->codegen();
// TODO: Supply a useful name.
codegen->vmiFUNCTION( 1, 1 );
codegen->vmiFIELD( pos );
codegen->vmiSYS_RETURN();
vm->fastPush( codegen->vmiENDFUNCTION() );
}
// We do not need to modify vm->count, it's already 3.
// Simply chain into sysSetMethod.
return sysSetMethod( pc, vm );
}
Ref * sysClassUnsafeAccessor( Ref * pc, MachineClass *vm ) {
if ( vm->count != 2 ) throw Ginger::Mishap( "Wrong number of arguments" );
Ref N = vm->fastPop();
if ( !IsSmall( N ) ) throw Ginger::Mishap( "Integer index needed" );
Ref kk = vm->fastPeek();
if ( !isKey( kk ) ) throw Ginger::Mishap( "Key needed" );
long nargs = SmallToLong( RefToPtr4( kk )[ CLASS_OFFSET_NFIELDS ] );
long index = SmallToLong( N );
if ( 1 <= index && index <= nargs ) {
CodeGen codegen = vm->codegen();
// TODO: Figure out name.
codegen->vmiFUNCTION( 1, 1 );
codegen->vmiFIELD( index );
codegen->vmiSYS_RETURN();
vm->fastPeek() = codegen->vmiENDFUNCTION();
} else {
throw Ginger::Mishap( "ToBeDone" );
}
return pc;
}
Ref * sysNewMethod( Ref * pc, MachineClass * vm ) {
// newMethod( name:String, ninputs:Small, noutputs:Small ) -> m:Method
if ( vm->count != 3 ) throw Ginger::Mishap( "Wrong number of arguments" );
Ref noutputs = vm->fastPop();
Ref ninputs = vm->fastPop();
Ref name = vm->fastPop();
if ( !IsSmall( noutputs ) || !IsSmall( ninputs ) ) throw Ginger::Mishap( "Invalid arguments" ).culprit( "#Outputs", refToString( noutputs ) ).culprit( "Inputs", refToString( ninputs ) );
CodeGen codegen = vm->codegen();
codegen->vmiFUNCTION(
name == SYS_ABSENT ? std::string( EMPTY_FN_NAME ) : refToString( name ),
SmallToLong( ninputs ),
SmallToLong( noutputs )
);
codegen->vmiINVOKE();
Ref r = codegen->vmiENDFUNCTION( sysMethodKey );
vm->fastPush( r ); // No check needed, as stack has room for 3.
return pc;
}
Ref makeSysFn( CodeGen codegen, std::string fn_name, Ref default_value ) {
SysMap::iterator smit = SysMap::systemFunctionsMap().find( fn_name );
if ( smit == SysMap::systemFunctionsMap().end() ) {
return default_value;
}
SysInfo & info = smit->second;
Ref x = info.coreFunctionObject;
if ( x != NULL ) return x;
codegen->vmiFUNCTION( fn_name, info.in_arity.count(), info.out_arity.count() );
// We have two different kinds of system functions. Those that are
// implemented as native instructions and those that are implemented
// by hand-written functions.
//
// The test that distinguishes them is unsatisfactory because it fails
// to distinguish an omitted something from a genuine choice.
// REFACTOR.
//
if ( info.isSysCall() ) {
// Hand-written function.
codegen->vmiSYS_CALL( info.syscall );
} else if ( info.isVMOp() ) {
// Native instruction.
codegen->vmiINSTRUCTION( info.instruction );
} else {
throw SystemError( "Internal error" );
}
codegen->vmiSYS_RETURN();
Ref r = codegen->vmiENDFUNCTION( false );
info.coreFunctionObject = r;
return r;
}
