%type <expression_> BoxableExpression
%type <statement_> CategoryStatement
%type <expression_> ClassExpression
+%type <field_> ClassFieldListOpt
+%type <field_> ClassFields
%type <statement_> ClassStatement
%type <expression_> ClassSuperOpt
-%type <field_> ClassFieldList
%type <message_> ClassMessageDeclaration
%type <message_> ClassMessageDeclarationListOpt
%type <className_> ClassName
| { $$ = NULL; }
;
-ClassField
- : Expression Identifier ";"
- ;
-
-ClassFieldList
- : BRACE ClassFieldListOpt "}" { $$ = NULL; }
+ClassFieldListOpt
+ : Expression Identifier ";" ClassFieldListOpt { $$ = CYNew CYField($1, $2, $4); }
+ | { $$ = NULL; }
;
-ClassFieldListOpt
- : ClassFieldListOpt ClassField
- |
+ClassFields
+ : BRACE ClassFieldListOpt "}" { $$ = $2; }
;
MessageScope
;
ClassExpression
- : "@implementation" LexPushInOff ClassNameOpt ClassSuperOpt ClassProtocolListOpt ClassFieldList ClassMessageDeclarationListOpt LexPopIn "@end" { $$ = CYNew CYClassExpression($3, $4, $5, $6, $7); }
+ : "@implementation" LexPushInOff ClassNameOpt ClassSuperOpt ClassProtocolListOpt ClassFields ClassMessageDeclarationListOpt LexPopIn "@end" { $$ = CYNew CYClassExpression($3, $4, $5, $6, $7); }
;
ClassStatement
- : ";@implementation" ClassName ClassSuperOpt ClassProtocolListOpt ClassFieldList ClassMessageDeclarationListOpt "@end" { $$ = CYNew CYClassStatement($2, $3, $4, $5, $6); }
+ : ";@implementation" ClassName ClassSuperOpt ClassProtocolListOpt ClassFields ClassMessageDeclarationListOpt "@end" { $$ = CYNew CYClassStatement($2, $3, $4, $5, $6); }
;
CategoryName
if (extra != NULL)
left = $ CYAdd(left, extra);
- if (next == NULL)
+ if (next == NULL || next->name_ == NULL)
return left;
CYExpression *right(next->TypeSignature(context));
return $E(Replace_(context));
}
-CYStatement *CYField::Replace(CYContext &context) const {
- return NULL;
+CYStatement *CYField::Replace(CYContext &context) const { $T(NULL)
+ CYVariable *cyn($V("$cyn"));
+ CYVariable *cyt($V("$cyt"));
+
+ CYExpression *type($C0($M(type_, $S("toString"))));
+
+ return $ CYBlock($$->*
+ next_->Replace(context)->*
+ $E($ CYAssign(cyt, type))->*
+ $E($ CYAssign(cyn, $N1($V("Type"), cyt)))->*
+ $E($C5($V("class_addIvar"), $V("$cyc"), $S(name_->Word()), $M(cyn, $S("size")), $M(cyn, $S("alignment")), cyt))
+ );
}
CYStatement *CYImport::Replace(CYContext &context) {