summaryrefslogtreecommitdiff
path: root/gmk-default.scm
diff options
context:
space:
mode:
authorPaul Smith <psmith@gnu.org>2012-01-15 22:41:53 +0000
committerPaul Smith <psmith@gnu.org>2012-01-15 22:41:53 +0000
commitc992c4d80f51540699f33fed067caf6b7c38df79 (patch)
tree2e8bee26fd19820b85422752724e87639d1b0c77 /gmk-default.scm
parent3057357c0a5c2507eef2b61eef9ebfb569b30230 (diff)
downloadgunmake-c992c4d80f51540699f33fed067caf6b7c38df79.tar.gz
Add GNU Guile as an optional embedded scripting language for make.
On configure-enabled systems, configure will detect Guile installed (using pkg-config, which is how GNU Guile is distributed) and enable it if so. On all non-configure-enabled systems, currently, the default is for Guile support to be disabled.
Diffstat (limited to 'gmk-default.scm')
-rw-r--r--gmk-default.scm57
1 files changed, 57 insertions, 0 deletions
diff --git a/gmk-default.scm b/gmk-default.scm
new file mode 100644
index 0000000..37db2f7
--- /dev/null
+++ b/gmk-default.scm
@@ -0,0 +1,57 @@
+;; Contents of the (gnu make) Guile module
+;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; This file is part of GNU Make.
+;;
+;; GNU Make is free software; you can redistribute it and/or modify it under
+;; the terms of the GNU General Public License as published by the Free
+;; Software Foundation; either version 3 of the License, or (at your option)
+;; any later version.
+;;
+;; GNU Make 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 General Public License for more
+;; details.
+;;
+;; You should have received a copy of the GNU General Public License along
+;; with this program. If not, see <http://www.gnu.org/licenses/>.
+
+(define (to-string-maybe x)
+ (cond
+ ;; In GNU make, "false" is the empty string
+ ((or (not x)
+ (unspecified? x)
+ (null? x)
+ (and (string? x) (string-null? x)))
+ #f)
+ ;; We want something not false... not sure about this
+ ((eq? x #t) "#t")
+ ;; Basics
+ ((or (symbol? x) (number? x))
+ (object->string x))
+ ((char? x)
+ (string x))
+ ;; Printable string (no special characters)
+ ((and (string? x)
+ (eq? (string-length (string-delete x char-set:printing)) 0))
+ x)
+ ;; No idea: fail
+ (else (error "Unknown object:" x))))
+
+(define (obj-to-str x)
+ (let ((acc '()))
+ (define (walk x)
+ (cond ((pair? x) (walk (car x)) (walk (cdr x)))
+ ((to-string-maybe x) => (lambda (s) (set! acc (cons s acc))))))
+ (walk x)
+ (string-join (reverse! acc))))
+
+;; eval (GNU make eval) the input string S
+(define (gmk-eval s)
+ (gmk-expand (format #f "$(eval ~a)" (obj-to-str s))))
+
+;; Return the value of the GNU make variable V
+(define (gmk-var v)
+ (gmk-expand (format #f "$(~a)" (obj-to-str v))))
+
+;; Export the public interfaces
+(export gmk-expand gmk-eval gmk-var)