package obus
Pure Ocaml implementation of the D-Bus protocol
Install
Dune Dependency
Authors
Maintainers
Sources
1.2.3.tar.gz
sha256=75703f78015e15d03d0fdba1633a155875daf17d854225658429e72a0df06258
md5=3090a796f0af95e16838d81656ac4b97
doc/src/obus.udisks/uDisks_device.ml.html
Source file uDisks_device.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 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 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620
(* * uDisks_device.ml * ---------------- * Copyright : (c) 2010, Jeremie Dimino <jeremie@dimino.org> * Licence : BSD3 * * This file is a part of obus, an ocaml implementation of D-Bus. *) open Lwt include OBus_proxy.Private (* +-----------------------------------------------------------------+ | Types | +-----------------------------------------------------------------+ *) type benchmark_result = { bench_read_transfer_rate_results : (int64 * float) list; bench_write_transfer_rate_results : (int64 * float) list; bench_access_time_results : (int64 * float) list; } type process = { pr_pid : int; pr_uid : int; pr_comamnd_line : string; } type job = { job_in_progress : bool; job_id : string; job_initiated_by_uid : int; job_is_cancellable : bool; job_cur_task_percentage : float; } (* +-----------------------------------------------------------------+ | D-Bus members | +-----------------------------------------------------------------+ *) open UDisks_interfaces.Org_freedesktop_UDisks_Device let job_cancel proxy = OBus_method.call m_JobCancel proxy () let partition_table_create proxy ~scheme ~options = OBus_method.call m_PartitionTableCreate proxy (scheme, options) let partition_delete proxy ~options = OBus_method.call m_PartitionDelete proxy options let partition_create proxy ~offset ~size ~typ ~label ~flags ~options ~fstype ~fsoptions = let%lwt (context, created_device) = OBus_method.call_with_context m_PartitionCreate proxy (offset, size, typ, label, flags, options, fstype, fsoptions) in let created_device = OBus_proxy.make (OBus_context.sender context) created_device in return created_device let partition_modify proxy ~typ ~label ~flags = OBus_method.call m_PartitionModify proxy (typ, label, flags) let filesystem_create proxy ~fstype ~options = OBus_method.call m_FilesystemCreate proxy (fstype, options) let filesystem_set_label proxy ~new_label = OBus_method.call m_FilesystemSetLabel proxy new_label let filesystem_mount proxy ~filesystem_type ~options = OBus_method.call m_FilesystemMount proxy (filesystem_type, options) let filesystem_unmount proxy ~options = OBus_method.call m_FilesystemUnmount proxy options let filesystem_check proxy ~options = OBus_method.call m_FilesystemCheck proxy options let filesystem_list_open_files proxy = let%lwt processes = OBus_method.call m_FilesystemListOpenFiles proxy () in return (List.map (fun (x1, x2, x3) -> { pr_pid = Int32.to_int x1; pr_uid = Int32.to_int x2; pr_comamnd_line = x3; }) processes) let luks_unlock proxy ~passphrase ~options = let%lwt (context, cleartext_device) = OBus_method.call_with_context m_LuksUnlock proxy (passphrase, options) in let cleartext_device = OBus_proxy.make (OBus_context.sender context) cleartext_device in return cleartext_device let luks_lock proxy ~options = OBus_method.call m_LuksLock proxy options let luks_change_passphrase proxy ~current_passphrase ~new_passphrase = OBus_method.call m_LuksChangePassphrase proxy (current_passphrase, new_passphrase) let linux_md_add_spare proxy ~component ~options = let component = OBus_proxy.path component in OBus_method.call m_LinuxMdAddSpare proxy (component, options) let linux_md_expand proxy ~components ~options = let components = List.map OBus_proxy.path components in OBus_method.call m_LinuxMdExpand proxy (components, options) let linux_md_remove_component proxy ~component ~options = let component = OBus_proxy.path component in OBus_method.call m_LinuxMdRemoveComponent proxy (component, options) let linux_md_stop proxy ~options = OBus_method.call m_LinuxMdStop proxy options let linux_lvm2_lvstop proxy ~options = OBus_method.call m_LinuxLvm2LVStop proxy options let linux_md_check proxy ~options = OBus_method.call m_LinuxMdCheck proxy options let drive_inhibit_polling proxy ~options = OBus_method.call m_DriveInhibitPolling proxy options let drive_uninhibit_polling proxy ~ = OBus_method.call m_DriveUninhibitPolling proxy cookie let drive_poll_media proxy = OBus_method.call m_DrivePollMedia proxy () let drive_eject proxy ~options = OBus_method.call m_DriveEject proxy options let drive_detach proxy ~options = OBus_method.call m_DriveDetach proxy options let drive_set_spindown_timeout proxy ~timeout_seconds ~options = let timeout_seconds = Int32.of_int timeout_seconds in OBus_method.call m_DriveSetSpindownTimeout proxy (timeout_seconds, options) let drive_unset_spindown_timeout proxy ~ = OBus_method.call m_DriveUnsetSpindownTimeout proxy cookie let drive_ata_smart_refresh_data proxy ~options = OBus_method.call m_DriveAtaSmartRefreshData proxy options let drive_ata_smart_initiate_selftest proxy ~test ~options = OBus_method.call m_DriveAtaSmartInitiateSelftest proxy (test, options) let drive_benchmark proxy ~do_write_benchmark ~options = let%lwt (x1, x2, x3) = OBus_method.call m_DriveBenchmark proxy (do_write_benchmark, options) in return { bench_read_transfer_rate_results = x1; bench_write_transfer_rate_results = x2; bench_access_time_results = x3; } let changed proxy = OBus_signal.make s_Changed proxy let job_changed proxy = OBus_signal.map (fun (job_in_progress, job_is_cancellable, job_id, job_initiated_by_uid, job_percentage) -> { job_in_progress = job_in_progress; job_id = job_id; job_initiated_by_uid = Int32.to_int job_initiated_by_uid; job_is_cancellable = job_is_cancellable; job_cur_task_percentage = job_percentage; }) (OBus_signal.make s_JobChanged proxy) let native_path proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_NativePath proxy let device_detection_time proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceDetectionTime proxy let device_media_detection_time proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceMediaDetectionTime proxy let device_major proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceMajor proxy let device_minor proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceMinor proxy let device_file proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceFile proxy let device_file_presentation proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceFilePresentation proxy let device_file_by_id proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceFileById proxy let device_file_by_path proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceFileByPath proxy let device_is_system_internal proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsSystemInternal proxy let device_is_partition proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsPartition proxy let device_is_partition_table proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsPartitionTable proxy let device_is_removable proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsRemovable proxy let device_is_media_available proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsMediaAvailable proxy let device_is_media_change_detected proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsMediaChangeDetected proxy let device_is_media_change_detection_polling proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsMediaChangeDetectionPolling proxy let device_is_media_change_detection_inhibitable proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsMediaChangeDetectionInhibitable proxy let device_is_media_change_detection_inhibited proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsMediaChangeDetectionInhibited proxy let device_is_read_only proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsReadOnly proxy let device_is_drive proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsDrive proxy let device_is_optical_disc proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsOpticalDisc proxy let device_is_mounted proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsMounted proxy let device_mount_paths proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceMountPaths proxy let device_mounted_by_uid proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceMountedByUid proxy) let device_is_luks proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLuks proxy let device_is_luks_cleartext proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLuksCleartext proxy let device_is_linux_md_component proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxMdComponent proxy let device_is_linux_md proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxMd proxy let device_is_linux_lvm2_lv proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxLvm2LV proxy let device_is_linux_lvm2_pv proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxLvm2PV proxy let device_is_linux_dmmp_component proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxDmmpComponent proxy let device_is_linux_dmmp proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxDmmp proxy let device_is_linux_loop proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceIsLinuxLoop proxy let device_size proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceSize proxy let device_block_size proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DeviceBlockSize proxy let device_presentation_hide proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DevicePresentationHide proxy let device_presentation_nopolicy proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DevicePresentationNopolicy proxy let device_presentation_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DevicePresentationName proxy let device_presentation_icon_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DevicePresentationIconName proxy let job_in_progress proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_JobInProgress proxy let job_id proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_JobId proxy let job_initiated_by_uid proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_JobInitiatedByUid proxy) let job_is_cancellable proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_JobIsCancellable proxy let job_percentage proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_JobPercentage proxy let id_usage proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_IdUsage proxy let id_type proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_IdType proxy let id_version proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_IdVersion proxy let id_uuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_IdUuid proxy let id_label proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_IdLabel proxy let luks_holder proxy = OBus_property.map_r_with_context (fun context x -> OBus_proxy.make (OBus_context.sender context) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LuksHolder proxy) let luks_cleartext_slave proxy = OBus_property.map_r_with_context (fun context x -> OBus_proxy.make (OBus_context.sender context) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LuksCleartextSlave proxy) let luks_cleartext_unlocked_by_uid proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LuksCleartextUnlockedByUid proxy) let partition_slave proxy = OBus_property.map_r_with_context (fun context x -> OBus_proxy.make (OBus_context.sender context) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionSlave proxy) let partition_scheme proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionScheme proxy let partition_type proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionType proxy let partition_label proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionLabel proxy let partition_uuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionUuid proxy let partition_flags proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionFlags proxy let partition_number proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionNumber proxy) let partition_offset proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionOffset proxy let partition_size proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionSize proxy let partition_alignment_offset proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionAlignmentOffset proxy let partition_table_scheme proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionTableScheme proxy let partition_table_count proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_PartitionTableCount proxy) let drive_vendor proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveVendor proxy let drive_model proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveModel proxy let drive_revision proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveRevision proxy let drive_serial proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveSerial proxy let drive_wwn proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveWwn proxy let drive_rotation_rate proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveRotationRate proxy) let drive_write_cache proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveWriteCache proxy let drive_connection_interface proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveConnectionInterface proxy let drive_connection_speed proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveConnectionSpeed proxy let drive_media_compatibility proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveMediaCompatibility proxy let drive_media proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveMedia proxy let drive_is_media_ejectable proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveIsMediaEjectable proxy let drive_can_detach proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveCanDetach proxy let drive_can_spindown proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveCanSpindown proxy let drive_is_rotational proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveIsRotational proxy let drive_adapter proxy = OBus_property.map_r_with_context (fun context x -> UDisks_adapter.of_proxy (OBus_proxy.make (OBus_context.sender context) x)) (OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveAdapter proxy) let drive_ports proxy = OBus_property.map_r_with_context (fun context x -> List.map (fun path -> UDisks_port.of_proxy (OBus_proxy.make (OBus_context.sender context) path)) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_DrivePorts proxy) let drive_similar_devices proxy = OBus_property.map_r_with_context (fun context x -> List.map (fun path -> OBus_proxy.make (OBus_context.sender context) path) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveSimilarDevices proxy) let optical_disc_is_blank proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_OpticalDiscIsBlank proxy let optical_disc_is_appendable proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_OpticalDiscIsAppendable proxy let optical_disc_is_closed proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_OpticalDiscIsClosed proxy let optical_disc_num_tracks proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_OpticalDiscNumTracks proxy) let optical_disc_num_audio_tracks proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_OpticalDiscNumAudioTracks proxy) let optical_disc_num_sessions proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_OpticalDiscNumSessions proxy) let drive_ata_smart_is_available proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveAtaSmartIsAvailable proxy let drive_ata_smart_time_collected proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveAtaSmartTimeCollected proxy let drive_ata_smart_status proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveAtaSmartStatus proxy let drive_ata_smart_blob proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_DriveAtaSmartBlob proxy let linux_md_component_level proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentLevel proxy let linux_md_component_position proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentPosition proxy) let linux_md_component_num_raid_devices proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentNumRaidDevices proxy) let linux_md_component_uuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentUuid proxy let linux_md_component_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentName proxy let linux_md_component_home_host proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentHomeHost proxy let linux_md_component_version proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentVersion proxy let linux_md_component_holder proxy = OBus_property.map_r_with_context (fun context x -> OBus_proxy.make (OBus_context.sender context) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentHolder proxy) let linux_md_component_state proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdComponentState proxy let linux_md_state proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdState proxy let linux_md_level proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdLevel proxy let linux_md_uuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdUuid proxy let linux_md_home_host proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdHomeHost proxy let linux_md_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdName proxy let linux_md_num_raid_devices proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdNumRaidDevices proxy) let linux_md_version proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdVersion proxy let linux_md_slaves proxy = OBus_property.map_r_with_context (fun context x -> List.map (fun path -> OBus_proxy.make (OBus_context.sender context) path) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdSlaves proxy) let linux_md_is_degraded proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdIsDegraded proxy let linux_md_sync_action proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdSyncAction proxy let linux_md_sync_percentage proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdSyncPercentage proxy let linux_md_sync_speed proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxMdSyncSpeed proxy let linux_lvm2_pvuuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVUuid proxy let linux_lvm2_pvnum_metadata_areas proxy = OBus_property.map_r (fun x -> Int32.to_int x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVNumMetadataAreas proxy) let linux_lvm2_pvgroup_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupName proxy let linux_lvm2_pvgroup_uuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupUuid proxy let linux_lvm2_pvgroup_size proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupSize proxy let linux_lvm2_pvgroup_unallocated_size proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupUnallocatedSize proxy let linux_lvm2_pvgroup_sequence_number proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupSequenceNumber proxy let linux_lvm2_pvgroup_extent_size proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupExtentSize proxy let linux_lvm2_pvgroup_physical_volumes proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupPhysicalVolumes proxy let linux_lvm2_pvgroup_logical_volumes proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2PVGroupLogicalVolumes proxy let linux_lvm2_lvname proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2LVName proxy let linux_lvm2_lvuuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2LVUuid proxy let linux_lvm2_lvgroup_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2LVGroupName proxy let linux_lvm2_lvgroup_uuid proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLvm2LVGroupUuid proxy let linux_dmmp_component_holder proxy = OBus_property.map_r_with_context (fun context x -> OBus_proxy.make (OBus_context.sender context) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxDmmpComponentHolder proxy) let linux_dmmp_name proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxDmmpName proxy let linux_dmmp_slaves proxy = OBus_property.map_r_with_context (fun context x -> List.map (fun path -> OBus_proxy.make (OBus_context.sender context) path) x) (OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxDmmpSlaves proxy) let linux_dmmp_parameters proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxDmmpParameters proxy let linux_loop_filename proxy = OBus_property.make ~monitor:UDisks_monitor.monitor p_LinuxLoopFilename proxy let properties proxy = OBus_property.group ~monitor:UDisks_monitor.monitor proxy interface
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>