(def c (make-cc (λ (m) (princ m) (newline))))
(assert (cc? c))
(cc-add-include-path c "/usr/include/uuid")
(cc-set-options c "-luuid")
(def (match s)
  (and (> (length s) 5)
       (equal? (map rune-downcase (str-sub s 0 5))
               "uuid_")))
(assert (cc-compile
          c
          «#include <uuid.h>
           »
          (λ (filename line sym)
            (when (match (aref sym 0))
              (princ "symbol: ")
              (with-bindings ((*print-pretty* NIL)) (print sym))
              (princ " [" filename ":" line "]")
              (newline)))
          (λ (filename line name value)
            (when (match name)
              (princ "macro: " name " = " value " [" filename ":" line "]")
              (let ((i (str->num value)))
                (when i
                  (set-top-level-value! (sym "uuid:" (str-sub name 5))
                                        i)))
              (newline)))))
(assert (cc-relocate c))
(princ "uuid:STR_LEN=" uuid:STR_LEN)
(newline)