code: 9ferno

ref: 7c22230886134121893f02ee283da85f3a6807e6
dir: /tests/arraybig.b/

implement Sample;
include "sys.m";
	sys: Sys;

Sample: module
{
	init: fn();
};

init()
{
	sys = load Sys Sys->PATH;
	a : array of int;
	b := array[64] of int;
	c := array [] of {"jimbox", "pip", "squek"};
	e := array [4] of {* => 3};
	d := array [4] of {* => 3.14};
	w := array [] of {0 or 2 or 4 or 6 or 8 => 1,
			1 or 3 or 5 or 7 or 9 => 0};
	z := array[20] of {0 or 2 or 4 or 6 or 8 => 1,
			1 or 3 or 5 or 7 or 9 => 0,
			* => -1
			};
	y : array of array of big;
	story := array [] of {"I", "should", "get", "a", "life"};
	task := story[2:];
	dream := task[0][:1] + "0" + task[0][2:] + " " +task[1] + " " + task[2];

	sys->print("should print jimbox result %s\n", c[0]);
	sys->print("should print 3 result %d\n", e[0]);
	sys->print("should print 3.14 result %g %f\n", d[0], d[0]);
	sys->print("should print 1 result %d\n", w[0]);
	sys->print("should print -1 result %-d\n", z[11]);
	sys->print("should print gOt a life result %s\n", dream);
}