4 * Copyright 2002 Ove Kaaven
5 * based on WRC code by Bertho Stultiens
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #include "wine/port.h"
46 /* future options to reserve characters for: */
47 /* A = ACF input filename */
48 /* J = do not search standard include path */
49 /* O = generate interpreted stubs */
50 /* w = select win16/win32 output (?) */
52 static const char usage
[] =
53 "Usage: widl [options...] infile.idl\n"
54 " or: widl [options...] --dlldata-only name1 [name2...]\n"
55 " -b arch Set the target architecture\n"
56 " -c Generate client stub\n"
57 " -C file Name of client stub file (default is infile_c.c)\n"
58 " -d n Set debug level to 'n'\n"
59 " -D id[=val] Define preprocessor identifier id=val\n"
60 " --dlldata=file Name of the dlldata file (default is dlldata.c)\n"
61 " -E Preprocess only\n"
62 " -h Generate headers\n"
63 " -H file Name of header file (default is infile.h)\n"
64 " -I path Set include search dir to path (multiple -I allowed)\n"
65 " --local-stubs=file Write empty stubs for call_as/local methods to file\n"
66 " -m32, -m64 Set the kind of typelib to build (Win32 or Win64)\n"
67 " -N Do not preprocess input\n"
68 " --oldnames Use old naming conventions\n"
69 " -p Generate proxy\n"
70 " -P file Name of proxy file (default is infile_p.c)\n"
71 " --prefix-all=p Prefix names of client stubs / server functions with 'p'\n"
72 " --prefix-client=p Prefix names of client stubs with 'p'\n"
73 " --prefix-server=p Prefix names of server functions with 'p'\n"
74 " -s Generate server stub\n"
75 " -S file Name of server stub file (default is infile_s.c)\n"
76 " -t Generate typelib\n"
77 " -T file Name of typelib file (default is infile.tlb)\n"
78 " -u Generate interface identifiers file\n"
79 " -U file Name of interface identifiers file (default is infile_i.c)\n"
80 " -V Print version and exit\n"
81 " -W Enable pedantic warnings\n"
82 " --win32 Only generate 32-bit code\n"
83 " --win64 Only generate 64-bit code\n"
84 " --win32-align n Set win32 structure alignment to 'n'\n"
85 " --win64-align n Set win64 structure alignment to 'n'\n"
86 "Debug level 'n' is a bitmask with following meaning:\n"
87 " * 0x01 Tell which resource is parsed (verbose mode)\n"
88 " * 0x02 Dump internal structures\n"
89 " * 0x04 Create a parser trace (yydebug=1)\n"
90 " * 0x08 Preprocessor messages\n"
91 " * 0x10 Preprocessor lex messages\n"
92 " * 0x20 Preprocessor yacc trace\n"
95 static const char version_string
[] = "Wine IDL Compiler version " PACKAGE_VERSION
"\n"
96 "Copyright 2002 Ove Kaaven\n";
98 int debuglevel
= DEBUGLEVEL_NONE
;
99 int parser_debug
, yy_flex_debug
;
102 int do_everything
= 1;
103 int preprocess_only
= 0;
111 int no_preprocess
= 0;
115 int win32_packing
= 8;
116 int win64_packing
= 8;
120 char *local_stubs_name
;
133 const char *prefix_client
= "";
134 const char *prefix_server
= "";
141 size_t pointer_size
= 0;
142 syskind_t typelib_kind
= sizeof(void*) == 8 ? SYS_WIN64
: SYS_WIN32
;
147 OLDNAMES_OPTION
= CHAR_MAX
+ 1,
152 PREFIX_CLIENT_OPTION
,
153 PREFIX_SERVER_OPTION
,
160 static const char short_options
[] =
161 "b:cC:d:D:EhH:I:m:NpP:sS:tT:uU:VW";
162 static const struct option long_options
[] = {
163 { "dlldata", 1, 0, DLLDATA_OPTION
},
164 { "dlldata-only", 0, 0, DLLDATA_ONLY_OPTION
},
165 { "local-stubs", 1, 0, LOCAL_STUBS_OPTION
},
166 { "oldnames", 0, 0, OLDNAMES_OPTION
},
167 { "prefix-all", 1, 0, PREFIX_ALL_OPTION
},
168 { "prefix-client", 1, 0, PREFIX_CLIENT_OPTION
},
169 { "prefix-server", 1, 0, PREFIX_SERVER_OPTION
},
170 { "win32", 0, 0, WIN32_OPTION
},
171 { "win64", 0, 0, WIN64_OPTION
},
172 { "win32-align", 1, 0, WIN32_ALIGN_OPTION
},
173 { "win64-align", 1, 0, WIN64_ALIGN_OPTION
},
177 static void rm_tempfile(void);
179 static char *make_token(const char *name
)
185 slash
= strrchr(name
, '/');
187 slash
= strrchr(name
, '\\');
189 if (slash
) name
= slash
+ 1;
191 token
= xstrdup(name
);
192 for (i
=0; token
[i
]; i
++) {
193 if (!isalnum(token
[i
])) token
[i
] = '_';
194 else token
[i
] = toupper(token
[i
]);
199 /* duplicate a basename into a valid C token */
200 static char *dup_basename_token(const char *name
, const char *ext
)
202 char *p
, *ret
= dup_basename( name
, ext
);
203 /* map invalid characters to '_' */
204 for (p
= ret
; *p
; p
++) if (!isalnum(*p
)) *p
= '_';
208 static void add_widl_version_define(void)
210 unsigned int version
;
211 const char *p
= PACKAGE_VERSION
;
214 version
= atoi(p
) * 0x10000;
220 version
+= atoi(p
+ 1) * 0x100;
221 p
= strchr(p
+ 1, '.');
226 version
+= atoi(p
+ 1);
230 char version_str
[11];
231 snprintf(version_str
, sizeof(version_str
), "0x%x", version
);
232 wpp_add_define("__WIDL__", version_str
);
235 wpp_add_define("__WIDL__", NULL
);
238 /* set the target platform */
239 static void set_target( const char *target
)
247 { "i386", SYS_WIN32
},
248 { "i486", SYS_WIN32
},
249 { "i586", SYS_WIN32
},
250 { "i686", SYS_WIN32
},
251 { "i786", SYS_WIN32
},
252 { "x86_64", SYS_WIN64
},
253 { "sparc", SYS_WIN32
},
254 { "alpha", SYS_WIN32
},
255 { "powerpc", SYS_WIN32
}
259 char *p
, *spec
= xstrdup( target
);
261 /* target specification is in the form CPU-MANUFACTURER-OS or CPU-MANUFACTURER-KERNEL-OS */
263 if (!(p
= strchr( spec
, '-' ))) error( "Invalid target specification '%s'\n", target
);
265 for (i
= 0; i
< sizeof(cpu_names
)/sizeof(cpu_names
[0]); i
++)
267 if (!strcmp( cpu_names
[i
].name
, spec
))
269 typelib_kind
= cpu_names
[i
].kind
;
274 error( "Unrecognized CPU '%s'\n", spec
);
277 /* clean things up when aborting on a signal */
278 static void exit_on_signal( int sig
)
280 exit(1); /* this will call the atexit functions */
283 static void set_everything(int x
)
294 void start_cplusplus_guard(FILE *fp
)
296 fprintf(fp
, "#ifdef __cplusplus\n");
297 fprintf(fp
, "extern \"C\" {\n");
298 fprintf(fp
, "#endif\n\n");
301 void end_cplusplus_guard(FILE *fp
)
303 fprintf(fp
, "#ifdef __cplusplus\n");
305 fprintf(fp
, "#endif\n\n");
314 static void add_filename_node(struct list
*list
, const char *name
)
316 filename_node_t
*node
= xmalloc(sizeof *node
);
317 node
->filename
= dup_basename( name
, ".idl" );
318 list_add_tail(list
, &node
->link
);
321 static void free_filename_nodes(struct list
*list
)
323 filename_node_t
*node
, *next
;
324 LIST_FOR_EACH_ENTRY_SAFE(node
, next
, list
, filename_node_t
, link
) {
325 list_remove(&node
->link
);
326 free(node
->filename
);
331 static void write_dlldata_list(struct list
*filenames
)
334 filename_node_t
*node
;
336 dlldata
= fopen(dlldata_name
, "w");
338 error("couldn't open %s: %s\n", dlldata_name
, strerror(errno
));
340 fprintf(dlldata
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
341 fprintf(dlldata
, "- Do not edit ***/\n\n");
342 fprintf(dlldata
, "#include <objbase.h>\n");
343 fprintf(dlldata
, "#include <rpcproxy.h>\n\n");
344 start_cplusplus_guard(dlldata
);
346 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
347 fprintf(dlldata
, "EXTERN_PROXY_FILE(%s)\n", node
->filename
);
349 fprintf(dlldata
, "\nPROXYFILE_LIST_START\n");
350 fprintf(dlldata
, "/* Start of list */\n");
351 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
352 fprintf(dlldata
, " REFERENCE_PROXY_FILE(%s),\n", node
->filename
);
353 fprintf(dlldata
, "/* End of list */\n");
354 fprintf(dlldata
, "PROXYFILE_LIST_END\n\n");
356 fprintf(dlldata
, "DLLDATA_ROUTINES(aProxyFileList, GET_DLL_CLSID)\n\n");
357 end_cplusplus_guard(dlldata
);
361 static char *eat_space(char *s
)
363 while (isspace((unsigned char) *s
))
368 void write_dlldata(const statement_list_t
*stmts
)
370 struct list filenames
= LIST_INIT(filenames
);
371 filename_node_t
*node
;
374 if (!do_dlldata
|| !need_proxy_file(stmts
))
377 dlldata
= fopen(dlldata_name
, "r");
379 static char marker
[] = "REFERENCE_PROXY_FILE";
383 while (widl_getline(&line
, &len
, dlldata
)) {
385 start
= eat_space(line
);
386 if (strncmp(start
, marker
, sizeof marker
- 1) == 0) {
387 start
= eat_space(start
+ sizeof marker
- 1);
390 end
= start
= eat_space(start
+ 1);
391 while (*end
&& *end
!= ')')
395 while (isspace((unsigned char) end
[-1]))
399 add_filename_node(&filenames
, start
);
404 error("couldn't read from %s: %s\n", dlldata_name
, strerror(errno
));
410 LIST_FOR_EACH_ENTRY(node
, &filenames
, filename_node_t
, link
)
411 if (strcmp(proxy_token
, node
->filename
) == 0) {
412 /* We're already in the list, no need to regenerate this file. */
413 free_filename_nodes(&filenames
);
417 add_filename_node(&filenames
, proxy_token
);
418 write_dlldata_list(&filenames
);
419 free_filename_nodes(&filenames
);
422 static void write_id_data_stmts(const statement_list_t
*stmts
)
424 const statement_t
*stmt
;
425 if (stmts
) LIST_FOR_EACH_ENTRY( stmt
, stmts
, const statement_t
, entry
)
427 if (stmt
->type
== STMT_TYPE
)
429 const type_t
*type
= stmt
->u
.type
;
430 if (type_get_type(type
) == TYPE_INTERFACE
)
433 if (!is_object(type
->attrs
) && !is_attr(type
->attrs
, ATTR_DISPINTERFACE
))
435 uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
436 write_guid(idfile
, is_attr(type
->attrs
, ATTR_DISPINTERFACE
) ? "DIID" : "IID",
439 else if (type_get_type(type
) == TYPE_COCLASS
)
441 const UUID
*uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
442 write_guid(idfile
, "CLSID", type
->name
, uuid
);
445 else if (stmt
->type
== STMT_LIBRARY
)
447 const UUID
*uuid
= get_attrp(stmt
->u
.lib
->attrs
, ATTR_UUID
);
448 write_guid(idfile
, "LIBID", stmt
->u
.lib
->name
, uuid
);
449 write_id_data_stmts(stmt
->u
.lib
->stmts
);
454 void write_id_data(const statement_list_t
*stmts
)
456 if (!do_idfile
) return;
458 idfile_token
= make_token(idfile_name
);
460 idfile
= fopen(idfile_name
, "w");
462 error("Could not open %s for output\n", idfile_name
);
466 fprintf(idfile
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
467 fprintf(idfile
, "from %s - Do not edit ***/\n\n", input_name
);
468 fprintf(idfile
, "#include <rpc.h>\n");
469 fprintf(idfile
, "#include <rpcndr.h>\n\n");
470 fprintf(idfile
, "#include <initguid.h>\n\n");
471 start_cplusplus_guard(idfile
);
473 write_id_data_stmts(stmts
);
475 fprintf(idfile
, "\n");
476 end_cplusplus_guard(idfile
);
481 int main(int argc
,char *argv
[])
489 signal( SIGTERM
, exit_on_signal
);
490 signal( SIGINT
, exit_on_signal
);
492 signal( SIGHUP
, exit_on_signal
);
497 while((optc
= getopt_long(argc
, argv
, short_options
, long_options
, &opti
)) != EOF
) {
500 dlldata_name
= xstrdup(optarg
);
502 case DLLDATA_ONLY_OPTION
:
506 case LOCAL_STUBS_OPTION
:
508 local_stubs_name
= xstrdup(optarg
);
510 case OLDNAMES_OPTION
:
513 case PREFIX_ALL_OPTION
:
514 prefix_client
= xstrdup(optarg
);
515 prefix_server
= xstrdup(optarg
);
517 case PREFIX_CLIENT_OPTION
:
518 prefix_client
= xstrdup(optarg
);
520 case PREFIX_SERVER_OPTION
:
521 prefix_server
= xstrdup(optarg
);
531 case WIN32_ALIGN_OPTION
:
532 win32_packing
= strtol(optarg
, NULL
, 0);
533 if(win32_packing
!= 2 && win32_packing
!= 4 && win32_packing
!= 8)
534 error("Packing must be one of 2, 4 or 8\n");
536 case WIN64_ALIGN_OPTION
:
537 win64_packing
= strtol(optarg
, NULL
, 0);
538 if(win64_packing
!= 2 && win64_packing
!= 4 && win64_packing
!= 8)
539 error("Packing must be one of 2, 4 or 8\n");
542 set_target( optarg
);
549 client_name
= xstrdup(optarg
);
552 debuglevel
= strtol(optarg
, NULL
, 0);
555 wpp_add_cmdline_define(optarg
);
566 header_name
= xstrdup(optarg
);
569 wpp_add_include_path(optarg
);
572 if (!strcmp( optarg
, "32" )) typelib_kind
= SYS_WIN32
;
573 else if (!strcmp( optarg
, "64" )) typelib_kind
= SYS_WIN64
;
574 else error( "Invalid -m argument '%s'\n", optarg
);
584 proxy_name
= xstrdup(optarg
);
591 server_name
= xstrdup(optarg
);
598 typelib_name
= xstrdup(optarg
);
605 idfile_name
= xstrdup(optarg
);
608 printf("%s", version_string
);
614 fprintf(stderr
, "%s", usage
);
620 set_everything(TRUE
);
623 if (!dlldata_name
&& do_dlldata
)
624 dlldata_name
= xstrdup("dlldata.c");
627 if (do_dlldata
&& !do_everything
) {
628 struct list filenames
= LIST_INIT(filenames
);
629 for ( ; optind
< argc
; ++optind
)
630 add_filename_node(&filenames
, argv
[optind
]);
632 write_dlldata_list(&filenames
);
633 free_filename_nodes(&filenames
);
636 else if (optind
!= argc
- 1) {
637 fprintf(stderr
, "%s", usage
);
641 input_name
= xstrdup(argv
[optind
]);
644 fprintf(stderr
, "%s", usage
);
654 parser_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
655 yy_flex_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
657 wpp_set_debug( (debuglevel
& DEBUGLEVEL_PPLEX
) != 0,
658 (debuglevel
& DEBUGLEVEL_PPTRACE
) != 0,
659 (debuglevel
& DEBUGLEVEL_PPMSG
) != 0 );
662 header_name
= dup_basename(input_name
, ".idl");
663 strcat(header_name
, ".h");
666 if (!typelib_name
&& do_typelib
) {
667 typelib_name
= dup_basename(input_name
, ".idl");
668 strcat(typelib_name
, ".tlb");
671 if (!proxy_name
&& do_proxies
) {
672 proxy_name
= dup_basename(input_name
, ".idl");
673 strcat(proxy_name
, "_p.c");
676 if (!client_name
&& do_client
) {
677 client_name
= dup_basename(input_name
, ".idl");
678 strcat(client_name
, "_c.c");
681 if (!server_name
&& do_server
) {
682 server_name
= dup_basename(input_name
, ".idl");
683 strcat(server_name
, "_s.c");
686 if (!idfile_name
&& do_idfile
) {
687 idfile_name
= dup_basename(input_name
, ".idl");
688 strcat(idfile_name
, "_i.c");
691 if (do_proxies
) proxy_token
= dup_basename_token(proxy_name
,"_p.c");
692 if (do_client
) client_token
= dup_basename_token(client_name
,"_c.c");
693 if (do_server
) server_token
= dup_basename_token(server_name
,"_s.c");
695 add_widl_version_define();
700 chat("Starting preprocess\n");
702 if (!preprocess_only
)
704 ret
= wpp_parse_temp( input_name
, header_name
, &temp_name
);
708 ret
= wpp_parse( input_name
, stdout
);
712 if(preprocess_only
) exit(0);
713 if(!(parser_in
= fopen(temp_name
, "r"))) {
714 fprintf(stderr
, "Could not open %s for input\n", temp_name
);
719 if(!(parser_in
= fopen(input_name
, "r"))) {
720 fprintf(stderr
, "Could not open %s for input\n", input_name
);
725 header_token
= make_token(header_name
);
728 ret
= parser_parse();
736 /* Everything has been done successfully, don't delete any files. */
737 set_everything(FALSE
);
738 local_stubs_name
= NULL
;
743 static void rm_tempfile(void)
750 if (local_stubs_name
)
751 unlink(local_stubs_name
);
761 unlink(typelib_name
);