4.5 Structure Utilities
(struct->vector v [opaque-v]) → vector? |
v : any/c |
opaque-v : any/c = '... |
Creates a vector representing v. The first slot of the result vector contains a symbol whose printed name has the form struct:id. Each remaining slot contains either the value of a field in v, if it is accessible via the current inspector, or opaque-v for a field that is not accessible. A single opaque-v value is used in the vector for contiguous inaccessible fields. (Consequently, the size of the vector does not match the size of the struct if more than one field is inaccessible.)
v : any/c |
Returns #t if struct->vector exposes any fields of v with the current inspector, #f otherwise.
(struct-type? v) → boolean? |
v : any/c |
Returns #t if v is a structure type descriptor value, #f otherwise.
v : any/c |
Returns #t if v is a constructor procedure generated by define-struct or make-struct-type, #f otherwise.
v : any/c |
Returns #t if v is a predicate procedure generated by define-struct or make-struct-type, #f otherwise.
v : any/c |
Returns #t if v is an accessor procedure generated by define-struct, make-struct-type, or make-struct-field-accessor, #f otherwise.
v : any/c |
Returns #t if v is a mutator procedure generated by define-struct, make-struct-type, or make-struct-field-mutator, #f otherwise.
(prefab-struct-key v) → (or/c false/c symbol? list?) |
v : any/c |
Returns #f if v is not an instance of a prefab structure type. Otherwise, the result is the shorted key that could be with make-prefab-struct to create an instance of the structure type.
Examples: |
> (prefab-struct-key #s(cat "Garfield")) |
cat |
> (define-struct cat (name) #:prefab) |
> (define-struct (cute-cat cat) (shipping-dest) #:prefab) |
> (make-cute-cat "Nermel" "Abu Dhabi") |
#s((cute-cat cat 1) "Nermel" "Abu Dhabi") |
(make-prefab-struct key v ) → struct? |
v : any/c |
Creates an instance of a prefab structure type, using the vs as field values. The key and the number of vs determine the prefab structure type.
A key identifies a structure type based on a list with the following items:
A symbol for the structure type’s name.
An exact, nonnegative integer representing the number of non-automatic fields in the structure type, not counting fields from the supertype (if any).
A list of two items, where the first is an exact, nonnegative integer for the number of automatic fields in the structure type that are not from the supertype (if any), and the second element is an arbitrary value that is the value for the automatic fields.
A vector of exact, nonnegative integers that indicate mutable non-automatic fields in the structure type, counting from 0 and not including fields from the supertype (if any).
Nothing else, if the structure type has no supertype. Otherwise, the rest of the list matches is the key for the supertype.
An empty vector and an auto-field list that starts with 0 can be omitted. Furthermore, the first integer (which indicates the number of non-automatic fields) can be omitted, since it can be inferred from the number of supplied vs. Finally, a single symbol can be used instead of a list that contains only a symbol (in the case that the structure type has no supertype, no automatic fields, and no mutable fields).
The total field count must be no more than 32768. If the number of fields indicated by key is inconsistent with the number of supplied vs, the exn:fail:contract exception is raised.
Examples: |
> (make-prefab-struct 'clown "Binky" "pie") |
#s(clown "Binky" "pie") |
> (make-prefab-struct '(clown 2) "Binky" "pie") |
#s(clown "Binky" "pie") |
> (make-prefab-struct '(clown 2 (0 #f) #()) "Binky" "pie") |
#s(clown "Binky" "pie") |
> (make-prefab-struct '(clown 1 (1 #f) #()) "Binky" "pie") |
#s((clown (1 #f)) "Binky" "pie") |
> (make-prefab-struct '(clown 1 (1 #f) #(0)) "Binky" "pie") |
#s((clown (1 #f) #(0)) "Binky" "pie") |
(prefab-key->struct-type key field-count) → struct-type? |
field-count : (integer-in 0 32768) |
Returns a structure type descriptor for the prefab structure type specified by the combination of key and field-count.