summaryrefslogtreecommitdiff
path: root/gmk-default.h
blob: 9fa09a6e7c921320c839309f4667ac0aa711c6e2 (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
static const char *const GUILE_module_defn = " \
(define (to-string-maybe x) \
  (cond \
   ((or (not x) \
        (unspecified? x) \
        (variable? x) \
        (null? x) \
        (and (string? x) (string-null? x))) \
    #f) \
   ((eq? x #t) \"#t\") \
   ((or (symbol? x) (number? x)) \
    (object->string x)) \
   ((char? x) \
    (string x)) \
   ((and (string? x) (string-every char-set:printing x)) \
    x) \
   (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)))) \
(define (gmk-var v) \
  (gmk-expand (format #f \"$(~a)\" (obj-to-str v)))) \
(export gmk-expand gmk-eval gmk-var) \
";