Delete a service contract definition. Supply either contract_id or name.

Switches:

-contract_id (optional)

The ID of the service contract to delete

-name (optional)

Name of the service contract to delete

-no_cascade (optional, boolean)

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

Testcases:

acs_sc_impl_new_from_spec

Get a list of names of operations for the contract.

Switches:

-contract_name (required)

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

Testcases:

acs_sc_impl_new_from_spec

Procedure to call to define a new service contract and the message types, implementations and bindings. Refer to the Service contract Tcl API discussion at http://openacs.org/forums/message-view?message_id=71799

Switches:

-name (required)

Name of the service contract

-description (required)

Comment/description of the service contract

Returns:

id of the contract

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

Testcases:

acs_sc_impl_new_from_spec

Takes a complete service contract specification and creates the new service contract.

The spec looks like this:

    set spec {
        name "Action_SideEffect"
        description "Get the name of the side effect to create action"
        operations {
            GetObjectTypes {
                description "Get the object types for which this implementation is valid."
                output { object_types:string,multiple }
                iscachable_p "t"
            }
            GetPrettyName {
                description "Get the pretty name of this implementation."
                output { pretty_name:string }
                iscachable_p "t"
            }
            DoSideEffect {
                description "Do the side effect"
                input {
                    case_id:integer
                    object_id:integer
                    action_id:integer
                    entry_id:integer
                }
            }
        }
    }

    acs_sc::contract::new_from_spec -spec $spec
    

The spec should be an array-list with 3 entries:

• name: The name of the service contract.
• description: A human-readable description.
• operations: An array-list of operations in this service contract.

• description: Human-readable description of the operation.
• input: Specification of the input to this operation.
• output: Specification of the output of this operation.
• iscachable_p: A 't' or 'f' for whether output from this service contract implementation should automatically be cached using util_memoize.

The format of the 'input' and 'output' specs is a Tcl list of parameter specs, each of which consist of name, colon (:), datatype plus an optional comma (,) and the flag 'multiple'.

Switches:

-spec (required)

The service contract specification as described above.

Returns:

The contract_id of the newly created service contract.

See Also:

• util_memoize
• acs_sc::invoke

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

Testcases:

acs_sc_impl_new_from_spec

Delete the operation.

Switches:

-operation_id (optional)

ID of the operation.

-contract_name (optional)

Name of the contract.

-operation_name (optional)

Name of the operation.

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

Testcases:

acs_sc_impl_new_from_spec

Call the service contract function to create the operation in the database.

Switches:

-contract_name (required)

-operation (required)

-input (required)

-output (required)

-description (required)

-is_cachable_p (optional)

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

Testcases:

acs_sc_impl_new_from_spec

Parse the operations defined in the operations specification

Switches:

-name (required)

Name of the contract

-spec (required)

Specification of all the operations

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

Testcases:

No testcase defined.

Parse one operation

Switches:

-contract_name (required)

-operation (required)

-spec (required)

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

Testcases:

No testcase defined.