
;; Copyright (C) 2020-2022 Tommi Höynälänmaa

;; This file is part of Theme-D-Golf.

;; You can redistribute and/or modify this file 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 file 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
;; https://www.gnu.org/licenses/.


(define-body (theme-d-intr support)

  (define slot-set0!
    (unchecked-prim-proc slot-set0! (<object> <symbol> <object>) <none> nonpure))

  (define gtype-instance-signal-connect
    (unchecked-prim-proc theme-gtype-instance-signal-connect
			 (<gobject> <symbol> <signal-handler>) <none> nonpure))

  (define g-irepository-require
    (unchecked-prim-proc g-irepository-require (<string>) <none> nonpure))
  
  (define gi-import-by-name
    (unchecked-prim-proc gi-import-by-name (<string> <string>) <none> nonpure))

  (define gi-import
    (unchecked-prim-proc gi-import (<string>) <none> nonpure))

  (define symbol->g-type
    (prim-proc symbol->g-type (<symbol>) <g-type> pure))

  (define g-set-prgname
    (unchecked-prim-proc g-set-prgname (<string>) <none> nonpure)))
