4 * Copyright 2000 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
28 #include "wine/library.h"
31 #include "wine/debug.h"
39 void (*func
)( const char *arg
);
43 const char *argv0
; /* the original argv[0] */
44 const char *full_argv0
; /* the full path of argv[0] (if known) */
46 static char *inherit_str
; /* options to pass to child processes */
48 static void out_of_memory(void) WINE_NORETURN
;
49 static void out_of_memory(void)
51 MESSAGE( "Virtual memory exhausted\n" );
55 static void do_debugmsg( const char *arg
);
56 static void do_help( const char *arg
);
57 static void do_version( const char *arg
);
59 static const struct option_descr option_table
[] =
61 { "debugmsg", 0, 1, 1, do_debugmsg
,
62 "--debugmsg name Turn debugging-messages on or off" },
63 { "dll", 0, 1, 1, MODULE_AddLoadOrderOption
,
64 "--dll name Enable or disable built-in DLLs" },
65 { "help", 'h', 0, 0, do_help
,
66 "--help,-h Show this help message" },
67 { "version", 'v', 0, 0, do_version
,
68 "--version,-v Display the Wine version" },
69 { NULL
, 0, 0, 0, NULL
, NULL
} /* terminator */
73 static void do_help( const char *arg
)
78 static void do_version( const char *arg
)
80 MESSAGE( "%s\n", PACKAGE_STRING
);
84 static void do_debugmsg( const char *arg
)
86 static const char * const debug_class_names
[__WINE_DBCL_COUNT
] = { "fixme", "err", "warn", "trace" };
88 char *opt
, *options
= strdup(arg
);
90 /* defined in relay32/relay386.c */
91 extern char **debug_relay_includelist
;
92 extern char **debug_relay_excludelist
;
93 /* defined in relay32/snoop.c */
94 extern char **debug_snoop_includelist
;
95 extern char **debug_snoop_excludelist
;
97 if (!(opt
= strtok( options
, "," ))) goto error
;
100 unsigned char set
= 0, clear
= 0;
101 char *p
= strchr( opt
, '+' );
102 if (!p
) p
= strchr( opt
, '-' );
103 if (!p
|| !p
[1]) goto error
;
106 for (i
= 0; i
< __WINE_DBCL_COUNT
; i
++)
108 int len
= strlen(debug_class_names
[i
]);
109 if (len
!= (p
- opt
)) continue;
110 if (!memcmp( opt
, debug_class_names
[i
], len
)) /* found it */
112 if (*p
== '+') set
|= 1 << i
;
113 else clear
|= 1 << i
;
117 if (i
== __WINE_DBCL_COUNT
) goto error
; /* class name not found */
121 if (*p
== '+') set
= ~0;
123 if (!strncasecmp(p
+1, "relay=", 6) ||
124 !strncasecmp(p
+1, "snoop=", 6))
127 char *s
, *s2
, ***output
, c
;
135 output
= (*p
== '+') ?
137 &debug_relay_includelist
:
138 &debug_snoop_includelist
) :
140 &debug_relay_excludelist
:
141 &debug_snoop_excludelist
);
143 /* if there are n ':', there are n+1 modules, and we need
144 n+2 slots, last one being for the sentinel (NULL) */
146 while((s
= strchr(s
, ':'))) i
++, s
++;
147 *output
= malloc(sizeof(char **) * i
);
150 while((s2
= strchr(s
, ':'))) {
153 *((*output
)+i
) = _strupr(strdup(s
));
160 *((*output
)+i
) = _strupr(strdup(s
));
162 *((*output
)+i
+1) = NULL
;
167 if (!strcmp( p
, "all" )) p
= ""; /* empty string means all */
168 wine_dbg_add_option( p
, set
, clear
);
169 opt
= strtok( NULL
, "," );
176 MESSAGE("wine: Syntax: --debugmsg [class]+xxx,... or "
177 "-debugmsg [class]-xxx,...\n");
178 MESSAGE("Example: --debugmsg +all,warn-heap\n"
179 " turn on all messages except warning heap messages\n");
180 MESSAGE("Available message classes:\n");
181 for( i
= 0; i
< __WINE_DBCL_COUNT
; i
++) MESSAGE( "%-9s", debug_class_names
[i
] );
187 static void remove_options( char *argv
[], int pos
, int count
, int inherit
)
192 for (i
= 0; i
< count
; i
++) len
+= strlen(argv
[pos
+i
]) + 1;
195 if (!(inherit_str
= realloc( inherit_str
, strlen(inherit_str
) + 1 + len
)))
197 strcat( inherit_str
, " " );
201 if (!(inherit_str
= malloc( len
))) out_of_memory();
204 for (i
= 0; i
< count
; i
++)
206 strcat( inherit_str
, argv
[pos
+i
] );
207 if (i
< count
-1) strcat( inherit_str
, " " );
210 while ((argv
[pos
] = argv
[pos
+count
])) pos
++;
213 /* parse options from the argv array and remove all the recognized ones */
214 static void parse_options( char *argv
[] )
216 const struct option_descr
*opt
;
219 for (i
= 0; argv
[i
]; i
++)
221 const char *equalarg
= NULL
;
223 if (*p
++ != '-') continue; /* not an option */
224 if (*p
&& !p
[1]) /* short name */
226 if (*p
== '-') break; /* "--" option */
227 for (opt
= option_table
; opt
->longname
; opt
++) if (opt
->shortname
== *p
) break;
231 const char *equal
= strchr (p
, '=');
233 /* check for the long name */
234 for (opt
= option_table
; opt
->longname
; opt
++) {
236 if (!strcmp( p
, opt
->longname
)) break;
241 strlen (opt
->longname
) == equal
- p
&&
242 !strncmp (p
, opt
->longname
, equal
- p
)) {
243 equalarg
= equal
+ 1;
248 if (!opt
->longname
) continue;
252 opt
->func( equalarg
);
253 remove_options( argv
, i
, 1, opt
->inherit
);
255 else if (opt
->has_arg
&& argv
[i
+1])
257 opt
->func( argv
[i
+1] );
258 remove_options( argv
, i
, 2, opt
->inherit
);
263 remove_options( argv
, i
, 1, opt
->inherit
);
269 /* inherit options from WINEOPTIONS variable */
270 static void inherit_options( char *buffer
)
275 char *p
= strtok( buffer
, " \t" );
276 for (n
= 0; n
< sizeof(argv
)/sizeof(argv
[0])-1 && p
; n
++)
279 p
= strtok( NULL
, " \t" );
282 parse_options( argv
);
283 if (argv
[0]) /* an option remains */
285 MESSAGE( "Unknown option '%s' in WINEOPTIONS variable\n\n", argv
[0] );
290 /***********************************************************************
293 void OPTIONS_Usage(void)
295 const struct option_descr
*opt
;
296 MESSAGE( "%s\n\n", PACKAGE_STRING
);
297 MESSAGE( "Usage: %s [options] [--] program_name [arguments]\n", argv0
);
298 MESSAGE("The -- has to be used if you specify arguments (of the program)\n\n");
299 MESSAGE( "Options:\n" );
300 for (opt
= option_table
; opt
->longname
; opt
++) MESSAGE( " %s\n", opt
->usage
);
304 /***********************************************************************
305 * OPTIONS_ParseOptions
307 void OPTIONS_ParseOptions( char *argv
[] )
312 if (GetEnvironmentVariableA( "WINEOPTIONS", buffer
, sizeof(buffer
) ) && buffer
[0])
313 inherit_options( buffer
);
316 parse_options( argv
+ 1 );
318 SetEnvironmentVariableA( "WINEOPTIONS", inherit_str
);
320 /* check if any option remains */
321 for (i
= 1; argv
[i
]; i
++)
323 if (!strcmp( argv
[i
], "--" ))
325 remove_options( argv
, i
, 1, 0 );
328 if (argv
[i
][0] == '-')
330 MESSAGE( "Unknown option '%s'\n\n", argv
[i
] );