// longhover_sup.js
// Long hover HTML sup tag functionality
// RJM Programming
// Robert Metcalfe
// August 2015

var tagtodo="sup";
var lhperiod="5000"
var ihfrom="";
var ihto="";
var nextchange=-1;
var othis=null;
var supsid=new Array();
var supsihto=new Array();
var supsihfrom=new Array();
var supsihchange=new Array();
var supschangepending=new Array();
var lookee=new Array("document.URL", "document.head.innerHTML");

function gettagtodo(intag) {
  var lhs, uss, lookfor="long" + "hover";
  for (var jk=0; jk<lookee.length; jk++) {
   eval("lhs=" + lookee[jk] + ".split('" + lookfor + "')");
   if (lhs.length > 1) {
    var rhs=lhs[1].split(">");
    var tagiss=lhs[1].replace("_","").split(".");
    if (tagiss[0] != "") {
        uss=tagiss[0].split("_");
        for (var jl=0; jl<uss.length; jl++) {
         if (uss[jl].substring(0,1) >= "1" && uss[jl].substring(0,1) <= "9") {
          lhperiod=uss[jl];
         } else if (uss[jl] != "") {
          tagtodo=uss[jl];
          intag=tagtodo;
         }
        }
    }
    //alert(98);
    tagiss=rhs[0].split("?");
    if (tagiss.length > 1) {
      //alert(tagiss[1]);
      lhs=tagiss[1].replace('"','').replace("'","").split("&");
      for (var il=0; il<lhs.length; il++) {
        rhs=lhs[il].split("=");
        if (rhs.length == 2) {
          //alert(rhs[0].toLowerCase());
          if (rhs[0].replace("amp;","").toLowerCase() == "tag") {
            tagtodo=rhs[1];
            intag=tagtodo;
          }
          if (rhs[0].replace("amp;","").toLowerCase() == "to") {
            //alert(rhs[1]);
            ihto=rhs[1];
          }
          if (rhs[0].replace("amp;","").toLowerCase() == "from") {
            ihfrom=rhs[1];
          }
          if (rhs[0].replace("amp;","").toLowerCase() == "period") {
            lhperiod=eval(1000 * eval(rhs[1].replace("000","")));
          }
        }
      }
    }
   }
   lookfor="long" + "hover";
  }
  return intag;
}

function dochange() {
  if (nextchange >= 0) {
    var osd=document.getElementById(supsid[nextchange]); //"mysup2"); //eval(supsid[nextchange]));
    osd.innerHTML=supschangepending[nextchange];
    //alert(supsihchange[nextchange] + " ... " + lhperiod);
    nextchange=-1;
  }
}

function nogo() {
  nextchange=-1;
  //document.title += '7';
}

function changeih() {
  var supo=this;
  //alert(supo.innerHTML);
  var thisj=-1;
  for (var i=0; i<supsid.length; i++) {
   if (thisj < 0) {
    if (supo.id == supsid[i]) {
     if (supsihchange[i] != "0") {
      thisj=i;
      if (supo.innerHTML == supsihfrom[i]) {
       supschangepending[i]=supsihto[i];
      } else if (supo.innerHTML == supsihto[i]) {
       supschangepending[i]=supsihfrom[i];
      }
      nextchange=i;
      //alert(supsihchange[i] + " to " + supschangepending[i] + ";" + supo.id +  " (" + supo.innerHTML + "," + supsihfrom[i] + "," + supsihto[i] + ")");
      setTimeout(dochange, supsihchange[i]);
     }
    }
   }
  } 
  return thisj;
}

function long_hover() {
  var tois='';
  var sups=document.getElementsByTagName(gettagtodo(tagtodo));
  //document.title = ".";
  for (var i=0; i<sups.length; i++) {
   if (sups[i].onmouseover == null && sups[i].onmouseout == null && sups[i].ontouchstart == null && sups[i].ontouchend == null && sups[i].id != null && sups[i].id != "") {
    //alert(sups[i].innerHTML); // .innerHTML
    supsid.push(sups[i].id);
    supschangepending.push("");
    supsihfrom.push(sups[i].innerHTML);
    tois=sups[i].innerHTML;
    if (ihfrom == '' || ihfrom.toLowerCase() == tois.toLowerCase()) {
     switch (tois) {
      case ihfrom:
       tois=ihto;
       break;
       
      case ihto:
       tois=ihfrom;
       break;
       
      case '-':
       tois='+';
       break;
       
      case '+':
       tois='-';
       break;
       
      case '0':
       tois='1';
       break;
       
      case '1':
       tois='0';
       break;
       
      case 'T':
       tois='F';
       break;
       
      case 'F':
       tois='T';
       break;
              
     }
    }
    supsihto.push(tois);
    if (supsihto[supsihto.length - 1] == supsihfrom[supsihfrom.length - 1]) {
     supsihchange.push("0");
    } else {
     if (sups[i].alt == null) {
      supsihchange.push(lhperiod);
     } else if (sups[i].alt == "") {
      supsihchange.push(lhperiod);
     } else if (sups[i].alt.substring(0,1) >= "1" && sups[i].alt.substring(0,1) <= "9") {
      supsihchange.push(lhperiod);
     } else {
      supsihchange.push(eval(1000 * eval(sups[i].alt.replace("000",""))));
     }
    }

    if (sups[i].title == null) {
      sups[i].title = "Long hover toggles";
    } else if (sups[i].title == "") {
      sups[i].title = "Long hover toggles";
    } else {
      sups[i].title += " ... long hover toggles";
    }
    sups[i].onmouseover = changeih;
    sups[i].onmouseout = nogo;
    sups[i].ontouchstart = changeih;
    sups[i].ontouchend = nogo;
   }
  }
 
}

setTimeout(long_hover, 2000);