!
! Define a language template for mail to deal with
!

DEFINE LANGUAGE MAIL -
    /INITIAL_STRING = "{mail_template}" -
    /FILE_TYPES = (.TMP) -
    /INITIAL_STRING = {mail_template}

DEFINE PLACEHOLDER mail_template -
    /LANGUAGE = MAIL -
    /TYPE = NONTERMINAL -
    /DESCRIPTION = "Basic Mail Formatter"
    ""
    "{mail_data}"
    ""
    "{signiture}"
END DEFINE

DEFINE PLACEHOLDER mail_data -
    /LANGUAGE = MAIL -
    /TYPE = TERMINAL
    "Body of the mail message"	
END DEFINE

DEFINE PLACEHOLDER signiture -
    /LANGUAGE = MAIL -
    /TYPE = NONTERMINAL
    ""
    "==============================================================================="
    "|                                 |                                           |"
    "| David L. Stevens                | CCnet:    SITVXC::DSTEVENS                |"
    "| Senior Systems Programmer       | BITnet:   DSTEVENS@STEVENS                |"
    "| Stevens Institute of Technology | INTERnet: DSTEVENS@DSRM12.STEVENS-TECH.EDU|"
    "|                                 |                                           |"
    "==============================================================================="
    "[ ...self realization, I was thinking of those immortal words of Socrates     ]"
    "[    when he said: 'I drank what ?'     -   Val Kilmer  -  Real Genius        ]"
    ""
END DEFINE