callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-09-08 22:31:54 +00:00
parent 743049def2
commit 720450826d
6 changed files with 49 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Changes
View File

@ -1,6 +1,10 @@
Revision history for Gimp-Perl extension. Revision history for Gimp-Perl extension.
1.13 Wed Sep 8 02:55:43 CEST 1999
- removed some glib-1.1 compatibility cruft. - removed some glib-1.1 compatibility cruft.
- gimpdocs troff output did not include the description.
- allow NULL strings in arrays to be returned as undef.
- gimpdoc now outputs the menupath and other info as well.
1.12 Tue Aug 24 19:30:29 CEST 1999 1.12 Tue Aug 24 19:30:29 CEST 1999
- do not emit warning for function names prefixed with "+". - do not emit warning for function names prefixed with "+".

3
plug-ins/perl/Gimp.pm
View File

@ -12,7 +12,8 @@ use subs qw(init end lock unlock canonicalize_color);
require DynaLoader; require DynaLoader;
@ISA=qw(DynaLoader); @ISA=qw(DynaLoader);
$VERSION = 1.12;
$VERSION = 1.13;
@_param = qw( @_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE

7
plug-ins/perl/Gimp/Lib.xs
View File

@ -772,7 +772,7 @@ static int check_int (char *croak_str, SV *sv)
} }
/* replacement newSVpv with only one argument. */ /* replacement newSVpv with only one argument. */
#define neuSVpv(arg) newSVpv((arg),0) #define neuSVpv(arg) ((arg) ? newSVpv((arg),0) : newSVsv (&PL_sv_undef))
/* replacement newSViv which casts to unsigned char. */ /* replacement newSViv which casts to unsigned char. */
#define newSVu8(arg) newSViv((unsigned char)(arg)) #define newSVu8(arg) newSViv((unsigned char)(arg))
@ -806,10 +806,7 @@ push_gimp_sv (GParam *arg, int array_as_ref)
case PARAM_INT16: sv = newSViv(arg->data.d_int16 ); break; case PARAM_INT16: sv = newSViv(arg->data.d_int16 ); break;
case PARAM_INT8: sv = newSVu8(arg->data.d_int8 ); break; case PARAM_INT8: sv = newSVu8(arg->data.d_int8 ); break;
case PARAM_FLOAT: sv = newSVnv(arg->data.d_float ); break; case PARAM_FLOAT: sv = newSVnv(arg->data.d_float ); break;
case PARAM_STRING: case PARAM_STRING: sv = neuSVpv(arg->data.d_string ); break;
sv = arg->data.d_string ? neuSVpv(arg->data.d_string)
: newSVsv (&PL_sv_undef);
break;
case PARAM_DISPLAY: case PARAM_DISPLAY:
case PARAM_IMAGE: case PARAM_IMAGE:

4
plug-ins/perl/Makefile.PL
View File

@ -15,10 +15,6 @@ $|=1;
logulator miff gimpmagick guide_remove guides_to_selection burst map_to_gradient logulator miff gimpmagick guide_remove guides_to_selection burst map_to_gradient
fire povray fire povray
); );
@shebang = (map("examples/$_",@examples),
qw(Perl-Server examples/example-net.pl examples/homepage-logo.pl
examples/example-fu.pl examples/example-oo.pl
));
if ($ARGV[0] ne "--writemakefile") { if ($ARGV[0] ne "--writemakefile") {
for(@ARGV) { for(@ARGV) {

1
plug-ins/perl/TODO
View File

@ -18,6 +18,7 @@ script-fu 4.9 vs. 3.3
bugs bugs
* update frosty-logo.scm t-o-p-logo.scm starscape-logo.scm starburst-logo.scm
* installation & Feature system (?) * installation & Feature system (?)
* map_to_gradient does not work on GRAYA thingies. Argh. * map_to_gradient does not work on GRAYA thingies. Argh.
[DONE] * /root/gimprelease && TODO -> publish! PUSH PUSH [DONE] * /root/gimprelease && TODO -> publish! PUSH PUSH

49
plug-ins/perl/gimpdoc
View File

@ -4,7 +4,7 @@ use Gimp qw(:consts spawn_options=no-data);
use Getopt::Std; use Getopt::Std;
#use Config '%Config'; #use Config '%Config';
$VERSION=$Gimp::VERSION; $VERSION=2.0;
getopts('rw:'); getopts('rw:');
@ -17,7 +17,7 @@ Usage: $me [-r] [-w dir] function...
Options: Options:
-r print raw tbl|nroff source. -r print raw tbl|nroff source.
-w dir create html (use prefix dir when wriign out files) -w dir create html (use prefix dir when writing out files)
EOF EOF
exit(1); exit(1);
@ -65,8 +65,25 @@ sub type2str {
: "UNKNOWN($_[0])"; : "UNKNOWN($_[0])";
} }
my %plugin_info;
#'extension_db_browser' => ARRAY(0x8290e98)
# 0 '<Toolbox>/Xtns/DB Browser'
# 1 undef
# 2 '/usr/app/lib/gimp/1.1/plug-ins/dbbrowser'
# 3 ''
# 4 936739664
sub get_plugininfo {
eval {
my ($a, $b, $c, $d, $e, $f) = Gimp->plugins_query("");
for $i (0..$#$a) {
$plugin_info{$f->[$i]} = [map $_->[$i], $a, $b, $c, $d, $e];
}
}
}
sub format_html { sub format_html {
$created_by = "<br><hr><font size=-1>This page was created by <tt>gimpdoc</tt>, written by". $created_by = "<br><hr><font size=-1>This page was created by <tt>gimpdoc</tt>, written by ".
"<a href=\"mailto:pcg\@goof.com\">Marc Lehmann &lt;pcg\@goof.com&gt;</a></font>"; "<a href=\"mailto:pcg\@goof.com\">Marc Lehmann &lt;pcg\@goof.com&gt;</a></font>";
$nbsp = "&nbsp;"; $nbsp = "&nbsp;";
($b1,$b0)=('<b>','</b>'); ($b1,$b0)=('<b>','</b>');
@ -79,6 +96,9 @@ EOF
$tr = "<tr>"; $tr = "<tr>";
$tend = "</table>"; $tend = "</table>";
$body = '<body text="#000000" link="#1010c0" vlink="#101080" alink="#ff0000" bgcolor="#ffffff">'; $body = '<body text="#000000" link="#1010c0" vlink="#101080" alink="#ff0000" bgcolor="#ffffff">';
$section = sub {
"<dt>$_[0]<dd>$_[1]";
};
$header = <<'EOF'; $header = <<'EOF';
<html><head><title>Gimp PDB documentation - $name</title>$body <html><head><title>Gimp PDB documentation - $name</title>$body
<a href=\"$prev_fun.html\">$prev_fun</a> &lt;&lt; <a href=index.html>INDEX</a> &gt;&gt; <a href=\"$prev_fun.html\">$prev_fun</a> &lt;&lt; <a href=index.html>INDEX</a> &gt;&gt;
@ -137,6 +157,9 @@ lw20 lw20 lw60.
TYPE NAME DESCRIPTION TYPE NAME DESCRIPTION
EOF EOF
$tend = "\n.TE\n"; $tend = "\n.TE\n";
$section = sub {
".SH $_[0]\n$_[1]\n";
};
$header = <<'EOF'; $header = <<'EOF';
.TH \"$name\" \"gimpdoc\" \"$date\" \"$version\" .TH \"$name\" \"gimpdoc\" \"$date\" \"$version\"
.SH NAME .SH NAME
@ -154,7 +177,7 @@ $author
EOF EOF
*escape = sub {}; *escape = sub {};
*table_line = sub { *table_line = sub {
join(" ",$_[0]." ",$_[1]." ","T{\n".$_[1]."\nT}")."\n"; join(" ",$_[0]." ",$_[1]." ","T{\n".$_[2]."\nT}")."\n";
} }
} }
@ -295,11 +318,16 @@ sub gen_desc {
my($vals,$args)=gen_va(@vals,@args); my($vals,$args)=gen_va(@vals,@args);
for ($blurb, $help, $author, $copyright, $date) { my($menu_path, $accelerator, $path, $image_types, $mtime) = @{$plugin_info{$name}};
for ($blurb, $help, $author, $copyright, $date, $menu_path, $accelerator, $path, $image_types) {
escape($_); escape($_);
} }
$r = eval "\"$header\""; $r = eval "\"$header\"";
$r .= $section->("MENUPATH", $menu_path) if $menu_path;
$r .= $section->("IMAGETYPES", $image_types) if $image_types;
$r .= $section->("ACCELERATOR", $accelerator) if $accelerator;
if ($nargs) { if ($nargs) {
$r .= "${sh1}INPUT ARGUMENTS$sh0$theader"; $r .= "${sh1}INPUT ARGUMENTS$sh0$theader";
for (@args) { for (@args) {
@ -320,10 +348,13 @@ sub gen_desc {
@alts = @alts[0..5] if @alts > 6; @alts = @alts[0..5] if @alts > 6;
$r .= "${sh1}SOME SYNTAX ALTERNATIVES$sh0". join($br, @alts). "\n"; $r .= "${sh1}SOME SYNTAX ALTERNATIVES$sh0". join($br, @alts). "\n";
} }
$r .= $section->("INSTALLATION PATH", $path) if $path;
$r .= eval "\"$trailer\""; $r .= eval "\"$trailer\"";
$r; $r;
} }
get_plugininfo;
if ($opt_w) { if ($opt_w) {
format_html; format_html;
$|=1; $|=1;
@ -338,10 +369,10 @@ if ($opt_w) {
The following pages contain a htmlified version of the <a The following pages contain a htmlified version of the <a
href="http://www.gimp.org/"><b>Gimp</b></a> PDB documentation</b>. They href="http://www.gimp.org/"><b>Gimp</b></a> PDB documentation</b>. They
were automatically generated on $today from gimp version $version, using were automatically generated on $today from $version, using the program
the program <tt>gimpdoc</tt> (part of the $version distribution). If <tt>gimpdoc</tt> (part of the $version distribution). If you have any
you have any questions please ask <a href=\"mailto:pcg\@goof.com\">Marc questions please direct them to <a href=\"mailto:pcg\@goof.com\">Marc
Lehmann &lt;pcg\@goof.com&gt;</a> Lehmann &lt;pcg\@goof.com&gt;</a>.
EOF EOF
my($listing,$head); my($listing,$head);