--- rat/client/Attic/code.html	2000/08/02 15:27:10	1.10
+++ rat/client/Attic/code.html	2001/03/03 16:45:10	1.14
@@ -9,8 +9,8 @@ Resource Assembly Tool
 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,5/5,5/6,5/8,5/9,5/13,5/18,5/20,5/22,5/24,5/25,
-6/7,6/8,6/9,6/10,6/12,6/15,7/4,7/26,7/28,7/31
-Gerd Kortemeyer with Scott Harrison
+6/7,6/8,6/9,6/10,6/12,6/15,7/4,7/26,7/28,7/31,8/5,8/19,8/24,
+01/17/01,03/03 Gerd Kortemeyer with Scott Harrison
 -->
 
 
@@ -30,6 +30,7 @@ var colmap5=new Array();
 var colmap6=new Array();
 var obj=new Array();
 var objcont=new Array();
+var objparms=new Array();
 var objlinks=new Array();
 var rowcont=new Array();
 var rowtype=new Array();
@@ -92,7 +93,7 @@ function insertrow(j,ex1,ex2) {
    objects=objects1+':'+objects2;
    data1=objects.split(':');
    for (kj=0;kj<data1.length;kj++) {
-     if (data1[kj]!='') {
+     if ((data1[kj]!='') && (data1[kj]!=undefined)) {
        thisisobj=obj[data1[kj]];
        thisobjtype=thisisobj.split('&')[0];
        if (thisobjtype=='v') {
@@ -133,7 +134,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (newobj!=undefined)) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -159,7 +160,7 @@ function insertrow(j,ex1,ex2) {
                    }
                 }
              }
-             if (newobj!='') {
+             if ((newobj!='') && (newobj!=undefined)) {
                 thisobjcol=newobj.split('&')[1];
                 if (colcover.indexOf(':'+thisobjcol+':',0)==-1) {
                    colcover+=thisobjcol+':';  
@@ -256,7 +257,7 @@ function maprow (jid,obj1,ign) {
  var j; var k; var left; var right; var middle;
  middle=-1;
  for (j=0;j<=maxcol;j++) { colmap[j]=0; }
- if (rowcont[jid]!='') {
+ if ((rowcont[jid]!='') && (rowcont[jid]!=undefined)) {
    data2=rowcont[jid].split(':');
    for (j=0;j<data2.length;j++) {
       data3=obj[data2[j]].split('&');
@@ -347,7 +348,6 @@ function comingthru (jid,kid,dkid) {
 
 function insertport (obj1,d,inout,linkobj) {
 
-
    var k; var port; var revport;
    stored=0;
    data1=obj[obj1].split('&');
@@ -427,7 +427,9 @@ function insertport (obj1,d,inout,linkob
 function addobj(kjid,objs) {
    stored=0;
    expense++;
-   if (rowcont[kjid]!='') { rowcont[kjid]+=':'; }
+   if ((rowcont[kjid]!='') && (rowcont[kjid]!=undefined)) { 
+      rowcont[kjid]+=':'; 
+   }
    rowcont[kjid]+=obj.length;
    obj[obj.length]=objs;
    return obj.length-1;
@@ -481,11 +483,14 @@ function delobj(obj1) {
       rowcont[k]='';
       for (k2=0;k2<data4.length;k2++) {
          if (data4[k2]!=obj1) {
-            if (rowcont[k]!='') { rowcont[k]+=':'; } 
+            if ((rowcont[k]!='') && (rowcont[k]!=undefined)) { 
+               rowcont[k]+=':'; 
+            } 
             rowcont[k]+=data4[k2]; 
          }
       }
    }
+   obj[obj1]='';
 }
 
 // --------------------------------------------------------- Garbage collection
@@ -500,7 +505,7 @@ function cleanup () {
    for (kj=0;kj<=maxcol;kj++) { data1[kj]=0; }
    for (kj=0;kj<=maxrow;kj++) {
      rowtype[kj]=0;
-     if (rowcont[kj]!='') {
+     if ((rowcont[kj]!='') && (rowcont[kj]!=undefined)) {
        data2=rowcont[kj].split(':');
        for (j=0;j<data2.length;j++) {
          if (obj[data2[j]].substring(0,2)=='e&') {
@@ -593,7 +598,7 @@ function crecond(obj1,colid,condtext,con
 function dellink (linknr) {
   var k; var obj1; var obj2;
   stored=0;
-  if (objlinks[linknr]!='') {
+  if ((objlinks[linknr]!='') && (objlinks[linknr]!=undefined)) {
    data3=objlinks[linknr].split(':');
    obj1=data3[0];
    obj2=data3[1];
@@ -616,7 +621,7 @@ function dellink (linknr) {
       }
    }
    for (k=0;k<obj.length;k++) {
-     if (obj[k]!='') {
+     if ((obj[k]!='') && (obj[k]!=undefined)) {
        data3=obj[k].split('&');
        if (((data3[0]=='v') || (data3[0]=='h')) && 
            (data3[data3.length-2]==linknr)) {
@@ -678,11 +683,12 @@ function joinres (obj1,obj2,cond) {
       finishload();
       tryjoin(obj1,obj2,cond,-1,1);
    }
+
 }
 
 
 function tryjoin(obj1,obj2,cond,d1,d2) {
-   var k; var kr; var outcol; var incol; var d;
+   var k; var kr; var outcol; var incol; var d; var dest;
 
    dest=objlinks.length;
    objlinks[dest]=obj1+':'+obj2+':'+cond;
@@ -826,7 +832,10 @@ function delres (obj1,recon) {
             for (k2=0;k2<inobjs.length;k2++) {
                if (inobjs[k2]==infromobj[k]) {
                   if (inwithcon[k]!=0) {
-                     if (inobjscond[k2]!='') { inobjscond[k2]+='||'; }
+                     if ((inobjscond[k2]!='') &&
+                         (inobjscond[k2]!=undefined)) { 
+                         inobjscond[k2]+='||'; 
+                     }
                      inobjscond[k2]+=
                       '('+(objcont[inwithcon[k]].split(':'))[0]+')';
                    }
@@ -852,7 +861,10 @@ function delres (obj1,recon) {
             for (k2=0;k2<outobjs.length;k2++) {
                if (outobjs[k2]==outtoobj[k]) {
                  if (outwithcon[k]!=0) {
-                     if (outobjscond[k2]!='') { outobjscond[k2]+='||'; }
+                     if ((outobjscond[k2]!='') &&
+                         (outobjscond[k2]!=undefined)) { 
+                         outobjscond[k2]+='||'; 
+                     }
                      outobjscond[k2]+=
                       '('+(objcont[outwithcon[k]].split(':'))[0]+')';
                   }
@@ -874,15 +886,22 @@ function delres (obj1,recon) {
 
       for (k=0;k<inobjs.length;k++) {
           cond='';
-          if (inobjscond[k]!='') { cond='('+inobjscond[k]+')'; }
+          if ((inobjscond[k]!='') && (inobjscond[k]!=undefined)) { 
+             cond='('+inobjscond[k]+')'; 
+          }
           for (k2=0;k2<outobjs.length;k2++) {
               thiscond=cond;
-              if (outobjscond[k2]!='') {
-                 if (thiscond!='') { thiscond+='&&'; }
+              if ((outobjscond[k2]!='') && (outobjscond[k2]!=undefined)) {
+                 if ((thiscond!='') && (thiscond!=undefined)) { 
+                    thiscond+='&&'; 
+                 }
                  thiscond+='('+outobjscond[k2]+')';
               }
               condnr=0;
-              if (thiscond!='') { condnr=newcondition(thiscond,'normal'); } 
+              if ((thiscond!='') && (thiscond!=undefined)) { 
+                 condnr=newcondition(thiscond,'normal'); 
+              }
+              save(); 
               joinres(inobjs[k],outobjs[k2],condnr);
           }
       }
@@ -896,8 +915,8 @@ function drawcell (rtype,ctype,what,cm,o
  if ((what=='') && (ne==0)) { cm="#DDDDDD"; }
  if (ctype!=0) {
    parent.mapout.document.write('<td bgcolor='+cm+' width='+cw[ctype]+'>');
-   if (what!='') {
-     if (obj1!='') {
+   if ((what!='') && (what!=undefined)) {
+     if ((obj1!='') && (obj1!=undefined)) {
        obj1="'"+obj1+"'";
        parent.mapout.document.write
         ('<a href="javascript:parent.code.handler('+obj1
@@ -930,7 +949,7 @@ function drawcell (rtype,ctype,what,cm,o
            }
         }
      }
-     if (obj1!='') {
+     if ((obj1!='') && (obj1!=undefined)) {
        parent.mapout.document.write('</a>');
      }
    } else {
@@ -987,7 +1006,7 @@ if (rowtype[jid]!=0) {
  }
 
  parent.mapout.document.writeln('<tr height='+rh[rowtype[jid]]+'>');
- if (rowcont[jid]!='') {
+ if ((rowcont[jid]!='') && (rowcont[jid]!=undefined)) {
    data2=rowcont[jid].split(':');
    for (jk=0;jk<data2.length;jk++) {
       data3=obj[data2[jk]].split('&');
@@ -1044,7 +1063,7 @@ if (rowtype[jid]!=0) {
 
          if (rightin>middle) {
             for (k=middle+1;k<rightin;k++) { 
-               if (colmap4[k]!='') {
+               if ((colmap4[k]!='') && (colmap4[k]!=undefined)) {
                   colmap[k]='rlt'; 
                } else {
                   colmap[k]='rl';
@@ -1054,7 +1073,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftin<middle) {
             for (k=middle-1;k>leftin;k--) { 
-               if (colmap4[k]!='') {
+               if ((colmap4[k]!='') && (colmap4[k]!=undefined)) {
                   colmap[k]='lrt'; 
                } else {
                   colmap[k]='lr';
@@ -1074,7 +1093,7 @@ if (rowtype[jid]!=0) {
             if (rightout<middle)  { colmap2[middle]='tl'; }
             if (rightout==middle) { colmap2[middle]='tdl'; }
             if (rightout>middle)  { 
-              if (colmap3[middle]!='') {
+              if ((colmap3[middle]!='') && (colmap3[middle]!=undefined)) {
                  colmap2[middle]='rtdl'; 
               } else {
                  colmap2[middle]='rtl';
@@ -1083,7 +1102,7 @@ if (rowtype[jid]!=0) {
          }
          if (leftout<middle) {
             for (k=middle-1;k>leftout;k--) { 
-               if (colmap3[k]!='') {
+               if ((colmap3[k]!='') && (colmap3[k]!=undefined)) {
                   colmap2[k]='rld'; 
                } else {
                   colmap2[k]='rl';
@@ -1093,7 +1112,7 @@ if (rowtype[jid]!=0) {
          }
          if (rightout>middle) {
             for (k=middle+1;k<rightout;k++) { 
-               if (colmap3[k]!='') {
+               if ((colmap3[k]!='') && (colmap3[k]!=undefined)) {
                   colmap2[k]='lrd'; 
                } else {
                   colmap2[k]='lr';
@@ -1406,7 +1425,9 @@ function insertreslink(infostr) {
    dellink(lnr);
    newresource(rid,cid,'','','false','normal');
    nobj=obj.length-1;
+   save();
    joinres(fobj,nobj,cobj);
+   save();
    joinres(nobj,tobj,0);
 }
 
@@ -1426,7 +1447,9 @@ function insertcondlink(cid,lnr) {
    dellink(lnr);
    newresource(maxrow,cid,'','','false','normal');
    nobj=obj.length-1;
+   save();
    joinres(fobj,nobj,cobj);
+   save();
    joinres(nobj,tobj,0);
 }
 
@@ -1571,6 +1594,11 @@ function handler(infostr) {
          +'opener.linkmode='+data1[1]+';'
          +'opener.infoclear();">Link Resource</a>');
     }
+        inf.document.writeln(
+          '<br><a href="javascript:'
+         +'opener.setparms('+data1[1]+');'
+         +'opener.infoclear();">Set Parameters</a>');
+    
       }
      } else {
         linkmode=0;
@@ -1620,7 +1648,8 @@ function empty(rid,k) {
          'opener.editmode=0;opener.notclear=0;opener.infoclear();opener.draw('
           +');">Insert resource</a>');
 
-  if ((mostrecent!=0) && (objcont[mostrecent]!='')) {
+  if ((mostrecent!=0) && (objcont[mostrecent]!='') && 
+                         (objcont[mostrecent]!=undefined)) {
 
         inf.document.writeln('<br><a href="javascript:opener.newresource('+
           rid+','+cid+",'','','false','normal');"+
@@ -1742,14 +1771,12 @@ function graphreset() {
    insertcol(-1);
 
    objcont[0]='';
+   objlinks[0]='';
    if (((objcont[1]==undefined)&&(objcont[2]==undefined)) ||
        ((objcont[1]=='')&&(objcont[2]==''))) { 
       objcont[1]='Start::false:start:res'
       objcont[2]='Finish::false:finish:res';
-      objlinks[0]='';
-      objlinks[1]='1:2:0';
    }
-
    graphdef='no';
 
 }
@@ -1786,7 +1813,7 @@ function tabledraw() {
   var condid;
   var sortstr=sortobjs();
  insrestab(1,-1,-1,'');
- if (sortstr!='') {
+ if ((sortstr!='') && (sortstr!=undefined)) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -1873,8 +1900,13 @@ function tabledraw() {
        parent.mapout.document.writeln(
         '<a href="javascript:parent.code.linkmode='+i+
        ';parent.code.notclear=0;parent.code.infoclear();">'+
-       'Link resource</a></td></tr>');
+       'Link resource</a>');
     }
+        parent.mapout.document.writeln(
+          '<br><a href="javascript:'
+         +'parent.code.setparms('+i+');">Set Parameters</a>');
+
+      parent.mapout.document.writeln('</td></tr>');
        parent.mapout.document.writeln('<tr><td colspan=2><table><tr>');
        for (j=2;j<data2.length;j++) {
            data4=data2[j].split(':');
@@ -1981,7 +2013,7 @@ function simpletabledraw() {
   var cck;
   var condid;
   var sortstr=sortobjs();
- if (sortstr!='') {
+ if ((sortstr!='') && (sortstr!=undefined)) {
   objsorted=sortstr.split('&');
   for (k=0;k<objsorted.length;k++) {
      i=(objsorted[k].split(':'))[0];
@@ -2079,7 +2111,7 @@ function sortobjs() {
    for (k=1;k<objlinks.length;k++) {
      wheelswitch();
      message("Sorting Resources: "+funny);
-     if (objlinks[k]!='') {
+     if ((objlinks[k]!=undefined) && (objlinks[k]!='')) {
       sortthis=1;
       data1=objlinks[k].split(':');
       kj=-1;
@@ -2168,23 +2200,30 @@ function graphopt() {
       row[k]=k;
    }
    maxrow=rowcont.length-1;
-
    var oldlinks=new Array();
-   for (k=0;k<objlinks.length;k++) { oldlinks[k]=objlinks[k]; }
+   for (k=0;k<objlinks.length;k++) { 
+      oldlinks[k]=objlinks[k]; 
+      objlinks[k]='';
+   }
    objlinks.length=0;
    objlinks[0]='';
+   graphdef='yes';
+   save();
+
    for (k=0;k<objsorted.length;k++) {
-      kj=(objsorted[k].split(':'))[0];
+     wheelswitch();
+     message("Connecting Resources: "+funny);
+     kj=(objsorted[k].split(':'))[0];
       for (ij=1;ij<oldlinks.length;ij++) {
         if (oldlinks[ij]) {
           data1=oldlinks[ij].split(':');
           if (data1[0]==kj) {
              joinres(data1[0],data1[1],data1[2]);
+             save();
           }
          }
       }
    }
-   graphdef='yes';
 }
 
 // ----------------------------------------------------------- Remove e-objects
@@ -2193,12 +2232,14 @@ function condense() {
    message("Condensing");
    var j;
    for (j=0;j<=maxrow;j++) {
-     if (rowcont[j]!='') {
+     if ((rowcont[j]!='') && (rowcont[j]!=undefined)) {
       data1=rowcont[j].split(':');
       rowcont[j]='';
       for (k=0;k<data1.length;k++) {
          if (obj[data1[k]].substring(0,2)!='e&') {
-            if (rowcont[j]!='') { rowcont[j]+=':'; }
+            if ((rowcont[j]!='') && (rowcont[j]!=undefined)) { 
+               rowcont[j]+=':'; 
+            }
             rowcont[j]+=data1[k];
          }
       }
@@ -2227,7 +2268,7 @@ function finishload() {
    lastinfo='';
    graphreset();
    var inputstr=parent.server.document.forms.storage.output.value;
-   if (inputstr!='') {
+   if ((inputstr!='') && (inputstr!=undefined)) {
    data1=inputstr.split('<&>');
    var k;
    for (k=0;k<data1.length;k++) {
@@ -2253,6 +2294,12 @@ function finishload() {
   }
 }
 
+// -------------------------------------------------------------- Parameter set
+
+function setparms(resid) {
+   alert('Called setparms for '+resid);
+}
+
 // -------------------------------------------------------------- Undo function
 
 function undo() {
@@ -2401,17 +2448,12 @@ function main() {
 
 }
 
-// ------------------------------------------------------------- Save on leave?
+// ---------------------------------------------------------- Close the window?
 
 function leave() {
    if (!inf.closed) {
       inf.close();
    }
-   if (stored==0) {
-      if (confirm('Store changes?')) {
-         storechange();   
-      }
-   }
 }
 
 </script>