oberonjs/test/expected/var_parameter.js

var RTL$ = {
	extend: function extend(methods){
		methods.__proto__ = this.prototype; // make instanceof work
	
		// to see constructor name in diagnostic
		var result = methods.init;
		methods.constructor = result.prototype.constructor;
	
		result.prototype = methods;
		result.extend = extend;
		return result;
	},
	makeArray: function RTLMakeArray(/*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] = RTLMakeArray.apply(this, forward);
		return result;
		}
	},
	makeRef: function RTLMakeRef(obj, prop){
	    return {set: function(v){ obj[prop] = v; },
	            get: function(){ return obj[prop]; }};
	}
};
var m = function (){
var R = RTL$.extend({
	init: function R(){
		this.i = 0;
		this.p = null;
	}
});
var i = 0;
var b = false;
var a = RTL$.makeArray(5, 0);

function p1(i1/*VAR INTEGER*/, i2/*VAR INTEGER*/){
	i1.set(1);
	i2.set(2);
}

function p2(i/*INTEGER*/, b/*BOOLEAN*/){
}

function index(i/*VAR INTEGER*/){
	return i.get();
}

function array(a/*VAR ARRAY OF INTEGER*/){
	return a[0];
}

function p3(i/*VAR INTEGER*/, b/*VAR BOOLEAN*/){
	var j = 0;
	var r = new R();
	var ar = RTL$.makeArray(5, function(){return new R();});
	var ai = RTL$.makeArray(5, 0);
	j = i.get() + 1;
	j = 2 * i.get();
	j = i.get() / 2;
	j = -i.get();
	b.set(!b.get());
	a[i.get()] = i.get();
	p1({set: function($v){j = $v;}, get: function(){return j;}}, i);
	p1(i, {set: function($v){j = $v;}, get: function(){return j;}});
	p1(i, RTL$.makeRef(a, index(i)));
	p2(i.get(), b.get());
	p1(RTL$.makeRef(r, "i"), RTL$.makeRef(ar[index(RTL$.makeRef(r, "i"))], "i"));
	r.p = new R();
	ar[j].p = new R();
	p1(RTL$.makeRef(r.p, "i"), RTL$.makeRef(ar[j].p, "i"));
	p2(ar[j].p.i, r.p.i == ar[j].p.i);
	j = array(ai);
}
p3({set: function($v){i = $v;}, get: function(){return i;}}, {set: function($v){b = $v;}, get: function(){return b;}});
}();