%{
    /*
     * mime.l
     *
     * Petit programme pour convertir du quoted-printable
     * en caracteres 8 bits
     *
     * Auteur :
     *		Pierre David (pda@prism.uvsq.fr)
     *
     * Copyright :
     *		Vous pouvez faire ce que bon vous semble avec
     *		ce programme : l'utiliser, le diffuser, le vendre,
     *		pretendre que vous l'avez ecrit, demander des
     *		royalties, etc.
     *
     * Compilation par :
     *		lex mime.l
     *		cc -o mime lex.yy.c -ll
     *
     * Utilisation :
     *		mime < message-en-quoted-printable
     *		(ou avec elm, sous vi : "1G!Gmime")
     *
     * Historique
     *   93/11/05 : pda : codage
     *   94/10/06 : pda : ajout du copyright pour faire plaisir a wolf.
     *   94/11/17 : pda : correction du commentaire sur la compilation
     */
%}
HEX	[0-9a-fA-F]
%%
^Content-[Tt]ransfer-[Ee]ncoding:[ \t]+[Qq][Uu][Oo][Tt][Ee][Dd]-.*$	conv_header () ;
=\n"> "			;
=\n			;
={HEX}{HEX}		conv_char (yytext+1) ;
%%

conv_header ()
{
    printf ("Content-Transfer-Encoding: 8bit") ;
}

conv_char (s)
char *s ;
{
    int val ;
    sscanf (s, "%x", &val) ;
    putchar (val) ;
}

main ()
{
    yylex () ;
}