mirror of
https://github.com/samba-team/samba.git
synced 2024-12-24 21:34:56 +03:00
69fff2d750
This breaks (some?) files with gcc.
This reverts commit 98a4327b19
.
307 lines
5.2 KiB
Plaintext
307 lines
5.2 KiB
Plaintext
########################
|
|
# ASN.1 Parse::Yapp parser
|
|
# Copyright (C) Stefan (metze) Metzmacher <metze@samba.org>
|
|
# released under the GNU GPL version 3 or later
|
|
|
|
|
|
|
|
# the precedence actually doesn't matter at all for this grammer, but
|
|
# by providing a precedence we reduce the number of conflicts
|
|
# enormously
|
|
%left '-' '+' '&' '|' '*' '>' '.' '/' '(' ')' '[' ']' ':' ',' ';'
|
|
|
|
|
|
################
|
|
# grammer
|
|
%%
|
|
|
|
asn1:
|
|
identifier asn1_definitions asn1_delimitter asn1_begin asn1_decls asn1_end
|
|
{{
|
|
"OBJECT" => "ASN1_DEFINITION",
|
|
"IDENTIFIER" => $_[1],
|
|
"DATA" => $_[5]
|
|
}}
|
|
;
|
|
|
|
asn1_delimitter:
|
|
delimitter
|
|
;
|
|
|
|
asn1_definitions:
|
|
'DEFINITIONS'
|
|
;
|
|
|
|
asn1_begin:
|
|
'BEGIN'
|
|
;
|
|
|
|
asn1_end:
|
|
'END'
|
|
;
|
|
|
|
asn1_decls:
|
|
asn1_def
|
|
{ [ $_[1] ] }
|
|
| asn1_decls asn1_def
|
|
{ push(@{$_[1]}, $_[2]); $_[1] }
|
|
;
|
|
|
|
|
|
|
|
asn1_def:
|
|
asn1_target asn1_delimitter asn1_application asn1_type
|
|
{{
|
|
"OBJECT" => "ASN1_DEF",
|
|
"IDENTIFIER" => $_[1],
|
|
"APPLICATION" => $_[3],
|
|
"STRUCTURE" => $_[4]
|
|
}}
|
|
;
|
|
|
|
asn1_target:
|
|
identifier
|
|
;
|
|
|
|
asn1_application:
|
|
#empty
|
|
| '[' 'APPLICATION' constant ']'
|
|
{ $_[3] }
|
|
;
|
|
|
|
asn1_type:
|
|
asn1_boolean
|
|
| asn1_integer
|
|
| asn1_bit_string
|
|
| asn1_octet_string
|
|
| asn1_null
|
|
| asn1_object_identifier
|
|
| asn1_real
|
|
| asn1_enumerated
|
|
| asn1_sequence
|
|
| identifier
|
|
;
|
|
|
|
asn1_boolean:
|
|
'BOOLEAN'
|
|
{{
|
|
"TYPE" => "BOOLEAN",
|
|
"TAG" => 1
|
|
}}
|
|
;
|
|
|
|
asn1_integer:
|
|
'INTEGER'
|
|
{{
|
|
"TYPE" => "INTEGER",
|
|
"TAG" => 2
|
|
}}
|
|
| 'INTEGER' '(' constant '.' '.' constant ')'
|
|
{{
|
|
"TYPE" => "INTEGER",
|
|
"TAG" => 2,
|
|
"RANGE_LOW" => $_[3],
|
|
"RENAGE_HIGH" => $_[6]
|
|
}}
|
|
;
|
|
|
|
asn1_bit_string:
|
|
'BIT' 'STRING'
|
|
{{
|
|
"TYPE" => "BIT STRING",
|
|
"TAG" => 3
|
|
}}
|
|
;
|
|
|
|
asn1_octet_string:
|
|
'OCTET' 'STRING'
|
|
{{
|
|
"TYPE" => "OCTET STRING",
|
|
"TAG" => 4
|
|
}}
|
|
;
|
|
|
|
asn1_null:
|
|
'NULL'
|
|
{{
|
|
"TYPE" => "NULL",
|
|
"TAG" => 5
|
|
}}
|
|
;
|
|
|
|
asn1_object_identifier:
|
|
'OBJECT' 'IDENTIFIER'
|
|
{{
|
|
"TYPE" => "OBJECT IDENTIFIER",
|
|
"TAG" => 6
|
|
}}
|
|
;
|
|
|
|
asn1_real:
|
|
'REAL'
|
|
{{
|
|
"TYPE" => "REAL",
|
|
"TAG" => 9
|
|
}}
|
|
;
|
|
|
|
asn1_enumerated:
|
|
'ENUMERATED'
|
|
{{
|
|
"TYPE" => "ENUMERATED",
|
|
"TAG" => 10
|
|
}}
|
|
;
|
|
|
|
asn1_sequence:
|
|
'SEQUENCE' '{' asn1_var_dec_list '}'
|
|
{{
|
|
"TYPE" => "SEQUENCE",
|
|
"TAG" => 16,
|
|
"STRUCTURE" => $_[3]
|
|
}}
|
|
;
|
|
|
|
asn1_var_dec_list:
|
|
asn1_var_dec
|
|
{ [ $_[1] ] }
|
|
| asn1_var_dec_list ',' asn1_var_dec
|
|
{ push(@{$_[1]}, $_[3]); $_[1] }
|
|
;
|
|
|
|
asn1_var_dec:
|
|
identifier asn1_type
|
|
{{
|
|
"NAME" => $_[1],
|
|
"TYPE" => $_[2]
|
|
}}
|
|
;
|
|
|
|
anytext: #empty { "" }
|
|
| identifier | constant | text
|
|
| anytext '-' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '.' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '*' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '>' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '|' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '&' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '/' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '+' anytext { "$_[1]$_[2]$_[3]" }
|
|
| anytext '(' anytext ')' anytext { "$_[1]$_[2]$_[3]$_[4]$_[5]" }
|
|
;
|
|
|
|
delimitter: DELIMITTER
|
|
;
|
|
|
|
identifier: IDENTIFIER
|
|
;
|
|
|
|
constant: CONSTANT
|
|
;
|
|
|
|
text: TEXT { "\"$_[1]\"" }
|
|
;
|
|
|
|
#####################################
|
|
# start code
|
|
%%
|
|
|
|
use util;
|
|
|
|
sub _ASN1_Error {
|
|
if (exists $_[0]->YYData->{ERRMSG}) {
|
|
print $_[0]->YYData->{ERRMSG};
|
|
delete $_[0]->YYData->{ERRMSG};
|
|
return;
|
|
};
|
|
my $line = $_[0]->YYData->{LINE};
|
|
my $last_token = $_[0]->YYData->{LAST_TOKEN};
|
|
my $file = $_[0]->YYData->{INPUT_FILENAME};
|
|
|
|
print "$file:$line: Syntax error near '$last_token'\n";
|
|
}
|
|
|
|
sub _ASN1_Lexer($)
|
|
{
|
|
my($parser)=shift;
|
|
|
|
$parser->YYData->{INPUT}
|
|
or return('',undef);
|
|
|
|
again:
|
|
$parser->YYData->{INPUT} =~ s/^[ \t]*//;
|
|
|
|
for ($parser->YYData->{INPUT}) {
|
|
if (/^\#/) {
|
|
if (s/^\# (\d+) \"(.*?)\"( \d+|)//) {
|
|
$parser->YYData->{LINE} = $1-1;
|
|
$parser->YYData->{INPUT_FILENAME} = $2;
|
|
goto again;
|
|
}
|
|
if (s/^\#line (\d+) \"(.*?)\"( \d+|)//) {
|
|
$parser->YYData->{LINE} = $1-1;
|
|
$parser->YYData->{INPUT_FILENAME} = $2;
|
|
goto again;
|
|
}
|
|
if (s/^(\#.*)$//m) {
|
|
goto again;
|
|
}
|
|
}
|
|
if (s/^(\n)//) {
|
|
$parser->YYData->{LINE}++;
|
|
goto again;
|
|
}
|
|
if (s/^(--.*\n)//) {
|
|
$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);
|
|
}
|
|
if (s/^(\d+)(\W|$)/$2/) {
|
|
$parser->YYData->{LAST_TOKEN} = $1;
|
|
return('CONSTANT',$1);
|
|
}
|
|
if (s/^([\w_-]+)//) {
|
|
$parser->YYData->{LAST_TOKEN} = $1;
|
|
if ($1 =~
|
|
/^(SEQUENCE|INTEGER|OCTET|STRING|
|
|
APPLICATION|OPTIONAL|NULL|COMPONENTS|OF|
|
|
BOOLEAN|ENUMERATED|CHOISE|REAL|BIT|OBJECT|IDENTIFIER|
|
|
DEFAULT|FALSE|TRUE|SET|DEFINITIONS|BEGIN|END)$/x) {
|
|
return $1;
|
|
}
|
|
return('IDENTIFIER',$1);
|
|
}
|
|
if (s/^(.)//s) {
|
|
$parser->YYData->{LAST_TOKEN} = $1;
|
|
return($1,$1);
|
|
}
|
|
}
|
|
}
|
|
|
|
sub parse_asn1($$)
|
|
{
|
|
my $self = shift;
|
|
my $filename = shift;
|
|
|
|
my $saved_delim = $/;
|
|
undef $/;
|
|
my $cpp = $ENV{CPP};
|
|
if (! defined $cpp) {
|
|
$cpp = "cpp"
|
|
}
|
|
my $data = `$cpp -xc $filename`;
|
|
$/ = $saved_delim;
|
|
|
|
$self->YYData->{INPUT} = $data;
|
|
$self->YYData->{LINE} = 0;
|
|
$self->YYData->{LAST_TOKEN} = "NONE";
|
|
return $self->YYParse( yylex => \&_ASN1_Lexer, yyerror => \&_ASN1_Error );
|
|
}
|