► |  | Guide: PLT Scheme

1 | Welcome to PLT Scheme
2 | Scheme Essentials
3 | Built-In Datatypes
4 | Expressions and Definitions
5 | Programmer-Defined Datatypes
6 | Modules
7 | Contracts
8 | Input and Output
9 | Regular Expressions
10 | Exceptions and Control
11 | Iterations and Comprehensions
12 | Pattern Matching
13 | Classes and Objects
14 | Units (Components)
15 | Reflection and Dynamic Evaluation
16 | Macros
17 | Performance
18 | Running and Creating Executables
19 | Compilation and Configuration
20 | More Libraries
21 | Dialects of Scheme
| Bibliography
| Index

▼ | 8 | Input and Output

8.1 | Varieties of Ports
8.2 | Default Ports
8.3 | Reading and Writing Scheme Data
8.4 | Datatypes and Serialization
8.5 | Bytes, Characters, and Encodings
8.6 | I/ O Patterns

top← prev up next →

#### 8.4`` Datatypes and Serialization

Prefab structure types (see Prefab Stucture Types) automatically support serialization: they can be written to an output stream, and a copy can be read back in from an input stream:

> (define-values (in out) (make-pipe))
> (write #s(sprout bean) out)
> (read in)
#s(sprout bean)

Other structure types created by define-struct, which offer more abstraction than prefab structure types, normally write either using #<....> notation (for opaque structure types) or using #(....) vector notation (for transparent structure types). In neither can can the result be read back in as an instance of the structure type:

> (define-struct posn (x y))
> (write (make-posn 1 2))
#<posn>
> (define-values (in out) (make-pipe))
> (write (make-posn 1 2) out)
> (read in)
UNKNOWN::0: read: bad syntax `#<'

> (define-struct posn (x y) #:transparent)
> (write (make-posn 1 2))
#(struct:posn 1 2)
> (define-values (in out) (make-pipe))
> (write (make-posn 1 2) out)
> (define v (read in))
> v
#(struct:posn 1 2)
> (posn? v)
#f
> (vector? v)
#t

The define-serializable-struct form defines a structure type that can be serialized to a value that can be printed using write and restored via read. The serialized result can be deserialized to get back an instance of the original structure type. The serialization form and functions are provided by the scheme/serialize library.

Examples:
> (require scheme/serialize)
> (define-serializable-struct posn (x y) #:transparent)
> (deserialize (serialize (make-posn 1 2)))
#(struct:posn 1 2)
> (write (serialize (make-posn 1 2)))
((2) 1 ((#f . deserialize-info:posn-v0)) 0 () () (0 1 2))
> (define-values (in out) (make-pipe))
> (write (serialize (make-posn 1 2)) out)
> (deserialize (read in))
#(struct:posn 1 2)

In addition to the names bound by define-struct, define-serializable-struct binds an identifier with deserialization information, and it automatically provides the deserialization identifier from a module context. This deserialization identifier is accessed reflectively when a value is deserialized.

top← prev up next →