summaryrefslogtreecommitdiff
blob: e9a2600568eb62fcd15902c4ee255fe2159a13f3 (plain)
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
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE pkgmetadata SYSTEM "https://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>