[apple/ipsec.git] / ipsec-tools / racoon / prsa_tok.l

/*	$NetBSD: prsa_tok.l,v 1.4 2006/09/09 16:22:10 manu Exp $	*/

/* Id: prsa_tok.l,v 1.2 2004/07/12 20:43:51 ludvigm Exp */

%{
/*
 * Copyright (C) 2004 SuSE Linux AG, Nuernberg, Germany.
 * Contributed by: Michal Ludvig <mludvig@suse.cz>, SUSE Labs
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the project nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/* This file contains a tokeniser for FreeS/WAN-style ipsec.secrets RSA keys. */

#include <config.h>
#include <string.h>
#ifdef HAVE_OPENSSL
#include <openssl/bn.h>
#include <openssl/rsa.h>
#endif	
#include "y.tab.h"

extern int prsalex (void);
extern int prsa_cur_lineno;

%}

comment		\#.*
digit		[0-9]
octet		(([01]?{digit}?{digit})|((2([0-4]{digit}))|(25[0-5])))
addr4		{octet}\.{octet}\.{octet}\.{octet}
hex		[0-9a-fA-F]
word6		{hex}{0,4}
base64		[A-Za-z0-9+/=]
addr6		(::({word6}|{addr4})?|({word6}:)+:?({word6}|{addr4})?)
%%
\{		{ return OBRACE; }
\}		{ return EBRACE; }
:		{ return COLON; }
RSA		{ return TAG_RSA; }
PSK		{ return TAG_PSK; }
PUB		{ return TAG_PUB; }
0x[0-9a-fA-F]+	{ 
			BIGNUM *bn = BN_new();
			BN_hex2bn(&bn, prsatext+2);
			prsalval.bn = bn;
			return HEX;
		}
0s{base64}+	{
			prsalval.chr = strdup(prsatext);
			return BASE64;
		}
Modulus		{ return MODULUS; }
PublicExponent	{ return PUBLIC_EXPONENT; }
PrivateExponent	{ return PRIVATE_EXPONENT; }
Prime1		{ return PRIME1; }
Prime2		{ return PRIME2; }
Exponent1	{ return EXPONENT1; }
Exponent2	{ return EXPONENT2; }
Coefficient	{ return COEFFICIENT; }
\/		{ return SLASH; }
{digit}+	{ prsalval.num = atol(prsatext); return NUMBER; }
any		{ return ADDRANY; }
{addr4}		{ prsalval.chr = strdup(prsatext); return ADDR4; }
{addr6}		{ prsalval.chr = strdup(prsatext); return ADDR6; }
[ \t]*		;
\n		{ prsa_cur_lineno++; }
\#.*		;
%%
Commit	Line	Data
d1e348cf A	1	/* $NetBSD: prsa_tok.l,v 1.4 2006/09/09 16:22:10 manu Exp $ */
	2
	3	/* Id: prsa_tok.l,v 1.2 2004/07/12 20:43:51 ludvigm Exp */
52b7d2ce A	4
	5	%{
	6	/*
	7	* Copyright (C) 2004 SuSE Linux AG, Nuernberg, Germany.
	8	* Contributed by: Michal Ludvig <mludvig@suse.cz>, SUSE Labs
	9	* All rights reserved.
	10	*
	11	* Redistribution and use in source and binary forms, with or without
	12	* modification, are permitted provided that the following conditions
	13	* are met:
	14	* 1. Redistributions of source code must retain the above copyright
	15	* notice, this list of conditions and the following disclaimer.
	16	* 2. Redistributions in binary form must reproduce the above copyright
	17	* notice, this list of conditions and the following disclaimer in the
	18	* documentation and/or other materials provided with the distribution.
	19	* 3. Neither the name of the project nor the names of its contributors
	20	* may be used to endorse or promote products derived from this software
	21	* without specific prior written permission.
	22	*
	23	* THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
	24	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	25	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	26	* ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
	27	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	28	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	29	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	30	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	31	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	32	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	33	* SUCH DAMAGE.
	34	*/
	35
	36	/* This file contains a tokeniser for FreeS/WAN-style ipsec.secrets RSA keys. */
	37
e8d9021d	38	#include <config.h>
52b7d2ce	39	#include <string.h>
e8d9021d	40	#ifdef HAVE_OPENSSL
52b7d2ce A	41	#include <openssl/bn.h>
52b7d2ce A	42	#include <openssl/rsa.h>
e8d9021d	43	#endif
52b7d2ce	44	#include "y.tab.h"
52b7d2ce A	45
	46	extern int prsalex (void);
	47	extern int prsa_cur_lineno;
	48
	49	%}
	50
	51	comment \#.*
	52	digit [0-9]
	53	octet (([01]?{digit}?{digit})\|((2([0-4]{digit}))\|(25[0-5])))
	54	addr4 {octet}\.{octet}\.{octet}\.{octet}
	55	hex [0-9a-fA-F]
	56	word6 {hex}{0,4}
	57	base64 [A-Za-z0-9+/=]
	58	addr6 (::({word6}\|{addr4})?\|({word6}:)+:?({word6}\|{addr4})?)
	59	%%
	60	\{ { return OBRACE; }
	61	\} { return EBRACE; }
	62	: { return COLON; }
	63	RSA { return TAG_RSA; }
	64	PSK { return TAG_PSK; }
	65	PUB { return TAG_PUB; }
	66	0x[0-9a-fA-F]+ {
	67	BIGNUM *bn = BN_new();
	68	BN_hex2bn(&bn, prsatext+2);
	69	prsalval.bn = bn;
	70	return HEX;
	71	}
	72	0s{base64}+ {
	73	prsalval.chr = strdup(prsatext);
	74	return BASE64;
	75	}
	76	Modulus { return MODULUS; }
	77	PublicExponent { return PUBLIC_EXPONENT; }
	78	PrivateExponent { return PRIVATE_EXPONENT; }
	79	Prime1 { return PRIME1; }
	80	Prime2 { return PRIME2; }
	81	Exponent1 { return EXPONENT1; }
	82	Exponent2 { return EXPONENT2; }
	83	Coefficient { return COEFFICIENT; }
	84	\/ { return SLASH; }
	85	{digit}+ { prsalval.num = atol(prsatext); return NUMBER; }
	86	any { return ADDRANY; }
	87	{addr4} { prsalval.chr = strdup(prsatext); return ADDR4; }
	88	{addr6} { prsalval.chr = strdup(prsatext); return ADDR6; }
	89	[ \t]* ;
	90	\n { prsa_cur_lineno++; }
	91	\#.* ;
	92	%%