mcp-cord #302
Aliases: mcp-cord, cord
9 verbs · 17 properties · 0 children
Verbs
| Verb | Spec | Flags | Definer | Lines |
|---|---|---|---|---|
next_id | this none this | rxd | #302 | 5 |
cord_send | this none this | rxd | #302 | 8 |
cord_closed | this none this | rxd | #302 | 3 |
handle_ | this none this | rxd | #302 | 4 |
handle_closed | this none this | rxd | #302 | 4 |
find_type | this none this | rxd | #302 | 7 |
send_open | this none this | rxd | #302 | 3 |
finalize_connection | this none this | rxd | #302 | 9 |
type_name | this none this | rxd | #302 | 7 |
Properties
| Property | Definer | Flags | Owner | Value |
|---|---|---|---|---|
next_id | #302 | r | #29 | 1 |
cords | #302 | r | #29 | {} |
registry_ids | #302 | rc | #29 | {} |
version_range | #354 | r | #29 | <clear> |
cord_types | #354 | r | #29 | {} |
messages_in | #355 | r | #29 | {{"open", {"_id", "_type"}}, {"", {"_id", "_message"}}, {"closed", {"_id"}}} |
messages_out | #355 | r | #29 | {{"open", {"_id", "_type"}}, {"", {"_id", "_message"}}, {"closed", {"_id"}}} |
aliases | #1 | rc | #29 | {"mcp-cord", "cord"} |
description | #1 | rc | #29 | <clear> |
object_size | #1 | r | #29 | {4736, 1298434454} |
hidden_verbs | #1 | rc | #29 | <clear> |
phelp_msg | #1 | rc | #29 | <clear> |
weight | #1 | rc | #29 | <clear> |
owner_verbs | #1 | rc | #29 | <clear> |
plural_name | #1 | rc | #29 | <clear> |
client_image | #1 | rc | #29 | <clear> |
listening | #1 | rc | #29 | <clear> |
Ancestry
Ancestors (nearest first): #354 generic MCP package → #355 generic message dispatch object → #1 root
Children: none
Call graph
Source
next_id
Referenced by
none
Source
1if (caller == this) 2return tostr("I", this.next_id = this.next_id + 1); 3else 4raise(E_PERM); 5endif
cord_send
Referenced by
none
Source
1{message, alist} = args; 2cord = caller; 3session = cord.session; 4if (cord in $cord.registry) 5return this:send_(session, tostr(cord.id), message, @alist); 6else 7raise(E_PERM); 8endif
cord_closed
Referenced by
none
Source
1cord = caller; 2session = cord.session; 3this:send_closed(session, tostr(cord.id));
handle_
Referenced by
none
Source
1{session, id, message, @assocs} = args; 2if (caller == this) 3$cord:mcp_receive(id, message, assocs); 4endif
handle_closed
Referenced by
none
Source
1{session, id, @rest} = args; 2if (caller == this) 3$cord:mcp_closed(id); 4endif
find_type
Referenced by
none
Source
1{name} = args; 2for i in ($object_utils:leaves($cord.type_root)) 3if (name == (($mcp.registry:package_name(i.parent_package) + "-") + i.cord_name)) 4return i; 5endif 6endfor 7return $failed_Match;
send_open
Referenced by
none
Source
1if (caller == $cord) 2return pass(@args); 3endif
finalize_connection
Referenced by
none
Source
1session = caller; 2len = length($cord.registry_ids); 3for i in [0..len - 1] 4idx = len - i; 5cord = $cord.registry[idx]; 6if (cord.session == session) 7$recycler:_recycle(cord); 8endif 9endfor
type_name
Referenced by
none
Source
1{cord_type} = args; 2parent = $mcp:package_name(cord_type.parent_package); 3if (suffix = cord_type.cord_name) 4return (parent + "-") + suffix; 5else 6return parent; 7endif