Function declare_native_rule

v2/engine/native.c:14–34

void declare_native_rule( char const * module, char const * rule,
    char const * * args, LIST * (*f)( FRAME *, int ), int version )
{
    OBJECT * const module_obj = module ? object_new( module ) : 0 ;
    module_t * m = bindmodule( module_obj );
    if ( module_obj )
        object_free( module_obj );
    if ( !m->native_rules )
        m->native_rules = hashinit( sizeof( native_rule_t ), "native rules" );

    {
        OBJECT * const name = object_new( rule );
        int found;
        native_rule_t * const np = (native_rule_t *)hash_insert(
            m->native_rules, name, &found );
        np->name = name;
        assert( !found );
        np->procedure = function_builtin( f, 0, args );
        np->version = version;
    }
}