# Realtime Signal Processing - Ptolemy Project

## Transcription

Realtime Signal Processing - Ptolemy Project
Realtime Signal Processing
Dataow, Visual, and Functional Programming
Hideki John Reekie
Submitted for the Degree of
Doctor of Philosophy at the
University of Technology at Sydney
in the
School of Electrical Engineering
September 1995
Abstract
This thesis presents and justies a framework for programming real-time signal processing systems. The framework extends the existing \block-diagram" programming model;
it has three components: a very high-level textual language, a visual language, and the
dataow process network model of computation.
The dataow process network model, although widely-used, lacks a formal description,
and I provide a semantics for it. The formal work leads into a new form of actor. Having
established the semantics of dataow processes, the functional language Haskell is layered
above this model, providing powerful features|notably polymorphism, higher-order functions, and algebraic program transformation|absent in block-diagram systems. A visual
equivalent notation for Haskell, Visual Haskell, ensures that this power does not exclude
the \intuitive" appeal of visual interfaces; with some intelligent layout and suggestive icons,
a Visual Haskell program can be made to look very like a block diagram program. Finally,
the functional language is used to further extend dataow process networks, by simulating
timed and dynamically-varying networks.
The thesis thus draws together a number of previously-separate ideas: a reasonable
expectation of ecient execution using established dataow compilation technology; a powerful and high-level programming notation; and a block-diagram style interface.
Contents
1 Introduction
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
2.1 Models of parallelism : : : : : : : : : : : : :
2.1.1 A \meta-model" of parallelism : : :
2.1.2 Implicit parallelism : : : : : : : : : :
2.1.3 Data parallelism : : : : : : : : : : :
2.1.4 Control parallelism : : : : : : : : : :
2.1.5 The Linda model : : : : : : : : : : :
2.1.6 Pipeline parallelism : : : : : : : : :
2.2 Functional programming in ve minutes : :
2.2.1 Objects and functions : : : : : : : :
2.2.2 Bindings : : : : : : : : : : : : : : : :
2.2.3 Patterns : : : : : : : : : : : : : : : :
2.2.4 Currying and higher-order functions
2.2.5 let, lambda, and case : : : : : : : : :
2.2.6 Polymorphism and type classes : : :
2.3 Evaluation mechanisms : : : : : : : : : : :
2.3.1 Graph reduction : : : : : : : : : : :
2.3.2 Strictness : : : : : : : : : : : : : : :
2.3.3 Parallel graph reduction : : : : : : :
2.3.4 Parallel data structures : : : : : : :
2.3.5 Functional operating systems : : : :
2.3.6 Functional process networks : : : : :
2.3.7 Skeletons : : : : : : : : : : : : : : :
2.4 Real-time signal processing : : : : : : : : :
2.4.1 Discrete-time signals : : : : : : : : :
2.4.2 Streams and channels : : : : : : : :
2.4.3 Functions and systems : : : : : : : :
2.4.4 Digital signal processors : : : : : : :
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
1.1
1.2
1.3
1.4
Motivation : : : : : : : :
Benets : : : : : : : : : :
Overview of the thesis : :
Previously published work
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
2 Background Material
i
:
:
:
:
:
:
:
:
:
:
:
:
1
3
5
6
8
11
11
12
13
14
15
17
18
19
20
21
22
23
24
25
26
26
28
29
30
31
33
34
36
36
37
39
40
2.5 Summary : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : :
3 Dataow Process Networks
3.1 Related work : : : : : : : : : : : : : : : : : : : : : :
3.1.1 Computation graphs : : : : : : : : : : : : : :
3.1.2 Synchronous dataow (SDF) : : : : : : : : :
3.1.3 Kahn's process networks : : : : : : : : : : : :
3.1.4 Dataow processes : : : : : : : : : : : : : : :
3.1.5 Firing rules : : : : : : : : : : : : : : : : : : :
3.2 Standard-form dataow actors : : : : : : : : : : : :
3.2.1 Syntax : : : : : : : : : : : : : : : : : : : : : :
3.2.2 Desugaring : : : : : : : : : : : : : : : : : : :
3.2.3 Semantics : : : : : : : : : : : : : : : : : : : :
3.2.4 Consumption and production vectors : : : : :
3.2.5 Canonical SDF actors : : : : : : : : : : : : :
3.3 Phased-form dataow actors : : : : : : : : : : : : : :
3.3.1 Syntax : : : : : : : : : : : : : : : : : : : : : :
3.3.2 Phase graphs : : : : : : : : : : : : : : : : : :
3.3.3 Semantics : : : : : : : : : : : : : : : : : : : :
3.3.4 Cyclo-static and multi-phase integer dataow
3.3.5 Execution mechanisms : : : : : : : : : : : : :
3.3.6 Hierarchy and strictness : : : : : : : : : : : :
3.4 Summary : : : : : : : : : : : : : : : : : : : : : : : :
4.1 Related work : : : : : : : : : : : : : : :
4.2 An introduction to Visual Haskell : : : :
4.3 Visual syntax preliminaries : : : : : : :
4.3.1 Visual elements : : : : : : : : : :
4.3.2 Specifying the visual syntax : : :
4.3.3 A simple visual language : : : :
4.3.4 De-sugaring : : : : : : : : : : : :
4.4 The core syntax : : : : : : : : : : : : : :
4.4.1 Simple expressions : : : : : : : :
4.4.2 Structured expressions : : : : : :
4.4.3 Patterns : : : : : : : : : : : : : :
4.4.4 Bindings : : : : : : : : : : : : : :
4.4.5 Match phrases : : : : : : : : : :
4.5 Improving the visual syntax : : : : : : :
4.5.1 Visual syntactic sugar : : : : : :
4.5.2 Iteration boxes : : : : : : : : : :
4.5.3 Unfolded higher-order functions :
4.5.4 Wiring : : : : : : : : : : : : : : :
4.6 Summary : : : : : : : : : : : : : : : : :
ii
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
42
44
45
46
47
50
53
54
56
56
59
60
65
67
69
71
74
76
80
82
83
86
87
88
92
96
97
98
99
102
103
103
107
110
111
114
115
116
118
119
120
121
5 Static Process Networks
5.1 Related work : : : : : : : : : : : : : : : : : : : :
5.2 Vectors : : : : : : : : : : : : : : : : : : : : : : :
5.2.1 The Vector datatype : : : : : : : : : : : :
5.2.2 Iterators : : : : : : : : : : : : : : : : : : :
5.2.3 Combiners : : : : : : : : : : : : : : : : : :
5.2.4 Selectors : : : : : : : : : : : : : : : : : : :
5.2.5 Example: the Fast Fourier Transform : :
5.3 Streams : : : : : : : : : : : : : : : : : : : : : : :
5.3.1 The Stream datatype : : : : : : : : : : :
5.3.2 Process primitives : : : : : : : : : : : : :
5.3.3 An example : : : : : : : : : : : : : : : : :
5.3.4 Process constructors : : : : : : : : : : : :
5.4 Process network construction : : : : : : : : : : :
5.4.1 Simple combinators : : : : : : : : : : : :
5.4.2 Simple linear networks : : : : : : : : : : :
5.4.3 Pipelines : : : : : : : : : : : : : : : : : :
5.4.4 Meshes and systolic arrays : : : : : : : : :
5.4.5 Network construction in dataow systems
5.5 Process network transformation : : : : : : : : : :
5.5.1 Type annotations : : : : : : : : : : : : : :
5.5.2 Fusion : : : : : : : : : : : : : : : : : : : :
5.5.3 Parallelisation : : : : : : : : : : : : : : : :
5.5.4 Pipelining : : : : : : : : : : : : : : : : : :
5.5.5 Promotion : : : : : : : : : : : : : : : : : :
5.6 Summary : : : : : : : : : : : : : : : : : : : : : :
6 Dynamic Process Networks
6.1 Related work : : : : : : : : : : : : : : : : : : :
6.2 Timed signals and streams : : : : : : : : : : : :
6.3 Functions on timed streams : : : : : : : : : : :
6.3.1 Basic functions : : : : : : : : : : : : : :
6.3.2 Timed vectors : : : : : : : : : : : : : :
6.3.3 Synchronous and timed streams : : : : :
6.4 Dynamic process networks : : : : : : : : : : : :
6.4.1 Finite synchronous streams : : : : : : :
6.4.2 Dynamic process functions : : : : : : :
6.5 A digital music synthesiser : : : : : : : : : : : :
6.5.1 Notes : : : : : : : : : : : : : : : : : : :
6.5.2 Envelopes : : : : : : : : : : : : : : : : :
6.5.3 Note generation : : : : : : : : : : : : : :
6.5.4 A formant-wave-function note generator
6.6 Summary : : : : : : : : : : : : : : : : : : : : :
7 Summary
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
123
124
126
126
127
131
132
135
139
139
140
142
144
148
149
150
151
153
155
156
156
157
160
161
163
164
166
167
169
171
171
173
175
177
177
181
182
182
183
185
187
191
192
iii
7.1 Contributions : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 192
7.2 Further work : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 194
7.3 Concluding Remarks : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : : 195
207
iv
List of Figures
1.1 A conceptual framework for DSP programming : : : : : : : : : : : : : : : :
1.2 The arguments, summarised : : : : : : : : : : : : : : : : : : : : : : : : : : :
1.3 An overview of thesis topics : : : : : : : : : : : : : : : : : : : : : : : : : : :
2.1
2.2
2.3
2.4
2.5
A hierarchy of parallelism : : : : : : : : : : : :
Carriero and Gelernter's models of parallelism :
More models of parallelism : : : : : : : : : : :
A simple block diagram : : : : : : : : : : : : :
A simplied DSP chip architecture : : : : : : :
3.1
3.2
3.3
3.4
3.5
3.6
3.7
3.8
3.9
3.10
3.11
3.12
3.13
3.14
3.15
3.16
3.17
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
A simple dataow network : : : : : : : : : : : :
A computation graph : : : : : : : : : : : : : : :
A synchronous dataow graph : : : : : : : : : :
A Kahn process network : : : : : : : : : : : : :
Sugared syntax of a standard-form actor : : : :
Desugaring a standard-form actor : : : : : : : :
Instantiating an actor : : : : : : : : : : : : : :
The canonical SDF actors : : : : : : : : : : : :
Sugared syntax of a phased-form actor : : : : :
The non-deterministic sumsqrs actor : : : : : :
The phased-form delay actor : : : : : : : : : :
Desugaring a phased-form actor : : : : : : : : :
Phase graphs : : : : : : : : : : : : : : : : : : :
Phase graph of iota : : : : : : : : : : : : : : : :
Deadlock of a hierarchical actor : : : : : : : : :
A phased network example : : : : : : : : : : :
The example phased network as a phased-form actor
4.1
4.2
4.3
4.4
4.5
4.6
4.7
4.8
The factorial function in Cardelli's language : : : :
The factorial function in ESTL : : : : : : : : : : :
The factorial function in Visual Haskell : : : : : :
Patterns : : : : : : : : : : : : : : : : : : : : : : : :
The map function : : : : : : : : : : : : : : : : : : :
Icons for some standard prelude data constructors
Icons for some standard prelude functions : : : : :
Function composition : : : : : : : : : : : : : : : :
:
:
:
:
:
:
:
:
v
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
2
6
7
12
13
16
39
41
44
47
48
51
57
60
62
68
71
73
73
74
75
81
84
85
85
89
90
93
94
94
95
95
96
4.9
4.10
4.11
4.12
4.13
4.14
4.15
4.16
4.17
4.18
4.19
4.20
4.21
4.22
4.23
4.24
4.25
4.26
Simple visual elements : : : : : : : : : :
Haskell's abstract syntax : : : : : : : : :
The visual syntax of a simple language :
Sugaring the simple language : : : : : :
De-sugaring rules : : : : : : : : : : : : :
Visual syntax: simple expressions : : : :
An example translation : : : : : : : : :
Visual syntax: structured expressions : :
Examples of structured expressions : : :
Visual syntax: patterns : : : : : : : : :
Visual syntax: bindings : : : : : : : : :
Visual syntax: match clauses : : : : : :
Sugaring rules : : : : : : : : : : : : : : :
Illustrating type annotations : : : : : :
Illustrating iteration : : : : : : : : : : :
Unfolded higher-order functions : : : : :
Wiring : : : : : : : : : : : : : : : : : : :
Mixing text and pictures : : : : : : : : :
5.1
5.2
5.3
5.4
5.5
5.6
5.7
5.8
5.9
5.10
5.11
5.12
5.13
5.14
5.15
5.16
5.17
5.18
5.19
5.20
5.21
5.22
5.23
5.24
5.25
Unfolded vector iterators : : : : : : : : :
Iterator type signatures : : : : : : : : :
Combiner type signatures : : : : : : : :
Selector type signatures : : : : : : : : :
Additional selector functions : : : : : :
Selectors as \wiring" : : : : : : : : : : :
The 16-point FFT buttery diagram : :
The FFT function : : : : : : : : : : : :
Parts of the 16-point FFT in Visual Haskell
Types of stream functions : : : : : : : : : :
A rst-order recursive lter : : : : : : : : :
Process constructor denitions : : : : : : :
Process constructors : : : : : : : : : : : : :
The FIR lter function : : : : : : : : : : : :
The n-th order recursive lter : : : : : : : :
Simple network-forming functions : : : : : :
Linear process networks : : : : : : : : : : :
A pipeline process network : : : : : : : : :
Mesh process networks : : : : : : : : : : : :
Illustrating network types : : : : : : : : : :
Process fusion : : : : : : : : : : : : : : : : :
The transformed FIR lter : : : : : : : : :
Horizontal parallelisation : : : : : : : : : :
Pipelining : : : : : : : : : : : : : : : : : : :
Promotion : : : : : : : : : : : : : : : : : : :
vi
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
97
99
101
102
103
105
107
108
110
112
113
114
117
118
119
120
121
122
129
130
131
132
133
135
136
137
138
141
143
145
146
147
148
149
151
153
154
157
158
159
161
162
164
6.1
6.2
6.3
6.4
6.5
6.6
6.7
6.8
6.9
6.10
6.11
6.12
A simple digital gain control : : : : : : : :
Types of timed stream functions : : : : :
Types of nite stream functions : : : : : :
More functions for making nite streams :
Types of dynamic process functions : : : :
Note events and associated code : : : : :
Ramp and envelope generators : : : : : :
Note generators : : : : : : : : : : : : : : :
The top-level synthesiser : : : : : : : : : :
Sine-wave synthesiser output : : : : : : :
Formant-wave-function tone generation : :
Formant-wave-function output : : : : : :
vii
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
166
171
178
180
181
183
184
186
187
188
189
190
Acknowledgements
I would like to thank my academic supervisors, Professor Warren Yates, of the School of
Electrical Engineering, University of Technology at Sydney, and Dr. John Potter, of the Microsoft Institute (formerly of the School of Computing Sciences, University of Technology at
Sydney), for their advice, support, and patience. I am indebted to the three thesis assessors,
Dr Chris Drane (University of Technology at Sydney), Dr Greg Michaelson (Heriot-Watt
University), and Dr Andrew Wendelborn (University of Adelaide), for their time and eort
reading and commenting on the submitted version of the thesis; I hope this nal version
adequately addresses the issues they raised. This work was supported by an Australian
Post-graduate Research Award. Fudeko and Colin Reekie made the whole thing possible.
Jon Hill read and oered useful comments on an early draft of this thesis. Matthias Meyer
wrote the TMS320C40 prototype of SPOOK. Ken Dawson wrote the prototype Visual
Haskell editor. Mike Colefax wrote the polyphonic version of the formant-wave-function
music synthesiser. John Leaney oered enthusiasm and encouragement. Rick Jellie told
at least one funny story. Morris the psycho-cat took no interest in any of this.
viii
The two virtues of architecture which we can justly
weigh, are, we said, its strength or good construction,
and its beauty or good decoration. Consider rst,
therefore, what you mean when you say a building is well
constructed or well built; you do not merely mean that it
answers its purpose,|this is much, and many modern
buildings fail of this much; but if it be verily well built; it
must answer this purpose in the simplest way, and with
no over-expenditure of means.
John Ruskin, The Stones of Venice.
Writers of books and articles should not use we in circumstances
where the collective anonymity of the editorial of a newspaper is
out of place. An author may, taking the reader with him, say we
have seen how thus and thus , but ought not, meaning I , to
say we believe thus and thus ; nor is there any sound reason why,
even though anonymous, he should say the present writer or your
reviewer , expressions which betray his individuality no less and
no more than the use of the singular pronoun. Modern writers are
showing a disposition to be bolder than was formerly fashionable
in the uses of I and me , and the practice deserves encouragement.
It might well be imitated by the many scientic writers who,
perhaps out of misplaced modesty, are given to describing their
experiments in a perpetually passive voice, (such-and-such a thing
was done ), a trick that becomes wearisome by repetition, and
makes the reader long for the author to break the monotony by
saying boldly I did such-and-such a thing .
:::
H. W. Fowler, A Dictionary of Modern English Usage
Chapter 1
Introduction
Real-time signal processing computation is a unique eld. It has its own special class
of applications|applications that demand extremely high computational performance and
very fast real-time response. It uses specialised micro-processors|often several|with their
own unique set of hardware design and programming tricks. It pursues performance at the
expense of generality, maintainability, portability, and other generally-accepted measures
of good software practice. And a running real-time signal processing program is the most
exciting kind of computer program there is, because you can hear it, see it, and interact
with it in ways not possible with other kinds of computer program.
Fortunately, the eagerness to sacrice good practice in pursuit of maximum performance
is tempered by a programming approach that promises both. This approach, going under
the guise of \block-diagram development systems," is based on a simple metaphor: software
modules can be interconnected by software channels in the same manner in which hardware
units can be connected by cables carrying analog or digital signals. The concept dates back
at least to the work by Kelly et al in 1961 . In modern systems, visual interfaces add to
the appeal of the metaphor: complete systems can be constructed by making connections
on a computer screen.
The computational model on which these systems are based is called pipeline dataow .
The combination of a visual interface with pipeline dataow is well-established in several
elds, including signal processing [88, 12, 85], image processing and visualisation [112, 83],
instrumentation , and general-purpose visual programming languages [99, 59]. Signal
processing systems are based on a special class of pipeline dataow, dataow process net1
CHAPTER 1. INTRODUCTION
High-level language
let
u = copyV k 0
in
scanS (<<) u
2
Visual language
Programming technology
Computational model
Dataflow process network
Figure 1.1. A conceptual framework for DSP programming
works (see chapter 3). Block-diagram systems, although well-established, are a practical
compromise of usability and implementation technology, and lack some of the features of
modern programming languages.
The aim of this thesis is to extend the visual-interface-dataow-network style of computation. It does so by adding a third dimension as illustrated in gure 1.1. The underlying
model of computation is still dataow process networks; a programmer creates dataownetwork programs using either a visual language or a high-level language. There is more
than appears on this diagram, though: the high-level language oers new exibility and
power to both the visual interface and the dataow process network model. In this thesis,
I will use Haskell as the high-level language; Haskell is a modern functional language that
provides a common ground for research into functional languages and functional programming . The visual language is Visual Haskell, a visual equivalent for Haskell of my own
design.
In the next two sections I summarise the arguments in favour of adding this third
dimension. A further two sections provide an outline of following chapters, and review
previously-published papers and reports and their relation to this thesis.
CHAPTER 1. INTRODUCTION
3
1.1 Motivation
There were two main motivations behind the work in this thesis. Firstly, I wanted a way
of expressing dataow network programs that is more powerful and expressive than current
block-diagram systems. And secondly, I wanted to show that a more powerful notation
need not sacrice the \intuitive" appeal of a visual interface.
In a block-diagram system, a programmer or engineer places icons representing processing modules, or blocks , onto the computer screen. Connections between input and output
ports represent a ow of data from one block into another. The data owing over these
channels is called a stream . Input-output is handled in a uniform way: special blocks
with no input ports represent input channels; blocks with no output ports represent output
channels. Most systems support hierarchical construction of networks: a network with unconnected input or output ports can be named and then placed into another network. This
is the dataow network equivalent of procedural abstraction.
Block diagrams are conceptually familiar to engineers, and the visual interface is semantically simple and therefore provides little barrier to take-up, as learning a new textual
language might. The computational model is, however, limited to pipeline dataow. As a
result, block diagram languages cannot express other kinds of computation. For example,
although it is easy to express point-wise summation of two streams of numbers, it is not
possible to express the addition of two numbers. For this reason, block-diagram systems
supply a library of \primitive" blocks|waveform generators, lters, modulators, detectors,
and transforms|with which more complex blocks and systems can be constructed. Any
algorithm not supplied with the library can be coded as a primitive block by the user, in a
conventional language such as C or Fortran.
This approach has two drawbacks. Firstly, algorithms coded in C or Fortran cannot
be divided into smaller parts for simultaneous execution on multiple processors. Large
primitive blocks|such as the Fast Fourier Transform|may limit throughput or reduce
the eectiveness of load-balancing. The second objection is essentially one of elegance: the
programmer is forced to program in two completely dierent languages, with two completely
dierent semantics.
Functional programming languages seem a natural choice for coding dataow network
programs. Because pure functional languages have no assignment, we can think of functional
programs as dataow programs: in dataow, the result of each block ows into the input
CHAPTER 1. INTRODUCTION
4
of the next; in functional programs, the result of each function application is the argument
to another function application. If this data is atomic|numbers and so on, or tokens in
dataow terminology|then this is like atomic dataow .
In addition, pure functional languages are \lazy," so that evaluation is not performed
until needed to produce the result of the program. Laziness is a nice property for a number
of reasons. Firstly, it is necessary to guarantee referential transparency: an expression can
always be substituted with an equivalent expression without changing program meaning.
Secondly, it allows the use of some programming techniques that cannot be used in non-lazy
languages|see [19, 66, 147] for examples of programs that can only be constructed in a
lazy language. For our purposes, laziness makes it easy to build innite data structures and
therefore to simulate pipeline dataow systems. Thus, the same language codes the internal
computation of blocks as well as networks of blocks|there is no barrier between primitive
and constructed blocks as in conventional block-diagram systems.
Functional languages are not, however, visual. Although there has been some work on
visual functional languages, none have been widely adopted or implemented. Because the
functional language approach to dataow programming ts the dataow model so well, I
is to provide an unambiguous visual equivalent of textual Haskell, so that programs can be
translated back and forth between the two notations|this is represented by the doubleended arrow at the top of gure 1.1.
Thus, all blocks|both constructed and primitive|can be created and manipulated in
both visual and textual languages. Although typically the visual language would be used
at higher levels of the system and the textual language for lower-level algorithms, there is
no compulsion to do so; the transition between the two styles of programming is seamless,
and the programmer is free to choose whichever is the most appropriate. This \two-view"
idea is not new: a multiple-view program development environment has been proposed
for procedural languages ; and two-view document formatting systems seem a natural
synthesis of the compiled and WYSIWYG styles of document production .
The choice of a lazy language is not without its drawbacks: there is an inevitable overhead associated with building a run-time representation of unevaluated expressions. This
presents serious diculties with computation within blocks, as real-time signal processing
simply cannot aord to support any overheads other than those essential to producing the
CHAPTER 1. INTRODUCTION
5
result of a computation.
1.2 Benets
Having decided on the framework of gure 1.1, other interesting benets become apparent.
Because the visual language is general|that is, it is a visual notation for Haskell and it
not particularly oriented towards signal processing|it promises to be a powerful tool for
functional programming in general. The presentation in chapter 4 and in an earlier paper
 are written assuming that Visual Haskell will be used as a visual functional language,
not as a visual dataow language.
The connection between functional languages and pipeline dataow (more specically,
dataow process networks|see chapter 3) provides a new implementation model for a
particular class of functional programs. Although similar to some other approaches to
evaluating functional programs (section 2.3.6), it promises ecient execution through the
use of well-established dataow scheduling and compilation techniques.
The high-level language provides the visual language and pipeline dataow models with
some powerful features. Existing block-diagram languages|and even general-purpose visual programming languages|do not support all of the features promised by Visual Haskell.
(This is one of the reasons I developed Visual Haskell instead of using an existing visual
language and combining it with dataow networks.) Polymorphism , for example, allows
functions (or networks) to be written that will accept dierent datatypes. In Ptolemy
and SPW, for example, the programmer must choose an appropriate addition block: integer, oating, or complex. In Visual Haskell, the (+) operator is overloaded on all these
types. Typing is still static, so this feature does not require the overheads of run-time typechecking, as would be the case were a Lisp-like language adopted. Higher-order functions
provide a very powerful mechanism for constructing and parameterising process networks.
(A higher-order function takes a function argument, or delivers a function result.) This
allows the expression of visual programs with \large thoughts" . I explore this idea in
section 5.4. A simple form of higher-order function mechanism has recently been added to
Ptolemy , inspired by one of my earlier papers [114, 86].
An interesting possibility opened up by incorporating a functional language into the
programming framework is that of program transformation . Program transformation is
CHAPTER 1. INTRODUCTION
6
intuition
functional
language
visual
language
expressiveness
y
nc
ive
ne
y
ss
nc
eff
icie
ss
int
u
p re
icie
eff
itio
n
ex
dataflow
networks
Figure 1.2. The arguments, summarised
advocated in functional programming texts as a means of obtaining \ecient" realisation
of programs from \inecient" (but still executable) specications . In the context
of dataow networks, it oers a means of performing provably-correct alterations to the
structure of a network (section 5.5). Since individual modules within the network are often
interpreted as units of parallelism (section 2.1.6), the eect is to alter and control the degree
and type of parallelism exhibited by a network.
Figure 1.2 summarises the preceding arguments in terms of the three dimensions of the
new programming framework: the dataow network model provides visual and functional
programming with an ecient execution mechanism; the visual language adds \intuition"
to functional and dataow programming; and the functional language adds expressiveness
to visual and dataow programming. The result is a powerful framework within which to
program and reason about dataow network programs.
1.3 Overview of the thesis
This thesis covers a broad range of topics. To help explain the material covered and its
inter-relationships, gure 1.3 shows dependencies between the main topics. The following
outline proceeds chapter-by-chapter.
Chapter 2, Background Material , provides background material and surveys relevant
to following chapters. Topics covered are models of parallel computation, functional programming, evaluation mechanisms for functional languages, and real-time programs. These
sections include much of the basic background material needed for the remaining chapters,
although further reviews are given in each chapter.
CHAPTER 1. INTRODUCTION
7
4
2.2
Functional programming
5
Static networks
2.3
Evaluation mechanisms
3.1
Process networks
Strict dataflow
3.2
6
Dynamic networks
Non-strict dataflow
3.3
Figure 1.3. An overview of thesis topics
Chapter 3, Dataow Process Networks , presents a formalisation of dataow actors and
processes. This work builds on seminal work by Kahn on process networks , and on
more recent work by Lee , to whom the term \dataow process network" is due. The
emphasis is on modelling and describing dataow actors, rather than on the practical issues
associated with implementation of dataow programming environments. The formalisation
leads to some new insights into the nature of dataow actors. These dataow actors are
\strict," because they consume all needed input tokens before producing output tokens.
The nal section of this chapter introduces non-strict actors, which I call phased actors.
This idea is quite novel and is still under development.
Chapter 4, Visual Haskell , formally describes Visual Haskell. Its syntax is given by a
translation from Haskell's abstract syntax directly into a concrete visual syntax. The visual
grammar uses some novel techniques to handle dierences in the \style" of textual and visual
syntaxes. A visual syntax for most of Haskell's expression and denition syntax is given;
a notable omission is syntax for type and type class declarations. The nal section of this
chapter shows that the way I have specied visual syntax is far from perfect: much greater
exibility is needed to support more complex and varied forms of visual representation.
Chapter 5, Static Process Networks , builds on the previous two: dataow processes are
programmed in Haskell, and these programs illustrated in Visual Haskell. Firstly the relationship between Haskell functions and dataow actors is made explicit. The remainder
of the chapter demonstrates how Haskell's features increase the expressiveness of dataow
network programs: how higher-order functions can be used as a concise and powerful means
of constructing and combining dataow networks; and how program transformation techniques can be adapted to improve eciency, or to tailor a program to a particular physical
network.
CHAPTER 1. INTRODUCTION
8
Chapter 6, Dynamic Process Networks , takes a dierent approach: instead of writing functional programs to t into the dataow mold, I use this chapter to write Haskell
programs in ways that may give insight into extending and improving the dataow actor/process model. The key issue tackled here is that of representing time in dataow
networks. A secondary issue is that of dynamic networks: networks that change with time.
In Haskell, we can represent evolving networks, but substantially more work is needed to
nd a way of translating this type of program into dataow networks|not least because
there has been very little work done on formal characterisations of evolving dataow networks. There are two dependencies to this chapter shown as dotted lines in gure 1.3; these
are areas for future work.
Finally, chapter 7, Summary , summarises the work of this thesis, and lists key contributions. As I have already indicated, there is enormous scope for further work, and I outline
those areas I consider most promising for future research.
1.4 Previously published work
Some of the material in this thesis has previously been published in technical reports or
conference papers. I have not included all of this material in this thesis; the reader interested
in particular portions of elided work is directed to the electronic copies referenced in the
bibliography, or to the list of papers at the address
http://www.ee.uts.edu.au/~johnr/papers
Towards Eective Programming for Parallel Digital Signal Processing  contains
many of the key ingredients of this thesis. This report proposed that a functional programming language would be a good choice for programming block-diagram systems, and
illustrated programs written using vectors and streams with an early version of the visual
language of this thesis. It identied the usefulness of program transformation for parallel
programming, and pipelined the FFT (Fast Fourier Transform) to illustrate.
Integrating Block-Diagram and Textual Programming for Parallel DSP  is essentially
a brief summary of the above report, although it focuses more on the notion of the \twoview" development system.
Transforming Process Networks  continues the program transformation theme by
pipelining an FIR (nite-impulse-response) lter. The transformation proceeds by fusing
CHAPTER 1. INTRODUCTION
9
vector iterators (section 5.2.2) to form a single process, and then by using pipelining and
promotion (sections 5.5.4 and 5.5.5) to produce a pipeline with controllable grain size. I
suggested in the paper that less dicult means of nding program transformations will be
required if program transformation is to become useful to programmers. I have not yet
found this means, so have decided against reproducing the paper's key example here.
Process Network Transformation  is a condensed version of the above paper, but
using a visual notation much closer to the current Visual Haskell. It identies three classes
of process network transformation|this has since become four (section 5.5).
Real-time DSP in C and Assembler  is a set of course notes on the TMS320C30 DSP,
which may be of interest to the reader seeking an accessible introduction to the features of
modern DSP devices.
Generating Ecient Loop Code for Programmable DSPs  is somewhat of a leap from
the earlier papers, as it describes work aimed at compiling vector functions into ecient
code for DSPs. It proposes an abstract DSP machine as a vehicle for DSP compilation,
and describes the essential part of a code generation algorithm designed to exploit the high
degree of instruction-level parallelism of DSPs. None of this work is included in this thesis.
The Host-Engine Software Architecture for Parallel Digital Signal Processing  is,
again, totally unrelated to earlier papers: it describes a software architecture called SPOOK
(Signal Processing Object-Oriented Kernel) that could best be described as an API-level
(Application Programmer Interface) implementation of a dataow engine for parallel DSP
machines. The paper is a combination of architecture description and experience based
on two implementations of the architecture: the rst written by me for the TMS320C30
processor; the second largely by Matthias Meyer for the TMS320C40. The TMS320C40
implementation was in progress when the paper was written; for a detailed description of
the nal implementation see Meyer's report . Again, I have decided against including
this material in the thesis, as I feel it is tangential to its main theme.
timed streams. Two approaches are used: hiatons, which mark \empty" slots, and timestamps, which mark the times of occurrence of tokens. Chapter 6 of this thesis is a complete
revision of this paper; in particular, a new form of timed stream is developed, and the music
synthesiser example is extended.
CHAPTER 1. INTRODUCTION
10
Visual Haskell: A First Attempt  is the only paper I have written devoted to
explaining Visual Haskell, the nal form of the visual language developed and rened over
the last few years. Chapter 4 is a revised version of the core of this paper. The visual
language is slightly improved, but the way in which the visual syntax is specied is very
dierent, and I think simpler and more elegant. The original paper also contains motivating
examples of possible uses of Visual Haskell, and a screen dump of the prototype Visual
Haskell editor written by Ken Dawson .
Chapter 2
Background Material
Because this thesis covers quite a broad range of topics, I have collected into this chapter
some useful background material. Firstly, I give a broad overview of models of parallel
computation in terms of a simple \meta-model" of computation. Although parallel programming plays only a minor role in this thesis, one of the motivations for the pipeline
dataow model has always been to harness parallelism, and I think it important to place
this model into context with other approaches to parallelism.
The next section is an introduction to functional programming with Haskell. Following
that is a section on evaluation mechanisms for functional languages. Again, this serves
to place work presented in later chapters into context; in particular, translating a functional program into a dataow process network is similar to existing approaches to parallel
evaluation of functional programs.
The context for this whole thesis is real-time signal processing, so section 2.4 explains
some key concepts of real-time programming and of programmable DSP devices. This
section is based largely on my own experience with real-time programs.
2.1 Models of parallelism
The pipeline dataow model is inherently suited for parallel execution. It is, however, only
one of several key models of parallelism, and it is important to place it into context. This
section reviews key models of parallelism; they are shown as a hierarchy in gure 2.1.
11
CHAPTER 2. BACKGROUND MATERIAL
12
Language-level parallelism
Implicit parallelism
Explicit parallelism
Data parallelism
Functional parallelism
Control parallelism
Linda
Pipeline parallelism
Figure 2.1. A hierarchy of parallelism
2.1.1 A \meta-model" of parallelism
Carriero and Gelernter suggest three \paradigms" of parallelism :
Result parallelism Result parallelism focuses on the structure of the solution. Parallelism
arises by simultaneous production of components of the result.
Specialist parallelism Specialist parallelism focuses on the kind of knowledge needed to
produce a solution. Parallelism arises because many \specialists," each encapsulating a
particular kind of knowledge, work simultaneously.
Agenda parallelism Agenda parallelism focuses on the steps to be taken to arrive at a
solution. Parallelism arises by taking many (non-sequential) steps simultaneously.
To translate problems exhibiting these three types of parallelism into operating computer programs in Linda (see section 2.1.5), Carriero and Gelernter oer three corresponding
program structures: live data structures, message passing, and distributed data structures
respectively. These structures are distinguished by the relationship between processes and
data . In a live data structure program, parallelism is structured around the data: an
implicitly-dened process within each datum computes its value. A message-passing program, in contrast, consists of a collection of separate processes, each containing its own
private data, and communicating via messages. A distributed data structure program does
not have such a tight binding between a process and corresponding data; instead, many
processes can share data.
Suppose now that we separate the knowledge of how to perform a computation, from
the thing that performs the computation. These entities I call a script and an agent
CHAPTER 2. BACKGROUND MATERIAL
13
(b)
(a)
(c)
Figure 2.2. Carriero and Gelernter's models of parallelism: a) result parallelism; b) specialist parallelism; c) agenda parallelism
respectively|note that process = script + agent . This agent-script-data model serves as
a meta-model for describing dierent models of parallelism. Figure 2.2 shows Carriero and
Gelernter's three program structures, modied to show agents, scripts, and data|agents
are grey ellipses or rounded rectangles; scripts are the curly glyphs that resemble curled
sheets of paper; data are white squares. Figure 2.2a is the live data structure program:
each agent has its own script, which it uses to produce the data enclosing it. Figure 2.2b
is the message-passing program: again, each agent has its own script; agents contain their
own private data and send data to other processes in messages, shown as white ellipses.
Figure 2.2c is the distributed data structure program: unlike the other two, this program
has only a single script (the \agenda"): all agents read the same script, each performing
any available task and operating on shared data.
2.1.2 Implicit parallelism
Implicit parallelism is associated with program expressions with no data- or time-dependence
between them. For example, in the expression
x = a * b + a * c
CHAPTER 2. BACKGROUND MATERIAL
14
the two multiplications can be performed in parallel. Greater parallelism is available in
loops, if dierent iterations of the loop can be performed in parallel. For example, in
for i = 1 to N do
x[i] = y[i] * k;
all iterations can be performed in parallel. Parallelising compilers for conventional sequential
languages analyse programs to nd this kind of opportunity for parallel execution. The
advantage of implicit parallelism is that (in theory, at least) the programmer need not be
concerned with programming for a parallel machine, because the compiler will nd and
exploit available parallelism.
Implicit parallelism is less a characteristic of a programming language as it is of the compiler and run-time architecture. Still, side-eect-free languages are likely to contain more implicit parallelism than imperative languages because they lack articial time-dependencies.
Two examples of languages and architectures that support implicit parallelism are dataow
languages and architectures [1, 7] and multi-processor graph reduction of pure functional
programs . In both cases, the languages are side-eect free. However, Gajski et al point
out that parallelising compilers can in fact perform better than single-assignment languages
.
Implicit parallelism is also a key ingredient of modern single-processor compilers. Modern processors (including DSP micro-processors) exhibit signicant instruction-level parallelism, which compilers must attempt to exploit.
2.1.3 Data parallelism
Data parallelism is parallelism at the level of elements of a data set. Most of the work
on parallel computing for \scientic" applications uses data parallelism. Sipelstein and
Blelloch call data-parallel languages \collection-oriented." In , they survey this class
of languages and the ways in which they support data-parallel computation.
In a data-parallel language, an operation over all elements of a data set is invoked by a
single function call or language construct. In the DataParallel C language , for example,
one would calculate the inner product of two vectors by:
domain vpair { float x; float y; float t; } v[N];
float ip;
CHAPTER 2. BACKGROUND MATERIAL
15
...
[domain vpair].{
t = x * y;
ip += t;
}
v contains N triples, each located on a dierent processor. x, y , and t thus have instances
on each processor. ip refers to a single variable located on the system host processor.
Execution of the code body rst causes each instance of t to be updated with the product
of the corresponding instances of x and y . Then all instances of t are summed and the
result placed into ip.
Figure 2.3a illustrates data-parallelism using the agent-script-data meta-model. All
agents read from the same script, and read each others' data when they need it. The
greatest advantage of data-parallelism is its descriptive simplicity : the programmer
can easily control many thousands of processes because there is only one \thread of control"
to manipulate.
Data parallelism is often associated with SIMD machines, while functional parallelism
is often associated with MIMD machines. Although this is often the case, it is important
not to associate a language model with the physical hardware on which a program might
run, since the connection between a language-level model of parallelism and its supposed
\obvious" implementation platform is rather tenuous. For example, Hatcher and Quinn 
describe a data-parallel language compiler for MIMD machines, while Sabot  describes
how an SIMD computer could be used to simulate an MIMD computer.
2.1.4 Control parallelism
Control parallelism is a form of functional parallelism characterised mainly by explicit communication (\message-passing") and synchronisation between processes. In eect, the programmer writes many separate programs; embedded within each program are commands
for communication and synchronisation with other programs.
An example of a control-parallel language implementation for distributed-memory DSP
machines is Parallel C , based very loosely on Hoare's CSP (Communicating Sequential
Processes) formalism . The programmer writes a number of tasks|that is, independent
C programs. A conguration le species the processor topology and the communications
CHAPTER 2. BACKGROUND MATERIAL
16
(b)
(a)
(c)
(d)
Figure 2.3. More models of parallelism: a) data parallelism; b) shared-memory control
parallelism; c) Linda; d) pipeline parallelism
links between them, and assigns tasks to processors. Messages are exchanged by calling a
message-passing library. For example, a sending task would contain code like this:
sometype message;
chan_out_message( sizeof(sometype), &message, outs );
A receiving task would contain code like this:
chan_in_message( sizeof(sometype), &message, ins );
Control parallelism is low-level|that is, the programmer interface is essentially that of
the operations that can be performed directly by a target machine: transmission of messages
between processors (distributed-memory machines), or synchronisation of memory accesses
(shared-memory machines). It is criticised as being low-level and error-prone because the
programmer must explicitly manage communication and synchronisation, and keep track
of the internal states of many processors . Although control-parallel programs are often
machine-specic, there are some projects, such as PVM , which use a virtual machine
abstraction to achieve architecture-independence.
There is no single agent-script-data model for control-parallel programs. On machines
that support message-passing, the message-passing model of gure 2.2b is appropriate. On
CHAPTER 2. BACKGROUND MATERIAL
17
machines with shared memory, the model of gure 2.3b is more suitable; in this model, each
agent has its own script, but all processes can access shared data.
It is important to distinguish between control parallelism (as I have characterised it here)
and higher-level forms of functional parallelism. Proponents of the implicit or data-parallel
language styles sometimes forget that there are other approaches to functional parallelism
that provide better support for managing parallelism.
2.1.5 The Linda model
Linda  is a simple, elegant, architecture-independent model for MIMD computation. The
basis of the Linda model is a global associative memory, or \tuple space." A task adds a
tuple to tuple space by executing an out instruction:
out( "something", 14, 3.1415 );
A task can remove a tuple from tuple space by executing an in instruction:
in( "something", t, ?x );
The arguments to in, called an \anti-tuple," are a template for matching against tuples
in tuple space. In this case, if the value of t is 14, then the tuple (\something", 14, 3.1415)
is removed from tuple space, and the variable x in the reading task has the value 3.1415
assigned to it. If the anti-tuple matches no existing tuple, the reading task is suspended
until a matching tuple becomes available.
A task can create new tasks with the exec instruction. For example, the statement
creates a \live tuple," which actively evaluates all of its elds. In this case, only the
third eld requires evaluation, so a new task is created to evaluate ping(). When the task
terminates, the tuple turns back into a \data tuple," replacing the third element of the
tuple with the value returned by ping.
Linda also has a rd instruction, which matches and reads a tuple but does not remove
it from tuple space, and predicate versions of in and rd, called inp and rdp. inp and rdp
behave as in and rd if they nd a matching tuple, and return the value 1. If they fail to
nd a match immediately, they do not suspend the reading task, but return with the value
0.
CHAPTER 2. BACKGROUND MATERIAL
18
Figure 2.3c is an approximate agent-script-data model of Linda. Each agent has an \slot"
for a script: the agent takes a script out of tuple space and performs it; this corresponds
to an eval operation. Once an agent has a script, it can read, remove, or add tuples. Note
that, unlike the shared-memory model of gure 2.3b, an agent cannot modify a tuple in
tuple space, other than by removing it and putting a new tuple into tuple space. (This
is not shown in the diagram.) Linda thus avoids many of the synchronisation problems
associated with conventional shared-memory models.
2.1.6 Pipeline parallelism
The functional programs in this thesis are based on the pipeline-parallel model, in which processes communicate only through FIFO-buered channels. Programs written in this model
do not contain explicit communication instructions, but implicitly specify communication
by their construction. For example, the Haskell expression
mapS abs . scanS (+) 0
constructs a pipeline of two processes. The rst computes the running sum of its input
stream; the second calculates the absolute value of each element in its input stream. Communication between the processes is implicit in the fact that the result of the rst is the
argument to the second.
Pipeline parallelism is arguably just a special kind of message-passing control parallelism.
I think the dierences to general control-parallel programs are sucient to make it a model of
its own: processes can only send messages through channels, thus de-coupling senders from
receivers; processes are not separate programs, but are just expressions in the program text;
and communication between processes is buered, providing further de-coupling between
sender and receiver processes. This kind of parallelism is therefore the functionally-parallel
counterpart to data parallelism|it focuses on the essential aspects of parallelism without
excessive concern for low-level detail.
Figure 2.3d shows the pipeline-parallel model; this gure is the same as the messagepassing program of gure 2.2b, but explicitly shows the FIFO-buered channels.
Pipeline parallelism also includes certain \dataow" programming languages. Lucid
 is a (rst-order) pipeline-parallel language. In Lucid, the two-process pipeline above
could be written
CHAPTER 2. BACKGROUND MATERIAL
19
absolutes(runner(x))
where
runner(x)
= runner where
runner = 0 fby (x + runner)
end;
absolutes(x) = abs(x);
end;
In Lucid, all primitive operations are extended point-wise over streams; thus, the +
operator sums corresponding elements of two streams. The fby operator produces a stream
containing the rst element of its left argument, followed by its right argument. So, if x =
[1; 2; 3; 4], then runner produces zero followed by itself summed with x|that is, [0; 1; 3; 6; 10].
The dataow process network model  is lower-level, since communication is explicit.
A process is formed by repeatedly ring an \actor"; a complete program consists of a
network of actors. Dataow process networks are examined in chapter 3.
2.2 Functional programming in ve minutes
Functional programming languages are \higher-level" than more conventional imperative
languages. There have been many persuasive arguments advanced for functional programming languages in general , and lazy functional languages in particular [64, 139, 62].
A recent study indicates that at least some of the claimed advantages of functional
languages|brevity, rapidity of development, and ease of understanding|can be conrmed
. The study compares several languages, including C++ and Ada, in a substantial rapid
prototyping exercise. Several metrics were used to compare the solutions given; the Haskell
solution was one of the highest-rated.
This section introduces functional programming using Haskell. Haskell is quite a large
language, and so I have omitted several of its more complex features: separate modules and
data-hiding, array syntax, list comprehensions, and user-dened operators.
Haskell has a library of types and functions contained in its \standard prelude." The
standard prelude is a library of code modules that Haskell implementations are expected to
support; because of their importance, a compiler is allowed to \understand" the contents of
these modules in order to generate more ecient code. I give a cursory overview of standard
CHAPTER 2. BACKGROUND MATERIAL
20
prelude functions and types.
In later chapters, I will sometimes use a \typeset" version of Haskell for improved
readability. The dierences to standard Haskell are: the use of Greek characters as type
variables; x : e instead of \x -> e; ! and ) instead of -> and => in type declarations;
and a slanted Roman typeface instead of a constant-width typeface.
2.2.1 Objects and functions
Haskell's standard prelude denes a number of types, operators, and functions. Here are
some simple constants with their types, where the notation \::" means \has type":
7
:: Int
3.1415
:: Float
True
:: Bool
'z'
:: Char
More complex types are also dened in the prelude; these include rational and complex
numbers, arbitrary-precision integers, lists, and tuples. Complex and rational numbers are
built with the :+ and :/ data constructors respectively. For example:
1.0 :+ 2.7
:: Complex Float
4 :/ 7
:: Rational Int
Operators dened in the standard prelude include the arithmetic operators +, *, -,
and negate (unary negation), the relational operators >, >=, <, <=, ==,, and /=, and the
logical connectives && and ||. All of these operators are overloaded on appropriate types.
Division (/) is dened for rational and oating-point numbers; integer types have integer
division (div) and modulus (mod) functions. Other functions on numeric types include
transcendental operations such as sin and exp, and operations specic to complex numbers,
such as magnitude and phase.
Tuples contain a xed number of elds of possibly dierent types; elds are separated
by commas. For example:
(1,'a',6.666)
:: (Int, Char, Float)
Two useful functions on tuples are fst, which selects the rst element of a pair, and snd,
which selects the second.
CHAPTER 2. BACKGROUND MATERIAL
21
Lists contain zero or more elements of the same type. The empty list is denoted \[]";
the list constructor \:" joins an element onto the front of a list; the syntax [a,b,c] is
short-hand for (a:b:c:[]). Here are some examples of lists:
4:7:xs
:: [Int]
['a','b','c']
:: [Char]
"thang"
:: [Char]
The standard prelude contains many functions on lists. Two simple ones are head,
which returns the rst element of a list, and tail, which returns all elements of a list but
the rst. Others include: reverse, which reverses a list; length, which returns the number
of elements in a list; take, which returns a given number of elements from the front of a
list; last, which returns the last element of a list; concat, which joins a list of lists into a
single list; (++), which appends two lists together; and repeat, which repeats its argument
forever: repeat x ! [x; x; x; : : :].
Operators are usually written in inx position, as in x + y. An operator can be written
in prex position by enclosing it in parentheses, as in (+) x y. A binary function can be
written in inx position by enclosing it in back-quotes, as in x div y.
Function application is denoted by juxtaposition, as in sin x, instead of the more usual
sin(x). Parentheses are used to disambiguate when necessary; for example, we could take
the second element of a list xs with the expression
Function application binds tighter than any other operator, so sin
(sin x) + 1.
x + 1
is the same as
2.2.2 Bindings
A \binding" is the association of an identier with a value. Consider simple pattern bindings
rst, in which a variable name is bound to an expression. Here are some examples:
pi :: Double
pi = 3.14159265358979
twopi :: Double
twopi = 2 * pi
CHAPTER 2. BACKGROUND MATERIAL
22
A function binding associates an identier with a function. For example, here is the
denition of the factorial function:
fact :: Int -> Int
fact n = if n == 0 then 1 else n * fact (n-1)
The rst line says that fact is a function, which has one integer argument and produces
an integer result. The if-then-else construct is an expression , not a control-ow construct
as in imperative languages|that is, it returns a value.
Function and pattern bindings can have guards , which select from a number of alternative expressions. For example, fact could also be dened like this:
fact :: Int -> Int
fact n | n == 0
= 1
| otherwise = n * fact (n - 1)
Here, the \|" indicates the start of an alternative; it is followed by a predicate, then =,
then the selected expression. The otherwise guard is always true. Guards are tested from
top to bottom.
Bindings can contain local bindings, introduced by the where keyword. For example,
the buttery function used in section 5.2.5 has a local binding for t:
butterfly :: Num a => Complex a -> (Complex a, Complex a)
-> (Complex a, Complex a)
butterfly w (x0,x1) = (x0 + t, x0 - t)
where
t = w * x1
2.2.3 Patterns
A pattern is formed when a data constructor appears on the left-hand side of a binding.
The result of evaluating the right-hand side is bound to the corresponding identiers in the
pattern. For example, the binding
(x:xs) = [1,2,3,4]
will cause the integer 1 to be bound to x, and the list [2; 3; 4] to be bound to xs. Patterns
can be nested arbitrarily, as in
CHAPTER 2. BACKGROUND MATERIAL
23
((x,y) : z : zs) = ...
Arguments to function bindings are often patterns; in this case, they also serve to select
one of possibly multiple clauses of a function denition. Patterns in this position can also
be constants. To illustrate, consider the Haskell denition of map, which applies a given
function to each element of a list:
map :: (a -> b) -> [a] -> [b]
map f []
= []
map f (x:xs) = f x : map f xs
Here, the rst clause will match its list argument only if it is a null list; otherwise, the
second clause will match, with the head of the list bound to x and the tail (possibly null)
bound to xs.
Patterns can also be a wild-card, written \ ", which matches anything. map, for example, would more usually be dened using wild-cards:
map :: (a -> b) -> [a] -> [b]
map f (x:xs) = f x : map f xs
map _ _
= []
2.2.4 Currying and higher-order functions
map is an example of a higher-order function , or HOF. A higher-order function takes a
function argument or produces a function result. In the case of map, the rst argument is
a function, as indicated by its type, a -> b. Higher-order functions are one of the more
powerful features of functional programming languages, as they can be used to capture
patterns of computation. map, for example, captures \for-all" style iteration across a list.
Other functions capture various the \do-across" styles of iteration. foldl, for example,
applies its function argument to a list element and the result of the previous application:
foldl (+) 0 [1,2,3] produces 6. scanl is similar, but produces a list containing all partial
results. For example, scanl (+) 0 [1,2,3] produces [0,1,3,6]. These functions are
dened as follows:
foldl
foldl f z []
:: (a -> b -> a) -> a -> [b] -> a
= z
CHAPTER 2. BACKGROUND MATERIAL
foldl f z (x:xs)
scanl
24
= foldl f (f z x) xs
:: (a -> b -> a) -> a -> [b] -> [a]
scanl f z []
= [z]
scanl f z (x:xs)
= z : scanl f (f z x) xs
One of the most useful higher-order functions is function composition, written as the
inx operator \." and dened by (f : g ) x = f (g x). A particularly common use is to
construct a \pipeline" of functions, as in f : g : h.
Because Haskell is based on the lambda-calculus, higher-order functions arise naturally
when we dene functions of more than one argument. For example, consider a function
add :: Int -> Int -> Int
add x y = x + y
Because \->" associates from right to left, the type of add is really Int -> (Int -> Int);
add thus takes a single integer argument and produces a function from integers to integers.
For example, the expression (add 3) is a function that adds three to its argument.
Functions of this type are called curried , after the mathematician Haskell Curry. In
practice, we refer to a function such as add as a function of two arguments, and to application
to less than its full number of arguments as partial application . For comparison, an uncurried
version of add could be written:
add0 :: (Int, Int) -> Int
add0 (x,y) = x + y
2.2.5 let, lambda, and case
A let-expression delimits a new scope within which local bindings can be declared. To
illustrate, buttery can be dened using a let-expression:
butterfly w (x0,x1) = let t = w * x1
in
(x0 + t, x0 - t)
Because let-expressions are expressions, they can appear anywhere an expression can
appear, whereas where can appear only in a binding.
CHAPTER 2. BACKGROUND MATERIAL
25
A lambda-abstraction, or -abstraction, is like an anonymous function. For example,
we could dene buttery as
butterfly = \w (x0,x1) -> let t = w * x1
in
(x0 + t, x0 - t)
The backslash is Haskell's syntax for a lambda-abstraction, and mimics the Greek ;
patterns following the backslash are arguments; the expression following \->" is the value
returned by the -abstraction when applied to arguments.
Note that where cannot be used within a -abstraction; nor can guards. Functions
dened with guards and multiple-clause denitions can be translated into a -abstraction
with the aid of Haskell's case construct, which selects one of several expressions based on
pattern matching. For example, map can be dened as the following -abstraction:
map = \f xs -> case xs of
[]
-> []
y:ys -> f y : map f ys
2.2.6 Polymorphism and type classes
One of the key innovations of Haskell is its type classes , which add ad-hoc polymorphism to
the Hindley-Milner type system . A type class is a way of grouping types together with
functions that operate on those types. Given in the class declaration are the types of the
functions of that class, and (optionally) default denitions of some functions. For example,
the standard Eq class, which groups types that support an equality test, is dened as
class Eq a where
(==), (/=) :: a -> a -> Bool
x /= y
= not (x == y)
Each type that can support the equality test \instantiates" from the Eq class. For
example, the integer type Int instantiates Eq with:
instance Eq Int
where (==) = primEqInt
where primEqInt is a primitive function that generates a call to the underlying run-time
system. Another example, the Eq instance for pairs:
CHAPTER 2. BACKGROUND MATERIAL
26
instance (Eq a, Eq b) => Eq (a,b) where
(x,y) == (u,v)
=
x==u && y==v
The type constraint (Eq a, Eq b) states that the elements of the pair must also be comparable for equality. Type constraints also appear in function denitions. For example, the
type of the absolute function indicates that the type of the argument and result are numeric
and ordered:
abs
:: (Num a, Ord a) => a -> a
abs x | x >= 0
= x
| otherwise = -x
Classes \inherit" from each other to form a hierarchy. For example, the class of ordered
types Ord inherits from the class of equable types Eq:
class Eq a => Ord a where
(<), (<=), (>), (>=) :: a -> a -> Bool
...
The standard prelude implements a full hierarchy of primitive and numeric types|see
 for details.
2.3 Evaluation mechanisms
Implementations of lazy functional languages are often based on graph reduction . This
section briey reviews graph reduction and other topics related to evaluation of functional
programs. The aim here is to place into context the suggested implementation (in chapter 5)
of stream functions as dataow actors. A recent survey of issues in parallel functional
programming is given by Hammond .
2.3.1 Graph reduction
Evaluation of a functional program proceeds by successively reducing expressions. The
evaluator chooses a redex (for red ucible ex pression), reduces it, and then repeats. An
expression that contains no redexes is in normal form . A -reduction, written ! , is
performed when a -abstraction is applied to an argument; the application is reduced by
CHAPTER 2. BACKGROUND MATERIAL
27
substituting the body of the -abstraction and replacing the formal by the actual. A
-reduction, written ! , is performed when a primitive function is applied to all of its
arguments; the arguments are reduced and then the appropriate operation performed.
There are two key reduction policies. In normal-order reduction , the evaluator chooses
an outer-most redex. For example,
(x : fst x + fst x) (2 4; 6 7) ! fst (2 4; 6 7) + fst (2 4; 6 7)
! 2 4 + fst (2 4; 6 7)
! 2 4 + 2 4
! 8 + 2 4
! 8 + 8
! 16
where fst (x; y ) = x. In applicative-order reduction , the evaluator chooses an inner-most
redex. For example,
(x : fst x + fst x) (2 4; 6 7) ! (x : fst x + fst x) (8; 6 7)
! (x : fst x + fst x) (8; 42)
! fst (8; 42) + fst (8; 42)
! 8 + fst (8; 42)
! 8 + 8
! 16
Operationally, normal-order reduction applies the body of a function to its arguments
before any argument is evaluated, while applicative-order reduction evaluates the arguments
rst. So, normal-order reduction does not evaluate an expression unless its value is needed,
as can be seen from the example above: the expression (67) is never evaluated. Applicativeorder reduction, in contrast, evaluates all argument expressions, regardless of whether their
values are needed.
The two Church-Rosser theorems are fundamental to considerations of reduction order
(see [105, pp. 24{25]). Informally, the rst says that any two reduction sequences will end
CHAPTER 2. BACKGROUND MATERIAL
28
at the same normal form provided that they both terminate. This is of great interest, as
it allows the freedom to not only change the reduction order, but to perform reductions in
parallel. The second theorem says that normal-order reduction will always terminate if a
normal form exists. This is a powerful motivation for choosing normal-order reduction as
the evaluation mechanism for a programming language.
Lazy functional languages use normal-order reduction; however, the reducer only reduces
until there are no more top-level redexes. This is called weak head-normal form , or WHNF;
any term in normal form is also in WHNF. Data structures are thus evaluated to the top
level only|they may still contain unevaluated expressions. For example, e = (e1 : e2 ) is in
WHNF, regardless of what form e1 and e2 are in, but e is in normal form if and only if both
e1 and e2 are in normal form. (+(3 4)) is in WHNF, since there are insucient arguments
to (+) and it is therefore not a redex.
In the example of normal-order reduction given above, the expression 2 4 was evaluated
twice. To avoid this, functional languages use graphs to share expressions. At each reduction
step, the reducer locates the left-most top-level redex, reduces it, and overwrites the redex
with its result. If the redex is an application of a -abstraction, the reducer instantiates
(makes a copy of) the body of the -abstraction with pointers to the argument expressions
substituted for the formals. If the redex is an application of a primitive function, the reducer
reduces any strict arguments, and then calls the run-time system to perform the appropriate
operation.
2.3.2 Strictness
A function f is said to be strict i
f ?=?
That is, the result of applying f is undened if its argument is undened. Here, ? denotes an undened value|we could also say that ? represents a term that has no WHNF.
Operationally, we take this to mean that f always \needs" its argument; as a result, evaluating the argument of a strict function to WHNF before applying the function will not
aect the result. This can be generalised to functions of several arguments; for example, g
is strict in its second argument if g x ? y = ?.
Strictness does not imply that an argument can be evaluated further than WHNF
without endangering termination. Let denote a term without a normal form, just as ?
CHAPTER 2. BACKGROUND MATERIAL
29
denotes a term without WHNF. A function f is hyper-strict i
f =?
That is, the result of applying f is necessarily undened if its argument has no normal
form. This is also called \exhaustive demand" , as opposed to the \simple demand" of
evaluation only to WHNF. As a simple example of the dierence between strictness and
hyper-strictness, consider
f (x; y ) = if x > 0 then x else x + y
g (x; y) = x + y
f is strict but not hyper-strict; g, however, is hyper-strict. That is, an argument with no
normal form, say (7; ?), does not necessarily cause the result of applying f to be undened,
while it does necessarily cause the result of applying g to be undened.
2.3.3 Parallel graph reduction
A program graph typically contains, at any given moment, many redexes. Parallel evaluation of a graph can therefore be achieved by having many processors evaluate these redexes
simultaneously. Peyton Jones  describes the issues in parallel graph reduction on a
shared-memory machine.
There are three choices when performing parallel graph reduction: i) evaluate redexes in
parallel only when it cannot alter termination properties; ii) evaluate redexes in parallel even
though it may alter termination properties; or iii) allow the programmer to choose when to
perform parallel reduction. The rst choice|conservative parallelism|requires strictness
analysis: any function that is strict in one or more arguments can have the arguments
evaluated in parallel with the function body. For example, an application such as
e1 + e2
can have e1 and e2 evaluated in parallel, then the addition performed. (In this case, of
course, there is no point in evaluating the function body in parallel.)
The second choice is speculative evaluation. In speculative evaluation, an expression
CHAPTER 2. BACKGROUND MATERIAL
such as
30
if e1 then e2 else e3
can have e1 , e2 , and e3 evaluated in parallel. One of e2 or e3 will be discarded as soon as
the value of e1 is known.
The third-choice is programmer-controlled parallelism. This can be in the form of annotations , or in the form of primitive combinators. Roe , for example, points out
diculties with conservative parallel graph reduction, and suggests two new combinators,
par and seq:
par :: ! ! par x y = y
seq :: 8 ! ! < y if x 6= ?
seq x y = :
? if x = ?
par e1 e2 creates a new task to evaluate e1 and returns e2 . If evaluation of e1 fails to
terminate, then e2 may or may not terminate. seq e1 e2 evaluates e1 to WHNF and then
returns e2 . Roe gives a wide range of examples and algorithms illustrating how these two
combinators can be used to control parallel reduction of a program graph.
2.3.4 Parallel data structures
One of the problems associated with using a pure functional language for parallel programming is the sequential nature of lists. Even if an algorithm has a high degree of intrinsic
parallelism, the algorithm as expressed in a functional language may in fact obscure this
parallelism, simply because the list data structure can only be accessed sequentially.
If data structures and functions that allow parallel evaluation of multiple elements of the
structure can be identied, the compiler can more easily identify parallelism. In addition,
the programmer is more likely to be better able to understand the behaviour of a parallel
implementation, and thus achieve better performance.
Axford and Joy , for example, propose a set of list primitives that allow parallel
evaluation of list functions, including the following:
CHAPTER 2. BACKGROUND MATERIAL
31
{ [x] is the list containing one element.
{ s ++ t is the concatenation of lists s and t.
{ split s is a pair of lists, with the split point chosen non-deterministically.
Because split is non-deterministic, the implementation is free to implement lists using
any suitable tree structure.
Axford and Joy implement most of the standard Haskell list functions using these primitives; most have a divide-and-conquer recursive implementation. As a result, they have
O(lg n) best-case and O(n) worst-case parallel complexity. map, for example, is implemented as
map f [ ] = [ ]
map f [x] = [f x]
map f (s ++ t) = map f s ++ map f t
Axford and Joy replace the standard foldl and foldr functions with a new function,
reduce, which requires an associative function argument (the obligation is on the programmer to ensure that this is the case). All but three of the 17 Haskell standard prelude
functions that use foldl or foldr meet this criterion.
Maassen proposes a set of three nite data structures|sequences, tables, and sets|and
a range of rst- and higher-order functions dened on them . He gives the complexities
for implementation using lists and AVL trees; the latter has logarithmic complexity for
many of the functions. A range of examples illustrate the utility of his chosen functions
for programming. Roe, in contrast, describes the use of bags (multi-sets) for expressing
parallel computation, and shows how the Bird-Meertens formalism can be applied to parallel
computation using bags .
2.3.5 Functional operating systems
The expression of operating system functionality in a functional language revolves around
the deferred evaluation of streams of messages . In the context of operating systems, a
process is a function from a list of input messages of type to a list of output messages of
CHAPTER 2. BACKGROUND MATERIAL
32
type ; Turner , for example, gives an example of a process:
process :: [] ! [ ]
process = p s0 where
p s (a : x) = out a s ++ p (trans a s) x
where s0 is the initial state of the process, trans :: ! ! is the state transition
function, which produces the next state from an input message and the current state, and
out :: ! ! [ ] produces a list of output messages for each input message. Networks
of processes are formed by applying processes to each other's output messages lists.
Now, because of the corollary to the rst Church-Rosser theorem, a network of processes cannot produce a result that depends on anything other than the values of its input
messages|in particular, the time of arrival of input messages cannot aect the result.
Apparently, an operating system that needs to deal with asynchronous events cannot be
written in such a language!
One approach to resolving this dilemma is to add a non-deterministic merge operator
to the language , which merges two lists in order of the \arrival time" of elements.
Because, however, merge is referentially opaque, reasoning about programs that use it
becomes dicult. Jones and Sinclair  reduce the diculties associated with merge by
restricting its use to \systems programmers." They describe an operating system design and
give examples of access to operating system services such as le editing and disk control. To
ensure that computation proceeds in an operationally useful way, streams are constructed
with head-strict cons |that is, elements are fully evaluated before transmission.
A second approach to non-determinism is Stoye's \sorting oce" . In this scheme,
every output message contains an address of a destination process; the sorting oce receives
all of these messages and routes each one to the addressed process. Non-determinism
is thus contained in one place only|the sorting oce|simplifying reasoning about the
system and eliminating any need for awkward extensions to the language. New processes
can be created by sending a message to the distinguished process-creation process. Turner
 develops Stoye's model, adding \wrappers" to messages to allow type checking, and
using synchronous (unbuered) communication instead of asynchronous communication.
Similarly to Jones and Sinclair, wrapper functions are hyper-strict. Apart from eliminating
the need for global garbage collection, this allows the operating system to be executed on
CHAPTER 2. BACKGROUND MATERIAL
33
a loosely-coupled network of processors.
Wallace and Runciman use constructor classes  to express type-safe communication
between processes . In their scheme, the message type itself serves as the message
address. Wallace has implemented an operating system for embedded systems in Gofer;
unlike the other systems reviewed here, the stream constructor is not hyper-strict in its
ingredient in making evaluation of functional programs predictable enough to meet real-time
scheduling constraints.
2.3.6 Functional process networks
Kelly proposed that list-manipulating functions be treated as processes to be mapped onto
processors of a distributed-memory MIMD machine . In his Caliban language, programs
are written in a pure functional language using standard list functions such as map and lter.
An additional language construct, moreover, contains declarations that specify which lists
represent communications channels between processes. For example, the expression
f (g xs)
where
f = map abs
g = scanl (+) 0
moreover
arc 2f 2g
is a two-processor pipeline. The 2 operator converts a function into a process: this indicates
that the argument and result lists of the function so indicated are communications channels
rather than conventional lazy lists. The arc function species a connection between two
processes.
The power of the host language can be used to dene more abstract network-forming
operations. For example, the pipeline combinator builds a pipeline of processes. In the
following, chain has been dened to insert arc between processes in a list (fs):
pipeline :: ( ! ) ! ! CHAPTER 2. BACKGROUND MATERIAL
34
pipeline fs xs = ys
where
ys = (foldl () id fs) xs
moreover
chain arc (map (2) fs)
^ arc 2(last fs) xs
^ arc 2(hd fs) ys
Using pipeline, the above network can be written
pipeline [map abs; scanl (+) 0] xs
(2.1)
The current implementation of Caliban requires that the process network be static. At
compile-time, all moreover annotations are expanded to extract a single top-level annotation
which describes a static network .
Kelly suggests that strictness analysis or programmer annotations be used to minimise or
eliminate the overheads associated with sending non-normal form expressions over channels.
The current implementation supports only head-hyper-strict streams|in other words, only
normal-form elements can be sent over channels.
2.3.7 Skeletons
Section 2.3.4 showed that parallelism can be captured in terms of data structures. In contrast, Cole's algorithmic skeletons  capture parallel computation in terms of a relatively
abstract algorithmic description: a \skeleton" is a particular pattern of parallel computation. Although Cole used an imperative framework, he points out that higher-order
functions are an ideal mechanism for expressing skeletons.
The idea of selecting a parallel program structure from a catalogue of such structures
is appealing. Darlington et al  adapt Cole's idea to a functional language framework.
They point out that a skeleton has an implementation-independent meaning, as given by its
functional denitions, and a behaviour tailored to the target parallel machine|parallelism
arises from the behavioural aspect. They propose the following skeletons as higher-order
functions:
pipe Given a list of functions, produce a pipeline in which each function is allocated to a
CHAPTER 2. BACKGROUND MATERIAL
35
dierent processor.
farm Given a function from a datum and an environment, produce a \farm" of processes
which applies this function to each element of a data set and a given environment.
dc (divide-and-conquer) Given functions to a) split a data set, b) test and solve the
trivial solution, and c) combine solutions, produce a tree-structured parallel program
that implements a divide-and-conquer algorithm.
ramp (reduce-and-map-over-pairs) Given two functions that a) represent the interac-
tion between any two data items, and b) combine results of interactions between data
items, produce a parallel program that calculates the interactions between all items in
a data set, and combines the interactions to produce a single solution.
dmpa (dynamic-message-passing-architecture) Given a set of processes, each of which
accepts a set of messages and produces a set of messages for other processes, generate
the parallel program that implements the set of processes.
Darlington et al give examples in which skeletons are transformed into other skeletons.
The programmer can therefore: i) choose a skeleton that most easily represents the problem
to be solved, and then ii) transform the program, based on abstract performance measures,
into a skeleton that is more ecient on a given machine architecture.
Bratvold  proposes a dierent set of skeletons: map, lter, fold, and composition.
Functionally these functions are the same as Haskell's map, lter, foldl, and (:). The rst
three are implemented as processor \farms," and composition as pipeline connection of
farms. Three additional skeletons, ltermap, maplter, and foldmap, are compositions of
the rst three.
In contrast to Darlington et al , Bratvold argues that skeletons should be identied by
the compiler, not be a directive from the programmer that parallel execution take place.
His compiler uses proling and performance prediction to decide when to execute a skeleton
in parallel; in addition, this approach allows the compiler can detect parallelism in recursive
functions . Measurements on compiled programs show execution to be within 20% of
the estimates.
CHAPTER 2. BACKGROUND MATERIAL
36
2.4 Real-time signal processing
The term \real-time" refers to systems in which \the correctness of the system depends
not only on the logical result of computation, but also on the time at which the results
are produced" . Examples of real-time systems include command and control systems,
process control systems, ight control systems, and so on.
This thesis focuses on a particular class of real-time system: digital signal processing
systems, which analyse, produce, and transform discrete-time signals. Whereas conventional
real-time systems respond to or process individual events, which may occur at arbitrary
times, signal processing systems process streams of data representing discrete-time signals,
the elements of which usually occur at known rates. Signal processing systems also tend
to have more stringent timing requirements: timing parameters are expressed in tens of
micro-seconds, rather than in milliseconds.
This section provides some of the background needed to appreciate some decisions made
in later chapters. The section is largely based on my own experience with and observations
of real-time programs.
2.4.1 Discrete-time signals
A discrete-time signal is a function that is dened only at a particular set of values of time.
In the common case called uniform sampling , a discrete-time signal x(n) is related to a
continuous analog signal xa(t) by
x(n) = xa (nT );
;1 < n < 1
(2.2)
where T is the sampling period , and fs = 1=T is the sampling frequency .
Signals can be internal or external|in the latter case, they constitute an interface between the signal processing system and an external environment. Many signal processing
systems are \o-line"|that is, the external signals are not processed and produced simultaneously with their occurrence in the external environment. In real-time signal processing,
however, they are.
Although discrete-time signals are dened over all time, computer implementations nd
it more convenient to consider only non-negative time indices, where time zero is the nominal
CHAPTER 2. BACKGROUND MATERIAL
37
time at which the real-time program begins operating. Thus:
x(n) = xa(nT );
n0
(2.3)
From here on, quantication of time indexes over positive n is implicit.
Let tx denote the clock of signal x|that is, the sequence of times at which x is dened.
Each element of a clock is called a \tick." The clock of a uniformly-sampled signal x with
period T is
tx = fnT j n 0g
A non-uniformly-sampled signal is not characterised quite so easily. Let xe be a nonuniformly-sampled signal with clock tex . Then:
xe(n) = xa(tex (n));
n0
(2.4)
In general, a discrete-time signal does not represent samples of an analog signal. The
sequence of values representing changes of the state of my refrigerator door|open, closed,
or almost-closed|is an example. A sequence of messages between processes in a multitasking operating system is another. I will use the term uniformly-clocked to mean a signal
with clock fnT j n 0g for constant T , and non-uniformly-clocked for any other signal.
Non-uniformly clocked signals will be treated in chapter 6.
As notational short-hand, the logical and arithmetic operators extend point-wise to
clocks|that is, for some operator ,
tx ty ) tx(n) ty (n)
Two clocks tx and ty are thus equal if tx = ty ; tx is earlier than ty if tx < ty ; and tx is
later than ty if tx > ty .
2.4.2 Streams and channels
A signal is represented in a computer by a register or data structure that updates in time
to contain zero, one, or more values of the signal. This register or data structure I will call
a channel . It could be implemented in software or hardware; in either case, a program (or
hardware) can write to and read from the channel.
CHAPTER 2. BACKGROUND MATERIAL
38
Dene a stream as the sequence of values that passes through a channel. A uniformlyclocked signal x is implemented by the synchronous stream x. Streams are thus equivalent
to signals:
x(n) = x(n)
ye(n) = ye(n)
Unlike a signal, a stream has not one but two clocks. The write clock of x, wx , is the
sequence of times at which stream values become dened|in other words, the times at
which they are written to the stream's channel. The read clock of x, rx , is the sequence of
times at which stream values are consumed|that is, read from the channel. Read and write
clocks are in general non-uniformly spaced: they represent actual times at which certain
events (reading from or writing to a stream) occur, not idealised times at which signal values
occur. So, while signal clocks are understood by the program, read and write clocks are
solely for our own use in analysing and describing programs.
Assume that the action of writing a value to or reading a value from a channel consumes
an innitesimally small amount of time. The read clock of a stream x must therefore be
later than its write clock:
rx > wx
(2.5)
The relation between a signal's clock and its stream's clocks depend on whether the
signal is internal or external. Consider an input signal x. Because its stream, x, is produced
by the external environment, the signal clock is equal to the stream's write clock:
wx = tx
(2.6)
For an output signal y , the stream's read clock is equal to the signal clock:
ry = ty
(2.7)
Correct real-time operation hinges on the program responding appropriately to external
signals. From equations 2.5 to 2.7, we have, for input stream x and output stream y ,
rx > tx
(2.8)
CHAPTER 2. BACKGROUND MATERIAL
y
f
39
u
g
x
Figure 2.4. A simple block diagram
and:
w y < ty
(2.9)
In other words, the program cannot attempt to read from an input stream too early, and
must write to an output stream suciently early. The non-zero time dierence between the
read or write clock and the signal clock can be attributed to the time taken by the program
to transfer a value between a signal and a stream (for example, the interrupt response time
and the time to copy a value from a real-time input-output port into the channel).
2.4.3 Functions and systems
A signal processing system with one input signal x and one output signal y is a function
from x to y :
y = f (x)
A system is composed of functions, each with its own input and output signals. For
example, the system consisting of two series-connected functions f and g is:
y = f (g(x))
Giving a name to the internal stream between g and f , this can also be written as the
system of equations
u = g(x)
y = f (u)
When implemented in a block diagram system, f and g become blocks, and x, u, and y
become streams. This simple system is shown in gure 2.4.
A very important function in signal processing systems is the \delay" operator:
8
<
y = z ;k x ) y(n) = :
0;
n<k
x(n ; k) n k
CHAPTER 2. BACKGROUND MATERIAL
40
The delay operator is not usually implemented as a process, but by inserting k initial
zero values into a FIFO buer contained in the relevant channel.
2.4.4 Digital signal processors
Digital signal processors are microprocessors tailored specically to performing signal processing computations in real time. Most of the dierences to other microprocessors{both
CISC controllers and more powerful RISC CPUs|centre around two key points: i) the need
to support certain types of arithmetic very eciently; and ii) the need for deterministic execution times. In this section, I give an overview of the characteristics of these devices. I
focus only on the modern, oating-point devices; for more detailed information on specic
devices, see [115, 119, 34, 5, 6, 98, 138, 137].
Figure 2.5 illustrates a simplied architecture of a typical oating-point DSP core. The
device contains six functional units|an ALU, a multiplier, two address units, and two loadstore units (not shown here)|all of which can operate simultaneously, a bank of oatingpoint data registers, and a bank of address registers. A typical instruction thus allows
one or two arithmetic operations, two indirect loads or stores, and two address register
updates. This combination of operations is ideally suited for vector operations, in which
elements are stored in memory at xed address increments; it is a major factor in the very
high performance of DSPs on signal processing algorithms, as compared to CISC or RISC
processors fabricated in comparable technology.
Operations for each functional unit are encoded into a single instruction word|32 or 48
bits. DSPs thus resemble horizontally micro-coded devices more than super-scalar (multipleinstruction issue) RISCs. Most instructions execute in one cycle; to maintain this rate, the
instruction stream is pipelined, usually to three or four levels. Because of the limited
instruction width, some restrictions are placed on possible combinations of operations; for
example, many devices allow the multiplier and ALU to be used in parallel if the ALU is
performing an addition or subtraction. More complex instructions also place limitations on
source and destination registers.
The TMS320C30 and TMS320C40 [138, 137] are essentially register-memory machines:
operands can be located in memory or in registers. A typical instruction for these devices
mpyf r0,r1,r0
||
CHAPTER 2. BACKGROUND MATERIAL
41
Data
ALU
Floating-point
registers
registers
Index
registers
Figure 2.5. A simplied DSP chip architecture
and two address registers incremented. Provided that memory operands are located in
zero-wait-state memory,1 these devices can sustain instructions like this at a rate of one
per cycle. In gure 2.5, I have explicitly shown a data path around the data registers and
the ALU and multiplier, and around the address registers and address generators. These
paths, together with parallel data and address busses, provide the data transfer bandwidth
necessary to sustain these instruction rates.
The multiply-add instruction is the core of the FIR (nite-impulse response) lter, a
key DSP benchmark. Some devices also have a parallel multiply-add-subtract instruction,
which substantially speeds up execution of the FFT (Fast Fourier Transform), another key
benchmark.
In contrast to the TMS320C30 and TMS320C40, the ADSP-21020 and DSP96002 [5, 98]
are load-store machines: operands are explicitly loaded into data registers prior to operating
on them. The programmer writes separate elds of the instruction to control the ALU and
multiplier, and the load/store and address units. For example, a typical parallel multiplyadd instruction in M96002 code is:
fmpy d8,d6,d2
1
x:(r0),d4.s
d2.s,y:(r5)+n5
The placement of memory operands is a little complicated: the device has internal memory which can
be accessed twice per instruction cycle, and external memory which can be accessed (at most) only once.
The TMS320C40 has two external busses, which can both be active simultaneously.
CHAPTER 2. BACKGROUND MATERIAL
42
The rst two elds are multiplier and ALU operations; the second two are data move and
Apart from the architectural layout and instruction set, DSP devices also feature hardware to perform zero-overhead looping. The mechanism varies with the device, but it essentially allows the device to loop over a block of instructions without ushing the pipeline
at the end of the block. Zero-overhead looping is essential, for example, to execute one
multiply-add instruction per cycle, as needed by the FIR lter.
The address generators are quite sophisticated, to minimise the need for separate address
manipulation instructions. Firstly, they can increment by the contents of an index register,
allowing the device to step through memory in arbitrarily sized increments. Secondly, they
perform modulo addressing, in which an address register is automatically \wrapped" back to
a base address when incremented or decremented past a limit address. (This is descriptive
is essential for ecient implementation of circular buers and FIR lters. Thirdly, they
the FFT (see section 5.2.5) at no execution cost.
Early DSPs were fully deterministic in instruction execution time: each instruction took
exactly one cycle. The CPUs of modern DSPs are still deterministic, although calculating
execution time requires knowledge of the location of memory operands and, for some devices,
of the interaction between successive instructions in the instruction pipeline. The presence
of prioritised DMA controllers and instruction caches, however, makes exact prediction
of execution times impossible. Nonetheless, simpler interrupt-handling architectures, nonhierarchical memory architectures, and predictable instruction execution times still make
DSP execution behaviour much more predictable than modern RISC devices, an essential
ingredient in the design of time-critical systems.
2.5 Summary
The material presented in this chapter provides the background for following, more detailed,
chapters. The pipeline parallelism model underlies the model of computation described in
Chapters 3, 5, and 6. Chapters 4, 5, and 6 rely on functional programming concepts and
notation; as well as the notation, I presented dierent evaluation mechanisms for functional
CHAPTER 2. BACKGROUND MATERIAL
43
programs, to place into context the dataow style of evaluation of these programs.
Finally, because most of the work in following chapters is inuenced by the goal of realtime execution on embedded DSP device, I provided an overview of real-time programming
concepts and DSP devices.
Chapter 3
Dataow Process Networks
Dataow [1, 7] is a model of computation in which data items, called tokens , ow between
computing agents, or actors . A program is represented by a dataow graph (DFG), in which
vertices correspond to actors and edges to a \ow" of data from one actor to another. The
term \dataow" is used in a number of dierent contexts; here we are interested in pipeline
dataow : actors are long-lived, producing and consuming many items during their lifetimes.
This model is identical to Kahn process networks, for which Kahn gave a denotational
semantics .
A pipeline dataow network corresponds directly to a signal ow block diagram : for
example, a box labelled \+" on a block diagram sums two signals in a point-wise manner.
In dataow terms, the \+" actor is red repeatedly; each time, it reads a token from both
input channels and writes their sum to its output channel. Figure 3.1 illustrates a simple
dataow network. The summer actor is the one just described. The delay actor is a unit
delay: each element of v appears on w in the following time slot. The scale actor multiplies
each element of its input stream by a constant|in this case, the value ;a.
summer
u
v
z–1
z
–a
scale
Figure 3.1. A simple dataow network
44
w
delay
CHAPTER 3. DATAFLOW PROCESS NETWORKS
45
Lee coined the term dataow process to describe Kahn processes implemented as a
sequence of rings of a dataow actor . Each ring is governed by a rule that states
conditions on input values needed to re the actor. Provided the sequence of actor rings is
deterministic, then the actor forms a deterministic Kahn process. We are assured by Kahn
that a network of such processes will also be deterministic, and able to produce output data
before all input data is received.
This view of a dataow actor as a Kahn process is relatively new; in this chapter, I
develop a formalism for describing dataow actors, and give the semantics of actors and
their corresponding dataow processes. These actors are strict |that is, read all required
input tokens before producing any output|as is common practice. The notation extends
Lee's ring rules to include state update and token output as well as token matching and
When considering the relationship between dataow actors and non-strict functional
programming languages, non-strict actors are needed to more accurately model the way in
which tokens are produced and consumed. I therefore introduce a new form of actor, called
phased form. Execution of these actors proceed in a series of phases, several of which may
be required in place of a single ring of a strict actor. Phased form also permits limited
amounts of non-determinism and gives some new insights into the behaviour of dataow
actors.
3.1 Related work
The term \dataow" is used in a number of dierent contexts. It is often associated with
dataow machines, in which the dataow model is the basis of the execution mechanism of
a highly-parallel machine . Actors are ne-grained machine operations such as addition,
while edges of the graph represent transfer of tokens through the machine. The machine
executes an actor when all required tokens are present on its inputs. The languages used
to program such machines  are often called dataow languages.
Dataow analyses (DFAs) are used for code optimisation in compilers . DFAs provide
the compiler with information such as variable lifetimes and usage, which enables it to eliminate code that will never be executed, to re-use registers when their contents are no longer
needed, and to re-order instructions in order to generate improved machine code sequences.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
46
Again, the nodes of the dataow graph are ne-grained operations corresponding to single
machine instructions; the edges of the DFG represent dependencies between instructions.
In pipeline dataow, actors perform relatively complex tasks|that is, operations that
may take dozens, hundreds, or thousands of machine instructions to complete. The edges
of the DFG correspond to communications channels between the actors. This is the model
in which I am interested in this thesis.
3.1.1 Computation graphs
In 1966, Karp and Miller described a graph-theoretic model of parallel computation that is
essentially pipeline dataow . The computation is represented by a nite directed graph:
each node nj represents a computational operation Oj ; each arc dp represents a queue of
data from one node to another. Associated with each dp from ni to nj are four non-negative
integers: Ap , the number of tokens initially in the queue; Up , the number of tokens written
to dp whenever Oi executes; Wp , the number of tokens read from dp whenever Oj executes;
and Tp Wp, the number of tokens needed in dp before Oj can execute. Each arc can be
connected to only one producer and one consumer node.
Figure 3.2 illustrates a very simple computation graph, to compute n!. Each arc is
annotated with its (Ap ; Up; Wp; Tp). n1 takes a token from its input, and increments and
outputs its internal value (with zero initial value). The self-loop around n1 contains n
initial tokens; these are the tokens that \drive" the computation. n2 multiplies its two
inputs together and outputs the result on two arcs. The self-loop around n2 has one initial
token, value assumed to be zero. n3 writes the nal value received to the location that holds
the result of the entire computation.
Note that n1 maintains the value of its counter internally, while n2 explicitly passes its
previous output value back to itself through an arc. Thus, the model does not care whether
or not nodes maintain an internal state or perform explicit feedback.
Execution of a computation graph G containing l nodes is represented by a sequence of
sets = S1 ; S2; : : :; SN ; : : :, such that each set SN f1; 2; : : :; lg. Let x(j; N ) denote the
number of sets Sm ; 1 m N such that j 2 Sm , and let x(j; 0) = 0. is a proper execution
of G i
CHAPTER 3. DATAFLOW PROCESS NETWORKS
47
(n,0,1,1)
n1
(0,1,1,1)
n2
(0,1,1,1)
(1,1,1,1)
n3
Figure 3.2. A computation graph
1. If j 2 SN +1 and G has an arc dp from ni to nj , then
Ap + Upx(i; N ) ; Wp x(j; N ) Tp
2. If, for all nodes ni and arcs dp from ni to nj , Ap + Up x(i; N ) ; Wp x(j; N ) Tp, then
9R > N : j 2 SR.
Condition (1) states that, to execute an operation, the initial number of tokens added to
the total number of tokens produced to its input channel, must exceed the total number
consumed plus the threshold. Condition (ii) states that if an operation can be executed
then it will be within a nite number of steps. The sequence is thus like a partially-ordered
schedule: each SN contains all nodes eligible for execution at that time. Note that a given
graph can have more than one proper execution.
Karp and Miller prove a number of properties of this model. Firstly, the number of
performances of an operation is the same in all proper executions of G. Also, if the initial
tokens on every arc are the same, then the value of any given token is the same for all
proper executions. G is thus determinate .
Karp and Miller also develop a number of theories concerning termination of the graph:
which nodes terminate, and for those that do, how many times they appear in all possible
executions.
3.1.2 Synchronous dataow (SDF)
Synchronous dataow (SDF) is a slightly less general model than computation graphs:
the input threshold is equal to the number of consumed tokens. It is, however, designed
specically for processing innite streams. SDF scheduling was developed by Lee and
CHAPTER 3. DATAFLOW PROCESS NETWORKS
48
D
3
1
1
1
1
1
1
1
2
2
4
3
(a)
4
(b)
Figure 3.3. A synchronous dataow graph
Messerschmitt [89, 90], and has since formed the backbone of eorts to implement dataow
networks eciently for both real-time and non-real-time execution.
Figure 3.3a shows a simple SDF graph: the numbers next to the node inputs and outputs
are equivalent to Wp and Up ; a D annotation indicates that an arc contains one zero initial
value; the small circle is a \fork" node. This graph computes the running product of its
input stream.
Compared to the computation graph, the SDF graph is \driven" by an innite input
stream produced by a node with no input arcs, instead of by a nite number of initial tokens
placed on an arc.
A schedule can be calculated for an SDF graph: this is an ordered sequence of node
names that, repeated forever, computes the output streams from the input streams. The
incidence matrix ; contains the token consumption and production gures of the graph:
;(i; j ) is the number of tokens produced by node j on arc i each time it is red; if j consumes
data, ;(i; j ) is negative. Figure 3.3b shows the example graph decorated with node and arc
numbers; we then have
2
3
1 ;1 0 0
6 0 1 ;1 0 7
; = 664 0 ;1 1 0 775
0 0 1 ;1
The vector b(n) is the number of tokens on each arc at time n. Thus,
2
3
0
6 0 7
b(0) = 664 1 775
0
The vector v(n) denotes the node scheduled at time n. That is, v(n)(i) = 1 and
v(n)(j ) = 0 if node i is scheduled and i 6= j . Since executing a node changes the number of
CHAPTER 3. DATAFLOW PROCESS NETWORKS
tokens on arcs, we have
b(n + 1) = b(n) + ;v(n)
49
(3.1)
Assuming that sample rates are consistent and the network does not deadlock, the vector
q is the number of times each node is executed in the schedule: if node i is executed k times,
then q(i) = k. To nd q, assign any node a repetition count of 1. Follow any arc dp from
that node, and assign the connected node the repetition count Up =Wp, storing this quantity
as an exact rational number. When all nodes have been reached, nd the least common
multiple of the denominators of the repetition counts and multiply to nd q.
The example network is the special case called homogeneous dataow, in which all token
counts are unity. Calculating q is trivial:
2
3
1
6 1 7
6 7
q = 64 1 75
1
Given q , a schedule is found by simulating execution of the graph at compile-time with
equation 3.1. At each step, if the numbers of tokens in an arc is at least equal to the number
of tokens consumed, append the consumer node to the schedule. Stop scheduling a node i
when it has appeared in the schedule q(i) times. For the simple example, the only possible
schedule is h1; 2; 3; 4i.
The sizes of internal FIFO buers can be determined in the same way. A code generation
system can take advantage of this fact to produce extremely ecient code. The eciency
improvement over dynamic scheduling is so great that considerable eort has been expended
in dataow models that are less restricted than SDF, but which are suciently constrained
that SDF code can be applied to parts of the graph [26, 43].
SDF code generators operate by \ring" code generation actors at compile-time; each
time an actor is red, it emits C or assembler code. For assembler code generation, macros
and symbolic names make the programmer's task easier and allow some optimisations.
Powell et al , for example, describe assembler code generation in SPW, and give some
examples of the assembler source code. A typical instruction looks like this:
tA,out
tA,tX
Y:(table.reg)+,tY
Here, tA, out, tX, and tY stand for registers, and table for a region of memory. Powell
et al use register allocation heuristics to assign registers, with spill instructions inserted
CHAPTER 3. DATAFLOW PROCESS NETWORKS
50
where necessary. For example, the above instruction may become
A,B
A,X0
Y:(R0)+,Y0
As just described, SDF code generation will tend to generate large amounts of code for
general multi-rate graphs, since the code for each actor is duplicated each time the actor
appears in the schedule. Because embedded DSP processors often have severely limited
memory space, more sophisticated scheduling techniques have been developed that produce
loops in the generated output code, thus minimising the code memory required .
3.1.3 Kahn's process networks
Kahn described the semantics of a language for parallel programming based on process
networks . In Kahn's language, a program consists of a network of \computing stations"
(that is, processes) connected by FIFO-buered channels. Each process repeatedly reads
data from one or more input channels and writes data on one or more output channels.
Figure 3.4 shows the simple pipeline given on page 18 written in Kahn's language.
Kahn processes can only communicate through channels . Channels are obliged to transmit data within a nite time. A process can read input channels using blocking reads only;
if data is not yet available, the process must suspend until it becomes so. In other words,
a process cannot test for the presence of data on an input channel; nor can it wait for data
on one or another of its input channels (unlike other concurrent systems such as CSP ).
The semantics of a Kahn process network are expressed in terms of the histories of data
transmitted on each channel: a Kahn process is a function or set of functions from histories
to histories. Given some domain D, let D be the set of all nite sequences containing
elements in D; let D1 be the set of innite sequences containing elements in D; and let
D! = D [ D1 . Sequences are related by the partial ordering v, where X v Y if and only
if X is a prex of or equal to Y . The minimal element is the empty sequence [ ]. A chain
of sequences X = X1 v X2 v : : : v Xn v : : : has a least upper bound lub X . D! is thus a
complete partial order (cpo).
A Kahn process is built from continuous functions|a function f is continuous i
f (lub X ) = lub f (X )
CHAPTER 3. DATAFLOW PROCESS NETWORKS
begin
integer channel X, Y, Z;
process absolutes( integer in I, integer out O );
begin integer T;
repeat begin
T := wait(I);
send abs(T) on O;
end;
end;
process running( integer in I, integer out O );
begin integer T,V;
V := 0;
repeat begin
T := wait(I);
V := V + T;
send V on O;
end;
end;
comment : begin main program
running(X,Y) par absolutes(Y,Z);
end;
Figure 3.4. A Kahn process network
51
CHAPTER 3. DATAFLOW PROCESS NETWORKS
52
Continuity ensures that a process is not able to produce output only after it has received
an innite amount of output.
A continuous process is also monotonic|that is, for any two sequences a and b,
a v b ) f (a) v f (b)
Monotonicity ensures that future output can depend only on future input, thus allowing
processes to produce output before receiving all their input.
A process with arity (m; n) has m input channels in D!1 ; D!2 ; : : :; D!m and n output
channels in E!1 ; E!2 ; : : :; E!n . The process is specied by n continuous functions from D!1 : : : D!m into E!1 , E!2 , and so on. A process network p is a set of x-point equations
over cpos; such a system has a unique minimal solution. More importantly, this minimal
solution is a continuous function of the input histories and the processes, and thus is also
monotonic. This means that: i) a network of Kahn processes also exhibits the desirable
property of producing output before receiving all its input; and ii) networks can be connected
in the same manner as single processes, thus allowing hierarchical construction of networks.
Kahn and MacQueen  suggest that a Kahn process network be implemented in a
demand-driven style, using co-routines. When a process attempts to read a token from an
empty input channel, it suspends, and the process that writes to that channel is activated.
When the producer process writes data to the channel, it is suspended and the consumer
process resumed. The producer process itself may be suspended in the course of producing
its output data. Ultimately, these \demands" for data propagate back to processes that
generate input data (from, say, a le) or read it from some input channel (such as, say,
the console). There is a single \driver" process, usually the process responsible for printing
program results.
The dual to demand-driven execution is data-driven execution: rather than executing
when a successor process requires data, a process executes when it has enough input data.
A process suspends whenever it attempts to read from a channel with no data; it is resumed
by the operating system some time after data is written to the channel. The implementation
of stream-processing functions in SISAL  uses this technique .
CHAPTER 3. DATAFLOW PROCESS NETWORKS
53
3.1.4 Dataow processes
Lee denes a dataow process to be the sequence of rings of a dataow actor . A
dataow process is thus a special kind of Kahn process|one in which execution is broken
into a series of \rings." Because the process is a sequence of actor rings, a complete
network can be executed by ring actors in an appropriate order. Actors manage their
own internal state, so there is no need to provide each process with the illusion that it
has exclusive access to the CPU: context-switching is eliminated. This is a very important
point for real-time signal processing: context-switching presents a very high overhead to a
real-time digital signal processor, as the time needed to save and restore all the registers of
a modern DSP is quite high|see  for further discussion of this issue.
Demand-driven execution on a single processor can be implemented simply and elegantly.
As each actor executes, an attempt to read from an empty channel causes the source actor to
re immediately. Since \ring" an actor involves nothing more than executing a procedure,
the propagation of demands for data proceeds recursively down the dataow graph. The
recursion unwinds as data is propagated back through the graph. Real-time execution
on multiple processors, however, presents some awkward problems. Firstly, data must be
demanded \ahead of time," to guarantee that data is available ahead of the output signal
clocks. Secondly, a demand for data across a processor boundary causes the demanding
processor to idle while the data is being produced. Although this eect could be overcome
by processing a dierent part of the graph while waiting, it would re-introduce the overhead
The diculties with demand-driven execution of dataow networks led myself and
Matthias Meyer to abandon attempts to incorporate it into the initial design of the SPOOK
(Signal Processing Object-Oriented Kernel) parallel DSP kernel [118, 96]. Nonetheless, we
still believe that it is important and that an ecient hybrid scheduling mechanism is possible.
With data-driven scheduling, an actor is red when it has sucient tokens on its input
channels. An external scheduler tests if enough tokens are available, and res the actor if
they are. A naive implementation of data-driven scheduling simply cycles through all actors,
ring any which have sucient input tokens. More sophisticated schedulers attempt to
minimise unnecessary testing by tracing the graph in topological order , or by \pushing"
tokens through the graph .
CHAPTER 3. DATAFLOW PROCESS NETWORKS
54
Because of the \eager" nature of data-driven execution, processes may produce more
data than will ever be needed. Some form of throttling is needed: bounding channel buers
is one solution; pre-emptive scheduling is another. Neither solution is elegant, suggesting
that perhaps a hybrid demand- and data-driven solution is really needed. Ashcroft 
proposes a machine architecture for Lucid based on mixing both methods within the same
network. Edges of the network graph are coloured according to whether they are datadriven or demand-driven. Request tokens are propagated backwards down the demanddriven arcs|these tokens are called questons, while normal data tokens are called datons .
Pingali and Arvind  take another approach: they give a transformation by which a
dataow graph with demand-driven semantics is transformed into an equivalent graph with
data-driven semantics. In essence, demands are made explicit by adding arcs and actors
to carry questons. The propagation of questons, and the resulting propagation of datons
back up the graph, is performed using data-driven execution. Skillicorn  proposes that
strictness analysis be applied to Lucid programs to allow questons to be sent up the graph
in fewer hops. If it is known that an actor will always demand data from certain inputs,
then that actor can be bypassed by the questons, since a demand for its output will simply
produce demands for its input anyway. When the up-stream actors to which the questons
are sent produce datons, the datons are propagated in a data-driven fashion through the
bypassed (by the questons) actor.
Jagannathan surveys the current state of dataow computing models, including a comparison of demand- and data-driven execution . Dataow architectures have also been
proposed for implementation of functional programming languages . Field and Harrison point out that demand-driven evaluation of functional programs gives normal-order
semantics, while data-driven evaluation gives applicative-order semantics [47, chapter 14].
3.1.5 Firing rules
Lee has recently formalised the notion of \ring" an actor . An actor with arity (m; n)
has a set of N ring rules
F = fF1; : : :; FN g
where each Fi is an m-tuple of patterns, one for each input:
Fi = (Pi;1; : : :; Pi;m)
CHAPTER 3. DATAFLOW PROCESS NETWORKS
55
Each pattern is a sequence of tokens, each being either a manifest constant or the
\wildcard" symbol '. Lee denes a modied version of the prexing predicate, which we
can express as:
[p1; : : :; pq ] v (x1 : : : : : xr : ?) , r q ^ 8i 2 f1::q g : pi =  ' _ pi = xi
where the sequence (x1 : : : : : xr : ?) is the sequence of \available" tokens on the input
channel. There are r available tokens; ? represents the undened part of the sequence|in
other words, tokens which have not yet been computed.
A ring rule Fi of an actor with m input channels is enabled if and only if
Pi;j v Aj ; 8j 2 f1::mg
where Aj is the sequence of available tokens on the j 'th input channel.
Lee's ring rules capture the essential aspect of scheduling a dataow actor under a
strict, data-driven semantics. By \strict," I mean that all input tokens must be present
before the actor begins to execute. Let us consider some examples. The summer actor sums
corresponding elements of two input channels; it thus requires a token on each before it can
re:
F1 = ([]; [])
The select actor consumes one token from a boolean control input: if true, it consumes
a token from its rst data input and passes it to the output; if not, it consumes a token
from its other data input and passes it to the output. It has the ring rules
F1 = ([True]; []; [ ])
F2 = ([False]; [ ]; [])
A non-deterministic actor does not form a Kahn process. The archetypical non-deterministic
actor is merge, which passes an available token on either input to the output. It has the
ring rules
F1 = ([]; [ ])
CHAPTER 3. DATAFLOW PROCESS NETWORKS
56
F2 = ([ ]; [])
Recall that one of Kahn's requirements is that a process perform only blocking reads.
The non-deterministic merge does not satisfy this criterion, since it must test its inputs to
see whether they have data to pass to the output. Non-deterministic merge can be made
deterministic by making time part of the data in the stream|see chapter 6.
Lee gives an algorithm that can determine whether a nite set of ring rules can be
tested by a process that performs only non-blocking reads . A set of ring rules that
satises this condition Lee calls sequential . Briey, his algorithm works as follows: Choose
an input j such that all Pi;j contain at least one element. If the head elements of the patterns
do not unambiguously divide the ring rules into subsets, then fail. If they do, remove the
head elements, and repeat the procedure on each subset, with the modied patterns. Fail
at any time if any rule in a subset is not either empty or at least one element long. If the
algorithm terminates without failing, then the rules are sequential. In eect, the algorithm
mimics the run-time behaviour of the actor.
3.2 Standard-form dataow actors
Lee's ring rules capture the input conditions necessary to re an actor, although without
saying precisely what a \ring" is, or by what mechanism the pattern is matched against
available input tokens. Apart from matching and reading input tokens, an actor ring also
i) updates the actor's internal state (if any), and ii) calculates and produces output tokens.
In this section, I give a syntax for describing actors, followed by a precise semantics of
dataow actors and processes.
3.2.1 Syntax
The term \dataow actor" is used to mean two things: the description of an actor, and an
actual instance of an actor within a network. I will call these an actor schema and an actor
instance where necessary to distinguish between them.
A sugared syntax for actor schemata is shown in gure 3.5. Figure 3.5a is the general form for stateful actors. The actor is called name, and has zero or more parameters
(v1; : : :; va). Parameters are arguments to the actor other than streams, and must be reducible to a constant at compile-time. The init clause species the initial value of the actor's
CHAPTER 3. DATAFLOW PROCESS NETWORKS
(a )
actor name(v1 ; : : :; va) init s0
rule p : update (s)
output (s)
= eu
= eo
update (s)
output (s)
= eu
= eo
rule
(b)
57
..
.
p :
actor name(v1 ; : : :; va)
rule p : eo
rule
..
.
p : eo
Figure 3.5. Sugared syntax of a standard-form actor: a) stateful actor b) stateless actor
internal state, s0 ; this is also assumed to be known at compile-time. It is followed by one
or more rules, each containing an input pattern p, an update action update (s) = eu , and an
output action output (s) = eo .
Each input pattern corresponds to one of Lee's ring rules. A pattern is thus a sequence
of token patterns , where a token pattern is an identier, a simple constant, or a structured
type containing element patterns. The only dierence to Lee's ring rules is that identiers
are used instead of the symbol \*".
Some patterns are irrefutable |that is, they cannot fail to match [72, pp. 72{74]. I
use a very loose interpretation of this denition, allowing not only identiers and tuples of
identiers, but other structured patterns if it is known that the matched value is such that
the pattern will always match. (For an example of an irrefutable pattern, see the group
actor of gure 3.8, which uses a vector as an irrefutable pattern.)
The update action is a function from the current value of the actor's internal state, s,
to the value of the state after completion of a ring. s cannot be used in rule selection,
and must therefore be an irrefutable pattern. The update expression eu can contain free
variables v1 to va and any variable in p. The output action is a function from the actor's
internal state to the sequences or sequences of output tokens produced by this ring. The
output expression eo is a manifest sequence, or a let-expression with a manifest sequence
as result. A manifest sequence is an expression in which the length of the sequence can
be determined purely syntactically|for example, let x = y 2 in [x; x; x] is a valid output
CHAPTER 3. DATAFLOW PROCESS NETWORKS
58
expression, but let x = y 2 in copy 3 x is not. This ensures that the number of tokens
produced can be determined by examining the output action, without knowledge of data
values.
Patterns and output expressions are sequences if the actor has one input or one output
channel respectively. If it has more than one input or output channel, the pattern or output
expression is a tuple of sequences.
Some examples will clarify the above description. Consider the delay operator, expressed
as a standard-form actor schema with one rule:1
actor
delay (i) init
rule
i
[x] :
update (s)
= x
output (s) = [s]
The actor has one parameter, i; this value is the initial value of the actor's state. On
each ring, the actor produces the current state, and sets the next state equal to the value
of a new input token. Output values are thus delayed by one time slot. In signal processing,
delays usually have an initial state of zero; the delay actor of gure 3.1 is thus instantiated
as delay(0).
A slightly more complex actor implements the running process of gure 3.4; this actor
has no parameters:
actor running init 0
rule [x] : update (s) = x + s
output (s) = [x + s]
For stateless actors, I use the simplied syntax of gure 3.5b, which omits keywords and
expressions related to the internal state. Written in full (as in gure 3.5a), a stateless actor
has the init value (), the update action update (s) = s, and the output action output (s) = eo .
1
Operationally, this actor is unlikely to be useful, as delays are not strict. A more accurate version of delay
is given in section 3.3.1.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
59
Here are some examples of stateless actors. The summer actor has one rule:
summer rule ([x]; [y ]) : [x + y ]
actor
The scale actor also has one rule:
scale (v ) rule [x] : [v x]
actor
The select actor (section 3.1.4) has two rules:
select rule ([True]; [x]; [ ]) : [x]
rule ([False]; [ ]; [y ]) : [y ]
actor
Finally, the non-deterministic merge actor also has two rules:
merge rule ([x]; [ ]) : [x]
rule ([ ]; [y ]) : [y ]
actor
3.2.2 Desugaring
The actor schemata of the previous section are \desugared"|that is, translated into a
simpler but more easily-manipulated form|by the translation of gure 3.6. This gure
introduces the notation used for syntactic translation functions: double square brackets
([[ ] ) enclose a syntactic element. In desugared form, an actor schema is a triple (a; s0; R),
where a is a (possibly empty) tuple of actor parameter names, s0 is the actor's initial state,
and R is a set of rules. Each rule is itself translated into a triple (P; upd; out), where P is
a pattern, upd an update action, and out an output action.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
22
desugar
actor name(v1 ; : : :; va)
66
init s0
44
rule1 ; : : : ; rulek
60
33
77
55
((v1; : : :; va); s0; fdesugarR [ rule1] ; : : :; desugarR [ rulek ] g)
desugarR
""
rule
p !
update (s)
output (s)
= eu
= eo
##
(p; s : eu; s : eo)
Figure 3.6. Desugaring a standard-form actor
For example, the delay actor, after applying this transformation, becomes the triple
(i; i; f([x]; s : x; s : [s])g)
A stateless actor uses the same translation as above; as a result, the translated actor
has s0 = () and each upd equal to the identity function s : s. For example, the select actor
becomes
(( ); ( ); f (([True]; [x]; [ ]); s : s; s : [x]);
(([False]; [ ]; [y ]); s : s; s : [y ]) g)
3.2.3 Semantics
Lee denes a dataow process to be a sequence of rings of a dataow actor. Provided the
actor's ring rules are sequential, this process is also a Kahn process|that is, a mapping
from input histories and initial state to output histories. In this section, I give a semantics
of actors and state precisely the meaning of a dataow process.
We will need some primitive types to help describe actors more precisely: let the type
of the actor's internal state be ; the type of an input pattern be Patt; the type of one or a
tuple of patterns be Pattern; the type of the (possibly empty) tuple of schema parameters
be Parameters.
As we saw in section 3.1.3, a Kahn process is a function from sequences to sequences.
In this chapter, we consider only innite sequences. Let the (::=) operator dene a type
synonym. The inputs and outputs of the actor are innite sequences or tuples of innite
CHAPTER 3. DATAFLOW PROCESS NETWORKS
61
sequences:
1
Input ::= D1
1 : : : Dm
1
Output ::= E1
1 : : : En
When the actor res, however, it consumes and produces only nite segments of its
input and output sequences:
InputSegment ::= D1 : : : Dm
OutputSegment ::= E1 : : : En
Update and output actions accept a state value and produce a new state and an output
segment respectively:
UpdateAction ::= ! OutputAction ::= ! OutputSegment
A Rule is a triple of a pattern and two actions; Rules is a set of rules; a Schema is a
triple of parameters, initial state, and a rule set:
Rule ::= Pattern UpdateAction OutputAction
Rules ::= fRuleg
Schema ::= Parameters Rules
Execution of an actor proceeds in two distinct phases: i) instantiation of the actor
with its parameters; and ii) execution of the actor on its stream arguments. In , Lee
stresses the dierence between parameter arguments and stream arguments in Ptolemy:
parameters are evaluated during an initialisation phase; streams are evaluated during the
main execution phase. As a result, code generation can take place with the parameters
known, but with the stream data unknown. Thus, the separation between parameters and
streams|and between compile-time and run-time values|is both clear and compulsory.
An actor is instantiated by supplying its schema with parameter values. To represent
CHAPTER 3. DATAFLOW PROCESS NETWORKS
62
instantiate [ Schema]] :: Parameters ! Actor
instantiate [ (v; s0; fR1; : : :; Rk g)]] e
(s0[e=v]; finst [ R1] ; : : :; inst [ Rk ] g)
where
inst [ (P; upd; out)]] (P [e=v ]; upd[e=v ]; out[e=v ])
Figure 3.7. Instantiating an actor
instantiation of a schema name with parameter values (e1; : : :; ea ), we will write
A := name(e1; : : :; ea )
or, if the schema has no parameters,
A := name
where A is the (unique) identier of the actor instance. Instantiating a schema creates a
new actor instance:
Actor ::= Rules
To instantiate an actor, each parameter formal occurring free in the initial state and the
ring rules is substituted by the corresponding actual. Figure 3.7 gives the instantiation
function. The notation E [e=v ] means that each occurrence of identier v occurring free in E
is replaced with the expression e. This notation extends point-wise to tuples of substitution
variables|that is, if v = (v1; : : :; va ) and e = (e1 ; : : :; ea ), then
E [e=v] , E [e1=v1] : : : [ea =va]
An actor instance is connected to other actors in a network, and can then proceed to
the second part of its execution, as a dataow process. The process is an innite series of
rings, each of which proceeds in three stages: input, state update, and output. The rst
can in turn be divided into two parts: matching rule patterns against input sequences to
select a rule, and reading the input segments from the input sequences.
Pattern-matching and rule selection is performed by the semantic function match, which
CHAPTER 3. DATAFLOW PROCESS NETWORKS
63
accepts a rule and input sequences, and produces that same rule if it matches the sequences.
Thus,
match [ Rule]] :: Input ! Rule
match [ [email protected]((P1; : : :; Pm); ; )]] (X1; : : :; Xm )
= R; if match0 [ Pi ] Xi for all i, 1 i m
match0 [ Patt]] :: D1 ! Bool
match0 [ [p1; : : :; pq ]]] (x1 : : : : : xq : xs)
= true; if tmatch pi xi for all i, 1 i q
The notation [email protected]((P1; : : :; Pm); ; ) is from Haskell: R is the name of the rule, which is a
triple containing patterns (P1; : : :; Pm ) and two other elements of insignicant value. The
tmatch function performs pattern-matching on tokens, as in functional languages .
Implicit in the denition of match is the concept of failure: if the input patterns do
not match the input sequences, then match returns ? (pronounced \bottom"), denoting an
undened value. Note also that because tmatch compares each token against a pattern, all
required tokens must be available before a rule can be selected and execution proceed. The
semantics thus captures the strictness of actors.
Given a selected rule, the read function splits the input sequences into the segments to
be read by this ring, and the remainder of the sequences:
read [ Rule]] :: Input ! InputSeg Input
read [ ((P1; : : :; Pm); ; )]] (X1; : : :; Xm) = let (is1 ; i1) = read0 [ P1] X1
:::
= :::
(ism ; im ) = read0 [ Pm ] Xm
in ((is1; : : :; ism ); (i1; : : :; im))
read0 [ Patt]] :: D1 ! D D1
read0 [ [p1; : : :; pq ]]] (x1 : : : : : xq : xs) = ([x1; : : :; xq ]; xs)
The input function combines matching and reading: it matches a rule set against input sequences and returns the selected rule, the input segments, and the remaining input
sequences:
input [ Rules]] :: Input ! Rule InputSeg Input
CHAPTER 3. DATAFLOW PROCESS NETWORKS
input [ fR1; : : :; Rk g] i = let R
64
= match [ R1] i
2 :::
..
.
in
2 match [ Rk] i
0
(is; i ) = read [ R] i
(R; is; i0)
input uses the 2 operator to select a valid rule from several possible matches; 2 is \bottomavoiding":
? 2 ? = ?
? 2 r = p
r 2 ? = p
r1 2 r2 = ?
The last line means that pattern-matching will fail if more than one match succeeds. This
behaviour is chosen to emphasise that the semantics works only for deterministic actors.
The update and output semantic functions update the actor's state and produce output
according to a given rule. Their inputs are a segment of the input sequences and the current
state. These functions are somewhat simpler to derive than input: all that is required is to
bind the free variables named by the input patterns by supplying them as arguments:
update [ Rule]] :: InputSeg ! ! update [ (P; s : eu; s : eo)]] = P : s : eu
output [ Rule]] :: InputSeg ! ! OutputSeg
output [ (P; s : eu; s : eo)]] = P : s : eo
The re function combines input, state update, and output, into a single actor ring.
At each ring, it accepts the unread input history and the current state, and produces the
remaining unread input history, the next state, and a segment of the output sequences:
re [ Rules]] :: Input ! Input OutputSeg
CHAPTER 3. DATAFLOW PROCESS NETWORKS
65
re [ Rs] (i; s) = (i0; s0; o0)
where
(R; is; i0) = input [ Rs] i
s0
= update [ R] is s
o0
= output [ R] is s
The function process, given a set of rules, a starting state, and a tuple of input sequences,
endlessly chooses and then res a rule:
process [ Rules]] :: Input ! ! Output
process [ Rs] i s = o ++ process i0 s0
where
(i0; s0; o) = re [ Rs] i s
The output segments are prepended to the remainder of the output sequences by the
(++) operator:
(x1 : : : : : xq ) ++ ys = (x1 : : : : : xq : ys)
and we assume that (++) extends to tuples of sequences.
Finally, we can give the precise meaning of a dataow process: the dataow process
corresponding to the dataow actor A is the function io [ A]], where io supplies the actor's
initial state and complete input sequences to process:
io [ Actor]] :: Input ! Output
io [ (s0; Rs)]] i = process [ Rs] i s0
3.2.4 Consumption and production vectors
When red, an actor consumes some number of tokens from its input streams, and produces
some number to its output streams. These numbers are manifest in the actor's ring rules|
that is, in the input patterns and the output actions.
Let the # operator return the length of a sequence, and the # operator return the
lengths of sequences in a tuple, as a vector. # is dened informally by
#s
= h#si
CHAPTER 3. DATAFLOW PROCESS NETWORKS
#(s1; : : :; sk )
66
= h#s1 ; : : :; #sk i
The consumption vector C [ R] and production vector P [ R] contain the number of tokens
consumed and produced by a rule R = (P; s : eu; s : eo):
C [ R] =
P [ R] =
#P
#eo
Recall that an SDF actor consumes and produces known and constant numbers of tokens
on each ring (section 3.1.2). This property can be formally stated in terms of consumption
and production vectors. Dene the operator to return a value only if both arguments are
equal:
x x = x
x y = ?; x 6= y
? y = ?
x ? = ?
? ? = ?
Let extend point-wise to vectors:
hx1; : : :; xk i hy1; : : :; yk i = hx1 y1; : : :; xk yk i
by
The consumption and production vectors of an actor with rules fR1; : : :; Rk g are dened
C [ A] = C [ R1] : : : C [ Rk ]
P [ A] = P [ R1] : : : P [ Rk ]
Thus, if, for each input, the input patterns of all clauses are the same length, the consumption vector contains an integer in the appropriate position; otherwise, it contains ?
(pronounced \bottom"), indicating that the number cannot be determined without additional information. If the lengths of all output sequences for a given output are the same
length, then the production vector similarly contains an integer.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
67
For example, summer has vectors
C [ summer]] = h1; 1i
P [ summer]] = h1i
The select actor has vectors
C [ select]] = h1; ?; ?i
P [ select]] = h1i
The denition of SDF actors, and the sub-class of homogeneous dataow actors, can
now be stated in terms of consumption and production vectors:
Denition 1 (Synchronous dataow (SDF)) An actor A with arity m n is synchronous dataow (SDF) i
C [ A] (i) 6= ?;
8i; 1 i m
P [ A] (i) 6= ?; 8i; 1 i n
Denition 2 (Homogeneous dataow (HDF)) An actor A with with arity m n is
homogeneous dataow (HDF) i
C [ A] (i) = 1;
8i; 1 i m
P [ A] (i) = 1;
8i; 1 i n
SDF actors are usually expressed with a single rule; call an actor with a single rule and
irrefutable token patterns a simple SDF actor. Such an actor does not need to perform
pattern-matching and rule selection|since it only has one rule that, given enough input
tokens, cannot fail to match. It therefore needs only to count input tokens, not read their
values.
3.2.5 Canonical SDF actors
Any SDF actor can be implemented as a network containing delays and instances of just
ve actor schemata. In chapter 5, I will give functions equivalent to these schemata, and
CHAPTER 3. DATAFLOW PROCESS NETWORKS
actor delay (i)
init i
rule [x]
:
update (s)
output (s)
actor group (k) rule [x1 ; : : :; xk ]
: [hx1; : : :; xk i]
actor concat (k) rule [hx1; : : :; xk i]
: [x1; : : :; xk ]
actor zip (k) rule ([x1]; : : :;
= x
= [s]
[xk ]) : [(x1; : : :; xk )]
actor unzip (k) rule [(x1; : : :; xk )]
actor map (f )
rule [x]
68
: ([x1]; : : :; [xk ])
: [f (x)]
Figure 3.8. The canonical SDF actors
give examples of their use; here, I will give the schemata texts and argue that any SDF
actor can be translated into a network of these ve actors. I will also further discuss the
role of actor parameters.
Figure 3.8 lists the ve actors, together with delay. Each has one parameter. For
completeness, delay is shown as an actor although it will almost always be implemented
as initial values in a FIFO buer. Note that delay is the only actor here that maintains a
\state."
group breaks a stream up into a stream of vectors. Unlike delay, its parameter must
be known in order to produce a formal (that is, executable) actor text. (The notation
x1; : : :; xk is not formal.) This is really a limitation of the fact that an actor text must
contain a manifest sequence in its output action. As we will see in chapter 5, group can, with
a more powerful notation, be dened without requiring that k be known at compile-time.
concat is the inverse of group: it concatenates a stream of vectors into a stream. Again, its
parameter must be known in order to produce a formal actor text.
zip and unzip combine multiple streams into a stream of tuples, and vice versa. They
also require that their parameter be known at compile-time; in this case, however, it is
CHAPTER 3. DATAFLOW PROCESS NETWORKS
69
not possible to remove this restriction with a more powerful notation, since the parameter
determines the number of input or output channels of the actor. In chapter 5, this limitation
will force us to use restricted versions of these functions.
Finally, the map actor takes a function as its parameter, which it applies to each element
of its input channel. If f is known, an ecient implementation of map(f ) can be generated; if
not, the system must support dynamic creation of functions since it will not have knowledge
of f until run-time. An actor of this kind mimics higher-order functions in functional
languages, and could therefore be called a higher-order actor .
I will now argue informally that any SDF actor can be implemented by delays and these
ve schemata. As pointed out by Lee , a stateful actor can be represented as a stateless
actor together with a unit-delay feedback loop carrying the \state" value. The remaining
ve schemata can implement any stateless SDF actor, as follows. Let the consumption and
production vectors of the actor be hc1; : : :; cmi and hp1; : : :; pn i. For any input i such
that ci > 1, insert a group(ci) actor in the connected arc and change the pattern for that
input from [x1; : : :; xci ] to [hx1; : : :; xci i]. For any output j such that pi > 1, insert a
concat(pi) actor in the connected arc and change the expression sequence for that output
from [y1 ; : : :; ypi ] to [hy1; : : :; ypi i]. The actor is now HDF. If the actor has more than
one input|that is, m > 1|use a zip(m) actor to gather all input streams into a stream of
tuples, and change the input pattern from ([x1]; : : :; [xm]) to [(x1; : : :; xm )]. If the actor has
more than one output|that is, n > 1|change the output expression from ([y1 ]; : : :; [yn ])
to [(y1; : : :; yn )] and use an unzip(n) actor to change the stream of tuples back into a tuple
of streams. The actor now has one input channel and one output channel and thus has the
form (s0 ; f([p]; s : s; s : [e])g); this actor is implemented by map (p : e).
3.3 Phased-form dataow actors
In this section, I introduce the phased form of dataow actor. Execution of a phasedform actor proceeds in a series of \phases"; phased form thus expresses a ner grain of
computation than standard form. One of the motivating factors behind its development was
a desire to better express non-strict and demand-driven execution. By breaking actor rings
up into phases, actors need perform only the minimum amount of input and computation
necessary to produce a token on a given output.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
70
Phased form also permits non-deterministic behaviour; the semantics outlined in this
section provides a means of characterising non-deterministic behaviour. In particular, an
actor can non-deterministically choose to consume tokens from dierent inputs, yet still
form a deterministic process.
To clarify this point, consider the sum-of-squares actor, sumsqrs; it is similar to summer,
but squares each of its two input tokens before summing them:
sumsqrs rule ([x]; [y ]) : [x2 + y 2 ]
actor
This denition says nothing about the order in which inputs are read|or outputs produced, although there is no choice in this particular case. As we saw in section 3.2.3, a
standard-form actor reads all input tokens before performing any computation or output.
But this need not be so: sumsqrs could read a token from its rst input and square it before
attempting to read a token from its second input. It could even wait for a token on either
input, square it, and then wait for a token on the other input. Although this actor does
not satisfy Kahn's blocking-read criterion, it nonetheless implements a Kahn process.
The phased form of an actor is thus a way of precisely expressing the ordering of input, computation, and output, with non-determinism allowed in a limited and manageable
way. As we will see, this is useful when considering demand-driven execution and potential
deadlock situations. There are a number of other motivations for this work on phased-form
actors:
{ Phased form can express some actors that cannot be expressed in standard form, such
as the iota actor described in section 3.3.4.
{ Taken as an operational denition, computation can proceed before all input is received.
For a single actor, this is unlikely to be important; for a network, however, it may well
be, since computation can proceed in one part of the network even though other parts
are blocked waiting for data.
{ Phased form has the potential to provide a more consistent semantics of hierarchical
actors, although I have not yet been able to develop an algorithm that computes the
phased form of an actor network. (See section 3.3.6.)
CHAPTER 3. DATAFLOW PROCESS NETWORKS
(a)
actor name(v1; : : :; va) init
s0
start
0
rule 1 p : update (s)
output (s)
select(s)
rule
(b)
k p
..
.
:
update (s)
output (s)
select(s)
actor name(v1; : : :; va)
start
s0
rule 1 p : eo
rule
k p
..
.
: eo
71
= eu
= eo
= ep
= eu
= eo
= ep
! ep
! ep
Figure 3.9. Sugared syntax of a phased-form actor: a) stateful actor b) stateless actor
Phased-form actors are a generalisation of Buck's multi-phase integer dataow actors
 and the cyclo-static dataow of Engels et al ; a comparison is given in section 3.3.4.
3.3.1 Syntax
Phased-form actors are an extension of standard-form actors. There are two key dierences:
{ At each ring, only a subset of the rule set is considered for ring. This subset is called
the eligible rule set .
{ If more than one rule from the eligible set is satised, the actor non-deterministically
chooses and res one of them.
The full phased-form syntax is shown in gure 3.9a. The actor has k 1 rules. In order
to identify the eligible rules, each rule is explicitly numbered. The initial eligible rule set,
0 where 0 f1; : : :; kg, is given by the start clause. When a rule is red, the actor uses
the select action to update the eligible rule set for the next ring.
There are some restrictions not made explicit in the syntax. Firstly, token patterns
must be irrefutable (that is, they cannot fail to match). As for standard-form, the state
pattern in the actions must also be irrefutable. Secondly, the right-hand side of the select
CHAPTER 3. DATAFLOW PROCESS NETWORKS
72
action is either a set of integers, or an expression of the form
if e then fIntg else : : : else fIntg
where e is a boolean expression and Int stands for a literal integer constant. This syntactic
form ensures that the eligible rule sets are manifest in the actor text. 0 must also be a set
of literal integer constants.
Often, some rules do not perform all of the three possible actions. For convenience,
I omit the update clause if the update action is update s = s, and the output clause if
the output action is output s = [ ] (or a tuple containing an appropriate number of empty
sequences).
Some examples will clarify how phased-form works. The version of sumsqrs that nondeterministically reads a token from either input is written with four rules; it is shown in
gure 3.10. (An underscore represents a \don't-care" pattern.) The delay operator was
given as a (strict) standard-form actor on page 58. A strict actor is not, however, a very
good way to represent delay, since a delay must usually be able to produce an output token
before reading an input token. With phased form, we can write a version of delay that
can produce and consume tokens in arbitrary interleaving, shown in gure 3.11. In this
example, the internal state is a list of tokens; in phase 1, a token is removed from this list
and written to the output; in phase 2, a token is read from the input and appended to this
list.
For stateless actors, the simpler syntax of gure 3.9b is used instead.2 For example,
select is stateless, and has three rules:
select start f1g
rule 1 ([b]; [ ]; [ ]) : [ ] ! if b then f2g else f3g
rule 2 ([ ]; [x]; [ ]) : [x] ! f1g
rule 3 ([ ]; [ ]; [y ]) : [y ] ! f1g
actor
2
The eligible rule set is of course a kind of state; since, however, I am treating the eligible rules explicitly,
the term \state" will refer to other information maintained between rings.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
73
actor sumsqrs init
0
start f1; 3g
rule
1 ([x]; [ ]) :
update ( )
select( )
= x2
= f2 g
rule
2 ([ ]; [y ]) :
output (s)
select(s)
= [s + y 2]
= f1 ; 3 g
rule
3 ([ ]; [y ]) :
update ( )
select( )
= y2
= f4 g
rule
4 ([x]; [ ]) :
output (s)
select(s)
= [x2 + s]
= f1 ; 3 g
Figure 3.10. The non-deterministic sumsqrs actor
actor delay i init
[i]
start f1; 2g
rule
1 []
:
update (x : xs)
output (x : xs)
select(x : xs)
= xs
= [x]
= if null(xs) then f2g else f1; 2g
rule
2 [x]
:
update (xs)
select(xs)
= xs ++ [x]
= f1; 2g
Figure 3.11. The phased-form delay actor
CHAPTER 3. DATAFLOW PROCESS NETWORKS
22
desugar
66
66
66
44
actor name(v1; : : :; va)
init s0
phase 0
rule1 ; : : : ; rulek
74
33
77
77
77
55
((v1; : : :; va); s0; 0; fdesugarR [ rule1] ; : : :; desugarR [ rulek ] g)
22
desugarR
66
44
rule
i p !
update (s)
output (s)
select (s)
=
=
=
eu
eo
es
33
77
55
(p; s : eu; s : eo; s : es)
Figure 3.12. Desugaring a phased-form actor
Finally, the non-deterministic merge actor has two rules:
merge start f1; 2g
rule 1 ([x]; [ ]) : [x] ! f1; 2g
rule 2 ([ ]; [y ]) : [y ] ! f1; 2g
actor
Phased-form actors are desugared in a similar manner to standard-form actors. Figure 3.12 gives the translation: a desugared actor is a four-tuple containing parameters,
initial state, initial rule set, and the set of rules; each rule is a four-tuple of input patterns
and the update, output, and select actions. Instantiation also proceeds in a similar fashion
to standard-form actors, but in this case, an instantiated phased-form actor is a triple of
initial state, initial rule set, and the set of rules.
For example, an instantiated merge actor is
(( ); f1; 2g; f (([x]; [ ]); s : s; s : [x]; s : f1; 2g);
(([ ]; [y ]); s : s; s : [y ]; s : f1; 2g)
g)
3.3.2 Phase graphs
The possible orders in which rules can be selected are captured by the phase graph . A phase
is execution of a rule, so the phase graph is a useful tool for characterising and analysing
CHAPTER 3. DATAFLOW PROCESS NETWORKS
1
75
3
〈1,0〉 〈0〉
〈0,1〉 〈0〉
〈0,1〉 〈1〉
〈1,0〉 〈1〉
2
〈1〉 〈0〉
1
〈0〉 〈1〉
2
4
(a)
(b)
〈1,0,0〉 〈0〉
1
〈0,1,0〉 〈1〉
2
〈0,0,1〉 〈1〉
3
(c)
〈1,0〉 〈1〉
1
〈0,1〉 〈1〉
2
(d)
Figure 3.13. Phase graphs: a) sumsqrs; b) delay; c) select; d) merge
the behaviour of phased-form actors. As a notational convenience, rule identiers k are
used interchangeably with the rules themselves. Figure 3.13 shows the phase graphs of the
four example actors given previously, annotated with their consumption and production
vectors. Note that every vertex of the phase graph is in a cycle; this ensures that the actor
will continue to execute while it has input data.3
The phase graph has two kinds of vertex. Rule vertices correspond to a rule, and are
labelled with the rule's identier; each rule occurs exactly once. Choice vertices correspond
to non-deterministic choice, and are named choice , where is the set of its successor
vertices. Thus, a choice vertex occurs once for each non-singleton set in the select actions.
Choice vertices are coloured black; they are not labelled with their names since this is clear
from context. The vertex corresponding to the initial eligible rules set is marked by an
asterisk.
The edges of the graph correspond to allowable transitions between rules. For each
3
It may be useful to have a special phase, called say the initialisation phase, which has no predecessors (and
is therefore not in a cycle). This could yield some practical advantages, as it corresponds to computation
that can proceed before zero time.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
76
singleton set produced by a rule's select action, there is an edge from that rule vertex to
the vertex corresponding to the single rule; for each non-singleton set, there is an edge from
the rule vertex to a choice vertex. More precisely,
succ [ ( ; ; ; s : es)]] = succ0 [ es ]
succ [ choice ] = succ0 [ fg] = fg
succ0 [ ]] = fchoice g
succ0 [ if b then else es ] = succ0 () [ succ0 (es )
A sequence of rule rings corresponds to a path through the phase graph. We will write
a k-length path as a vector h1 ; : : :; k i. Let the paths function return the set of paths
from one vertex to another. If some vertex a in the path intersects a cycle, say, ha; b i,
the set returned by paths is innite, including the paths h: : :; a; : : :i, h: : :; a; b; a; : : :i,
h: : :; a; b; a; b; a; : : :i, and so on.
paths can be used to specify the cycles relation, which returns the set of cycles starting
at a given node:
[
cycles() = fpaths(; ) j 2 succ( )g
3.3.3 Semantics
Phased form allows a more precise description of the order in which tokens are consumed
and produced. As for standard-form, each phase fulls two conditions:
{ All input tokens are consumed before any output tokens are produced.
{ A phase must complete before another phase can begin.
Each phase is thus \strict"; because, however, an actor ring proceeds in a series of
phases, the actor is non-strict. I will dene the meaning of a ring and other forms of
execution in terms of paths through the phase graph; this falls short of a full semantics of
phased-form actors, but is sucient to describe several important characteristics.
CHAPTER 3. DATAFLOW PROCESS NETWORKS
77
A path is represented by a vector of rules:
Path ::= hRulei
Given a k-length path through the graph = h1 ; : : :; k i, we need to know the consumption and production vectors along that path, and the meaning of \executing" . Let
C (R) and P (R) be the consumption and production vectors of rule R in the same way as
for standard-form actors. The consumption and production vectors of path are then given
by
C () = C (1) + : : : + C (k )
P () = P (1) + : : : + P (k )
where the addition operator (+) is assumed to extend point-wise to vectors.
Firing a single rule is essentially identical to ring a single simple rule of a standardform actor. read, update, and output are the same as in section 3.2.3, but slightly modied
because a rule is now a four-tuple instead of a triple. Let the step semantic function execute
a single rule:
step [ Rule]] :: Input ! ! Input OutputSeg
step [ R] i s = (i0; s0; o0)
where
(is; i0) = read [ R] i
s0
= update [ R] is s
o0
= output [ R] is s
Note that I am not trying to give a full semantics here; in particular, I am examining
only the computation performed given a path through the phase graph|that is, with state
update and output production, but not with calculation of the next eligible rule set. A
full semantics would need to calculate sets of input-to-output sequence mappings. (Sets are
required to account for non-deterministic choice.)
Execution along a given path is given by the execute function. execute takes a path|
that is, a vector of rules|and returns the input-output mapping produced by executing
CHAPTER 3. DATAFLOW PROCESS NETWORKS
78
those rules in order. I use the (:>) operator on vectors in the same way as the cons (:)
operator on sequences.
execute [ Path]] :: Input ! ! OutputSegment execute [ h i] i s = ([ ]; s)
execute [ R :> Rs] i s = (o ++ o0; s00 )
where
(i0; s0; o) = step [ R] (i; s)
(o0; s00 ) = execute [ Rs] i0 s0
Now, a complete ring of a phased-form actor is execution along any cycle from the
start vertex:
Denition 3 (Complete ring) A complete ring of a phased-form actor is execution
along any cycle of the phase graph beginning on the start vertex 0 :
execute [ ] where 2 cycles(0 )
If there are cycles in the graph that do not pass through 0 , then there are an innite
number of complete ring paths. Section 3.3.4 gives an example of an actor like this. An
actor with a innite number of complete ring paths can be the phased-form equivalent of
SDF if it also satises a condition on the consumption and production vectors:
Denition 4 (Phased synchronous dataow) An actor with initial vertex 0 is phased
synchronous dataow i: i) f1; : : :; k g = cycles(0) is nite; and ii) the consumption
and production vectors along all cycles are equal:
C (i) = C (j ) ^ P (i) = P (j ); 8i; j : 1 i; j k
By summing the vectors around each of the cycles in gure 3.13 and applying this
criterion, it can be seen that sumsqrs is phased SDF, but the other three are not. Note that
a phased SDF actor is not necessarily deterministic. Here is an example of an actor that
CHAPTER 3. DATAFLOW PROCESS NETWORKS
79
exhibits this kind of \internal" non-determinism:
silly start f1; 2g
rule 1 [x]
: [x]
! f1; 2g
rule 2 [x]
: [x + 1] ! f1; 2g
actor
Note also that the denition of phased SDF does not include all actors that could be
considered to be SDF actors|see section 3.3.4 for an example.
In the introduction to this section, I showed by illustration that a non-deterministic actor
can produce a deterministic process. For a process to be deterministic, a non-deterministic
choice must not aect the computation performed by the actor. A necessary condition for
a deterministic process is that, for each choice vertex , all paths in cycles() have equal
C () and P (). A stronger, necessary and sucient condition must examine the output
state and sequences:
Denition 5 (Kahn actor) A phased dataow actor forms a Kahn process i for each
non-deterministic choice in its phase graph, cycles() is nite and either
1. All paths 2 cycles() have equal values of execute[[ ] , or
2. (a) All paths in cycles() have equal values of fst execute[[ ] , and
(b) All paths in cycles() write s before using it (see below).
In condition (1), all paths behave exactly the same; in condition (2), only the inputoutput mappings are the same, but the state is ignored in subsequent decisions anyway.
Condition 2b requires further explanation: execute[[ ] need not return the same state for
all in cycles(), provided that the diering states are ignored. Dene const x y = x. A
path = h1; : : :; k i writes the state before using it i there exists an i such that i has
an update action of the form const eu and 8j i, j has output and select actions of the
form const eo and const es .
This proposition is the main insight of this section. A practical means of determining if
the conditions are satised is to perform a reduction of execute on symbolic sequences. Consider sumsqrs. Its only choice vertex is choicef1;3g, and cycles(choicef1;3g) = fh1; 2i; h3; 4ig.
We then have, for the path h1; 2i,
CHAPTER 3. DATAFLOW PROCESS NETWORKS
80
execute [ h1; 2i] (([x1; : : :]; [y1; : : :]); s)
= (o ++ o0; s00 )
where
(i0; s0; o) = step [ 1]] (([x1; : : :]; [y1; : : :]); s)
(o0; s00 ) = execute [ h2i] (i0; s0)
= (o ++ o0; s00 )
where
(i0; s0; o) = (([x2; : : :]; [y1; : : :]); x21; [ ])
(o0; s00 ) = execute [ h2i] (i0; s0)
= ([ ] ++ o0 ; s00)
where
(o0; s00 ) = execute [ h2i] (([x2; : : :]; [y1; : : :]); x21)
= ([ ] ++ o0 ; s00)
where
(o0; s00 ) = step [ 2]] (([x2; : : :]; [y1; : : :]); x21)
= ([ ] ++ o0 ; s00)
where
(o0; s00 ) = ([x21 + y12]; x21)
= ([x21 + y12]; x21)
Following a similar process for the cycle h3; 4i yields the expression ([x21 + y12 ]; y12). This
satises condition 2a above. Since the state is written in rules 1 and 3, but not read until
rules 2 and 4, condition 2b is also satised, and sumsqrs therefore forms a Kahn process.
Of the other graphs in gure 3.13, select is a Kahn process because it has no choice vertices;
delay and merge are not, because they fail the equal consumption and production vector
condition.
3.3.4 Cyclo-static and multi-phase integer dataow
Buck  proposed multi-phase integer dataow actors. An integer dataow actor is such
that the number of tokens consumed or produced on each arc is a function of an integervalued control token. The REPEAT type of actor consumes an integer control token in its
rst phase, and then executes another phase the number of times given by that token. For
example, Buck's iota actor reads a control token with value n, then outputs the sequence
of integers from 1 to n inclusive. As a phased actor, we can write iota thus:
CHAPTER 3. DATAFLOW PROCESS NETWORKS
81
〈1〉 〈0〉
1
〈0〉 〈1〉
2
Figure 3.14. Phase graph of iota
actor iota
init
start
(0; 0)
f1g
rule
1 [n]
:
update ( )
select( )
= (1; n)
= f2g
rule
2 []
:
update (i; n)
output (i; n)
select(i; n)
= (i + 1; n)
= [i]
= if i = n then f1g else f2g
Figure 3.14 shows the phase graph of iota. Not surprisingly, the actor is not phased SDF
(there are innitely many cycles from the start vertex), although it is deterministic. Except
for its consumption and production vectors, this graph is exactly the same as that of another
special class of actor, the cyclo-static synchronous dataow (CSSDF) actors proposed by
Engels et al . The general form of a CSSDF actor is
actor CSSDF (n)
init
(0; 0)
start f1g
rule
1 p1
:
update ( )
output ( )
select( )
= (1; n)
= o1
= f2g
rule
2 p2
:
update (i; n)
output (i; n)
select(i; n)
= (i + 1; n)
= o2
= if i = n then f1g else f2g
Compared to iota, this actor has its value of n supplied as a parameter, instead of
CHAPTER 3. DATAFLOW PROCESS NETWORKS
82
being read from an input. Although this actor is SDF, the denition of phased SDF cannot
recognise it as such. Once instantiated and n is known, the actor can be expanded into
n +1 phases; in this case, the phase graph contains only a single cycle and is recognisable as
SDF. Lauwereins et al  show that a network of CSSDF actors can be scheduled statically,
and that the schedule can have (with certain assumptions about execution timing) lower
execution time than an SDF static schedule.
Both cyclo-static dataow and multi-phase integer dataow actors are used to reduce the
memory requirements required by a statically-generated schedule. Buck extends scheduling
techniques developed for boolean dataow (switch and select are the canonical boolean
dataow actors) to determine if a graph containing integer dataow actors has bounded
schedules, and to \cluster" a graph in order to extract control structures such as for-loops
and do-while loops .
3.3.5 Execution mechanisms
Phased-form actors are non-strict. In this section, I examine the implications for dynamic
scheduling of phased-form actors; in the next I will look at the implications for networks.
So far, I have not specied any restrictions on the granularity of phases. For example,
sumsqrs could also have been written
sumsqrs start f1g
rule 1 ([x]; [y ]) : [x2 + y 2 ] ! f1g
actor
which is the same as the standard-form version and is thus strict. Phased-form is more
useful if the actor fulls these (informal) criteria:
1. It consumes the minimum number of input tokens needed to produce a single output
token;
2. it outputs that token \as soon as possible" and performs no further computation; and
3. it outputs any other tokens that can be output without performing any further computation.
The criteria, if met, ensure that an actor performs only the minimum amount of input,
output, and computation necessary to keep data owing through the graph. Consider
CHAPTER 3. DATAFLOW PROCESS NETWORKS
83
the eect on a data-driven scheduler: since input patterns contain only irrefutable token
patterns, a scheduler need only count available tokens, not read their values. The scheduler
can thus re any actor that has sucient input tokens (and output space, if buers are
bounded) for one of its eligible rules.
Demand-driven execution is also possible. A phased-form actor is likely to perform less
work than a strict actor each time it is red. Let j be the output channel on which a token
is demanded. The target phase set t of a q -phase actor is:
t = f j f1 : : :qg; P [ ] (j ) > 0g
To meet the demand, the actor must execute any path from an element of the current
eligible phase set c to an element of t :
[
2 fpaths(a; b) j a
c ; b
t g
Note that the value of j cannot aect the path taken by the actor|there is no mechanism
by which the actor can know on which output data has been demanded. This would be yet
another possible source of non-determinism, and is I believe best avoided.
3.3.6 Hierarchy and strictness
One of the issues raised by Lee in his examination of dataow actors  is the dataow
equivalent of procedural abstraction. The natural choice for this role is the dataow network,
and block-diagram systems such as Ptolemy hierarchically compose actors of networks of
actors. As Lee points out, however, the semantics of a hierarchical SDF actor are not in
fact the same as the network of actors it represents.
Consider the hierarchical actor N of gure 3.15a, where component actors A and B are
homogeneous, strict, actors. Considered alone, N is a ne example of a homogeneous, strict
actor. When connected in the network of gure 3.15b, however, the network deadlocks: N
cannot re because its top input has no data, and its top output cannot produce data until
it res. Of course, this is no dierent from how any other strict 2 2 actor would behave.
It is, however, dierent from how N 's internal network would behave if it were substituted
in place of N . In that case, B could re, producing a token on the top output; A could
then re, producing a token on the bottom output; the cycle would then repeat. Ptolemy
CHAPTER 3. DATAFLOW PROCESS NETWORKS
84
N
A
N
B
(a)
(b)
Figure 3.15. Deadlock of a hierarchical actor: a) the actor network; b) a deadlocked
network
side-steps this problem by expanding all hierarchical actors before scheduling. Nonetheless,
it is somewhat unsatisfactory.
A phased version of this actor, say N 0, allows computation to proceed before receiving all
of its input. Supposing for simplicity that A and B are stateless and writing, for example,
A(x; y ) to mean the token produced by ring A with input tokens x and y , we can write
N 0 as
actor N 0
init
start
0
f1g
rule
1 ([ ]; [y ]) :
update (s)
output (s)
select (s)
= y
= ([B (y )]; [ ])
= f2g
rule
2 ([x]; [ ]) :
output (s)
select (s)
= ([ ]; [A(x; s)])
= f1g
When placed into the network of gure 3.15b, N 0 does not deadlock|it behaves in the
same way as its internal network would if connected the same way. N 0 can re rule 1 (B )
when it has data on the bottom input; in the next phase, it can re rule 2 (A), consuming
a new input token as well as the token received in the previous phase; it then repeats the
cycle. Phased form thus oers the promise of consistent semantics of hierarchical actors
and their corresponding networks.
An algorithm to nd the phased form of a hierarchical actor is an open research problem.
The goal is to nd an algorithm that approximates at compile-time the set of possible run-
CHAPTER 3. DATAFLOW PROCESS NETWORKS
A
B
select
85
A1
B1
1
5
A1B2
B1
6
B3
2
3
B2
B3
4
(a)
(b)
Figure 3.16. A phased network example: a) network graph; b) phase graph
actor NET
init
start
0
f1; 5g
rule
1 ([ ]; [x]; [ ]) :
update ( )
select ( )
= A(x)
= f2g
rule
2 ([b]; [ ]; [ ]) :
output ( )
select ( )
= []
= if b then f3g else f4g
rule
3 ([ ]; [ ]; [ ]) :
output (a)
select (a)
= [a]
= f1; 5g
rule
4 ([ ]; [ ]; [y ]) :
output ( )
select ( )
= [y ]
= f2g
rule
5 ([b]; [ ]; [ ]) :
output ( )
select ( )
= []
= if b then f6g else f7g
rule
6 ([ ]; [x]; [ ]) :
output ( )
select ( )
= [A(x)]
= f1; 5g
rule
7 ([ ]; [ ]; [y ]) :
output ( )
select ( )
= [y ]
= f1; 5g
Figure 3.17. The example phased network as a phased-form actor
7
CHAPTER 3. DATAFLOW PROCESS NETWORKS
86
time behaviours of the network. To illustrate, gure 3.16a is an example hierarchical actor,
called say NET, and gure 3.16b is its phase graph if actor A is homogeneous and stateless.
Each phase of NET represents one or more phases of A or B . The phased form description of
the network (obtained by tracing execution of the network by hand) is shown in gure 3.17.
3.4 Summary
This chapter has made two contributions to dataow theory. The rst is a semantics of
dataow process networks. Given a description of an actor's ring function, the semantics
gives the precise meaning of the dataow process formed by that actor. The semantic
description is not, however, as concise or elegant as I would like; in future work, I would
like to re-formulate the semantics to make it more so.
The second contribution is the description of phased actors. Although the semantic
description is incomplete, this work nonetheless oers a new characterisation of dataow
actors, with interesting indications for further work. In particular, the task of determining
the phased form of a complete network should prove challenging. It remains to be seen
whether phased-form actors will lead to more ecient scheduling of certain kinds of dataow
actors and networks, or whether they can only be a descriptive tool.
The formal description of actors has also paved the way for following chapters: in
section 3.2.5, I argued that any dataow actor can be implemented with ve schema. If we
can implement functions that correspond to these schema, then any function that can be
expressed in terms of those functions can be translated into a dataow network.
Chapter 4
Visual Haskell is a visual, dataow-style language based on Haskell. Its intent is to ultimately provide a complete visual syntax for Haskell, for use as a program visualisation
tool, as well as a programming language in its own right. In both of these roles, it is
complementary to Haskell's standard textual form, not a replacement or \improved" notation. Presently, only part of Haskell is supported (notable omissions are class and type
declarations). Even so, it is suciently well-developed to be useful.
Visual Haskell evolved out of a need to explain some of the work in this thesis to nonfunctional-programmers. It began as an ad-hoc notation for \drawing" functional programs
(see ); later, Ken Dawson of UTS implemented a prototype editor for this language
, stimulating its development into a more precise and usable language.
The style of Visual Haskell is based on dataow: programs are described as data and
function boxes, connected by arcs representing ow of data. It is in some ways a superset
of dataow, supporting not only \structured dataow"  constructs such as conditionals
and case -statements, but also pattern-matching, higher-order functions, and scoping. And
it has Haskell's polymorphic type system, although no visual notation for it. Because,
however, of its lexical scoping, unrestricted Visual Haskell programs do lose one of the key
advantages of dataow: explicit data-dependencies throughout the whole program.
Of particular interest in Visual Haskell is the way it handles higher-order functions:
because Visual Haskell is curried, higher-order functions are as easy to construct as rstorder functions. There is no need for special \function slots" , and no enforced distinction
between rst-order and higher-order functions as in VisaVis . Any construct|a case 87
88
expression, say|can be a function, and can be applied in the same way as a named function.
The next two sections briey survey work on visual languages, and then introduce
Visual Haskell by example. Following sections formally give the syntax of Visual Haskell as
a translation from Haskell's abstract syntax into a concrete visual syntax.
4.1 Related work
Visual programming languages (VPLs) are relatively new. Although still the subject of
disagreement on their worth, there are nonetheless many \real-world" projects that use
visual programming . The success of these systems indicates very strongly that visual
programming|if applied to appropriate problem domains and supported by appropriate
tools|oers a kind of understanding that is absent in purely-textual languages.
Two of the most successful interface paradigms in visual programming languages are
dataow and forms . In signal processing, dataow visual languages have been used
for some years [17, 88], because of the common use of block diagrams in describing signal processing systems. They have been used successfully in other elds as well, such as
image processing and instrumentation ; Hils  surveys a number of dataow visual
languages. A form is a layout of cells, each containing a formula that computes its value,
usually in terms of the values of other cells. Many dataow languages use forms as well as
dataow: Ptolemy , for example, uses a form to enter actor parameters, and dataow
to connect streams; Labview  uses forms as \front panels" for \virtual instruments."
Informal diagrammatic notations have been used to describe or explain functional programs for some time. Reade , for example, explains function application using boxand-arrow diagrams; Kelly  illustrates networks of streams and processes written using
an annotated pure functional language; Waugh et al  illustrate the eect of program
transformation on parallelism.
There have also been proposals for formal visual functional languages. Cardelli 
proposed a visual functional language in which function application is denoted by juxtaposition of a function name with its arguments; bracketing is denoted by containing boxes;
pattern-matching can select one of several expressions; bindings are denoted by placing a
left-pointing arrow between a name and an expression. Figure 4.1 shows this denition of
the factorial function in Cardelli's language:
n
89
n
n
Figure 4.1. The factorial function in Cardelli's language
fact 0
= 1
fact (n+1) = (n+1) * fact n
There are two frames: one for each clause. In the top frame, the vertical bar represents zero,
the box one. In the bottom frame, the heavy rectangle attached to the ellipse represents
\+1". Boxes enclosing arguments \point" to the function applied to them. The whole
expression is bound to the icon \!".
Cardelli suggests that the visual language is most useful when itself applied to the
manipulation of two-dimensional data structures. He gives examples of manipulations on
boxes containing characters and other symbols, and of functions which place a frame around
a box, and which decompose a compound box into a list of its components.
Although not a functional language, Najork and Golin's visual dataow language ESTL
(Enhanced Show-and-Tell)  has many similar features, including higher-order functions
and a polymorphic type system. A key concept in ESTL is inconsistency : an arc that
passes through an inconsistent box cannot carry data. For example, gure 4.2 illustrates
the factorial function in ESTL. To the left is its type declaration: factorial is a function
from integers to integers. The main box is split into two sub-boxes. In the left one, the
input data ows into a box labelled \0"; if the input data is zero, then the box's value,
one, is passed to the output. Otherwise, the box is inconsistent and produces no data. On
the right, the data ows into the predicate box \> 0"; provided the input datum satises
the predicate, the containing box is not inconsistent, and data ows to produce an output
value. If the datum is zero, then the box is inconsistent and produces no data.
Inconsistency is thus used to perform the role of conditional execution; together with
ESTL's structured type notation, it also performs pattern-matching. Iteration is also governed by inconsistency: the iteration construct repeatedly applies its internal dataow graph
90
Z
Z
0
–1
Z
>0
1
Z
Z
Figure 4.2. The factorial function in ESTL
to its previously-produced data for as long as the graph is consistent.
Higher-order functions are supported by function slots, in which a function icon is placed
inside the icon of a higher-order function. Visual Haskell's argument slots (section 4.5.1)
are a generalisation of ESTL's function slots. ESTL also includes a visual notation for a
polymorphic type system; this may be a good starting point for Visual Haskell's missing
type notation.
Poswig et al describe VisaVis , a visual functional language based on Backus'
functional programming language FP . The language is essentially a visual dataow
language, with explicit support for higher-order functions: function arguments are placed
within icons of higher-order functions. The VisaVis editor, implemented in Smalltalk, supports some interesting concepts to make the act of programming easier. For example, a
rst-order function icon can be dragged over a higher-order function icon to make the rstorder function into an argument. Dragging a box connected to the output of a function over
a box connected to the input of a second function cause the functions to become connected
by an arc. I do not consider issues such as these at all in this chapter. VisaVis does enforce
an articial (in my view) distinction between rst-order and higher-order functions, mainly
because it is based on FP.
Kelso also proposes a visual functional language in which programmer interaction inuences the design of the language . Expression graphs are similar to other dataow
languages; however, inputs to the expression are connected to terminator nodes containing
91
the argument type; outputs are connected to terminator nodes labelled with the type of
the entire expression (that is, a function type). Application of a function to an argument
is achieved by dragging an output node onto an input node. Sub-expressions can be collapsed into a single node. Mechanisms such as this are important to reduce the \clutter"
of complex visual expressions.
Visual languages cannot be represented by conventional grammars and other means of
describing programs, and are often described by example. There is, however, an increasing
amount of work on grammars for visual syntax; this is particularly relevant to work on
automatic generation of visual language parsers, as in . Golin and Reiss , for example,
use a \picture layout grammar." The underlying grammar model is based on multisets to
eliminate the ordering implicit in textual grammars. A number of primitive operators
specify relationships between pictures|for example, the production A ! contains(B; C )
matches a picture with a production C inside a production B . More complex productions
can be dened in terms of these operators, together with additional constraints on picture
attributes.
A more general formalism, conditional set rewrite systems (CSRS), is proposed by Najork and Kaplan . A CSRS consists of a set of rewrite rules on sets of terms, each
governed by a predicate on terms. For example, the rewrite rule
box(b); num(n; p) ! fbox(b); if inside(p; b)
states that b is a \nished box" if a number is located inside it. If, using this rewrite rule
together with several others, a picture can be rewritten to a single nished box, then it is
valid in the visual language dened by the rewrite rules. Najork and Kaplan show how a
CSRS can be used not only to specify visual syntax, but also (with a dierent set of rewrite
rules) to translate a picture into a textual language. They also show that a CSRS can
specify a three-dimensional visual language (presumably motivated by their work on Cube,
a three-dimensional logic programming language ).
Following sections of this chapter will touch on dierences between Visual Haskell and
visual dataow languages. One of motivations for using a functional language in this thesis is
the apparent correspondence between functional languages and dataow. This is highlighted
by the fact that languages for programming dataow machines are often functional . On
closer examination, however, there are some important dierences.
92
Ambler et al , in their survey and comparison of programming paradigms , highlight
some of the dierences between the functional and dataow paradigms. Because pipeline
dataow operates on streams of data, its evaluation mechanism is neither strict nor nonstrict (see section 5.3). Functions are not rst-class objects in dataow, whereas they are
in Visual Haskell|gure 4.17a, for example, shows a function value (a partially-applied
-abstraction) owing along an arc.
Ambler et al do not comment on structuring mechanisms for dataow, such as described
by Kodosky at al . As I point out in section 4.4.2, Visual Haskell includes some mechanisms similar to those used in structured dataow languages, but more general. On the
down-side, these constructs may interfere with dataow schedulers and so on, since the
\ow" of data into these constructs is not always explicit. Another powerful feature of
functional languages that is rare in dataow languages is pattern-matching, although ESTL
 and CUBE  both support a form of pattern-matching.
Finally, a key dierence between functional and dataow languages is the treatment of
I/O. In a functional language, I/O is performed in two key ways : i) by calling system
primitives with lazy lists representing the whole history of input or output; or ii) by calling
system primitives with a continuation function. Recently, the idea of monadic I/O  has
been adopted: this technique is supercially similar to continuations; however, the external
\world" is single-threaded through the I/O code, allowing I/O to be performed immediately
as a side-eecting operation. In contrast, dataow languages perform I/O with special nodes
that produce or consume streams.
4.2 An introduction to Visual Haskell
Visual Haskell is essentially a visual dataow language: functions are represented by named
boxes, and function application by arcs between boxes. Figure 4.3 shows the Visual Haskell
form of the following version of the factorial function (from section 2.2):
fact n | n == 0
= 1
| otherwise = n * fact (n - 1)
A function denition is displayed in its own window, indicated by the shadowed rounded
rectangle. The name of the function, fact, and its icon, a stylised \!" character, are displayed
in the window's title bar.
93
fact
n
0
1
n
n
n
1
Figure 4.3. The factorial function in Visual Haskell
On the inside right of the window frame are the input patterns; in this case, there is only
one, n. On the inside left are the result ports : the expressions connected to this port are the
result values of the function. The guarded alternatives are separated by a dashed line. At
the top right, for example, is the guard n == 0. (I use iconic, not textual, representations
for binary operators. For example, = instead of ==, and instead of *.) The boxes for n
and 0 are adjacent to the box for ==; this is an alternative notation to connecting boxes
with arcs. The result expression|in this case, just the constant 1, is connected to a result
port. Below the dashed line, the otherwise condition is \drawn" as blank space. Note the
recursive call to fact, denoted by its icon.
Pattern bindings are shown by connecting an arc from an expression to a pattern graphic.
The binding
twopi = 2 * pi
is shown in gure 4.4a. (A variable is the simplest pattern.) Note that the port on the
pattern is semi-circular instead of triangular, and that the arc to a pattern port does not have
an arrow. Patterns can be nested: they look rather like an expression drawn \backwards."
For example, gure 4.4b shows the pattern
((x,y) : z : zs) = ...
The box divided by the jagged line is the pair constructor, and the tall narrow box is a list
constructor. Note that patterns can either be connected by an arc, or juxtaposed in the
appropriate location.
Figure 4.5 shows the following denition of Haskell's map function:
map f []
= []
map f (x:xs) = f x : map f xs
94
x
y
twopi
2
z
pi
zs
(a)
(b)
Figure 4.4. Patterns
map
f
[]
[]
f
f
f
x
xs
Figure 4.5. The map function
As before, the function name and icon appear in the window's title bar. This time, however,
the function denition has two clauses, separated in the visual syntax by a solid horizontal
line. Note the use of the list constructor icon as a pattern at the right-hand side of the
lower clause, as well as as a data constructor towards the left of this clause. The recursive
call to map is denoted by the double-box icon. Its rst argument, f , is shown inside the
icon itself. This is an example of an argument slot|see section 4.5.1.
The \icons" I use in this thesis are rather plain for ease of drawing|more interesting
icons would be used in a real graphical development system. Figure 4.6 shows the icons I
use for some of the Haskell standard-prelude data constructors, while gure 4.7 shows icons
for some standard-prelude functions on lists. Data constructors like Tuple2 are produced
by the desugaring translation (section 4.3.4).
The choice of iconic notation is I think a very personal one and one not readily systematised. In my choice of icons, I have used a visual theme to represent a class of icons and
various (and arbitrary) decorations) to indicate specic icons. For example, a doubled box
a) Tuple 2
95
c) Cons 1
b) Tuple 3
d) Cons 2
e) List 2
g) (:/)
f) List 3
h) (:+)
Figure 4.6. Icons for some standard prelude data constructors
(a) map
(c) foldl
(e) scanl
(b) zipWith
(d) foldr
(f) scanr
Figure 4.7. Icons for some standard prelude functions
indicates a higher-order function over lists; higher-order functions over vectors (in chapter 5) have the obscured box lled black. Note that Visual Haskell does not depend on
icons: they are \syntactic sugar," and any Visual Haskell program can be drawn with labelled boxes (the plain syntax described in section 4.4) instead of icons. Although excessive
use of icons can certainly obscure program meaning to one unfamiliar with them, I believe
that familiarity with a consistently-designed icon set yields a great improvement in ease of
program understanding.
An icon-like annotation is also used in arcs to indicate type. For example, list-carrying
arcs are decorated with an asterisk-like annotation. These annotations are a useful visual
aid to program understanding, although I have not yet formalised their representation.
Incidentally, I am in the habit of drawing Visual Haskell expressions so that the data
ow is from right to left. The reason is simple: this is the same direction in which data
\ows" in textual programs. For example, in f g h, data \ows" through h, g , and then
f |see gure 4.8. Visual Haskell, however, does not care about the direction, and some of
the diagrams in this thesis use left-to-right data ow instead.
96
f
g
h
Figure 4.8. Function composition
A prototype visual editor was constructed by Ken Dawson as an undergraduate project
; the editor indicates that a two-view development system based on Visual Haskell is
feasible. One interesting point noted during the construction of this prototype is that
a visual parser is not needed to interpret visual programs. The prototype editor builds a
graph representing the Visual Haskell program as the user \draws" the program. The editor
is syntax-driven: in any given context, the editor only allows the user to draw pictures that
function, the system traverses the graph, generating (linear) Haskell code on the way|
there is never any need to parse a two-dimensional picture. Cardelli made much the same
observation, although his system translated abstract syntax trees into visual representations
.
Despite the fact that Visual Haskell does not include all of Haskell, Dawson's system
was able to generate executable Haskell functions. The type declaration for each function
was inserted textually into a form associated with the function; other information in the
form included the numbers of inputs and outputs. During generation of textual Haskell, the
function type was simply written verbatim to the output le. Although Dawson's printer
would only print acyclic graphs, this is an oversight that would be simple to correct.
4.3 Visual syntax preliminaries
Because Visual Haskell was designed to be an alternative notation for Haskell, this chapter
species Visual Haskell in terms of Haskell. Although this approach may limit the scope of
concepts that can be used in or introduced into this visual language|for example, ESTL's
concept of inconsistency|it does have some advantages:
higher-order functions are two examples.
{ It is likely to be easier to precisely dene the semantics of Visual Haskell in terms of
Haskell's semantics, than attempting to dene a new semantics from scratch.
97
(a)
(b)
(c)
(d)
(e)
(f)
Figure 4.9. Simple visual elements: a) output ports; b) input ports; c) containment; d)
data connection; e) pattern connection; f) adjoinment
{ It makes the notion of a \two-view" development system  feasible.
{ Visual Haskell programs can be executed by standard Haskell compilers and interpreters;
all that is required is a translator from visual to textual syntax.
The remainder of this section describes the means by which the visual syntax is specied.
4.3.1 Visual elements
A Visual Haskell program is composed of many visual elements, arranged on paper or on
a computer screen. The surface on which elements are arranged is called the canvas (from
). Any valid program fragment is a pict (short for \picture"). Picts are recursively
composed of simpler picts, and ultimately of primitive picts|boxes, icons, lines, strings,
and so on. There are two special kinds of primitive pict: ports and arcs . Ports serve as
connection points between picts. Output ports (gure 4.9a) are triangular if they carry
a non-function value, and rectangular if they carry a function. Input ports (gure 4.9b)
are triangular in expressions, and semi-circular in patterns. Arcs join picts via their ports.
There are two kinds of arcs: data arcs (gure 4.9d) are used in expressions, while binding
arcs (gure 4.9e) are used in patterns.
There are three key ways of composing complex picts. Two picts are attached if they
are located immediately adjacent to each other (gure 4.9f). Every port, for example, is
attached to a pict of some kind. Picts are connected if there is an arc from a port of
one to a port of another (gure 4.9d and e); the connected picts, the ports, and the arc
together form a new pict. And a pict contains another if the second is wholly enclosed
98
by the rst (gure 4.9c). Nickerson  claims that these three constructions|which he
calls adjoinment , linkage , and containment |account for the majority of diagrams used in
computer science.
4.3.2 Specifying the visual syntax
The syntax of Visual Haskell is specied as a translation from Haskell's abstract syntax to
a concrete visual syntax. The abstract syntax used in this chapter is given in gure 4.10.
As far as a syntax of Haskell goes, it is by no means complete, but it is enough for the
purposes of this chapter. Some points to note:
{ Sub-scripts distinguish unique occurrences of each production.
{ Functions like Tuple2 and Cons1 are produced by a de-sugaring translation (section 4.3.4).
In Haskell, these are equivalent to ( ; ) and (:) respectively.
{ A binary operator (op ) enclosed in parentheses is treated as though it were a function
identier. The de-sugaring translation translates all operators into this form.
{ The constant production (k) also includes oating-point literals, character literals, and
string literals. String literals are treated as constants instead of as lists of characters.
{ The umatch and gmatch productions represent Haskell's \match" phrases|see section 4.4.5.
{ A semi-colon indicates concatenation. For example, the binding d1; d2 contains two
bindings (each of which may itself be a series of bindings).
{ Square brackets indicate an optional part. In the visual syntax, optional non-terminals
are shown as though they were present; it is understood that visual non-terminals are
actually present only if the textual ones are.
{ The backslash used in the -abstraction is not in constant-width typeface. It should be,
but I am unable to get LaTEXto produce it.
The translation from abstract syntax to a picture is broken into three passes:
1. A textual de-sugaring pass (section 4.3.4). This removes some of Haskell's syntactic
sugar to reduce the number of special cases. For example, inx operators are changed to
prex functions, and special syntax for lists and tuples is changed into data constructors.
v
f
k
c
op
p
e
g
d
match
!
!
!
!
!
!
!
j
j
j
j
j
j
!
!
j
j
j
j
!
(non-function identier)
(op) j (function identier)
99
Values
Function names
Literal constants
Data constructors
Binary operators
Patterns
Expressions
j j :::j j j :::
j
j :::
j j j j j j :::
v j k j c j f j p1 p2 j v @p
vjkjcjf
e1 e2
e1 . e 2
let d in e
n umatch
case e of match1; : : : ; matchk
if g1 then e1 else if else ek
e
Boolean guards
d1 ; d 2
Bindings
p=e
p = e where d
p | g1 = e1 ; ; | gk = ek [where d]
f match1 ; : : : ; f matchk
umatch j gmatch
Match phrases
0 1
[] ()
Tuple2 Cons1
+ - / * :+ :/
2. A translation from Haskell's abstract syntax into the core visual syntax (section 4.4).
Each production is rewritten into a concrete visual syntax.
3. A selective \visual sugaring" translation (section 4.5.1), in which a picture in core syntax
is modied to improve its appearance and layout.
The visual syntax is quite abstract|it does not specify details such as the exact position
of picts on the canvas, but only the topological relationships between them. For example, it
states that two picts are connected, but does not state their relative or absolute positions on
the canvas. The exact layout and positioning of picts will, we shall assume, be decided by
some other mechanism called the layout manager. The layout manager will be some form
of automatic graph drawing or screen layout algorithm, assisted interactively by a user.
4.3.3 A simple visual language
To assist in the notation of and motivation behind the visual syntax and sugaring sections
(sections 4.4 and 4.5.1), I will give an example of a very simple language. Consider the
100
following expression language, which has only variables, and functions of arity 1:
v ! (non-function identier)
f ! (function identier)
e ! vjf e
In a positional grammar approach, the visual syntax of this language could be specied
using primitive visual operations. Suppose that the primitives vbox and fbox describe particular kinds of boxes used for variables and functions. The operation name produces the
displayable string representing its argument; contains and connect represent the containment and linkage relations. Then, we could write
v ! contains(vbox; name(v ))
f ! contains(fbox; name(f ))
e ! v j connect(e; f )
Although I could translate Haskell's abstract syntax into a grammar such as this, I have
chosen a more direct approach|the result of the translation is a visual representation,
not just a textual description of one. Figure 4.11a gives the rewrite rules for the simple
language. The rst two rules are straight-forward: variables are represented by a grey box
with a single output port; functions by a larger white box with one input port and one
output port. The name of an identier enclosed in quotes is meta-syntax for the equivalent
displayable string.
Now, the third rule rewrites function application. A diamond-shaped graphic represents
a visual non-terminal |that is, the visual equivalent of the production with which it is
labelled. Every visual element other than non-terminals is concrete visual syntax |that is,
elements that become part of the picture. In this case, the only such element is the arc that
connects the output port to the input port. By recursively applying the rewrite rules, the
complete picture is produced; gure 4.11b, for example, is the picture that represents the
sentence f (g x).
With currying and functions of more than one argument, this simple approach doesn't
work. Two new concepts are needed: live and dead ports; and matching against already-
101
v
⇒
“v”
v
⇒
“v”
f
⇒
“f”
f
⇒
“f”
f e
⇒
f e
⇒
f
e
(a)
f
e
(c)
f
g
x
(b)
Figure 4.11. The visual syntax of a simple language: a) translation rules; b) a simple
sentence; c) translation rules with port matching
existing ports. I will illustrate these concepts with a more complex visual syntax for the
same language; functions with multiple arguments are left until section 4.4.1.
Figure 4.11c gives the translation rules with port matching. When a variable or function
is encountered, it is created with live ports; these are coloured grey. Now, when two objects
are connected, the connected ports are killed , and become black. The diculty is that
the ports already exist: if I draw them as black ports, then they will be new additions to
the picture, and the picture will end up with grey ports and black ports. By matching
against existing ports, we can avoid this diculty. Consider the input port of e in the
third rule of gure 4.11a: it is black, and partially obscures another grey port. In order to
apply this rewrite rule, the obscured grey port must match a grey port on e. The result
picture contains the obscuring port|that is, the black one. In contrast, the output port of
f matches a live port, and remains live.
Note that the reason for port matching is to make it easier to support curried functions,
not merely to change the colour of connected ports! Although this seems complex at rst,
it has removed the need to translate Haskell into an intermediate language, as in an earlier
paper .
Having translated a program into a picture, it is unlikely that this picture will be as
appealing as it could be. Icons, for example, are a popular ingredient in visual interfaces.
102
“v”
⇔
v
“f”
⇔
f
f
g
x
f
x
(b)
≥0
“v”
fff
⇔
“v”
“v”
f
fffffff
g
x
fff
fffffff
≥1
(a)
(c)
Figure 4.12. Sugaring the simple language: a) the sugaring rules; b) before sugaring; c)
after sugaring
We might also seek to remove redundancies left over from textual notation: multiple boxes
for the same variable, for example. These changes to the picture do not aect its meaning,
but are a kind of visual \syntactic sugar." This kind of modication is expressed with a set
of bi-directional rewrite rules. Figure 4.12a shows a suitable set for the simple language.
The rst two rules allow a variable or function box to be replaced with an icon|the squiggly
graphic is meta-syntax for the icon representing the object with which it is labelled. The
third rule allows a variable box to be \shared" between applications.1 In all rules, the left
production is produced by the translation into core syntax, and the right is the alternative
form. All rules are reversible, hence the double-ended arrows.
A sugaring rewrite is allowed only if the result is acceptable to the layout manager. If,
for example, there is no icon dened for a particular function, then the layout manager will
simply avoid that particular transformation; if merging two variable boxes causes an arc
to cross another, then the merge will be disallowed. In other words, the sugaring rules are
used selectively and intelligently. To illustrate, gure 4.12b shows a fragment of a visual
program in core syntax; gure 4.12c shows how it might look after visual sugaring.
4.3.4 De-sugaring
The rst phase of the translation removes some of Haskell's syntax for lists and tuples. The
rewrite rules of gure 4.13 accomplish this. The amount of desugaring is minimal. The rst
1
To be pedantic, the language as given is too simple to even allow multiple variable occurrences. Assume
that there are other productions that I have omitted.
e1: :en: e
( e1 ; : : :; en )
[ e1 ; : : :; en ]
e1 f e2
e1 op e2
( e op )
( op e )
flip f
-e
103
) Consn e1 en e
) Tuplen e1 en
) Listn e1 en
) f e1 e2
) ( op ) e1 e2
) ( op ) e
) ( op ) [2;1] e
) f [2;1]
) negate e
(4.1)
(4.2)
(4.3)
(4.4)
(4.5)
(4.6)
(4.7)
(4.8)
(4.9)
Figure 4.13. De-sugaring rules
three rules (equations 4.1 to 4.3) recognise a series of comma- or cons-operators and combine
them into a single constructor; this allows the use of more meaningful icons. Equation 4.4
removes inx operators formed by back-quoting a function. Equations 4.5 to 4.7 translate
binary operators and sections. Equations 4.7 and 4.8 produce a \permuted function"|see
page 106. Equation 4.9 translates the only unary operator, negation.
4.4 The core syntax
The core syntax of Visual Haskell is specied by a set of rewrite rules from Haskell's abstract
syntax directly into concrete visual syntax, in the style of section 4.3.3. The use of ports
is more complex, and this is explained in section 4.4.1. The rules are given in ve groups:
simple expressions, structured expressions, patterns, bindings, and \match phrases," in
that order. Note that the recursive re-application of rules implicitly selects the correct
rule according to context|that is, the rule applied for an occurrence of say v is selected
according to whether v occurs in an expression or a pattern.
4.4.1 Simple expressions
This section gives the syntax of simple expressions|that is, expressions that do not use
containment. This small subset of Haskell is approximately equivalent to the language
features of pure dataow languages. Figure 4.14 gives the rewrite rules for these expressions:
variables, constants, data constructors, function application, and function composition.
104
Variables and constants (gure 4.14a and b) are the same as in gure 4.11c. Function
variables and data constructors (gure 4.14c and d) are also similar to gure 4.11c, but
have n input ports, all live. n is the arity of the constructor or function; from here on, n
will always mean the arity of the whole production under consideration. Unlike the earlier
examples, however, the output port is rectangular, indicating that it is function-valued.
Visual sugaring can be used to replace the boxes used here with icons|see section 4.5.1.
Recall that enclosing an object's identier in double quotes is meta-syntax for its name
as a displayable string. The name of a variable or function is its identier. There are some
special names: the name of a parenthesised operator is the operator without parentheses|
for example, the name of (+) is \+"; the names of the constants [] and () are \[ ]" and
\( )"; the name of the wildcard ( ) is a blank string.
Application of a function-valued expression to an argument connects the corresponding
picts (gure 4.14e). Because a function-valued expression can have more than one live input
port, port matching is used to select the set of live ports. This is indicated by the dashed
line between the input ports of e1 . The top-most live port is connected to the argument
pict, and is killed, changing its colour to black. This is how currying is handled in the
visual syntax: each time an additional argument is supplied to a function, the next live
port is connected and killed; eventually, if all arguments are supplied, the function box has
no remaining live ports.
Port matching is also used on the output ports of e1 and e2 . The output port of e2
matches a live port, which can be either triangular or rectangular, as indicated by the
superposition of the two shapes. The port is killed. The output port of e1 matches a
rectangular port, since e1 must be a function. The result port is annotated with a small n:
this means that it is a triangle if n is zero, or a rectangle if n is greater than zero. Thus, if
the newly connected port of e1 was the last one|that is, the function is applied to all its
arguments|the port changes from a rectangle to a triangle.
Once an expression has been used as an argument, it cannot have any live input ports.
The black diamond in the lower corner of the e2 non-terminal means that any remaining
live ports are killed.
Function composition (gure 4.14f) is similar to function application. Because e1 and e2
must both be functions, the match shapes for the output ports are both rectangular. The
main point to note is this: the rst live port of the result pict is the port attached to e2 ,
105
(a)
v
⇒
“v”
(b)
k
⇒
“k”
(c)
c
⇒
“c”
n
(d)
f
⇒
“f”
n
(e)
e1 e 2
⇒
(f)
e1 . e 2
⇒
n
e2
e1
e2
e1
n
(g)
f [i1, ..., in ]
⇒
Figure 4.14. Visual syntax: simple expressions
“f”
i1
n
in
1
106
not to e1 as for function application. This is indicated by the \1" annotation on e2 's input
port. If e1 has more than one live port, then all but the rst also remain live, and will be
connected after the port attached to e1 . (Usually, though, e1 will have no remaining live
ports.)
In a visual language, it is easy to apply arguments in arbitrary order. To express this,
I use the special syntax f [i1 ; :::; in ] to denote a function variable to which arguments are
supplied in a dierent order. The j 'th argument to f [i1 ; :::; in ] is the ij 'th argument to f .
This I call \permuted application"; permuted functions are produced by some of the desugaring rules (section 4.3.4). The visual syntax of a permuted function variable is similar to
that of a normal function, but with port j annotated with ij . These numbers are concrete
syntax|that is, they appear on the canvas. In a graphical development environment,
permuted application would, I expect, be used more than in standard Haskell, because the
visual representation does not impose an order of arguments as a textual representation
does.
An example will clarify how function application and composition works. Consider the
expression
((+) x . negate) y
Figure 4.15a shows its visual terminals; gure 4.15b show three steps in the translation,
from top to bottom. In the rst, (+) is applied to x: the connected ports are killed. In
the second step, this pict is composed with negate: the second port of (+) is matched, and
connected to the output port of negate. Note that the input port of negate remains live.
Finally, the pict just produced is applied to y : the connected ports are killed, as expected.
Note also that the output port of (+) changes to a triangle, since the last input port of the
whole pict has just been connected.
The alert reader may have noticed a source of ambiguity here: the picture at the bottom of gure 4.15b could also represent x + (negate y).2 The ambiguity arises because
composition does not retain any visual grouping construct. A visual editor could perhaps
best resolve the ambiguity by retaining the composition in its internal data structure; at
2
This is a useful distinction only if Visual Haskell is intended to provide a complete syntactic equivalent
to Haskell. In the original development of Visual Haskell, the idea of a \two-view" development system
featured very heavily; for such a system, the dierence between ((+) x . negate) y and x + (negate
y) is signicant. In future development of Visual Haskell, I expect that this exact correspondence will not
be necessary.
107
x
x
x
y
negate
negate
x
negate
(b)
(a)
Figure 4.15. An example translation:
three steps in the translation
y
((+) x .
negate) y:
a) visual terminals; b)
the user's request, it would display the grouping as a containing box, and allow it to be
removed or altered.
4.4.2 Structured expressions
With the aid of some simple conditional actors such as select (page 55), it is possible to encode loops and other constructs such as conditional execution in a pure dataow framework
. It is also possible to analyse a graph to extract the constructs encoded therein .
Nonetheless, Kodosky et al  argue that the dataow paradigm should be extended to
incorporate structured constructs. They add loops, a case construct, and a sequencing construct to the Labview language, calling the result \structured dataow." General-purpose
visual dataow languages generally provide such constructs|see Hils' survey . Specialpurpose languages such as that of Ptolemy  do not, relying instead on the lower-level
host language.
Haskell does not have explicit loops, since it uses recursion instead of iteration. Visual Haskell does, however, have several structures that resemble structured dataow: letexpressions, conditionals (if-then-else), -abstractions, and case-expressions. Each of these
is delimited by a containing box, or enclosure , and can be connected on the outside as any
other expression can. A novel feature arises because Haskell is higher-order: if a struc-
108
let
e
(a)
let d in e
⇒
n
n
d
if
(b)
if g1 then e1 else
if ...
g1
e1
⇒
n
n
else ek
ek
λ
(c)
\ umatch
⇒
umatch
case
(d)
case e of match1
...
matchk
n
e
match1
⇒
n
n
matchk
Figure 4.16. Visual syntax: structured expressions
tured expression is function-valued, it has one or more live input ports, and can thus be
connected in the same way as a function variable. This is an improvement over the language of my earlier paper , which required explicit apply nodes for all structures except
-abstractions.
The visual syntax of a let-expression is essentially a containing box labelled \let" (gure 4.16a), containing the expression result e and local bindings d. e is connected to a
dummy port on the inside of the enclosure. If the whole expression has non-zero arity n,
then the box has n live input ports attached to it. The output port is rectangular if n is
non-zero, otherwise triangular. In the visual sugaring phase, sharing can be used to connect
variables bound in d to uses of that variable in e. The area of the canvas over which sharing
109
can occur is called a region ; in this case, it is the entire inside of the box. To illustrate,
gure 4.17a shows the expression
let t = w * x1 in (x0+t, x0-t)
A series of conditional (if-then-else) expressions is grouped into a single visual construct
(gure 4.16b). (Translation into case-expressions, as in the Haskell report , would be
too cumbersome visually.) Each guard gi and its consequent ei are placed into one horizontal section of the containing box, but separated by the heavy arrow glyph. Sections are
separated by a heavy dashed line. gi and ei are each in their own region|that is, there
can be no sharing between them. There is no guard gk , so its region is left entirely blank.
As for let-expressions, a series of conditional expressions has one or more input ports if it
is function-valued. To illustrates, gure 4.17b is a function-valued conditional expression
applied to a variable:
(if b then f else g) x
-abstractions (gure 4.16c) are also a containing box; this time, however, the syntax
of the box and its contents are delegated to another production, called umatch (see section 4.4.5). umatch is similar to the enclosing box of let-expressions, but contains one or
more patterns for the -abstraction's arguments. Figure 4.17c includes a -abstraction:
map ((\x y -> x + y) (f x))
A case-expression (gure 4.16d) uses pattern-matching to select an expression from
several alternatives. Each of these alternatives is a match clause (see section 4.4.5); they
are \stacked" one above another in the order in which they are tested. The case value e is
connected to a special input port above the stacked match expressions; the grey rectangle
is an argument slot (section 4.5.1), so e can be placed within the case if the layout manager
will allow it. Again, the shape of the output port depends on n, as does the number (if any)
of input ports. Figure 4.17d is a function-valued case-expression applied to an argument:
(case b of
True
-> f
False -> g) x
Although I argued that these constructs have a precedent in structured dataow, they
are more general than structured dataow. A structured dataow construct behaves on the
110
let
if
x0
t
x0
f
w
b
x
g
x1
(a)
(b)
case
λ
x
f
b
x
y
(c)
f
True
g
False
x
(d)
Figure 4.17. Examples of structured expressions (see text)
outside just like a dataow actor: all of the data on which it operates comes in through
input ports. Because Visual Haskell has scope and named variables, however, this is not
necessarily true for the constructs just described. A -abstraction, for example, fulls this
condition only if it has no free variables. The -abstraction in gure 4.17c is like this; for
comparison, the -abstraction (\x -> x + y) is not, since y occurs free.
A similar idea applies to the other constructs: to conform to the dataow model, they
must not use data not supplied to them explicitly. The conditional in gure 4.17b, for
example, uses b even though b is not supplied to the construct by a dataow arc. Compare
this with the Labview case, which selects one of several functions , and then applies that
to an argument . The Haskell case can be used this way, as in gure 4.17d, but need
not be. In this sense, then, the Visual Haskell case is more exible. For -abstractions, a
transformation known as lambda-lifting can be used to eliminate free variables ; it may
be possible to nd a similar transformation for case-expressions.
4.4.3 Patterns
Patterns \de-construct" arguments, and bind names to expressions (or parts of expressions).
Haskell's pattern syntax is essentially a subset of its expression syntax; visually, patterns
look like expressions connected \backwards." Every pattern has one input port and zero
or more output ports; patterns are the only kind of object which can have more than one
111
output port. Patterns are not common in visual languages, although Enhanced Show-andTell (ESTL)  supports a very similar facility based on inconsistency .
Figure 4.18 gives the rewrite rules for patterns. Variables and constants are drawn as
grey boxes, with a single live semi-circular input port (gure 4.18a, b, and d). Non-function
variables also have a single output port. This port is not live|no patterns can be attached
to it|but the port can still be used for sharing, since sharing does not require live ports
(section 4.5.1). Data constructors are drawn as a white box with one input port and one
or more live output ports (gure 4.18c). As for expressions, this box can be replaced by an
icon in the visual sugaring (section 4.5.1).
Nested patterns are translated by gure 4.18e. Live output ports of a constructor are
connected and killed in order, in the same way in which function application connects and
kills live input ports. For example, the pattern (:+) x y rstly connects the rst output
port of (:+) to the input port of x; then the second output port to y . Note that some
common nested patterns are removed by the desugaring translation (section 4.3.4). For
example, (x:y :ys) is translated into Cons2 x y ys.
Finally, as-patterns are drawn as the pattern with a variable box attached (gure 4.18f).
The variable box has a single output port, which can be used for sharing.
4.4.4 Bindings
A binding binds a name to a value. Many visual dataow languages only allow binding of
names to functions (function bindings), and thus avoid the problem of free variables. Visual
Haskell also allows names to be bound to values (pattern bindings).
A series of bindings is displayed in the same region (gure 4.19a). As noted earlier,
the visual syntax does not specify the relative positions of bindings. In core syntax, the
two bindings are not connected; with sharing, pattern bindings can be connected, and thus
inter-mingled within the region. At the module level, the layout manager should place
bindings one above the other. At other levels, it should place function bindings one above
the other, and pattern bindings clustered together so that sharing can be used eectively.
The simplest kind of pattern binding has its value e connected to its pattern p (gure 4.19b). Any live input ports of e are killed. If a simple pattern binding has local
denitions, its right-hand side is put into a containing box (gure 4.19c). The appearance
is very like a let-expression, but without the \let" label, and with no input ports regardless
112
(a)
v
⇒
“v”
(b)
k
⇒
“k”
(c)
c
⇒
(d)
f
⇒
(e)
p1 p2
⇒
(f)
[email protected] p
⇒
Figure 4.18. Visual syntax: patterns
n
“c”
“f”
p2
p1
“v”
p
113
(a)
d1 ; d 2
⇒
d1
(b)
p= e
⇒
p
(c)
p = e where d
⇒
p
d2
e
e
n
d
(d)
(e)
p | g1 = e1
| ...
| gk = ek
[where d ]
f match1
...
f matchk
g1
e1
⇒
p
d
n
ek
⇒
“f”
n
“f”
f
match1
matchk
Figure 4.19. Visual syntax: bindings
gk
n
(a) umatch ! p1 pm
j p1 pm
j p1 pm
j p1 pm
114
d
e
d
e
d
-> let in
->
[where ]
= let in
=
[where ]
e
e
d
p1
e
)
d
pm
(b) gmatch ! p1 pm | g1 -> e1 ; ; | gk -> ek [where d]
j p1 pm | g1 = e1; ; | gk = ek [where d]
e1
g1
)
p1
d
ek
gk
pm
Figure 4.20. Visual syntax: match clauses
of its arity.
A guarded pattern binding has the form p | g1 = e1 ; ; | gk = ek [where d] (gure 4.19d).
The visual syntax of the right-hand side is very similar to that for conditionals (gure 4.16b),
with the addition of some bindings d. d is placed in its own region.
The nal rewrite rule is for function bindings (gure 4.19e). Within the region in which it
is dened, a function binding is shown as a small rounded rectangle containing the function's
name, and with an appropriate number of dead input ports and a dead output port. For
editing, the function denition is displayed in its own window: the title bar contains the
function's name and its icon (if it has one). The body of the window is a stack of match
phrases.
4.4.5 Match phrases
A match phrase, in Haskell, is a series of patterns, guards, and result expressions used in
case-expressions and function bindings. There are two types: those without guards, and
those with. These are represented in Visual Haskell by the productions umatch and gmatch
respectively; the production match can be either of these (gure 4.10).
115
Figure 4.20a shows the textual and visual syntax of unguarded match phrases. Textually,
an unguarded match is a set of patterns p1 : : :pm , a delimiter -> or =, an expression e, and
an optional where clause containing local denitions d. The dierence between the clauses
with delimiter -> or = is the context in which they occur: the former is used within caseexpressions, while the latter is used in function bindings. Although Haskell distinguishes
the two cases syntactically, Visual Haskell does not.
Visually, an unguarded match is similar to a let-expression, with the addition of the set
of patterns. The expression, bindings (if they exist), and the patterns are all in the same
region.3
A second type of unguarded match is also given in gure 4.20a; these contain a letexpression at the top level and have no auxiliary denitions. This simplies the common
case in which a let-expression occurs at the top level, as in f p1 : : : p2 = let d in e and
n p1 : : : p2 -> let d in e; visually, the eect is to remove a redundant containing box.
Figure 4.20b shows the syntax of guarded match phrases. Textually, a guarded match is
a set of patterns p1 : : :pm , a delimiter -> or =, a series of guards gi and consequents ei , and
an optional set of bindings d. Visually, a guarded match is similar to a series of conditionals,
but with the addition of the bindings and patterns. The bindings and patterns are within
the same region; as for conditionals, each gi and ei is isolated in its own region. Although
not shown in the gure, the visual syntax for an otherwise guard is just blank space.
4.5 Improving the visual syntax
The core syntax can be enhanced in several ways. In this section, I will rstly give sugaring
rules in style of section 4.3.3. These rules improve the appearance of Visual Haskell programs
considerably. They do not, however, help with one of the key reasons for using a visual
notation: the handle they give on structural properties of a program. For example, many of
the examples in chapter 5 illustrate arrays of functions connected in various ways. To assist
with this kind of program visualisation, more complex visual representations are needed,
and I give three that I use in this thesis.
3
can in fact redene variables in p1 : : : pm |although Haskell has no problem with this, there should
perhaps be a way of \crossing out" the over-ridden variables in p1 : : : pm .
d
116
4.5.1 Visual syntactic sugar
Figure 4.21 lists the sugaring rules. As explained in section 4.3.3, the layout manager
permits a sugaring rewrite only if the result pict can be sensibly laid out on the canvas.
There are four sets of rules: for icons, variable sharing, attachment, and argument slots.
Icons A critical ingredient in any visual language is the use of meaningful symbols. Vi-
sual Haskell|in common with many other visual languages|optionally uses icons to
represent application of certain functions; it also allows the use of icons for variables,
constants, and data constructors. Figure 4.21a gives the sugaring rules for icons. (Recall
that a quoted production is visual meta-syntax for a displayable string, and a squiggly
box is visual meta-syntax for an icon.) This icons I use for standard prelude data constructors and functions were shown in gures 4.6 and 4.7; more icons for special cases
will be introduced in following chapters where necessary.
Sharing In the core visual syntax, each occurrence of a variable in a textual Haskell pro-
gram produces a unique pict on the canvas. If layout permits, these picts can be shared |
that is, have more than one arc connected to them. There are two cases captured by
the rewrite rules of gure 4.21b: in the rst, the arcs from a variable box can be reconnected to a pattern variable box of the same name and with zero or more output
arcs; the variable box is deleted from the canvas. In the second, the arcs from a variable
box can be re-connected to another variable box of the same name with one or more
output arcs; the rst box is deleted from the canvas.
Attachment Picts can be attached instead of connected (gure 4.21c). Again, there are
two rules. In the rst, any two picts connected by a data arc can be attached; the
arc and the two ports disappear from the canvas. The gure uses a blank diamond to
denote any visual syntax; a numeral in the bottom-right corner distinguishes unique
occurrences. In the second rule, any pict and a pattern connected by a binding arc can
be attached.
Argument slots Enhanced Show-and-Tell (ESTL)  and DataVis  have function
slots . A function slot is a position in the icon of a higher-order function in which a function argument can be placed. Visual Haskell has a generalised form of this idea, which
I call argument slots : an icon can have slots for one or more of its arguments|whether
“v”
⇔
≥0
v
“v”
“k”
⇔
k
“c”
⇔
c
“f”
⇔
117
⇔
“v”
⇔
“v”
“v”
≥1
≥1
“v”
“v”
≥1
f
(a)
(b)
⇔
1
⇔
p
“f”
⇔
“f”
“v”
⇔
“v”
e
⇔
e
2
1
p
2
(c)
(d)
Figure 4.21. Sugaring rules: a) icons; b) sharing; c) attachment; d) argument slots
(a)
118
(b)
(c)
Figure 4.22. Illustrating type annotations: a) (a,b); b) [[a]]; c) Stream (Vector )
functions or not. If layout permits, the argument connected to the corresponding input
port is drawn in the argument slot|that is, within the icon.
There are three rules for argument slots. In the rst, a function argument to a higherorder function has its name placed into the slot. This is used frequently for higher-order
functions, such as the application of map in gure 4.4b. The second rule is similar
but applies to variables. The third allows any arbitrary expression to be placed within
an argument slot. This allows function icons to be placed into the slot; even complex
expressions can be placed into the slot if layout permits. In all three rules, the port
corresponding to the argument disappears.
Type annotations I use an informal system of annotations on arcs to indicate their types.
Figure 4.22 illustrates a few annotated arcs: type variables (such as ) are represented
by black circles; tupling by placing tuple element annotations side-by-side on an arc;
lists by an asterisk-like annotation; streams (section 5.3) by an open circle; vectors
(section 5.2) by a slash. If necessary, a type annotation is enclosed by a box, which can
in turn be annotated.
4.5.2 Iteration boxes
Most general-purpose visual programming languages support iteration in some form or
another. All of the visual dataow languages in Hils' survey , for example, support
iteration. One technique is the use of special iteration constructs; Labview, for example,
incorporates for-loops and while-loops into its structured dataow model in this way .
Each is a containing box with an internal dataow graph, which executes each time through
the loop. Other languages use cycles and special-purpose dataow nodes; in Khoros, for
example, the programmer places a LOOP glyph at the start of a section of ow-graph to
be iterated, and a feedback connection to this glyph from the end of the ow-graph section
.
119
f
f
(a)
(b)
Figure 4.23. Illustrating iteration: a) map; b) scanl
Pure functional languages rely on recursion instead of iteration. In a higher-order language such as Haskell, patterns of iteration are captured by higher-order functions; applying
the higher-order function is equivalent to coding an iterative loop in other languages (see
sections 5.2.2 and 5.3.4). Visual Haskell, along with the visual functional language VisaVis
, thus uses a function icon to represent iteration.
There is, however, a limit to how much information one icon can convey, and so in
previous work  I have used a representation similar to structured dataow iteration
constructs. Two examples are given in gure 4.23. In this representation, the computation
performed on each iteration is shown as a dataow graph inside a generic icon representing
the type of iteration. Each input to this graph is one element of an input aggregate (list,
stream, or vector); each output is one element of an output aggregate.
For lists, the generic icon is a white-shadowed box, as used by the icon for map. In
map f (gure 4.23a), for example, the internal graph is a function application|that is, f
is applied to an input element to produce an output element. If the function maintains a
\state" value between iteration, this is shown as a crossed box. In scanl f (gure 4.23b),
for example, the state is one input to each iteration; it is also updated with the output
element. Figure 5.22 shows a more complex example of this representation.
4.5.3 Unfolded higher-order functions
Higher-order functions combine functions, and are thus often more usefully thought of|in
a visual language|as a means of constructing program graphs. For example, I gave in
gure 4.14f a special syntax for function composition, which combines two function boxes
in a meaningful way. Without this syntax, f . g would be represented as a box labelled
\." connected to function-variable boxes labelled f and g .
f
f
(a)
120
f
f
f
f
(b)
Figure 4.24. Unfolded higher-order functions: a) map; b) scanl
Higher-order functions such as map and scanl can be thought of as representing an
\array" of function applications|one to each element of a list. Figure 4.24a illustrates
map shown in a manner that conveys this idea. The two narrow horizontal boxes represent
deconstruction of a list into individual elements, and construction of a list from its elements.
The dashed line symbolises elided function application boxes.
A second style of representation unfolds a higher-order function assuming certain properties of its argument. For example, gure 4.24b shows scanl as it would appear if its
argument list contained four elements. Both of these styles show programs using higherorder functions in a very \structural" way; sections 5.4 and 5.5 use unfolded representations
extensively.
I am unaware of any proposal to incorporate this kind of representation into a visual
language. Although Lauwereins et al  use unfolded diagrams, they do not appear to be
part of their visual interface yet. In Visual Haskell, these representations are still informal.
To incorporate them into a visual interface, one could perhaps mark a list (or other aggregate
data type) for \expansion." These unfolded representations would then be a valid sugaring
rewrite rule.
4.5.4 Wiring
A number of functions on lists re-arrange elements of their argument list. When used in
conjunction with unfolded higher-order functions, it is helpful to draw these functions as
\wiring." Figure 4.25 illustrates the expression map f reverse. The long rectangles on the
right and left represent list construction and de-construction respectively. reverse is shown
as a mass of wires, and map f is shown unfolded.
121
f
f
f
f
f
f
f
f
Figure 4.25. Wiring: map f reverse
The need for wiring is more apparent with the vector operations of section 5.2. Figure 5.5
gives example of additional wiring functions, while gure 5.9 uses them in the denition of
the Fast Fourier Transform.
4.6 Summary
There is, I believe, signicant value in a precise visual syntax for Haskell that can replace
the ad-hoc notations that are sometimes used. This chapter presented such a syntax for a
substantial portion of Haskell. The missing syntax will need to be provided to make Visual
Haskell complete: apart from type declarations, syntax is needed for user-dened operators,
modules, list comprehensions, and array comprehensions. In addition, a way of specifying
more sophisticated syntax, as used in sections 4.5.2 to 4.5.4, is also needed. One approach
I have explored is to translate abstract syntax into a low-level picture language like that
used in picture layout grammars. This approach turned out to be too cumbersome for the
core syntax, but may be acceptable if limited to special purposes.
Although I have used Visual Haskell mainly for program visualisation so far, the idea
of a \two-view" development system is intriguing. In a two-view system, the programmer can switch between text and pictures at arbitrary levels of a program. For example, a picture can contain an expression in a text box, while a text window can contain
a picture. Figure 4.26 illustrates the idea with two alternative views of the expression
map ((\x y -> x + y) (f x)) (illustrated as a complete picture in gure 4.17c).
122
λ
x
\x y –> x + y
f
x
y
map (
(a)
(f x))
(b)
Figure 4.26. Mixing text and pictures: a) text-in-picture; b) picture-in-text
Chapter 5
Static Process Networks
Real-time signal processing programs are oriented around two key aggregate data-types:
arrays, which I will call vectors, and streams. Their base elements are almost invariably
numbers. Streams are fundamental to a real-time signal processing program, even if they
only exist as a data structure at the interface to external signals. Vectors are inherent in
signal processing algorithms that operate on segments of a signal, such as transforms.
Digital signal processors are designed to operate most eciently in loops, and it is
therefore important that a high-level programming language be able to express iteration
through vectors and streams clearly. The rst section of this chapter develops a Vector datatype and associated functions, which capture the key operations on vectors. An example,
the Fast Fourier Transform, illustrates their use.
Because Haskell is lazy, it is easy to write innite data structures. Functional operating
systems and process networks (sections 2.3.5 and 2.3.6) use lazy lists to model communications channels between processes. Here, I will use an explicitly-dened Stream data-type
to model communication, and give six Haskell functions that can be implemented using the
canonical SDF actors of section 3.2.5.
With these six functions, we can use the features of Haskell to increase the expressiveness
with which we write dataow networks: some higher-order functions encapsulate common
types of processes; other higher-order functions capture common interconnection patterns,
such as serial and parallel connection; yet others represent various linear, mesh, and treestructured interconnection patterns. The use of these language facilities for constructing
process networks was explored by Kelly ; here, I extend this work to real-time streams
123
CHAPTER 5. STATIC PROCESS NETWORKS
124
and signal processing. This style of programming could perhaps be called \data-parallel
process programming," and provides a counter to the position that functional parallelism
Because all functions on streams are dened in terms of the six primitive functions,
the programmer does not dene recursive functions on streams. This style of programming
is advocated by Backus  and by Bird , because: i) non-recursive programs tend to
be more concise than recursive ones; and ii) there is less chance of making errors, such as
forgetting a termination condition.
The nal task of this chapter is to adapt the algebraic style of program transformation
to streams and processes. The result is a set of provably-correct program transformations
that can be used to alter the structure and degree of parallelism present in a process network
program. We can use these techniques to eliminate apparent eciency defects caused by the
use of very-high-level programming language, and to tailor a program to a given hardware
conguration for better execution eciency.
5.1 Related work
At present, most \real-world" DSP programming is in assembler or C. Block-diagram systems are perhaps the most popular alternative programming technology. One of the drawbacks of block-diagram systems is that they are generally oriented towards particular hardware systems, and thus fall short of a generally-applicable production tool. Willekens et al
argue that block-diagrams alone are inadequate for specifying DSP systems, since they do
not permit expression of control ow; detailed computation is best specied in a textual
language, leaving the block diagram to higher levels of description .
Another approach uses light-weight operating system kernels and support libraries [104,
39, 143]. This is particular evident in parallel systems, where the added complexities of
The approach in which I am interested here is to use a programming language, but
at a much higher level than C. Silage  is perhaps the best example of a language designed specically for DSP programming; recent work explores higher-level signal processing
programming concepts . It has also evolved into a commercial product, DFL .
CHAPTER 5. STATIC PROCESS NETWORKS
125
The most noticeable feature of Silage is its support for streams of data and delays. The
expression [email protected] is the signal x delayed by one sample. Arithmetic operations extend pointwise to streams. Silage also supports xed-point data types and arithmetic, an important
aspect of programming real DSP devices.
Freericks and Knoll use recursive functions to dene signal-processing functions .
Higher-order functions can also be used to capture particular patterns of recursion .
An unusual aspect of their language is an explicit suspension construct that supports datadriven programming; this is used to code interfaces to real-time I/O channels. They propose
to use partial evaluation in their compiler to eliminate the potential run-time overhead of
recursion.
A recurring theme in DSP programming is the use of streams to represent discretetime signals. Streams were rst proposed by Landin as a means of separating the control
structure of Algol-60 loops from the loop body . Landin represents a stream as a pair
of the head element, and a nullary function representing the rest of the stream. Stream
elements are thus \evaluated when they are come to"|calculation of each successive loop
control value and execution of the loop body proceed in an interleaved manner.
Burge further developed the idea of streams, as a way of structuring programs as a
set of independent sub-programs . He uses the same representation as Landin, and
lists a number of functions that are now standard in functional programming languages:
maps applies a function to each element of a stream; generate f x produces the sequence
x; f x; f 2 x, and so on; zips produces a stream of pairs from two streams; lter removes
elements that fail to satisfy a predicate; and so on.
Wendelborn and Garsden compare a number of stream implementations , and point
out the dierence between channels and streams, noting that the terms overlap somewhat in
usage. A channel is destructive, since elements are appended to the channel. Kahn process
networks and the dataow process model use channels, since new tokens are appended to
them. Streams are functional: the stream producer is part of the stream itself. Landin and
Burge, for example, use a function to represent the remainder of the stream; lazy functional
languages implement streams as recursively-dened, lazily-evaluated lists.
The ease with which lazily-evaluated streams lend themselves to signal processing has
also been noted by Globirsch . He uses lazy lists to simulate signals, and gives a number
of simple lters in Haskell, suggesting that the conciseness of the programs makes Haskell
CHAPTER 5. STATIC PROCESS NETWORKS
126
an excellent tool for prototyping. Prototyping image processing programs in a functional
language is advocated by Michaelson et al , who use four higher-order functions to code a
range of image processing algorithms . In related work, Bratvold compiles these higherorder functions into parallel code for a Meiko Transputer system .
5.2 Vectors
Vectors play an important role in signal processing. Recall from section 2.4.4 that the
instruction sets of modern DSPs support very ecient vector operations. This section
describes a Vector datatype implemented in Haskell, and a set of functions in Haskell that
can be implemented eciently on DSPs. These functions are typical of those present in
what Sipelstein and Blelloch call \collection-oriented" languages .
Appendix A lists the code for the Vector module. As for the standard prelude, I will
treat this code as a semantic denition only|in other words, the compiler \understands"
the vector functions and generates ecient code for them. The key issue is avoiding laziness:
if vector functions can be compiled in a hyper-strict context, we can avoid graph-building,
and access vector elements through pointers.
5.2.1 The Vector datatype
The Vector datatype is dened in Haskell as
data Vector
= NullV
|
:> Vector
A vector thus has type Vector , where is the type of its elements. Dened like this,
vectors are much the same as lists, but with dierent data constructors.
The vector function takes a list and produces a vector:
vector [x; y; z ] ! (x :> y :> z :> NullV)
Because this is clumsy, I will assume that Haskell has a special syntax for vectors, as it
does for lists, and enclose vectors in angle brackets, thus: hx; y; zi. Instead of NullV, I will
write h i.
CHAPTER 5. STATIC PROCESS NETWORKS
127
I also nd it convenient to annotate the vector type signature with vector lengths. For
example, the function to perform an inner-product summation of two vectors has the type:
ip :: Num
)
Vectork
! Vectork ! For input arguments, interpret these length annotations as pre-conditions : that is, they
specify conditions on the arguments that must be satised for the function to produce
a well-dened result. This is a key part of the \programming-by-contract" approach to
software development . In this case, the two input vectors must be the same length.
Since a compiler is not required to generate correct code if pre-conditions are violated,
an implementation can focus on generating the fastest code possible for two equal-length
vectors (for example, by omitting a test for equal length).
If type annotations are attached to nested vector types, then the inner annotation species that all sub-vector are the same length. For example,
xs :: Vector (Vectork
)
is a vector of vectors, in which all sub-vectors are the same length, whereas the sub-vectors
in
ys :: Vector (Vector
)
may be dierent lengths. By annotating vector functions this way, we can choose either
ecient implementation (xs) or generality (ys), as appropriate. It would be an interesting
research topic to extend the Haskell type system to infer at compile-time whether or not
these constraints are met.
5.2.2 Iterators
Vector iterators are higher-order functions that apply a function across all elements of a
vector. In eect, each of them captures a particular pattern of iteration, allowing the
programmer to re-use these patterns without risk of error. This is one of the most persuasive
arguments in favour of inclusion of higher-order functions in a programming language .
Figure 5.1 shows the iterators unfolded, in the style of section 4.5.3. The diagrams
illustrate the pattern of computation represented by each iterator in a very structural way;
this viewpoint of higher-order functions is particularly important when using them to build
CHAPTER 5. STATIC PROCESS NETWORKS
128
networks of processes (section 5.4). The iterators all have complexity O(n) in the length of
the vector. Their types are listed in gure 5.2.
The simplest iterator is mapV (gure 5.1a), which is analogous to map on lists. For
example,
mapV (+1) h1; 2; 3; 4i ! h2; 3; 4; 5i
iterateV (gure 5.1b) produces a vector of a specied length from an initial value and a
function which produces each successive value. The rst element of the vector produced by
iterateV is the initial value; for example,
iterateV 5 (+1) 3 ! h3; 4; 5; 6; 7i
To generate a vector of k complex numbers equally spaced around the unit circle, we
can write:
mapV cis (iterateV k (+(2:0 pi=k)) 0:0)
where cis = cos + j sin . The copyV function creates a vector containing k copies of a
given element; it is easily dened with iterateV:
copyV :: Int
! ! Vector copyV k x = iterateV k id x
where id x = x.
foldlV (gure 5.1c) and foldrV \fold" a vector into a single value. For example, to sum
the elements of a vector,
foldlV (+) 0 h1; 2; 3; 4i ! 10
This particular expression is common enough to make it worth giving a name to:
sumV :: Num
)
Vector
!
sumV = foldlV (+) 0
Like some other vector iterators and many of Haskell's higher-order functions on lists,
the folding functions come in \left-handed" (foldlV) and \right-handed" (foldrV) avours.
The left-handed avour iterates from the rst element to the last; the right-handed avour
iterates from the last element to the rst. Note, however, that the right-handed functions
are not quite mirror-images of the left-handed ones, as the typing of the function argument
CHAPTER 5. STATIC PROCESS NETWORKS
(a)
f
f
f
(b)
129
f
f
f
f
(c)
f
f
f
f
(d)
f
f
f
f
(e)
f
f
f
f
Figure 5.1. Unfolded vector iterators: a) mapV; b) iterateV; c) foldlV; d) scanlV; e)
meshlV
CHAPTER 5. STATIC PROCESS NETWORKS
130
! ) ! Vectork ! Vectork ! ( ! ) ! ! Vector ! ! ) ! ! Vector ! ! ! ) ! ! Vectork ! Vectork ! ! (; )) ! ! Vectork ! (; Vectork )
mapV
iterateV
foldlV
scanlV
meshlV
:: (
:: Int
:: (
:: (
:: (
foldrV
scanrV
meshrV
::
::
::
( ! ! ) ! ! Vector ! ( ! ! ) ! ! Vectork ! Vectork ( ! ! (; )) ! ! Vectork ! (; Vectork )
Figure 5.2. Iterator type signatures
changes|this can be seen by examining gure 5.2.
scanlV (gure 5.1d) and scanrV \scan" a function across a vector: the result produced
on each application of the function argument is written to the output vector and used as
one input to the next application. For example, to produce a \running sum" of elements in
a vector: 1
scanlV (+) 0 h1; 2; 3i ! h1; 3; 6i
meshlV (gure 5.1e) and meshrV capture a \mesh-like" pattern of iteration; they are
like a combination of mapV and scanlV or scanrV. The argument function produces a pair
of values: the rst is input into the next application of this function, and the second is the
output value. As an example, consider this expression:
meshlV (a x : (x; a)) 0 h1; 2; 3i ! (3; h0; 1; 2i)
Note that the second element of the result pair is the input vector shifted right. We can, if
we wish, dene the (>>) operator (see next section) as
(>>) ::
x >> xs
1
! Vectork ! Vectork = snd (meshlV (na x -> (x,a))
x xs)
Readers familiar with functional programming will notice that this denition diers from the standard
Haskell scanning functions on lists. In comparison,
scanl (+) 0 [1; 2; 3] ! [0; 1; 3; 6]
The vector versions are dened as they are so that the output vector is the same length as the input
vector: this aords some eciency improvement if the input vector can be over-written with the result.
CHAPTER 5. STATIC PROCESS NETWORKS
(+++)
concatV
(:>)
(<:)
(>>)
(<<)
!
131
! Vector ! Vectorjk :: Vector
Vector
:: Vectorj (Vectork )
!
! Vector ! ! Vector ! Vectork ! ! Vectork ::
Vector
:: Vector
::
Vectork
:: Vectork
!
Figure 5.3. Combiner type signatures
5.2.3 Combiners
Combiners do not perform any computation, but combine vectors and elements into new
vectors. Their type signatures are listed in gure 5.3.
+++ joins two vectors into a single vector. concatV joins a vector of vectors into a single
vector. Note that its type signature requires that all sub-vectors be the same length. For
example,
h1; 2; 3i +++ h4; 5; 6i ! h1; 2; 3; 4; 5; 6i
concatV hh1; 2; 3i; h4; 5; 6ii ! h1; 2; 3; 4; 5; 6i
The remaining combiners implement shift-register-like operations: (:>) and (<:) attach
an element to the left or right of a vector respectively; (>>) and (<<) shift an element into
the left or right of a vector respectively.
0 :> h1; 2; 3i ! h0; 1; 2; 3i
0 >> h1; 2; 3i ! h0; 1; 2i
A smart compiler will sometimes be able to produce O(1) implementations of the combiners. Consider the expression e1 +++ e2 . If the destination address registers for e1 and
e2 are set to point into the memory area allocated for the result of the whole of the above
expression, the vectors produced by e1 and e2 can be produced directly into the result of
(+++). No copying at all is required! To do this will require some sophisticated analysis.
The shift operators can be implemented with O(1) complexity, using the modulo addressing hardware of modern DSP devices (page 42). Thus, the (<<) operator will write its
CHAPTER 5. STATIC PROCESS NETWORKS
lengthV
atV
selectV
groupV
transpose
zipV
unzipV
::
::
::
::
::
::
::
!
! !
! ! !
!
!
!
!
!
!
; !
;
132
Vector
Int
Vector
Int
Int
Int
Int
Vector
Vector
jk
j
Int
Vector
Vector (Vectork )
j
k
Vector (Vector
)
Vectork (Vectorj
k
k
Vector
Vector
Vectork (
)
k
k
k
Vector (
) (Vector
Vector
)
; )
Figure 5.4. Selector type signatures
right argument at the current position in the vector and increment the address register; if
it moves outside the vector memory, it is reset by the addressing hardware back to the rst
position in the memory. A function that reads the vector operates in a similar way, reading
from the current position|one position \past" the last element written|up to the last
element written. The (>>) operator is similar, but decrements the address register before
performing the write.
5.2.4 Selectors
Selectors do not perform any computation, but just re-arrange vector elements. Figure 5.4
lists their types. In Visual Haskell, most selectors can be drawn as \wiring" (section 4.5.4).
Figure 5.5 shows some selectors in this way; as for the unfolded vector iterators, this visual
representation provides a very \structural" and intuitive grasp of their operation.
The rst function, lengthV, returns the length of a vector:
lengthV h0; 1; 2; 3; 4i ! 5
atV selects an individual element of a vector:
h0; 1; 2; 3; 4i atV 3 ! 3
selectV selects linearly-spaced elements of a vector. The rst argument is the position of
the start element; the second the stride between elements; the third the number of elements.
CHAPTER 5. STATIC PROCESS NETWORKS
evensV v
oddsV v
takeV k v
dropV k v
tailV v
lastV v
initV v
reverseV v
=
=
=
=
=
=
=
=
=
133
selectV 0 2 (lengthV v div 2) v
selectV 1 2 (lengthV v div 2) v
selectV 0 1 k v
selectV k 1 (lengthV v - k) v
v atV 0
dropV 1 v
v atV (lengthV v - 1)
takeV (lengthV v - 1) v
selectV (lengthV v - 1) (-1) (lengthV v) v
Its result is undened if any elements are \outside" the vector. For example,
selectV 1 3 2 h0; 1; 2; 3; 4i ! h1; 4i
With atV and selectV, many other useful functions are easily dened (gure 5.5): to
select the odd or even elements of a vector; to take or remove the rst k elements of a
vector; to split a vector into two equal halves; to produce the \head" and \tail" of a vector;
to produce the last element of a vector, and all elements except the last; and to reverse a
vector.
groupV splits a vector into a vector of vectors; elements are discarded if the length of
the new sub-vectors does not exactly divide the length of the input vector. For example,
groupV 2 h0; 1; 2; 3; 4; 5; 6i ! hh0; 1i; h2; 3i; h4; 5ii
transpose swaps the two outer dimensions of a vector. For example,
transpose hh0; 1i; h2; 3i; h4; 5ii ! hh0; 2; 4i; h1; 3; 5ii
zipV and unzipV combine two vectors into a vector of pairs, and vice versa. For example,
zipV h0; 1; 2i h3; 4; 5i ! h(0; 3); (1; 4); (2; 5)i
unzipV h(0; 3); (1; 4); (2; 5)i ! (h0; 1; 2i h3; 4; 5i)
These can be used to implement \buttery" access patterns, as used in the Fast Fourier
CHAPTER 5. STATIC PROCESS NETWORKS
134
Transform algorithm. The two functions duals and unduals are drawn as \wiring" in gure 5.6. They are dened as:
duals
:: Vector2k
duals v
! Vectork (; )
= zipV (takeV k v, dropV k v)
where
k = lengthV v div 2
unduals
:: Vectork
(; ) ! Vector2k unduals v = let (x,y) = unzipV v in x +++ y
duals requires that the length of its argument is even. Here is an example:
duals h0; 1; 2; 3; 4; 5i ! h(0; 3); (1; 4); (2; 5)i
zipV and unzipV are also useful for dening iterators that accept or produce more than
one vector argument. For example, we can dene the function zipWithV, which applies a
function point-wise across two input vectors, as
zipWithV ::
( ! ! ) ! Vectork ! Vectork ! Vectork n
zipWithV f xs ys = mapV ( (x,y) -> f x y) (zipV xs ys)
Any binary operator or function can be extended to operate on vectors in this way; for
example,
zipWithV (+) h1; 2; 3i h4; 5; 6i ! h5; 7; 9i
A useful example of this kind of operation is the vector inner-product:
ip :: Num
)
Vectork
! Vectork ! ip v w = sumV (zipWithV (*) v w)
If implemented naively (by copying elements) most of the selectors have O(n) complexity.
A smart compiler could, however, reduce most of the selectors to O(1) complexity. To see
why, recall that a DSP can increment two address registers by the contents of two index
registers in each instruction. Suppose that elements of a vector are located at contiguous
addresses in memory. An expression such as mapV (+1) will generate a single-instruction
loop that, on each iteration, loads and adds one to a vector element, stores the result of
CHAPTER 5. STATIC PROCESS NETWORKS
135
(a)
(b)
(c)
Figure 5.6. Selectors as \wiring": a) reverseV; b) duals; c) unduals
the previous iteration, and increments both the source and destination address registers by
one. Now consider the expression mapV (+1) odds. Before the loop, the source address
register is incremented by one (to point to the element at oset one in the vector), and the
loop count halved. The loop itself is the same, except that the source address register is
incremented by two instead of one. This is easily generalised to arbitrary strides by using
index registers.
5.2.5 Example: the Fast Fourier Transform
The Fast Fourier Transform (FFT) algorithm is one of the most important algorithms
in signal processing. Although formulated as a recursive \divide-and-conquer" algorithm,
implementations of the algorithm are usually coded in an iterative manner for eciency.
As an aid to understanding the iterative algorithm, a so-called \buttery diagram" can be
drawn; gure 5.7 shows the diagram for the FFT coded here, for a 16-point input vector.
This particular form of the FFT is a complex, radix-2, decimation-in-time algorithm with
bit-reversed output .
Figure 5.8 is the FFT algorithm in Haskell, coded directly from the buttery diagram.
CHAPTER 5. STATIC PROCESS NETWORKS
X(0)
136
x(0)
X(8)
x(1)
–1
X(4)
x(2)
–1
X(12)
–1
x(3)
–1
X(2)
x(4)
X(10)
x(5)
–1
X(6)
–1
X(14)
–1
–1
–1
x(6)
–1
x(7)
X(1)
x(8)
X(9)
x(9)
–1
X(5)
x(10)
–1
X(13)
–1
x(11)
–1
X(3)
x(12)
X(11)
x(13)
–1
X(7)
–1
X(15)
–1
–1
–1
x(14)
–1
x(15)
Figure 5.7. The 16-point FFT buttery diagram
The top level of this function has a guard that checks that the supplied log2 vector length
is correct. To explain how the rest of this code works, I will start at the inner functions and
work outwards. Bit-reversed re-ordering is performed by the bitrev function, which assumes
that the length of its argument vector is a power of two. It can be dened recursively as
bitrev :: Vector
bitrev
hxi
=
hxi
! Vector bitrev xs = bitrev (evens xs) ++ bitrev (odds xs)
Usually, however, we would expect an implementation to provide it as a primitive function, using the reverse-carry addressing of modern DSPs.
The \twiddle" factors, twiddles, is a vector of complex numbers situated on the unit
circle. For n = 16, the value of twiddles is:
hW160 ; W164 ; W162 ; W166 ; W161 ; W165 ; W163 ; W167 i
where
Wnm = e;2m=n
CHAPTER 5. STATIC PROCESS NETWORKS
137
fft :: Int -> Vector (Complex Float) -> Vector (Complex Float)
fft k xs | n == 2 ^ k = (bitrev . foldrV stage xs . iterateV k (* 2)) 2
where
stage :: Int -> Vector (Complex Float) -> Vector (Complex Float)
stage k = concatV . zipWithV segment (takeV m twiddles) . groupV k
where m = n div k
segment :: Complex Float -> Vector (Complex Float)
-> Vector (Complex Float)
segment twid = unduals . mapV (butterfly twid) . duals
twiddles :: Vector (Complex Float)
twiddles = (bitrev . mapV (cis . negate) . halfcycle) n
n = lengthV xs
Figure 5.8. The FFT function
twiddles is obtained by applying the negate and cis functions to negative phase angles
on the unit circle, and applying a bit-reversal re-ordering to the result.
The next level processes a single \segment." segment groups a segment into pairs of
\dual" nodes, performs a buttery operation on each pair, and then regroups the nodes
into the original ordering. Note how partial application is used to distribute the twiddle
factor for this segment to all applications of buttery. (buttery is dened on page 22.)
Figure 5.9a illustrates (unfolded) a segment of the second stage of a 16-point FFT.
The next level of the FFT is a single \stage" of the algorithm|there are four of these
for a 16-point FFT. A stage consists of a number of segments m where m = 1; 2; 4; 8, and
so on. stage divides the data vector into segments, applies segment to each segment and
a single twiddle factor, and combines the result into a single vector again. Figure 5.9b
illustrates (unfolded) the second stage of a 16-point FFT.
The next level is what we might call the \pipeline" level, since it applies a series of stages
one after the other; this pattern is captured by foldrV. The argument to each stage is the
length of segments within that stage: for a 16-point FFT, for example, the vector required
is h16; 8; 4; 2i. The iterateV function generates this vector (in reverse order). Figure 5.9c
illustrates this level of the FFT.
CHAPTER 5. STATIC PROCESS NETWORKS
138
twid
butterfly
butterfly
(a)
butterfly
butterfly
takeV
(b)
concatV
n
m div k
twiddles
segment
groupV
segment
2
2
(c)
2
bitrev
stage
2
4
stage
2
8
stage
16
stage
Figure 5.9. Parts of the 16-point FFT in Visual Haskell: a) segment; b) stage; c) t
CHAPTER 5. STATIC PROCESS NETWORKS
139
5.3 Streams
The Haskell Stream datatype dened in this section allows us to simulate dataow process
network programs in Haskell. As for vectors, I will make some assumptions about how
the compiler will treat this datatype. The Haskell code for the Stream module is listed in
appendix A.
5.3.1 The Stream datatype
The Stream datatype declaration is almost the same as that for Vector:
data Stream
= NullS
|
:- Stream
As we saw in sections 2.3.5 and 2.3.6, pragmatic implementations of process networks
in functional programming languages evaluate each element of a stream in a hyper-strict
context|that is, elements are fully evaluated before transmitting them to another process.
Let us therefore assume the same for Stream.
The stream function produces a stream from a list:
stream [x; y; z ] ! (x :- y :- z :- NullS)
I will assume that Haskell has a special syntax for streams, and enclose streams in curly
brackets, thus: fx; y; zg. Instead of NullS, I will write f g. In this chapter, I consider only
innite streams.
Annotations on streams indicate their sample rate. To see why, consider the process
that sums corresponding elements of two input streams:
summer :: Num
)
Streamn
! Streamn ! Streamn If the two inputs had dierent sample rates, then buer memory would very quickly
become exhausted. The annotations, treated as pre-conditions, ensure that sample rates
are always correct.
If a stream contains vectors, than an annotation on the vector type is a constraint on the
lengths of the vectors. Thus, Streamn (Vectork ) is a stream of rate n, containing vectors
of length k. These annotations will also be useful when transforming process networks. As
CHAPTER 5. STATIC PROCESS NETWORKS
140
for vector lengths, extending the Haskell type system to infer correct sample rates would
be most interesting.
5.3.2 Process primitives
In section 3.2.5, I argued that any SDF actor|and therefore any SDF network|can be
built with delays and instances of ve actor schemata. In this section, I give a Haskell
function for each of these actors. The types of the six functions are given in gure 5.10.
Recursive denitions are given in section A.
The \cons" operator (:-) attaches an element to the front of a stream. It is equivalent
to placing an initial value in a stream|that is, a unit delay. For example,
x :- fa; b; cg ! fx; a; b; cg
It is common in signal processing for delays to have an initial value of zero, so dene a
new function named (confusingly) delay:
delay
delay xs
:: Num
)
Stream
! Stream = zero :- xs
groupS breaks a stream into a stream of vectors of length k, where k is its rst argument.
groupS is directly equivalent to the group actor. This is the basic mechanism by which the
sample rate of streams can be decreased. If the length of the input stream is not a multiple
of k, the nal incomplete vector is discarded. For example,
groupS 2 fa; b; c; d; eg ! fha; bi; hc; dig
concatS is the reverse, concatenating a stream of vectors into a stream of elements.
Unlike concat, concatS does not need an argument giving the length of the vectors in the
stream, as it calculates them at run-time. (The vector-length assertion in the type states
that all vectors are the same length.) For example,
concatS fha; bi; hc; dig ! fa; b; c; dg
CHAPTER 5. STATIC PROCESS NETWORKS
(:-)
groupS
concatS
zipS
unzipS
mapS
::
::
::
::
::
::
141
! Streamn ! Streamn Int ! Streamnk ! Streamn (Vectork )
Streamn (Vectork ) ! Streamnk Streamn ! Streamn ! Streamn (; )
Streamn (; ) ! (Streamn ; Streamn )
( ! ) ! Streamn ! Streamn Figure 5.10. Types of stream functions
zipS combines two streams point-wise into a pair of streams. For example,
zipS fa; b; cg f1; 2; 3g ! f(a; 1); (b; 2); (c; 3)g
unzipS is almost the reverse of zipS: it produces a pair of streams from a stream of
pairs. For example,
unzipS f(a; 1); (b; 2); (c; 3)g ! (fa; b; cg; f1; 2; 3g)
zipS and unzipS are equivalent to the actors zip(2) and unzip(2) respectively. Haskell's
type system does not allow a function to accept a variable number of arguments. This
restriction is overcome by assuming that there exists a whole family of zipping and unzipping
functions: zipS3, zipS4, and so on. In theory, this does not aect my claim that the six
functions given in this section are the minimum set of functions needed to write any SDF
actor, since triples, four-tuples, and so on can be represented by nested pairs, and the
zipping functions dened in terms of zipS and unzipS.
mapS is equivalent to the map actor. It applies a function to each element of a stream:
mapS (+1) f1; 2; 3; 4g ! f2; 3; 4; 5g
In section 3.2.3, I discussed the dierence between \parameter" and \stream" arguments.
The functional programming language deals quite well with the two dierent types of argument: as long as the stream arguments follow the parameter arguments, it is easy to create
parameterised stream functions that are equivalent to instantiated actors: (groupS 4), for
example, is the function that divides its stream argument into 4-vectors. Slightly more
CHAPTER 5. STATIC PROCESS NETWORKS
142
sophisticated are examples like mapS (4), which multiplies each element of its stream argument by four. There is no need for a \constant stream" of fours, as would be required
by languages such as Lucid .
A further point to note is a dierence in the way that processes are instantiated. In
section 3.2.3, an actor is instantiated by binding it to a unique vertex name; stream arguments are supplied via the graph topology. With the Haskell functions of this section,
however, a process does not exist as a unique entity until all arguments have been supplied.
I will call a function that contains streams in its input or output types a process-function ;
once all arguments are supplied, the process-function applied to its \parameter" arguments
becomes a process . For example, mapS and mapS f , applied to no further arguments, are
process functions; mapS f xs is a stream, produced by the process mapS f .
Because a process-function does not become a process until all arguments are supplied,
process-functions can be supplied as arguments to higher-order functions. For example, we
can write mapV (mapS f ) xs to produce a vector of processes; section 5.4 explores this idea.
5.3.3 An example
A rst-order recursive digital lter is dened by
y (n) = a0x(n) + a1 x(n ; 1) ; b1y (n ; 1)
where a0 , a1 , and b1 are the lter coecients. This can be reformulated as
w(n) = x(n) ; b1y (n ; 1)
y(n) = a0w(n) + a1w(n ; 1)
The block diagram of this simple lter is shown in gure 5.11a. Dene scale and summer
scale
scale a xs
summer
:: Num
) ! Stream ! Stream = mapS (* a) xs
) Stream ! Stream ! Stream mapS (n(x,y) -> x + y) (zipS xs ys)
:: Num
summer xs ys =
CHAPTER 5. STATIC PROCESS NETWORKS
w
Σ
x
143
a0
Σ
y
z–1
(a)
a1
–b1
u
Σ w
a0
a1
a0
Σ
y
zzzzz –1
(b)
b1
u
– b1
x
a1
Figure 5.11. A rst-order recursive lter: a) in block-diagram notation; b) in Visual
Then, we can dene the rst-order IIR lter in Haskell as:
iir1 :: Num
) ! ! ! Stream ! Stream iir1 a0 a1 b1 x = let
w = summer x (scale (- b1) w)
u = delay w
y = summer (scale a0 w) (scale a1 u)
in
y
Figure 5.11b shows this denition in Visual Haskell, laid out to mimic the block diagram,
and with icons used for scale, summer, and delay. In this diagram, and from here on, I omit
the containing window for function denitions. This example demonstrates that Visual
Haskell can be made to look like block diagrams, and should therefore be able to tap the
same appeal to intuition as block diagram systems. Note the importance of dening suitable
functions to aid the visual representation of programs. In the textual program, it would
have been as easy to write, for example,
u = 0 :- w
CHAPTER 5. STATIC PROCESS NETWORKS
144
y = summer (mapS (* a0) w) (mapS (* a1) u)
u = delay w
y = summer (scale a0 w) (scale a1 u)
but we would then not have been able to use icons as eectively.
5.3.4 Process constructors
Of the primitive functions, mapS is the only higher-order function. Additional higher-order
functions are readily dened in terms of the primitives. I call higher-order functions on
streams process constructors , because of their key role in constructing process networks.
Their types and denitions are listed in gure 5.12; their denitions are shown diagrammatically in gure 5.13.
zipWithS (gure 5.13a), zipOutS, and zipOutWithS (gure 5.13b) are point-wise process
constructors like mapS, but build processes with more than one input or output. For
example, a point-wise addition process is written
zipWithS (+)
A process that outputs the sum and dierence of two inputs is written:
zipOutWithS (x y : (x + y; x ; y ))
The other process constructors maintain a state. Although the denitions given in
gure 5.12 use a feedback loop to carry the state around a purely-functional actor, recursive
denitions could also be given. For example, scanS could be dened as
scanS f a NullS
= NullS
scanS f a (x:-xs) = let x' = f a x in x' :- scanS f x' xs
The two denitions are equivalent; I have chosen the state-as-feedback form so that these
new functions can be treated as hierarchical dataow actors.
iterateS (gure 5.13c) and generateS (gure 5.13d) produce a stream from a single
input value; the key dierence is that iterateS outputs the state on each application of its
CHAPTER 5. STATIC PROCESS NETWORKS
145
! ! ) ! Stream ! Stream ! Stream = mapS (n(x,y) -> f x y) (zipS xs ys)
zipWithS :: (
zipWithS f xs ys
! ; !
! (Stream ; Stream )
zipOutS :: (
( ) Stream
zipOutS f xs = unzipS (mapS f xs)
zipOutWithS ::
( ! ! (; )) ! Stream ! Stream ! (Stream ; Stream )
n
zipOutWithS f xs ys = unzipS (mapS ( (x,y) -> f x y) (zipS xs ys))
! !!
iterateS :: (
)
Stream
iterateS f a = let ys = a :- (mapS f ys) in xs
! ; ! !
generateS :: (
( ))
Stream
generateS f a = let (zs,ys) = zipOutS f (a :- zs) in ys
!! !!
!
scanS :: (
)
Stream
Stream
scanS f a xs = let ys = zipWithS f (a :- ys) xs in ys
! ! ; ! !
!
stateS :: (
( ))
Stream
Stream
stateS f a xs = let (zs,ys) = zipOutWithS f (a :- zs) xs in ys
Figure 5.12. Process constructor denitions
argument functions, while generateS produces each output value and the next state on each
application. For example, the process that produces the stream f0; 1; 2:::g is written
iterateS 0 (+1)
A useful function dened in terms of iterateS generates a stream containing an innite
number of copies of its argument:
repeatS ::
! Stream repeatS = iterateS id
scanS (gure 5.13e) and stateS (gure 5.13f) also propagate a state value between iterations. For example, the process
scanS 0 (+)
produces the running sum of its input stream. A more interesting process is one that, given
CHAPTER 5. STATIC PROCESS NETWORKS
146
xs
f
ys
(a)
xs
ys
f
(b)
a
a
ys
f
zs
f
(c)
ys
d)
a
a
f
xs
ys
(e)
xs
f
zs
ys
(f)
Figure 5.13. Process constructors: a) zipWithS; b) zipOutWithS; c) iterateS; d) generateS;
e) scanS; f) stateS
some integer k, outputs, for each input value, a vector containing that value and the past
k ; 1 values:
slide
::
Num
)
Int
! Stream ! Stream (Vector )
slide k = scanS (<<) (copyV k 0)
For example,
slide 3 f1; 2; 3; 4g ! fh0; 0; 1i; h0; 1; 2i; h1; 2; 3i; h2; 3; 4ig
This is a common operation in signal processing. To illustrate, the equation dening a
CHAPTER 5. STATIC PROCESS NETWORKS
147
h
ip
k
h
#
Figure 5.14. The FIR lter function
k'th-order nite-impulse-response (FIR) lter with impulse response h is:
y(n) =
k
X
h(i)x(n ; i)
i=0
In other words, for each input value, output the inner product of the impulse response
and the most recent k input values. In Haskell:
fir
::
Num
)
Vector
! Streamn ! Streamn fir h = mapS (ip h) . slide (lengthV h)
r is illustrated in gure 5.14. The icon for slide is supposed to evoke a stack with items
\falling o" the bottom. There is a large amount of redundant communication between the
two processes: each input value is sent from the slide process to the scanS process #h times.
This apparent overhead can be removed using program transformation|see section 5.5.2.
Consider now a recursive lter of arbitrary order, shown in block diagram form in
gure 5.15a. Its equation is
w(n) = x(n) ;
y(n) =
k
X
i=0
k
X
i=1
b(i)w(n ; i)
a(i)w(n ; i)
where k is the lter order. This diagram is dicult to draw in a formal notation because
of the arbitrary order. As for the FIR lter, we group all the z ;1 delays into a single state
with slide. In the following denition, illustrated in Visual Haskell in gure 5.15b, I have
used two applications of slide for clarity:
iirn :: Num
iirn a b x
)
Vector
! Vector ! Streamn ! Streamn CHAPTER 5. STATIC PROCESS NETWORKS
a0
w
Σ
x
148
Σ
y
z–1
Σ
a1
–b1
Σ
z–1
an
–bn
(a)
a
b
x
b negate
c
Σ w
ip
a
zzzzz–1
c
k
ip
y
k
#
a
b
#
(b)
Figure 5.15. The n-th order recursive lter: a) block-diagram form; b) generalised form
= let
c = mapV negate b
w = summer x (mapS (ip c) (slide (lengthV b) (delay w)))
y =
mapS (ip a) (slide (lengthV a)
w)
in
y
5.4 Process network construction
The previous section gave examples of rst-order process networks. A rst-order network is
one in which a process-function never appears as an argument to a higher-order function|
each process thus appears explicitly in the program text.
We can take advantage of the powerful features of the host functional language to
increase the expressive power available to us for writing dataow process network programs.
CHAPTER 5. STATIC PROCESS NETWORKS
h
g
149
f
(a)
f
f
g
g
(b)
(c)
Figure 5.16. Simple network-forming functions: a) composition; b) fan; c) par
Higher-order functions are the most useful of these: they capture patterns of instantiation
and interconnection between processes. This section is mainly concerned with illustrating
the kinds of networks that can be produced this way; the resulting style of programming
could perhaps be called data-parallel process parallelism .
5.4.1 Simple combinators
Function composition connects processes in series; a series of composed functions forms a
pipeline. Figure 5.16a illustrates the pipeline f g h, where f , g , and h are processes.
New higher-order functions to express other topologies are easily dened. For example, fan
applies two processes to one stream; par applies two processes each to one stream of a pair.
They are dened as follows:
fan
fan f g xs
par
::
( ! ) ! ( ! ) ! ! (; )
= (f xs, g xs)
::
( ! ) ! ( ! ) ! (; ) ! (; )
par f g (xs,ys) = (f xs, g xs)
Figure 5.16b and c illustrate these two functions. Note, however, that this visual syntax
has not been dened in chapter 4. An important feature of a visual language implementation
for visualising these kinds of networks is thus user-dened visual syntax for higher-order
functions.
CHAPTER 5. STATIC PROCESS NETWORKS
150
5.4.2 Simple linear networks
Supplying a process-function as argument to any vector or list iterator gives rise to an array
of processes (or process-functions). The expression
mapV (mapS f ) xs
where xs :: Vector (Streamn ) is a vector of streams, is a linear network of identical
processes. The network is shown in gure 5.17a. A similar network results for point-wise
constructors:
zipWithV (zipWithS f ) xs ys
These examples used mapS or zipWithS as the process constructor. This is for ease of
explanation|process constructors that maintain state can also be used. For example, the
following expression builds a linear array of processes, each built with scanS:
mapV (scanS f a) xs
where a is the initial state of all processes. To build an array of processes with diering
initial state, each taken from a vector as, we can write
zipWithV (scanS f ) as xs
The previous examples built arrays of identical processes. We can, if we wish, apply a
vector of functions fs so that each process in the network behaves dierently:
zipWithV mapS fs xs
Figure 5.17b illustrates the network that results. This construction corresponds to par,
using vectors of functions and data instead of pairs. The network corresponding to fan, in
which a linear array of (dierent) processes is applied to a single stream xs is this:
mapV (f : mapS f xs) fs
(5.1)
CHAPTER 5. STATIC PROCESS NETWORKS
151
xs
(a)
f
f
fs
f
f
xs
(b)
Figure 5.17. Linear process networks
5.4.3 Pipelines
Composition builds pipelines in which each process is explicitly represented in the text
(gure 5.16a). It is easy to dene a higher-order function that connects a vector of functions
in series:
series
:: Vector
( ! ) ! ! series fs = foldlV (.) id fs
If each f in fs is a process-function, then series produces a pipeline. For example, to
create a pipeline of k identical processes, make k copies of the process and pipeline them:
series (copyV k p) xs
where p :: Streamn ! Streamn . One useful way of creating a pipeline of dierent
processes is to parameterise a process by supplying each instance of the process with a
CHAPTER 5. STATIC PROCESS NETWORKS
dierent rst argument, as in
series (mapV p v ) xs
152
(5.2)
where p is the process and v is a vector of arguments. To see how this works, suppose that
p = i : mapS (f i) and v = h1; 2; 3i. The expression (mapV p v ) evaluates to
hmapS (f 1); mapS (f 2); mapS (f 3)i
Unfolding series and then foldlV gives
(mapS (f 1) mapS (f 2) mapS (f 3))
which is shown in gure 5.18.
There is, however, a more direct way to achieve this result. We can relate series to
foldrV with the following identity:
series (mapV f v ) x foldrV f x v
(5.3)
The pipeline of parameterised processes in equation 5.2 becomes
foldrV p xs v
(5.4)
We could instead use foldlV to make data ow through the pipeline from left to right.
Some care is needed, as the order of arguments to p must be swapped:
foldlV (ip p) xs v
The idea of parameterising a process network by mapping a process to a vector of
parameters occurs often in pipelines, but is easily used for other network structures. For
example, equation 5.1 is an example in which many instantiations of a process are applied
to a single stream; to parameterise each process, we rst produce a vector of parameterised
processes, then map these to the stream xs:
mapV (p : p xs) (mapV p v )
CHAPTER 5. STATIC PROCESS NETWORKS
f
1
f
2
153
f
3
Figure 5.18. A pipeline process network
so:
In this particular case, it is easy to write an expression for the desired network directly,
mapV (i : p i xs) v
The way in which the parameter to p aects it depends on how p is constructed. For
example, if
p = i : mapS (f i)
then the parameter i becomes the rst argument to the mapped function, f . If, however,
p = scanS f
then i is the initial state of p.
5.4.4 Meshes and systolic arrays
The remaining vector iterators, when used with a process-function argument, give rise to
various mesh-structured networks. For example, the following expression, illustrated in
gure 5.19a, \folds" a vector of streams into a single stream:
foldlV (zipWithS f ) s ts
where f is a binary function. The vector generation functions, used in this way, produce a
vector of streams from a single stream, as illustrated in gure 5.19b:
iterateV k (mapS f ) s
The scanning vector functions produce a vector of streams from a vector of streams; as
a result, they can be used to express two-dimensional arrays of processes. For example,
meshlV (zipOutWithS f ) s ts
CHAPTER 5. STATIC PROCESS NETWORKS
154
ts
(a)
s
f
s
f
f
f
f
f
f
(b)
ts
A
B
D
f
f
f
f
f
f
f
f
f
f
f
f
f
f
f
f
C
(c)
ss
Figure 5.19. Mesh process networks
CHAPTER 5. STATIC PROCESS NETWORKS
155
produces an array of processes with a mesh-like inter-connection pattern. By applying this
function to a second vector of streams, we get a two-dimensional array of processes as shown
in gure 5.19c. The expression for this network is
meshrV (meshlV (zipOutWithS f )) ss ts
The two-dimensional mesh is very like a systolic array, in which a \wave" of computation proceeds across the array. Patterns such as these algorithms developed for hardware
implementation, and there has been some interesting work on using functional languages for
hardware design. Sheeran's FP language, for example, is a functional language based on
Backus' FP, and includes structuring operations similar to those presented here . This
language has evolved into the hardware design and verication language Ruby, in which
circuits are represented as relations between signals (instead of as functions from signals to
signals) . Haskell has also been used to specify and simulate systolic arrays: McKeown
and Revitt give higher-order functions for expressing systolic arrays and illustrate with a
number of algorithms .
5.4.5 Network construction in dataow systems
Recently, two block diagram systems have included network construction. In GRAPE-II,
geometric parallelism species multiple invocations of a block . In the visual language,
these invocations all appear as one block. The number of invocations is specied in a textual
language;2 these values must be known at compile-time. The connection topology is also
specied in the textual language. If the output of one invocation feeds into the input of the
next, an additional feedback arc is also shown. This technique allows complex structures
to be expressed without needing to provide higher-order functions.
Ptolemy has adopted a form of higher-order function notation . Special blocks
represent multiple invocations of a \replacement actor." The Map actor, for example, is
a generalised form of mapV. At compile time, Map is replaced by the specied number
of invocations of its replacement actor; as for GRAPE-II, this number must be known at
compile-time. Unlike mapV, Map can accept a replacement actor with arity > 1; in this
2
The referenced paper gives these values in a textual form. It is not clear whether they can be expressed
in the visual language.
CHAPTER 5. STATIC PROCESS NETWORKS
156
case, the vector of input streams is divided into groups of the appropriate arity (and the
number of invocations of the replacement actor reduced accordingly).
The requirement that the number of invocations of an actor be known at compile-time
ensures that static scheduling and code generation techniques will still be eective. Further
work is required to explore forms of higher-order function mid-way between fully-static and
fully-dynamic. For example, a code generator that produces a loop with an actor as its
body, but with the number of loop iterations unknown, could still execute very eciently.
5.5 Process network transformation
Because they lack side-eects, functional languages lend themselves very well to program
transformation. In this section, I will demonstrate the algebraic style of program transformation, exemplied by the Bird-Meertens formalism (BMF) . The key characteristic of
this style is that it makes extensive use of a \catalogue" of known algebraic laws of functions, rather than relying on discovery through lower-level methods. BMF, also known as
\Squiggol," is being developed as a \programming by calculation" method of developing
programs from specications. I will use Haskell as the notation for writing transformations,
in a similar manner to , instead of the more concise notation of .
The key contribution of this section is to adapt the Bird-Meertens theory of lists to
work with streams; the result is a powerful tool for restructuring process networks. Particularly powerful transformations become available for networks constructed with higher-order
functions. I identify four distinct classes of transformation suitable for use with process
networks. The transformations given here are common cases, and are by no means an
exhaustive catalogue.
Transforming programs to improve performance is also advocated by Carriero and Gelernter , who transform between programs expressed in the most \natural" of their three
categories of parallelism, into a more eciently-implementable category. However, their
transformations are ad-hoc , lacking the equational basis of the Bird-Meertens style.
5.5.1 Type annotations
Transformations in the Bird-Meertens formalism (BMF) are, in general, independent of
structural information about the arguments of the transformed functions, other than the
CHAPTER 5. STATIC PROCESS NETWORKS
f
157
f
g
g
(b)
(a)
Figure 5.20. Illustrating network types
types. Unfortunately, many of the transformations of this section are correct only if arguments satisfy certain structural constraints. In particular, we will be concerned with the
lengths of vectors, and the data rates of streams. For example, consider the simple network
(gure 5.20a)
par (mapS f ) (mapS g )
(5.5)
We could merge the two processes into one (gure 5.20b), and transform equation 5.5
into
unzipS mapS (par f g ) (uncurry zipS)
(5.6)
If the sample rates of the two streams are dierent, however, equation 5.6 will not operate
as a real-time program. Because equation 5.6 \consumes" data from both streams at equal
rates; data will accumulate on the input with the higher rate, resulting in buer overow or
heap exhaustion. This problem can be isolated at zipS: the sample rates of the two streams
do not meet the sample rate pre-conditions of zipS.
To specify that transformations are only valid if certain length or sample-rate conditions are satised, I will append the annotated type of the expressions on either side of a
transformation. Thus, our example transformation would be written:
par (mapS f ) (mapS g ) unzipS mapS (par f g ) uncurry zipS
:: (Streamn ; Streamn ) ! (Streamn ; Streamn )
5.5.2 Fusion
A common example of an algebraic law on functions is map distributivity , so called because
it expresses the fact that map distributes backwards through function composition:
map f map g map (f g )
CHAPTER 5. STATIC PROCESS NETWORKS
g
f
(a)
158
g
f
(b)
Figure 5.21. Process fusion
This law states that applying g to each element of a list and then f to each element of the
list, is equivalent to applying g then f to each element of the list. The correctness of this law
depends only upon the properties of map, not upon properties of f or g . This is the essence
of the algebraic style of program transformation: computational behaviours are captured
by functions (with particular emphasis on higher-order functions); structural properties
of expressions are then easily recognised; expressions are transformed using appropriate
function identities. There are similar identities for other combinations of functions|foldl
and map, for example; collectively, these are known as loop fusion identities.
The rst class of process network transformations is a simple adaptation of these identities to process network. The simplest is
mapS f mapS g mapS (f g )
:: Streamn ! Streamn (5.7)
The left-hand side of equation 5.7 represents two processes (gure 5.21a); the right-hand
side represents a single process (gure 5.21b). Transformation using this identity thus has
the eect of increasing or decreasing parallelism, depending on the direction in which the
transformation is applied. The types of all fusion identities are the same as equation 5.7,
so will be omitted below.
We can easily nd more fusion identities. Fusion of two processes constructed with
mapS and scanS is captured by:
mapS f scanS g a stateS (a x : let a0 = g a x in (a0; f a0 )) a
(5.8)
CHAPTER 5. STATIC PROCESS NETWORKS
h
#
0
s
<<
159
h
s'
ip
Figure 5.22. The transformed FIR lter
A more general identity captures fusion of two processes built with stateS:
stateS f a stateS g b stateS ((a; b) x : let (b0; t) = g b x
(a0 ; y ) = f a t
in ((a0; b0); y )
) (a; b)
(5.9)
To illustrate process fusion, consider the inecient version of the FIR lter (page 147).
Transformation into a more ecient version is straight-forward:
r h = (denition of r)
mapS (ip h) slide (lengthV h)
= (unfold slide)
mapS (ip h) scanS (<<) (copyV (lengthV h) 0)
= (fusion: equation 5.8)
stateS (a x : let a0 = (<<) a x in (a0; (ip h) a0)) (copyV (lengthV h) 0)
= (simplify)
stateS (a x : let a0 = a << x in (a0 ; ip h a0 )) (copyV (lengthV h) 0)
This version of the FIR lter is harder to read than the original version. Figure 5.22
shows this version in Visual Haskell using an iterator view (section 4.5.2). Although we
could have written this less-readable but more ecient version from scratch, it is readily
derived from the easier-to-read and more maintainable version. As well as being easier to
read, the original version uses a well-known utility function (slide).
A diculty with the process fusion identities is that there seems to be no end to the
number of identities that we may require. This problem was noted some time ago by Wadler
in the context of lazy lists . This led to the development of (successively) the techniques
of listlessness  and deforestation , aimed at automatic fusion of list functions for
program eciency. More recently, Gill et al discovered an improved method , which is
now part of some Haskell compilers.
CHAPTER 5. STATIC PROCESS NETWORKS
160
It is not easy to see, however, how these techniques can be applied to our purposes, for
two reasons. Firstly, they rely on expanding the functions in question to recursive rstorder form; we, however, seek to retain the higher-order functions, since they are our key
to ecient \imperative" implementation as dataow actors. Secondly, the transformations
are in the fusion direction only; as often as not, we are as interested in making processes
5.5.3 Parallelisation
The second class of identity transforms a process containing application of a vector iterator
into a vector of processes, and vice versa. This class of identity does not appear in BMF,
since they are needed only because the operational characteristics of vectors and streams
dier.
I call this class of identity horizontal parallelisation . Two new zipping functions are
needed, which zip a vector of streams into a stream of vectors, and vice versa:
zipx
) ! Streamn (Vectork )
Streamn (Vectork ) ! Vectork (Streamn )
:: Vectork (Streamn
unzipx ::
The simplest parallelisation identity is this:
mapS (mapV f ) zipx mapV (mapS f ) unzipx
:: Streamn (Vectork ) ! Streamn (Vectork )
(5.10)
The left-hand side of equation 5.10 is a single process (gure 5.23a); the right-hand side
is a vector of k processes (gure 5.23b). Since zipx unzipx = id and unzipx zipx = id , it
is straight-forward to modify this identity as follows:
unzipx mapS (mapV f ) zipx
mapV (mapS f )
:: Vectork (Streamn ) ! Vectork (Streamn )
(5.11)
Equation 5.11 is probably more useful when starting with a vector of processes, whereas
equation 5.10 is more useful when starting with a single process.
Consider now a process that repeatedly applies foldrV, such as might be obtained by
CHAPTER 5. STATIC PROCESS NETWORKS
161
f
f
f
(a)
f
(b)
a
f
(c)
f
a
(d)
Figure 5.23. Horizontal parallelisation
calculating the sum of each vector in a stream:
mapS (foldrV (+) 0)
We can parallelise this process in a similar manner:
mapS (foldrV f a) foldrV (zipWithS f ) (repeatS a) unzipx
:: Streamn (Vectork ) ! Streamn (5.12)
Figure 5.23c shows the left-hand side of this identity; gure 5.23d the right-hand side.
As for process fusion, horizontal parallelisation quickly leads us to the problem of a large
number of combinations of higher-order functions. A technique for automatically deriving
identities of this class would be helpful indeed.
5.5.4 Pipelining
The third kind of identity constructs or combines pipelines of processes, where each process
is parameterised by a dierent value. Pipelining was explored extensively by Kelly .
The following identity relates a single process to a pipeline of parameterised processes, each
CHAPTER 5. STATIC PROCESS NETWORKS
f
x
v
162
xs
x
v
(a)
λ
λ
i
f
i
i
f
i
xs
(b)
Figure 5.24. Pipelining
constructed with mapS:
mapS (series fs) series (mapV mapS fs)
:: Streamn ! Streamn (5.13)
Suppose now that fs is produced by mapping a function to a vector of parameters, v .
The right-hand side then becomes
series (mapV mapS (mapV f v ))
which, by map fusion, becomes
series (mapV (mapS f ) v )
As we saw by equations 5.2 and 5.4, foldrV can be used instead of explicitly parameterising functions or processes. We can rewrite equation 5.13 in the equivalent form:
mapS (x : foldrV f x v ) xs foldrV (i : mapS (f i)) xs v
:: Streamn (5.14)
In this form, this identity is similar to horizontal parallelisation of the fold operators,
except that the stream feeds into the end of the pipeline instead of a vector of streams
CHAPTER 5. STATIC PROCESS NETWORKS
163
feeding across the pipeline. I have used the structure on the left-hand side of equation 5.14
(gure 5.24a) in the FFT example of ; it is also similar to the FIR lter example
of a second paper devoted to process network transformation . The right-hand side
(gure 5.24b) is a pipeline of processes, each parameterised by its own i from vector v .
5.5.5 Promotion
The fourth class of identity is derived from Bird's \promotion" identities . The map
promotion identity expresses the idea that map can be \promoted" through concatenation:
map f concat concat map (map f )
In other words, concatenating a list of lists and applying f to each element is the same as
applying f to each element of each sub-list, and concatenating the result.
Adapting this identity from lists to vectors, we get
mapV f concatV concatV mapV (mapV f )
:: Vectorj (Vectork ) ! Vectorj k (5.15)
Now, for any function
divideV :: Vectorj k ! Vectorj (Vectork )
that satises
concatV divideV = id
:: Vectork ! Vectork (5.16)
we can rewrite equation 5.15 as
mapV f concatV mapV (mapV f ) divideV
:: Vectork ! Vectork (5.17)
Equation 5.17 gives us a slightly more useful perspective: to apply f to each element
CHAPTER 5. STATIC PROCESS NETWORKS
164
f
f
Figure 5.25. Promotion
of a vector, divide it into sub-vectors, apply f to each element of each sub-vector, and join
the result back into a vector.
With this, we can change the \grain size" of vectors of processes. For example,
mapV (mapS f )
= (promotion: equation 5.17)
concatV mapV (mapV (mapS f )) divideV
= (horizontal parallelisation: equation 5.11)
concatV mapV (unzipx mapS (mapV f ) zipx) divideV
(5.18)
The result of equation 5.18, shown in gure 5.25, is a vector of processes with the size
of each process determined by divideV. By adjusting the way in which divideV breaks up a
vector, we can control the degree of parallelism obtained by this transformation.
A similar law holds for the fold functions; on foldl, the law is3
foldl f a concat foldl (foldl f ) a
Laws of this kind are useful for controlling the grain size of processes in a pipeline { see
the derivation of the pipeline FIR lter in  for an example.
5.6 Summary
This chapter presented an approach to programming dataow networks in a functional
programming language. I argued that vector functions in a functional language (section 5.2)
provide potential for ecient execution on DSP devices, and showed how a small set of
3
Bird [21, page 123] gives this law as a variant of the fold promotion law for non-associative operators.
CHAPTER 5. STATIC PROCESS NETWORKS
165
stream functions (section 5.3) can be used to write very concise denitions of typical signal
processing functions.
Based on these functions, I demonstrated: i) how higher-order functions provide a very
powerful notation for building networks of dataow processes; and ii) that program transformation techniques developed for functional programming languages can be adapted to
process networks. In particular, there are four key classes of transformation that have distinct eects on process networks, and I gave examples illustrating the use of these four
classes. Note that, although I have not addressed it in this thesis, many similar transformations can be applied to vector functions|for concrete examples, see .
In functional languages, program transformation techniques are applied in two ways:
i) for hand derivation and optimisation of programs, and ii) as an automatic optimisation
tool in functional language compilers. Hand derivation can be quite dicult, as seen,
for example, by my derivation of a parallel FIR in , and Jones' derivation of the
FFT algorithm . I believe the most appropriate path for further development of the
transformations presented here would be in the context of a transformational dataow
programming tool: the programmer would choose from a catalog of transformations to be
applied by the tool.
Chapter 6
Dynamic Process Networks
In the previous chapter, I considered static, SDF networks expressed in Haskell. The use
of SDF networks in block-diagram systems like Ptolemy  is well-established, and SDF
networks are adequate to describe the bulk of signal processing systems|Ptolemy's predecessor, Gabriel , supported only SDF.
As soon as we consider systems which interact with asynchronous events, however,
synchronous dataow is inadequate. For example, consider the \digital gain control" shown
in gure 6.1. The gain control signal has a value only when a person changes the position
of a gain control knob. In order to produce an appropriate output signal, we must be able
represent the times of occurrence of gain control values relative to the input signal.
There are two key approaches to modelling time:
{ Insert hiatons into the stream. A hiaton is a special token representing the passage of
time .
{ Attach a time-stamp to each token, denoting the real time at which the token occurs
Gain control
Output signal
Input signal
Figure 6.1. A simple digital gain control
166
CHAPTER 6. DYNAMIC PROCESS NETWORKS
167
.
In this chapter, I develop a hybrid approach suitable for real-time implementation: a
hiaton can represent any number of ticks of the \base clock" to which all timing of the stream
is quantised. This approach avoids having processes spend all their time testing for hiatons;
it also prevents unbounded latencies, a potential problem with real-time implementation of
time-stamps.
The approach described here contrasts with other approaches to modelling time, in
that it maintains a dataow implementation focus through the use of time-passing tokens.
Because it explicitly models time, it is more general than dynamic dataow systems employing switch and select actors . It contrasts with the approach taken in the family
of \synchronous" (in a dierent sense to SDF) languages , which compile dataow-like
programs into nite-state machines.
Timed streams imply dynamic scheduling; they also give rise to dynamic process networks. (Although dynamic networks can be created using only synchronous stream functions, I have not been able to think of a realistic example.) A complete music synthesiser
example provides ample opportunity to explore dynamic process networks: the synthesiser
exhibits a very high level of asynchronous behaviour.
6.1 Related work
Prior to the development of SDF scheduling, block-diagram oriented simulation systems
used dynamic actor scheduling. Messerschmitt's BLOSIM simulator , for example, red
actors in round-robin fashion; an actor that had insucient input data was required to
A general approach to supporting multiple models of computation has been taken in
Ptolemy: a domain is a graph that supports a given model of computation; this graph
has an interface that allows it to be embedded within graphs of a dierent domain .
The \dynamic dataow" (DDF) domain  implements dynamic scheduling of dataow
graphs. In the DDF domain, input channels to the graph are initialised with a xed number
of tokens, and the actors red until no further rings can be made. This allows a DDF
domain to be embedded within an SDF domain. An entirely dierent approach to time is
taken in the discrete-event (DE) domain . Here, actors operate on timed events ; a global
CHAPTER 6. DYNAMIC PROCESS NETWORKS
168
clock is used to order actor rings correctly in time, according to the times of occurrence
of the actor's input events.
None of these approaches is, however, really suitable for gure 6.1. Pino et al 
have recently developed the notion of \peek" and \poke" actors. These actors act as the
interface between two independently-scheduled graphs, running on two dierent processors.
For example, the multiplier in gure 6.1 would execute on a real-time DSP device, while the
control signal would be written to a shared memory location by a control CPU. Because
the reads and writes are unsynchronised, the amplitude of the output signal will change
as expected provided that the latency of the control CPU processing is undetectable to a
human listener.
The approach I develop in this chapter explicitly represents time. It thus has the advantage of precision over Pino et al 's method, although it will be more complex to implement.
Other languages that explicitly model time include real-time extensions to Lucid, and the
synchronous languages. Lucid  is a dataow-like language, in which all data|even
constants|occurs in streams. Faustini and Lewis  propose that each stream also have
an associated stream of time windows, where a time window is a pair (a; b) that denotes the
earliest time at which the corresponding daton can be produced, and the latest time it needs
to be available. Skillicorn and Glasgow  use a similar approach: they associate earliest
and latest time streams with each data stream, and construct isomorphic nets operating
on these streams. From the earliest input streams, the earliest time at which any token is
produced is calculated; from the latest output streams, the latest time at which any token
can be produced is calculated.
The synchronous languages  also explicitly model time. They are based on the
synchrony hypothesis : each reaction to an event is supposed to be instantaneous . Interprocess communication in Esterel, for example, is done by broadcasting events to all processes; the broadcast and all responses to it are instantaneous. This simplifying assumption
allows a precise specication of time semantics and compilation of programs into nite-state
automata. The family of synchronous languages includes Esterel , Lustre , Signal
, and RLucid, a version of Lucid extended with time-stamps .
CHAPTER 6. DYNAMIC PROCESS NETWORKS
169
6.2 Timed signals and streams
In section 2.4.1, a non-uniformly clocked signal xe was dened at times given by its clock , tex .
I will drop the xe notation now, as it will be clear from context whether a signal is uniformly
or non-uniformly clocked.
The clock tx is quantised to a base clock bx = fnT j n 0g for constant T . tx thus only
has values in bx :
tx (n) 2 bx ; n 0
If the signal is a sampled version of an analog signal xa , then
x(n) = xa(tx (n));
n0
Because I am working within the framework of an existing language, I cannot add a time
semantics to the language, as I could if starting afresh. Instead, I make time information
explicit|that is, time is just data. Tokens that carry time information are called hiatons :
4n is a hiaton that denotes n ticks of the base clock, and 4 is a unit hiaton, which denotes
a single tick. Tokens that carry signal data are called datons . A stream carrying datons
and hiatons is a timed stream; here is an example:
f1; 4; 3; 4; 42; 7g4
where the 4 subscript indicates a timed stream (as opposed to a synchronous stream).
The Haskell type denition for tokens is:
data Token
= Hiaton Int
| Daton
| Datons <Token
| Block < >
>
|Hiaton
|Single-value daton
|Timed vector
|Synchronous vector
Unit datons, denoted by the Daton tag, occupy a single tick of the base clock; the datons
in the example stream above are unit datons. A stream containing only hiatons and unit
datons is called a simple stream. There are two other kinds of daton: a timed vector is a
vector of hiatons and unit datons, written h4; 42 ; 7i4 ; a synchronous vector is a vector of
data, each element of which is equivalent to a unit daton. The duration of a token is the
CHAPTER 6. DYNAMIC PROCESS NETWORKS
170
number of base-clock ticks it occupies, and is given by the duration function:
duration :: Token
! Int
duration (Hiaton n) = n
duration (Daton x)
= 1
duration (Datons v) = sumV (mapV duration v)
duration (Block v)
= lengthV v
A timed stream is a stream of tokens. NullT is the stream terminator (equivalent to f g
on synchronous streams); :-: is the timed stream constructor:
data Timed
= NullT
| Token
:-: (Timed
)
In an earlier paper , I used two representations of passing time: time-stamps, and
unit hiatons. The problem with unit hiatons is that they imply that processes will do a
great deal of work just marking time|that is, processing hiatons. Time-stamps, on the
other hand, have indeterminate latency|some functions may not produce output until
an indeterminate time after they have read the required input. This is unacceptable for
real-time operation, and is the reason why I have adopted a hybrid approach.
Consider a timed merge function: this function produces a token when it receives a token
on either input, but takes account of token durations so that the output token appears at
the correct tick. Datons are passed to the output; hiatons result in a new hiaton (of possibly
dierent duration) on the output. Because the arrival time of tokens is not synchronised
to the token durations, timed merge cannot produce an output hiaton until the next input
token is received|only then is the duration of the output hiaton known. If the duration of
input hiatons is unbounded|as for time-stamped data|then the time between receiving
an input daton and producing the following output hiaton is also unbounded.
For real-time operation, then, the duration of all tokens must be bounded by some limit,
say L. Suppose that L = 32. The stream f1; 474; 2g4 does not have bounded latency, but
the stream f1; 432 ; 432 ; 410 ; 2g4 is. A process that produces a real-time stream must ensure
that it meets this requirement; and a process that consumes a real-time stream must ensure
that its output streams have latency no greater than that of the input stream.
CHAPTER 6. DYNAMIC PROCESS NETWORKS
(:-:) :: Token
!
171
! Timed ! Timed !
!
! Timed ! Timed ; Token )
tmapT :: (
Token )
(Int Token )
zipT :: Timed
Timed
Timed (Token
!
!
( ! ! (; Token )) ! ( ! Int ! (; Token ))
tstateT
::
groupT
concatT
:: Int
Timed
Timed
:: Timed
Timed
! ! Timed ! Timed !
!
!
! Stream ! Timed concatvT :: Timed
timeT
:: Stream
Figure 6.2. Types of timed stream functions
6.3 Functions on timed streams
This section presents a set of \primitive" functions on timed streams, as I did for synchronous streams in section 5.3.2. Again, the aim is to provide a set of functions with
known dataow actor equivalents, so that a process network can be translated into a dataow network. Because, however, the variety of operations on timed streams is much greater
than on synchronous streams, I cannot claim that these functions are complete in any way.
Nor have I provided dataow actor equivalents for these functions, as further work is required to nd the most useful set of functions. The types of the functions presented in this
section are listed in gure 6.2. Recursive denitions are given in appendix A.
6.3.1 Basic functions
The rst three functions are similar to mapS, zipS, and stateS on synchronous streams.
Because of the presence of hiatons, they are necessarily more complex. All three accept
simple timed streams|that is, streams containing only hiatons and unit datons.
tmapT has two function arguments: the rst is applied to the value of each unit daton,
the second to the duration of each hiaton. Both produce a token|a hiaton or any kind of
daton is acceptable. Using tmapT, we can dene a version of map that only operates on
unit datons and ignores hiatons:
CHAPTER 6. DYNAMIC PROCESS NETWORKS
mapT ::
172
( ! ) ! Timed ! Timed mapT f = tmapT (Daton . f) Hiaton
For example,
mapT f1; 4; 3; 4; 42; 7g4 ! f2; 4; 4; 5; 42; 8g4
tmapT can also be used to dene lterT, which replaces unit datons that do not satisfy
a predicate with unit hiatons:
filterT ::
( ! Bool) ! Timed ! Timed filterT p = tmapT
n
( x -> if p x then Daton x else Hiaton 1)
Hiaton
The second function, zipT zips two timed streams into a timed stream of pairs; this
stream contains a pair whenever either of its two input streams contains a unit daton.
Because only one of the streams can contain a daton, one element of the pair can be a
daton while the other is a unit hiaton. For example,
zipT f1; 4; 3; 4; 42; 7g4 f1; 44 ; 6; 4g4 ! f(1; 1); 4; (3; 4); (4; 4); 4; (4; 6); (7; 4)g4
With zipT, it is easy to dene functions that operate on two timed streams. The rst
is the unfair timed merge discussed in section 6.2. The unfair merge outputs only the value
from its rst input if datons occur on both input streams at the same time:
mergeT :: Timed
! Timed ! Timed mergeT xs ys = tmapT merge Hiaton (zipT xs ys)
where
merge (Daton x, Daton y)
= Daton x
merge (Daton x, Hiaton 1) = Daton x
merge (Hiaton 1, Daton y) = Daton y
An operation found in synchronous languages with time semantics produces elements of
one signal (the \data" signal) at the times at which elements of another signal (the \clock"
signal) occur. In the Haskell version, whenT, a unit hiaton is output if the data signal has
CHAPTER 6. DYNAMIC PROCESS NETWORKS
173
no value when the clock contains data. For example,
f8; 42; 5; 4; 4; 2; 1g4 whenT f1; 4; 3; 4; 42; 7g4 ! f8; 4; 4; 5; 42; 2g4
The denition of whenT is very similar to that of the unfair merge:
whenT :: Timed
! Timed ! Timed whenT xs ys = tmapT when Hiaton (zipT xs ys)
where
when (Daton x, Daton y)
= Daton
x
when (Daton x, Hiaton 1) = Hiaton 1
when (Hiaton 1, Daton y) = Hiaton 1
tstateT is the nal primitive of this rst group; it propagates a \state" value along the
stream. tstateT takes two function arguments: one applied to each daton value, and one
to the duration of each hiaton. Both functions also accept a \state" argument, and both
produce a pair containing an output token and the next state. For example, to replace each
daton with the number of ticks since the previous daton occurred, propagate a counter as
the state and output it when a daton occurs:
deltaT :: Timed
! Timed Int
deltaT = tstateT f g 1
where
f a x = (1,
Daton a)
g a n = (a+n, Hiaton n)
For example,
deltaT f1; 4; 3; 4; 42; 7g4 ! f1; 4; 2; 1; 42; 3g4
6.3.2 Timed vectors
A timed vector is a vector of tokens, marked in a timed stream by the tag Datons. There
are two primitives for working with streams containing timed vectors: groupT and concatT.
These functions are analogous to groupS and concatS on synchronous streams.
groupT produces a timed vector stream from a simple timed stream. Unlike groupS,
CHAPTER 6. DYNAMIC PROCESS NETWORKS
174
the last vector may have a dierent duration to the rest. For example,
groupT 2 f1; 4; 3; 4; 42; 7g4 ! fh1; 4i4 ; h3; 4i4 ; 42 ; h7i4g4
concatT joins a stream of hiatons, unit datons, and timed vectors back into a timed
stream. To illustrate, let us use concatT to up-sample a simple timed stream. In the
following denition, tmapT is used to replace each daton by a timed vector containing the
daton and a hiaton, and to multiply the duration of each hiaton by the up-sampling factor.
concatT joins the timed vector stream back into a timed stream.
upsampleT :: Int
! Timed ! Timed upsampleT k = concatT . tmapT f g
where
f x = Datons
hDaton
i
x, Hiaton (k-1)
g n = Hiaton (k*n)
For example,
upsampleT 2 f1; 4; 3; 4; 42; 7g4 ! f1; 4; 42 ; 3; 4; 4; 4; 44 ; 7; 4g4
A more complex function using concatT \retimes" a simple timed stream. This is useful
for reducing the number of hiatons in streams produced by lterT. The rst argument is
the latency of the output stream; the function assumes that the latency of the input stream
is no greater than this value. It works by propagating a count of the number of ticks since
the last daton was output, and emitting a hiaton when a daton is encountered or the count
reaches the latency:
retimeT :: Int
! Timed ! Timed retimeT k = concatT . tstateT f g 0
where
f 0 x = (0, Daton x)
f i x = (0, Datons
g i n | i+n < k
hHiaton
= (i+n,
i
h i)
i, Daton x )
Datons
| otherwise = (i+n-k, Hiaton k)
CHAPTER 6. DYNAMIC PROCESS NETWORKS
175
For example,
retimeT 2 f1; 4; 3; 4; 4; 4 ; 7g4 ! f1; 4; 3; 4; 42; 7g4
The requirement that input latency be no greater than the output latency makes sense
when real-time eects are considered. If the input stream has some latency L, then the
timing of the output tokens will still, in eect, exhibit a delay of L; just because the output
hiatons have a lower maximum duration does not make them advance in time. For the sake
of following examples, assume there is a global variable named latency with value two.
6.3.3 Synchronous and timed streams
The last two functions of gure 6.2 operate on both timed and synchronous streams.
concatvT concatenates a vector containing only unit datons and synchronous vectors into
a synchronous stream. Two useful functions dened using concatvT are llT, which inserts
a specied value into empty slots of a stream, and holdT, which inserts the most recent
daton value into empty slots:
!
!
!
!
fillT ::
Timed
Stream
fillT a = concatvT . tmapT f g
where
f x = Daton x
g n = Block (copyV n a)
holdT ::
Timed
Stream
holdT a = concatvT . tstateT f g a
where
f v x = (x, Daton x)
g v n = (v, Block (copyV n v))
For example,
llT 0 f1; 4; 3; 4; 42; 7g4 ! f1; 0; 3; 4; 0; 0; 7g
holdT 0 f1; 4; 3; 4; 42; 7g4 ! f1; 1; 3; 4; 4; 4; 7g
The introduction to this chapter gave a simple example of a timed user control over a
real-time signal processing function. The \digital gain control" is easily dened by:
digitalGain :: Num
)
Stream
! Timed ! Stream CHAPTER 6. DYNAMIC PROCESS NETWORKS
176
digitalGain signal control
= zipWithS (*) signal (holdT zero control)
This simple idea can be used to convert any kind of real-time process into one with
dynamic user control.
timeT converts a synchronous stream to a timed stream by adding Daton tags. For
example, we could use it to convert a synchronous boolean signal into a \clock" stream,
dened only when the original stream contains the value True:
clockT :: Stream Bool
! Timed Bool
clockT = retimeT latency . filterT (== True) . timeT
Note that the clock signal is retimed to latency. One use for timed streams may be to
reduce the data rate of a signal. To do so, dene a function that outputs a daton only when
the input value changes. This function, edges, is dened in terms of clockT and whenT; its
rst argument is the starting value with which it compares the rst value in the stream:
edges :: Eq
) ! Stream ! Timed edges a xs = retimeT latency
((timeT xs) whenT (clockT (zipWithS (/=) xs (a:-xs))))
For example,
edges 0 f1; 1; 3; 4; 4; 4; 7; 7g ! f1; 4; 3; 4; 42; 7; 4g4
edges can be used with deltaT to nd the distance between zero-crossings of a signal:
(deltaT edges True mapS ( 0)) f0; 1; 2; ;1; ;1; ;2; 1; ;1g
! f42 ; 4; 4; 42; 3; 1g4
Suppose we wish to encode and transmit a signal as straight-line segments. The encoding
produces as its rst value the rst value of the signal, as its second the slope of the rst
segment, and thereafter, the slope of the signal whenever it changes:
encode :: Num
)
Stream
! Timed encode xs = edges huge (zipWithS (-) xs (zero:-xs))
where
huge = fromInteger (-100000000)
CHAPTER 6. DYNAMIC PROCESS NETWORKS
177
where huge is some value that cannot appear in the input stream.
For example,
encode f0; 1; 2; 2; 2; 0; ;2; ;3; ;3; ;3; ;3g ! f0; 1; 4; 0; 4; ;2; 4; ;1; 0; 42g4
To reconstruct the signal, do a zero-order interpolation and then integrate:
decode :: Num
)
Timed
! Stream decode = scanS (+) zero . holdT zero
For example,
decode f0; 1; 4; 0; 4; ;2; 4; ;1; 0; 42g4 ! f0; 1; 2; 2; 2; 0; ;2; ;3; ;3; ;3; ;3g
6.4 Dynamic process networks
Dynamic process networks arise when streams are \nested." Typically, synchronous streams
are nested within timed streams|that is, each daton of the timed stream creates one or
more processes that produce a new synchronous stream. This new stream is produced
concurrently with other streams already initiated by the timed stream. After some time,
the synchronous streams end, and the process or processes producing it disappear. This
section describes primitive functions that make nite synchronous streams, \spawn" new
processes, and combine streams. The types of these functions are listed in gure 6.3.
6.4.1 Finite synchronous streams
The rst four functions of gure 6.3 are used to create nite synchronous streams. As the
example in section 6.5 will show, synchronous streams are often created by taking an initial
prex of one stream, following it with another stream, and so on. Consider how we might
do this with Haskell standard prelude functions on lists (described in section 2.2.1). To
dene a function that produces a stream containing the rst ve elements of a list followed
by an innite number of copies of the fth element, we write:
fiver xs = let ys = take 5 xs
in
ys ++ repeat (last ys)
CHAPTER 6. DYNAMIC PROCESS NETWORKS
doneS
truncateS
!
:: Generator
:: Stream
Stream
178
! Generator ! Stream takeFiniteS ::
( ! ! ) ! ( ! ! Bool) ! ! takeAsLongS ::
( ! Bool) ! Timed ! Stream ! Stream ! Generator ! Stream ! Generator ! Stream Figure 6.3. Types of nite stream functions
For example,
ver [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] ! [1; 2; 3; 4; 5; 5; 5; : : :]
If we interpret the functions used in ver as processes, there are four: take, ++, repeat,
and last. ++ and last do almost no work: ++ outputs elements of one stream until it
terminates, and then outputs elements of a second stream; last just waits for a stream to
terminate, then outputs the last element.
Because a nite stream often has a second stream appended to it, I have dened functions
on streams to take an additional function argument, of type ! Stream . A function of
this type is called a generator ; a Haskell type synonym makes it easier to recognise:
type Generator
=
! Stream For example, the stream version of take, takeS, outputs a given number of elements from
its input stream; it then applies the generator to the last of these elements. Used this way,
the generator is called a stream continuation . The generator becomes a new process which
produces further elements into the output stream. If takeS is unable to produce any output
elements (for example, the input stream is empty or k = 0), there is no element to which
to apply the continuation. To work around this, takeS also accepts a value to be passed to
the continuation.
For example, the above example, translated to synchronous streams, becomes
fiver xs = takeS 5 0 xs repeatS
which requires only two processes.
CHAPTER 6. DYNAMIC PROCESS NETWORKS
179
To terminate the output stream, use the doneS generator. doneS takes a single element,
ignores it, and produces an empty stream. For example, to take the rst ve elements of a
synchronous stream xs and terminate:
takeS 5 0 f1; 2; 3; 4; 5; 6; 7; 8; 9; 10g doneS ! f1; 2; 3; 4; 5g
takeS is dened in terms of a more complex primitive function, takeFiniteS; the denition
of takeS and that of additional nite stream functions are listed in gure 6.4. takeFiniteS
accepts the following arguments:
{ A function from a state and the current input value to the next state.
{ A predicate from a state and the current input value; the stream continuation is applied
to the last output element when the predicate returns True.
{ The initial state.
{ The argument to the stream continuation if no output elements were produced.
{ The input stream.
{ The stream continuation.
takeWhileS is also dened in terms of takeFiniteS; it stops reading its input stream when
a predicate fails. For example,
takeWhileS (< 4) 0 f1; 2; 3; 4; 5; 6; 7g doneS ! f1; 2; 3g
truncateS is a primitive; it stops reading its second argument stream when its rst
argument stream terminates. For example,
truncateS f1; 2; 3; 4g fa; b; c; d; e; f g doneS ! fa; b; c; dg
With truncateS, we can dene a few more nite stream functions, which will be used
in the synthesiser example. mapWhileS (gure 6.4) applies a function to elements of its
input stream; it stops reading the input stream and calls the continuation when a supplied
CHAPTER 6. DYNAMIC PROCESS NETWORKS
180
takeS :: Int -> a -> Stream a -> Generator a -> Stream a
takeS = takeFiniteS (\n _ -> n-1) (\n _ -> n > 0)
takeWhileS :: (a -> Bool) -> a -> Stream a -> Generator a-> Stream a
takeWhileS p = takeFiniteS (\_ _ -> ()) (\_ x -> p x) ()
mapWhileS :: (a -> Bool) -> (a -> b) -> a
-> Stream a -> Generator b -> Stream b
mapWhileS p f a xs = truncateS
(takeWhileS p a xs doneS)
(mapS f xs)
takeWhileDeltaS :: Num a => (a -> Bool) -> a
-> Stream a -> Generator a -> Stream a
takeWhileDeltaS p a (x:-xs) c
= x :- truncateS
(takeWhileS p a (zipWithS (-) xs (x:-xs)) doneS)
xs
c
Figure 6.4. More functions for making nite streams
predicate fails. For example,
mapWhileS (< 4) (+1) 0 f1; 2; 3; 4; 5; 6g repeatS ! f2; 3; 4; 4; 4; 4; : : :g
takeWhileDeltaS is like takeWhileS, but stops reading the input stream and calls the
continuation when the dierence between successive elements fails to satisfy the supplied
predicate. For example,
takeWhileDeltaS (< 2) 0 f1; 2; 3; 5; 7; 9g doneS ! f1; 2; 3g
The nal primitive in this group is takeAsLongS. This function stops reading a synchronous stream when a daton of a timed stream fails a supplied predicate. For example,
takeAsLongS (< 6) f1; 42 ; 4; 42; 7; 4g4 f1; 2; 3; 4; 5; 6; 7; 8g doneS ! f1; 2; 3; 4; 5; 6g
CHAPTER 6. DYNAMIC PROCESS NETWORKS
spawnT
combineT
::
::
181
( ! Bool) ! Timed ! Timed (Timed )
(Vector ! ) ! Timed (Stream ) ! Stream Figure 6.5. Types of dynamic process functions
6.4.2 Dynamic process functions
The last two primitive functions given in this section \spawn" new streams, and combine
synchronous streams. Their types are given in gure 6.5. spawnT is the key to building
dynamic process networks. For each daton that satises a given predicate, spawnT creates
a new daton that is its argument stream from that daton on. Datons that do not satisfy
the predicate result in a unit hiaton. For example,
spawnT odd f1; 4; 3; 4; 42; 7g4 ! ff1; 4; 3; 4; 42; 7g4 ; 4 ; f3; 4; 42; 7g4 ; 4; 42 ; f7g4g4
Each stream within the top-level stream can produce new processes. Let us dene a
function which produces, for each odd daton in a timed stream, a synchronous stream
containing 3 copies of that daton:
odder :: Num
)
Timed
! Timed (Stream )
odder xs = mapT proc (spawnT odd xs)
where
proc (Daton x :-: xs) = takeS 3 (repeatS x) doneS
For example,
odder f1; 4; 3; 4; 42; 7g4 ! ff1; 1; 1g; 4 ; f3; 3; 3g; 4 ; 42 ; f7; 7; 7gg4
If we line these streams up to show the times at which elements are produced, we get
Time
Values
1
2
3
4
5
6
7
8
9
--------------------------------1
1
1
3
3
3
7
7
7
A nested stream of synchronous streams can be combined into a single synchronous
CHAPTER 6. DYNAMIC PROCESS NETWORKS
182
stream with combineT. combineT accepts a function which is applied to a vector of values
produced in that tick by all existing synchronous sub-streams; if there are no streams
producing data at that time, this function will be applied to an empty vector. For example,
combineT sumV ff1; 1; 1g; 4; f3; 3; 3g; 4; 42 ; f7; 7; 7gg4 ! f1; 1; 4; 3; 3; 0; 7; 7; 7g
6.5 A digital music synthesiser
This section illustrates the use of dynamic process creation to generate musical tones. The
synthesiser receives a timed stream of tokens that represent \note-on" and \note-o" events;
on each note-on event, it creates new processes to generate a note of the specied frequency.
Eventually, the note decays to nothing, and the processes producing that note disappear.
There is a great deal of dynamism in this example, and readers familiar with the strict
real-time constraints of DSP may doubt that it is possible to implement a program like this
in real time. That it is possible has been shown by the implementation of a polyphonic
synthesiser in C on a single TMS320C30, by Michael Colefax . Colefax' program implements a synthesiser with a similar (although simpler) structure to that of the following
Haskell program. It can generate up to 17 notes when generating sine waves, but only two
with formant-wave-function (FWF) synthesis (section 6.5.4). With re-coding of selected
parts of the FWF algorithm in assembler, considerably more notes should be achievable.
6.5.1 Notes
The input to the synthesiser is a timed stream of notes. The NoteEvent type and associated
types and functions are listed in gure 6.6. This stream is typically produced by an interface
to a music keyboard: when a key is pressed, a NoteOn daton is generated, containing the
note ID, its frequency, and an amplitude value reecting how hard the key was struck;
when the note is released, a NoteO daton is generated, containing the note ID. Some time
after the note-o event, the note decays to nothing; a note thus exists from the time that
its note-on event occurs until some time a corresponding note-o event occurs. This is a
polyphonic synthesiser, so an arbitrary number of notes can be active simultaneously.
The note event stream I will use in this example is:
notes = f44 ; NoteOn 7 3000:0 0:25; 415 ; NoteOn 3 5000:0 0:4;
CHAPTER 6. DYNAMIC PROCESS NETWORKS
type
type
type
type
Frequency
Amplitude
NoteID
Envelope
=
=
=
=
183
Float
Float
Int
[(Float, Float)]
data NoteEvent = NoteOn NoteID Frequency Amplitude
| NoteOff NoteID
isNoteOn (NoteOn _ _ _)
isNoteOn (NoteOff _)
= True
= False
isNoteOff noteid (NoteOff nid)
| noteid == nid
= True
| otherwise
= False
isNoteOff noteid _
= False
sampleRate :: Float
sampleRate = 32000.0
Figure 6.6. Note events and associated code
414 ; NoteO 3; 425 ; NoteO 7;
418 ; NoteOn 11 6000:0 0:1; 49 ; NoteO 11; 424 g4
The sample rate of the synthesiser is 32,000 Hz.
6.5.2 Envelopes
When a note-on event is received, the synthesiser starts generating a note of the appropriate
frequency. The amplitude of the note is controlled by an \envelope," which is a series of
straight-line segments, sampled at 1=T . An envelope is specied as a list of (slope, target)
pairs; when each segment is started, it proceeds towards the target value at the value
indicated by the slope. A slope of zero indicates that the current value is to be held
indenitely. The function rampTo of gure 6.7 generates a synchronous stream for a single
segment of the envelope; the function ramps recursively processes a list of (slope,target)
pairs to join a series of segment streams end-to-end.
CHAPTER 6. DYNAMIC PROCESS NETWORKS
184
ramp :: Float -> Generator Float
ramp slope = tailS . iterateS (+ (slope/sampleRate))
rampTo :: Float -> Float -> Float -> Generator Float -> Stream Float
rampTo start slope target cont
| slope < 0.0 = takeWhileS (>= target) start (ramp slope start) cont
| slope > 0.0 = takeWhileS (<= target) start (ramp slope start) cont
| otherwise
= repeatS start
ramps :: Envelope -> Generator Float
ramps ((slope, target) : rest) start = rampTo start slope target (ramps rest)
ramps _ _
= NullS
envelope :: Timed NoteEvent -> Envelope -> Envelope -> Stream Float
envelope [email protected]((Daton (NoteOn noteid _ _)):-:_) a d
= attack decay
where
attack = takeAsLongS (not . isNoteOff noteid)
notes
(0.0 :- ramps a 0.0)
decay x = ramps d x
Figure 6.7. Ramp and envelope generators
CHAPTER 6. DYNAMIC PROCESS NETWORKS
185
A typical note-on envelope is an \attack-decay-sustain" envelope, such as
attack = [(6400:0; 1:01); (;3200:0; 0:49); (0:0; 0:0)]
When a note-o event is received, the note envelope decays from its current value to
zero:
decay = [(;1000:0; 0:0)]
The complete note envelope is its attack envelope followed by its decay envelope. Function envelope of gure 6.7 generates the complete note envelope: it starts an envelope on a
note-on event, and uses takeAsLongS to switch to the decay envelope when the corresponding note-o event occurs in the note event stream. The amplitude of each note's envelope
is scaled by the amplitude parameter in the note-on event. The dashed line in gure 6.10
shows the superimposed envelopes of the above note event stream.
6.5.3 Note generation
Figure 6.8 lists the code associated with the generation of a single note. siner is a sine wave
generator: given a frequency parameter, it generates an innite sine wave of that frequency.
atline is used for testing envelope generators: it generates an innite stream of ones.
The notegen function accepts an attack and decay envelope, a waveform generator (such
as siner), and the note-event stream that starts with the current note. It uses envelope to
generate the note envelope, the waveform generator to generate the note's waveform, and
multiplies the two. It also scales the waveform by the note's amplitude. The note terminates
when the envelope terminates.
The complete synthesiser is a pipeline of three stages|its code is given in gure 6.9.
Its structure is identical to the dynamic process example on page 181. Each note-on event
produces a new timed stream; for each of these, a note generator process is created to
produce the synchronous stream corresponding to that note; nally, all of these synchronous
streams are summed into a single synchronous stream.
The waveform generator used by the synthesiser is passed to it as the argument generate.
Figure 6.10 shows the result of evaluating the expression
synthesiser attack decay siner notes
CHAPTER 6. DYNAMIC PROCESS NETWORKS
siner
:: Generator Float
siner freq = mapS sin (phaser 0.0 freq)
phaser
:: Float -> Float -> Stream Float
phaser init freq = iterateS next init
where
next phase = fmod (phase + phinc) (2.0 * pi)
fmod x m
= if x > m then x - m else x
phinc
= (2.0 * pi * freq) / sampleRate
flatline
:: Generator Float
flatline freq = repeatS one
notegen :: Envelope -> Envelope -> Generator Float
-> Timed NoteEvent
-> Stream Float
notegen on off gen [email protected]((Daton (NoteOn _ freq ampl)) :-: ns)
= mapS (* ampl) (zipWithS (*)
(envelope notes on off)
(gen freq))
Figure 6.8. Note generators
186
CHAPTER 6. DYNAMIC PROCESS NETWORKS
187
synthesiser :: Envelope -> Envelope -> Generator Float
-> Timed NoteEvent -> Stream Float
synthesiser on off generate = combineT sumV
. mapT (notegen on off generate)
. spawnT isNoteOn
Figure 6.9. The top-level synthesiser
The dashed line in the gure is the sum of the note envelopes, produced by
synthesiser attack decay atline notes
6.5.4 A formant-wave-function note generator
Although useful for testing, sine waves are musically uninteresting. Formant-wave function
(FWF) synthesis is a time-domain method for simulating the excitation-pulse + resonantlter model of sound synthesis . For music synthesis, the FWF algorithm is relatively
simple to implement, as demonstrated by the implementation of a monophonic synthesiser
in assembler on a TMS320C25 xed-point DSP chip . Parameters of the algorithm have
a direct relation to the shape of the frequency spectrum, which is helpful for programming
musical sounds, and it can produce rich and interesting sounds.
A formant is a peak in the spectrum of a musical note, and is typical of instruments
based on an excitation pulse and a resonant cavity, including brass, woodwind, organ, and
the human voice. An impulse passed through a resonant cavity with a single spectral peak
produces a sine wave with an exponentially decaying envelope; in the FWF algorithm,
this waveform is produced directly in the time domain. Typical instruments have three
or four resonant peaks, the shape of which, and the time-variation in the shape of which,
give the instrument its characteristic timbre. In this example, I will produce only a single,
non-time-varying, formant.
Each formant-wave function (FWF) is the product of a sine wave at the resonant frequency, and an envelope, which determines the shape of the spectral peak . The
CHAPTER 6. DYNAMIC PROCESS NETWORKS
188
Figure 6.10. Sine-wave synthesiser output
envelope is given by:
8
>
>
>
<
e(t) = >
0;
t0
1 (1 ; cos(t))e;t ; 0 < t 2
>
>
: e;t ;
t > (6.1)
The parameters and control the shape of the spectral peak. The exponential e;t
never terminates, so, to minimise the computational burden, the envelope is changed to a
linear decay when the rate of decay drops below some slope . The modied envelope
is then:
8
>
0;
t0
>
>
>
>
>
< 1 (1 ; cos(t))e;t ; 0 < t (6.2)
e(t) = > 2;t
>
e ;
>
>
>
>
: e; ; (t ; );
<t
t>
where = e;t . Thus, = 1 ln( ) is the time at which the exponential decay changes to
a linear decay.
Figure 6.11 lists the code for FWF tone generation. fwfEnvelope generates the envelope
of a single formant-wave-function. The attack stream is the rising half-cosine wave until
time = , followed by the last of those values repeated forever. The decay stream is the
exponential decay until time , followed by a linear decay. The total envelope is the point-
CHAPTER 6. DYNAMIC PROCESS NETWORKS
fwfEnvelope :: Float -> Float -> Float -> Stream Float
fwfEnvelope alpha beta delta = zipWithS (*) attack decay
where
attack = mapWhileS (<= pi)
(\p -> 0.5 - 0.5 * cos p)
0.0 (phaser 0.0 (beta/(2.0*pi)))
repeatS
decay = takeWhileDeltaS
(< (-delta/sampleRate))
1.0 (1.0 :- mapS exp (ramp (-alpha) 0.0))
(\x -> rampTo x (-delta) 0.0 doneS)
fwf :: [Float] -> Generator Float
fwf [alpha, beta, delta, fc] freq
= zipWithS (*) (fwfEnvelope alpha beta delta) (siner fc)
periods :: Float -> Timed Float
periods freq = timed (cycle [Daton 0.0, Hiaton ((truncate period) - 1)])
where
period = sampleRate / freq
formanter :: [Float] -> Generator Float
formanter parms = combineT sumV . mapT (fwf parms) . periods
Figure 6.11. Formant-wave-function tone generation
189
CHAPTER 6. DYNAMIC PROCESS NETWORKS
190
Figure 6.12. Formant-wave-function output
wise product of the two.
A single format-wave function is generated by fwf, which accepts a list of FWF parameters, and produces the point-wise product of the envelope and a sine wave at the resonant
frequency, fc .
An FWF waveform generator is a series of possibly-overlapping formant-wave-functions.
A timed stream containing datons only at the times at which a new FWF is to start is
generated by the periods generator. (periods is quite coarse: it just truncates the period to
the nearest integer number of ticks. This will result in incorrect tuning at higher frequencies,
but it is adequate for this example.) The formanter function mimics the structure of the
top level of the synthesiser: it produces a single FWF for each daton in periods, then sums
them together into a single waveform.
Figure 6.12 shows a portion of the output of the FWF waveform generator. The dotted
line is the envelope of a single FWF. Note that this waveform will be multiplied by the
note's envelope. Thus, the FWF synthesiser exhibits asynchronicity both in the times at
which notes are produced, and within each note, at the note's pitch period. To produce a
single FWF, several processes are created; for each note, hundreds or thousands are created.
This dynamism is inherent in the algorithm; it remains to be seen whether this degree of
dynamism can be implemented in real time, or whether algorithms like this can only be
implemented by removing some of this dynamism.
CHAPTER 6. DYNAMIC PROCESS NETWORKS
191
6.6 Summary
This chapter demonstrated the use of stream processing functions for writing dynamic process networks. The approach hinges on a particular choice of time representation suitable for
real-time implementation: hiatons that represent an integral number of ticks of a base clock.
Because of the complexity of this representation, I have been unable to produce a complete
set of primitive functions (section 6.3), as I did for synchronous streams. Nonetheless, many
useful examples were shown.
The functions that generate dynamic process networks (section 6.4) are even harder to
limit to a few key functions. Those I dened and demonstrated in that section were suited
to the kinds of network structure used in the example application (section 6.5), but other
applications will likely require additional functions. It is not clear yet whether it will be
possible to provide a sucient set of primitive functions, or whether it will be necessary to
allow programmers to dene their own recursive functions. More work on other applications
of dynamic process networks will be necessary to make further assessment of the validity of
this approach.
Chapter 7
Summary
This thesis has covered a lot of ground, not all to the depth individual topics deserve. In
this nal chapter, I summarise the particular contributions made by the thesis, and indicate
specic directions in which further work can proceed. Finally, I conclude with my thoughts
on the value of the framework introduced in chapter 1 and expounded in remaining chapters.
7.1 Contributions
In chapter 1, I introduced a new framework for signal processing development, in which a
high-level textual language, a visual language, and an ecient low-level execution model
(dataow process networks) combine to form an extremely powerful tool. Although there is
no implementation of the complete framework, I believe I have laid much of the groundwork
for further implementation. Apart from the working Haskell prototype code (appendix A
and in the text), portions of the framework have been implemented: Dawson's prototype
Visual Haskell editor ; the two implementations of SPOOK|Signal Processing ObjectOriented Kernel|described in  and  (see also page 9); and some portions of a
compiler for modern digital signal processors .
Key to the framework is an ecient implementation model. The model, dataow process
networks, although widely used in signal processing development environments, lacks a
formal description of its semantics. In chapter 3, I presented a formal syntax and semantics
of dataow actors and processes. As far as I know, this is the rst attempt to present
a formal semantics of dataow actors and processes in this way. In the nal portion of
the chapter, I presented a new form of actor, phased-form actors. Although early in its
192
CHAPTER 7. SUMMARY
193
development, this kind of actor oers new insights into the behaviour of dataow actors,
and shows promise as a path to improved semantic descriptions of dataow networks.
Chapter 4 presented the Visual Haskell language. Visual Haskell is a substantial design
for a visual language; it builds on the work in the functional programming community that
has lead to the establishment of Haskell as the de facto functional programming language.
It conforms to the most successful model of visual languages, pipeline dataow. The formal
syntax presented in chapter 4 covers a substantial portion of standard Haskell. I used Visual
Haskell extensively in chapter 5 to illustrate functional programs; I believe these examples
demonstrate that the language is usable and (within its stated limitations) complete. When
used to draw functions on streams, it closely resembles block diagrams (see, for example,
gure 5.11). Dawson's prototype implementation of the language  demonstrates the
feasibility of constructing an editor for it.
Throughout the thesis, I have maintained that a functional programming language is an
excellent vehicle for expressing dataow and \block-diagram" style systems. Although this
realisation is not new, I believe that, in chapters 5 and 6, I have explored this relation in the
context of signal processing to a depth not considered previously. A key realisation during
this work is the fact that any SDF network can be built from only delays and ve actors
(section 3.2.5). Because of this, just six functions are all that is required to represent any
rst-order SDF network in a functional programming language (section 5.3). This enables
us to employ SDF scheduling techniques as an implementation technology for this restricted
class of functional programs.
Having identied the utility of functional programming for dataow, I explored the implications of two key facets of functional programming: higher-order functions, and program
transformation (sections 5.4 and 5.5). Although well-developed in the functional programming community, these concepts were foreign to the signal processing community. The use
of higher-order functions in signal processing has been implemented in the Ptolemy system
, based on my work on this topic.
Finally, I have proposed and explored a novel representation of timed streams (chapter 6). A realistic and complete example illustrates how this representation can be used
to express dynamically-changing process networks. Although this work is still evolving, it
nonetheless illustrates a complex dynamic network.
CHAPTER 7. SUMMARY
194
7.2 Further work
There are several key directions in which further work can proceed.
The semantic description of dataow actors in chapter 3 could benet from a more
concise notation. Additional sugaring on the syntax of standard-form actors would make
it easier to write actors. For example, refutable state patterns would make it possible to
write actors like iota as a standard-form actor|in other words, the state becomes part
of the rule-selection process. Further work is needed on the relationship of phased-form
actors and dynamic process networks. Because of the diculty of nding a complete set of
primitive functions over timed streams, the best approach would, I think, be to translate
recursively dened functions on timed streams into phased-form actors. Further work is
also need on phased-form actors|in particular, an algorithm that derives the phased form
of a network of phased-form actors.
Although Visual Haskell (chapter 4) has proved to be an invaluable visualisation tool,
and there has been a prototype implementation, there is still no complete implementation.
It would be an interesting eort to construct a complete editor; an interesting approach
may be build a complete Visual Haskell domain into the Ptolemy system for use in signal
processing exploration and simulation, using say Tcl/Tk  as the graphical environment.
Further work is also needed on iconic representations and type annotations, to nd useful
representations of the dynamic process networks of chapter 6.
Some of the features described in chapter 5 could be incrementally added to existing
signal processing development systems: higher-order functions, and a simple catalogue of
program transformations, for example. Still, the most eective means of implementing
the dataow-network-in-Haskell approach would be to add a new domain to the Ptolemy
system. By doing so, there is no need to adapt functional I/O mechanisms (page 92) to
embedded into an existing dataow environment.
The work in chapter 6 is a rst attempt at identifying the minimal set of functions
needed to support timed dataow. Further work is needed to make this set of functions
complete, and to relate these functions to phased-form dataow actors. Also, the relation of
this work to synchronous languages  needs to be claried. The exploration of dynamic
process networks in sections 6.4 and 6.5 is intriguing, but further examples need to be
developed. An important ingredient in further work along this line will be development of
CHAPTER 7. SUMMARY
195
a formal model for dynamically-evolving dataow networks.
7.3 Concluding Remarks
The complete framework presented in this thesis is somewhat idealistic. Given that users of
such a framework are likely to be engineers, requiring that they learn a functional programming language is unlikely to be a welcome learning overhead. Lazy evaluation is probably
out-of-place in a production signal processing environment, despite its utility in exploration
and prototyping. And the complexities of modern DSP devices are such that generating assembler code ecient enough to meet performance expectations from high-level code (such
as standard-form actors) requires analysis and optimisation technology that does not yet
exist.
The real value of the framework lies perhaps in its use as an ideal model and as a
framework within which specic areas of work can proceed (as I have done in the body of
this thesis). I see two key directions in which practical development based on the framework
can proceed: i) to use it to identify limitations in existing systems, and new features that
can be added to them; and ii) to design a Haskell-like visual dataow language that has
an appropriate mix of strict and non-strict evaluation. I hope to be able to pursue both of
these directions within the Ptolemy system, by extending it to support aspects of my ideal
model, and by implementing the new dataow language as a Ptolemy domain.
Bibliography
 William B. Ackerman. Data ow languages. IEEE Computer, pages 15{24, February
1982.
 A.V. Aho, R. Sethi, and J.D. Ullman. Compilers: Principles, Techniques, and Tools.
 Sudhir Ahuja, Nicholas Carriero, and David Gelernter. Linda and friends. IEEE
Computer, pages 26{34, August 1986.
 Alan L. Ambler, Margaret M. Burnett, and Betsy A. Zimmerman. Operational versus
denitional: A perspective on programming paradigms. IEEE Computer, 25(9):28{43,
September 1992.
 Analog Devices. ADSP-21020 User's Manual, 1991.
 Analog Devices. ADSP-21060 SHARC Super Harvard Architecture Computer, October 1993. Preliminary datasheet.
 Arvind and David E. Culler. Dataow architectures. Annual Reviews in Computer
Science, 1:225{253, 1986.
 Arvind and Kattamuri Ekanadham. Future scientic programming on parallel machines. Journal of Parallel and Distributed Computing, 5:460{493, 1988.
 E. A. Ashcroft. Eazyow architecture. SRI Technical Report CSL-147, SRI International, 333 Ravenswood Ave, Menlo Park, CA 94025, April 1985.
 Tom Axford and Mike Joy. List processing primitives for parallel computation. Computer Language, 19(1):1{17, 1993.
 John Backus. Can programming be liberated from the Von Neumann style? Communications of the ACM, 21(8):613{641, 1978.
 Brian Barrera and Edward A. Lee. Multirate signal processing in Comdisco's SPW.
In ICASSP 91, pages 1113{1116, May 1991.
 Albert Benveniste, Paul Caspi, Paul Le Guernic, and Nicolas Halbwachs. Data-ow
synchronous languages. In A Decade of Concurrency: Reections and Perspective,
pages 1{45. Springer-Verlag, June 1993.
196
BIBLIOGRAPHY
197
 Albert Benveniste, Paul Le Guernic, and Christian Jacquenot. Synchronous programming with events and relations: the SIGNAL language and its semantics. Science of
Computer Programming, 16(2):103{149, September 1991.
 Gerard Berry and Georges Gonthier. The ESTEREL synchronous programming language. Science of Computer Programming, 19:87{152, 1992.
 Shuvra S. Bhattacharyya and Edward A. Lee. Scheduling synchronous dataow graphs
for ecient looping. Journal of VLSI Signal Processing, 6, 1993.
 J. C. Bier, E. E. Goei, W. H. Ho, P. D. Lapsley, M. P. O'Reilly, G. C. Sih, and E. A.
Lee. Gabriel: A design environment for DSP. IEEE Micro, pages 28{45, October
1990.
 Richard Bird and Philip Wadler. Introduction to Functional Programming. Prentice
Hall, 1988.
 R.S. Bird. Using circular programs to eliminate multiple traversals of data. Acta
Informatica, 21(3):239{250, 1984.
 R.S. Bird. Lectures on constructive functional programming. Technical Report Technical Monograph PRG-69, Oxford University Computing Laboratory, Programming
Research Group, Oxford, 1988.
 R.S. Bird. Algebraic identities for program calculation. The Computer Journal,
32(2):122{126, 1989.
 Tore A. Bratvold. Skeleton-Based Parallelisation of Functiona Programs. PhD thesis,
Dept. of Computing and Electrical Engineering, Heriot-Watt University, Edinburgh,
UK, November 1994.
 K. P. Brooks. Lilac: A two-view document editor. IEEE Computer, pages 7{19, June
1991.
 Manfred Broy. Applicative real-time programming. In R. E. A. Mason, editor, Information Processing 83, 1983.
 Joseph Buck, Soonhoi Ha, Edward A. Lee, and David G. Messerschmitt. Ptolemy:
A framework for simulating and prototyping heterogenous systems. International
Journal of Computer Simulation, 1992. Special issue on \Simulation Software Development".
 Joseph T. Buck. Scheduling Dynamic Dataow Graphs with Bounded Memory Using
the Token Flow Model. PhD thesis, Electrical Engineering and Computer Sciences,
University of California Berkeley, 1993.
 Joseph T. Buck. Static scheduling and code generation from dynamic dataow graphs
with integer-valued control streams. In 28th Asilomar Conference on Circuits, Signals
and Systems, November 1994.
BIBLIOGRAPHY
198
 W. H. Burge. Stream processing functions. IBM Journal of Research and Development, 19(1):12{25, January 1975.
 Margaret Burnett and Benjamin Summers. Some real-world uses of visual programming systems. Technical Report TR 94-60-7, Oregon State University, 1994.
 David Busvine. Implementing recursive functions as proceeor farms. Parallel Computing, 19:1141{1153, 1993.
 Luca Cardelli. Two-dimensional syntax for functional languages. In Proc. Integrated
Interactive Computing Systems, pages 107{119, 1983.
 Nicholas Carriero and David Gelernter. How to Write Parallel Programs: A First
Course. MIT Press, 1990.
 P. Caspi, D. Pilaud, N. Halbwachs, and J. A. Plaice. LUSTRE: A declaration language for programming synchronous systems. In 14th ACM Symp. on Principles of
Programming Languages, Munich, West Germany, pages 178{188, January 1987.
 Rulph Chassaing. Digital Signal Processing with C and the TMS320C30. Topics in
Digital Signal Processing. John Wiley and Sons, 1992.
 Murray I. Cole. Algorithmic Skeletons: Structured Management of Parallel Computation. Pitman Publishing, 1989.
 Michael Colefax. A realtime polyphonic music synthesiser. Technical report, School
of Electrical Engineering, University of Technology, Sydney, November 1993. Undergraduate thesis report.
 Gennaro Costagliola, Genovea Tortora, Sergio Orece, and Andrea de Lucia. Automatic generation of visual programming environments. IEEE Computer, 28(3):56{66,
March 1995.
 Stuart Cox, Shell-Ying Huang, Paul Kelly, Junxian Liu, and Frank Taylor. An implementation of static functional process networks. In PARLE'92|Parallel Architectures
and Languages Europe, pages 497{512. Springer Verlag, 1992. LNCS 605.
 Alan D. Culloch. Porting the 3L Parallel C environment to the Texas Instruments
TMS320C40. In A. Veronis and Y. Paker, editors, Transputer Research and Applications 5. IOS Press, 1992.
 J. Darlington, A. J. Field, P. G. Harrison, P. H. J. Kelly, D. W. N. Sharp, Q. Wu, and
R. L. While. Parallel programming using skeleton functions. In PARLE'93|Parallel
Architectures and Languages Europe, pages 146{160. Springer Verlag, June 1993.
 Ken Dawson. Visual Haskell editor and parser. Technical report, School of Electrical
Engineering, University of Technology, Sydney, November 1993. Undergraduate thesis
report.
 Electronics Research Laboratory, University of California Berkeley. The Almagest:
Ptolemy User's Manual Version 0.5, 1994.
BIBLIOGRAPHY
199
 Marc Engels, Greet Bilson, Rudy Lauwereins, and Jean Peperstrate. Cyclo-static
dataow: Model and implementation. In 28th Asilomar Conference on Circuits, Signals and Systems, November 1994.
 Paul Hudak et al. Report on the functional programming language Haskell, a nonstrict purely-functional language, version 1.2. SIGPLAN Notices, May 1992.
 Antony A. Faustini and Edgar B. Lewis. Toward a real-time dataow language. IEEE
Software, pages 29{35, January 1986.
 John T. Feo, David C. Cann, and Rodney R. Oldehoeft. A report on the SISAL
language project. Journal of Parallel and Distributed Computing, 10:349{366, 1990.
 Antony J. Field and Peter G. Harrison. Functional Programming. Addison-Wesley,
1988.
 Markus Freericks and Alaois Knoll. Formally correct translation of DSP algorithms
specied in an asynchronous applicative language. In ICASSP 93, Minneapolis, USA,
pages I{417{I{420, April 1993.
 Daniel D. Gajski, David A. Padua, David J. Kuck, and Robert H. Kuhn. A second
opinion on data ow machines and languages. IEEE Computer, pages 58{69, February
1982.
 H. Garsden and A. L. Wendelborn. Experiments with pipelining parallelism in SISAL.
In 25th Intl. Hawaii Conf. on System Sciences, January 1992.
 Andrew Gill, John Launchbury, and Simon L. Peyton Jones. A short cut to deforestation. In Functional Languages and Computer Architecture (FPCA) 93, 1993.
 David M. Globirsch. An introduction to Haskell with applications to digital signal
processing. Technical report, The MITRE Corporation, 7525 Colshire Drive, McLean,
Virginia 22102-3481, September 1993.
 Eric J. Golin and Steven P. Reiss. The specication of visual language syntax. In
Proc. 1989 IEEE Workshop on Visual Languages, pages 105{110, Rome, Italy, 1989.
 Kevin Hammond. Parallel functional programming: An introduction. In Proc. 1st Intl.
Symp. on Parallel Symbolic Computation (PASCO '94), pages 181{193, Hagenburg,
Austria, 1994. World Scientic.
 Philip J. Hatcher and Michael J. Quinn. Data-Parallel Programming on MIMD Computers. MIT Press, 1991.
 P. Henderson. Purely functional operating systems. In Functional Programming and
its Applications. Cambridge University Press, 1982.
 P. Hilnger, J. Rabaey, D. Genin, C. Scheers, and H. De Man. DSP specication
using the Silage language. In ICASSP 90, Alburqurque, New Mexico, April 1990.
BIBLIOGRAPHY
200
 Daniel D. Hils. DataVis: A visual programming language for scientic visualisation. In
Proc. 1991 ACM Computer Science Conference, pages 439{448, San Antonio, Texas,
March 1991.
 Daniel D. Hils. Visual languages and computing survey: Data ow visual programming
languages. Journal of Visual Languages and Computing, 3:69{101, 1992.
 Charles Antony Richard Hoare. Communicating Sequential Processes. Prentice-Hall,
1985.
 Paul Hudak. Para-functional programming. IEEE Computer, pages 60{70, August
1986.
 Paul Hudak. Conception, evolution, and application of functional programming languages. ACM Computing Surveys, 21(3):359{411, September 1989.
 Paul Hudak and Mark Jones. Haskell vs Ada vs C++ vs Awk vs ...: An experiment
in software prototyping productivity. Research report, Dept. of Computer Science,
Yale University, July 1994.
 John Hughes. Why functional programming matters. The Computer Journal,
32(2):98{107, 1989.
 R. Jagannathan. Dataow models. In E. Y. Zomaya, editor, Parallel and Distributed
Computing Handbook. McGraw-Hill, 1995.
 Thomas Johnsson. Attribute grammars as a functional programming paradigm. In
Functional Programming Languages and Computer Architecture, pages 154{173, Portland, Oregon, 1987. Springer-Verlag. LNCS 274.
 G. Jones. Deriving the fast Fourier algorithm by calculation. In K. Davis and
J. Hughes, editors, Functional Programming: Proceedings of the 1989 Glasgow Workshop, 21-23 August 1989, pages 80{102. Springer-Verlag, 1990.
 Geraint Jones and Mary Sheeran. Circuit design in ruby. In J. Staunstrup, editor,
Formal Methods for VLSI Design, pages 13{70. North-Holland, 1990.
 Mark Jones. A system of constructor classes: Overloading and implicit higher-order
polymorphism. In Proc. ACM Conf. on Functional Programming Languages and Computer Architecture, pages 52{61, Copenhagen, Denmark, June 1993.
 S. B. Jones and A. F. Sinclair. Functional programming and operating systems. The
Computer Journal, 32(2):162{174, February 1989.
 Simon B. Jones. A range of operating systems written in a purely functional style.
Technical Monograph PRG-42, Oxford University Computing Laboratory, September
1984.
 Simon L. Peyton Jones. The Implementation of Functional Programming Languages.
Prentice-Hall, 1987.
BIBLIOGRAPHY
201
 Simon Peyton Jones and Philip Wadler. Imperative functional programming. In ACM
Principles of Programming Languages 93, pages 71{84, January 1993.
 John L. Kelly Jr., Carol Lochbaum, and V. A. Vyssotsky. A block diagram compiler.
The Bell System Technical Journal, pages 669{678, May 1961.
 Gilles Kahn. The semantics of a simple language for parallel processing. In Information
Processing 74, pages 471{475. North-Holland, 1974.
 Gilles Kahn and David MacQueen. Coroutines and networks of parallel processes. In
B. Gilchrist, editor, Information Processing 77. North-Holland, 1977.
 Richard M. Karp and Raymond E. Miller. Properties of a model for parallel computations, determinacy, termination, and queueing. SIAM Journal of Applied Mathematics, 14(6):1390{1411, November 1966.
 Paul Kelly. Functional Programming for Loosely-coupled Multiprocessors. Research
Monographs in Parallel and Distributed Computing. Pitman, 1989.
 Joel Kelso. A visual representation for functional programs. Technical Report CS95/01, Murdoch University, Australia, December 1994.
 Takayuki Dan Kimura, Ajay Apte, Samudra Sengupta, and Julie W. Chan.
Form/formula: A visual programming paradigm for user-denable user interfaces.
IEEE Computer, 28(3):27{35, March 1995.
 Alois Knoll and Markus Freericks. An applicative real-time language for DSP programming supporting asynchronous data-ow concepts. Microprocessing and Microprogramming, 32:541{548, August 1991.
 Jerey Kodosky, Jack MacCrisken, and Gary Rymar. Visual programming using
structured data ow. In Proc. 1991 IEEE Workshop on Visual Languages, pages
34{39, Kobe, Japan, October 1991.
 Konstantinos Konstantinides and John R. Rasure. The Khoros software development
environment for image and signal processing. IEEE Transactions on Image Processing,
3(3):243{252, May 1994.
 P.J. Landin. A correspondence between ALGOL60 and Church's lambda-notation:
Part I. Communications of the ACM, 8:89{101, 1965.
 Rudy Lauwereins, Piet Wauters, Merleen Ade, and J. A. Peperstraete. Geometric
parallelism and cyclo-static data ow in GRAPE-II. In 5th Intl Workshop on Rapid
System Prototyping, Grenoble, France, June 1994.
 Edward A. Lee. private communication, 1993.
 Edward A. Lee. Dataow process networks. Memorandum UCB/ERL M94/53, Electronics Reserach Laboratory, July 1994.
BIBLIOGRAPHY
202
 Edward A. Lee and David G. Messerschmitt et al. An overview of the Ptolemy project.
Anonymous ftp from ptolemy.eecs.berkeley.edu, March 1994.
 Edward A. Lee and David G. Messerschmitt. Static scheduling of synchronous data
ow programs for digital signal processing. IEEE Trans. on Computers, 36(1):24{35,
January 1987.
 Edward A. Lee and David G. Messerschmitt. Synchronous data ow. Proceedings of
the IEEE, 75(9):1235{1245, September 1987.
 Allen Leung and Prateek Mishra. Reasoning about simple and exhaustive demand in
higher-order lazy languages. In 5th ACM Conf. on Functional Programming Languages
and Computer Architecture, pages 328{351, Cambridge, MA, August 1991.
 Andreas Maasen. Parallel programming with data structures and higher-order functions. Science of Computer Programming, 18:1{38, 1992.
 G. P. McKeown and A. P. Revitt. Specication and simulation of systolic systems
functional programming. In Proc. 6th Intl. Workshop on Implementation of Functional
Languages, University of East Anglia, Norwich, UK, September 1994.
 David G. Messerschmitt. A tool for structured functional simulation. IEEE Trans.
on Special Topics in Communications, January 1984.
 Bertrand Meyer. Applying design by contract'. IEEE Computer, 25(10):40{51, October 1992.
 Matthias Meyer. A pilot implementation of the host-engine software architecture
for parallel digital signal processing. Technical report, School of Electrical Engineering, University of Technology Sydney, and Technical University Hamburg-Harburg,
November 1994. FTP from ftp.ee.uts.edu.au as /pub/DSP/papers/spook.ps.gz.
 G. J. Michaelson, N. R. Scaife, and A. M. Wallace. Prototyping parallel algorithms
using Standard ML. In Proc. British Machine Vision Conference, 1995.
 Motorola Inc. DSP96002 IEEE Floating-Point Dual-Port Processor User's Manual,
1989.
 Marc A. Najork and Eric Golin. Enhancing Show-and-Tell with a polymorphic type
system and higher-order functions. In Proc. 1990 IEEE Workshop on Visual Languages, Skokie, Illinois, pages 215{220, October 1990.
 Marc A. Najork and Simon M. Kaplan. The CUBE language. In Proc. 1991 IEEE
Workshop on Visual Languages, pages 218{224, Kobe, Japan, October 1991.
 Marc A. Najork and Simon M. Kaplan. Specifying visual languages with conditional
set rewrite systems. In Proc. 1993 IEEE Symposium on Visual Languages, pages
12{18, August 1993.
 Jerey V. Nickerson. Visual programming: Limits of graphical representation. In
Proc. 1994 IEEE Symposium on Visual Languages, pages 178{179, October 1994.
BIBLIOGRAPHY
203
 John K. Ousterhout. Tcl and the Tk Toolkit. Addison-Wesley, 1994.
 Perihelion Software Ltd. The Helios Parallel Operating System. Prentice Hall, 1991.
 Simon L. Peyton-Jones. Parallel implementations of functional programming languages. The Computer Journal, 32(2):175{186, February 1989.
 Simon L. Peyton-Jones and David Lester. A modular fully-lazy lambda-lifter in
Haskell. Software { Practice and Experience, 21(5):479{506, May 1991.
 Keshav Pingali and Arvind. Ecient demand-driven evaluation, part 1. ACM Trans.
on Programming Languages and Systems, 7(2):311{333, April 1985.
 Jose Luis Pino, Thomas M. Parks, and Edward A. Lee. Mapping multiple independent
synchronous dataow graphs onto heterogeneous multiprocessors. In 28th Asilomar
Conference on Circuits, Signals and Systems, November 1994.
 John A. Plaice. RLucid, a general real-time dataow language. In Proc. Formal Techniques in Real-time and Fault-tolerant Systems, Nijmegan, the Netherlands, January
1992. Springer-Verlag. LNCS 571.
 Jorg Poswig, Guido Vrankar, and Claudio Moraga. VisaVis|a higher-order functional
visual programming language. Journal of Visual Languages and Computing, 5:83{111,
1994.
 Douglas B. Powell, Edward A. Lee, and William C. Newman. Direct synthesis of
optimized DSP assembly code from signal ow block diagrams. In ICASSP 92, pages
V{553{V{556, 1992.
 John Rasure and Mark Young. Dataow visual languages. IEEE Potentials, 11(2):30{
33, April 1992.
 H. John Reekie. Towards eective programming for parallel digital signal processing.
Technical Report 92.1, Key Centre for Advanced Computing Sciences, University of
Technology, Sydney, May 1992.
 H. John Reekie. Real-time DSP in C and assembler. FTP from ftp.ee.uts.edu.au
as /pub/prose/c30course.ps.gz, 1993.
 H. John Reekie. Modelling asynchronous streams in Haskell. Technical Report 94.3,
Key Centre for Advanced Computing Sciences, University of Technology, Sydney, June
1994. FTP from ftp.ee.uts.edu.au as /pub/prose/async-streams.ps.gz.
 H. John Reekie. Visual Haskell: A rst attempt. Technical Report 94.5, Key Centre
for Advanced Computing Sciences, University of Technology, Sydney, August 1994.
BIBLIOGRAPHY
204
 H. John Reekie and Matthias Meyer. The host-engine software architecture for parallel digital signal processing. In Proc. PART'94, Workshop on Parallel and Realtime Systems, Melbourne, Australia, July 1994. FTP from ftp.ee.uts.edu.au as
/pub/prose/host-engine.ps.gz.
 H. John Reekie and John M. Potter. Generating ecient loop code for programmable
dsps. In ICASSP 94, pages II{469{II{472. IEEE, 1994.
 Hideki John Reekie. A real-time performance-oriented music synthesiser. Technical
report, School of Electrical Engineering, University of Technology, Sydney, November
 John Reekie. Integrating block-diagram and textual programming for parallel DSP.
In Proc. 3rd Intl. Symp. on Signal Processing and its Applications (ISSPA 92), pages
622{625, August 1992.
 John Reekie and John Potter. Transforming process networks. In Proc. MFPW'92, the
Massey Functional Programming Workshop, Palmerston North, New Zealand, August
1992. Massey University.
 John Reekie and John Potter. Process network transformation. In David Arnold,
editor, Parallel Computing and Transputers (PCAT-93), pages 376{383. IOS Press,
November 1993.
 Steven P. Reiss. PECAN: Program development systems that support multiple views.
IEEE Trans. Software Engineering, 11(3):324{333, March 1985.
 Xavier Rodet. Time-domain formant-wave-function synthesis. Computer Music Journal, 8(3):9{14, 1984.
 Paul Roe. Parallel Programming using Functional Languages. PhD thesis, Dept. of
Computing Science, University of Glasgow, 1991.
 Gary Sabot. The Paralation Model: Architecture-Independent Parallel Programming.
MIT Press, 1988.
 Mary Sheeran. Designing regular array architectures using higher order functions.
In J.-P. Jouannaud, editor, Functional Programming Languages and Computer Architecture, pages 220{237, Nancy, France, September 1985. Springer-Verlag. LNCS
201.
 Jay M. Sipelstein and Guy E. Blelloch. Collection-oriented languages. Proceedings of
the IEEE, 79(4):504{523, April 1991.
 David Skillicorn. Stream languages and dataow. In J.-L Gaudiot and L. Bic, editors,
Advanced Topics in Dataow Computing, pages 439{454. Prentice-Hall, 1991.
 David Skillicorn and Janice Glasgow. Real-time specication using Lucid. IEEE
Trans. on Software Engineering, 15(2):221{229, February 1989.
BIBLIOGRAPHY
205
 D.B. Skillicorn. Parallelism and the Bird-Meertens formalism. FTP from
qucis.queensu.ca in /pub/skill, April 1992.
 John A. Stankovic and Krithi Ramamritham. Introduction. In John A. Stankovic and
Krithi Ramamritham, editors, Hard Real-Time Systems, chapter 1. IEEE Computer
Society Press, 1988.
 W. D. Stanley, G. R. Dougherty, and R. Dougherty. Digital Signal Processing. Reston
Publishing, 1984.
 William Stoye. Message-based functional operating systems. Science of Computer
Programming, 6(3):291{311, May 1986.
 V. S. Sunderan, G. A. Geist, J. Dongarra, and R. Manchek. The PVM concurrent
computing system: Evolution, experience, and trends. Parallel Computing, 1994. To
appear.
 Texas Instruments Inc. TMS320C4x User's Guide, 1991. Literature number SPRU063.
 Texas Instruments Inc. TMS320C3x User's Guide, 1992. Literature number
SPRU031C.
 D.A. Turner. The semantic elegance of applicative languages. Proc. ACM Conf. on
Functional Programming and Computer Architecture, pages 85{92, 1981.
 David A. Turner. An approach to functional operating systems. In D.A. Turner,
editor, Research Topics in Functional Programming, pages 199{218. Addison-Welsey,
 Steven R. Vegdahl. A survey of proposed architectures for the execution of functional
languages. IEEE Transactions on Computers, C-23(12):1050{1071, December 1984.
 Ingrid M. Verbauwhede, Chris J. Scheers, and Jan M. Rabaey. Specication and
support for multi-dimensional DSP in the Silage language. In ICASSP 94, pages
 Eric Verhulst. Meeting the parallel DSP challenge with the real-time Virtuoso programming system. DSP Applications, pages 41{56, January 1994.
 W. W. Wadge and A. Ashcroft. Lucid|the Dataow Programming Language. Academic Press, 1985.
 P. Wadler. Applicative style programming, program transformation and list operators. In Functional Programming Languages and Computer Architecture, pages 25{32.
ACM, 1981.
 Philip Wadler. Listlessness is better than laziness: Lazy evaluation and garbage
collection at compile time. In Proc. ACM Symp. on Lisp and Functional Programming,
1984.
BIBLIOGRAPHY
206
 Philip Wadler. How to replace failure by a list of successes|a method for exceptionhandling, backtracking, and pattern-matching in lazy functional languages. In J.-P.
Jouannaud, editor, Functional Programming Languages and Computer Architecture,
pages 113{128. Springer-Verlag, 1985. LNCS 201.
 Philip Wadler. Deforestation: Transforming programs to eliminate trees. Theoretical
Computer Science, 73:231{248, 1990.
In ACM Symposium on Principles of Programming Languages, pages 60{76, Austin,
Texas, January 1989.
 Malcolm Wallace. Functional Programming and Embedded Systems. PhD thesis, Dept.
Of Computer Science, University of York, UK, January 1995.
 Malcolm Wallace and Colin Runciman. Type-checked message-passing between functional processes. In Proc. Glasgow Functional Programming Workshop. SpringerVerlag, September 1994. Workshops in Computer Science Series.
 Kevin Waugh, Patrick McAndrew, and Greg Michaelson. Parallel implementations
from functional prototypes|a case study. Technical Report 90/4, Heriot-Watt University, Edinburgh, UK, 1990.
 A. L. Wendelborn and H. Garsden. Exploring the stream data type in SISAL and other
languages. In M. Cosnard, K. Ebcioglu, and J.-L. Gaudiot, editors, Architectures for
Fine and Medium Grain Parallelism, pages 283{294. IFIP, Elsevier Science Publishers,
1993.
 Patrick Willekens, Dirk Devisch, Marc Van Canneyt, Paul Conitti, and Dominique
Genin. Algorithm specication in DSP station using Data Flow Language. DSP
Applications, pages 8{16, January 1994.
 Carla S. Williams and John R. Rasure. A visual language for image processing. In
Proc. 1990 IEEE Workshop on Visual Languages, pages 86{91, 1990.
Appendix A
The Vector module
-- Types -infixr
5 +++, :>
data Vector a
= NullV
| a :> (Vector a)
vector
vector []
vector (x:xs)
:: [a] -> Vector a
= NullV
= strict (:>) x (vector xs)
nullV
nullV NullV
nullV (_:>_)
:: Vector a -> Bool
= True
= False
-- evaluate spine
unitV :: a -> Vector a
unitV x = x :> NullV
-- Iterators -mapV
mapV f NullV
mapV f (x:>xs)
:: (a -> b) -> Vector a -> Vector b
= NullV
= f x :> mapV f xs
generateV
generateV 0 f a
generateV n f a
:: Int -> (a -> a) -> a -> Vector a
= NullV
= x :> generateV (n-1) f x where x = f a
iterateV
iterateV 0 f a
iterateV n f a
:: Int -> (a -> a) -> a -> Vector a
= NullV
= a :> iterateV (n-1) f (f a)
foldlV
foldlV f a NullV
:: (a -> b -> a) -> a -> Vector b -> a
= a
207
foldlV f a (x:>xs) = foldlV f (f a x) xs
scanlV
:: (a -> b -> a) -> a -> Vector b -> Vector a
scanlV f a NullV
= NullV
scanlV f a (x:>xs) = q :> scanlV f q xs where q = f a x
meshlV
:: (a -> b -> (a,c)) -> a -> Vector b -> (a, Vector c)
meshlV f a NullV
= (a, NullV)
meshlV f a (x:>xs) = (a'', y:>ys) where
(a', y)
= f a x
(a'', ys) = meshlV f a' xs
foldrV
:: (b -> a -> a) -> a -> Vector b -> a
foldrV f a NullV
= a
foldrV f a (x:>xs) = f x (foldrV f a xs)
scanrV
::
scanrV f a NullV
=
scanrV f a (x:>NullV) =
scanrV f a (x:>xs)
=
(b -> a -> a) -> a -> Vector b -> Vector a
NullV
f x a :> NullV
f x y :> ys where [email protected](y:>_) = scanrV f a xs
meshrV
:: (b -> a -> (c,a)) -> a -> Vector b -> (Vector c,a)
meshrV f a NullV
= (NullV, a)
meshrV f a (x:>xs) = (y:>ys, a'') where
(y, a'') = f x a'
(ys, a') = meshrV f a xs
-- Permutors -(+++)
NullV +++ ys
(x:>xs) +++ ys
:: Vector a -> Vector a -> Vector a
= ys
= x :> (xs +++ ys)
lengthV
lengthV NullV
lengthV (x:>xs)
:: Vector a -> Int
= 0
= 1 + lengthV xs
atV
:: Vector a -> Int -> a
(x:>xs) atV 0
= x
(x:>xs) atV (n+1) = xs atV n
selectV
selectV _ _ 0 xs
selectV o s n xs
:: Int -> Int -> Int -> Vector a -> Vector a
= NullV
= xs atV o :> selectV (o+s) s (n-1) xs
groupV
:: Int -> Vector a -> Vector (Vector a)
groupV n v
| lengthV v < n = NullV
| otherwise
= selectV 0 1 n v :> groupV n (selectV n 1 (lengthV v - n) v)
concatV
concatV
:: Vector (Vector a) -> Vector a
= foldrV (+++) NullV
zipV
:: Vector a -> Vector b -> Vector (a,b)
zipV (x:>xs) (y:>ys) = (x,y) :> zipV xs ys
208
zipV _ _
= NullV
unzipV
unzipV NullV
unzipV ((x,y):>xys)
:: Vector (a,b) -> (Vector a, Vector b)
= (NullV, NullV)
= (x:>xs, y:>ys) where (xs,ys) = unzipV xys
-- permutors (using additional functions) -infixr
infixl
5 >>
5 <:, <<
(<:)
xs <: x
:: Vector a -> a -> Vector a
= xs +++ unitV x
(<<)
xs << x
:: Vector a -> a -> Vector a
= tailV xs +++ unitV x
(>>)
x >> xs
:: a -> Vector a -> Vector a
= unitV x +++ initV xs
The Stream module
-- Types -infixr
5 :-
data Stream a = NullS
| a :- (Stream a)
stream
:: [a] -> Stream a
stream []
= NullS
stream (x:xs) = x :- stream xs
unitS
unitS x
:: a -> Stream a
= x :- NullS
nullS
nullS NullS
nullS (_:-_)
:: Stream a -> Bool
= True
= False
:: Stream a -> a
= x
tailS
tailS (_:-xs)
:: Stream a -> Stream a
= xs
-- Primitives -mapS
mapS f NullS
mapS f (x:-xs)
:: (a -> b) -> Stream a -> Stream b
= NullS
= f x :- mapS f xs
groupS
groupS n NullS
groupS 0 _
:: Int -> Stream a -> Stream (Vector a)
= NullS
= NullS
209
groupS n xs
| nullV v
= NullS
| otherwise = v :- groupS n (dropS n xs)
where v = takeSV n xs
concatS
:: Stream (Vector a) -> Stream a
concatS NullS
= NullS
concatS (v:-vs) = appendVS v (concatS vs)
zipS
:: Stream a -> Stream b -> Stream (a,b)
zipS (x:-xs) (y:-ys) = (x,y) :- zipS xs ys
zipS _ _
= NullS
unzipS
unzipS NullS
unzipS ((x,y):-xys)
:: Stream (a,b) -> (Stream a, Stream b)
= (NullS, NullS)
= (x:-xs, y:-ys) where (xs, ys) = unzipS xys
-- Useful functions -appendVS :: Vector a -> Stream a -> Stream a
appendVS NullV s
= s
appendVS (x:>xs) s = x :- appendVS xs s
takeSV :: Int -> Stream a -> Vector a
takeSV k = tk k NullV
where
tk 0 v s
= v
tk k v NullS
= NullV
tk k v (x:-xs) = tk (k-1) (v <: x) xs
dropS
::
dropS k NullS
=
dropS 0 s
=
dropS k (x:-xs) =
Int -> Stream a -> Stream a
NullS
s
dropS (k-1) xs
The Timed module
-- Types-infixr
5 :-:
data Timed a = NullT
| Token a :-: (Timed a)
data Token a =
|
|
|
Hiaton
Daton
Datons
Block
Int
a
(Vector (Token a))
(Vector a)
-- Make timed stream from list -timed
:: [Token a] -> Timed a
timed []
= NullT
timed (x:xs) = x :-: timed xs
210
timeT
:: Stream a -> Timed a
timeT NullS
= NullT
timeT (x:-xs) = Daton x :-: timeT xs
unitT :: Token a -> Timed a
unitT t = t :-: NullT
-- Utilities need for "primitives" -nullT
:: Timed a -> Bool
nullT NullT = True
nullT _
= False
-- Map on timed stream
tmapT
tmapT
tmapT
tmapT
--
:: (a -> Token b) -> (Int -> Token b) -> Timed a -> Timed b
f g (Daton x :-: xs) = f x :-: tmapT f g xs
f g (Hiaton n :-: xs) = g n :-: tmapT f g xs
f g _
= NullT
Zip two timed streams together --
zipT :: Timed a -> Timed b -> Timed (Token a, Token b)
zipT xs ys = zipT' 0 0 xs ys
where
zipT' 0 0 (Daton x :-: xs) (Daton y :-: ys)
= Daton (Daton x, Daton y) :-: zipT' 0 0
xs ys
zipT' 0 0 (Daton x :-: xs) (Hiaton n :-: ys)
= Daton (Daton x, Hiaton 1) :-: zipT' 0 (n-1) xs ys
zipT' 0 0 (Hiaton m :-: xs) (Daton y :-: ys)
= Daton (Hiaton 1, Daton y) :-: zipT' (m-1) 0 xs ys
zipT' 0 0 (Hiaton m :-: xs) (Hiaton n :-: ys)
| m == n = Hiaton m :-: zipT' 0 0
xs ys
| m < n = Hiaton m :-: zipT' 0 (n-m) xs ys
| m > n = Hiaton n :-: zipT' (m-n) 0 xs ys
zipT' 0 n (Daton x :-: xs)
= Daton (Daton
zipT' 0 n (Hiaton m :-: xs)
| m == n = Hiaton m :-:
| m < n = Hiaton m :-:
| m > n = Hiaton n :-:
ys
x, Hiaton 1) :-:
ys
zipT' 0 0
xs
zipT' 0 (n-m) xs
zipT' (m-n) 0 xs
zipT' m 0 xs (Daton y :-: ys)
= Daton (Hiaton 1, Daton y) :-:
zipT' m 0 xs (Hiaton n :-: ys)
| m == n = Hiaton m :-: zipT' 0 0
xs
| m < n = Hiaton m :-: zipT' 0 (n-m) xs
| m > n = Hiaton n :-: zipT' (m-n) 0 xs
zipT' _ _ _ _ = NullT
-- Unzip a stream of pairs (not used!)
211
zipT' 0 (n-1) xs ys
ys
ys
ys
zipT' (m-1) 0 xs ys
ys
ys
ys
unzipT
:: Timed (Token a, Token b) -> (Timed a, Timed b)
unzipT ((Daton (Daton x, Daton y)) :-: xys)
= (Daton x :-: xs, Daton y :-: ys)
where (xs,ys) = unzipT xys
unzipT ((Daton (Daton x, Hiaton 1)) :-: xys)
= (Daton x :-: xs, Hiaton 1 :-: ys) where (xs,ys) = unzipT xys
unzipT ((Daton (Hiaton 1, Daton y)) :-: xys)
= (Hiaton 1 :-: xs, Daton y :-: ys) where (xs,ys) = unzipT xys
unzipT ((Hiaton n) :-: xys)
= (Hiaton n :-: xs, Hiaton n :-: ys)where (xs,ys) = unzipT xys
unzipT _ = (NullT,NullT)
-- State process on timed stream. Defined directly rather than --- in terms of tmapT, to get around break-up'' of hiatons.
-tstateT
tstateT
tstateT
tstateT
:: (a
f g a
f g a
_ _ _
-> b -> (a, Token c)) -> (a -> Int -> (a, Token c)) -> a -> Timed b -> Timed c
(Daton x :-: xs) = y :-: tstateT f g b xs where (b,y) = f a x
(Hiaton n :-: xs) = y :-: tstateT f g b xs where (b,y) = g a n
_ = NullT
-- Concatenate a stream of tokens and token vectors -concatT
:: Timed a -> Timed a
concatT (Hiaton n :-: xs) = Hiaton n :-: concatT xs
concatT (Daton x :-: xs) = Daton x :-: concatT xs
concatT (Datons v :-: xs) = v append concatT xs
where
NullV
append ys = ys
(x:>xs) append ys = x :-: (xs append ys)
concatT _ = NullT
-- Group a stream into vectors (k greater than 1) -groupT k xs
where
groupT'
groupT'
| k
| k
| k
groupT'
groupT'
| k
| k
| k
= groupT' 0 xs
0 NullT = NullT
i NullT
== i = unitT (Hiaton k)
< i = Hiaton k :-: groupT' (i-k) NullT
> i = unitT (Hiaton i)
0 xs
i xs
== i
< i
> i
= v :-: groupT' j rest where (v,j,rest) = splitT k xs
= Hiaton k :-: groupT' 0 xs
= Hiaton k :-: groupT' (i-k) xs
= (Hiaton i consT v) :-: groupT' j rest where (v,j,rest) = splitT (k-i) xs
groupT _ _ = NullT
-- Take a vector off the front of a stream. Also returns the --- rest of the stream and an initial hiaton value for it.
-splitT :: Int -> Timed a -> (Token a, Int, Timed a)
splitT 1 (Daton x :-: xs) = (Datons (unitV (Daton x)), 0, xs)
splitT k (Daton x :-: xs) = (Daton x consT v, j, rest) where (v,j,rest) = splitT (k-1) xs
212
splitT m (Hiaton
| m == n
=
| m < n
=
| nullT xs =
| m > n
=
splitT _ _
=
n :-: xs)
(Hiaton n, 0, xs)
(Hiaton m, n-m, xs)
(Hiaton n, 0, NullT)
(Hiaton n consT v, j, rest) where (v,j,rest) = splitT (m-n) xs
(Hiaton 0, 0, NullT)
-- (Join a token onto a token vector) -consT :: Token a -> Token a -> Token a
consT x (Hiaton n) = Datons (x :> unitV (Hiaton n))
consT x (Datons v) = Datons (x :> v)
-- Join a vector of blocks back into sync stream. Hiatons not allowed. -concatvT
concatvT
concatvT
concatvT
:: Timed a -> Stream a
(Daton x :-: xs) = x :- concatvT xs
(Block v :-: xs) = v appendVS concatvT xs
_
= NullS
-- Spawn'' new streams from a timed stream -spawnT :: (a -> Bool) -> Timed a -> Timed (Timed a)
spawnT p NullT
= NullT
spawnT p [email protected](Daton x :-: xs)
| p x
= Daton s :-: spawnT p xs
| otherwise
= Hiaton 1 :-: spawnT p xs
spawnT p (Hiaton n :-: xs) = Hiaton n :-: spawnT p xs
-- Combine timed sync streams into single top-level sync stream -combineT :: (Vector a
combineT c = concatvT
where
f ss s = (mdrop 1
g ss k = (mdrop k
-> b) -> Timed (Stream a) -> Stream b
. tstateT f g []
(s:ss), Daton (c (vector (map headS (s:ss)))))
ss,
Block (takeSV k (mmap c ss)))
mdrop :: Int -> [Stream a] -> [Stream a]
mdrop n = filter (not . nullS) . map (dropS n)
mmap :: (Vector a -> b) -> [Stream a] -> Stream b
mmap f ss = f (vector (map headS ss)) :- mmap f (mdrop 1 ss)
{New functions for truncating streams...
-}
type Generator a = a -> Stream a
-- doneS:-: terminate a stream -doneS :: Generator a
doneS = const NullS
-- truncate stream according to predicate and state.
213
takeFiniteS :: (s -> a -> s) -> (s -> a -> Bool)
-> s -> a -> Stream a -> Generator a -> Stream a
takeFiniteS f p s a [email protected]~(x:-xs) c
| nullS t
= c a
| p s x
= x :- takeFiniteS' (f s x) xs x
| otherwise
= c a
where
takeFiniteS' s NullS z = c z
takeFiniteS' s (x:-xs) z
| p s x
= x :- takeFiniteS' (f s x) xs x
| otherwise
= c z
-- takeAsLongS :-: take items until predicate on control --- stream satisfied. First daton must satisfy.
-takeAsLongS :: (a -> Bool) -> Timed a -> Stream b -> Generator b -> Stream b
takeAsLongS p (Daton y :-: ys) (x:-xs) c
| p y
= x :- takeAsLongS' p ys xs c x
| otherwise = error "takeAsLongS"
takeAsLongS p (Hiaton n :-: ys) (x:-xs) c
= x :- takeAsLongS' p (Hiaton (n-1) :-: ys) xs c x
takeAsLongS' p (Daton y :-: ys) (x:-xs) c a
| p y
= x :- takeAsLongS' p ys xs c x
| otherwise = c a
takeAsLongS' p (Hiaton 1 :-: ys) (x:-xs) c a
= x :- takeAsLongS' p ys xs c x
takeAsLongS' p (Hiaton n :-: ys) (x:-xs) c a
= x :- takeAsLongS' p (Hiaton (n-1) :-: ys) xs c x
takeAsLongS' p _ _ c a = c a
-- Truncate a stream to the same length as another
truncateS
truncateS
truncateS
truncateS
:: Stream a -> Stream b -> Generator b -> Stream b
(x:-NullS) (y:-ys) c
= y :- c y
(x:-xs)
(y:-NullS) c = y :- c y
(x:-xs)
(y:-ys) c
= y :- truncateS xs ys c
214


### Defining Waterbodies: Davidsonville Wildlife Sanctuary ### 12th annual raigam : a glittering show honours ### RUDSAK ### Directors Statement - Houston Caribbean Film Festival ### the pattern ### PDF - Golden Globes ### Linear Sketches
{"ft_lang_label":"__label__en","ft_lang_prob":0.83777696,"math_prob":0.8897261,"size":381045,"snap":"2020-45-2020-50","text_gpt3_token_len":97088,"char_repetition_ratio":0.20083666,"word_repetition_ratio":0.12304583,"special_character_ratio":0.27346638,"punctuation_ratio":0.2114782,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.96424854,"pos_list":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20],"im_url_duplicate_count":[null,1,null,1,null,1,null,1,null,1,null,1,null,1,null,1,null,1,null,1,null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2020-10-21T01:39:07Z\",\"WARC-Record-ID\":\"<urn:uuid:8cab4df0-14fe-4605-b105-ad816bc30c82>\",\"Content-Length\":\"411606\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:c53cf640-2782-4217-82a9-57506f00ff8d>\",\"WARC-Concurrent-To\":\"<urn:uuid:493440ac-35ab-459d-b172-ab946b1db519>\",\"WARC-IP-Address\":\"104.24.100.36\",\"WARC-Target-URI\":\"http://doczz.net/doc/272837/realtime-signal-processing---ptolemy-project\",\"WARC-Payload-Digest\":\"sha1:VI6VE3K4ICIC5X2QTAMH65CX5GOUGVYF\",\"WARC-Block-Digest\":\"sha1:TZI3N7XZPNHGBOCPL7JUTZIYUGKRSWLE\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2020/CC-MAIN-2020-45/CC-MAIN-2020-45_segments_1603107874637.23_warc_CC-MAIN-20201021010156-20201021040156-00245.warc.gz\"}"}