← Back to branch summary

~valavanisalex/ubuntu/precise/inkscape/fix-943984

« back to all changes in this revision

Viewing changes to inkscape-0.47pre1/share/extensions/embed_raster_in_svg.pl

  • Committer: Bazaar Package Importer
  • Author(s): Bryce Harrington
  • Date: 2009-07-02 17:09:45 UTC
  • mfrom: (1.1.9 upstream)
  • Revision ID: james.westby@ubuntu.com-20090702170945-nn6d6zswovbwju1t
Tags: 0.47~pre1-0ubuntu1
https://launchpad.net/bugs/348842
https://launchpad.net/bugs/391149
* New upstream release.
  - Don't constrain maximization on small resolution devices (pre0)
    (LP: #348842)
  - Fixes segfault on startup (pre0)
    (LP: #391149)

Show diffs side-by-side

added added

removed removed

Lines of Context:
inkscape-0.47pre1/share/extensions/embed_raster_in_svg.pl
 
1
#!/usr/bin/perl
 
2
 
 
3
#----------------------------------------------------------------------------------------------
 
4
# embed_raster_in_svg
 
5
# B. Crowell, crowellXX at lightandmatter.com (replace XX with last two digits of current year)
 
6
# (c) 2004 B. Crowell
 
7
# This program is available under version 2 of the GPL License, http://www.gnu.org/copyleft/gpl.html,
 
8
# or, at your option, under the same license as Perl.
 
9
# For information about this program, scroll down in the source code, or invoke the program
 
10
# without any command-line arguments.
 
11
#----------------------------------------------------------------------------------------------
 
12
 
 
13
use strict;
 
14
 
 
15
use MIME::Base64;
 
16
use Cwd;
 
17
use File::Basename;
 
18
 
 
19
my $info = <<'INFO';
 
20
 usage:
 
21
    embed_raster_in_svg foo.svg
 
22
 Looks through the svg file for raster images that are given as links, rather than
 
23
 being embedded, and embeds them in the file. The links must be local URIs, and if
 
24
 they're relative, they must be relative to the directory where the svg file is located.
 
25
 Starting with Inkscape 0.41, Inkscape can
 
26
 handle embedded raster images as well as ones that are linked to (?).
 
27
 Typical input looks like this:
 
28
  <image
 
29
     xlink:href="beer.jpg"
 
30
     sodipodi:absref="/home/bcrowell/Documents/programming/embed_raster_in_svg/tests/beer.jpg"
 
31
     width="202.50000"
 
32
     height="537.00000"
 
33
     id="image1084"
 
34
     x="281.67480"
 
35
     y="242.58502" />
 
36
  The output should look like this:
 
37
   <image
 
38
     width="202.50000"
 
39
     height="537.00000"
 
40
     id="image1084"
 
41
     x="281.67480"
 
42
     y="242.58502"
 
43
     xlink:href="data:;base64,...
 
44
  The SVG standard only allows the <image> tag to refer to data of type png, jpg, or svg,
 
45
  and this script only handles png or jpg.
 
46
INFO
 
47
 
 
48
undef $/; # slurp whole file
 
49
 
 
50
my $svg = $ARGV[0];
 
51
 
 
52
if (!$svg) {
 
53
  print $info;
 
54
  exit;
 
55
}
 
56
 
 
57
die "input file $svg not found" if ! -e $svg;
 
58
die "input file $svg not readable" if ! -r $svg;
 
59
 
 
60
open(FILE,"<$svg") or die "error opening file $svg for input, $!";
 
61
my $data = <FILE>;
 
62
close FILE;
 
63
 
 
64
chdir dirname(Cwd::realpath($svg)); # so from now on, we can open raster files if they're relative to this directory
 
65
 
 
66
 
 
67
# The file is now in memory.
 
68
# First we go once through it and (1) find out if there are indeed any links to raster images,
 
69
# (2) rearrange things a little so that the (lengthy) base64 data will be the last attribute of the
 
70
# image tag.
 
71
 
 
72
my $n = 0;
 
73
my @raster_files = ();
 
74
$data =~
 
75
  s@\<image\s+((?:(?:\w|\:)+\=\"[^"]*\"\s*)*)xlink\:href=\"([^"]+)\"\s*((?:(?:\w|:)+\=\"[^"]*\"\s*)*)\/>@<imageHOBBITSES $1 $3 ITHURTSUS\"$2\"MYPRECIOUSS />@g;
 
76
while ($data=~m@<imageHOBBITSES\s*(?:(?:(?:\w|\:)+\=\"[^"]*\"\s*)*)ITHURTSUS\"([^"]+)\"MYPRECIOUSS />@g) {
 
77
  my $raster = $1;
 
78
  die "error, raster filename $raster contains a double quote" if $raster=~m/\"/;
 
79
  if (!($raster=~m/data\:\;/)) {
 
80
    ++$n;
 
81
    push @raster_files,$raster;
 
82
  }
 
83
}
 
84
 
 
85
if ($n==0) {
 
86
  print "no embedded jpgs found in file $svg\n";
 
87
  exit;
 
88
}
 
89
 
 
90
 
 
91
# Eliminate sodipodi:absref attributes. If these are present, Inkscape looks for the linked
 
92
# file, and ignores the embedded data. Also, get rid of those nasty hobbitses.
 
93
$data=~s@(<image)HOBBITSES\s*((?:(?:\w|\:)+\=\"[^"]*\"\s*)*)sodipodi\:absref\=\"[^"]+\"\s*((:?(?:\w|\:)+\=\"[^"]*\"\s*)*ITHURTSUS)@$1 $2 $3@g;
 
94
$data=~s@(<image)HOBBITSES@$1@g;
 
95
 
 
96
 
 
97
# Now embed the data:
 
98
 
 
99
foreach my $raster(@raster_files) {
 
100
  die "file $raster not found relative to directory ".getcwd() if ! -e $raster;
 
101
  die "file $raster is nor readable" if ! -r $raster;
 
102
  open(RASTER,"<$raster") or die "error opening file $raster for input, $!";
 
103
  my $raster_data = <RASTER>;
 
104
  close RASTER;
 
105
  my $type = '';
 
106
  $type='image/png' if $raster_data=~m/^\x{89}PNG/;
 
107
  $type='image/jpg' if $raster_data=~m/^\x{ff}\x{d8}/;
 
108
  die "file $raster does not appear to be of type PNG or JPG" unless $type;
 
109
  my $raster_data_base64 = encode_base64($raster_data);
 
110
  ($data =~ s@ITHURTSUS\"$raster\"MYPRECIOUSS@\n     xlink:href=\"data\:$type\;base64,$raster_data_base64\"@) or die "error embedding data for $raster";
 
111
  print "embedded raster file $raster, $type\n";
 
112
}
 
113
my $bak = "$svg.bak";
 
114
rename $svg,$bak or die "error renaming file $svg to $bak, $!";
 
115
open(FILE,">$svg") or die "error creating new version of file $svg for output, $!";
 
116
print FILE $data;
 
117
close FILE;
 
118
 
 
119
 
 
120
 
 
121
 
 
122