fs::install::register_implementation (private)

 fs::install::register_implementation

Defined in packages/file-storage/tcl/file-storage-install-procs.tcl

add file-storage repository service contract implementation

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    ns_log Notice "registering fs dav implementations."

    ### dav contract

    set spec {
        name "file_storage_object"
        aliases {
            get fs::impl::fs_object::get
            head fs::impl::fs_object::head        
            put fs::impl::fs_object::put
        propfind fs::impl::fs_object::propfind
        delete fs::impl::fs_object::delete
        mkcol fs::impl::fs_object::mkcol
        proppatch fs::impl::fs_object::proppatch
        copy fs::impl::fs_object::copy
        move fs::impl::fs_object::move
        lock fs::impl::fs_object::lock
        unlock fs::impl::fs_object::unlock
        }
    contract_name {dav}
    owner "file-storage"
    }
    
    acs_sc::impl::new_from_spec -spec $spec

    ### dav_put_type

    set spec {
    name "file-storage"
    aliases {
        get_type fs::impl::dav_put_type::get_type
    }
    contract_name {dav_put_type}
    owner "file-storage"
    }

    acs_sc::impl::new_from_spec -spec $spec

    set spec {
    name "file-storage"
    aliases {
        get_type fs::impl::dav_mkcol_type::get_type
    }
    contract_name {dav_mkcol_type}
    owner "file-storage"
    }

    acs_sc::impl::new_from_spec -spec $spec

XQL Not present:

Generic, PostgreSQL, Oracle