// TRINPsite, 57.25.4-64.43.5, JS/HeadObjs.js at TRINP = www.trinp.org      -->
/*
For JavaScript objects and files to be used inside the HTML head statement.

WARNING: UC version DIFFERS from ANSI version in that HeadObjs_UC.js must
         call for the UC versions of 3 CSS files and 7 other JS files:
         AllPages_UC.css, GenNodal_UC.css, GenBasic_UC.css, 
         ContTRNP_UC.js, BodyObjs_UC.js, PrePage_UC.js, TopPart_UC.js,
         FramSub_UC.js, BotPart_UC.js and PostPage_UC.js!
*/

function writeIncompletO(verS)  // verS not (yet) used
{
 var alertS="This page is not complete, due to a bad connection, an illicit "+
            "address, (an) external file(s) missing or a system failure! "+
            "Please, try again at www.trinp.org/ .";
 alert(alertS);
document.write('<br /><br /><font color="#000000">&nbsp;['+alertS+']&nbsp;</font>');
}

function Get_PathS()
{
 var URL_S=document.URL; var urlS=''; var endS='';
 var n=0;
// contacT=false; 
 PathS='';  // three global variables
 TRINPathS='http://www.trinp.org/'; FTPPathS='http://www.xs4all.nl/~ftptr025/';

 for (n=0;n<URL_S.length;n++)
 { if (URL_S.charAt(n)=="\\")
   URL_S=URL_S.substring(0,n)+"/"+URL_S.substring(n+1) }
 urlS=URL_S.toLowerCase();
 if ((urlS.indexOf('http://')>-1) || (urlS.indexOf('www.')>-1))
  {
   if (urlS.indexOf('www.xs4all.nl')>-1) PathS=FTPPathS; else PathS=TRINPathS;
  }
  else
  {
   n=urlS.length-1
   while (n>-1)
   {
    endS=urlS.substring(n);
    if (endS.indexOf('/trinp/')>-1)
      { PathS=URL_S.substring(0,n+1)+'TRINP/'; n=-1 }
        // (TRIN)PathS works only if using TRINP directory
     else { n-- }
   } 
   if (PathS=='')
    alert('JavaScript links such as those in the floating menus will only '+
          'work for files in the top directory, because of a change in '+
          'the off-line directory structure or name(s). (Make sure all '+
          'TRINPsite files and subdirectories are in a top directory '+
          'called "TRINP".)'); 
   FTPPathS=PathS;
  }
 TRINPathS=PathS  // used for TRINPsite files shared with other sites,
                  // where PathS has a different value
}

function getBaseO()
{
 var localI=document.URL.toLowerCase().indexOf("/~ftptr025/")

 if (localI==-1) localI=document.URL.toLowerCase().indexOf("\\~ftptr025\\");
// if ((localI>-1) && (contacT))  // contacT always false here
 if (localI>-1)
  {
// PathS="http://www.trinp.org/";  // in BodyObjs.js when contacT true
document.write('<base href="http://www.trinp.org/',document.URL.substring(localI+11),'">')
  }
}

// not used at the moment///////////////////////////////////////////////////
function goToIndexO()
{
 var refS=""; refS4="er"+"rer"; var refS1="do";
 var refS3="t."+"re"+"f"; var refS2="cu"+"m"+"en";
 eval("refS="+refS1+refS2+refS3+refS4+".toLowerCase()");
   // refS empty when off-line
 var URL_S=document.URL; var url_S=URL_S.toLowerCase();
 var filI=0;
 var announS='PLEASE WAIT A MOMENT<br /><br />'+
  'VariViewing is being started with its own console and your page '+
  'will&nbsp;be&nbsp;shown in&nbsp;a&nbsp;new&nbsp;window<br /><br />'+
  '(This may take some time now; it will take little or no time later)';

 if (url_S.indexOf('#vv')==-1)
 {
  filI=url_S.indexOf('www.trinp.org');
  if (filI>-1) filI+=14;
   else
    { filI=url_S.indexOf('www.xs4all.');
      if (filI>-1)
        { filI=url_S.indexOf('/~ftptr025/');
          if (filI>-1) filI+=11 }
       else
        { filI=url_S.indexOf('\\trinp\\');
          if (filI>-1) filI+=7;
           else { filI=url_S.indexOf('/trinp/'); if (filI>-1) filI+=7 }
        }
    }

  URL_S=URL_S.substring(filI);
  url_S='http://www.trinp.org/index.htm#'+URL_S;

  if ((refS!='') && (refS.indexOf('trinp')==-1))
   {
document.write('<table width="100%" bgcolor="#000000"><tr><td>');
document.write('<table width="100%" bgcolor="#ff0000"><tr><td>');
document.write('<table width="100%" bgcolor="#000000"><tr><td align="center">');
document.write('<br /><font color="#fffff0">');
document.write(announS);
document.write('</font><br /><br />');
document.write('</td></tr></table></td></tr></table>');
document.write('</td></tr></table>');
document.write('<meta http-equiv="Refresh" content="0; url=',url_S,'" />')
   }
 }
}
////////////////////////////////////////////////////////////////////////////

// not used at the moment///////////////////////////////////////////////////
function useIndMultO()
{
 var refS=""; var refS4="er"+"rer"; var refS1="do";
 var refS3="t."+"re"+"f"; var refS2="cu"+"m"+"en";
 eval("refS="+refS1+refS2+refS3+refS4+".toLowerCase()");
   // refS empty when off-line
 var URL_S=document.URL; var url_S=URL_S.toLowerCase();
 var announS='PLEASE WAIT A MOMENT<br /><br />'+
  'This window will be split into two parts and your page '+
  'will be shown on the right.<br />'+
  'On the left you will be shown the top part of the TRINPsite '+
  'main index page.';
 var I=refS.indexOf('indMult');
 var J=refS.indexOf('www.xs4all.nl/~in/')+refS.indexOf('www.xs4all.nl\\~in\\');

 if ((J<-1) && (window.parent.frames.length==0)) 
 {

  if ((I<0) && (url_S.indexOf('#selected')<0))
   {
    I=url_S.indexOf('www.trinp.org');
    if (I>-1) I+=14;
     else
      { I=url_S.indexOf('www.xs4all.');
        if (I>-1)
          { I=url_S.indexOf('/~ftptr025/');
            if (I>-1) I+=11 }
         else
          { I=url_S.indexOf('\\trinp\\');
            if (I>-1) I+=7;
             else { I=url_S.indexOf('/trinp/'); if (I>-1) I+=7 }
          }
      }

    URL_S=URL_S.substring(I);
//  url_S='file:///C:/OWN/WWW/TRINP/indMult.htm#'+URL_S;  // for off-line testing
//  refS='not empty';  // for off-line testing
    url_S='http://www.trinp.org/indMult.htm#'+URL_S;  // for on-line

    if ((refS!='') && (refS.indexOf('trinp')==-1))
     {
document.write('<table width="100%" bgcolor="#000000"><tr><td>');
document.write('<table width="100%" bgcolor="#ff0000"><tr><td>');
document.write('<table width="100%" bgcolor="#000000"><tr><td align="center">');
document.write('<br /><font color="#fffff0">');
document.write(announS);
document.write('</font><br /><br />');
document.write('</td></tr></table></td></tr></table>');
document.write('</td></tr></table>');
document.write('<meta http-equiv="Refresh" content="0; url=',url_S,'" />')
     }
   }
 }
}
////////////////////////////////////////////////////////////////////////////

function Get_FileChar()
 { // not the same as in BodyFnct.js
  var urlS=document.URL;
  fileC="0"; 
  if (urlS.indexOf("MNI")>0)
   { if (urlS.indexOf(".HTM")>0) fileC="8"; else fileC="3" };
  if (urlS.indexOf("Tong")>0)
   { if (urlS.indexOf(".HTM")>0) fileC="7"; else fileC="2" };
  if (urlS.indexOf("Valu")>0)  // temporary assignment for own ikon
   { fileC="10" };  // see Write_HeadObjs() below (nodal only)
  if ((urlS.indexOf("Dict")>0) || (urlS.indexOf("VocA")>0))  // temporary assignments
   { if (urlS.indexOf(".HTM")>0) fileC="9"; else fileC="4" };
  if (fileC=="0")  // rest (in BodyFnct.js also "Poet/VocA")
   { if (urlS.indexOf(".HTM")>0) fileC="6"; else fileC="1" };
 }

function adjustTitlO()
 {
  var titleS=document.title;  // should end with '&nbsp;' for spaces
  var lenI=2;  // max 2 bracketed phrases not capitalized
  var leftBrI=-1; var rightBrI=-1;
  var beginS=''; var bracketS=''; var endS='';

  if ((titleS.substring(0,11)=='TRINPsite: ')
       && (document.URL.indexOf('Valu')==-1)) titleS=titleS.substring(11);
  if (titleS.substring(0,28)=='Vocabulary of Alliteration: ')
   titleS=titleS.substring(28);
    // name site/Vocabulary and lower case for search engines,
    // not for site itself, except for Valu(e) documents

  beginS=titleS; endS=titleS; titleS='';
  for (var I=1; I<lenI+1; I++ ) 
  {
   leftBrI=endS.indexOf(' ('); rightBrI=endS.indexOf(') ');
    // bracketed parts of words will still be capitalized
   if ((leftBrI>0) && (rightBrI>0) && (rightBrI<leftBrI))
    rightBrI=leftBrI+endS.substring(leftBrI).indexOf(') ');
   bracketS=''; 
   if (leftBrI>0)
     {
      bracketS=endS.substring(leftBrI+1,rightBrI+1);
      beginS=endS.substring(0,leftBrI+1);
      endS=endS.substring(rightBrI+1);
      titleS=titleS+beginS.toUpperCase()+bracketS;
     }
    else I=lenI+1
  }
  titleS=titleS+endS.toUpperCase();
  document.title=titleS;
 }

function show_in_whole_windO()
 {
  var URL_S=document.URL;
  var n=URL_S.indexOf('VocALeft.htm');
  if (n>-1) URL_S=URL_S.substring(0,n)+'VocAll.htm';

  if (window.parent.frames.length==0) 
    window.location.href=URL_S;
   else window.parent.expandO(URL_S)
 }

function Write_HeadObjs()
{
 var CSSVarS=""; var iconS="";

 if (document.location.search.indexOf('hearT=true')>0) hearT=true;
  else hearT=false;
   // new variable in future F7 format (see 3GUestBk.HTM) [64.41.7]

 if (fileC=="1") { CSSVarS=PathS+"CSS/GenNodal.css"; iconS=PathS+"WhlTRT1.ico" };
 if (fileC=="10") { CSSVarS=PathS+"CSS/GenNodal.css";
      iconS=PathS+"WhlT1.ico"; fileC="1" }
 if (fileC=="2") { CSSVarS=PathS+"CSS/GenNodal.css"; iconS=PathS+"WhlTRT1.ico" };
 if (fileC=="3") { CSSVarS=PathS+"CSS/MNINodal.css"; iconS=PathS+"MNI/WhlTLT1.ico" };
 if (fileC=="4") { CSSVarS=PathS+"CSS/GenNodal.css";
      iconS=PathS+"Poet/VocAll/VoAT1.ico"; fileC="1" }
 if (fileC=="6") { CSSVarS=PathS+"CSS/GenBasic.css"; iconS=PathS+"WhlBRT1.ico" };
 if (fileC=="7") { CSSVarS=PathS+"CSS/GenBasic.css"; iconS=PathS+"WhlBRT1.ico" };
 if (fileC=="8") { CSSVarS=PathS+"CSS/MNIBasic.css"; iconS=PathS+"MNI/WhlBLT1.ico" };
 if (fileC=="9") { CSSVarS=PathS+"CSS/Dict.css";
     iconS=PathS+"Poet/VocAll/VoAT1.ico"; fileC="6" }

document.write('<link rel="Start" href="http://www.trinp.org/index.htm" />');
document.write('<link rel="stylesheet" href="',PathS,'CSS/AllPages.css" type="text/css" />');
document.write('<link rel="stylesheet" href="',CSSVarS,'" type="text/css" />');
document.write('<link rel="shortcut icon" href="',iconS,'">');

 contacT=false; 
document.write('<script src="http://www.trinp.org/JS/ContTRNP.js" type="text/javascript" language="JavaScript"></script>');
document.write('<script src="',PathS,'JS/BodyObjs.js" type="text/javascript" language="JavaScript"></script>');

 if (!hearT)
 {
document.write('<script src="',PathS,'JS/PrePage.js" type="text/javascript" language="JavaScript"></script>');
document.write('<script src="',PathS,'JS/TopPart.js" type="text/javascript" language="JavaScript"></script>');
document.write('<script src="',PathS,'JS/FramSub.js" type="text/javascript" language="JavaScript"></script>');
document.write('<script src="',PathS,'JS/BotPart.js" type="text/javascript" language="JavaScript"></script>');
document.write('<script src="',PathS,'JS/PostPage.js" type="text/javascript" language="JavaScript"></script>');
 }
}

Get_PathS();
Get_FileChar();
if (window.parent.frames.length==0) adjustTitlO();
getBaseO();

Write_HeadObjs();
document.ondblclick=show_in_whole_windO;

HeadObjsT=true  // checks whether contents have been transferred
                // (on-line) and scripts (can be) executed

// Copyright 57-64ASWW, M.Vincent van Mechelen, DNI Foundation