vector-ref and modified using vector-set!.
Nevertheless, we wouldn't want to be saddled with the
burden of remembering which vector index corresponds to
which field. That would be a thankless and error-prone
activity, especially if fields get excluded or included
over the course of time.
We will therefore use a Scheme macro defstruct to
define a structure data type, which is basically a
vector, but which comes with an appropriate suite of
procedures for creating instances of the structure, and
for accessing and modifying its fields. Thus, our tree
structure could be defined as:
(defstruct tree height girth age leaf-shape leaf-color)
This gives us a constructor procedure named
make-tree; accessor procedures for each field,
named
tree.height, tree.girth, etc.; and modifier
procedures for each field, named set!tree.height,
set!tree.girth, etc. The constructor is used as
follows:
(define coconut
(make-tree 'height 30
'leaf-shape 'frond
'age 5))
The constructor's arguments are in the form of twosomes, a field name followed by its initialization. The fields can occur in any order, and may even be missing, in which case their value is undefined.
The accessor procedures are invoked as follows:
(tree.height coconut) => 30
(tree.leaf-shape coconut) => frond
(tree.girth coconut) => <undefined>
The tree.girth accessor returns an undefined value,
because we did not specify girth for the
coconut tree.
The modifier procedures are invoked as follows:
(set!tree.height coconut 40)
(set!tree.girth coconut 10)
If we now access these fields using the corresponding accessors, we will get the new values:
(tree.height coconut) => 40
(tree.girth coconut) => 10
leaf-shape
and leaf-color are by default frond and
green respectively. We can always override these
defaults by providing explicit initialization in the
make-tree call, or by
using a field modifier after the structure instance has
been created:
(defstruct tree height girth age
(leaf-shape 'frond)
(leaf-color 'green))
(define palm (make-tree 'height 60))
(tree.height palm)
=> 60
(tree.leaf-shape palm)
=> frond
(define plantain
(make-tree 'height 7
'leaf-shape 'sheet))
(tree.height plantain)
=> 7
(tree.leaf-shape plantain)
=> sheet
(tree.leaf-color plantain)
=> green
defstruct definitiondefstruct macro definition follows:
(define-macro defstruct
(lambda (s . ff)
(let ((s-s (symbol->string s)) (n (length ff)))
(let* ((n+1 (+ n 1))
(vv (make-vector n+1)))
(let loop ((i 1) (ff ff))
(if (<= i n)
(let ((f (car ff)))
(vector-set! vv i
(if (pair? f) (cadr f) '(if #f #f)))
(loop (+ i 1) (cdr ff)))))
(let ((ff (map (lambda (f) (if (pair? f) (car f) f)) ff)))
`(begin
(define ,(string->symbol (string-append "make-" s-s))
(lambda fvfv
(let ((st (make-vector ,n+1)) (ff ',ff))
(vector-set! st 0 ',s)
,@(let loop ((i 1) (r '()))
(if (>= i n+1) r
(loop (+ i 1)
(cons `(vector-set! st ,i
,(vector-ref vv i))
r))))
(let loop ((fvfv fvfv))
(if (not (null? fvfv))
(begin
(vector-set! st
(+ (list-position (car fvfv) ff) 1)
(cadr fvfv))
(loop (cddr fvfv)))))
st)))
,@(let loop ((i 1) (procs '()))
(if (>= i n+1) procs
(loop (+ i 1)
(let ((f (symbol->string (list-ref ff (- i 1)))))
(cons
`(define ,(string->symbol
(string-append s-s "." f))
(lambda (x) (vector-ref x ,i)))
(cons
`(define ,(string->symbol
(string-append "set!" s-s "." f))
(lambda (x v) (vector-set! x ,i v)))
procs))))))
(define ,(string->symbol (string-append s-s "?"))
(lambda (x)
(and (vector? x) (eqv? (vector-ref x 0) ',s))))))))))