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
|
;; guile-cairo
;; Copyright (C) 2007, 2011 Andy Wingo <wingo pobox.com>
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU Lesser General Public License as
;; published by the Free Software Foundation; either version 3 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with this program; if not, see
;; <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Config for (cairo).
;;
;;; Code:
(define-module (cairo config)
:export (*cairo-lib-path*
*cairo-documentation-path*))
(define *cairo-lib-path*
(let ((str-path (getenv "GUILE_CAIRO_LIB_PATH")))
(if str-path
str-path
"@cairolibpath@")))
(define *cairo-documentation-path* "@cairodocumentationpath@")
|
