email script

-_-_-

<xsl:template match=" text()[contains(.,’@’)] " >
<span class="set-emails">
<xsl:copy>
</xsl:copy>
</span>
</xsl:template>

-_-_-

<..set htm email links ..>

-_-_-

<..java licence ..>

(2014-05-24-12:32)

-_-_-

<..XhtmlEmails.java ..>

package tex4ht;
/* XhtmlEmails.java (2014-05-24-12:32), generated from tex4ht-xhtml-xtpipes.tex
    Copyright (C) 2009-2010 TeX Users Group
    Copyright (C) 2008-2009 Eitan M. Gurari
<.TeX4ht copyright .> */

import xtpipes.XtpipesUni;
import org.xml.sax.*;
import org.xml.sax.helpers.DefaultHandler;
import java.io.*;
import java.lang.reflect.*;
import java.util.HashMap;

public class XhtmlEmails extends DefaultHandler {
         PrintWriter out = null;
         String data = "";
   public XhtmlEmails(PrintWriter out,
                        HashMap<String,Object> scripts,
                        Method method, PrintWriter log, boolean trace) {
     this.out = out;
   }
   public void characters(char[] ch, int start, int length) {
     data += new String(ch, start, length);

//XtpipesUni.toUni(ch, start, length, "<>&");
   }

   public void startElement(String ns, String sName,
                                       String qName,
                                       Attributes atts) {
       String s = "<" + qName + "\n";
       for (int i = 0; i < atts.getLength(); i++) {
         String name = atts.getQName(i);
         s += (" " + name + "=\""
             + XtpipesUni.toUni(atts.getValue(i), "<>&\"")
             + "\"");
       }
       s += ">";
       <.process email data .>
       out.print(XtpipesUni.toUni(data, "&") + s);
       data = "";
   }
   public void endElement(String ns, String sName, String qName) {
       String s = "</" + qName + ">";
       <.process email data .>
       out.print( XtpipesUni.toUni(data, "&") + s);
       data = "";
   }

}

-_-_-

<..process email data ..>

while( data.indexOf(’@’) >0 ){
<.clean prefix .>
<.clean postfix .>
}
data = XtpipesUni.toUni(data, "<>&");

-_-_-

<..clean prefix ..>

String [] pre = data.split(
                    "[<.email name .>]*@"
                    , 2);
if( pre[0].endsWith("}") ){
   if( pre[0].indexOf("{") != -1 ){
      pre[0] = pre[0].substring( 0, pre[0].lastIndexOf("{") );
} }
int len = pre[0] . length();
if( len > 0 ){
    out.print( XtpipesUni.toUni(pre[0], "<>&") );
    data = data.substring(len);
}

-_-_-

<..clean postfix ..>

String [] post = data.split(
                    "@[<.email name .>]*"
                    , 2);
if( post[1] . length() > 0 ){
   data = data.substring(0, data.length() - post[1] . length());
}
<.set a link to email .>
data = post[1];

-_-_-

<..set a link to email ..>

if( data.indexOf("{") == -1 ){
    out.print(
       "<a href=\"mailto:" + XtpipesUni.toUni(data, "&") + "\">"
       + XtpipesUni.toUni(data, "<>&")
       + "</a>"
    );
} else {
   int idx = data.indexOf(’@’);
   String ext = data.substring(idx);
   data = data.substring(0,idx);
   <.clean group prefix .>
}

-_-_-

<..clean group prefix ..>

while( true ){
    pre = data.split(
                 "[<.email name .>]+"
                 , 2);
    if( pre.length < 2 ){
       out.print( XtpipesUni.toUni(data + ext, "<>&") );
       data = "";
       break;
    }
    len = pre[0] . length();
    if( len > 0 ){
       out.print( XtpipesUni.toUni(pre[0], "<>&") );
       data = data.substring(len);
    }
    data = data.substring(0, data.length() - pre[1].length());
    out.print(
       "<a href=\"mailto:" + XtpipesUni.toUni(data + ext, "&") + "\">"
       + XtpipesUni.toUni(data, "<>&")
       + "</a>"
    );
    data = pre[1];
}

-_-_-

<..email name ..>

\\p{javaLowerCase}\\p{javaUpperCase}\\d\\-_\\./&

-_-_-

2 email script