summaryrefslogtreecommitdiffstats
path: root/app/pdb/debug-cmds.c
blob: bf727954608e05f9cd4adafff6e9e6319fdcf9f3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
/* GIMP - The GNU Image Manipulation Program
 * Copyright (C) 1995-2003 Spencer Kimball and Peter Mattis
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (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
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 */

/* NOTE: This file is auto-generated by pdbgen.pl. */

#include "config.h"

#include <gegl.h>

#include <gdk-pixbuf/gdk-pixbuf.h>

#include "libgimpbase/gimpbase.h"

#include "pdb-types.h"

#include "core/gimpparamspecs.h"

#include "gimppdb.h"
#include "gimpprocedure.h"
#include "internal-procs.h"


static GTimer *gimp_debug_timer         = NULL;
static gint    gimp_debug_timer_counter = 0;

static GimpValueArray *
debug_timer_start_invoker (GimpProcedure         *procedure,
                           Gimp                  *gimp,
                           GimpContext           *context,
                           GimpProgress          *progress,
                           const GimpValueArray  *args,
                           GError               **error)
{
  if (gimp_debug_timer_counter++ == 0)
    gimp_debug_timer = g_timer_new ();

  return gimp_procedure_get_return_values (procedure, TRUE, NULL);
}

static GimpValueArray *
debug_timer_end_invoker (GimpProcedure         *procedure,
                         Gimp                  *gimp,
                         GimpContext           *context,
                         GimpProgress          *progress,
                         const GimpValueArray  *args,
                         GError               **error)
{
  gboolean success = TRUE;
  GimpValueArray *return_vals;
  gdouble elapsed = 0.0;

  elapsed = 0.0;

  if (gimp_debug_timer_counter == 0)
    success = FALSE;
  else if (--gimp_debug_timer_counter == 0)
    {
      elapsed = g_timer_elapsed (gimp_debug_timer, NULL);

      g_printerr ("GIMP debug timer: %g seconds\n", elapsed);

      g_timer_destroy (gimp_debug_timer);

      gimp_debug_timer = NULL;
    }

  return_vals = gimp_procedure_get_return_values (procedure, success,
                                                  error ? *error : NULL);

  if (success)
    g_value_set_double (gimp_value_array_index (return_vals, 1), elapsed);

  return return_vals;
}

void
register_debug_procs (GimpPDB *pdb)
{
  GimpProcedure *procedure;

  /*
   * gimp-debug-timer-start
   */
  procedure = gimp_procedure_new (debug_timer_start_invoker);
  gimp_object_set_static_name (GIMP_OBJECT (procedure),
                               "gimp-debug-timer-start");
  gimp_procedure_set_static_strings (procedure,
                                     "gimp-debug-timer-start",
                                     "Starts measuring elapsed time.",
                                     "This procedure starts a timer, measuring the elapsed time since the call. Each call to this procedure should be matched by a call to 'gimp-debug-timer-end', which returns the elapsed time.\n"
                                     "If there is already an active timer, it is not affected by the call, however, a matching 'gimp-debug-timer-end' call is still required.\n"
                                     "\n"
                                     "This is a debug utility procedure. It is subject to change at any point, and should not be used in production.",
                                     "Ell",
                                     "Ell",
                                     "2017",
                                     NULL);
  gimp_pdb_register_procedure (pdb, procedure);
  g_object_unref (procedure);

  /*
   * gimp-debug-timer-end
   */
  procedure = gimp_procedure_new (debug_timer_end_invoker);
  gimp_object_set_static_name (GIMP_OBJECT (procedure),
                               "gimp-debug-timer-end");
  gimp_procedure_set_static_strings (procedure,
                                     "gimp-debug-timer-end",
                                     "Finishes measuring elapsed time.",
                                     "This procedure stops the timer started by a previous 'gimp-debug-timer-start' call, and prints and returns the elapsed time.\n"
                                     "If there was already an active timer at the time of corresponding call to 'gimp-debug-timer-start', a dummy value is returned.\n"
                                     "\n"
                                     "This is a debug utility procedure. It is subject to change at any point, and should not be used in production.",
                                     "Ell",
                                     "Ell",
                                     "2017",
                                     NULL);
  gimp_procedure_add_return_value (procedure,
                                   g_param_spec_double ("elapsed",
                                                        "elapsed",
                                                        "The elapsed time, in seconds",
                                                        -G_MAXDOUBLE, G_MAXDOUBLE, 0,
                                                        GIMP_PARAM_READWRITE));
  gimp_pdb_register_procedure (pdb, procedure);
  g_object_unref (procedure);
}