[Ecforms-commit] ECF-JSF/ipl blank_db.ipl,NONE,1.1 blank_ecf.ipl,NONE,1.1

[Francisco C. <fca...@us...>]

Update of /cvsroot/ecforms/ECF-JSF/ipl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2331/ipl

Added Files:
	blank_db.ipl blank_ecf.ipl 
Log Message:
File for blank application

--- NEW FILE: blank_db.ipl ---
IDGenerator() {
    var nextId = 1;

    getNextId() {
        return nextId++;
    }

    return {getNextId: getNextId};
}

Table() {
    var rows = new array[100];

    var count = 0;

    var idGenerator = IDGenerator();

    addRow(row) {
        if (isReadOnly())
            error("can't addRow in query");
        var n = length(rows);
        if (count == n) {
            var tmp = new array[n * 2];
            arrayCopy(rows, 0, tmp, 0, n);
            rows = tmp;
        }
        row.id = idGenerator.getNextId();
        rows[count++] = row;
    }

    getIndexForId(id) {
        for (var i = 0; i < count; i++)
            if (rows[i].id == id)
                return i;
        return -1;
    }

    getRowWithId(id) {
        var index = getIndexForId(id);
        return index != -1 ? rows[index] : null;
    }

    deleteRowWithId(id) {
        if (isReadOnly())
            error("can't deleteRowWithId in query");
        var index = getIndexForId(id);
        if (index == -1)
            return;
        arrayCopy(rows, index + 1, rows, index, count - index - 1);
        count--;
    }

    updateRowWithId(id, row) {
        if (isReadOnly())
            error("can't updateRowWithId in query");
        var index = getIndexForId(id);
        if (index == -1)
            return;
        var names = getNames(row);
        var n = length(names);
        for (var i = 0; i < n; i++)
            rows[index][names[i]] = row[names[i]];
    }

    getRows() {
        var result = new array[count];
        arrayCopy(rows, 0, result, 0, count);
        return result;
    }

    return {
        addRow: addRow,
        getRowWithId: getRowWithId,
        deleteRowWithId: deleteRowWithId,
        updateRowWithId: updateRowWithId,
        getRows: getRows
    };
}

var persons = Table();

--- NEW FILE: blank_ecf.ipl ---
HEADER `
`

FOOTER `
`

USER {
}

START_SCREEN_FLOW SCREEN_FLOW main {
    START_VIEW JSF_VIEW main {} [
    ];
}