blob: ce72f317d4471b88ac83993843a2e0214d99c08e (
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
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
|
(define-module (px services bluetooth)
#:use-module (gnu)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (gnu packages linux)
#:use-module (gnu packages screen)
#:use-module (gnu packages video)
#:use-module (gnu services mcron)
#:use-module (gnu services shepherd)
#:use-module (gnu system)
#:use-module (gnu system shadow)
#:use-module (px packages device)
#:use-module (px packages security-token)
#:use-module (px packages tpm)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (ice-9 match)
#:use-module (ice-9 pretty-print)
#:export (btuart-configuration
btuart-service-type
bluetooth-client-manager-configuration
bluetooth-client-manager-service-type))
;;
;; btuart-service-type
;;
(define-record-type* <btuart-configuration> btuart-configuration
make-btuart-configuration
btuart-configuration?
(package
btuart-configuration-package
(default bluez))
(device btuart-configuration-device
(default "/dev/ttyAMA0"))
(protocol btuart-configuration-protocol
(default "bcm"))
(baudrate btuart-configuration-baudrate
(default "3000000"))
(flow-control? btuart-configuration-flow-control?
(default #t)))
(define btuart-shepherd-service
(match-lambda
(($ <btuart-configuration>
package
device
protocol
baudrate
flow-control?)
(list (shepherd-service (documentation
"attach serial lines as Bluetooth HCI interfaces")
(provision '(btuart))
(requirement '(udev))
(start #~(make-forkexec-constructor (list #$(file-append
package
"/bin/btattach")
"-B"
#$device
"-P"
#$protocol
"-S"
#$baudrate
(when #$flow-control?
"-N"))))
(one-shot? #t))))))
(define btuart-service-type
(service-type (name 'btuart)
(extensions (list (service-extension
shepherd-root-service-type
btuart-shepherd-service)))
(default-value (btuart-configuration))
(description "Attach serial lines as Bluetooth HCI interfaces")))
;;
;; bluetooth-client-manager-service
;;
(define-record-type* <bluetooth-client-manager-configuration>
bluetooth-client-manager-configuration
make-bluetooth-client-manager-configuration
bluetooth-client-manager-configuration?
(package
bluetooth-client-manager-configuration-package
(default bluetooth-client-manager-service))
(debug? bluetooth-client-manager-configuration-debug?
(default #f))
(skip-approval? bluetooth-client-manager-configuration-skip-approval?
(default #f)))
(define bluetooth-client-manager-shepherd-service
(match-lambda
(($ <bluetooth-client-manager-configuration> package debug? skip-approval?)
(list (shepherd-service (provision '(bluetooth-client-manager-service))
(documentation
"Run px-device-identity-service as a daemon")
(requirement '(networking user-processes
px-device-identity))
(start #~(make-forkexec-constructor (list (string-append #$package
"/bin/bluetooth-client-manager-service")
#$@(if
debug?
'("--verbose")
'())
#$@(if
skip-approval?
'("--skip-approval")
'()))
#:log-file
"/var/log/bluetooth-client-manager-service.log"
#:environment-variables (cons*
"HOME=/root"
"XDG_DATA_HOME=/root/.local/share"
"XDG_CONFIG_HOME=/root/.config"
"SSL_CERT_DIR=/run/current-system/profile/etc/ssl/certs"
"SSL_CERT_FILE=/run/current-system/profile/etc/ssl/certs/ca-certificates.crt"
(default-environment-variables))))
(stop #~(make-kill-destructor)))))))
(define bluetooth-client-manager-service-type
(service-type (name 'bluetooth-client-manager-service)
(description "PantherX Bluetooth Client Manager service")
(extensions (list (service-extension
shepherd-root-service-type
bluetooth-client-manager-shepherd-service)))
(default-value (bluetooth-client-manager-configuration))))
|
