Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | - Add some clarifications to the man page. - Correctly clean up old information when a signal is defined. - Reverse part of overenthusiastic code clean up. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
8d96b7b74f13143b9e4dc8e244796c24 |
| User & Date: | schelte 2015-06-18 08:05:13.000 |
Context
|
2015-06-18
| ||
| 08:53 | - Summarize the changes since version 1.1 Leaf check-in: 11109db44f user: schelte tags: trunk, release-1-2 | |
| 08:05 | - Add some clarifications to the man page. - Correctly clean up old information when a signal is defined. - Reverse part of overenthusiastic code clean up. check-in: 8d96b7b74f user: schelte tags: trunk | |
|
2015-04-27
| ||
| 19:47 | - Allow the application to trigger a PropertiesChanged signal instead of delaying it until the application is idle. - Provide a method to completely disable the PropertiesChanged feature. - Provide a way to add/replace methods and signals for standard interfaces. - Completely clean up the old signal when reusing a signal ID. check-in: 598aca4a28 user: schelte tags: trunk | |
Changes
Changes to dbif.tcl.
| ︙ | ︙ | |||
252 253 254 255 256 257 258 259 260 261 262 263 264 265 |
} else {
# If the command is in another interpreter, we probably arived here
# through an interp alias. In that case the calling context of that
# interp is accessible via interp eval
return [interp eval $interp [list namespace current]]
}
}
proc dbus::dbif::namecheck {name {thing Name}} {
if {[string is wordchar -strict $name]} {return name}
error "$thing contains invalid characters: \"$name\""
}
proc dbus::dbif::buscheck {name} {
| > > > > > > > > > > > > > > > | 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 |
} else {
# If the command is in another interpreter, we probably arived here
# through an interp alias. In that case the calling context of that
# interp is accessible via interp eval
return [interp eval $interp [list namespace current]]
}
}
# Access the miscellaneous information of a message
#
proc dbus::dbif::get {id name} {
variable info
if {![info exists info($id)]} {
error "MessageID does not exist: \"$id\""
}
if {![dict exists $info($id) $name]} {
set list [lsort [dict keys $info($id)]]
lset list end "or [lindex $list end]"
error "Unknown property: \"$name\". Must be [join $list ", "]"
}
return [dict get $info($id) $name]
}
proc dbus::dbif::namecheck {name {thing Name}} {
if {[string is wordchar -strict $name]} {return name}
error "$thing contains invalid characters: \"$name\""
}
proc dbus::dbif::buscheck {name} {
|
| ︙ | ︙ | |||
437 438 439 440 441 442 443 |
}
set old [array names dbif *,$opath,$ointf]
} else {
set old [list $obus,$opath,$ointf]
}
foreach o $old {
set sigs [dict get $dbif($o) signals]
| | | 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 |
}
set old [array names dbif *,$opath,$ointf]
} else {
set old [list $obus,$opath,$ointf]
}
foreach o $old {
set sigs [dict get $dbif($o) signals]
dict set dbif($o) signals \
[lsearch -all -inline -exact -not $sigs $id]
}
}
set signal($id) [dict merge $dict [args $in] [dict create meta $meta]]
dict lappend dbif($bus,$path,$intf) signals $id
return $id
}
|
| ︙ | ︙ |
Changes to doc/dbif.man.
| ︙ | ︙ | |||
31 32 33 34 35 36 37 | one or more names to the current application. [para] The [option -yield] option specifies that the application will release the requested name when some other application requests the same name and has indicated that it wants to take over ownership of the name. The application | | > | 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | one or more names to the current application. [para] The [option -yield] option specifies that the application will release the requested name when some other application requests the same name and has indicated that it wants to take over ownership of the name. The application will be informed by a [emph NameLost] signal when it loses ownership of the name. [para] The [option -replace] option indicates that the application wants to take over the ownership of the name from the application that is currently the primary owner, if any. This request will only be honoured if the current owner has indicated that it will release the name on request. See also the |
| ︙ | ︙ | |||
56 57 58 59 60 61 62 63 64 65 66 67 68 69 | [option -noqueue] option may be specified to indicate that the name request should not be queued. [para] The command returns a list of names that have successfully been acquired. [call [cmd [vset cmdname]] [method default] \ [opt "[option -bus] [arg bustype]"] \ [opt "[option -interface] [arg interface]"]] Generally an application will perform several [cmd [vset cmdname]] commands related to the same message bus and interface. To avoid having to pass the same values for the [option -bus] and [option -interface] options with all | > > > > > > > > > > | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 |
[option -noqueue] option may be specified to indicate that the name request
should not be queued.
[para]
The command returns a list of names that have successfully been acquired.
[para]
The following code can be used to allow a new instance of a program to
replace the current one. This can be useful during program development:
[example_begin]
dbif connect -yield -replace $dbusname
dbif listen -interface [lb]dbus info service[rb] \
[lb]dbus info path[rb] NameLost name {if {$name eq $::dbusname} exit}
[example_end]
[call [cmd [vset cmdname]] [method default] \
[opt "[option -bus] [arg bustype]"] \
[opt "[option -interface] [arg interface]"]]
Generally an application will perform several [cmd [vset cmdname]] commands
related to the same message bus and interface. To avoid having to pass the
same values for the [option -bus] and [option -interface] options with all
|
| ︙ | ︙ |