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 = alignment of structures */
48 /* A = ACF input filename */
49 /* J = do not search standard include path */
50 /* O = generate interpreted stubs */
51 /* w = select win16/win32 output (?) */
53 static const char usage
[] =
54 "Usage: widl [options...] infile.idl\n"
55 " or: widl [options...] --dlldata-only name1 [name2...]\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 " -N Do not preprocess input\n"
67 " --oldnames Use old naming conventions\n"
68 " -p Generate proxy\n"
69 " -P file Name of proxy file (default is infile_p.c)\n"
70 " --prefix-all=p Prefix names of client stubs / server functions with 'p'\n"
71 " --prefix-client=p Prefix names of client stubs with 'p'\n"
72 " --prefix-server=p Prefix names of server functions with 'p'\n"
73 " -s Generate server stub\n"
74 " -S file Name of server stub file (default is infile_s.c)\n"
75 " -t Generate typelib\n"
76 " -T file Name of typelib file (default is infile.tlb)\n"
77 " -u Generate interface identifiers file\n"
78 " -U file Name of interface identifiers file (default is infile_i.c)\n"
79 " -V Print version and exit\n"
80 " -W Enable pedantic warnings\n"
81 " --win32 Only generate 32-bit code\n"
82 " --win64 Only generate 64-bit code\n"
83 "Debug level 'n' is a bitmask with following meaning:\n"
84 " * 0x01 Tell which resource is parsed (verbose mode)\n"
85 " * 0x02 Dump internal structures\n"
86 " * 0x04 Create a parser trace (yydebug=1)\n"
87 " * 0x08 Preprocessor messages\n"
88 " * 0x10 Preprocessor lex messages\n"
89 " * 0x20 Preprocessor yacc trace\n"
92 static const char version_string
[] = "Wine IDL Compiler version " PACKAGE_VERSION
"\n"
93 "Copyright 2002 Ove Kaaven\n";
96 int debuglevel
= DEBUGLEVEL_NONE
;
97 int parser_debug
, yy_flex_debug
;
100 int do_everything
= 1;
101 int preprocess_only
= 0;
109 int no_preprocess
= 0;
116 char *local_stubs_name
;
129 const char *prefix_client
= "";
130 const char *prefix_server
= "";
137 size_t pointer_size
= 0;
142 OLDNAMES_OPTION
= CHAR_MAX
+ 1,
147 PREFIX_CLIENT_OPTION
,
148 PREFIX_SERVER_OPTION
,
153 static const char short_options
[] =
154 "cC:d:D:EhH:I:NpP:sS:tT:uU:VW";
155 static const struct option long_options
[] = {
156 { "dlldata", 1, 0, DLLDATA_OPTION
},
157 { "dlldata-only", 0, 0, DLLDATA_ONLY_OPTION
},
158 { "local-stubs", 1, 0, LOCAL_STUBS_OPTION
},
159 { "oldnames", 0, 0, OLDNAMES_OPTION
},
160 { "prefix-all", 1, 0, PREFIX_ALL_OPTION
},
161 { "prefix-client", 1, 0, PREFIX_CLIENT_OPTION
},
162 { "prefix-server", 1, 0, PREFIX_SERVER_OPTION
},
163 { "win32", 0, 0, WIN32_OPTION
},
164 { "win64", 0, 0, WIN64_OPTION
},
168 static void rm_tempfile(void);
170 static char *make_token(const char *name
)
176 slash
= strrchr(name
, '/');
178 slash
= strrchr(name
, '\\');
180 if (slash
) name
= slash
+ 1;
182 token
= xstrdup(name
);
183 for (i
=0; token
[i
]; i
++) {
184 if (!isalnum(token
[i
])) token
[i
] = '_';
185 else token
[i
] = toupper(token
[i
]);
190 /* duplicate a basename into a valid C token */
191 static char *dup_basename_token(const char *name
, const char *ext
)
193 char *p
, *ret
= dup_basename( name
, ext
);
194 /* map invalid characters to '_' */
195 for (p
= ret
; *p
; p
++) if (!isalnum(*p
)) *p
= '_';
199 /* clean things up when aborting on a signal */
200 static void exit_on_signal( int sig
)
202 exit(1); /* this will call the atexit functions */
205 static void set_everything(int x
)
216 void start_cplusplus_guard(FILE *fp
)
218 fprintf(fp
, "#ifdef __cplusplus\n");
219 fprintf(fp
, "extern \"C\" {\n");
220 fprintf(fp
, "#endif\n\n");
223 void end_cplusplus_guard(FILE *fp
)
225 fprintf(fp
, "#ifdef __cplusplus\n");
227 fprintf(fp
, "#endif\n\n");
236 static void add_filename_node(struct list
*list
, const char *name
)
238 filename_node_t
*node
= xmalloc(sizeof *node
);
239 node
->filename
= dup_basename( name
, ".idl" );
240 list_add_tail(list
, &node
->link
);
243 static void free_filename_nodes(struct list
*list
)
245 filename_node_t
*node
, *next
;
246 LIST_FOR_EACH_ENTRY_SAFE(node
, next
, list
, filename_node_t
, link
) {
247 list_remove(&node
->link
);
248 free(node
->filename
);
253 static void write_dlldata_list(struct list
*filenames
)
256 filename_node_t
*node
;
258 dlldata
= fopen(dlldata_name
, "w");
260 error("couldn't open %s: %s\n", dlldata_name
, strerror(errno
));
262 fprintf(dlldata
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
263 fprintf(dlldata
, "- Do not edit ***/\n\n");
264 fprintf(dlldata
, "#include <objbase.h>\n");
265 fprintf(dlldata
, "#include <rpcproxy.h>\n\n");
266 start_cplusplus_guard(dlldata
);
268 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
269 fprintf(dlldata
, "EXTERN_PROXY_FILE(%s)\n", node
->filename
);
271 fprintf(dlldata
, "\nPROXYFILE_LIST_START\n");
272 fprintf(dlldata
, "/* Start of list */\n");
273 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
274 fprintf(dlldata
, " REFERENCE_PROXY_FILE(%s),\n", node
->filename
);
275 fprintf(dlldata
, "/* End of list */\n");
276 fprintf(dlldata
, "PROXYFILE_LIST_END\n\n");
278 fprintf(dlldata
, "DLLDATA_ROUTINES(aProxyFileList, GET_DLL_CLSID)\n\n");
279 end_cplusplus_guard(dlldata
);
283 static char *eat_space(char *s
)
285 while (isspace((unsigned char) *s
))
290 void write_dlldata(const statement_list_t
*stmts
)
292 struct list filenames
= LIST_INIT(filenames
);
293 filename_node_t
*node
;
296 if (!do_dlldata
|| !need_proxy_file(stmts
))
299 dlldata
= fopen(dlldata_name
, "r");
301 static char marker
[] = "REFERENCE_PROXY_FILE";
305 while (widl_getline(&line
, &len
, dlldata
)) {
307 start
= eat_space(line
);
308 if (strncmp(start
, marker
, sizeof marker
- 1) == 0) {
309 start
= eat_space(start
+ sizeof marker
- 1);
312 end
= start
= eat_space(start
+ 1);
313 while (*end
&& *end
!= ')')
317 while (isspace((unsigned char) end
[-1]))
321 add_filename_node(&filenames
, start
);
326 error("couldn't read from %s: %s\n", dlldata_name
, strerror(errno
));
332 LIST_FOR_EACH_ENTRY(node
, &filenames
, filename_node_t
, link
)
333 if (strcmp(proxy_token
, node
->filename
) == 0) {
334 /* We're already in the list, no need to regenerate this file. */
335 free_filename_nodes(&filenames
);
339 add_filename_node(&filenames
, proxy_token
);
340 write_dlldata_list(&filenames
);
341 free_filename_nodes(&filenames
);
344 static void write_id_data_stmts(const statement_list_t
*stmts
)
346 const statement_t
*stmt
;
347 if (stmts
) LIST_FOR_EACH_ENTRY( stmt
, stmts
, const statement_t
, entry
)
349 if (stmt
->type
== STMT_TYPE
)
351 const type_t
*type
= stmt
->u
.type
;
352 if (type
->type
== RPC_FC_IP
)
355 if (!is_object(type
->attrs
) && !is_attr(type
->attrs
, ATTR_DISPINTERFACE
))
357 uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
358 write_guid(idfile
, is_attr(type
->attrs
, ATTR_DISPINTERFACE
) ? "DIID" : "IID",
361 else if (type
->type
== RPC_FC_COCLASS
)
363 const UUID
*uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
364 write_guid(idfile
, "CLSID", type
->name
, uuid
);
367 else if (stmt
->type
== STMT_LIBRARY
)
369 const UUID
*uuid
= get_attrp(stmt
->u
.lib
->attrs
, ATTR_UUID
);
370 write_guid(idfile
, "LIBID", stmt
->u
.lib
->name
, uuid
);
371 write_id_data_stmts(stmt
->u
.lib
->stmts
);
376 void write_id_data(const statement_list_t
*stmts
)
378 if (!do_idfile
) return;
380 idfile_token
= make_token(idfile_name
);
382 idfile
= fopen(idfile_name
, "w");
384 error("Could not open %s for output\n", idfile_name
);
388 fprintf(idfile
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
389 fprintf(idfile
, "from %s - Do not edit ***/\n\n", input_name
);
390 fprintf(idfile
, "#include <rpc.h>\n");
391 fprintf(idfile
, "#include <rpcndr.h>\n\n");
392 fprintf(idfile
, "#include <initguid.h>\n\n");
393 start_cplusplus_guard(idfile
);
395 write_id_data_stmts(stmts
);
397 fprintf(idfile
, "\n");
398 end_cplusplus_guard(idfile
);
403 int main(int argc
,char *argv
[])
411 signal( SIGTERM
, exit_on_signal
);
412 signal( SIGINT
, exit_on_signal
);
414 signal( SIGHUP
, exit_on_signal
);
419 while((optc
= getopt_long(argc
, argv
, short_options
, long_options
, &opti
)) != EOF
) {
422 dlldata_name
= xstrdup(optarg
);
424 case DLLDATA_ONLY_OPTION
:
428 case LOCAL_STUBS_OPTION
:
430 local_stubs_name
= xstrdup(optarg
);
432 case OLDNAMES_OPTION
:
435 case PREFIX_ALL_OPTION
:
436 prefix_client
= xstrdup(optarg
);
437 prefix_server
= xstrdup(optarg
);
439 case PREFIX_CLIENT_OPTION
:
440 prefix_client
= xstrdup(optarg
);
442 case PREFIX_SERVER_OPTION
:
443 prefix_server
= xstrdup(optarg
);
458 client_name
= xstrdup(optarg
);
461 debuglevel
= strtol(optarg
, NULL
, 0);
464 wpp_add_cmdline_define(optarg
);
475 header_name
= xstrdup(optarg
);
478 wpp_add_include_path(optarg
);
488 proxy_name
= xstrdup(optarg
);
495 server_name
= xstrdup(optarg
);
502 typelib_name
= xstrdup(optarg
);
509 idfile_name
= xstrdup(optarg
);
512 printf("%s", version_string
);
518 fprintf(stderr
, "%s", usage
);
524 set_everything(TRUE
);
527 if (!dlldata_name
&& do_dlldata
)
528 dlldata_name
= xstrdup("dlldata.c");
531 if (do_dlldata
&& !do_everything
) {
532 struct list filenames
= LIST_INIT(filenames
);
533 for ( ; optind
< argc
; ++optind
)
534 add_filename_node(&filenames
, argv
[optind
]);
536 write_dlldata_list(&filenames
);
537 free_filename_nodes(&filenames
);
540 else if (optind
!= argc
- 1) {
541 fprintf(stderr
, "%s", usage
);
545 input_name
= xstrdup(argv
[optind
]);
548 fprintf(stderr
, "%s", usage
);
558 parser_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
559 yy_flex_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
561 wpp_set_debug( (debuglevel
& DEBUGLEVEL_PPLEX
) != 0,
562 (debuglevel
& DEBUGLEVEL_PPTRACE
) != 0,
563 (debuglevel
& DEBUGLEVEL_PPMSG
) != 0 );
566 header_name
= dup_basename(input_name
, ".idl");
567 strcat(header_name
, ".h");
570 if (!typelib_name
&& do_typelib
) {
571 typelib_name
= dup_basename(input_name
, ".idl");
572 strcat(typelib_name
, ".tlb");
575 if (!proxy_name
&& do_proxies
) {
576 proxy_name
= dup_basename(input_name
, ".idl");
577 strcat(proxy_name
, "_p.c");
580 if (!client_name
&& do_client
) {
581 client_name
= dup_basename(input_name
, ".idl");
582 strcat(client_name
, "_c.c");
585 if (!server_name
&& do_server
) {
586 server_name
= dup_basename(input_name
, ".idl");
587 strcat(server_name
, "_s.c");
590 if (!idfile_name
&& do_idfile
) {
591 idfile_name
= dup_basename(input_name
, ".idl");
592 strcat(idfile_name
, "_i.c");
595 if (do_proxies
) proxy_token
= dup_basename_token(proxy_name
,"_p.c");
596 if (do_client
) client_token
= dup_basename_token(client_name
,"_c.c");
597 if (do_server
) server_token
= dup_basename_token(server_name
,"_s.c");
599 wpp_add_cmdline_define("__WIDL__");
604 chat("Starting preprocess\n");
606 if (!preprocess_only
)
608 ret
= wpp_parse_temp( input_name
, header_name
, &temp_name
);
612 ret
= wpp_parse( input_name
, stdout
);
616 if(preprocess_only
) exit(0);
617 if(!(parser_in
= fopen(temp_name
, "r"))) {
618 fprintf(stderr
, "Could not open %s for input\n", temp_name
);
623 if(!(parser_in
= fopen(input_name
, "r"))) {
624 fprintf(stderr
, "Could not open %s for input\n", input_name
);
629 header_token
= make_token(header_name
);
632 ret
= parser_parse();
640 /* Everything has been done successfully, don't delete any files. */
641 set_everything(FALSE
);
642 local_stubs_name
= NULL
;
647 static void rm_tempfile(void)
654 if (local_stubs_name
)
655 unlink(local_stubs_name
);
665 unlink(typelib_name
);