* net/tramp-gvfs.el (tramp-gvfs-methods): Add "synce" method.

(tramp-gvfs-connection-mounted-p): Handle empty user name for
synce.
(tramp-synce-list-devices, tramp-synce-parse-device-names): New
defuns.
(top): Add completion function for "synce" method.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 037e0981c713c089a73188241dcac25e8b3e1c89..17a21d0b4fa42dee31d05d8c99eb14bc88593792 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,13 @@
        * net/tramp.el (tramp-do-copy-or-rename-file-directly): Handle
        also the 'rename case, when setting file modes.  (Bug#3712)
 
+       * net/tramp-gvfs.el (tramp-gvfs-methods): Add "synce" method.
+       (tramp-gvfs-connection-mounted-p): Handle empty user name for
+       synce.
+       (tramp-synce-list-devices, tramp-synce-parse-device-names): New
+       defuns.
+       (top): Add completion function for "synce" method.
+
 2009-06-30  Kenichi Handa  <handa@m17n.org>
 
        * international/fontset.el (setup-default-fontset): Add CJK fonts

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 640a281594b671dc55b4512e46c6bc0b274a154c..aaba49e8154cabad9ccf4d2323ffc090d4558f9d 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -98,7 +98,7 @@
 (require 'url-parse)
 (require 'zeroconf)
 
-(defcustom tramp-gvfs-methods '("dav" "davs" "obex")
+(defcustom tramp-gvfs-methods '("dav" "davs" "obex" "synce")
   "*List of methods for remote files, accessed with GVFS."
   :group 'tramp
   :type '(repeat (choice (const "dav")
@@ -106,7 +106,8 @@
                         (const "ftp")
                         (const "obex")
                         (const "sftp")
-                        (const "smb"))))
+                        (const "smb")
+                        (const "synce"))))
 
 (defcustom tramp-gvfs-zeroconf-domain "local"
   "*Zeroconf domain to be used for discovering services, like host names."
@@ -898,6 +899,8 @@ ADDRESS can have the form \"xx:xx:xx:xx:xx:xx\" or \"[xx:xx:xx:xx:xx:xx]\"."
          (setq host (tramp-bluez-device host)))
        (when (and (string-equal "dav" method) (string-equal "true" ssl))
          (setq method "davs"))
+       (when (and (string-equal "synce" method) (zerop (length user)))
+         (setq user (or (tramp-file-name-user vec) "")))
        (unless (zerop (length domain))
          (setq user (concat user tramp-prefix-domain-format domain)))
        (unless (zerop (length port))
@@ -1171,6 +1174,39 @@ be used."
   (tramp-set-completion-function
    "davs" '((tramp-zeroconf-parse-webdav-device-names ""))))
 
+\f
+;; D-Bus SYNCE functions.
+
+(defun tramp-synce-list-devices ()
+  "Returns all discovered synce devices as list."
+  (let (tramp-synce-devices)
+    (dolist (device
+            (with-tramp-dbus-call-method tramp-gvfs-dbus-event-vector t
+             :system "org.freedesktop.Hal"
+             "/org/freedesktop/Hal/Manager"
+             "org.freedesktop.Hal.Manager" "GetAllDevices"))
+      (when (with-tramp-dbus-call-method tramp-gvfs-dbus-event-vector t
+             :system "org.freedesktop.Hal" device
+             "org.freedesktop.Hal.Device" "PropertyExists" "sync.plugin")
+       (add-to-list
+        'tramp-synce-devices
+        (with-tramp-dbus-call-method tramp-gvfs-dbus-event-vector t
+          :system "org.freedesktop.Hal" device
+            "org.freedesktop.Hal.Device"
+            "GetPropertyString" "pda.pocketpc.name"))))
+    (tramp-message tramp-gvfs-dbus-event-vector 10 "%s" tramp-synce-devices)
+    tramp-synce-devices))
+
+(defun tramp-synce-parse-device-names (ignore)
+  "Return a list of (nil host) tuples allowed to access."
+  (mapcar
+   (lambda (x) (list nil x))
+   (tramp-synce-list-devices)))
+
+;; Add completion function for SYNCE method.
+(tramp-set-completion-function
+ "synce" '((tramp-synce-parse-device-names "")))
+
 (provide 'tramp-gvfs)
 
 ;;; TODO: