
;; Copyright (C) 2026 Tommi Höynälänmaa

;; Distributed under GNU LGPL.

(define-interface (theme-d-intr base utils)

  (import (standard-library core)
          (standard-library text-file-io)
          (theme-d-intr base variant))

  (declare g-variant-get-string1
    (:simple-proc (<g-variant>) <string> nonpure))

  (declare-simple-method get-integer-sequence
    (<integer> <integer>) (:uniform-list <integer>) pure)

  (declare-simple-method string->symbol-list
    (<string>) (:uniform-list <symbol>) pure)
    
  ;; Maybe we could declare this pure.
  (declare-simple-method xml->sxml (<string>) <source-expr> nonpure))


