oberonjs/test/expected/set.js

var RTL$ = {
    makeArray: function (/*dimensions, initializer*/){
        var forward = Array.prototype.slice.call(arguments);
        var result = new Array(forward.shift());
        var i;
        if (forward.length == 1){
            var init = forward[0];
            if (typeof init == "function")
                for(i = 0; i < result.length; ++i)
                    result[i] = init();
            else
                for(i = 0; i < result.length; ++i)
                    result[i] = init;
        }
        else
            for(i = 0; i < result.length; ++i)
                result[i] = this.makeArray.apply(this, forward);
        return result;
    },
    makeSet: function (/*...*/){
        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 (l, r){return (l & r) == l;},
    setInclR: function (l, r){return (l & r) == r;}
};
var m = function (){
var ci = 3;
var cb = true;
var cs1 = 2 | 4;
var cs2 = 14 & ~18;
var cs3 = 14 & 18;
var cs4 = 14 ^ 18;
var cs5 = ~2;
var s1 = 0;var s2 = 0;
var i1 = 0;
var b = false;
var aSet = RTL$.makeArray(1, 0);
var aInt = RTL$.makeArray(1, 0);

function getSet1(){
	return 2;
}

function getSet2(){
	return 4;
}
s1 = 0;
s1 = 61;
s1 = 8;
s1 = 64;
i1 = 3;
s2 = RTL$.makeSet(i1, i1 + 2 | 0, [10 - i1 | 0, 15]);
s2 = RTL$.makeSet(i1) | 4;
b = 1 << i1 & s1;
b = RTL$.setInclL(s1, s2);
b = RTL$.setInclR(s1, s2);
b = RTL$.setInclL(getSet1(), getSet2());
b = RTL$.setInclR(getSet1(), getSet2());
b = RTL$.setInclL(cs1, cs2);
b = RTL$.setInclR(cs1, cs2);
b = RTL$.setInclL(cs1 | cs2, cs1 | cs2);
b = RTL$.setInclR(cs1 | cs2, cs2 | cs1);
b = RTL$.setInclL(2 | 4, 2 | 4);
b = RTL$.setInclR(2 | 4, 4 | 2);
b = s1 == s2;
b = s1 != s2;
s1 = s1 | s2;
s1 = s1 & ~s2;
s1 = s1 & s2;
s1 = s1 ^ s2;
s1 = ~s2;
s2 |= 8/*bit: 3*/;
s1 |= 512/*bit: ((ci * 2 | 0) + 3 | 0)*/;
s1 |= 2/*bit: (cb ? 1 : 0)*/;
aSet[0] |= 8/*bit: 3*/;
s2 &= ~(8/*bit: 3*/);
s2 &= ~(1/*bit: (!cb ? 1 : 0)*/);
aSet[0] &= ~(8/*bit: 3*/);
}();