function readTable()
{
var rows = new Array();
var trs=document.getElementById("kellytable").rows; // the table parts
for (var i=0; i<trs.length; i++)
  {
  var tds=trs[i].childNodes; // the cells
  var n=tds.length;
  var row = new Array();
  for (var j=0; j<n; j++)
    row.push(readCell(tds[j]));
  rows.push(row);
  }
return rows;
}

function readCell(td)
{
var tc = td.firstChild; // assume only one element per cell
if (!tc) return "";
if (tc.nodeName=="#text")
  return tc.nodeValue;
if (tc.nodeName=="INPUT")
  {
  if (tc.type=="text")
    return tc.value;
  if (tc.type=="checkbox")
    if (tc.checked) return "TRUE"; else return "FALSE";
  return "unknowninput";
  }
return "unknown";
}

function toString(rows,colsep,rowsep)
{
var text="";
for (var i=0; i<rows.length; i++)
  {
  for (var j=0; j<rows[i].length; j++)
    {
    text=text+rows[i][j];
    if (j+1<rows[i].length) text=text+colsep;
    }
  text=text+rowsep;
  }
return text;
}
function cleanString(str) // remove any cr or lf, and extremal whitespace
{
var cs = "";
for (var i=0; i<str.length; i++)
  {
  var c=str.charAt(i);
  if (c!="\n" & c!="\r") cs+=c;
  }
str=cs;
while (str.length>0 & !isNonblank(str.charAt(0)))
  str=str.substr(1,str.length-1);
while (str.length>0 & !isNonblank(str.charAt(str.length-1)))
  str=str.substr(0,str.length-1);
return str;
}
function isNonblank(str)
{
var re = new RegExp("[A-Za-z0-9]+");
var m = re.test(str);
return m;
}
function fromString(str,colsep,rowsep)
{
str = cleanString(str);
if (str.length==0) return null;
var rowstrs = str.split(rowsep);
var rows = new Array();
for (var i=0; i<rowstrs.length; i++)
  {
  var s = cleanString(rowstrs[i]);
  if (s.length==0) continue;
  var thisrow = s.split(colsep);
  rows.push(thisrow);
  }
var ncol=rows[0].length;
for (var i=0; i<rows.length; i++)
  {
  while (rows[i].length>ncol)
  rows[i].pop();
  }
rows[0][0]="";
if (ncol<2) return null;
if (rows.length<3) return null;
return rows;
}

function writeTable(rows)
{
var t=document.getElementById("kellytable");
var th=t.createTHead();
var tb=t.tBodies[0];
var cg1=document.getElementById("firstcolgroup");
var cgp=cg1.parentNode;
while (true)
  {
  var cg=cg1.nextSibling;
  if (!cg) break;
  if (cg.nodeName=="THEAD") break;
  cgp.removeChild(cg);
  }
var thn=createHeader(rows);
var tbn=createBody(rows);
var cgn=createColgroup(rows);
cgp.insertBefore(cgn,cg);
th.parentNode.replaceChild(thn,th);
tb.parentNode.replaceChild(tbn,tb);
}

function createColgroup(rows)
{
var n=rows[0].length-1;
var cg=document.createElement("COLGROUP");
for (var i=0; i<n; i++)
  {
  var c = document.createElement("COL");
  cg.appendChild(c);
  }
return cg;
}

function createBody(rows)
{
var tbody=document.createElement("TBODY");
var m=rows.length-1;
var n=rows[0].length-1;
for (var i=0; i<m; i++)
  {
  var tr=document.createElement("TR");
  var th=document.createElement("TH");
  var thc=createInput("text",rows[i+1][0]);
  th.appendChild(thc);
  tr.appendChild(th);
  for (var j=0; j<n; j++)
    {
    var td=document.createElement("TD");
    var tdc=createInput("checkbox",rows[i+1][j+1]);
    td.appendChild(tdc);
    tr.appendChild(td);
    }
  tbody.appendChild(tr);
  }
return tbody;
}

function createHeader(rows)
{
var tr=document.createElement("TR");
var th0 = document.createElement("TH");
var th0c = document.createTextNode(rows[0][0]);
th0.appendChild(th0c);
tr.appendChild(th0);
var n=rows[0].length-1;
for (var j=0; j<n; j++)
  {
  var th = document.createElement("TH");
  var thc = createInput("text",rows[0][j+1]);
  th.appendChild(thc);
  tr.appendChild(th);
  }
var thead=document.createElement("THEAD");
thead.appendChild(tr);
return thead;
}

function createInput(type,value)
{
if (type=="text")
  {
  var i = document.createElement("INPUT");
  i.setAttribute("type",type);
  i.setAttribute("value",value);
  return i;
  }
else if (type=="checkbox")
  {
  var i=document.createElement("INPUT");
  i.setAttribute("type",type);
  if (value=="TRUE")
    {
    var an=document.createAttribute("checked");
    an.value="checked";
    i.setAttributeNode(an);
    }
  return i;
  }
var i=document.createTextNode("Unknown");
return i;
}

function showOutputText(str)
{
showOutputTextString=str;
showOutputTextTriesleft=10;
showOutputTextAttempt();
}
var showOutputTextString;
var showOutputTextTriesleft;
function showOutputTextAttempt()
{
showOutputTextTriesleft=showOutputTextTriesleft-1;
if (showOutputTextTriesleft<0) 
  {
  alert("Failed to open export window");
  return;
  }
var opts = "directories=no,menubar=yes,status=yes,resizable=yes,width=400,height=400";
if (!outputTextWindow || (outputTextWindow && outputTextWindow.closed))
  outputTextWindow=window.open("output.html","export",opts);
else
  outputTextWindow=window.open("","export");
if (!outputTextWindow)
  { setTimeout("showOutputTextAttempt()",1000); return; }
outputTextWindow.focus();
var doc=outputTextWindow.document;
if (!doc)
  { setTimeout("showOutputTextAttempt()",1000); return; }
var pr=doc.getElementById("loaded");
if (!pr)
  { setTimeout("showOutputTextAttempt()",1000); return; }
outputTextWindow.showOutput(showOutputTextString);
}
var outputTextWindow=null;

function analysisDraw(str)
{
getAppletdrawTriesleft=10;
getAppletdrawData=str;
getAppletdraw();
}
var getAppletdrawTriesleft;
var getAppletdrawData;
function getAppletdraw()
{
getAppletdrawTriesleft=getAppletdrawTriesleft-1;
if (getAppletdrawTriesleft<0)
  {
  alert("Haven't managed to load applet");
  return;
  }
var ap=document.getElementById("analyserapplet");
if (!ap) { setTimeout("getAppletdraw()",1000); return; }
// got applet
var str=getAppletdrawData;
var ostr=ap.execute(str);
showOutputGraphic(ostr);
}

function getAppletprint()
{
getAppletprintTriesleft=getAppletprintTriesleft-1;
if (getAppletprintTriesleft<0)
  {
  alert("Haven't managed to load applet");
  return;
  }
var ap=document.getElementById("analyserapplet");
if (!ap) { setTimeout("getAppletshow()",1000); return; }
// got applet
var rows=readTable();
var str=toString(rows,",",";\n");
var ostr=ap.execute(str);
showOutputText(ostr);
}

function showOutputGraphic(str)
{
str = cleanString(str);
showOutputGraphicString=str;
showOutputGraphicTriesleft=10;
showOutputGraphicAttempt();
}
var showOutputGraphicString;
var showOutputGraphicTriesleft;
function showOutputGraphicAttempt()
{
showOutputGraphicTriesleft=showOutputGraphicTriesleft-1;
if (showOutputGraphicTriesleft<0) 
  {
  alert("Unable to write to output window");
  return;
  }
var opts = "toolbar=no,status=no,directories=no,address=no,resizable=yes,width=400,height=400";
if (!outputGraphicWindow || (outputGraphicWindow && outputGraphicWindow.closed))
  outputGraphicWindow=window.open("analysis.html","analysis",opts);
else
  outputGraphicWindow=window.open("","analysis");
if (!outputGraphicWindow) 
  { setTimeout("showOutputGraphicAttempt()",1000); return; }
outputGraphicWindow.focus();
var doc = outputGraphicWindow.document;
if (!doc) 
  { setTimeout("showOutputGraphicAttempt()",1000); return; }
var loaded=doc.getElementById("loaded");
if (!loaded)
  { setTimeout("showOutputGraphicAttempt()",1000); return; }
outputGraphicWindow.showOutput(showOutputGraphicString);
}
var outputGraphicWindow;


function initTable()
{
var headings = new Array("","attribute","another");
var row1 = new Array("Me","FALSE","FALSE");
var row2 = new Array("Spouse","FALSE","FALSE");
var row3 = new Array("Friend","FALSE","FALSE");
var rows = new Array(headings,row1,row2,row3);
writeTable(rows);
}