r1321: find the '::=' directly by th lexer

[samba.git] / source4 / build / pasn1 / asn1.yp

diff --git a/source4/build/pasn1/asn1.yp b/source4/build/pasn1/asn1.yp
index 5fa6460d7eb1c1252fb3a2b3028b7c1b99cbecaf..caaed4cb50efc19f792434c222333d0af87ffdd3 100644 (file)
--- 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);