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 /* w = select win16/win32 output (?) */
51 static const char usage
[] =
52 "Usage: widl [options...] infile.idl\n"
53 " or: widl [options...] --dlldata-only name1 [name2...]\n"
54 " -app_config Ignored, present for midl compatibility\n"
55 " -b arch Set the target architecture\n"
56 " -c Generate client stub\n"
57 " -d n Set debug level to 'n'\n"
58 " -D id[=val] Define preprocessor identifier id=val\n"
59 " -E Preprocess only\n"
60 " --help Display this help and exit\n"
61 " -h Generate headers\n"
62 " -H file Name of header file (default is infile.h)\n"
63 " -I path Set include search dir to path (multiple -I allowed)\n"
64 " --local-stubs=file Write empty stubs for call_as/local methods to file\n"
65 " -m32, -m64 Set the kind of typelib to build (Win32 or Win64)\n"
66 " -N Do not preprocess input\n"
67 " --oldnames Use old naming conventions\n"
68 " -o, --output=NAME Set the output file name\n"
69 " -Otype Type of stubs to generate (-Os, -Oi, -Oif)\n"
70 " -p Generate proxy\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 " -r Generate registration script\n"
75 " -s Generate server stub\n"
76 " -t Generate typelib\n"
77 " -u Generate interface identifiers file\n"
78 " -V Print version and exit\n"
79 " -W Enable pedantic warnings\n"
80 " --win32 Only generate 32-bit code\n"
81 " --win64 Only generate 64-bit code\n"
82 " --win32-align n Set win32 structure alignment to 'n'\n"
83 " --win64-align n Set win64 structure alignment to 'n'\n"
84 "Debug level 'n' is a bitmask with following meaning:\n"
85 " * 0x01 Tell which resource is parsed (verbose mode)\n"
86 " * 0x02 Dump internal structures\n"
87 " * 0x04 Create a parser trace (yydebug=1)\n"
88 " * 0x08 Preprocessor messages\n"
89 " * 0x10 Preprocessor lex messages\n"
90 " * 0x20 Preprocessor yacc trace\n"
93 static const char version_string
[] = "Wine IDL Compiler version " PACKAGE_VERSION
"\n"
94 "Copyright 2002 Ove Kaaven\n";
96 int debuglevel
= DEBUGLEVEL_NONE
;
97 int parser_debug
, yy_flex_debug
;
100 int do_everything
= 1;
101 static int preprocess_only
= 0;
107 int do_regscript
= 0;
110 static int no_preprocess
= 0;
114 int win32_packing
= 8;
115 int win64_packing
= 8;
116 static enum stub_mode stub_mode
= MODE_Os
;
120 char *local_stubs_name
;
130 char *regscript_name
;
131 char *regscript_token
;
132 static char *idfile_name
;
134 const char *prefix_client
= "";
135 const char *prefix_server
= "";
141 unsigned int 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
,
162 static const char short_options
[] =
163 "b:cC:d:D:EhH:I:m:No:O:pP:rsS:tT:uU:VW";
164 static const struct option long_options
[] = {
165 { "dlldata", 1, NULL
, DLLDATA_OPTION
},
166 { "dlldata-only", 0, NULL
, DLLDATA_ONLY_OPTION
},
167 { "help", 0, NULL
, PRINT_HELP
},
168 { "local-stubs", 1, NULL
, LOCAL_STUBS_OPTION
},
169 { "oldnames", 0, NULL
, OLDNAMES_OPTION
},
170 { "output", 0, NULL
, 'o' },
171 { "prefix-all", 1, NULL
, PREFIX_ALL_OPTION
},
172 { "prefix-client", 1, NULL
, PREFIX_CLIENT_OPTION
},
173 { "prefix-server", 1, NULL
, PREFIX_SERVER_OPTION
},
174 { "win32", 0, NULL
, WIN32_OPTION
},
175 { "win64", 0, NULL
, WIN64_OPTION
},
176 { "win32-align", 1, NULL
, WIN32_ALIGN_OPTION
},
177 { "win64-align", 1, NULL
, WIN64_ALIGN_OPTION
},
178 { "app_config", 0, NULL
, APP_CONFIG_OPTION
},
182 static void rm_tempfile(void);
184 enum stub_mode
get_stub_mode(void)
186 /* old-style interpreted stubs are not supported on 64-bit */
187 if (stub_mode
== MODE_Oi
&& pointer_size
== 8) return MODE_Oif
;
191 static char *make_token(const char *name
)
197 slash
= strrchr(name
, '/');
199 slash
= strrchr(name
, '\\');
201 if (slash
) name
= slash
+ 1;
203 token
= xstrdup(name
);
204 for (i
=0; token
[i
]; i
++) {
205 if (!isalnum(token
[i
])) token
[i
] = '_';
206 else token
[i
] = tolower(token
[i
]);
211 /* duplicate a basename into a valid C token */
212 static char *dup_basename_token(const char *name
, const char *ext
)
214 char *p
, *ret
= dup_basename( name
, ext
);
215 /* map invalid characters to '_' */
216 for (p
= ret
; *p
; p
++) if (!isalnum(*p
)) *p
= '_';
220 static void add_widl_version_define(void)
222 unsigned int version
;
223 const char *p
= PACKAGE_VERSION
;
226 version
= atoi(p
) * 0x10000;
232 version
+= atoi(p
+ 1) * 0x100;
233 p
= strchr(p
+ 1, '.');
238 version
+= atoi(p
+ 1);
242 char version_str
[11];
243 snprintf(version_str
, sizeof(version_str
), "0x%x", version
);
244 wpp_add_define("__WIDL__", version_str
);
247 wpp_add_define("__WIDL__", NULL
);
250 /* set the target platform */
251 static void set_target( const char *target
)
259 { "i386", SYS_WIN32
},
260 { "i486", SYS_WIN32
},
261 { "i586", SYS_WIN32
},
262 { "i686", SYS_WIN32
},
263 { "i786", SYS_WIN32
},
264 { "amd64", SYS_WIN64
},
265 { "x86_64", SYS_WIN64
},
266 { "powerpc", SYS_WIN32
},
267 { "arm", SYS_WIN32
},
268 { "aarch64", SYS_WIN64
}
272 char *p
, *spec
= xstrdup( target
);
274 /* target specification is in the form CPU-MANUFACTURER-OS or CPU-MANUFACTURER-KERNEL-OS */
276 if (!(p
= strchr( spec
, '-' ))) error( "Invalid target specification '%s'\n", target
);
278 for (i
= 0; i
< sizeof(cpu_names
)/sizeof(cpu_names
[0]); i
++)
280 if (!strcmp( cpu_names
[i
].name
, spec
))
282 typelib_kind
= cpu_names
[i
].kind
;
287 error( "Unrecognized CPU '%s'\n", spec
);
290 /* clean things up when aborting on a signal */
291 static void exit_on_signal( int sig
)
293 exit(1); /* this will call the atexit functions */
296 static void set_everything(int x
)
308 void start_cplusplus_guard(FILE *fp
)
310 fprintf(fp
, "#ifdef __cplusplus\n");
311 fprintf(fp
, "extern \"C\" {\n");
312 fprintf(fp
, "#endif\n\n");
315 void end_cplusplus_guard(FILE *fp
)
317 fprintf(fp
, "#ifdef __cplusplus\n");
319 fprintf(fp
, "#endif\n\n");
328 static void add_filename_node(struct list
*list
, const char *name
)
330 filename_node_t
*node
= xmalloc(sizeof *node
);
331 node
->filename
= dup_basename( name
, ".idl" );
332 list_add_tail(list
, &node
->link
);
335 static void free_filename_nodes(struct list
*list
)
337 filename_node_t
*node
, *next
;
338 LIST_FOR_EACH_ENTRY_SAFE(node
, next
, list
, filename_node_t
, link
) {
339 list_remove(&node
->link
);
340 free(node
->filename
);
345 static void write_dlldata_list(struct list
*filenames
, int define_proxy_delegation
)
348 filename_node_t
*node
;
350 dlldata
= fopen(dlldata_name
, "w");
352 error("couldn't open %s: %s\n", dlldata_name
, strerror(errno
));
354 fprintf(dlldata
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
355 fprintf(dlldata
, "- Do not edit ***/\n\n");
356 if (define_proxy_delegation
)
357 fprintf(dlldata
, "#define PROXY_DELEGATION\n");
358 fprintf(dlldata
, "#include <objbase.h>\n");
359 fprintf(dlldata
, "#include <rpcproxy.h>\n\n");
360 start_cplusplus_guard(dlldata
);
362 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
363 fprintf(dlldata
, "EXTERN_PROXY_FILE(%s)\n", node
->filename
);
365 fprintf(dlldata
, "\nPROXYFILE_LIST_START\n");
366 fprintf(dlldata
, "/* Start of list */\n");
367 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
368 fprintf(dlldata
, " REFERENCE_PROXY_FILE(%s),\n", node
->filename
);
369 fprintf(dlldata
, "/* End of list */\n");
370 fprintf(dlldata
, "PROXYFILE_LIST_END\n\n");
372 fprintf(dlldata
, "DLLDATA_ROUTINES(aProxyFileList, GET_DLL_CLSID)\n\n");
373 end_cplusplus_guard(dlldata
);
377 static char *eat_space(char *s
)
379 while (isspace((unsigned char) *s
))
384 void write_dlldata(const statement_list_t
*stmts
)
386 struct list filenames
= LIST_INIT(filenames
);
387 int define_proxy_delegation
= 0;
388 filename_node_t
*node
;
391 if (!do_dlldata
|| !need_proxy_file(stmts
))
394 define_proxy_delegation
= need_proxy_delegation(stmts
);
396 dlldata
= fopen(dlldata_name
, "r");
398 static char marker
[] = "REFERENCE_PROXY_FILE";
399 static const char delegation_define
[] = "#define PROXY_DELEGATION";
403 while (widl_getline(&line
, &len
, dlldata
)) {
405 start
= eat_space(line
);
406 if (strncmp(start
, marker
, sizeof marker
- 1) == 0) {
407 start
= eat_space(start
+ sizeof marker
- 1);
410 end
= start
= eat_space(start
+ 1);
411 while (*end
&& *end
!= ')')
415 while (isspace((unsigned char) end
[-1]))
419 add_filename_node(&filenames
, start
);
420 }else if (!define_proxy_delegation
&& strncmp(start
, delegation_define
, sizeof(delegation_define
)-1)) {
421 define_proxy_delegation
= 1;
426 error("couldn't read from %s: %s\n", dlldata_name
, strerror(errno
));
432 LIST_FOR_EACH_ENTRY(node
, &filenames
, filename_node_t
, link
)
433 if (strcmp(proxy_token
, node
->filename
) == 0) {
434 /* We're already in the list, no need to regenerate this file. */
435 free_filename_nodes(&filenames
);
439 add_filename_node(&filenames
, proxy_token
);
440 write_dlldata_list(&filenames
, define_proxy_delegation
);
441 free_filename_nodes(&filenames
);
444 static void write_id_data_stmts(const statement_list_t
*stmts
)
446 const statement_t
*stmt
;
447 if (stmts
) LIST_FOR_EACH_ENTRY( stmt
, stmts
, const statement_t
, entry
)
449 if (stmt
->type
== STMT_TYPE
)
451 const type_t
*type
= stmt
->u
.type
;
452 if (type_get_type(type
) == TYPE_INTERFACE
)
455 if (!is_object(type
) && !is_attr(type
->attrs
, ATTR_DISPINTERFACE
))
457 uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
458 write_guid(idfile
, is_attr(type
->attrs
, ATTR_DISPINTERFACE
) ? "DIID" : "IID",
461 else if (type_get_type(type
) == TYPE_COCLASS
)
463 const UUID
*uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
464 write_guid(idfile
, "CLSID", type
->name
, uuid
);
467 else if (stmt
->type
== STMT_LIBRARY
)
469 const UUID
*uuid
= get_attrp(stmt
->u
.lib
->attrs
, ATTR_UUID
);
470 write_guid(idfile
, "LIBID", stmt
->u
.lib
->name
, uuid
);
471 write_id_data_stmts(stmt
->u
.lib
->stmts
);
476 void write_id_data(const statement_list_t
*stmts
)
478 if (!do_idfile
) return;
480 idfile
= fopen(idfile_name
, "w");
482 error("Could not open %s for output\n", idfile_name
);
486 fprintf(idfile
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
487 fprintf(idfile
, "from %s - Do not edit ***/\n\n", input_name
);
488 fprintf(idfile
, "#include <rpc.h>\n");
489 fprintf(idfile
, "#include <rpcndr.h>\n\n");
490 fprintf(idfile
, "#include <initguid.h>\n\n");
491 start_cplusplus_guard(idfile
);
493 write_id_data_stmts(stmts
);
495 fprintf(idfile
, "\n");
496 end_cplusplus_guard(idfile
);
501 int main(int argc
,char *argv
[])
506 char *output_name
= NULL
;
508 signal( SIGTERM
, exit_on_signal
);
509 signal( SIGINT
, exit_on_signal
);
511 signal( SIGHUP
, exit_on_signal
);
516 while((optc
= getopt_long_only(argc
, argv
, short_options
, long_options
, &opti
)) != EOF
) {
519 dlldata_name
= xstrdup(optarg
);
521 case DLLDATA_ONLY_OPTION
:
525 case LOCAL_STUBS_OPTION
:
527 local_stubs_name
= xstrdup(optarg
);
529 case OLDNAMES_OPTION
:
532 case PREFIX_ALL_OPTION
:
533 prefix_client
= xstrdup(optarg
);
534 prefix_server
= xstrdup(optarg
);
536 case PREFIX_CLIENT_OPTION
:
537 prefix_client
= xstrdup(optarg
);
539 case PREFIX_SERVER_OPTION
:
540 prefix_server
= xstrdup(optarg
);
543 fprintf(stderr
, "%s", usage
);
553 case WIN32_ALIGN_OPTION
:
554 win32_packing
= strtol(optarg
, NULL
, 0);
555 if(win32_packing
!= 2 && win32_packing
!= 4 && win32_packing
!= 8)
556 error("Packing must be one of 2, 4 or 8\n");
558 case WIN64_ALIGN_OPTION
:
559 win64_packing
= strtol(optarg
, NULL
, 0);
560 if(win64_packing
!= 2 && win64_packing
!= 4 && win64_packing
!= 8)
561 error("Packing must be one of 2, 4 or 8\n");
563 case APP_CONFIG_OPTION
:
564 /* widl does not distinguish between app_mode and default mode,
565 but we ignore this option for midl compatibility */
568 set_target( optarg
);
575 client_name
= xstrdup(optarg
);
578 debuglevel
= strtol(optarg
, NULL
, 0);
581 wpp_add_cmdline_define(optarg
);
592 header_name
= xstrdup(optarg
);
595 wpp_add_include_path(optarg
);
598 if (!strcmp( optarg
, "32" )) typelib_kind
= SYS_WIN32
;
599 else if (!strcmp( optarg
, "64" )) typelib_kind
= SYS_WIN64
;
600 else error( "Invalid -m argument '%s'\n", optarg
);
606 output_name
= xstrdup(optarg
);
609 if (!strcmp( optarg
, "s" )) stub_mode
= MODE_Os
;
610 else if (!strcmp( optarg
, "i" )) stub_mode
= MODE_Oi
;
611 else if (!strcmp( optarg
, "ic" )) stub_mode
= MODE_Oif
;
612 else if (!strcmp( optarg
, "if" )) stub_mode
= MODE_Oif
;
613 else if (!strcmp( optarg
, "icf" )) stub_mode
= MODE_Oif
;
614 else error( "Invalid argument '-O%s'\n", optarg
);
621 proxy_name
= xstrdup(optarg
);
632 server_name
= xstrdup(optarg
);
639 typelib_name
= xstrdup(optarg
);
646 idfile_name
= xstrdup(optarg
);
649 printf("%s", version_string
);
655 fprintf(stderr
, "%s", usage
);
660 #ifdef DEFAULT_INCLUDE_DIR
661 wpp_add_include_path(DEFAULT_INCLUDE_DIR
);
665 set_everything(TRUE
);
668 if (!output_name
) output_name
= dup_basename(input_name
, ".idl");
670 if (!do_everything
&&
671 do_header
+ do_typelib
+ do_proxies
+ do_client
+
672 do_server
+ do_regscript
+ do_idfile
+ do_dlldata
== 1)
674 if (do_header
) header_name
= output_name
;
675 else if (do_typelib
) typelib_name
= output_name
;
676 else if (do_proxies
) proxy_name
= output_name
;
677 else if (do_client
) client_name
= output_name
;
678 else if (do_server
) server_name
= output_name
;
679 else if (do_regscript
) regscript_name
= output_name
;
680 else if (do_idfile
) idfile_name
= output_name
;
681 else if (do_dlldata
) dlldata_name
= output_name
;
684 if (!dlldata_name
&& do_dlldata
)
685 dlldata_name
= xstrdup("dlldata.c");
688 if (do_dlldata
&& !do_everything
) {
689 struct list filenames
= LIST_INIT(filenames
);
690 for ( ; optind
< argc
; ++optind
)
691 add_filename_node(&filenames
, argv
[optind
]);
693 write_dlldata_list(&filenames
, 0 /* FIXME */ );
694 free_filename_nodes(&filenames
);
697 else if (optind
!= argc
- 1) {
698 fprintf(stderr
, "%s", usage
);
702 input_name
= xstrdup(argv
[optind
]);
705 fprintf(stderr
, "%s", usage
);
711 setbuf(stdout
, NULL
);
712 setbuf(stderr
, NULL
);
715 parser_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
716 yy_flex_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
718 wpp_set_debug( (debuglevel
& DEBUGLEVEL_PPLEX
) != 0,
719 (debuglevel
& DEBUGLEVEL_PPTRACE
) != 0,
720 (debuglevel
& DEBUGLEVEL_PPMSG
) != 0 );
723 header_name
= dup_basename(input_name
, ".idl");
724 strcat(header_name
, ".h");
727 if (!typelib_name
&& do_typelib
) {
728 typelib_name
= dup_basename(input_name
, ".idl");
729 strcat(typelib_name
, ".tlb");
732 if (!proxy_name
&& do_proxies
) {
733 proxy_name
= dup_basename(input_name
, ".idl");
734 strcat(proxy_name
, "_p.c");
737 if (!client_name
&& do_client
) {
738 client_name
= dup_basename(input_name
, ".idl");
739 strcat(client_name
, "_c.c");
742 if (!server_name
&& do_server
) {
743 server_name
= dup_basename(input_name
, ".idl");
744 strcat(server_name
, "_s.c");
747 if (!regscript_name
&& do_regscript
) {
748 regscript_name
= dup_basename(input_name
, ".idl");
749 strcat(regscript_name
, "_r.rgs");
752 if (!idfile_name
&& do_idfile
) {
753 idfile_name
= dup_basename(input_name
, ".idl");
754 strcat(idfile_name
, "_i.c");
757 if (do_proxies
) proxy_token
= dup_basename_token(proxy_name
,"_p.c");
758 if (do_client
) client_token
= dup_basename_token(client_name
,"_c.c");
759 if (do_server
) server_token
= dup_basename_token(server_name
,"_s.c");
760 if (do_regscript
) regscript_token
= dup_basename_token(regscript_name
,"_r.rgs");
762 add_widl_version_define();
763 wpp_add_define("_WIN32", NULL
);
768 chat("Starting preprocess\n");
770 if (!preprocess_only
)
774 char *name
= xmalloc( strlen(header_name
) + 8 );
776 strcpy( name
, header_name
);
777 strcat( name
, ".XXXXXX" );
779 if ((fd
= mkstemps( name
, 0 )) == -1)
780 error("Could not generate a temp name from %s\n", name
);
783 if (!(output
= fdopen(fd
, "wt")))
784 error("Could not open fd %s for writing\n", name
);
786 ret
= wpp_parse( input_name
, output
);
791 ret
= wpp_parse( input_name
, stdout
);
795 if(preprocess_only
) exit(0);
796 if(!(parser_in
= fopen(temp_name
, "r"))) {
797 fprintf(stderr
, "Could not open %s for input\n", temp_name
);
802 if(!(parser_in
= fopen(input_name
, "r"))) {
803 fprintf(stderr
, "Could not open %s for input\n", input_name
);
808 header_token
= make_token(header_name
);
811 ret
= parser_parse();
819 /* Everything has been done successfully, don't delete any files. */
820 set_everything(FALSE
);
821 local_stubs_name
= NULL
;
826 static void rm_tempfile(void)
833 if (local_stubs_name
)
834 unlink(local_stubs_name
);
840 unlink(regscript_name
);
846 unlink(typelib_name
);