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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
;; -*-theme-d-*-
;; Copyright (C) 2025 Tommi Höynälänmaa
;; Distributed under GNU Lesser General Public License version 3,
;; see file doc/LGPL-3.
(define-interface (standard-library plugins)
(import (standard-library core))
(define-foreign-prim-class <module>
(attributes use-eq?)
(member-pred module?))
(declare-simple-method load-module
((:uniform-list <symbol>)) (:alt-maybe <module>) nonpure)
(declare-simple-method load-plugin
((:uniform-list <symbol>)) <module> nonpure)
(declare-simple-method module-var-exists?
(<module> <symbol>) <boolean> pure)
(declare-simple-method module-ref
(<module> <symbol>) <object> pure)
(declare-simple-method dyn-call
(<object> (rest <object>)) <object> nonpure)
(declare-simple-method dyn-call-no-result
(<object> (rest <object>)) <none> nonpure)
(declare-simple-method dyn-apply
(<object> <list>) <object> nonpure)
(declare-simple-method dyn-apply-no-result
(<object> <list>) <none> nonpure)
(declare-simple-method get-exported-var-name (<symbol>) <symbol> pure)
(declare-simple-method get-exported-ngp-name (<symbol>) <symbol> pure)
(declare-simple-method get-exported-vgp-name (<symbol>) <symbol> pure)
(declare-simple-method plugin-exported-normal-vars (<module>) (:uniform-list <symbol>) pure)
(declare-simple-method plugin-exported-ngps (<module>) (:uniform-list <symbol>) pure)
(declare-simple-method plugin-exported-vgps (<module>) (:uniform-list <symbol>) pure))
|
