Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 626... Line 626...
626 
	def = string_printf ( " %s", @def ) ;
 626 
	def = string_printf ( " %s", @def ) ;
627 
    }
 627 
    }
628 
    p->u.u_str = def ;
 628 
    p->u.u_str = def ;
629 
    @c = make_token ( @id.ename, @id.evers, p, OBJ_EXTERN ) ;
 629 
    @c = make_token ( @id.ename, @id.evers, p, OBJ_EXTERN ) ;
630 
@} ;
 630 
@} ;
- 
 
 631 
 
- 
 
 632 
<declare_defmin> : ( id, p, def ) -> ( c ) = @{
- 
 
 633 
    char *def ;
- 
 
 634 
    object *p = make_exp ( @id.iname, @id.ivers, OBJ_DEFMIN ) ;
- 
 
 635 
    if ( @p ) {
- 
 
 636 
	if ( *@p ) {
- 
 
 637 
	    def = string_printf ( "( %s ) %s", @p, @def ) ;
- 
 
 638 
	} else {
- 
 
 639 
	    def = string_printf ( "() %s", @def ) ;
- 
 
 640 
	}
- 
 
 641 
    } else {
- 
 
 642 
	def = string_printf ( " %s", @def ) ;
- 
 
 643 
    }
- 
 
 644 
    p->u.u_str = def ;
- 
 
 645 
    @c = make_token ( @id.ename, @id.evers, p, OBJ_EXTERN ) ;
- 
 
 646 
@} ;
- 
 
 647 
 
631 
 
 648 
 
632 
<declare_enum> : ( tag, id, e ) -> ( c ) = @{
 649 
<declare_enum> : ( tag, id, e ) -> ( c ) = @{
633 
    type *t = make_type ( @id.iname, @id.ivers, @tag ) ;
 650 
    type *t = make_type ( @id.iname, @id.ivers, @tag ) ;
634 
    t->v.obj2 = @e ;
 651 
    t->v.obj2 = @e ;
635 
    @c = make_token ( @id.ename, @id.evers, t->u.obj, OBJ_TYPE ) ;
 652 
    @c = make_token ( @id.ename, @id.evers, t->u.obj, OBJ_TYPE ) ;