← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/gimp/jaunty-security

« back to all changes in this revision

Viewing changes to tools/pdbgen/pdb/misc.pdb

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Holbach
  • Date: 2007-05-02 16:33:03 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20070502163303-bvzhjzbpw8qglc4y
Tags: 2.3.16-1ubuntu1
* Resynchronized with Debian, remaining Ubuntu changes:
  - debian/rules: i18n magic.
* debian/control.in:
  - Maintainer: Ubuntu Core Developers <ubuntu-devel@lists.ubuntu.com>
* debian/patches/02_help-message.patch,
  debian/patches/03_gimp.desktop.in.in.patch,
  debian/patches/10_dont_show_wizard.patch: updated.
* debian/patches/04_composite-signedness.patch,
  debian/patches/05_add-letter-spacing.patch: dropped, used upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/pdbgen/pdb/misc.pdb
1
 
# The GIMP -- an image manipulation program
 
1
# GIMP - The GNU Image Manipulation Program
2
2
# Copyright (C) 1995 Spencer Kimball and Peter Mattis
3
3
 
4
4
# This program is free software; you can redistribute it and/or modify
18
18
# "Perlized" from C source by Manish Singh <yosh@gimp.org>
19
19
 
20
20
sub version {
21
 
    $blurb = <<'BLURB';
22
 
Returns the host gimp version.
23
 
BLURB
 
21
    $blurb = 'Returns the host GIMP version.';
24
22
 
25
23
    $help = <<'HELP';
26
 
This procedure returns the version number of the currently running gimp.
 
24
This procedure returns the version number of the currently running GIMP.
27
25
HELP
28
26
 
29
 
    $author = $copyright = 'Manish Singh';
30
 
    $date = '1999';
 
27
    &yosh_pdb_misc('1999');
31
28
 
32
29
    @outargs = (
33
30
        { name => 'version', type => 'string',
34
 
          desc => 'The gimp version',
35
 
          alias => 'g_strdup (GIMP_VERSION)', no_declare => 1 }
36
 
    );
37
 
 
38
 
    %invoke = ( headers => [ qw("libgimpbase/gimpbase.h") ] );
 
31
          desc => 'GIMP version number' }
 
32
    );
 
33
 
 
34
    %invoke = (
 
35
        headers => [ qw("libgimpbase/gimpbase.h") ],
 
36
        code    => <<'CODE'
 
37
{
 
38
  version = g_strdup (GIMP_VERSION);
 
39
}
 
40
CODE
 
41
    );
 
42
}
 
43
 
 
44
sub getpid {
 
45
    $blurb = 'Returns the PID of the host GIMP process.';
 
46
 
 
47
    $help = <<'HELP';
 
48
This procedure returns the process ID of the currently running GIMP.
 
49
HELP
 
50
 
 
51
    &mitch_pdb_misc('2005', '2.4');
 
52
 
 
53
    @outargs = (
 
54
        { name => 'pid', type => 'int32',
 
55
          desc => 'The PID' }
 
56
    );
 
57
 
 
58
    %invoke = (
 
59
        headers => [ qw(<sys/types.h> <unistd.h> <process.h>) ],
 
60
        code    => <<'CODE'
 
61
{
 
62
  pid = getpid ();
 
63
}
 
64
CODE
 
65
    );
39
66
}
40
67
 
41
68
sub quit {
42
 
    $blurb = 'Causes the gimp to exit gracefully.';
 
69
    $blurb = 'Causes GIMP to exit gracefully.';
43
70
 
44
71
    $help = <<'HELP';
45
 
The internal procedure which can either be used to make the gimp
46
 
quit. If there are unsaved images in an interactive GIMP session, the
47
 
user will be asked for confirmation. If force is TRUE, the application
48
 
is quit without querying the user to save any dirty images.
 
72
If there are unsaved images in an interactive GIMP session, the user
 
73
will be asked for confirmation. If force is TRUE, the application is
 
74
quit without querying the user to save any dirty images.
49
75
HELP
50
76
 
51
77
    &std_pdb_misc;
52
78
 
53
79
    @inargs = (
54
80
        { name => 'force', type => 'boolean',
55
 
          desc => 'Flag specifying whether to force the gimp to  or exit
56
 
                   normally' }
 
81
          desc => 'Force GIMP to quit without asking' }
57
82
    );
58
83
 
59
84
    %invoke = (
60
85
        headers => [ qw("core/gimp.h") ],
61
 
        code => 'gimp_exit (gimp, force);'
 
86
        code    => <<'CODE'
 
87
{
 
88
  gimp_exit (gimp, force);
 
89
}
 
90
CODE
62
91
    );
63
92
}
64
93
 
65
 
@procs = qw(version quit);
66
 
%exports = (app => [@procs], lib => [$procs[0]]);
 
94
 
 
95
@procs = qw(version getpid quit);
 
96
 
 
97
%exports = (app => [@procs], lib => [@procs[0..1]]);
67
98
 
68
99
$desc = 'Miscellaneous';
69
100