405 lines
12 KiB
Plaintext
405 lines
12 KiB
Plaintext
|
# PIKA - Photo and Image Kooker Application
|
||
|
|
# Copyright (C) 1995, 1996, 1997 Spencer Kimball and Peter Mattis
|
||
|
|
# Copyright (C) 1997 Josh MacDonald
|
||
|
|
|
||
|
|
# 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/>.
|
||
|
|
|
||
|
|
# "Perlized" from C source by Manish Singh <yosh@gimp.org>
|
||
|
|
|
||
|
|
sub file_load {
|
||
|
|
$blurb = 'Loads an image file by invoking the right load handler.';
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure invokes the correct file load handler using magic if
|
||
|
|
possible, and falling back on the file's extension and/or prefix if
|
||
|
|
not.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&josh_pdb_misc('1997');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'run_mode',
|
||
|
|
type => 'enum PikaRunMode (no PIKA_RUN_WITH_LAST_VALS)',
|
||
|
|
desc => 'The run mode' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file to load' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The output image' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
no_marshalling => 1,
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
PikaValueArray *new_args;
|
||
|
|
PikaValueArray *return_vals;
|
||
|
|
PikaPlugInProcedure *file_proc;
|
||
|
|
PikaProcedure *proc;
|
||
|
|
GFile *file;
|
||
|
|
gint i;
|
||
|
|
|
||
|
|
file = g_value_get_object (pika_value_array_index (args, 1));
|
||
|
|
|
||
|
|
if (! file)
|
||
|
|
return pika_procedure_get_return_values (procedure, FALSE,
|
||
|
|
error ? *error : NULL);
|
||
|
|
|
||
|
|
file_proc = pika_plug_in_manager_file_procedure_find (pika->plug_in_manager,
|
||
|
|
PIKA_FILE_PROCEDURE_GROUP_OPEN,
|
||
|
|
file, error);
|
||
|
|
|
||
|
|
if (! file_proc)
|
||
|
|
return pika_procedure_get_return_values (procedure, FALSE,
|
||
|
|
error ? *error : NULL);
|
||
|
|
|
||
|
|
proc = PIKA_PROCEDURE (file_proc);
|
||
|
|
|
||
|
|
new_args = pika_procedure_get_arguments (proc);
|
||
|
|
|
||
|
|
g_value_transform (pika_value_array_index (args, 0),
|
||
|
|
pika_value_array_index (new_args, 0));
|
||
|
|
g_value_transform (pika_value_array_index (args, 1),
|
||
|
|
pika_value_array_index (new_args, 1));
|
||
|
|
|
||
|
|
for (i = 2; i < proc->num_args; i++)
|
||
|
|
if (G_IS_PARAM_SPEC_STRING (proc->args[i]))
|
||
|
|
g_value_set_static_string (pika_value_array_index (new_args, i), "");
|
||
|
|
|
||
|
|
return_vals =
|
||
|
|
pika_pdb_execute_procedure_by_name_args (pika->pdb,
|
||
|
|
context, progress, error,
|
||
|
|
pika_object_get_name (proc),
|
||
|
|
new_args);
|
||
|
|
|
||
|
|
pika_value_array_unref (new_args);
|
||
|
|
|
||
|
|
if (g_value_get_enum (pika_value_array_index (return_vals, 0)) ==
|
||
|
|
PIKA_PDB_SUCCESS)
|
||
|
|
{
|
||
|
|
if (pika_value_array_length (return_vals) > 1 &&
|
||
|
|
PIKA_VALUE_HOLDS_IMAGE (pika_value_array_index (return_vals, 1)))
|
||
|
|
{
|
||
|
|
PikaImage *image =
|
||
|
|
g_value_get_object (pika_value_array_index (return_vals, 1));
|
||
|
|
pika_image_set_load_proc (image, file_proc);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return return_vals;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub file_load_layer {
|
||
|
|
$blurb = 'Loads an image file as a layer for an existing image.';
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure behaves like the file-load procedure but opens the specified
|
||
|
|
image as a layer for an existing image. The returned layer needs to be
|
||
|
|
added to the existing image with pika_image_insert_layer().
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&neo_pdb_misc('2005', '2.4');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'run_mode',
|
||
|
|
type => 'enum PikaRunMode (no PIKA_RUN_WITH_LAST_VALS)',
|
||
|
|
desc => 'The run mode' },
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'Destination image' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file to load' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'layer', type => 'layer',
|
||
|
|
desc => 'The layer created when loading the image file' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
GList *layers;
|
||
|
|
PikaPDBStatusType status;
|
||
|
|
|
||
|
|
layers = file_open_layers (pika, context, progress,
|
||
|
|
image, FALSE,
|
||
|
|
file, run_mode, NULL, &status, error);
|
||
|
|
|
||
|
|
if (layers)
|
||
|
|
{
|
||
|
|
layer = layers->data;
|
||
|
|
g_list_free (layers);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub file_load_layers {
|
||
|
|
$blurb = 'Loads an image file as layers for an existing image.';
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure behaves like the file-load procedure but opens the specified
|
||
|
|
image as layers for an existing image. The returned layers needs to be
|
||
|
|
added to the existing image with pika_image_insert_layer().
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&mitch_pdb_misc('2006', '2.4');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'run_mode',
|
||
|
|
type => 'enum PikaRunMode (no PIKA_RUN_WITH_LAST_VALS)',
|
||
|
|
desc => 'The run mode' },
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'Destination image' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file to load' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'layers', type => 'layerarray',
|
||
|
|
desc => 'The list of loaded layers',
|
||
|
|
array => { name => 'num_layers',
|
||
|
|
desc => 'The number of loaded layers' } }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
GList *layer_list;
|
||
|
|
PikaPDBStatusType status;
|
||
|
|
|
||
|
|
layer_list = file_open_layers (pika, context, progress,
|
||
|
|
image, FALSE,
|
||
|
|
file, run_mode, NULL, &status, error);
|
||
|
|
|
||
|
|
if (layer_list)
|
||
|
|
{
|
||
|
|
GList *list;
|
||
|
|
gint i;
|
||
|
|
|
||
|
|
num_layers = g_list_length (layer_list);
|
||
|
|
|
||
|
|
layers = g_new (PikaLayer *, num_layers);
|
||
|
|
|
||
|
|
for (i = 0, list = layer_list;
|
||
|
|
i < num_layers;
|
||
|
|
i++, list = g_list_next (list))
|
||
|
|
{
|
||
|
|
layers[i] = g_object_ref (list->data);
|
||
|
|
}
|
||
|
|
|
||
|
|
g_list_free (layer_list);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub file_save {
|
||
|
|
$blurb = 'Saves a file by extension.';
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure invokes the correct file save handler according to the
|
||
|
|
file's extension and/or prefix.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&josh_pdb_misc('1997');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'run_mode', type => 'enum PikaRunMode',
|
||
|
|
desc => 'The run mode' },
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'Input image' },
|
||
|
|
{ name => 'drawables', type => 'itemarray',
|
||
|
|
desc => 'Drawables to save',
|
||
|
|
no_validate => 1,
|
||
|
|
array => { name => 'num_drawables',
|
||
|
|
type => '1 <= int32',
|
||
|
|
desc => "The number of drawables to save" } },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file to save the image in' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
headers => [ qw(<string.h>) ],
|
||
|
|
no_marshalling => 1,
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
PikaValueArray *new_args;
|
||
|
|
PikaValueArray *return_vals;
|
||
|
|
PikaPlugInProcedure *file_proc;
|
||
|
|
GFile *file;
|
||
|
|
PikaProcedure *proc;
|
||
|
|
gint i;
|
||
|
|
|
||
|
|
file = g_value_get_object (pika_value_array_index (args, 4));
|
||
|
|
|
||
|
|
file_proc = pika_plug_in_manager_file_procedure_find (pika->plug_in_manager,
|
||
|
|
PIKA_FILE_PROCEDURE_GROUP_SAVE,
|
||
|
|
file, NULL);
|
||
|
|
|
||
|
|
if (! file_proc)
|
||
|
|
file_proc = pika_plug_in_manager_file_procedure_find (pika->plug_in_manager,
|
||
|
|
PIKA_FILE_PROCEDURE_GROUP_EXPORT,
|
||
|
|
file, error);
|
||
|
|
|
||
|
|
if (! file_proc)
|
||
|
|
return pika_procedure_get_return_values (procedure, FALSE,
|
||
|
|
error ? *error : NULL);
|
||
|
|
|
||
|
|
proc = PIKA_PROCEDURE (file_proc);
|
||
|
|
|
||
|
|
new_args = pika_procedure_get_arguments (proc);
|
||
|
|
|
||
|
|
g_value_transform (pika_value_array_index (args, 0),
|
||
|
|
pika_value_array_index (new_args, 0));
|
||
|
|
g_value_transform (pika_value_array_index (args, 1),
|
||
|
|
pika_value_array_index (new_args, 1));
|
||
|
|
g_value_transform (pika_value_array_index (args, 2),
|
||
|
|
pika_value_array_index (new_args, 2));
|
||
|
|
g_value_transform (pika_value_array_index (args, 3),
|
||
|
|
pika_value_array_index (new_args, 3));
|
||
|
|
g_value_transform (pika_value_array_index (args, 4),
|
||
|
|
pika_value_array_index (new_args, 4));
|
||
|
|
|
||
|
|
for (i = 5; i < proc->num_args; i++)
|
||
|
|
if (G_IS_PARAM_SPEC_STRING (proc->args[i]))
|
||
|
|
g_value_set_static_string (pika_value_array_index (new_args, i), "");
|
||
|
|
|
||
|
|
return_vals =
|
||
|
|
pika_pdb_execute_procedure_by_name_args (pika->pdb,
|
||
|
|
context, progress, error,
|
||
|
|
pika_object_get_name (proc),
|
||
|
|
new_args);
|
||
|
|
|
||
|
|
pika_value_array_unref (new_args);
|
||
|
|
|
||
|
|
return return_vals;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub file_load_thumbnail {
|
||
|
|
$blurb = 'Loads the thumbnail for a file.';
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure tries to load a thumbnail that belongs to the given file.
|
||
|
|
The returned data is an array of colordepth 3 (RGB), regardless of the
|
||
|
|
image type. Width and height of the thumbnail are also returned. Don't
|
||
|
|
use this function if you need a thumbnail of an already opened image,
|
||
|
|
use pika_image_thumbnail() instead.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
$author = $copyright = 'Adam D. Moss, Sven Neumann';
|
||
|
|
$date = '1999-2003';
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file that owns the thumbnail to load' }
|
||
|
|
);
|
||
|
|
|
||
|
|
@outargs = (
|
||
|
|
{ name => 'width', type => 'int32',
|
||
|
|
desc => 'The width of the thumbnail' },
|
||
|
|
{ name => 'height', type => 'int32',
|
||
|
|
desc => 'The height of the thumbnail' },
|
||
|
|
{ name => 'thumb_data', type => 'bytes',
|
||
|
|
desc => 'The thumbnail data' }
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
GdkPixbuf *pixbuf = file_utils_load_thumbnail (file);
|
||
|
|
|
||
|
|
if (pixbuf)
|
||
|
|
{
|
||
|
|
width = gdk_pixbuf_get_width (pixbuf);
|
||
|
|
height = gdk_pixbuf_get_height (pixbuf);
|
||
|
|
thumb_data = g_bytes_new (gdk_pixbuf_get_pixels (pixbuf),
|
||
|
|
3 * width * height);
|
||
|
|
|
||
|
|
g_object_unref (pixbuf);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
success = FALSE;
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub file_save_thumbnail {
|
||
|
|
$blurb = 'Saves a thumbnail for the given image';
|
||
|
|
|
||
|
|
$help = <<'HELP';
|
||
|
|
This procedure saves a thumbnail for the given image according to the
|
||
|
|
Free Desktop Thumbnail Managing Standard. The thumbnail is saved so
|
||
|
|
that it belongs to the given file. This means you have to save the image
|
||
|
|
under this name first, otherwise this procedure will fail. This
|
||
|
|
procedure may become useful if you want to explicitly save a thumbnail
|
||
|
|
with a file.
|
||
|
|
HELP
|
||
|
|
|
||
|
|
&josh_pdb_misc('1997');
|
||
|
|
|
||
|
|
@inargs = (
|
||
|
|
{ name => 'image', type => 'image',
|
||
|
|
desc => 'The image' },
|
||
|
|
{ name => 'file', type => 'file',
|
||
|
|
desc => 'The file the thumbnail belongs to' },
|
||
|
|
);
|
||
|
|
|
||
|
|
%invoke = (
|
||
|
|
code => <<'CODE'
|
||
|
|
{
|
||
|
|
success = file_utils_save_thumbnail (image, file);
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
@headers = qw("core/pika.h"
|
||
|
|
"plug-in/pikapluginmanager-file.h"
|
||
|
|
"file/file-open.h"
|
||
|
|
"file/file-save.h"
|
||
|
|
"file/file-utils.h");
|
||
|
|
|
||
|
|
@procs = qw(file_load
|
||
|
|
file_load_layer
|
||
|
|
file_load_layers
|
||
|
|
file_save
|
||
|
|
file_load_thumbnail
|
||
|
|
file_save_thumbnail);
|
||
|
|
|
||
|
|
%exports = (app => [@procs], lib => [@procs[0..3,5]]);
|
||
|
|
|
||
|
|
$desc = 'File Operations';
|
||
|
|
$doc_title = 'pikafile';
|
||
|
|
$doc_short_desc = 'Image file operations (load, save, etc.)';
|
||
|
|
$doc_long_desc = 'Image file operations (load, save, etc.)';
|
||
|
|
|
||
|
|
1;
|
