/*
*  email.jape
*
* Copyright (c) 1998-2001, The University of Sheffield.
*
*  This file is part of GATE (see http://gate.ac.uk/), and is free
*  software, licenced under the GNU Library General Public License,
*  Version 2, June 1991 (in the distribution as file licence.html,
*  and also available at http://gate.ac.uk/gate/licence.html).
*
*  Diana Maynard, 19 April 2002
* 
*  $Id: email.jape,v 1.1 2004/09/10 13:33:24 akshay Exp $
*/

Phase:	Email
Input:  Token Lookup SpaceToken 
Options: control = appelt


// Email rules

Rule:Emailaddress1
Priority: 50
(
 (
  {Token.kind == word}|
  {Token.kind == number}|
  {Token.string == "_"}
 )
 ({Token.string == "."}
  ({Token.kind == word}|
   {Token.kind == number}|
   {Token.string == "_"}
  )
 )?
 {Token.string == "@"}		
 (
  {Token.kind == word}|
  {Token.kind == symbol}|
  {Token.kind == punctuation}|
  {Token.kind == number}
 )
 ({Token.string == "."})?
 (
  {Token.kind == word}|
  {Token.kind == symbol}|
  {Token.kind == punctuation}|
  {Token.kind == number}
 )?
 ({Token.string == "."})?
(
  {Token.kind == word}|
  {Token.kind == symbol}|
  {Token.kind == punctuation}|
  {Token.kind == number}
 )?
({Token.string == "."})?
 (
  {Token.string == "."}		
  (
   {Token.kind == word}|
   {Token.kind == number}	
  )
  ({Token.string == "."})?
  (
   {Token.kind == word}|
   {Token.kind == number}	
  )?
  ({Token.string == "."})?
  (
   {Token.kind == word}|
   {Token.kind == number}	
  )?
 )
)
:emailAddress -->
  :emailAddress.Email= {kind = "emailAddress", rule = "Emailaddress1"}