zdoom/qzdoom
0
0
Fork 0
mirror of https://github.com/ZDoom/qzdoom.git synced 2024-12-14 22:41:53 +00:00
Code Issues Projects Releases Packages Wiki Activity

Accept only one identifier for class names.

Browse source
This commit is contained in:
Randy Heit 2013-10-29 13:34:03 -05:00
parent 2b96db5fac
commit 03c4244fd8
4 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/zscript/ast.cpp
View file

@ -276,7 +276,7 @@ static void PrintClass(FLispString &out, ZCC_TreeNode *node)
ZCC_Class *cnode = (ZCC_Class *)node; ZCC_Class *cnode = (ZCC_Class *)node;
out.Break(); out.Break();
out.Open("class"); out.Open("class");
PrintNodes(out, cnode->ClassName); out.AddName(cnode->ClassName);
PrintNodes(out, cnode->ParentName); PrintNodes(out, cnode->ParentName);
PrintNodes(out, cnode->Replaces); PrintNodes(out, cnode->Replaces);
out.AddHex(cnode->Flags); out.AddHex(cnode->Flags);

4
src/zscript/zcc-parse.lemon
View file

@ -158,10 +158,10 @@ class_definition(X) ::= class_head(A) class_body(B).
X = A; X = A;
} }
class_head(X) ::= CLASS(T) dottable_id(A) class_ancestry(B) class_flags(C). class_head(X) ::= CLASS(T) IDENTIFIER(A) class_ancestry(B) class_flags(C).
{ {
NEW_AST_NODE(Class,head,T); NEW_AST_NODE(Class,head,T);
head->ClassName = A; head->ClassName = A.Name();
head->ParentName = B; head->ParentName = B;
head->Flags = C.Flags; head->Flags = C.Flags;
head->Replaces = C.Replaces; head->Replaces = C.Replaces;

2
src/zscript/zcc_compile.cpp
View file

@ -30,7 +30,7 @@ ZCCCompiler::ZCCCompiler(ZCC_AST &ast, DObject *_outer, PSymbolTable &_symbols)
switch (node->NodeType) switch (node->NodeType)
{ {
case AST_Class: case AST_Class:
// if (AddNamedNode(static_cast<ZCC_Class *>(node)->ClassName, node)) if (AddNamedNode(static_cast<ZCC_Class *>(node)->ClassName, node))
{ {
Classes.Push(static_cast<ZCC_Class *>(node)); Classes.Push(static_cast<ZCC_Class *>(node));
} }

2
src/zscript/zcc_parser.h
View file

@ -175,7 +175,7 @@ struct ZCC_Identifier : ZCC_TreeNode
struct ZCC_Class : ZCC_TreeNode struct ZCC_Class : ZCC_TreeNode
{ {
ZCC_Identifier *ClassName; ENamedName ClassName;
ZCC_Identifier *ParentName; ZCC_Identifier *ParentName;
ZCC_Identifier *Replaces; ZCC_Identifier *Replaces;
VM_UWORD Flags; VM_UWORD Flags;