--- rat/client/Attic/code.html	2000/02/22 21:14:59	1.1
+++ rat/client/Attic/code.html	2000/05/04 21:05:28	1.2
@@ -6,10 +6,9 @@ Resource Assembly Tool
 7/23,7/24,7/26,
 8/11,8/14,8/18,8/19,8/20,8/21,8/22,8/25,8/26,8/28,8/30,8/31,
 9/1,9/2,9/4,9/5,9/6,
-1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,
-1/29,1/30,1/31,
-2/2,2/3,2/10,2/12,2/13,2/14,2/15,2/17,2/18,
-2/19,2/20,2/21,2/22 Gerd Kortemeyer with Scott Harrison
+1/7,1/8,1/10,1/14,1/15,1/16,1/21,1/22,1/29,1/30,1/31,
+2/2,2/3,2/10,2/12,2/13,2/14,2/15,2/17,2/18,2/19,2/20,2/21,2/22,
+5/2,5/3,5/4 Gerd Kortemeyer with Scott Harrison
 -->
 
 
@@ -37,12 +36,16 @@ var rrow=new Array();
 var cw=new Array();
 var rh=new Array();
 
+var undostack=new Array();
+var undopointer=0;
+var stored=0;
 var editmode=0;
 var notclear=0;
 var linkmode=0;
 var lastinfo='';
 var graphdef='no';
 var mainrun=0;
+var tablemode=0;
 
 var data1=new Array(1024);
 var data2=new Array(1024);
@@ -55,6 +58,7 @@ var data5=new Array(1024);
 
 function insertrow(j,ex1,ex2) {
    var kj;
+   stored=0;
    objects1='';
    objects2='';
    for (kj=0;kj<=maxrow;kj++) {
@@ -158,6 +162,7 @@ function insertrow(j,ex1,ex2) {
 
 function newcondition(content,type) {
    var ko;
+   stored=0;
    ko=obj.length;
    obj[ko]='c';
    objcont[ko]=content+':'+type+':cond';
@@ -167,6 +172,7 @@ function newcondition(content,type) {
 // ---------------------------------------------- Creates a new resource object
 
 function newresource(rid,cid,text,url) {
+   stored=0;
    objcont[addobj(rid,'b&'+rid+'&'+cid+':0:0:0')]=text+':'+url+':res';
 }
 
@@ -175,6 +181,7 @@ function newresource(rid,cid,text,url) {
 
 function insertcond(obj1,portnr,cond) {
    var k;
+   stored=0;
    data1=obj[obj1].split('&');
    for (k=2;k<data1.length;k++) {
        data2=data1[k].split(':');
@@ -191,6 +198,7 @@ function insertcond(obj1,portnr,cond) {
 
 function insertcol(j) {
    var kj;
+   stored=0;
    for (kj=0;kj<=maxcol;kj++) {
       if ( col[kj]>j ) { col[kj]++; } 
    }
@@ -320,6 +328,7 @@ function insertport (obj1,d,inout,linkob
 
 
    var k; var port; var revport;
+   stored=0;
    data1=obj[obj1].split('&');
    middle=maprow(data1[1],obj1,0);
    if (inout==1) {
@@ -395,6 +404,7 @@ function insertport (obj1,d,inout,linkob
 // returns object number of generated object
  
 function addobj(kjid,objs) {
+   stored=0;
    if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }
    rowcont[kjid]+=obj.length;
    obj[obj.length]=objs;
@@ -443,6 +453,7 @@ function horizontal(hrid,hoffs,hfcol,htc
 
 function delobj(obj1) {
    var k;
+   stored=0;
    for (k=0;k<rowcont.length;k++) {
       data4=rowcont[k].split(':');
       rowcont[k]='';
@@ -499,6 +510,7 @@ function cleanup () {
 
 function delcond(obj1,colid) {
    var k;
+   stored=0;
    data3=obj[obj1].split('&');
    obj[obj1]=data3[0]+'&'+data3[1];
    for (k=2;k<data3.length;k++) {
@@ -536,6 +548,7 @@ function crecond(obj1,colid,condtext,con
 
 function dellink (linknr) {
   var k; var obj1; var obj2;
+  stored=0;
   if (objlinks[linknr]!='') {
    data3=objlinks[linknr].split(':');
    obj1=data3[0];
@@ -576,6 +589,7 @@ function dellink (linknr) {
 
 function joinres (obj1,obj2,cond) {
    var k; var kr; var outcol; var incol; var d;
+   stored=0;
    dest=objlinks.length;
    objlinks[dest]=obj1+':'+obj2+':'+cond;
    data3=obj[obj1].split('&');
@@ -694,6 +708,8 @@ function delres (obj1,recon) {
 
    var k; var k1; var k2; var found;
 
+   stored=0;
+
    data1=obj[obj1].split('&');
    for (k=2;k<data1.length;k++) {
       data2=data1[k].split(':');
@@ -788,7 +804,7 @@ function delres (obj1,recon) {
 
 // -------------------------------------------------------------- Draw an entry
 
-function drawcell (rtype,ctype,what,cm,obj1,mode2,ej,ek,ne) {
+function drawcell (rtype,ctype,what,cm,obj1,ej,ek,ne) {
  var bgcolor;
  if (ctype!=0) {
    parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
@@ -833,7 +849,7 @@ function drawcell (rtype,ctype,what,cm,o
 
 // ----------------------------------------------------------------- Draw a row
 
-function drawrow (jid,mode2) {
+function drawrow (jid) {
 var j; var jk; var k; var rc; var gc; var bc; var ck;
 var objd1=new Array();
 var objd2=new Array();
@@ -1004,19 +1020,17 @@ if (rowtype[jid]!=0) {
    }
    rtype=rowtype[jid];
    for (k=0;k<=maxcol;k++) {
-    drawcell(rtype,coltype[rcol[k]],colmap[k],colmap5[k],objd1[k],mode2,jid,k,
+    drawcell(rtype,coltype[rcol[k]],colmap[k],colmap5[k],objd1[k],jid,k,
              notempty[k]);
    }
    if (rowtype[jid]==2) {
       parent.mapout.document.writeln('</tr><tr>');
       for (k=0;k<=maxcol;k++) {
-       drawcell(1,coltype[rcol[k]],colmap2[k],colmap5[k],objd2[k],mode2,jid,k,
-                1);
+       drawcell(1,coltype[rcol[k]],colmap2[k],colmap5[k],objd2[k],jid,k,1);
       }
       parent.mapout.document.writeln('</tr><tr>');
       for (k=0;k<=maxcol;k++) {
-       drawcell(1,coltype[rcol[k]],colmap3[k],colmap6[k],objd2[k],mode2,jid,k,
-                1);
+       drawcell(1,coltype[rcol[k]],colmap3[k],colmap6[k],objd2[k],jid,k,1);
       }
    }     
  }
@@ -1026,32 +1040,12 @@ if (rowtype[jid]!=0) {
 
 // ------------------------------------------------------------- Draw the table
          
-function draw (mode,mode2) {
+function draw () {
    var k; var kr;
 
-
    cleanup();
+   save();
 
-
-   if (mode=='debug') {  
-      var options="scrollbars=1,resizable=1,menubar=0,width=500,height=300";
-      deb=open("","debout",options);
-      deb.document.clear();
-      deb.document.writeln('<html><body bgcolor="#FFFFFF">');
-
-for (k=0;k<obj.length;k++) { deb.document.writeln(k+' - '+obj[k]+'<br>'); }
-      deb.document.writeln('<hr>Cols: '+col+'<hr>Rows: '+row+'<hr>');
-      deb.document.writeln(objcont+'<hr>'+objlinks+'<hr>');
-      for (kr=0;kr<=maxrow;kr++) {
-         kid=findrow(kr);
-         maprow(kid,-1,0);
-         deb.document.writeln(kid+' : '+colmap+' '+rowcont[kid]+"<br>");
-      }
-      deb.document.writeln('<hr>Rowtype: '+rowtype+'<hr>Coltype: '+coltype);
-      deb.document.writeln('<hr>maxcol: '+maxcol+'<hr>maxrow: '+maxrow);
-      deb.document.writeln('</body></html>');
-      deb.document.close();
-   }
    for (k=0;k<=maxrow;k++) { rrow[row[k]]=k; }
    for (k=0;k<=maxcol;k++) { rcol[col[k]]=k; }
    rh[0]=0;
@@ -1065,7 +1059,11 @@ for (k=0;k<obj.length;k++) { deb.documen
    parent.mapout.document.writeln(
       '<table cellpadding=0 cellspacing=0 border=0>');
 
-   for (kr=0;kr<=maxrow;kr++) { drawrow(rrow[kr],mode2); } 
+   if (tablemode==0) {
+      for (kr=0;kr<=maxrow;kr++) { drawrow(rrow[kr]); }
+   } else {
+      tabledraw();
+   } 
 
    parent.mapout.document.writeln('</table>');
    parent.mapout.document.writeln('</body></html>');
@@ -1179,6 +1177,12 @@ function escape(instring) {
    return outstring;
 }
 
+// -------------------------------------------------- Insert resource into link
+
+function insertreslink(infostr) {
+   alert(infostr);
+}
+
 // ---------------------------------------------------- Handles "click to edit"
 
 function handler(infostr) {
@@ -1227,7 +1231,7 @@ function handler(infostr) {
      }
      inf.document.writeln(
       'opener.infoclear();opener.editmode=0;opener.draw('
-      +"'debug','edit'"+');">Change to above values</a>&nbsp;&nbsp;'
+      +');">Change to above values</a>&nbsp;&nbsp;'
       +' <a href="javascript:self.document.forms.condinfo.reset()">Reset</a>'
       +'<input type=hidden name=h value='+data2[1]
       +'></form>');
@@ -1235,7 +1239,7 @@ function handler(infostr) {
         inf.document.writeln(
            '<a href="javascript:opener.notclear=0;opener.infoclear();'
    +'opener.delcond('+data1[2]+','+data1[1]+');opener.editmode=0;opener.draw('
-         +"'debug','edit'"+');">Delete Condition</a>');
+         +');">Delete Condition</a>');
   } else {
      if (data1[0]=='r') {
        if (linkmode!=0) {
@@ -1244,7 +1248,7 @@ function handler(infostr) {
         notclear=0;
         linkmode=0;
         inf.document.writeln('<b>Linked Resources</b>');
-        draw('debug','edit');
+        draw();
        } else {
         inf.document.writeln('<b>Resource</b>');
         data2=objcont[data1[1]].split(':');
@@ -1268,11 +1272,11 @@ function handler(infostr) {
         inf.document.writeln(
            '<a href="javascript:opener.notclear=0;opener.infoclear();'
          +'opener.delres('+data1[1]+',0);opener.editmode=0;opener.draw('
-         +"'debug','edit'"+');">Delete Resource (cutting links)</a>');
+         +');">Delete Resource (cutting links)</a>');
         inf.document.writeln(
           '<br><a href="javascript:opener.notclear=0;opener.infoclear();'
          +'opener.delres('+data1[1]+',1);opener.editmode=0;opener.draw('
-         +"'debug','edit'"+');">Delete Resource (preserving links)</a>');
+         +');">Delete Resource (preserving links)</a>');
         inf.document.writeln(
           '<br><a href="javascript:opener.editmode=0;opener.notclear=0;'
          +'opener.linkmode='+data1[1]+';'
@@ -1288,7 +1292,11 @@ function handler(infostr) {
               '</b><br>to <b>'+objcont[data3[1]].split(':')[0]+'</b>');
         inf.document.writeln('<br><a href="javascript:opener.dellink('+
      k+');opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">Delete Link</a>');
+                              +');">Delete Link</a>');
+        inf.document.writeln('<br><a href="javascript:'+
+         'opener.insertreslink('+infostr+');'+
+         'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
+                              +');">Insert Resource Into Link</a>');
      }
   }
   inf.document.writeln(
@@ -1320,25 +1328,25 @@ function empty(rid,k) {
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
           rid+','+cid+",'','');"+
   'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-          +"'debug','edit'"+');">Insert Resource</a>');
+          +');">Insert Resource</a>');
   inf.document.writeln('<hr>Insert column:');
         inf.document.writeln('<a href="javascript:opener.insertcol('+
         lcol+');opener.addobj('+rid+",'e&'+opener.maxcol);"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">left</a>');
+                              +');">left</a>');
         inf.document.writeln('<a href="javascript:opener.insertcol('+
         k+');opener.addobj('+rid+",'e&'+opener.maxcol);"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">right</a> ');
+                              +');">right</a> ');
    inf.document.writeln('<br>Insert row:');
         inf.document.writeln('<a href="javascript:opener.insertrow('+
         trow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">below</a>');
+                              +');">below</a>');
         inf.document.writeln('<a href="javascript:opener.insertrow('+
         lrow+');opener.addobj(opener.maxrow'+",'e&"+cid+"');"
        +'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
-                              +"'debug','edit'"+');">above</a> ');
+                              +');">above</a> ');
 
 
   inf.document.writeln(
@@ -1353,42 +1361,45 @@ function empty(rid,k) {
 
 function save() {
    var k;
-   self.document.forms.storage.output.value='graphdef<:>yes';
+   parent.server.document.forms.storage.output.value='graphdef<:>yes';
    for (k=0;k<obj.length;k++) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>obj<:>'+k+'<:>'+obj[k];
    }
    for (k=0;k<row.length;k++) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>row<:>'+k+'<:>'+row[k];
    }
    for (k=0;k<col.length;k++) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>col<:>'+k+'<:>'+col[k];
    }
    for (k=0;k<rowcont.length;k++) {
       if (rowcont[k]) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>rowcont<:>'+k+'<:>'+rowcont[k];
       }
    }
-   self.document.forms.storage.output.value+=
+   parent.server.document.forms.storage.output.value+=
       '<&>maxcol<:>'+maxcol; 
-   self.document.forms.storage.output.value+=
+   parent.server.document.forms.storage.output.value+=
       '<&>maxrow<:>'+maxrow;
 
    for (k=0;k<objcont.length;k++) {
       if (objcont[k]) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>objcont<:>'+k+'<:>'+objcont[k];
       }
    }
    for (k=0;k<objlinks.length;k++) {
       if (objlinks[k]) {
-         self.document.forms.storage.output.value+=
+         parent.server.document.forms.storage.output.value+=
           '<&>objlinks<:>'+k+'<:>'+objlinks[k];
       }
    }
+   undopointer++;
+   undostack[undopointer]=
+    parent.server.document.forms.storage.output.value;
 }
 
 // ----------------------------------------------- Reset all layout information
@@ -1435,6 +1446,39 @@ function rescompare(a,b) {
    return rvalue;
 }
 
+// -------------------------------------------- Draw the table instead of graph
+
+function tabledraw() {
+   var k;
+   var ij;
+   var kj;
+   var objsort=new Array();
+   var objsorted=new Array();
+   for (k=1;k<objcont.length;k++) {
+      if (objcont[k]) {
+         data1=objcont[k].split(':');
+         if (data1[data1.length-1]=='res') {
+            objsort[objsort.length]=''+k;
+         }
+      }
+   }
+   for (k=1;k<objlinks.length;k++) {
+      data1=objlinks[k].split(':');
+      kj=-1;
+      for (j=0;j<objsort.length;j++) {
+         if ((objsort[j].split(':'))[0]==data1[0]) {
+            kj=j;
+         }
+      }
+      objsort[kj]+=':'+data1[1];
+   }
+   objsorted=objsort.sort(rescompare);
+   for (ij=0;ij<objsorted.length;ij++) {
+      
+   }
+   alert("Table mode not yet implemented");
+}
+
 // ------------------------------------------- Sort objects to straighten graph
 
 function graphopt() {
@@ -1537,7 +1581,7 @@ function load() {
    notclear=0;
    lastinfo='';
    graphreset();
-   var inputstr=self.document.forms.storage.output.value;
+   var inputstr=parent.server.document.forms.storage.output.value;
    data1=inputstr.split('<&>');
    var k;
    for (k=0;k<data1.length;k++) {
@@ -1554,26 +1598,100 @@ function load() {
    }
 }
 
+// -------------------------------------------------------------- Undo function
+
+function undo() {
+   if (undopointer>1) {
+      undopointer--;
+      parent.server.document.forms.storage.output.value
+       =undostack[undopointer];
+      load();
+      undopointer--;
+      draw();
+      stored=0;
+   } else {
+      alert("Cannot undo: reached beginning of edit session");
+   }
+}
+
+// -------------------------------------------------------------- Redo function
+
+function redo() {
+   if (undopointer<undostack.length-1) {
+      undopointer++;
+      parent.server.document.forms.storage.output.value
+       =undostack[undopointer];
+      load();
+      undopointer--;
+      draw();
+      stored=0;
+   } else {
+      alert("Cannot redo: reached end of edit session");
+   }
+}
+ 
+// ------------------------------------------------------------ Revert function
+
+function revert() {
+   if (confirm("Revert to beginning of edit session?")) {
+      undopointer=2;
+      undo();
+   }
+}
+
+// -------------------------------------------------------------- Store changes
+
+function storechange() {
+   parent.server.document.forms.storage.submit();
+   stored=1;
+   alert("Stored changes");   
+}
+
+// ---------------------------------------------------------------- Toggle Mode
+
+function togglemode() {
+   if (tablemode==0) { tablemode=1; } else { tablemode=0; }
+   draw();
+}
+
 // -------------------------------------------------------- Main program onLoad
 
 function main() {
 
    if (mainrun==0) {
       load();
-      draw('debug','edit');
+      draw();
+      stored=1;
       mainrun=1;
    }
 
 }
 
+// ------------------------------------------------------------- Save on leave?
+
+function leave() {
+   if (stored==0) {
+      if (confirm('Store changes?')) {
+         storechange();   
+      }
+   }
+}
+
 </script>
 </head>
 
-<body bgcolor="#FFFFFF" onLoad="main();">
-<a href="javascript:condense();draw('debug','edit');">Condense</a>
-<a href="javascript:graphopt();draw('debug','edit');">Straighten</a>
-<form name=storage method=post>
-<input type=hidden name=output>
-</form>
+<body bgcolor="#FFFFFF" onLoad="main();" onUnload="leave();">
+<a href="javascript:togglemode();">Toggle Display Mode</a>
+<a href="javascript:condense();draw();">Condense</a>
+<a href="javascript:graphopt();draw();">Straighten</a>
+<a href="javascript:revert();">Revert</a>
+<a href="javascript:undo();">Undo</a>
+<a href="javascript:redo();">Redo</a>
+<a href="javascript:storechange();">Store</a>
 </body>
-</html>
\ No newline at end of file
+</html>
+
+
+
+
+