GL.CreateProgram = function(identifier, uniforms, attribs, textures)
{
    var p = gl.createProgram();
    var program =
    {
        identifier: identifier,
        program: p,
        attribs: []
    };

    var vsh = gl.createShader(gl.VERTEX_SHADER);
    gl.shaderSource(vsh, document.getElementById('vsh' + identifier).text);
    gl.compileShader(vsh);
    if (gl.getShaderParameter(vsh, gl.COMPILE_STATUS) !== true)
        Sys.Error('Error compiling shader: ' + gl.getShaderInfoLog(vsh));

    var fsh = gl.createShader(gl.FRAGMENT_SHADER);
    gl.shaderSource(fsh, document.getElementById('fsh' + identifier).text);
    gl.compileShader(fsh);
    if (gl.getShaderParameter(fsh, gl.COMPILE_STATUS) !== true)
        Sys.Error('Error compiling shader: ' + gl.getShaderInfoLog(fsh));

    gl.attachShader(p, vsh);
    gl.attachShader(p, fsh);

    gl.linkProgram(p);
    if (gl.getProgramParameter(p, gl.LINK_STATUS) !== true)
        Sys.Error('Error linking program: ' + gl.getProgramInfoLog(p));

    gl.useProgram(p);
    var i;
    for (i = 0; i < uniforms.length; ++i)
        program[uniforms[i]] = gl.getUniformLocation(p, uniforms[i]);
    for (i = 0; i < attribs.length; ++i)
    {
        program.attribs[program.attribs.length] = attribs[i];
        program[attribs[i]] = gl.getAttribLocation(p, attribs[i]);
    }
    for (i = 0; i < textures.length; ++i)
    {
        program[textures[i]] = gl.TEXTURE0 + i;
        gl.uniform1i(gl.getUniformLocation(p, textures[i]), i);
    }

    GL.programs[GL.programs.length] = program;
};

GL.UseProgram = function(identifier)
{
    var i, j;
    var program = GL.currentprogram;
    if (program != null)
    {
        if (program.identifier === identifier)
            return program;
        for (i = 0; i < program.attribs.length; ++i)
            gl.disableVertexAttribArray(program[program.attribs[i]]);
    }
    for (i = 0; i < GL.programs.length; ++i)
    {
        program = GL.programs[i];
        if (program.identifier === identifier)
        {
            GL.currentprogram = program;
            gl.useProgram(program.program);
            for (j = 0; j < program.attribs.length; ++j)
                gl.enableVertexAttribArray(program[program.attribs[j]]);
            return program;
        }
    }
};