File: default.bs

package info (click to toggle)
storm-lang 0.7.0-3
  • links: PTS, VCS
  • area: main
  • in suites: forky
  • size: 51,836 kB
  • sloc: ansic: 261,420; cpp: 138,870; sh: 14,877; perl: 9,846; python: 2,525; lisp: 2,504; asm: 860; makefile: 678; pascal: 70; java: 52; xml: 37; awk: 12
file content (32 lines) | stat: -rw-r--r-- 829 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
use ui;
use progvis:data;

// Default view for the built-in types. Called by the default view hints to create a default view
// for some data.
Drawable? defaultView(World world, Data data) on Render {
	if (data as progvis:data:Thread) {
		return ThreadView(data);
	} else if (data as Composite) {
		return WithCaption(CompositeView(data), data.title(world));
	} else if (data as Array) {
		return ArrayView(data);
	} else if (data as Primitive) {
		return PrimitiveView(data);
	} else if (data as Pointer) {
		return PointerView(data);
	} else if (data as Pad) {
		return PadView(data);
	}

	null;
}

// Default decoration.
Drawable defaultDecorate(Allocation alloc, Drawable data) on Render {
	if (data as ThreadView) {
		// Let threads know about their allocation so that they can disappear.
		data.alloc = alloc;
	}

	data;
}