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 "Debug level 'n' is a bitmask with following meaning:\n"
82 " * 0x01 Tell which resource is parsed (verbose mode)\n"
83 " * 0x02 Dump internal structures\n"
84 " * 0x04 Create a parser trace (yydebug=1)\n"
85 " * 0x08 Preprocessor messages\n"
86 " * 0x10 Preprocessor lex messages\n"
87 " * 0x20 Preprocessor yacc trace\n"
90 static const char version_string
[] = "Wine IDL Compiler version " PACKAGE_VERSION
"\n"
91 "Copyright 2002 Ove Kaaven\n";
94 int debuglevel
= DEBUGLEVEL_NONE
;
95 int parser_debug
, yy_flex_debug
;
98 int do_everything
= 1;
99 int preprocess_only
= 0;
107 int no_preprocess
= 0;
112 char *local_stubs_name
;
125 const char *prefix_client
= "";
126 const char *prefix_server
= "";
138 OLDNAMES_OPTION
= CHAR_MAX
+ 1,
143 PREFIX_CLIENT_OPTION
,
147 static const char short_options
[] =
148 "cC:d:D:EhH:I:NpP:sS:tT:uU:VW";
149 static const struct option long_options
[] = {
150 { "dlldata", 1, 0, DLLDATA_OPTION
},
151 { "dlldata-only", 0, 0, DLLDATA_ONLY_OPTION
},
152 { "local-stubs", 1, 0, LOCAL_STUBS_OPTION
},
153 { "oldnames", 0, 0, OLDNAMES_OPTION
},
154 { "prefix-all", 1, 0, PREFIX_ALL_OPTION
},
155 { "prefix-client", 1, 0, PREFIX_CLIENT_OPTION
},
156 { "prefix-server", 1, 0, PREFIX_SERVER_OPTION
},
160 static void rm_tempfile(void);
162 static char *make_token(const char *name
)
168 slash
= strrchr(name
, '/');
170 slash
= strrchr(name
, '\\');
172 if (slash
) name
= slash
+ 1;
174 token
= xstrdup(name
);
175 for (i
=0; token
[i
]; i
++) {
176 if (!isalnum(token
[i
])) token
[i
] = '_';
177 else token
[i
] = toupper(token
[i
]);
182 /* duplicate a basename into a valid C token */
183 static char *dup_basename_token(const char *name
, const char *ext
)
185 char *p
, *ret
= dup_basename( name
, ext
);
186 /* map invalid characters to '_' */
187 for (p
= ret
; *p
; p
++) if (!isalnum(*p
)) *p
= '_';
191 /* clean things up when aborting on a signal */
192 static void exit_on_signal( int sig
)
194 exit(1); /* this will call the atexit functions */
197 static void set_everything(int x
)
208 static void start_cplusplus_guard(FILE *fp
)
210 fprintf(fp
, "#ifdef __cplusplus\n");
211 fprintf(fp
, "extern \"C\" {\n");
212 fprintf(fp
, "#endif\n\n");
215 static void end_cplusplus_guard(FILE *fp
)
217 fprintf(fp
, "#ifdef __cplusplus\n");
219 fprintf(fp
, "#endif\n\n");
228 static void add_filename_node(struct list
*list
, const char *name
)
230 filename_node_t
*node
= xmalloc(sizeof *node
);
231 node
->filename
= dup_basename( name
, ".idl" );
232 list_add_tail(list
, &node
->link
);
235 static void free_filename_nodes(struct list
*list
)
237 filename_node_t
*node
, *next
;
238 LIST_FOR_EACH_ENTRY_SAFE(node
, next
, list
, filename_node_t
, link
) {
239 list_remove(&node
->link
);
240 free(node
->filename
);
245 static void write_dlldata_list(struct list
*filenames
)
248 filename_node_t
*node
;
250 dlldata
= fopen(dlldata_name
, "w");
252 error("couldn't open %s: %s\n", dlldata_name
, strerror(errno
));
254 fprintf(dlldata
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
255 fprintf(dlldata
, "- Do not edit ***/\n\n");
256 fprintf(dlldata
, "#include <objbase.h>\n");
257 fprintf(dlldata
, "#include <rpcproxy.h>\n\n");
258 start_cplusplus_guard(dlldata
);
260 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
261 fprintf(dlldata
, "EXTERN_PROXY_FILE(%s)\n", node
->filename
);
263 fprintf(dlldata
, "\nPROXYFILE_LIST_START\n");
264 fprintf(dlldata
, "/* Start of list */\n");
265 LIST_FOR_EACH_ENTRY(node
, filenames
, filename_node_t
, link
)
266 fprintf(dlldata
, " REFERENCE_PROXY_FILE(%s),\n", node
->filename
);
267 fprintf(dlldata
, "/* End of list */\n");
268 fprintf(dlldata
, "PROXYFILE_LIST_END\n\n");
270 fprintf(dlldata
, "DLLDATA_ROUTINES(aProxyFileList, GET_DLL_CLSID)\n\n");
271 end_cplusplus_guard(dlldata
);
275 static char *eat_space(char *s
)
277 while (isspace((unsigned char) *s
))
282 void write_dlldata(const statement_list_t
*stmts
)
284 struct list filenames
= LIST_INIT(filenames
);
285 filename_node_t
*node
;
288 if (!do_dlldata
|| !need_proxy_file(stmts
))
291 dlldata
= fopen(dlldata_name
, "r");
293 static char marker
[] = "REFERENCE_PROXY_FILE";
297 while (widl_getline(&line
, &len
, dlldata
)) {
299 start
= eat_space(line
);
300 if (strncmp(start
, marker
, sizeof marker
- 1) == 0) {
301 start
= eat_space(start
+ sizeof marker
- 1);
304 end
= start
= eat_space(start
+ 1);
305 while (*end
&& *end
!= ')')
309 while (isspace((unsigned char) end
[-1]))
313 add_filename_node(&filenames
, start
);
318 error("couldn't read from %s: %s\n", dlldata_name
, strerror(errno
));
324 LIST_FOR_EACH_ENTRY(node
, &filenames
, filename_node_t
, link
)
325 if (strcmp(proxy_token
, node
->filename
) == 0) {
326 /* We're already in the list, no need to regenerate this file. */
327 free_filename_nodes(&filenames
);
331 add_filename_node(&filenames
, proxy_token
);
332 write_dlldata_list(&filenames
);
333 free_filename_nodes(&filenames
);
336 static void write_id_data_stmts(const statement_list_t
*stmts
)
338 const statement_t
*stmt
;
339 if (stmts
) LIST_FOR_EACH_ENTRY( stmt
, stmts
, const statement_t
, entry
)
341 if (stmt
->type
== STMT_TYPE
)
343 const type_t
*type
= stmt
->u
.type
;
344 if (type
->type
== RPC_FC_IP
)
347 if (!is_object(type
->attrs
) && !is_attr(type
->attrs
, ATTR_DISPINTERFACE
))
349 uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
350 write_guid(idfile
, is_attr(type
->attrs
, ATTR_DISPINTERFACE
) ? "DIID" : "IID",
353 else if (type
->type
== RPC_FC_COCLASS
)
355 const UUID
*uuid
= get_attrp(type
->attrs
, ATTR_UUID
);
356 write_guid(idfile
, "CLSID", type
->name
, uuid
);
359 else if (stmt
->type
== STMT_LIBRARY
)
361 const UUID
*uuid
= get_attrp(stmt
->u
.lib
->attrs
, ATTR_UUID
);
362 write_guid(idfile
, "LIBID", stmt
->u
.lib
->name
, uuid
);
363 write_id_data_stmts(stmt
->u
.lib
->stmts
);
368 void write_id_data(const statement_list_t
*stmts
)
370 if (!do_idfile
) return;
372 idfile_token
= make_token(idfile_name
);
374 idfile
= fopen(idfile_name
, "w");
376 error("Could not open %s for output\n", idfile_name
);
380 fprintf(idfile
, "/*** Autogenerated by WIDL %s ", PACKAGE_VERSION
);
381 fprintf(idfile
, "from %s - Do not edit ***/\n\n", input_name
);
382 fprintf(idfile
, "#include <rpc.h>\n");
383 fprintf(idfile
, "#include <rpcndr.h>\n\n");
384 fprintf(idfile
, "#include <initguid.h>\n\n");
385 start_cplusplus_guard(idfile
);
387 write_id_data_stmts(stmts
);
389 fprintf(idfile
, "\n");
390 end_cplusplus_guard(idfile
);
395 int main(int argc
,char *argv
[])
403 signal( SIGTERM
, exit_on_signal
);
404 signal( SIGINT
, exit_on_signal
);
406 signal( SIGHUP
, exit_on_signal
);
411 while((optc
= getopt_long(argc
, argv
, short_options
, long_options
, &opti
)) != EOF
) {
414 dlldata_name
= xstrdup(optarg
);
416 case DLLDATA_ONLY_OPTION
:
420 case LOCAL_STUBS_OPTION
:
422 local_stubs_name
= xstrdup(optarg
);
424 case OLDNAMES_OPTION
:
427 case PREFIX_ALL_OPTION
:
428 prefix_client
= xstrdup(optarg
);
429 prefix_server
= xstrdup(optarg
);
431 case PREFIX_CLIENT_OPTION
:
432 prefix_client
= xstrdup(optarg
);
434 case PREFIX_SERVER_OPTION
:
435 prefix_server
= xstrdup(optarg
);
442 client_name
= xstrdup(optarg
);
445 debuglevel
= strtol(optarg
, NULL
, 0);
448 wpp_add_cmdline_define(optarg
);
459 header_name
= xstrdup(optarg
);
462 wpp_add_include_path(optarg
);
472 proxy_name
= xstrdup(optarg
);
479 server_name
= xstrdup(optarg
);
486 typelib_name
= xstrdup(optarg
);
493 idfile_name
= xstrdup(optarg
);
496 printf("%s", version_string
);
502 fprintf(stderr
, "%s", usage
);
508 set_everything(TRUE
);
511 if (!dlldata_name
&& do_dlldata
)
512 dlldata_name
= xstrdup("dlldata.c");
515 if (do_dlldata
&& !do_everything
) {
516 struct list filenames
= LIST_INIT(filenames
);
517 for ( ; optind
< argc
; ++optind
)
518 add_filename_node(&filenames
, argv
[optind
]);
520 write_dlldata_list(&filenames
);
521 free_filename_nodes(&filenames
);
524 else if (optind
!= argc
- 1) {
525 fprintf(stderr
, "%s", usage
);
529 input_name
= xstrdup(argv
[optind
]);
532 fprintf(stderr
, "%s", usage
);
542 parser_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
543 yy_flex_debug
= debuglevel
& DEBUGLEVEL_TRACE
? 1 : 0;
545 wpp_set_debug( (debuglevel
& DEBUGLEVEL_PPLEX
) != 0,
546 (debuglevel
& DEBUGLEVEL_PPTRACE
) != 0,
547 (debuglevel
& DEBUGLEVEL_PPMSG
) != 0 );
550 header_name
= dup_basename(input_name
, ".idl");
551 strcat(header_name
, ".h");
554 if (!typelib_name
&& do_typelib
) {
555 typelib_name
= dup_basename(input_name
, ".idl");
556 strcat(typelib_name
, ".tlb");
559 if (!proxy_name
&& do_proxies
) {
560 proxy_name
= dup_basename(input_name
, ".idl");
561 strcat(proxy_name
, "_p.c");
564 if (!client_name
&& do_client
) {
565 client_name
= dup_basename(input_name
, ".idl");
566 strcat(client_name
, "_c.c");
569 if (!server_name
&& do_server
) {
570 server_name
= dup_basename(input_name
, ".idl");
571 strcat(server_name
, "_s.c");
574 if (!idfile_name
&& do_idfile
) {
575 idfile_name
= dup_basename(input_name
, ".idl");
576 strcat(idfile_name
, "_i.c");
579 if (do_proxies
) proxy_token
= dup_basename_token(proxy_name
,"_p.c");
580 if (do_client
) client_token
= dup_basename_token(client_name
,"_c.c");
581 if (do_server
) server_token
= dup_basename_token(server_name
,"_s.c");
583 wpp_add_cmdline_define("__WIDL__");
588 chat("Starting preprocess\n");
590 if (!preprocess_only
)
592 ret
= wpp_parse_temp( input_name
, header_name
, &temp_name
);
596 ret
= wpp_parse( input_name
, stdout
);
600 if(preprocess_only
) exit(0);
601 if(!(parser_in
= fopen(temp_name
, "r"))) {
602 fprintf(stderr
, "Could not open %s for input\n", temp_name
);
607 if(!(parser_in
= fopen(input_name
, "r"))) {
608 fprintf(stderr
, "Could not open %s for input\n", input_name
);
614 header_token
= make_token(header_name
);
616 if(!(header
= fopen(header_name
, "w"))) {
617 fprintf(stderr
, "Could not open %s for output\n", header_name
);
620 fprintf(header
, "/*** Autogenerated by WIDL %s from %s - Do not edit ***/\n", PACKAGE_VERSION
, input_name
);
621 fprintf(header
, "#include <rpc.h>\n" );
622 fprintf(header
, "#include <rpcndr.h>\n\n" );
623 fprintf(header
, "#ifndef __WIDL_%s\n", header_token
);
624 fprintf(header
, "#define __WIDL_%s\n", header_token
);
625 start_cplusplus_guard(header
);
628 if (local_stubs_name
) {
629 local_stubs
= fopen(local_stubs_name
, "w");
631 fprintf(stderr
, "Could not open %s for output\n", local_stubs_name
);
634 fprintf(local_stubs
, "/* call_as/local stubs for %s */\n\n", input_name
);
635 fprintf(local_stubs
, "#include <objbase.h>\n");
636 fprintf(local_stubs
, "#include \"%s\"\n\n", header_name
);
640 ret
= parser_parse();
643 fprintf(header
, "/* Begin additional prototypes for all interfaces */\n");
644 fprintf(header
, "\n");
646 write_generic_handle_routines();
647 write_context_handle_rundowns();
648 fprintf(header
, "\n");
649 fprintf(header
, "/* End additional prototypes */\n");
650 fprintf(header
, "\n");
651 end_cplusplus_guard(header
);
652 fprintf(header
, "#endif /* __WIDL_%s */\n", header_token
);
666 /* Everything has been done successfully, don't delete any files. */
667 set_everything(FALSE
);
668 local_stubs_name
= NULL
;
673 static void rm_tempfile(void)
680 if (local_stubs_name
)
681 unlink(local_stubs_name
);
691 unlink(typelib_name
);