/* * Option parsing * * Copyright 2000 Alexandre Julliard * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ #include "config.h" #include #include #include "winbase.h" #include "winnls.h" #include "winternl.h" #include "wine/library.h" #include "options.h" #include "module.h" #include "wine/debug.h" struct option_descr { const char *longname; char shortname; int has_arg; int inherit; void (*func)( const char *arg ); const char *usage; }; const char *argv0; /* the original argv[0] */ const char *full_argv0; /* the full path of argv[0] (if known) */ static char *inherit_str; /* options to pass to child processes */ static void DECLSPEC_NORETURN out_of_memory(void); static void out_of_memory(void) { MESSAGE( "Virtual memory exhausted\n" ); ExitProcess(1); } static void do_debugmsg( const char *arg ); static void do_help( const char *arg ); static void do_version( const char *arg ); static const struct option_descr option_table[] = { { "debugmsg", 0, 1, 1, do_debugmsg, "--debugmsg name Turn debugging-messages on or off" }, { "dll", 0, 1, 1, MODULE_AddLoadOrderOption, "--dll name Enable or disable built-in DLLs" }, { "help", 'h', 0, 0, do_help, "--help,-h Show this help message" }, { "version", 'v', 0, 0, do_version, "--version,-v Display the Wine version" }, { NULL, 0, 0, 0, NULL, NULL } /* terminator */ }; static void do_help( const char *arg ) { OPTIONS_Usage(); } static void do_version( const char *arg ) { MESSAGE( "%s\n", PACKAGE_STRING ); ExitProcess(0); } static void do_debugmsg( const char *arg ) { if (wine_dbg_parse_options( arg )) { MESSAGE("%s: Syntax: --debugmsg [class]+xxx,... or -debugmsg [class]-xxx,...\n", argv0); MESSAGE("Example: --debugmsg +all,warn-heap\n" " turn on all messages except warning heap messages\n"); MESSAGE("Available message classes: err, warn, fixme, trace\n\n"); ExitProcess(1); } } static void remove_options( char *argv[], int pos, int count, int inherit ) { if (inherit) { int i, len = 0; for (i = 0; i < count; i++) len += strlen(argv[pos+i]) + 1; if (inherit_str) { if (!(inherit_str = realloc( inherit_str, strlen(inherit_str) + 1 + len ))) out_of_memory(); strcat( inherit_str, " " ); } else { if (!(inherit_str = malloc( len ))) out_of_memory(); inherit_str[0] = 0; } for (i = 0; i < count; i++) { strcat( inherit_str, argv[pos+i] ); if (i < count-1) strcat( inherit_str, " " ); } } while ((argv[pos] = argv[pos+count])) pos++; } /* parse options from the argv array and remove all the recognized ones */ static void parse_options( char *argv[] ) { const struct option_descr *opt; int i; for (i = 0; argv[i]; i++) { const char *equalarg = NULL; char *p = argv[i]; if (*p++ != '-') continue; /* not an option */ if (*p && !p[1]) /* short name */ { if (*p == '-') break; /* "--" option */ for (opt = option_table; opt->longname; opt++) if (opt->shortname == *p) break; } else /* long name */ { const char *equal = strchr (p, '='); if (*p == '-') p++; /* check for the long name */ for (opt = option_table; opt->longname; opt++) { /* Plain --option */ if (!strcmp( p, opt->longname )) break; /* --option=value */ if (opt->has_arg && equal && strlen (opt->longname) == equal - p && !strncmp (p, opt->longname, equal - p)) { equalarg = equal + 1; break; } } } if (!opt->longname) continue; if (equalarg) { opt->func( equalarg ); remove_options( argv, i, 1, opt->inherit ); } else if (opt->has_arg && argv[i+1]) { opt->func( argv[i+1] ); remove_options( argv, i, 2, opt->inherit ); } else { opt->func( "" ); remove_options( argv, i, 1, opt->inherit ); } i--; } } /* inherit options from WINEOPTIONS variable */ static void inherit_options( char *buffer ) { char *argv[256]; unsigned int n; char *p = strtok( buffer, " \t" ); for (n = 0; n < sizeof(argv)/sizeof(argv[0])-1 && p; n++) { argv[n] = p; p = strtok( NULL, " \t" ); } argv[n] = NULL; parse_options( argv ); if (argv[0]) /* an option remains */ { MESSAGE( "Unknown option '%s' in WINEOPTIONS variable\n\n", argv[0] ); OPTIONS_Usage(); } } /*********************************************************************** * OPTIONS_Usage */ void OPTIONS_Usage(void) { const struct option_descr *opt; MESSAGE( "%s\n\n", PACKAGE_STRING ); MESSAGE( "Usage: %s [options] [--] program_name [arguments]\n", argv0 ); MESSAGE("The -- has to be used if you specify arguments (of the program)\n\n"); MESSAGE( "Options:\n" ); for (opt = option_table; opt->longname; opt++) MESSAGE( " %s\n", opt->usage ); ExitProcess(0); } /*********************************************************************** * OPTIONS_ParseOptions */ void OPTIONS_ParseOptions( char *argv[] ) { char buffer[1024]; int i; if (GetEnvironmentVariableA( "WINEOPTIONS", buffer, sizeof(buffer) ) && buffer[0]) inherit_options( buffer ); if (!argv) return; parse_options( argv + 1 ); SetEnvironmentVariableA( "WINEOPTIONS", inherit_str ); /* check if any option remains */ for (i = 1; argv[i]; i++) { if (!strcmp( argv[i], "--" )) { remove_options( argv, i, 1, 0 ); break; } if (argv[i][0] == '-') { MESSAGE( "Unknown option '%s'\n\n", argv[i] ); OPTIONS_Usage(); } } }