main.c 20.1 KB
Newer Older
1
/* GIMP - The GNU Image Manipulation Program
Elliot Lee's avatar
Elliot Lee committed
2 3
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
4
 * This program is free software: you can redistribute it and/or modify
Elliot Lee's avatar
Elliot Lee committed
5
 * it under the terms of the GNU General Public License as published by
6
 * the Free Software Foundation; either version 3 of the License, or
Elliot Lee's avatar
Elliot Lee committed
7 8 9 10 11 12 13 14
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
15
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
Elliot Lee's avatar
Elliot Lee committed
16
 */
Sven Neumann's avatar
Sven Neumann committed
17

Elliot Lee's avatar
Elliot Lee committed
18
#include "config.h"
Tor Lillqvist's avatar
Tor Lillqvist committed
19

Elliot Lee's avatar
Elliot Lee committed
20 21 22
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
Sven Neumann's avatar
Sven Neumann committed
23

24
#ifdef HAVE_UNISTD_H
Elliot Lee's avatar
Elliot Lee committed
25
#include <unistd.h>
26 27
#endif

28 29 30 31
#ifdef __GLIBC__
#include <malloc.h>
#endif

32 33
#include <locale.h>

34
#include <gio/gio.h>
Sven Neumann's avatar
Sven Neumann committed
35

36 37 38 39
#ifdef G_OS_WIN32
#include <io.h> /* get_osfhandle */
#endif

40 41 42 43
#ifndef GIMP_CONSOLE_COMPILATION
#include <gdk/gdk.h>
#endif

44 45
#include <babl/babl.h>

46
#include "libgimpbase/gimpbase.h"
Manish Singh's avatar
Manish Singh committed
47

48
#include "pdb/pdb-types.h"
49

50 51 52
#include "config/gimpconfig-dump.h"

#include "core/gimp.h"
Sven Neumann's avatar
Sven Neumann committed
53

54 55 56 57
#include "pdb/gimppdb.h"
#include "pdb/gimpprocedure.h"
#include "pdb/internal-procs.h"

58
#include "about.h"
Sven Neumann's avatar
Sven Neumann committed
59
#include "app.h"
60
#include "sanity.h"
61
#include "signals.h"
62
#include "unique.h"
63
#include "units.h"
64
#include "version.h"
Elliot Lee's avatar
Elliot Lee committed
65

Sven Neumann's avatar
Sven Neumann committed
66
#ifdef G_OS_WIN32
Tor Lillqvist's avatar
Tor Lillqvist committed
67 68 69 70
/* To get PROCESS_DEP_* defined we need _WIN32_WINNT at 0x0601. We still
 * use the API optionally only if present, though.
 */
#define _WIN32_WINNT 0x0601
Sven Neumann's avatar
Sven Neumann committed
71
#include <windows.h>
72
#include <conio.h>
Sven Neumann's avatar
Sven Neumann committed
73 74
#endif

75
#include "gimp-log.h"
76
#include "gimp-intl.h"
77

78

79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94
static gboolean  gimp_option_fatal_warnings   (const gchar  *option_name,
                                               const gchar  *value,
                                               gpointer      data,
                                               GError      **error);
static gboolean  gimp_option_stack_trace_mode (const gchar  *option_name,
                                               const gchar  *value,
                                               gpointer      data,
                                               GError      **error);
static gboolean  gimp_option_pdb_compat_mode  (const gchar  *option_name,
                                               const gchar  *value,
                                               gpointer      data,
                                               GError      **error);
static gboolean  gimp_option_dump_gimprc      (const gchar  *option_name,
                                               const gchar  *value,
                                               gpointer      data,
                                               GError      **error);
95 96 97 98 99
static gboolean  gimp_option_dump_pdb_procedures_deprecated
                                              (const gchar  *option_name,
                                               const gchar  *value,
                                               gpointer      data,
                                               GError      **error);
100

101 102
static void      gimp_show_version_and_exit   (void) G_GNUC_NORETURN;
static void      gimp_show_license_and_exit   (void) G_GNUC_NORETURN;
103 104 105

static void      gimp_init_i18n               (void);
static void      gimp_init_malloc             (void);
106

107 108 109 110 111
#if defined (G_OS_WIN32) && !defined (GIMP_CONSOLE_COMPILATION)
static void      gimp_open_console_window     (void);
#else
#define gimp_open_console_window() /* as nothing */
#endif
Sven Neumann's avatar
Sven Neumann committed
112

113 114 115 116 117 118
static const gchar        *system_gimprc     = NULL;
static const gchar        *user_gimprc       = NULL;
static const gchar        *session_name      = NULL;
static const gchar        *batch_interpreter = NULL;
static const gchar       **batch_commands    = NULL;
static const gchar       **filenames         = NULL;
119
static gboolean            as_new            = FALSE;
120 121 122 123 124
static gboolean            no_interface      = FALSE;
static gboolean            no_data           = FALSE;
static gboolean            no_fonts          = FALSE;
static gboolean            no_splash         = FALSE;
static gboolean            be_verbose        = FALSE;
125
static gboolean            new_instance      = FALSE;
126
#if defined (USE_SYSV_SHM) || defined (USE_POSIX_SHM) || defined (G_OS_WIN32)
127
static gboolean            use_shm           = TRUE;
128
#else
129
static gboolean            use_shm           = FALSE;
130
#endif
131 132 133
static gboolean            use_cpu_accel     = TRUE;
static gboolean            console_messages  = FALSE;
static gboolean            use_debug_handler = FALSE;
Sven Neumann's avatar
Sven Neumann committed
134

Sven Neumann's avatar
Sven Neumann committed
135
#ifdef GIMP_UNSTABLE
136 137
static GimpStackTraceMode  stack_trace_mode  = GIMP_STACK_TRACE_QUERY;
static GimpPDBCompatMode   pdb_compat_mode   = GIMP_PDB_COMPAT_WARN;
Sven Neumann's avatar
Sven Neumann committed
138
#else
139 140
static GimpStackTraceMode  stack_trace_mode  = GIMP_STACK_TRACE_NEVER;
static GimpPDBCompatMode   pdb_compat_mode   = GIMP_PDB_COMPAT_ON;
141
#endif
Elliot Lee's avatar
Elliot Lee committed
142

Sven Neumann's avatar
Sven Neumann committed
143 144 145

static const GOptionEntry main_entries[] =
{
146
  { "version", 'v', G_OPTION_FLAG_NO_ARG,
147
    G_OPTION_ARG_CALLBACK, (GOptionArgFunc) gimp_show_version_and_exit,
Sven Neumann's avatar
Sven Neumann committed
148 149
    N_("Show version information and exit"), NULL
  },
150 151 152 153 154
  {
    "license", 0, G_OPTION_FLAG_NO_ARG,
    G_OPTION_ARG_CALLBACK, (GOptionArgFunc) gimp_show_license_and_exit,
    N_("Show license information and exit"), NULL
  },
Sven Neumann's avatar
Sven Neumann committed
155 156 157 158 159
  {
    "verbose", 0, 0,
    G_OPTION_ARG_NONE, &be_verbose,
    N_("Be more verbose"), NULL
  },
160 161 162 163 164
  {
    "new-instance", 'n', 0,
    G_OPTION_ARG_NONE, &new_instance,
    N_("Start a new GIMP instance"), NULL
  },
165 166 167 168 169
  {
    "as-new", 'a', 0,
    G_OPTION_ARG_NONE, &as_new,
    N_("Open images as new"), NULL
  },
Sven Neumann's avatar
Sven Neumann committed
170 171 172 173 174 175 176 177
  {
    "no-interface", 'i', 0,
    G_OPTION_ARG_NONE, &no_interface,
    N_("Run without a user interface"), NULL
  },
  {
    "no-data", 'd', 0,
    G_OPTION_ARG_NONE, &no_data,
Sven Neumann's avatar
Sven Neumann committed
178
    N_("Do not load brushes, gradients, patterns, ..."), NULL
Sven Neumann's avatar
Sven Neumann committed
179 180 181 182 183 184 185 186 187
  },
  {
    "no-fonts", 'f', 0,
    G_OPTION_ARG_NONE, &no_fonts,
    N_("Do not load any fonts"), NULL
  },
  {
    "no-splash", 's', 0,
    G_OPTION_ARG_NONE, &no_splash,
188
    N_("Do not show a splash screen"), NULL
Sven Neumann's avatar
Sven Neumann committed
189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205
  },
  {
    "no-shm", 0, G_OPTION_FLAG_REVERSE,
    G_OPTION_ARG_NONE, &use_shm,
    N_("Do not use shared memory between GIMP and plugins"), NULL
  },
  {
    "no-cpu-accel", 0, G_OPTION_FLAG_REVERSE,
    G_OPTION_ARG_NONE, &use_cpu_accel,
    N_("Do not use special CPU acceleration functions"), NULL
  },
  {
    "session", 0, 0,
    G_OPTION_ARG_FILENAME, &session_name,
    N_("Use an alternate sessionrc file"), "<name>"
  },
  {
206
    "gimprc", 'g', 0,
Sven Neumann's avatar
Sven Neumann committed
207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222
    G_OPTION_ARG_FILENAME, &user_gimprc,
    N_("Use an alternate user gimprc file"), "<filename>"
  },
  {
    "system-gimprc", 0, 0,
    G_OPTION_ARG_FILENAME, &system_gimprc,
    N_("Use an alternate system gimprc file"), "<filename>"
  },
  {
    "batch", 'b', 0,
    G_OPTION_ARG_STRING_ARRAY, &batch_commands,
    N_("Batch command to run (can be used multiple times)"), "<command>"
  },
  {
    "batch-interpreter", 0, 0,
    G_OPTION_ARG_STRING, &batch_interpreter,
Sven Neumann's avatar
Sven Neumann committed
223
    N_("The procedure to process batch commands with"), "<proc>"
Sven Neumann's avatar
Sven Neumann committed
224 225
  },
  {
226
    "console-messages", 'c', 0,
Sven Neumann's avatar
Sven Neumann committed
227
    G_OPTION_ARG_NONE, &console_messages,
228
    N_("Send messages to console instead of using a dialog"), NULL
Sven Neumann's avatar
Sven Neumann committed
229 230 231 232
  },
  {
    "pdb-compat-mode", 0, 0,
    G_OPTION_ARG_CALLBACK, gimp_option_pdb_compat_mode,
Sven Neumann's avatar
Sven Neumann committed
233 234
    /*  don't translate the mode names (off|on|warn)  */
    N_("PDB compatibility mode (off|on|warn)"), "<mode>"
Sven Neumann's avatar
Sven Neumann committed
235 236 237 238
  },
  {
    "stack-trace-mode", 0, 0,
    G_OPTION_ARG_CALLBACK, gimp_option_stack_trace_mode,
Sven Neumann's avatar
Sven Neumann committed
239 240
    /*  don't translate the mode names (never|query|always)  */
    N_("Debug in case of a crash (never|query|always)"), "<mode>"
Sven Neumann's avatar
Sven Neumann committed
241 242
  },
  {
Mikael Magnusson's avatar
Mikael Magnusson committed
243
    "debug-handlers", 0, 0,
Sven Neumann's avatar
Sven Neumann committed
244 245 246 247
    G_OPTION_ARG_NONE, &use_debug_handler,
    N_("Enable non-fatal debugging signal handlers"), NULL
  },
  {
248
    "g-fatal-warnings", 0, G_OPTION_FLAG_NO_ARG,
249 250
    G_OPTION_ARG_CALLBACK, gimp_option_fatal_warnings,
    N_("Make all warnings fatal"), NULL
Sven Neumann's avatar
Sven Neumann committed
251 252
  },
  {
253
    "dump-gimprc", 0, G_OPTION_FLAG_NO_ARG,
Sven Neumann's avatar
Sven Neumann committed
254 255 256 257
    G_OPTION_ARG_CALLBACK, gimp_option_dump_gimprc,
    N_("Output a gimprc file with default settings"), NULL
  },
  {
258
    "dump-gimprc-system", 0, G_OPTION_FLAG_NO_ARG | G_OPTION_FLAG_HIDDEN,
Sven Neumann's avatar
Sven Neumann committed
259 260 261 262
    G_OPTION_ARG_CALLBACK, gimp_option_dump_gimprc,
    NULL, NULL
  },
  {
263
    "dump-gimprc-manpage", 0, G_OPTION_FLAG_NO_ARG | G_OPTION_FLAG_HIDDEN,
Sven Neumann's avatar
Sven Neumann committed
264 265 266
    G_OPTION_ARG_CALLBACK, gimp_option_dump_gimprc,
    NULL, NULL
  },
267 268 269 270
  {
    "dump-pdb-procedures-deprecated", 0,
    G_OPTION_FLAG_NO_ARG | G_OPTION_FLAG_HIDDEN,
    G_OPTION_ARG_CALLBACK, gimp_option_dump_pdb_procedures_deprecated,
271
    N_("Output a sorted list of deprecated procedures in the PDB"), NULL
272
  },
Sven Neumann's avatar
Sven Neumann committed
273 274 275 276 277 278 279 280 281 282 283 284 285 286 287
  {
    G_OPTION_REMAINING, 0, 0,
    G_OPTION_ARG_FILENAME_ARRAY, &filenames,
    NULL, NULL
  },
  { NULL }
};

int
main (int    argc,
      char **argv)
{
  GOptionContext *context;
  GError         *error = NULL;
  const gchar    *abort_message;
288
  gchar          *basename;
289 290
  GFile          *system_gimprc_file = NULL;
  GFile          *user_gimprc_file   = NULL;
291
  gint            i;
292

293 294 295 296 297 298 299 300 301 302
#if defined (__GNUC__) && defined (_WIN64)
  /* mingw-w64, at least the unstable build from late July 2008,
   * starts subsystem:windows programs in main(), but passes them
   * bogus argc and argv. __argc and __argv are OK, though, so just
   * use them.
   */
  argc = __argc;
  argv = __argv;
#endif

Tor Lillqvist's avatar
Tor Lillqvist committed
303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326
#ifdef G_OS_WIN32
  /* Reduce risks */
  {
    typedef BOOL (WINAPI *t_SetDllDirectoryA) (LPCSTR lpPathName);
    t_SetDllDirectoryA p_SetDllDirectoryA;

    p_SetDllDirectoryA = GetProcAddress (GetModuleHandle ("kernel32.dll"),
					 "SetDllDirectoryA");
    if (p_SetDllDirectoryA)
      (*p_SetDllDirectoryA) ("");
  }
#ifndef _WIN64
  {
    typedef BOOL (WINAPI *t_SetProcessDEPPolicy) (DWORD dwFlags);
    t_SetProcessDEPPolicy p_SetProcessDEPPolicy;

    p_SetProcessDEPPolicy = GetProcAddress (GetModuleHandle ("kernel32.dll"),
					    "SetProcessDEPPolicy");
    if (p_SetProcessDEPPolicy)
      (*p_SetProcessDEPPolicy) (PROCESS_DEP_ENABLE|PROCESS_DEP_DISABLE_ATL_THUNK_EMULATION);
  }
#endif
#endif

327 328 329 330
#ifdef GIMP_UNSTABLE
  gimp_open_console_window ();
#endif

Sven Neumann's avatar
Sven Neumann committed
331
  gimp_init_malloc ();
332

333 334
  gimp_env_init (FALSE);

335 336
  gimp_log_init ();

Sven Neumann's avatar
Sven Neumann committed
337
  gimp_init_i18n ();
338

339
  g_set_application_name (GIMP_NAME);
340

341 342 343 344 345 346
#ifdef G_OS_WIN32
  argv = g_win32_get_command_line ();
#else
  argv = g_strdupv (argv);
#endif

347 348 349 350
  basename = g_path_get_basename (argv[0]);
  g_set_prgname (basename);
  g_free (basename);

351 352 353 354 355 356 357 358 359 360 361 362 363 364
  /* Check argv[] for "--verbose" first */
  for (i = 1; i < argc; i++)
    {
      const gchar *arg = argv[i];

      if (arg[0] != '-')
        continue;

      if ((strcmp (arg, "--verbose") == 0) || (strcmp (arg, "-v") == 0))
        {
          be_verbose = TRUE;
        }
    }

365
  /* Check argv[] for "--no-interface" before trying to initialize gtk+. */
366 367 368 369 370 371 372 373
  for (i = 1; i < argc; i++)
    {
      const gchar *arg = argv[i];

      if (arg[0] != '-')
        continue;

      if ((strcmp (arg, "--no-interface") == 0) || (strcmp (arg, "-i") == 0))
374 375 376
        {
          no_interface = TRUE;
        }
377
      else if ((strcmp (arg, "--version") == 0) || (strcmp (arg, "-v") == 0))
378 379 380
        {
          gimp_show_version_and_exit ();
        }
381 382 383 384 385 386 387 388
#if defined (G_OS_WIN32) && !defined (GIMP_CONSOLE_COMPILATION)
      else if ((strcmp (arg, "--help") == 0) ||
               (strcmp (arg, "-?") == 0) ||
               (strncmp (arg, "--help-", 7) == 0))
        {
          gimp_open_console_window ();
        }
#endif
389
    }
390

391 392 393
#ifdef GIMP_CONSOLE_COMPILATION
  no_interface = TRUE;
#endif
394

395
  context = g_option_context_new (_("[FILE|URI...]"));
Sven Neumann's avatar
Sven Neumann committed
396 397
  g_option_context_set_summary (context, GIMP_NAME);

398
  g_option_context_add_main_entries (context, main_entries, GETTEXT_PACKAGE);
Elliot Lee's avatar
Elliot Lee committed
399

400
  app_libs_init (context, no_interface);
Sven Neumann's avatar
Sven Neumann committed
401

402
  if (! g_option_context_parse_strv (context, &argv, &error))
Elliot Lee's avatar
Elliot Lee committed
403
    {
404 405
      if (error)
        {
406
          gimp_open_console_window ();
407 408 409 410 411 412 413 414 415 416
          g_print ("%s\n", error->message);
          g_error_free (error);
        }
      else
        {
          g_print ("%s\n",
                   _("GIMP could not initialize the graphical user interface.\n"
                     "Make sure a proper setup for your display environment "
                     "exists."));
        }
417

Sven Neumann's avatar
Sven Neumann committed
418
      app_exit (EXIT_FAILURE);
Elliot Lee's avatar
Elliot Lee committed
419 420
    }

421 422 423
  if (no_interface || be_verbose || console_messages || batch_commands != NULL)
    gimp_open_console_window ();

424 425 426
  if (no_interface)
    new_instance = TRUE;

427 428
#ifndef GIMP_CONSOLE_COMPILATION
  if (! new_instance && gimp_unique_open (filenames, as_new))
429
    {
430 431 432 433 434 435 436
      if (be_verbose)
	g_print ("%s\n",
		 _("Another GIMP instance is already running."));

      gdk_notify_startup_complete ();

      return EXIT_SUCCESS;
437
    }
438
#endif
439

440 441 442
  abort_message = sanity_check ();
  if (abort_message)
    app_abort (no_interface, abort_message);
Sven Neumann's avatar
Sven Neumann committed
443

444
  gimp_init_signal_handlers (stack_trace_mode);
Sven Neumann's avatar
Sven Neumann committed
445

446 447 448 449 450 451
  if (system_gimprc)
    system_gimprc_file = g_file_new_for_commandline_arg (system_gimprc);

  if (user_gimprc)
    user_gimprc_file = g_file_new_for_commandline_arg (user_gimprc);

Sven Neumann's avatar
Sven Neumann committed
452 453
  app_run (argv[0],
           filenames,
454 455
           system_gimprc_file,
           user_gimprc_file,
Sven Neumann's avatar
Sven Neumann committed
456 457 458
           session_name,
           batch_interpreter,
           batch_commands,
459
           as_new,
Sven Neumann's avatar
Sven Neumann committed
460 461 462 463 464 465 466 467
           no_interface,
           no_data,
           no_fonts,
           no_splash,
           be_verbose,
           use_shm,
           use_cpu_accel,
           console_messages,
468
           use_debug_handler,
Sven Neumann's avatar
Sven Neumann committed
469 470 471
           stack_trace_mode,
           pdb_compat_mode);

472 473 474 475 476 477
  if (system_gimprc_file)
    g_object_unref (system_gimprc_file);

  if (user_gimprc_file)
    g_object_unref (user_gimprc_file);

478 479
  g_strfreev (argv);

Sven Neumann's avatar
Sven Neumann committed
480 481 482 483 484 485
  g_option_context_free (context);

  return EXIT_SUCCESS;
}


486
#ifdef G_OS_WIN32
Sven Neumann's avatar
Sven Neumann committed
487

488 489 490 491 492
/* Provide WinMain in case we build GIMP as a subsystem:windows
 * application. Well, we do. When built with mingw, though, user code
 * execution still starts in main() in that case. So WinMain() gets
 * used on MSVC builds only.
 */
493

494 495 496 497
#ifdef __GNUC__
#  ifndef _stdcall
#    define _stdcall  __attribute__((stdcall))
#  endif
Sven Neumann's avatar
Sven Neumann committed
498 499
#endif

500 501
int _stdcall
WinMain (struct HINSTANCE__ *hInstance,
502 503 504
         struct HINSTANCE__ *hPrevInstance,
         char               *lpszCmdLine,
         int                 nCmdShow)
Sven Neumann's avatar
Sven Neumann committed
505
{
506 507
  return main (__argc, __argv);
}
508

509 510 511 512 513 514 515
#ifndef GIMP_CONSOLE_COMPILATION

static void
wait_console_window (void)
{
  FILE *console = fopen ("CONOUT$", "w");

516
  SetConsoleTitleW (g_utf8_to_utf16 (_("GIMP output. Type any character to close this window."), -1, NULL, NULL, NULL));
517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533
  fprintf (console, _("(Type any character to close this window)\n"));
  fflush (console);
  _getch ();
}

static void
gimp_open_console_window (void)
{
  if (((HANDLE) _get_osfhandle (fileno (stdout)) == INVALID_HANDLE_VALUE ||
       (HANDLE) _get_osfhandle (fileno (stderr)) == INVALID_HANDLE_VALUE) && AllocConsole ())
    {
      if ((HANDLE) _get_osfhandle (fileno (stdout)) == INVALID_HANDLE_VALUE)
        freopen ("CONOUT$", "w", stdout);

      if ((HANDLE) _get_osfhandle (fileno (stderr)) == INVALID_HANDLE_VALUE)
        freopen ("CONOUT$", "w", stderr);

534
      SetConsoleTitleW (g_utf8_to_utf16 (_("GIMP output. You can minimize this window, but don't close it."), -1, NULL, NULL, NULL));
535 536 537 538 539 540

      atexit (wait_console_window);
    }
}
#endif

541
#endif /* G_OS_WIN32 */
542

543

544 545 546 547 548 549 550
static gboolean
gimp_option_fatal_warnings (const gchar  *option_name,
                            const gchar  *value,
                            gpointer      data,
                            GError      **error)
{
  GLogLevelFlags fatal_mask;
Elliot Lee's avatar
Elliot Lee committed
551

552 553
  fatal_mask = g_log_set_always_fatal (G_LOG_FATAL_MASK);
  fatal_mask |= G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL;
554

555
  g_log_set_always_fatal (fatal_mask);
556

557
  return TRUE;
Elliot Lee's avatar
Elliot Lee committed
558 559
}

Sven Neumann's avatar
Sven Neumann committed
560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594
static gboolean
gimp_option_stack_trace_mode (const gchar  *option_name,
                              const gchar  *value,
                              gpointer      data,
                              GError      **error)
{
  if (strcmp (value, "never") == 0)
    stack_trace_mode = GIMP_STACK_TRACE_NEVER;
  else if (strcmp (value, "query") == 0)
    stack_trace_mode = GIMP_STACK_TRACE_QUERY;
  else if (strcmp (value, "always") == 0)
    stack_trace_mode = GIMP_STACK_TRACE_ALWAYS;
  else
    return FALSE;

  return TRUE;
}

static gboolean
gimp_option_pdb_compat_mode (const gchar  *option_name,
                             const gchar  *value,
                             gpointer      data,
                             GError      **error)
{
  if (! strcmp (value, "off"))
    pdb_compat_mode = GIMP_PDB_COMPAT_OFF;
  else if (! strcmp (value, "on"))
    pdb_compat_mode = GIMP_PDB_COMPAT_ON;
  else if (! strcmp (value, "warn"))
    pdb_compat_mode = GIMP_PDB_COMPAT_WARN;
  else
    return FALSE;

  return TRUE;
}
595

596 597 598 599 600
static gboolean
gimp_option_dump_gimprc (const gchar  *option_name,
                         const gchar  *value,
                         gpointer      data,
                         GError      **error)
601
{
602 603
  GimpConfigDumpFormat format = GIMP_CONFIG_DUMP_NONE;

604 605
  gimp_open_console_window ();

606 607 608 609 610 611 612 613 614 615 616 617 618 619 620
  if (strcmp (option_name, "--dump-gimprc") == 0)
    format = GIMP_CONFIG_DUMP_GIMPRC;
  if (strcmp (option_name, "--dump-gimprc-system") == 0)
    format = GIMP_CONFIG_DUMP_GIMPRC_SYSTEM;
  else if (strcmp (option_name, "--dump-gimprc-manpage") == 0)
    format = GIMP_CONFIG_DUMP_GIMPRC_MANPAGE;

  if (format)
    {
      Gimp     *gimp;
      gboolean  success;

      gimp = g_object_new (GIMP_TYPE_GIMP, NULL);

      units_init (gimp);
621
      babl_init ();
622 623 624 625 626 627 628 629 630

      success = gimp_config_dump (format);

      g_object_unref (gimp);

      app_exit (success ? EXIT_SUCCESS : EXIT_FAILURE);
    }

  return FALSE;
631 632
}

633 634 635 636 637 638 639 640 641 642 643 644
static gboolean
gimp_option_dump_pdb_procedures_deprecated (const gchar  *option_name,
                                            const gchar  *value,
                                            gpointer      data,
                                            GError      **error)
{
  Gimp  *gimp;
  GList *deprecated_procs;
  GList *iter;

  gimp = g_object_new (GIMP_TYPE_GIMP, NULL);

645 646
  /* Make sure to turn on compatibility mode so deprecated procedures
   * are included
647 648 649
   */
  gimp->pdb_compat_mode = GIMP_PDB_COMPAT_ON;

650
  /* Initialize the list of procedures */
651 652
  internal_procs_init (gimp->pdb);

653
  /* Get deprecated procedures */
654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671
  deprecated_procs = gimp_pdb_get_deprecated_procedures (gimp->pdb);

  for (iter = deprecated_procs; iter; iter = g_list_next (iter))
    {
      GimpProcedure *procedure = GIMP_PROCEDURE (iter->data);

      g_print ("%s\n", procedure->original_name);
    }

  g_list_free (deprecated_procs);

  g_object_unref (gimp);

  app_exit (EXIT_SUCCESS);

  return FALSE;
}

672 673 674
static void
gimp_show_version_and_exit (void)
{
675 676
  gimp_open_console_window ();
  gimp_version_show (be_verbose);
677 678

  app_exit (EXIT_SUCCESS);
679
}
680

681 682 683
static void
gimp_show_license_and_exit (void)
{
684 685
  gimp_open_console_window ();
  gimp_version_show (be_verbose);
686 687 688 689 690 691 692

  g_print ("\n");
  g_print (GIMP_LICENSE);
  g_print ("\n\n");

  app_exit (EXIT_SUCCESS);
}
693

694 695 696
static void
gimp_init_malloc (void)
{
697
#ifdef GIMP_GLIB_MEM_PROFILER
698 699 700
  g_mem_set_vtable (glib_mem_profiler_table);
  g_atexit (g_mem_profile);
#endif
701

702 703
#ifdef __GLIBC__
  /* Tweak memory allocation so that memory allocated in chunks >= 4k
704 705 706 707 708 709 710 711 712
   * (64x64 pixel 1bpp tile) gets returned to the system when free()'d.
   *
   * The default value for M_MMAP_THRESHOLD in glibc-2.3 is 128k.
   * This is said to be an empirically derived value that works well
   * in most systems. Lowering it to 4k is thus probably not the ideal
   * solution.
   *
   * An alternative to tuning this parameter would be to use
   * malloc_trim(), for example after releasing a large tile-manager.
713
   */
714
#if 0
715
  mallopt (M_MMAP_THRESHOLD, TILE_WIDTH * TILE_HEIGHT);
Tor Lillqvist's avatar
Tor Lillqvist committed
716
#endif
717
#endif
718
}
Tor Lillqvist's avatar
Tor Lillqvist committed
719

720 721
static void
gimp_init_i18n (void)
722
{
723 724 725 726 727 728
  /*  We may change the locale later if the user specifies a language
   *  in the gimprc file. Here we are just initializing the locale
   *  according to the environment variables and set up the paths to
   *  the message catalogs.
   */

729 730 731 732 733 734 735 736 737 738 739 740 741
  setlocale (LC_ALL, "");

  bindtextdomain (GETTEXT_PACKAGE"-libgimp", gimp_locale_directory ());
#ifdef HAVE_BIND_TEXTDOMAIN_CODESET
  bind_textdomain_codeset (GETTEXT_PACKAGE"-libgimp", "UTF-8");
#endif

  bindtextdomain (GETTEXT_PACKAGE, gimp_locale_directory ());
#ifdef HAVE_BIND_TEXTDOMAIN_CODESET
  bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
#endif

  textdomain (GETTEXT_PACKAGE);
742
}