From df06b3bb4912e2bedd83c438aebba5f54066f936 Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Thu, 1 Jul 2004 21:57:51 +0000
Subject: r1321: find the '::=' directly by th lexer

metze
(This used to be commit 52674db28203b3a7f35c36379670813f9297b5ed)
---
 source4/build/pasn1/asn1.yp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'source4/build/pasn1')

diff --git a/source4/build/pasn1/asn1.yp b/source4/build/pasn1/asn1.yp
index 5fa6460d7e..caaed4cb50 100644
--- a/source4/build/pasn1/asn1.yp
+++ b/source4/build/pasn1/asn1.yp
@@ -37,7 +37,7 @@ asn1_target:
 ;
 
 asn1_delim: 
-	':' ':' '='
+	delimitter
 ;
 
 asn1_application:
@@ -166,6 +166,9 @@ anytext:  #empty { "" }
     | anytext '(' anytext ')' anytext  { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
 ;
 
+delimitter: DELIMITTER
+;
+
 identifier: IDENTIFIER
 ;
 
@@ -224,6 +227,10 @@ again:
 			$parser->YYData->{LINE}++;
 			goto again;
 		}
+		if (s/^::=//) {
+			$parser->YYData->{LAST_TOKEN} = $1;
+			return('DELIMITTER',$1); 
+		}
 		if (s/^\"(.*?)\"//) {
 			$parser->YYData->{LAST_TOKEN} = $1;
 			return('TEXT',$1); 
-- 
cgit