summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'dev-haskell/dbus/metadata.xml')
-rw-r--r--dev-haskell/dbus/metadata.xml61
1 files changed, 61 insertions, 0 deletions
diff --git a/dev-haskell/dbus/metadata.xml b/dev-haskell/dbus/metadata.xml
new file mode 100644
index 000000000000..205ed770c91e
--- /dev/null
+++ b/dev-haskell/dbus/metadata.xml
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "http://www.gentoo.org/dtd/metadata.dtd">
+<pkgmetadata>
+ <herd>haskell</herd>
+ <herd>proxy-maintainers</herd>
+ <maintainer>
+ <email>haskell@gentoo.org</email>
+ </maintainer>
+ <longdescription>
+ D-Bus is a simple, message-based protocol for inter-process
+ communication, which allows applications to interact with other parts of
+ the machine and the user&#39;s session using remote procedure calls.
+
+ D-Bus is a essential part of the modern Linux desktop, where it replaces
+ earlier protocols such as CORBA and DCOP.
+
+ This library is an implementation of the D-Bus protocol in Haskell. It
+ can be used to add D-Bus support to Haskell applications, without the
+ awkward interfaces common to foreign bindings.
+
+ Example: connect to the session bus, and get a list of active names.
+
+ @
+ &amp;#x7b;-\# LANGUAGE OverloadedStrings \#-&amp;#x7d;
+
+ import Data.List (sort)
+ import DBus
+ import DBus.Client
+
+ main = do
+ &amp;#x20; client &lt;- connectSession
+ &amp;#x20; //
+ &amp;#x20; \-- Request a list of connected clients from the bus
+ &amp;#x20; reply &lt;- call_ client (methodCall \&quot;\/org\/freedesktop\/DBus\&quot; \&quot;org.freedesktop.DBus\&quot; \&quot;ListNames\&quot;)
+ &amp;#x20; &amp;#x7b; methodCallDestination = Just \&quot;org.freedesktop.DBus\&quot;
+ &amp;#x20; &amp;#x7d;
+ &amp;#x20; //
+ &amp;#x20; \-- org.freedesktop.DBus.ListNames() returns a single value, which is
+ &amp;#x20; \-- a list of names (here represented as [String])
+ &amp;#x20; let Just names = fromVariant (methodReturnBody reply !! 0)
+ &amp;#x20; //
+ &amp;#x20; \-- Print each name on a line, sorted so reserved names are below
+ &amp;#x20; \-- temporary names.
+ &amp;#x20; mapM_ putStrLn (sort names)
+ @
+
+ &gt;$ ghc --make list-names.hs
+ &gt;$ ./list-names
+ &gt;:1.0
+ &gt;:1.1
+ &gt;:1.10
+ &gt;:1.106
+ &gt;:1.109
+ &gt;:1.110
+ &gt;ca.desrt.dconf
+ &gt;org.freedesktop.DBus
+ &gt;org.freedesktop.Notifications
+ &gt;org.freedesktop.secrets
+ &gt;org.gnome.ScreenSaver
+ </longdescription>
+</pkgmetadata>