ReceiveTempSMS/Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add support for hidden and restricted function attributes.

Browse Source 
Add support for odl interface attribute.
This commit is contained in:
Huw Davies 2005-01-24 11:27:56 +00:00 committed by Alexandre Julliard
parent a27be2db55
commit 2e6bd29a88
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tools/widl/write_msft.c
View File

@ -1180,14 +1180,11 @@ static HRESULT add_func_desc(msft_typeinfo_t* typeinfo, func_t *func, int index)
} }
} }
chat("num of params %d\n", num_params); chat("add_func_desc: num of params %d\n", num_params);
for(attr = func->def->attrs; attr; attr = NEXT_LINK(attr)) { for(attr = func->def->attrs; attr; attr = NEXT_LINK(attr)) {
expr_t *expr = attr->u.pval; expr_t *expr = attr->u.pval;
switch(attr->type) { switch(attr->type) {
case ATTR_ID:
id = expr->u.lval;
break;
case ATTR_HELPCONTEXT: case ATTR_HELPCONTEXT:
extra_attr = 1; extra_attr = 1;
help_context = expr->u.lval; help_context = expr->u.lval;
@ -1200,6 +1197,12 @@ static HRESULT add_func_desc(msft_typeinfo_t* typeinfo, func_t *func, int index)
extra_attr = 6; extra_attr = 6;
help_string_context = expr->u.lval; help_string_context = expr->u.lval;
break; break;
case ATTR_HIDDEN:
funcflags |= 0x40; /* FUNCFLAG_FHIDDEN */
break;
case ATTR_ID:
id = expr->u.lval;
break;
case ATTR_OUT: case ATTR_OUT:
break; break;
case ATTR_PROPGET: case ATTR_PROPGET:
@ -1208,8 +1211,11 @@ static HRESULT add_func_desc(msft_typeinfo_t* typeinfo, func_t *func, int index)
case ATTR_PROPPUT: case ATTR_PROPPUT:
invokekind = 0x4; /* INVOKE_PROPERTYPUT */ invokekind = 0x4; /* INVOKE_PROPERTYPUT */
break; break;
case ATTR_RESTRICTED:
funcflags |= 0x1; /* FUNCFLAG_FRESTRICTED */
break;
default: default:
warning("ignoring attr %d\n", attr->type); warning("add_func_desc: ignoring attr %d\n", attr->type);
break; break;
} }
} }
@ -1584,6 +1590,9 @@ static msft_typeinfo_t *create_msft_typeinfo(msft_typelib_t *typelib, typelib_en
typeinfo->flags |= 0x10; /* TYPEFLAG_FHIDDEN */ typeinfo->flags |= 0x10; /* TYPEFLAG_FHIDDEN */
break; break;
case ATTR_ODL:
break;
case ATTR_RESTRICTED: case ATTR_RESTRICTED:
typeinfo->flags |= 0x200; /* TYPEFLAG_FRESTRICTED */ typeinfo->flags |= 0x200; /* TYPEFLAG_FRESTRICTED */
break; break;