jpeg2pdf 0.12

data/jpeg2pdf.gemspec

@@ -0,0 +1,18 @@
+Gem::Specification.new do |s|
+  s.name = %q{jpeg2pdf}
+  s.version = "0.12"
+  s.date = Time.now
+  s.summary = %q{jpeg2pdf is a free program that converts a directory of JPEG files to a PDF file.}
+  s.author = %q{Koen Vervloesem}
+  s.email = %q{koen.vervloesem@myrealbox.com}
+  s.homepage = %q{http://koan.studentenweb.org/software/jpeg2pdf.html}
+  s.autorequire = %q{jpeg2pdf}
+  s.require_path = %q{lib}
+  s.default_executable = %q{jpeg2pdf}
+  s.has_rdoc = true
+  s.files = Dir.glob('**/*')
+  s.rdoc_options = ["--main", "README"]
+  s.extra_rdoc_files = ["README"]
+  s.executables = ["jpeg2pdf"]
+  s.bindir = %q{bin}
+end

data/lib/image_size.rb

@@ -0,0 +1,291 @@
+#!ruby
+
+# This is an adapted version of the image_size library to support 
+# some extra information from the JPEG file format. 
+# Additions have a comment with the word 'koan'.
+
+class ImageSize
+
+# Image Type Constants
+	module Type
+		OTHER = "OTHER"
+		GIF  = "GIF"
+		PNG  = "PNG"
+		JPEG = "JPEG"
+		BMP  = "BMP"
+		PPM  = "PPM" # PPM is like PBM, PGM, & XV
+		PBM  = "PBM"
+		PGM  = "PGM"
+#		XV   = "XV"
+		XBM  = "XBM"
+		TIFF = "TIFF"
+		XPM  = "XPM"
+		PSD  = "PSD"
+		PCX  = "PCX"
+		SWF  = "SWF"
+	end
+
+	JpegCodeCheck = [
+		"\xc0", "\xc1", "\xc2", "\xc3",
+		"\xc5", "\xc6", "\xc7",
+		"\xc9", "\xca", "\xcb",
+		"\xcd", "\xce", "\xcf",
+	]
+
+# image type list
+	def ImageSize.type_list
+		Type.constants 
+	end
+
+# receive image & make size
+# argument is image String or IO
+	def initialize(img_data, img_type = nil)
+		@img_data = img_data.dup
+		@img_wedth = nil
+		@img_height = nil
+
+		if @img_data.is_a?(IO)
+			@img_top = @img_data.read(128)
+			@img_data.seek(0, 0)
+# define Singleton-method definition to IO (byte, offset)
+			def @img_data.read_o(length = 1, offset = nil)
+				self.seek(offset, 0) if offset
+				ret = self.read(length)
+				raise "cannot read!!" unless ret
+				ret
+			end
+		elsif @img_data.is_a?(String)
+			@img_top = @img_data[0, 128]
+# define Singleton-method definition to String (byte, offset)
+			def @img_data.read_o(length = 1, offset = nil)
+				@img_offset = 0 if !(defined?(@img_offset))
+				@img_offset = offset if offset
+				ret = self[@img_offset, length]
+				@img_offset += length
+				ret
+			end
+		else
+			raise "argument class error!! #{img_data.type}"
+		end
+
+		if img_type.nil?
+			@img_type = check_type()
+		else
+			match = false
+			Type.constants.each do |t|
+				match = true if img_type == t
+			end
+			raise("img_type is failed. #{img_type}\n") if match == false
+			@img_type = img_type
+		end
+
+		eval("@img_width, @img_height = measure_" + @img_type + "()") if @img_type != Type::OTHER
+	end
+
+# get parameter
+	def get_type; @img_type; end
+	def get_height
+		if @img_type == Type::OTHER then nil else @img_height end
+	end
+	def get_width
+		if @img_type == Type::OTHER then nil else @img_width end
+	end
+
+    # koan: additions to get the precision and number of components of a JPEG file
+	def get_bpc
+		if @img_type == Type::JPEG then @img_bpc else nil end
+	end
+	def get_components
+		if @img_type == Type::JPEG then @img_components else nil end
+	end
+
+	def check_type()
+		if @img_top =~ /^GIF8[7,9]a/                      then Type::GIF
+		elsif @img_top[0, 8] == "\x89PNG\x0d\x0a\x1a\x0a" then Type::PNG
+		elsif @img_top[0, 2] == "\xFF\xD8"                then Type::JPEG
+		elsif @img_top[0, 2] == 'BM'                      then Type::BMP
+		elsif @img_top =~ /^P[1-7]/                       then Type::PPM
+		elsif @img_top =~ /\#define\s+\S+\s+\d+/          then Type::XBM
+		elsif @img_top[0, 4] == "MM\x00\x2a"              then Type::TIFF
+		elsif @img_top[0, 4] == "II\x2a\x00"              then Type::TIFF
+		elsif @img_top =~ /\/\* XPM \*\//                 then Type::XPM
+		elsif @img_top[0, 4] == "8BPS"                    then Type::PSD
+		elsif @img_top[0, 3] == "FWS"                     then Type::SWF
+		elsif @img_top[0] == 10                           then Type::PCX
+		else Type::OTHER
+		end
+	end
+	private(:check_type)
+
+	def measure_GIF()
+		@img_data.read_o(6)
+		@img_data.read_o(4).unpack('vv')
+	end
+	private(:measure_GIF)
+
+	def measure_PNG()
+		@img_data.read_o(12)
+		raise unless @img_data.read_o(4) == "IHDR"
+		@img_data.read_o(8).unpack('NN')
+	end
+	private(:measure_PNG)
+
+	def measure_JPEG()
+		c_marker = "\xFF"   # Section marker.
+		@img_data.read_o(2)
+		while(true)
+			marker, code, length = @img_data.read_o(4).unpack('aan')
+			raise "JPEG marker not found!" if marker != c_marker
+
+			if JpegCodeCheck.include?(code)
+			    # koan: additions to extract the precision (bits per component) and number of components
+				@img_bpc, height, width, @img_components = @img_data.read_o(6).unpack('CnnC')
+				return([width, height])
+			end
+			@img_data.read_o(length - 2)
+		end
+	end
+	private(:measure_JPEG)
+
+	def measure_BMP()
+		@img_data.read_o(26).unpack("x18VV");
+	end
+	private(:measure_BMP)
+
+	def measure_PPM()
+		header = @img_data.read_o(1024)
+		header.gsub!(/^\#[^\n\r]*/m, "")
+		header =~ /^(P[1-6])\s+?(\d+)\s+?(\d+)/m
+		width = $2.to_i; height = $3.to_i
+		case $1
+			when "P1", "P4" then @img_type = "PBM"
+			when "P2", "P5" then @img_type = "PGM"
+			when "P3", "P6" then @img_type = "PPM"
+#			when "P7"
+#				@img_type = "XV"
+#				header =~ /IMGINFO:(\d+)x(\d+)/m
+#				width = $1.to_i; height = $2.to_i
+		end
+		[width, height]
+	end
+	private(:measure_PPM)
+
+	alias :measure_PGM :measure_PPM
+	private(:measure_PGM)
+	alias :measure_PBM :measure_PPM
+	private(:measure_PBM)
+
+	def measure_XBM()
+		@img_data.read_o(1024) =~ /^\#define\s*\S*\s*(\d+)\s*\n\#define\s*\S*\s*(\d+)/mi
+		[$1.to_i, $2.to_i]
+	end
+	private(:measure_XBM)
+
+	def measure_XPM()
+		width = height = nil
+		while(line = @img_data.read_o(1024))
+			if line =~ /"\s*(\d+)\s+(\d+)(\s+\d+\s+\d+){1,2}\s*"/m
+				width = $1.to_i; height = $2.to_i
+				break
+			end
+		end
+		[width, height]
+	end
+	private(:measure_XPM)
+
+	def measure_PSD()
+		@img_data.read_o(26).unpack("x14NN")
+	end
+	private(:measure_PSD)
+
+	def measure_TIFF()
+		endian = if (@img_data.read_o(4) =~ /II\x2a\x00/o) then 'v' else 'n' end
+# 'v' little-endian   'n' default to big-endian
+
+		packspec = [
+			nil,           # nothing (shouldn't happen)
+			'C',           # BYTE (8-bit unsigned integer)
+			nil,           # ASCII
+			endian,        # SHORT (16-bit unsigned integer)
+			endian.upcase, # LONG (32-bit unsigned integer)
+			nil,           # RATIONAL
+			'c',           # SBYTE (8-bit signed integer)
+			nil,           # UNDEFINED
+			endian,        # SSHORT (16-bit unsigned integer)
+			endian.upcase, # SLONG (32-bit unsigned integer)
+		]
+
+		offset = @img_data.read_o(4).unpack(endian.upcase)[0] # Get offset to IFD
+
+		ifd = @img_data.read_o(2, offset)
+		num_dirent = ifd.unpack(endian)[0]                   # Make it useful
+		offset += 2
+		num_dirent = offset + (num_dirent * 12);             # Calc. maximum offset of IFD
+
+		ifd = width = height = nil
+		while(width.nil? || height.nil?)
+			ifd = @img_data.read_o(12, offset)                 # Get first directory entry
+			break if (ifd.nil? || (offset > num_dirent))
+			offset += 12
+			tag = ifd.unpack(endian)[0]                       # ...and decode its tag
+			type = ifd[2, 2].unpack(endian)[0]                # ...and the data type
+
+     # Check the type for sanity.
+			next if (type > packspec.size + 0) || (packspec[type].nil?)
+			if tag == 0x0100                                  # Decode the value
+				width = ifd[8, 4].unpack(packspec[type])[0]
+			elsif tag == 0x0101                               # Decode the value
+				height = ifd[8, 4].unpack(packspec[type])[0]
+			end
+		end
+
+		raise "#{if width.nil? then 'width not defined.' end} #{if height.nil? then 'height not defined.' end}" if width.nil? || height.nil?
+		[width, height]
+	end
+	private(:measure_TIFF)
+
+	def measure_PCX()
+		header = @img_data.read_o(128)
+		head_part = header.unpack('C4S4')
+		width = head_part[6] - head_part[4] + 1
+		height = head_part[7] - head_part[5] + 1
+		[width, height]
+	end
+	private(:measure_PCX)
+
+	def measure_SWF()
+		header = @img_data.read_o(9)
+		raise("This file is not SWF.") unless header.unpack('a3')[0] == 'FWS'
+
+		bit_length = Integer("0b#{header.unpack('@8B5')}")
+		header << @img_data.read_o(bit_length*4/8+1)
+		str = header.unpack("@8B#{5+bit_length*4}")[0]
+		last = 5
+		x_min = Integer("0b#{str[last,bit_length]}")
+		x_max = Integer("0b#{str[(last += bit_length),bit_length]}")
+		y_min = Integer("0b#{str[(last += bit_length),bit_length]}")
+		y_max = Integer("0b#{str[(last += bit_length),bit_length]}")
+		width = (x_max - x_min)/20
+		height = (y_max - y_min)/20
+		[width, height]
+	end
+	private(:measure_PCX)
+end
+
+
+if __FILE__ == $0
+	print "TypeList: #{ImageSize.type.inspect}\n"
+
+	Dir.glob("*").each do |file|
+		print "#{file} (string)\n"
+		open(file, "rb") do |fh|
+			img = ImageSize.new(fh.read)
+			print <<-EOF
+type:   #{img.get_type.inspect}
+width:  #{img.get_width.inspect}
+height: #{img.get_height.inspect}
+			EOF
+		end
+	end
+end
+

data/lib/jpeg2pdf.rb

@@ -0,0 +1,84 @@
+# License
+#
+#   Copyright (c) 2004 Koen Vervloesem. All rights reserved.
+#
+#   Permission is hereby granted, free of charge, to any person obtaining
+#   a copy of this software and associated documentation files (the
+#   "Software"), to deal in the Software without restriction, including
+#   without limitation the rights to use, copy, modify, merge, publish,
+#   distribute, and/or sell copies of the Software, and to permit persons
+#   to whom the Software is furnished to do so, provided that the above
+#   copyright notice(s) and this permission notice appear in all copies of
+#   the Software and that both the above copyright notice(s) and this
+#   permission notice appear in supporting documentation.
+#
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
+#   OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
+#   HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY
+#   SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER
+#   RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+#   CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
+#   CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+#
+#   Except as contained in this notice, the name of a copyright holder
+#   shall not be used in advertising or otherwise to promote the sale, use
+#   or other dealings in this Software without prior written authorization
+#   of the copyright holder.
+
+require 'rpdf'
+require 'image_size'
+
+class JPEG2PDF
+  include RPDF
+
+  def initialize(pdf)
+    @doc = Document.new(pdf)
+    @imagenumber = 0
+  end
+
+  def add_jpeg(filename)
+    jpegfile = File.open(filename)
+    imagedata = jpegfile.read
+    jpegfile.close
+    size = ImageSize.new(imagedata)
+    if(size.get_type == 'JPEG')
+      width = size.get_width
+      height = size.get_height
+      bpc = size.get_bpc
+      components = size.get_components
+      if components == 1
+        colorspace = :DeviceGray
+      elsif components == 3
+        colorspace = :DeviceRGB
+      elsif components == 4
+        colorspace = :DeviceCMYK
+      else
+        raise Exception.new("Unsupported colorspace in image #{filename}")
+      end
+
+      imagestream = PDFStream.new(imagedata, @doc)
+      imagestream.dict[:Filter] = [:DCTDecode]
+      imagestream.dict[:Name] = "Image#{@imagenumber}".intern
+
+      imagedictionary = ImageDictionary.new(width, height, colorspace, bpc)
+      imagestream.dict.update(imagedictionary)
+	  imagestream.invalidate # write jpeg as soon as possible
+
+      page = Page.new(@doc, @doc.pagetree)
+      page[:MediaBox] = [0, 0, width, height]
+      page[:Resources] = { :XObject => { "Image#{@imagenumber}".intern => imagestream } }
+
+      contentstream = PDFStream.new("q\n#{width} 0 0 #{height} 0 0 cm\n/Image#{@imagenumber} Do\nQ", @doc)
+
+      page[:Contents] = contentstream
+      @imagenumber = @imagenumber + 1
+    end
+  end
+
+  def close
+    @doc.close_pdf
+  end
+
+end

data/lib/rpdf.rb

@@ -0,0 +1,48 @@
+# License
+#
+#   Copyright (c) 2004 Koen Vervloesem. All rights reserved.
+#
+#   Permission is hereby granted, free of charge, to any person obtaining
+#   a copy of this software and associated documentation files (the
+#   "Software"), to deal in the Software without restriction, including
+#   without limitation the rights to use, copy, modify, merge, publish,
+#   distribute, and/or sell copies of the Software, and to permit persons
+#   to whom the Software is furnished to do so, provided that the above
+#   copyright notice(s) and this permission notice appear in all copies of
+#   the Software and that both the above copyright notice(s) and this
+#   permission notice appear in supporting documentation.
+#
+#   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+#   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+#   MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
+#   OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR
+#   HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR ANY
+#   SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER
+#   RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+#   CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
+#   CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+#
+#   Except as contained in this notice, the name of a copyright holder
+#   shall not be used in advertising or otherwise to promote the sale, use
+#   or other dealings in this Software without prior written authorization
+#   of the copyright holder.
+
+require 'rpdf/document'
+require 'rpdf/documentcatalog'
+require 'rpdf/imagedictionary'
+require 'rpdf/page'
+require 'rpdf/pagetree'
+require 'rpdf/pdfarray'
+require 'rpdf/pdfboolean'
+require 'rpdf/pdfdictionary'
+require 'rpdf/pdfinteger'
+require 'rpdf/pdfname'
+require 'rpdf/pdfnull'
+require 'rpdf/pdfnumeric'
+require 'rpdf/pdfobject'
+require 'rpdf/pdfstream'
+require 'rpdf/pdfstring'
+require 'rpdf/rectangle'
+require 'rpdf/trailer'
+require 'rpdf/util'
+require 'rpdf/version'

data/lib/rpdf/crossreftable.rb

@@ -0,0 +1,33 @@
+module RPDF
+
+  # Cross-Reference Table
+  # This implementation uses only one cross-reference section
+  # and no free entries.
+  # [PDFRef15 p69]
+  class CrossRefTable
+
+    def initialize
+      @hash = Hash.new
+    end
+
+    def addUsedEntry(position, objectnumber)
+      @hash[objectnumber] = position
+    end
+
+    def size
+      @hash.size + 1
+    end
+
+    def to_pdf
+      bytes = "xref\n"
+      bytes << "0 #{size}\n"
+      bytes << "0000000000 65535 f \n"
+      @hash.keys.sort.each { |objectnumber|
+        bytes << ("%010d" % @hash[objectnumber]) << " 00000 n \n"
+      }
+      bytes << "\n"
+    end
+
+  end
+
+end