29 lines
828 B
Promela
29 lines
828 B
Promela
? <simplex ?simplex> $simplex [
|
|
|
|
|
|
<query user-row "SELECT user_id, local_display_name FROM users">
|
|
|
|
<query contact-row "SELECT contact_id, user_id, local_display_name, is_user FROM contacts">
|
|
|
|
|
|
|
|
? <user-row ?user_id ?name> [
|
|
|
|
let ?user = dataspace
|
|
|
|
$user <user-id $user_id>
|
|
|
|
$user <local-display-name $name>
|
|
|
|
$simplex ? <contact-row ?contact_id $user_id ?local_display_name 0> [
|
|
|
|
let ?contact = dataspace
|
|
|
|
$contact <contact-id $contact_id>
|
|
|
|
$contact <local-display-name $local_display_name>
|
|
|
|
$user <contact $contact>
|
|
|
|
]
|
|
$simplex <user $user>
|
|
|
|
]
|
|
|
|
|
|
? ?any [$log ! <log "-" { simplex: $any }> ]
|
|
|
|
$config <require-service <daemon sqlite_actor>>
|
|
$config ? <service-object <daemon sqlite_actor> ?cap> [
|
|
|
|
$cap {
|
|
|
|
dataspace: $simplex
|
|
database: "/home/emery/.simplex/simplex_v1_chat.db"
|
|
}
|
|
]
|
|
]
|