oberonjs/test/expected/set.js

var RTL$ = {
	makeSet: function RTLMakeSet(/*...*/){
		var result = 0;
		
		function checkBit(b){
			if (b < 0 || b > 31)
				throw new Error("integes between 0 and 31 expected, got " + b);
		}
	
		function setBit(b){
			checkBit(b);
			result |= 1 << b;
		}
		
		for(var i = 0; i < arguments.length; ++i){
			var b = arguments[i];
			if (b instanceof Array){
				var from = b[0];
				var to = b[1];
				if (from < to)
					throw new Error("invalid SET diapason: " + from + ".." + to);
				for(var bi = from; bi <= to; ++bi)
					setBit(bi);
			}
			else
				setBit(b);
		}
		return result;
	},
	setInclL: function RTLSetInclL(l, r){
		return l & r == l;
	},
	setInclR: function RTLSetInclR(l, r){
		return l & r == r;
	}
};
var m = function (){
var ci = 3;
var cs1 = 6;
var cs2 = 12;
var cs3 = 2;
var cs4 = 28;
var cs5 = -3;
var s1 = 0;var s2 = 0;
var i1 = 0;
var b = false;
s1 = 0;
s1 = 61;
s1 = 8;
s1 = 64;
i1 = 3;
s2 = RTL$.makeSet(i1, i1 + 2, [10 - i1, 15]);
s2 = RTL$.makeSet(i1) | 4;
b = 1 << i1 & s1;
b = RTL$.setInclL(s1, s2);
b = RTL$.setInclR(s1, s2);
b = s1 == s2;
b = s1 != s2;
s1 = s1 | s2;
s1 = s1 & ~s2;
s1 = s1 & s2;
s1 = s1 ^ s2;
s1 = ~s2;
s2 |= 1 << 3;
s1 |= 1 << 9;
s1 |= 1 << ci * 2 - i1 + 3;
s2 &= ~(1 << 3);
}();