/* Pango2
 *
 * Copyright (C) 1999 Red Hat Software
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Library General Public
 * License as published by the Free Software Foundation; either
 * version 2 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
 * Library General Public License for more details.
 *
 * You should have received a copy of the GNU Library 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 <gio/gio.h>

#include "pango-font-family-private.h"
#include "pango-font-face.h"
#include "pango-font.h"

/**
 * Pango2FontFamily:
 *
 * A `Pango2FontFamily` is used to represent a family of related
 * font faces.
 *
 * The font faces in a family share a common design, but differ in
 * slant, weight, width or other aspects.
 *
 * `Pango2FontFamily` implements the [iface@Gio.ListModel] interface,
 * to provide a list of font faces.
 */

/* {{{ GListModel implementation */

static GType
pango2_font_family_get_item_type (GListModel *list)
{
  return PANGO2_TYPE_FONT_FACE;
}

static guint
pango2_font_family_get_n_items (GListModel *list)
{
  g_assert_not_reached ();
  return 0;
}

static gpointer
pango2_font_family_get_item (GListModel *list,
                             guint       position)
{
  g_assert_not_reached ();
  return NULL;
}

static void
pango2_font_family_list_model_init (GListModelInterface *iface)
{
  iface->get_item_type = pango2_font_family_get_item_type;
  iface->get_n_items = pango2_font_family_get_n_items;
  iface->get_item = pango2_font_family_get_item;
}

/* }}} */
/* {{{ Pango2FontFamily implementation */

enum {
  PROP_NAME = 1,
  PROP_ITEM_TYPE,
  PROP_N_ITEMS,
  N_PROPERTIES
};

static GParamSpec *properties[N_PROPERTIES] = { NULL, };

G_DEFINE_ABSTRACT_TYPE_WITH_CODE (Pango2FontFamily, pango2_font_family, G_TYPE_OBJECT,
                                  G_IMPLEMENT_INTERFACE (G_TYPE_LIST_MODEL, pango2_font_family_list_model_init))

static Pango2FontFace *
pango2_font_family_real_get_face (Pango2FontFamily *family,
                                  const char       *name)
{
  Pango2FontFace *face;

  face = NULL;

  for (int i = 0; i < g_list_model_get_n_items (G_LIST_MODEL (family)); i++)
    {
      Pango2FontFace *f = g_list_model_get_item (G_LIST_MODEL (family), i);
      g_object_unref (f);
      if (name == NULL ||
          strcmp (name, pango2_font_face_get_name (f)) == 0)
        {
          face = f;
          break;
        }
    }

  return face;
}

static void
pango2_font_family_finalize (GObject *object)
{
  Pango2FontFamily *family = PANGO2_FONT_FAMILY (object);

  g_free (family->name);
  if (family->map)
    g_object_remove_weak_pointer (G_OBJECT (family->map), (gpointer *)&family->map);

  G_OBJECT_CLASS (pango2_font_family_parent_class)->finalize (object);
}

static void
pango2_font_family_get_property (GObject    *object,
                                 guint       property_id,
                                 GValue     *value,
                                 GParamSpec *pspec)
{
  Pango2FontFamily *family = PANGO2_FONT_FAMILY (object);

  switch (property_id)
    {
    case PROP_NAME:
      g_value_set_string (value, family->name);
      break;

    case PROP_ITEM_TYPE:
      g_value_set_gtype (value, PANGO2_TYPE_FONT);
      break;

    case PROP_N_ITEMS:
      g_value_set_uint (value, pango2_font_family_get_n_items (G_LIST_MODEL (object)));
      break;

    default:
      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
    }
}

static void
pango2_font_family_class_init (Pango2FontFamilyClass *class)
{
  GObjectClass *object_class = G_OBJECT_CLASS (class);

  object_class->finalize = pango2_font_family_finalize;
  object_class->get_property = pango2_font_family_get_property;

  class->get_face = pango2_font_family_real_get_face;

  /**
   * Pango2FontFamily:name: (attributes org.gtk.Property.get=pango2_font_family_get_name)
   *
   * The name of the family.
   */
  properties[PROP_NAME] =
      g_param_spec_string ("name", NULL, NULL, NULL,
                           G_PARAM_READABLE | G_PARAM_STATIC_STRINGS);

  /**
   * Pango2FontFamily:item-type:
   *
   * The type of objects that the family contains.
   */
  properties[PROP_ITEM_TYPE] =
      g_param_spec_gtype ("item-type", NULL, NULL, PANGO2_TYPE_FONT_FACE,
                          G_PARAM_READABLE | G_PARAM_STATIC_STRINGS);

  /**
   * Pango2FontFamily:n-items:
   *
   * The number of faces contained in the family.
   */
  properties[PROP_N_ITEMS] =
      g_param_spec_uint ("n-items", "", "", 0, G_MAXUINT, 0,
                         G_PARAM_READABLE | G_PARAM_STATIC_STRINGS);

  g_object_class_install_properties (object_class, N_PROPERTIES, properties);
}

static void
pango2_font_family_init (Pango2FontFamily *family G_GNUC_UNUSED)
{
}

/* }}} */
/* {{{ Public API */

/**
 * pango2_font_family_get_font_map:
 * @family: a `Pango2FontFamily`
 *
 * Returns the `Pango2FontMap that @family belongs to.
 *
 * Note that the family maintains a *weak* reference to
 * the font map, so if all references to font map are
 * dropped, the font map will be finalized even if there
 * are fonts created with the font map that are still alive.
 * In that case this function will return %NULL.
 *
 * It is the responsibility of the user to ensure that the
 * font map is kept alive. In most uses this is not an issue
 * as a `Pango2Context` holds a reference to the font map.

 *
 * Return value: (transfer none) (nullable): the `Pango2FontMap
 */
Pango2FontMap *
pango2_font_family_get_font_map (Pango2FontFamily *family)
{
  return family->map;
}

/**
 * pango2_font_family_get_name:
 * @family: a `Pango2FontFamily`
 *
 * Gets the name of the family.
 *
 * The name is unique among all fonts for the font backend and can
 * be used in a `Pango2FontDescription` to specify that a face from
 * this family is desired.
 *
 * Return value: the name of the family. This string is owned
 *   by the family object and must not be modified or freed.
 */
const char *
pango2_font_family_get_name (Pango2FontFamily *family)
{
  g_return_val_if_fail (PANGO2_IS_FONT_FAMILY (family), NULL);

  return family->name;
}

/**
 * pango2_font_family_get_face:
 * @family: a `Pango2FontFamily`
 * @name: (nullable): the name of a face. If the name is `NULL`,
 *   the family's default face (fontconfig calls it "Regular")
 *   will be returned.
 *
 * Gets the `Pango2FontFace` of the family with the given name.
 *
 * Returns: (transfer none) (nullable): the `Pango2FontFace`,
 *   or `NULL` if no face with the given name exists.
 */
Pango2FontFace *
pango2_font_family_get_face (Pango2FontFamily *family,
                             const char       *name)
{
  g_return_val_if_fail (PANGO2_IS_FONT_FAMILY (family), NULL);

  return PANGO2_FONT_FAMILY_GET_CLASS (family)->get_face (family, name);
}

/* }}} */

/* vim:set foldmethod=marker expandtab: */