/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8; coding: utf-8 -*-
* gtksourceview-utils.c
* This file is part of GtkSourceView
*
* Copyright (C) 2007 - Gustavo Giráldez and Paolo Maggi
*
* 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include "gtksourceview-utils.h"
#include <errno.h>
#include <math.h>
#define SOURCEVIEW_DIR "gtksourceview-3.0"
gchar **
_gtk_source_view_get_default_dirs (const char *basename,
gboolean compat)
{
const gchar * const *xdg_dirs;
GPtrArray *dirs;
dirs = g_ptr_array_new ();
/* user dir */
g_ptr_array_add (dirs, g_build_filename (g_get_user_data_dir (),
SOURCEVIEW_DIR,
basename,
NULL));
#ifdef G_OS_UNIX
/* Legacy gtsourceview 1 user dir, for backward compatibility */
if (compat)
{
const gchar *home;
home = g_get_home_dir ();
if (home != NULL)
{
g_ptr_array_add (dirs,
g_strdup_printf ("%s/%s",
home,
".gnome2/gtksourceview-1.0/language-specs"));
}
}
#endif
/* system dir */
for (xdg_dirs = g_get_system_data_dirs (); xdg_dirs && *xdg_dirs; ++xdg_dirs)
{
g_ptr_array_add (dirs, g_build_filename (*xdg_dirs,
SOURCEVIEW_DIR,
basename,
NULL));
}
g_ptr_array_add (dirs, NULL);
return (gchar**) g_ptr_array_free (dirs, FALSE);
}
static GSList *
build_file_listing (const gchar *item,
GSList *filenames,
const gchar *suffix,
gboolean only_dirs)
{
GDir *dir;
const gchar *name;
if (!only_dirs && g_file_test (item, G_FILE_TEST_IS_REGULAR))
{
filenames = g_slist_prepend (filenames, g_strdup(item));
return filenames;
}
dir = g_dir_open (item, 0, NULL);
if (dir == NULL)
{
return filenames;
}
while ((name = g_dir_read_name (dir)) != NULL)
{
gchar *full_path = g_build_filename (item, name, NULL);
if (!g_file_test (full_path, G_FILE_TEST_IS_DIR) &&
g_str_has_suffix (name, suffix))
{
filenames = g_slist_prepend (filenames, full_path);
}
else
{
g_free (full_path);
}
}
g_dir_close (dir);
return filenames;
}
GSList *
_gtk_source_view_get_file_list (gchar **path,
const gchar *suffix,
gboolean only_dirs)
{
GSList *files = NULL;
for ( ; path && *path; ++path)
{
files = build_file_listing (*path, files, suffix, only_dirs);
}
return g_slist_reverse (files);
}
/* Wrapper around strtoull for easier use: tries
* to convert @str to a number and return -1 if it is not.
* Used to check if references in subpattern contexts
* (e.g. \%{1@start} or \%{blah@start}) are named or numbers.
*/
gint
_gtk_source_string_to_int (const gchar *str)
{
guint64 number;
gchar *end_str;
if (str == NULL || *str == '\0')
{
return -1;
}
errno = 0;
number = g_ascii_strtoull (str, &end_str, 10);
if (errno != 0 || number > G_MAXINT || *end_str != '\0')
{
return -1;
}
return number;
}
#define FONT_FAMILY "font-family"
#define FONT_VARIANT "font-variant"
#define FONT_STRETCH "font-stretch"
#define FONT_WEIGHT "font-weight"
#define FONT_SIZE "font-size"
gchar *
_gtk_source_pango_font_description_to_css (const PangoFontDescription *font_desc)
{
PangoFontMask mask;
GString *str;
#define ADD_KEYVAL(key,fmt) \
g_string_append(str,key":"fmt";")
#define ADD_KEYVAL_PRINTF(key,fmt,...) \
g_string_append_printf(str,key":"fmt";", __VA_ARGS__)
g_return_val_if_fail (font_desc, NULL);
str = g_string_new (NULL);
mask = pango_font_description_get_set_fields (font_desc);
if ((mask & PANGO_FONT_MASK_FAMILY) != 0)
{
const gchar *family;
family = pango_font_description_get_family (font_desc);
ADD_KEYVAL_PRINTF (FONT_FAMILY, "\"%s\"", family);
}
if ((mask & PANGO_FONT_MASK_STYLE) != 0)
{
PangoVariant variant;
variant = pango_font_description_get_variant (font_desc);
switch (variant)
{
case PANGO_VARIANT_NORMAL:
ADD_KEYVAL (FONT_VARIANT, "normal");
break;
case PANGO_VARIANT_SMALL_CAPS:
ADD_KEYVAL (FONT_VARIANT, "small-caps");
break;
default:
break;
}
}
if ((mask & PANGO_FONT_MASK_WEIGHT))
{
gint weight;
weight = pango_font_description_get_weight (font_desc);
/*
* WORKAROUND:
*
* font-weight with numbers does not appear to be working as expected
* right now. So for the common (bold/normal), let's just use the string
* and let gtk warn for the other values, which shouldn't really be
* used for this.
*/
switch (weight)
{
case PANGO_WEIGHT_SEMILIGHT:
/*
* 350 is not actually a valid css font-weight, so we will just round
* up to 400.
*/
case PANGO_WEIGHT_NORMAL:
ADD_KEYVAL (FONT_WEIGHT, "normal");
break;
case PANGO_WEIGHT_BOLD:
ADD_KEYVAL (FONT_WEIGHT, "bold");
break;
case PANGO_WEIGHT_THIN:
case PANGO_WEIGHT_ULTRALIGHT:
case PANGO_WEIGHT_LIGHT:
case PANGO_WEIGHT_BOOK:
case PANGO_WEIGHT_MEDIUM:
case PANGO_WEIGHT_SEMIBOLD:
case PANGO_WEIGHT_ULTRABOLD:
case PANGO_WEIGHT_HEAVY:
case PANGO_WEIGHT_ULTRAHEAVY:
default:
/* round to nearest hundred */
weight = round (weight / 100.0) * 100;
ADD_KEYVAL_PRINTF ("font-weight", "%d", weight);
break;
}
}
if ((mask & PANGO_FONT_MASK_STRETCH))
{
switch (pango_font_description_get_stretch (font_desc))
{
case PANGO_STRETCH_ULTRA_CONDENSED:
ADD_KEYVAL (FONT_STRETCH, "untra-condensed");
break;
case PANGO_STRETCH_EXTRA_CONDENSED:
ADD_KEYVAL (FONT_STRETCH, "extra-condensed");
break;
case PANGO_STRETCH_CONDENSED:
ADD_KEYVAL (FONT_STRETCH, "condensed");
break;
case PANGO_STRETCH_SEMI_CONDENSED:
ADD_KEYVAL (FONT_STRETCH, "semi-condensed");
break;
case PANGO_STRETCH_NORMAL:
ADD_KEYVAL (FONT_STRETCH, "normal");
break;
case PANGO_STRETCH_SEMI_EXPANDED:
ADD_KEYVAL (FONT_STRETCH, "semi-expanded");
break;
case PANGO_STRETCH_EXPANDED:
ADD_KEYVAL (FONT_STRETCH, "expanded");
break;
case PANGO_STRETCH_EXTRA_EXPANDED:
ADD_KEYVAL (FONT_STRETCH, "extra-expanded");
break;
case PANGO_STRETCH_ULTRA_EXPANDED:
ADD_KEYVAL (FONT_STRETCH, "untra-expanded");
break;
default:
break;
}
}
if ((mask & PANGO_FONT_MASK_SIZE))
{
gint font_size;
font_size = pango_font_description_get_size (font_desc) / PANGO_SCALE;
ADD_KEYVAL_PRINTF ("font-size", "%dpt", font_size);
}
return g_string_free (str, FALSE);
#undef ADD_KEYVAL
#undef ADD_KEYVAL_PRINTF
}