/*

 * Copyright © 2010 Codethink Limited

 *

 * SPDX-License-Identifier: LGPL-2.1-or-later

 *

 * 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, see <http://www.gnu.org/licenses/>.

 *

 * Authors: Ryan Lortie <desrt@desrt.ca>

 */

#include "config.h"

#include "gaction.h"

#include "glibintl.h"

#include <string.h>

G_DEFINE_INTERFACE (GAction, g_action, G_TYPE_OBJECT)

/**

 * GAction:

 *

 * `GAction` represents a single named action.

 *

 * The main interface to an action is that it can be activated with

 * [method@Gio.Action.activate]. This results in the 'activate' signal being

 * emitted. An activation has a `GVariant` parameter (which may be

 * `NULL`). The correct type for the parameter is determined by a static

 * parameter type (which is given at construction time).

 *

 * An action may optionally have a state, in which case the state may be

 * set with [method@Gio.Action.change_state]. This call takes a [type@GLib.Variant]. The

 * correct type for the state is determined by a static state type

 * (which is given at construction time).

 *

 * The state may have a hint associated with it, specifying its valid

 * range.

 *

 * `GAction` is merely the interface to the concept of an action, as

 * described above.  Various implementations of actions exist, including

 * [class@Gio.SimpleAction].

 *

 * In all cases, the implementing class is responsible for storing the

 * name of the action, the parameter type, the enabled state, the optional

 * state type and the state and emitting the appropriate signals when these

 * change. The implementor is responsible for filtering calls to

 * [method@Gio.Action.activate] and [method@Gio.Action.change_state]

 * for type safety and for the state being enabled.

 *

 * Probably the only useful thing to do with a `GAction` is to put it

 * inside of a [class@Gio.SimpleActionGroup].

 **/

/**

 * GActionInterface:

 * @get_name: the virtual function pointer for [method@Gio.Action.get_name]

 * @get_parameter_type: the virtual function pointer for [method@Gio.Action.get_parameter_type]

 * @get_state_type: the virtual function pointer for [method@Gio.Action.get_state_type]

 * @get_state_hint: the virtual function pointer for [method@Gio.Action.get_state_hint]

 * @get_enabled: the virtual function pointer for [method@Gio.Action.get_enabled]

 * @get_state: the virtual function pointer for [method@Gio.Action.get_state]

 * @change_state: the virtual function pointer for [method@Gio.Action.change_state]

 * @activate: the virtual function pointer for [method@Gio.Action.activate].  Note that [type@Gio.Action] does not have an

 *            'activate' signal but that implementations of it may have one.

 *

 * The virtual function table for [type@Gio.Action].

 *

 * Since: 2.28

 */

void

g_action_default_init (GActionInterface *iface)

{

  /**

   * GAction:name:

   *

   * The name of the action.  This is mostly meaningful for identifying

   * the action once it has been added to a [type@Gio.ActionGroup]. It is immutable.

   *

   * Since: 2.28

   **/

  g_object_interface_install_property (iface,

                                       g_param_spec_string ("name", NULL, NULL,

                                                            NULL,

                                                            G_PARAM_READABLE |

                                                            G_PARAM_STATIC_STRINGS));

  /**

   * GAction:parameter-type:

   *

   * The type of the parameter that must be given when activating the

   * action. This is immutable, and may be `NULL` if no parameter is needed when

   * activating the action.

   *

   * Since: 2.28

   **/

  g_object_interface_install_property (iface,

                                       g_param_spec_boxed ("parameter-type", NULL, NULL,

                                                           G_TYPE_VARIANT_TYPE,

                                                           G_PARAM_READABLE |

                                                           G_PARAM_STATIC_STRINGS));

  /**

   * GAction:enabled:

   *

   * If @action is currently enabled.

   *

   * If the action is disabled then calls to [method@Gio.Action.activate] and

   * [method@Gio.Action.change_state] have no effect.

   *

   * Since: 2.28

   **/

  g_object_interface_install_property (iface,

                                       g_param_spec_boolean ("enabled", NULL, NULL,

                                                             TRUE,

                                                             G_PARAM_READABLE |

                                                             G_PARAM_STATIC_STRINGS));

  /**

   * GAction:state-type:

   *

   * The [type@GLib.VariantType] of the state that the action has, or `NULL` if the

   * action is stateless. This is immutable.

   *

   * Since: 2.28

   **/

  g_object_interface_install_property (iface,

                                       g_param_spec_boxed ("state-type", NULL, NULL,

                                                           G_TYPE_VARIANT_TYPE,

                                                           G_PARAM_READABLE |

                                                           G_PARAM_STATIC_STRINGS));

  /**

   * GAction:state:

   *

   * The state of the action, or `NULL` if the action is stateless.

   *

   * Since: 2.28

   **/

  g_object_interface_install_property (iface,

                                       g_param_spec_variant ("state", NULL, NULL,

                                                             G_VARIANT_TYPE_ANY,

                                                             NULL,

                                                             G_PARAM_READABLE |

                                                             G_PARAM_STATIC_STRINGS));

}

/**

 * g_action_change_state:

 * @action: a [type@Gio.Action]

 * @value: the new state

 *

 * Request for the state of @action to be changed to @value.

 *

 * The action must be stateful and @value must be of the correct type.

 * See [method@Gio.Action.get_state_type].

 *

 * This call merely requests a change.  The action may refuse to change

 * its state or may change its state to something other than @value.

 * See [method@Gio.Action.get_state_hint].

 *

 * If the @value [type@GLib.Variant] is floating, it is consumed.

 *

 * Since: 2.30

 **/

void

g_action_change_state (GAction  *action,

                       GVariant *value)

{

  const GVariantType *state_type;

  g_return_if_fail (G_IS_ACTION (action));

  g_return_if_fail (value != NULL);

  state_type = g_action_get_state_type (action);

  g_return_if_fail (state_type != NULL);

  g_return_if_fail (g_variant_is_of_type (value, state_type));

  g_variant_ref_sink (value);

  G_ACTION_GET_IFACE (action)

    ->change_state (action, value);

  g_variant_unref (value);

}

/**

 * g_action_get_state:

 * @action: a [type@Gio.Action]

 *

 * Queries the current state of @action.

 *

 * If the action is not stateful then `NULL` will be returned.  If the

 * action is stateful then the type of the return value is the type

 * given by [method@Gio.Action.get_state_type].

 *

 * The return value (if non-`NULL`) should be freed with

 * [method@GLib.Variant.unref] when it is no longer required.

 *

 * Returns: (nullable) (transfer full): the current state of the action

 *

 * Since: 2.28

 **/

GVariant *

g_action_get_state (GAction *action)

{

  g_return_val_if_fail (G_IS_ACTION (action), NULL);

  return G_ACTION_GET_IFACE (action)

    ->get_state (action);

}

/**

 * g_action_get_name:

 * @action: a [type@Gio.Action]

 *

 * Queries the name of @action.

 *

 * Returns: the name of the action

 *

 * Since: 2.28

 **/

const gchar *

g_action_get_name (GAction *action)

{

  g_return_val_if_fail (G_IS_ACTION (action), NULL);

  return G_ACTION_GET_IFACE (action)

    ->get_name (action);

}

/**

 * g_action_get_parameter_type:

 * @action: a [type@Gio.Action]

 *

 * Queries the type of the parameter that must be given when activating

 * @action.

 *

 * When activating the action using [method@Gio.Action.activate], the

 * [type@GLib.Variant] given to that function must be of the type returned by

 * this function.

 *

 * In the case that this function returns `NULL`, you must not give any

 * [type@GLib.Variant], but `NULL` instead.

 *

 * Returns: (nullable): the parameter type

 *

 * Since: 2.28

 **/

const GVariantType *

g_action_get_parameter_type (GAction *action)

{

  g_return_val_if_fail (G_IS_ACTION (action), NULL);

  return G_ACTION_GET_IFACE (action)

    ->get_parameter_type (action);

}

/**

 * g_action_get_state_type:

 * @action: a [type@Gio.Action]

 *

 * Queries the type of the state of @action.

 *

 * If the action is stateful (e.g. created with

 * [ctor@Gio.SimpleAction.new_stateful]) then this function returns the

 * [type@GLib.VariantType] of the state.  This is the type of the initial value

 * given as the state. All calls to [method@Gio.Action.change_state] must give a

 * [type@GLib.Variant] of this type and [method@Gio.Action.get_state] will return a

 * [type@GLib.Variant] of the same type.

 *

 * If the action is not stateful (e.g. created with [ctor@Gio.SimpleAction.new])

 * then this function will return `NULL`. In that case, [method@Gio.Action.get_state]

 * will return `NULL` and you must not call [method@Gio.Action.change_state].

 *

 * Returns: (nullable): the state type, if the action is stateful

 *

 * Since: 2.28

 **/

const GVariantType *

g_action_get_state_type (GAction *action)

{

  g_return_val_if_fail (G_IS_ACTION (action), NULL);

  return G_ACTION_GET_IFACE (action)

    ->get_state_type (action);

}

/**

 * g_action_get_state_hint:

 * @action: a [type@Gio.Action]

 *

 * Requests a hint about the valid range of values for the state of

 * @action.

 *

 * If `NULL` is returned it either means that the action is not stateful

 * or that there is no hint about the valid range of values for the

 * state of the action.

 *

 * If a [type@GLib.Variant] array is returned then each item in the array is a

 * possible value for the state.  If a [type@GLib.Variant] pair (ie: two-tuple) is

 * returned then the tuple specifies the inclusive lower and upper bound

 * of valid values for the state.

 *

 * In any case, the information is merely a hint.  It may be possible to

 * have a state value outside of the hinted range and setting a value

 * within the range may fail.

 *

 * The return value (if non-`NULL`) should be freed with

 * [method@GLib.Variant.unref] when it is no longer required.

 *

 * Returns: (nullable) (transfer full): the state range hint

 *

 * Since: 2.28

 **/

GVariant *

g_action_get_state_hint (GAction *action)

{

  g_return_val_if_fail (G_IS_ACTION (action), NULL);

  return G_ACTION_GET_IFACE (action)

    ->get_state_hint (action);

}

/**

 * g_action_get_enabled:

 * @action: a [type@Gio.Action]

 *

 * Checks if @action is currently enabled.

 *

 * An action must be enabled in order to be activated or in order to

 * have its state changed from outside callers.

 *

 * Returns: whether the action is enabled

 *

 * Since: 2.28

 **/

gboolean

g_action_get_enabled (GAction *action)

{

  g_return_val_if_fail (G_IS_ACTION (action), FALSE);

  return G_ACTION_GET_IFACE (action)

    ->get_enabled (action);

}

/**

 * g_action_activate:

 * @action: a [type@Gio.Action]

 * @parameter: (nullable): the parameter to the activation

 *

 * Activates the action.

 *

 * @parameter must be the correct type of parameter for the action (ie:

 * the parameter type given at construction time).  If the parameter

 * type was `NULL` then @parameter must also be `NULL`.

 *

 * If the @parameter [type@GLib.Variant] is floating, it is consumed.

 *

 * Since: 2.28

 **/

void

g_action_activate (GAction  *action,

                   GVariant *parameter)

{

  g_return_if_fail (G_IS_ACTION (action));

  if (parameter != NULL)

    g_variant_ref_sink (parameter);

  G_ACTION_GET_IFACE (action)

    ->activate (action, parameter);

  if (parameter != NULL)

    g_variant_unref (parameter);

}

/**

 * g_action_name_is_valid:

 * @action_name: a potential action name

 *

 * Checks if @action_name is valid.

 *

 * @action_name is valid if it consists only of alphanumeric characters,

 * plus `-` and `.`.  The empty string is not a valid action name.

 *

 * It is an error to call this function with a non-UTF-8 @action_name.

 * @action_name must not be `NULL`.

 *

 * Returns: `TRUE` if @action_name is valid

 *

 * Since: 2.38

 **/

gboolean

g_action_name_is_valid (const gchar *action_name)

{

  gchar c;

  gint i;

  g_return_val_if_fail (action_name != NULL, FALSE);

  for (i = 0; (c = action_name[i]); i++)

    if (!g_ascii_isalnum (c) && c != '.' && c != '-')

      return FALSE;

  return i > 0;

}

/**

 * g_action_parse_detailed_name:

 * @detailed_name: a detailed action name

 * @action_name: (out) (optional) (not nullable) (transfer full): the action name

 * @target_value: (out) (optional) (nullable) (transfer full): the target value,

 *   or `NULL` for no target

 * @error: a pointer to a `NULL` [type@GLib.Error], or `NULL`

 *

 * Parses a detailed action name into its separate name and target

 * components.

 *

 * Detailed action names can have three formats.

 *

 * The first format is used to represent an action name with no target

 * value and consists of just an action name containing no whitespace

 * nor the characters `:`, `(` or `)`.  For example: `app.action`.

 *

 * The second format is used to represent an action with a target value

 * that is a non-empty string consisting only of alphanumerics, plus `-`

 * and `.`.  In that case, the action name and target value are

 * separated by a double colon (`::`).  For example:

 * `app.action::target`.

 *

 * The third format is used to represent an action with any type of

 * target value, including strings.  The target value follows the action

 * name, surrounded in parens.  For example: `app.action(42)`.  The

 * target value is parsed using [func@GLib.Variant.parse].  If a tuple-typed

 * value is desired, it must be specified in the same way, resulting in

 * two sets of parens, for example: `app.action((1,2,3))`.  A string

 * target can be specified this way as well: `app.action('target')`.

 * For strings, this third format must be used if target value is

 * empty or contains characters other than alphanumerics, `-` and `.`.

 *

 * If this function returns `TRUE`, a non-`NULL` value is guaranteed to be returned

 * in @action_name (if a pointer is passed in). A `NULL` value may still be

 * returned in @target_value, as the @detailed_name may not contain a target.

 *

 * If returned, the [type@GLib.Variant] in @target_value is guaranteed to not be floating.

 *

 * Returns: `TRUE` if successful, else `FALSE` with @error set

 *

 * Since: 2.38

 **/

gboolean

g_action_parse_detailed_name (const gchar  *detailed_name,

                              gchar       **action_name,

                              GVariant    **target_value,

                              GError      **error)

{

  const gchar *target;

  gsize target_len;

  gsize base_len;

  /* For historical (compatibility) reasons, this function accepts some

   * cases of invalid action names as long as they don't interfere with

   * the separation of the action from the target value.

   *

   * We decide which format we have based on which we see first between

   * '::' '(' and '\0'.

   */

  if (*detailed_name == '\0' || *detailed_name == ' ')

    goto bad_fmt;

  base_len = strcspn (detailed_name, ": ()");

  target = detailed_name + base_len;

  target_len = strlen (target);

  switch (target[0])

    {

    case ' ':

    case ')':

      goto bad_fmt;

    case ':':

      if (target[1] != ':')

        goto bad_fmt;

      *target_value = g_variant_ref_sink (g_variant_new_string (target + 2));

      break;

    case '(':

      {

        if (target[target_len - 1] != ')')

          goto bad_fmt;

        *target_value = g_variant_parse (NULL, target + 1, target + target_len - 1, NULL, error);

        if (*target_value == NULL)

          goto bad_fmt;

      }

      break;

    case '\0':

      *target_value = NULL;

      break;

    }

  *action_name = g_strndup (detailed_name, base_len);

  return TRUE;

bad_fmt:

  if (error)

    {

      if (*error == NULL)

        g_set_error (error, G_VARIANT_PARSE_ERROR, G_VARIANT_PARSE_ERROR_FAILED,

                     "Detailed action name '%s' has invalid format", detailed_name);

      else

        g_prefix_error (error, "Detailed action name '%s' has invalid format: ", detailed_name);

    }

  return FALSE;

}

/**

 * g_action_print_detailed_name:

 * @action_name: a valid action name

 * @target_value: (nullable): a [type@GLib.Variant] target value, or `NULL`

 *

 * Formats a detailed action name from @action_name and @target_value.

 *

 * It is an error to call this function with an invalid action name.

 *

 * This function is the opposite of [func@Gio.Action.parse_detailed_name].

 * It will produce a string that can be parsed back to the @action_name

 * and @target_value by that function.

 *

 * See that function for the types of strings that will be printed by

 * this function.

 *

 * Returns: a detailed format string

 *

 * Since: 2.38

 **/

gchar *

g_action_print_detailed_name (const gchar *action_name,

                              GVariant    *target_value)

{

  g_return_val_if_fail (g_action_name_is_valid (action_name), NULL);

  if (target_value == NULL)

    return g_strdup (action_name);

  if (g_variant_is_of_type (target_value, G_VARIANT_TYPE_STRING))

    {

      const gchar *str = g_variant_get_string (target_value, NULL);

      if (g_action_name_is_valid (str))

        return g_strconcat (action_name, "::", str, NULL);

    }

  {

    GString *result = g_string_new (action_name);

    g_string_append_c (result, '(');

    g_variant_print_string (target_value, result, TRUE);

    g_string_append_c (result, ')');

    return g_string_free (result, FALSE);

  }

}