From 3c57dd931145d43f2b0aef96c4d178135956bf91 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Fri, 19 Apr 2024 05:13:10 +0200 Subject: Adding upstream version 2.10.36. Signed-off-by: Daniel Baumann --- libgimpconfig/gimpscanner.c | 871 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 871 insertions(+) create mode 100644 libgimpconfig/gimpscanner.c (limited to 'libgimpconfig/gimpscanner.c') diff --git a/libgimpconfig/gimpscanner.c b/libgimpconfig/gimpscanner.c new file mode 100644 index 0000000..8f65d08 --- /dev/null +++ b/libgimpconfig/gimpscanner.c @@ -0,0 +1,871 @@ +/* LIBGIMP - The GIMP Library + * Copyright (C) 1995 Spencer Kimball and Peter Mattis + * + * gimpscanner.c + * Copyright (C) 2002 Sven Neumann + * Michael Natterer + * + * 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 3 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 Lesser General Public + * License along with this library. If not, see + * . + */ + +#include "config.h" + +#include +#include + +#include +#include +#include + +#include "libgimpbase/gimpbase.h" +#include "libgimpcolor/gimpcolor.h" +#include "libgimpmath/gimpmath.h" + +#include "gimpconfig-error.h" +#include "gimpscanner.h" + +#include "libgimp/libgimp-intl.h" + + +/** + * SECTION: gimpscanner + * @title: GimpScanner + * @short_description: A wrapper around #GScanner with some convenience API. + * + * A wrapper around #GScanner with some convenience API. + **/ + + +typedef struct +{ + gchar *name; + GMappedFile *mapped; + gchar *text; + GError **error; +} GimpScannerData; + + +/* local function prototypes */ + +static GScanner * gimp_scanner_new (const gchar *name, + GMappedFile *mapped, + gchar *text, + GError **error); +static void gimp_scanner_message (GScanner *scanner, + gchar *message, + gboolean is_error); + + +/* public functions */ + +/** + * gimp_scanner_new_file: + * @filename: + * @error: + * + * Return value: + * + * Since: 2.4 + **/ +GScanner * +gimp_scanner_new_file (const gchar *filename, + GError **error) +{ + GScanner *scanner; + GFile *file; + + g_return_val_if_fail (filename != NULL, NULL); + g_return_val_if_fail (error == NULL || *error == NULL, NULL); + + file = g_file_new_for_path (filename); + scanner = gimp_scanner_new_gfile (file, error); + g_object_unref (file); + + return scanner; +} + +/** + * gimp_scanner_new_gfile: + * @file: a #GFile + * @error: return location for #GError, or %NULL + * + * Return value: The new #GScanner. + * + * Since: 2.10 + **/ +GScanner * +gimp_scanner_new_gfile (GFile *file, + GError **error) +{ + GScanner *scanner; + gchar *path; + + g_return_val_if_fail (G_IS_FILE (file), NULL); + g_return_val_if_fail (error == NULL || *error == NULL, NULL); + + path = g_file_get_path (file); + + if (path) + { + GMappedFile *mapped; + + mapped = g_mapped_file_new (path, FALSE, error); + g_free (path); + + if (! mapped) + { + if (error) + { + (*error)->domain = GIMP_CONFIG_ERROR; + (*error)->code = ((*error)->code == G_FILE_ERROR_NOENT ? + GIMP_CONFIG_ERROR_OPEN_ENOENT : + GIMP_CONFIG_ERROR_OPEN); + } + + return NULL; + } + + /* gimp_scanner_new() takes a "name" for the scanner, not a filename */ + scanner = gimp_scanner_new (gimp_file_get_utf8_name (file), + mapped, NULL, error); + + g_scanner_input_text (scanner, + g_mapped_file_get_contents (mapped), + g_mapped_file_get_length (mapped)); + } + else + { + GInputStream *input; + + input = G_INPUT_STREAM (g_file_read (file, NULL, error)); + + if (! input) + { + if (error) + { + (*error)->domain = GIMP_CONFIG_ERROR; + (*error)->code = ((*error)->code == G_IO_ERROR_NOT_FOUND ? + GIMP_CONFIG_ERROR_OPEN_ENOENT : + GIMP_CONFIG_ERROR_OPEN); + } + + return NULL; + } + + g_object_set_data (G_OBJECT (input), "gimp-data", file); + + scanner = gimp_scanner_new_stream (input, error); + + g_object_unref (input); + } + + return scanner; +} + +/** + * gimp_scanner_new_stream: + * @input: a #GInputStream + * @error: return location for #GError, or %NULL + * + * Return value: The new #GScanner. + * + * Since: 2.10 + **/ +GScanner * +gimp_scanner_new_stream (GInputStream *input, + GError **error) +{ + GScanner *scanner; + GFile *file; + const gchar *path; + GString *string; + gchar buffer[4096]; + gsize bytes_read; + + g_return_val_if_fail (G_IS_INPUT_STREAM (input), NULL); + g_return_val_if_fail (error == NULL || *error == NULL, NULL); + + file = g_object_get_data (G_OBJECT (input), "gimp-file"); + if (file) + path = gimp_file_get_utf8_name (file); + else + path = "stream"; + + string = g_string_new (NULL); + + do + { + GError *my_error = NULL; + gboolean success; + + success = g_input_stream_read_all (input, buffer, sizeof (buffer), + &bytes_read, NULL, &my_error); + + if (bytes_read > 0) + g_string_append_len (string, buffer, bytes_read); + + if (! success) + { + if (string->len > 0) + { + g_printerr ("%s: read error in '%s', trying to scan " + "partial content: %s", + G_STRFUNC, path, my_error->message); + g_clear_error (&my_error); + break; + } + + g_string_free (string, TRUE); + + g_propagate_error (error, my_error); + + return NULL; + } + } + while (bytes_read == sizeof (buffer)); + + /* gimp_scanner_new() takes a "name" for the scanner, not a filename */ + scanner = gimp_scanner_new (path, NULL, string->str, error); + + bytes_read = string->len; + + g_scanner_input_text (scanner, g_string_free (string, FALSE), bytes_read); + + return scanner; +} + +/** + * gimp_scanner_new_string: + * @text: + * @text_len: + * @error: + * + * Return value: + * + * Since: 2.4 + **/ +GScanner * +gimp_scanner_new_string (const gchar *text, + gint text_len, + GError **error) +{ + GScanner *scanner; + + g_return_val_if_fail (text != NULL || text_len <= 0, NULL); + g_return_val_if_fail (error == NULL || *error == NULL, NULL); + + if (text_len < 0) + text_len = text ? strlen (text) : 0; + + scanner = gimp_scanner_new (NULL, NULL, NULL, error); + + g_scanner_input_text (scanner, text, text_len); + + return scanner; +} + +static GScanner * +gimp_scanner_new (const gchar *name, + GMappedFile *mapped, + gchar *text, + GError **error) +{ + GScanner *scanner; + GimpScannerData *data; + + scanner = g_scanner_new (NULL); + + data = g_slice_new0 (GimpScannerData); + + data->name = g_strdup (name); + data->mapped = mapped; + data->text = text; + data->error = error; + + scanner->user_data = data; + scanner->msg_handler = gimp_scanner_message; + + scanner->config->cset_identifier_first = ( G_CSET_a_2_z G_CSET_A_2_Z ); + scanner->config->cset_identifier_nth = ( G_CSET_a_2_z G_CSET_A_2_Z + G_CSET_DIGITS "-_" ); + scanner->config->scan_identifier_1char = TRUE; + + scanner->config->store_int64 = TRUE; + + return scanner; +} + +/** + * gimp_scanner_destroy: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * + * Since: 2.4 + **/ +void +gimp_scanner_destroy (GScanner *scanner) +{ + GimpScannerData *data; + + g_return_if_fail (scanner != NULL); + + data = scanner->user_data; + + if (data->mapped) + g_mapped_file_unref (data->mapped); + + if (data->text) + g_free (data->text); + + g_free (data->name); + g_slice_free (GimpScannerData, data); + + g_scanner_destroy (scanner); +} + +/** + * gimp_scanner_parse_token: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @token: the #GTokenType expected as next token. + * + * Return value: %TRUE if the next token is @token, %FALSE otherwise. + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_token (GScanner *scanner, + GTokenType token) +{ + if (g_scanner_peek_next_token (scanner) != token) + return FALSE; + + g_scanner_get_next_token (scanner); + + return TRUE; +} + +/** + * gimp_scanner_parse_identifier: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @identifier: the expected identifier. + * + * Return value: %TRUE if the next token is an identifier and if its + * value matches @identifier. + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_identifier (GScanner *scanner, + const gchar *identifier) +{ + if (g_scanner_peek_next_token (scanner) != G_TOKEN_IDENTIFIER) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (strcmp (scanner->value.v_identifier, identifier)) + return FALSE; + + return TRUE; +} + +/** + * gimp_scanner_parse_string: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Return location for the parsed string + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_string (GScanner *scanner, + gchar **dest) +{ + if (g_scanner_peek_next_token (scanner) != G_TOKEN_STRING) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (*scanner->value.v_string) + { + if (! g_utf8_validate (scanner->value.v_string, -1, NULL)) + { + g_scanner_warn (scanner, _("invalid UTF-8 string")); + return FALSE; + } + + *dest = g_strdup (scanner->value.v_string); + } + else + { + *dest = NULL; + } + + return TRUE; +} + +/** + * gimp_scanner_parse_string_no_validate: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Return location for the parsed string + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_string_no_validate (GScanner *scanner, + gchar **dest) +{ + if (g_scanner_peek_next_token (scanner) != G_TOKEN_STRING) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (*scanner->value.v_string) + *dest = g_strdup (scanner->value.v_string); + else + *dest = NULL; + + return TRUE; +} + +/** + * gimp_scanner_parse_data: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @length: Length of the data to parse + * @dest: Return location for the parsed data + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_data (GScanner *scanner, + gint length, + guint8 **dest) +{ + if (g_scanner_peek_next_token (scanner) != G_TOKEN_STRING) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (scanner->value.v_string) + *dest = g_memdup (scanner->value.v_string, length); + else + *dest = NULL; + + return TRUE; +} + +/** + * gimp_scanner_parse_int: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Return location for the parsed integer + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_int (GScanner *scanner, + gint *dest) +{ + gboolean negate = FALSE; + + if (g_scanner_peek_next_token (scanner) == '-') + { + negate = TRUE; + g_scanner_get_next_token (scanner); + } + + if (g_scanner_peek_next_token (scanner) != G_TOKEN_INT) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (negate) + *dest = -scanner->value.v_int64; + else + *dest = scanner->value.v_int64; + + return TRUE; +} + +/** + * gimp_scanner_parse_int64: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Return location for the parsed integer + * + * Return value: %TRUE on success + * + * Since: 2.8 + **/ +gboolean +gimp_scanner_parse_int64 (GScanner *scanner, + gint64 *dest) +{ + gboolean negate = FALSE; + + if (g_scanner_peek_next_token (scanner) == '-') + { + negate = TRUE; + g_scanner_get_next_token (scanner); + } + + if (g_scanner_peek_next_token (scanner) != G_TOKEN_INT) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (negate) + *dest = -scanner->value.v_int64; + else + *dest = scanner->value.v_int64; + + return TRUE; +} + +/** + * gimp_scanner_parse_float: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Return location for the parsed float + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_float (GScanner *scanner, + gdouble *dest) +{ + gboolean negate = FALSE; + + if (g_scanner_peek_next_token (scanner) == '-') + { + negate = TRUE; + g_scanner_get_next_token (scanner); + } + + if (g_scanner_peek_next_token (scanner) == G_TOKEN_FLOAT) + { + g_scanner_get_next_token (scanner); + + if (negate) + *dest = -scanner->value.v_float; + else + *dest = scanner->value.v_float; + + return TRUE; + } + else if (g_scanner_peek_next_token (scanner) == G_TOKEN_INT) + { + g_scanner_get_next_token (scanner); + + if (negate) + *dest = -scanner->value.v_int; + else + *dest = scanner->value.v_int; + + return TRUE; + } + + return FALSE; +} + +/** + * gimp_scanner_parse_boolean: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Return location for the parsed boolean + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_boolean (GScanner *scanner, + gboolean *dest) +{ + if (g_scanner_peek_next_token (scanner) != G_TOKEN_IDENTIFIER) + return FALSE; + + g_scanner_get_next_token (scanner); + + if (! g_ascii_strcasecmp (scanner->value.v_identifier, "yes") || + ! g_ascii_strcasecmp (scanner->value.v_identifier, "true")) + { + *dest = TRUE; + } + else if (! g_ascii_strcasecmp (scanner->value.v_identifier, "no") || + ! g_ascii_strcasecmp (scanner->value.v_identifier, "false")) + { + *dest = FALSE; + } + else + { + g_scanner_error + (scanner, + /* please don't translate 'yes' and 'no' */ + _("expected 'yes' or 'no' for boolean token, got '%s'"), + scanner->value.v_identifier); + + return FALSE; + } + + return TRUE; +} + +enum +{ + COLOR_RGB = 1, + COLOR_RGBA, + COLOR_HSV, + COLOR_HSVA +}; + +/** + * gimp_scanner_parse_color: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Pointer to a color to store the result + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_color (GScanner *scanner, + GimpRGB *dest) +{ + guint scope_id; + guint old_scope_id; + GTokenType token; + GimpRGB color = { 0.0, 0.0, 0.0, 1.0 }; + + scope_id = g_quark_from_static_string ("gimp_scanner_parse_color"); + old_scope_id = g_scanner_set_scope (scanner, scope_id); + + if (! g_scanner_scope_lookup_symbol (scanner, scope_id, "color-rgb")) + { + g_scanner_scope_add_symbol (scanner, scope_id, + "color-rgb", GINT_TO_POINTER (COLOR_RGB)); + g_scanner_scope_add_symbol (scanner, scope_id, + "color-rgba", GINT_TO_POINTER (COLOR_RGBA)); + g_scanner_scope_add_symbol (scanner, scope_id, + "color-hsv", GINT_TO_POINTER (COLOR_HSV)); + g_scanner_scope_add_symbol (scanner, scope_id, + "color-hsva", GINT_TO_POINTER (COLOR_HSVA)); + } + + token = G_TOKEN_LEFT_PAREN; + + while (g_scanner_peek_next_token (scanner) == token) + { + token = g_scanner_get_next_token (scanner); + + switch (token) + { + case G_TOKEN_LEFT_PAREN: + token = G_TOKEN_SYMBOL; + break; + + case G_TOKEN_SYMBOL: + { + gdouble col[4] = { 0.0, 0.0, 0.0, 1.0 }; + gint n_channels = 4; + gboolean is_hsv = FALSE; + gint i; + + switch (GPOINTER_TO_INT (scanner->value.v_symbol)) + { + case COLOR_RGB: + n_channels = 3; + /* fallthrough */ + case COLOR_RGBA: + break; + + case COLOR_HSV: + n_channels = 3; + /* fallthrough */ + case COLOR_HSVA: + is_hsv = TRUE; + break; + } + + token = G_TOKEN_FLOAT; + + for (i = 0; i < n_channels; i++) + { + if (! gimp_scanner_parse_float (scanner, &col[i])) + goto finish; + } + + if (is_hsv) + { + GimpHSV hsv; + + gimp_hsva_set (&hsv, col[0], col[1], col[2], col[3]); + gimp_hsv_to_rgb (&hsv, &color); + } + else + { + gimp_rgba_set (&color, col[0], col[1], col[2], col[3]); + } + + token = G_TOKEN_RIGHT_PAREN; + } + break; + + case G_TOKEN_RIGHT_PAREN: + token = G_TOKEN_NONE; /* indicates success */ + goto finish; + + default: /* do nothing */ + break; + } + } + + finish: + + if (token != G_TOKEN_NONE) + { + g_scanner_get_next_token (scanner); + g_scanner_unexp_token (scanner, token, NULL, NULL, NULL, + _("fatal parse error"), TRUE); + } + else + { + *dest = color; + } + + g_scanner_set_scope (scanner, old_scope_id); + + return (token == G_TOKEN_NONE); +} + +/** + * gimp_scanner_parse_matrix2: + * @scanner: A #GScanner created by gimp_scanner_new_file() or + * gimp_scanner_new_string() + * @dest: Pointer to a matrix to store the result + * + * Return value: %TRUE on success + * + * Since: 2.4 + **/ +gboolean +gimp_scanner_parse_matrix2 (GScanner *scanner, + GimpMatrix2 *dest) +{ + guint scope_id; + guint old_scope_id; + GTokenType token; + GimpMatrix2 matrix; + + scope_id = g_quark_from_static_string ("gimp_scanner_parse_matrix"); + old_scope_id = g_scanner_set_scope (scanner, scope_id); + + if (! g_scanner_scope_lookup_symbol (scanner, scope_id, "matrix")) + g_scanner_scope_add_symbol (scanner, scope_id, + "matrix", GINT_TO_POINTER (0)); + + token = G_TOKEN_LEFT_PAREN; + + while (g_scanner_peek_next_token (scanner) == token) + { + token = g_scanner_get_next_token (scanner); + + switch (token) + { + case G_TOKEN_LEFT_PAREN: + token = G_TOKEN_SYMBOL; + break; + + case G_TOKEN_SYMBOL: + { + token = G_TOKEN_FLOAT; + + if (! gimp_scanner_parse_float (scanner, &matrix.coeff[0][0])) + goto finish; + if (! gimp_scanner_parse_float (scanner, &matrix.coeff[0][1])) + goto finish; + if (! gimp_scanner_parse_float (scanner, &matrix.coeff[1][0])) + goto finish; + if (! gimp_scanner_parse_float (scanner, &matrix.coeff[1][1])) + goto finish; + + token = G_TOKEN_RIGHT_PAREN; + } + break; + + case G_TOKEN_RIGHT_PAREN: + token = G_TOKEN_NONE; /* indicates success */ + goto finish; + + default: /* do nothing */ + break; + } + } + + finish: + + if (token != G_TOKEN_NONE) + { + g_scanner_get_next_token (scanner); + g_scanner_unexp_token (scanner, token, NULL, NULL, NULL, + _("fatal parse error"), TRUE); + } + else + { + *dest = matrix; + } + + g_scanner_set_scope (scanner, old_scope_id); + + return (token == G_TOKEN_NONE); +} + + +/* private functions */ + +static void +gimp_scanner_message (GScanner *scanner, + gchar *message, + gboolean is_error) +{ + GimpScannerData *data = scanner->user_data; + + /* we don't expect warnings */ + g_return_if_fail (is_error); + + if (data->name) + g_set_error (data->error, GIMP_CONFIG_ERROR, GIMP_CONFIG_ERROR_PARSE, + _("Error while parsing '%s' in line %d: %s"), + data->name, scanner->line, message); + else + /* should never happen, thus not marked for translation */ + g_set_error (data->error, GIMP_CONFIG_ERROR, GIMP_CONFIG_ERROR_PARSE, + "Error parsing internal buffer: %s", message); +} -- cgit v1.2.3