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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2006, Steven G. Johnson
;
; This file may be used without restriction. It is in the public
; domain, and is NOT restricted by the terms of any GNU license.
;
; This library 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.
(define-class material-type no-parent
(define-property epsilon no-default 'number positive?)
(define-property conductivity 0.0 'number))
; use the solid geometry classes, variables, etcetera in libgeom:
; (one specifications file can include another specifications file)
(include "@LIBCTL_DIR@/utils/geom.scm")
; ****************************************************************
; Add some predefined variables, for convenience:
(define vacuum (make material-type (epsilon 1.0)))
(define air vacuum)
(define infinity 1.0e20) ; big number for infinite dimensions of objects
(set! default-material air)
; ****************************************************************
(define-input-var k-points '() (make-list-type 'vector3))
(define-input-output-var dummy (vector3 3.7+1.1i 2.3-0.1i 19) 'cvector3)
(define-output-var mean-dielectric 'number)
(define-output-var gaps (make-list-type 'number))
(export-type (make-list-type 'number))
(export-type (make-list-type (make-list-type 'number)))
; ****************************************************************
(define-external-function run-program true true
no-return-value)
(define (run)
(set! interactive? #f) ; don't be interactive if we call (run)
(run-program))
(define-external-function energy-in-object false false
'number 'geometric-object)
(define-external-function list-func-test false false
(make-list-type 'vector3) 'number (make-list-type 'integer) 'vector3)
(define-external-function function-func false false 'number
'function 'number)
; ****************************************************************
; Use "example>" instead of the default "guile>" prompt.
(set! scm-repl-prompt "example> ")
|
