var NS = document.layers; // true if we're in Netscrape
function W(s){ document.write(s); }
function S(s){ window.status = blank(s)?"":s; return true; }

// strings and html smoothing

function blank(s){ return (!s || s==0 || s==null); }
function stripBlank(s){ s = s.replace(/ *$/,""); return s.replace(/ */,""); }

function canonLink(s){// name url
  var name = s;
  var url = s.replace(/.*(http[^, ]*).*/,"$1");
  if (url.length==s.length)
    url = s.replace(/.*(www[^, ]*).*/,"$1");
  if (!blank(url) && url.length != s.length){
    var r = new RegExp(url);
    name = name.replace(r,"");
  }
  if (url.indexOf('http')<0) url = 'http://'+url;

  if (name == 'http://')
    name = s;
  var t = stripBlank(name);
  t = t.replace(/, *.*$/,"");
  t = t.replace(/ */," ");
  if (!blank(url))   t = '<a href="'+url+'" target=_blank>'+t+'</a>';
  return t;
}

function wLink(s){ W(canonLink(s)); }

function canonPerson(s){// parse out name, mail, url
  var url,email,name = s;
  url = s.replace(/.*(http[^, ]*).*/,"$1");
  if (url.length==s.length)
    url = s.replace(/.*(www[^, ]*).*/,"$1");
  if (!blank(url) && url.length != s.length){
    if (NS || navigator.appVersion.indexOf("4.") == -1){
      var r = new RegExp(url);
      name = name.replace(r,"");
    }
  }
  if (url == s) url=0;
  if (!blank(url) && url.indexOf('http')<0) url = 'http://'+url;
  email = s.replace(/.*[ ,]([^ ,]+)@([^ ,]+).*/,"$1@$2");
  if (!blank(email)){
    r = new RegExp(email);
    name = name.replace(r,"");
  }

  name = name.replace(/, *.*$/,"");
  name = name.replace(/ */," ");
  var t = stripBlank(name);
  if (email.indexOf('@')<0) t=email, email=0;

  if (!blank(url))   t = '<a href="'+url+'" target=_blank>'+t+'</a>';
  if (!blank(email)) t += ', <i><a href="mailto:'+email+'">'+email+'</a></i>';
  return t;
}

function wPerson(s){ W(canonPerson(fixUnicode(s))); }

  function Url(s){ return s.indexOf('www')==0? 'http://'+s : s; }
  function isUrl(s){ return s.indexOf('http')==0 || s.indexOf('www')==0; }
  function isJpg(s){ return s.match(/\.(jpg|jpeg|gif)/i) != null; }
  function fixUnicode(s){
    s = s.replace(/---/g, "&#8212;");
    s = s.replace(/--/g,  "&#8211;");
    s = s.replace(/'/g,   "&#8217;");
    s = s.replace(/"(\[^"]*)"/g,   "&#8220;$1&#8221;");
    s = s.replace(/<c>/g, "&#169;"); // (c)
    s = s.replace(/<r>/g, "&#174;"); // (r)
    s = s.replace(/\(c\)/g, "&#169;"); // (c)
    s = s.replace(/\(r\)/g, "&#174;"); // (r)
    s = s.replace(/\(tm\)/g,"&#8482;");// TM
    s = s.replace(/<tm>/g,"&#8482;");// TM
    s = s.replace(/\(o\)/g,"&#149;");// bullet
    s = s.replace(/<o>/g,"&#149;");// bullet
    s = s.replace(/<\*>/g,"&#10025;");// star
    s = s.replace(/<\*\*>/g,"&#10025;&#10025;");// **
    s = s.replace(/<\*\*\*>/g,"&#10025;&#10025;&#10025;");// ***
    s = s.replace(/<\*\*\*\*>/g,"&#10025;&#10025;&#10025;&#10025");// ****
    s = s.replace(/<\*\*\*\*\*>/g,"&#10025;&#10025;&#10025;&#10025;&#10025");// ****
    s = s.replace(/<SQ>/g,"&#9632;");// square
    s = s.replace(/<sq>/g,"&#9633;");
    s = s.replace(/<DI>/g,"&#9670;");// diamond
    s = s.replace(/<di>/g,"&#9671;");
    s = s.replace(/<ci>/g,"&#9675;");// circle
    s = s.replace(/<CI>/g,"&#9679;");
    s = s.replace(/<TR>/g,"&#9650;");// triangle
    s = s.replace(/<tr>/g,"&#9651;");
    s = s.replace(/<td>/g,"&#9661;");// triangle down
    s = s.replace(/<TD>/g,"&#9660;");
    s = s.replace(/<ST>/g,"&#9733;");// star
    s = s.replace(/<st>/g,"&#9734;");
    s = s.replace(/<PH>/g,"&#9742;");// phone
    s = s.replace(/<ph>/g,"&#9743;");
    s = s.replace(/<Ph>/g,"&#9990;");// white round phone
    s = s.replace(/<RH>/g,"<font size=+1>&#9755;</font>");
    s = s.replace(/<rh>/g,"<font size=+1>&#9758;</font>");
    s = s.replace(/<LH>/g,"&#9754;");
    s = s.replace(/<lh>/g,"&#9756;");
    s = s.replace(/<8th>/g,"&#9834;");
    s = s.replace(/<sc>/g,"&#9986;");// scissors
    s = s.replace(/<pl>/g,"&#9992;");// plane
    s = s.replace(/<env>/g,"&#9993;");// envelope
    s = s.replace(/<chk>/g,"&#10003;");// check mark
    s = s.replace(/<c1>/g,"&#9312;");// circled numbers
    s = s.replace(/<c2>/g,"&#9313;");
    s = s.replace(/<c3>/g,"&#9314;");
    s = s.replace(/<c4>/g,"&#9315;");
    s = s.replace(/<c5>/g,"&#9316;");
    s = s.replace(/<c6>/g,"&#9317;");
    s = s.replace(/<c7>/g,"&#9318;");
    s = s.replace(/<c8>/g,"&#9319;");
    s = s.replace(/<c9>/g,"&#9320;");
    s = s.replace(/<c10>/g,"&#9321;");
    s = s.replace(/<<->/g,"&#8592;");
    s = s.replace(/<^>/g,"&#8593;");
    s = s.replace(/<->>/g,"&#8594;");
    s = s.replace(/<v>/g,"&#8595;");
    s = s.replace(/<=>>/g,"&#8658;");
    s = s.replace(/<<=>/g,"&#8656;");
    s = s.replace(/<^^>/g,"&#8657;");
    s = s.replace(/<vv>/g,"&#8659;");
    s = s.replace(/<>>>/g,"&#8680;");
    s = s.replace(/<<<>/g,"&#8678;");
    s = s.replace(/<w^>/g,"&#8679;");
    s = s.replace(/<wv>/g,"&#8681;");
    return s;
  }

function fig(name,alt,caption,credit){ // insert a figure
  var t = ["i/"+name+"t.jpg", "i/"+name+"h.jpg", "i/"+name+".jpg"];
  var n = iadd(t);
  W('<br><br><center><a href="'+t[2]+'" target=_blank\n'
    +'onMouseOver="Hi(\''+name+'\',1,\''+alt+'\')"\n'
    +'onMouseOut= "Hi(\''+name+'\',0)">\n'
    +'<img border=0 src="'+t[0]+'" name="'+name+'" alt="'+alt+'"></a>');
  if (!blank(caption)){
    W('<div class=caption><br>'+caption+' ')
    if (!blank(credit))
      W('<i class=credit>('+credit+')</i>');
    W('</div><br>\n');
  }
  W('</center><p>\n');
}

var refgap=0;
function WonB(){ return 1; }

function refs(){
  W('<hr width=100%>\n');
  W('<p><h2><a name="refs"></a>References and Acknowledgements</h2><p>\n');
  W('<div style="line-height:10pt">\n');
  W('<table border=0 width=100% callpadding=0 cellspacing=0>\n');
}

function rTag(s,t){
  var bg = WonB()?'#1f1f1f':'#d0d0d0';
  refgap=8;
  W('<tr><td height=24></td></tr>\n');
  var r='<tr bgColor='+bg+'>\n<td width=5 height=20></td>\n'
   +'<td width=170 height=20 valign="middle" align="left">';
  if (blank(t))
    r = r+'<i>'+s+':</i></td>\n';
  else
    r = r+'<i><a name="'+s+'"></a><i>'+t+':</i></td>\n';
  r = r+'<td width=382 height=20 valign="top" align="left">\n</td>\n</tr>\n';
  W(r);
  W('<tr><td height=10></td></tr>\n');
}

function rText(s){
  refgap=24;
  W('<tr><td height='+refgap+'></td></tr>\n');
  W('<tr>\n');
  W('<td width="5"></td>\n');
  W('<td width="170" valign="top" align="left">\n');
  if (s) W('</td><td valign="top" align="left">\n'+s);
}

function rTextEnd(s){
  W((s?s:"")+'</td>\n</tr>\n');
}

function rItem(s,t,u){
  if (arguments.length==3){ // assume: s=img, t=url, u=text
    var d = WonB()?'':'w/';
    rText();
    W('<a href="'+t+'" target=_blank>\n'
     +'<img border=0 src="i/'+d+s+'"></a></td>\n');
    W('<td valign="top" align="left">\n');
    rTextEnd(u);
  } else if (arguments.length==2){
    rText(s+' <i class=note>'+fixUnicode(t)+'</i>');
    rTextEnd();
  } else
  if (arguments.length == 1){
    rText(fixUnicode(s));
    rTextEnd();
  }
}

function rLink(a,b,c){
  var t, note;
  if (arguments.length == 3 && isUrl(b)){
    t = '<b>'+canonLink(a+' '+b)+'</b>, <i>'+canonLink(b)+'</i>';
    note = c;
  } else
  if (arguments.length == 3){
    t = '<b><a href="'+b+'" target=_blank>'+a+'</a></b>';
    note = c;
  } else
  if (arguments.length == 2){
    t = canonLink(a) + ' &#8212 ';
    note = b;
  }
  if (!blank(note))
    t += '<i class=note>'+fixUnicode(note)+'</i>';
  rText(t);
  rTextEnd();
}

function rPerson(name,note){
  var t = canonPerson(name);
  if (!blank(note))  t += '<br><i class=note>'+fixUnicode(note)+'</i>';
  rText(t);
  rTextEnd();
}

  function italParens(s){
    return s.replace(/(\([^\)]+\))/g,"<i>$1</i>");
  }
  
function rBook(){
  var ac=arguments.length;
  var av=arguments;
  var i=0;
  var img=url=author=title=publisher=date=note=0;
  if (isJpg(av[i])) img = av[i++];
  if (isUrl(av[i])) url = Url(av[i++]);
  if (i<ac) author = canonPerson(italParens(av[i++]));
  if (i<ac) title = italParens(av[i++]);
  if (i<ac) publisher = av[i++];
  if (i<ac) date = av[i++];
  if (i<ac) note = fixUnicode('--- '+av[i++]);
  rItem(img,url,
     '<b>'+title+'</b><br>'+
     author+'<br>'+
     publisher+', '+date+
     (blank(note)?'':('<br><i class=note>'+note+'</i>')));
}

function rDone(){
  rTag("comm","Comments, Errata");
  rItem('Please send me any questions, comments, or corrections.'+
    canonPerson(fixUnicode('<br>--- Michael Hawley www.media.mit.edu/~mike mike@media.mit.edu')));
  W('</table></body>\n');
}
// image and icon handling.

var ImageName = new Array(250); // cache of image names
var Img = new Array(250);       // cache of image data

function iadd(t){ // t is an array [big,lo,hi,push] of images
  var i,n;
  for (i=0;i<ImageName.length && ImageName[i]; i++)
    if (ImageName[i].indexOf(t[0]) >= 0)
      return i;
  n = i;
  for (i=0;i<t.length;i++){
    Img[n+i] = new Image();
    Img[n+i].src = (ImageName[n+i] = t[i]);
  }
  return n;
}

  function ifind(name){ // return index in ImageName where 'name' begins
    var i;
    for (i=0;i<ImageName.length && ImageName[i]; i++)
      if (ImageName[i].indexOf(name) >= 0)
        return i;
    return -1;
  }

function Hi(name,i,s){ // flip state of image 'name' to 'i'
  var n = ifind(name);
  if (n >= 0) document[name].src = Img[n+i].src;
  if (blank(s)) s = "";
  window.status=s;
  return true;
}

var Target = "_self";

function target(p){ Target = p; }

function icon(t,ref,alt,vspace,hspace){ // create a button icon
  if (!alt) alt = "";
  if (!vspace) vspace= "";
  var name = t[0], i=0;
  for (i=0;i<t.length;i++){
    //if (t[i].indexOf(".jpg")== -1 && t[i].indexOf(".JPG")== -1)
      t[i] = t[i]+".gif";
  }
  iadd(t);
  W('<a href="'+ref+'" '
    +'onMouseOver="return Hi(\''+name+'\',1,\''+alt+'\')" '
    +'onMouseOut="return Hi(\''+name+'\',0)"'
    +(i>2?
       (' onMouseDown="return Hi(\''+name+'\',2,\''+alt+'\')" '
        +'onMouseUp="return Hi(\''+name+'\',0)"'):"")
    +' target='+Target+'><img border=0 src="'+t[0]+'" name="'+name+'" alt="'+alt+'" vspace="'+vspace+'" hspace="'+hspace+'"></a>');

}

var inTable=0;
function tag(href,label,notes){
  if (!inTable || arguments.length == 0){
    if (!inTable){ W('<table border="0" width="100%">\n'); }
    else { W('</table>\n'); inTable=0; return true; }
    inTable=0;
  }
  inTable += 1;
  if (arguments.length==2){
    notes=label; label=href;
    if (href.indexOf("/")<=0) href=1;
  }
  if (arguments.length==1){
    notes=href;
    href=1;
    label = inTable + '.';
  }  

  if (href){
    W('<tr><td valign=top');
    if (href != 1) W(' width="20%"><b><a href="'+href+'" target=_blank>');
    else W(' width="5%">');
    W(label);
    if (href != 1) W('</a></b>');
    W('</td>\n<td valign=top>'+fixUnicode(notes)+'</td></tr>\n');
  }

  if (arguments.length>3){
    W('</table>\n'); inTable=0;
  }
}

function eaIcon(){ icon(['t-alliance','t-allianceH'],'http://go.mit.edu','Information about the Expeditionary Alliance is coming.'); }
function goIcon(){ icon(['go','goH'],'http://go.mit.edu','GO home.'); }
//function mheIcon(){ icon(['mhe','mheH'],'mailto:mike@media.mit.edu','e me'); }