You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
279 lines
4.6 KiB
279 lines
4.6 KiB
/* Copyright (C) Boris Nikolaus, Germany, 1996-1997. All rights reserved. */
|
|
/* Copyright (C) Microsoft Corporation, 1997-1998. All rights reserved. */
|
|
|
|
%type <XDirectives> LocalTypeDirectiveSeq
|
|
%type <XDirectives> LocalTypeDirectiveESeq
|
|
%type <XDirectives> LocalTypeDirective
|
|
%type <XDirectives> LocalSizeDirectiveSeq
|
|
%type <XDirectives> LocalSizeDirectiveESeq
|
|
%type <XDirectives> LocalSizeDirective
|
|
|
|
%type <XString> PrivateDir_Field
|
|
%type <XString> PrivateDir_Type
|
|
%type <XString> PrivateDir_Value
|
|
%type <int> PrivateDir_Public
|
|
%type <int> PrivateDir_Intx
|
|
%type <int> PrivateDir_LenPtr
|
|
%type <int> PrivateDir_Pointer
|
|
%type <int> PrivateDir_Array
|
|
%type <int> PrivateDir_NoCode
|
|
%type <int> PrivateDir_NoMemCopy
|
|
%type <int> PrivateDir_OidPacked
|
|
%type <int> PrivateDir_OidArray
|
|
%type <int> PrivateDir_SLinked
|
|
%type <int> PrivateDir_DLinked
|
|
%type <XPrivateDirectives> PrivateDirectives
|
|
|
|
%%
|
|
|
|
LocalTypeDirectiveSeq
|
|
: LocalTypeDirective LocalTypeDirectiveESeq
|
|
{ if ($2) {
|
|
$$ = DupDirective($1);
|
|
$$->Next = $2;
|
|
} else {
|
|
$$ = $1;
|
|
}
|
|
}
|
|
;
|
|
|
|
LocalTypeDirectiveESeq
|
|
: LocalTypeDirective LocalTypeDirectiveESeq
|
|
{ if ($2) {
|
|
$$ = DupDirective($1);
|
|
$$->Next = $2;
|
|
} else {
|
|
$$ = $1;
|
|
}
|
|
}
|
|
| /* empty */
|
|
{ $$ = NULL;
|
|
}
|
|
;
|
|
|
|
LocalTypeDirective
|
|
: "--$zero-terminated--"
|
|
{ $$ = NewDirective(eDirective_ZeroTerminated);
|
|
}
|
|
| "--$pointer--"
|
|
{ $$ = NewDirective(eDirective_Pointer);
|
|
}
|
|
| "--$no-pointer--"
|
|
{ $$ = NewDirective(eDirective_NoPointer);
|
|
}
|
|
;
|
|
|
|
LocalSizeDirectiveSeq
|
|
: LocalSizeDirective LocalSizeDirectiveESeq
|
|
{ if ($2) {
|
|
$$ = DupDirective($1);
|
|
$$->Next = $2;
|
|
} else {
|
|
$$ = $1;
|
|
}
|
|
}
|
|
;
|
|
|
|
LocalSizeDirectiveESeq
|
|
: LocalSizeDirective LocalSizeDirectiveESeq
|
|
{ if ($2) {
|
|
$$ = DupDirective($1);
|
|
$$->Next = $2;
|
|
} else {
|
|
$$ = $1;
|
|
}
|
|
}
|
|
| /* empty */
|
|
{ $$ = NULL;
|
|
}
|
|
;
|
|
|
|
LocalSizeDirective
|
|
: "--$fixed-array--"
|
|
{ $$ = NewDirective(eDirective_FixedArray);
|
|
}
|
|
| "--$doubly-linked-list--"
|
|
{ $$ = NewDirective(eDirective_DoublyLinkedList);
|
|
}
|
|
| "--$singly-linked-list--"
|
|
{ $$ = NewDirective(eDirective_SinglyLinkedList);
|
|
}
|
|
| "--$length-pointer--"
|
|
{ $$ = NewDirective(eDirective_LengthPointer);
|
|
}
|
|
;
|
|
|
|
PrivateDir_Type
|
|
: "PrivateDir_TypeName" lcsymbol
|
|
{
|
|
$$ = $2;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = NULL;
|
|
};
|
|
|
|
PrivateDir_Field
|
|
: "PrivateDir_FieldName" lcsymbol
|
|
{
|
|
$$ = $2;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = NULL;
|
|
};
|
|
|
|
PrivateDir_Value
|
|
: "PrivateDir_ValueName" lcsymbol
|
|
{
|
|
$$ = $2;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = NULL;
|
|
};
|
|
|
|
PrivateDir_Public
|
|
: "PrivateDir_Public"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_Intx
|
|
: "PrivateDir_Intx"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_LenPtr
|
|
: "PrivateDir_LenPtr"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_Pointer
|
|
: "PrivateDir_Pointer"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_Array
|
|
: "PrivateDir_Array"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_NoCode
|
|
: "PrivateDir_NoCode"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_NoMemCopy
|
|
: "PrivateDir_NoMemCopy"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_OidPacked
|
|
: "PrivateDir_OidPacked"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_OidArray
|
|
: "PrivateDir_OidArray"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_SLinked
|
|
: "PrivateDir_SLinked"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
PrivateDir_DLinked
|
|
: "PrivateDir_DLinked"
|
|
{
|
|
$$ = 1;
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = 0;
|
|
};
|
|
|
|
|
|
PrivateDirectives
|
|
: PrivateDir_Intx PrivateDir_LenPtr PrivateDir_Pointer
|
|
PrivateDir_Array PrivateDir_NoCode PrivateDir_NoMemCopy PrivateDir_Public
|
|
PrivateDir_OidPacked PrivateDir_OidArray
|
|
PrivateDir_Type PrivateDir_Field PrivateDir_Value
|
|
PrivateDir_SLinked PrivateDir_DLinked
|
|
{
|
|
$$ = (PrivateDirectives_t *) malloc(sizeof(PrivateDirectives_t));
|
|
if ($$)
|
|
{
|
|
memset($$, 0, sizeof(PrivateDirectives_t));
|
|
$$->fIntx = $1;
|
|
$$->fLenPtr = $2;
|
|
$$->fPointer = $3;
|
|
$$->fArray = $4;
|
|
$$->fNoCode = $5;
|
|
$$->fNoMemCopy = $6;
|
|
$$->fPublic = $7;
|
|
$$->fOidPacked = $8;
|
|
$$->fOidArray = $9 | g_fOidArray;
|
|
$$->pszTypeName = $10;
|
|
$$->pszFieldName = $11;
|
|
$$->pszValueName = $12;
|
|
$$->fSLinked = $13;
|
|
$$->fDLinked = $14;
|
|
}
|
|
}
|
|
| /* empty */
|
|
{
|
|
$$ = NULL;
|
|
};
|
|
|
|
%%
|