blob: 9525580a662f8358ce2622ae020225ca8d39c4f0 (
about) (
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
|
(use-modules (gnu packages commencement)
(gnu packages fontutils)
(gnu packages xorg)
(guix gexp))
(define set-up-gcc-gexp
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(set-path-environment-variable "PATH"
'("bin")
(list #$gcc-toolchain))
(set-path-environment-variable "C_INCLUDE_PATH"
'("include")
(list #$gcc-toolchain))
(set-path-environment-variable "LIBRARY_PATH"
'("lib")
(list #$gcc-toolchain)))))
(define* (compile source-filename #:key (flags '()))
(computed-file (string-append (basename source-filename ".c")
".o")
#~(begin
#$set-up-gcc-gexp
(invoke "gcc" "-c" #$(local-file source-filename)
"-o" #$output
#$@flags))))
(define* (link output-filename object-files #:key (flags '()))
(computed-file output-filename
#~(begin
#$set-up-gcc-gexp
(invoke "gcc" "-o" #$output
#$@object-files
#$@flags))))
(let ((include-dependencies
(directory-union "include"
(list (file-append fontconfig "/include")
(file-append freetype "/include/freetype2")
(file-append libx11 "/include")
(file-append libxft "/include")
(file-append libxrender "/include")
(file-append xorgproto "/include")))))
(link "sent"
(list (let ((headers `(("arg.h" ,(local-file "sent/arg.h"))
("config.h" ,(local-file "sent/config.def.h"))
("drw.h" ,(local-file "sent/drw.h"))
("util.h" ,(local-file "sent/util.h")))))
(compile "sent/sent.c"
#:flags (list "-DVERSION=\"1\""
"-I" include-dependencies
"-I" (file-union "include" headers))))
(let ((headers `(("drw.h" ,(local-file "sent/drw.h"))
("util.h" ,(local-file "sent/util.h")))))
(compile "sent/drw.c"
#:flags (list "-I" include-dependencies
"-I" (file-union "include" headers))))
(let ((headers `(("util.h" ,(local-file "sent/util.h")))))
(compile "sent/util.c"
#:flags (list "-I" (file-union "include" headers)))))
#:flags (list "-L" (file-append fontconfig "/lib")
"-L" (file-append libx11 "/lib")
"-L" (file-append libxft "/lib")
"-lfontconfig" "-lm" "-lX11" "-lXft")))
|
