rghost 0.6.5

data/lib/rghost/ps/gif.ps

@@ -0,0 +1,150 @@
+%    Copyright (C) 1989, 1992, 1993, 1998 Aladdin Enterprises.  All rights reserved.
+% For more information about licensing, please refer to
+% http://www.ghostscript.com/licensing/. For information on
+% commercial licensing, go to http://www.artifex.com/licensing/ or
+% Adaptation to ruby-ghost by Shairon Toledo shairon.toledo@gmail.com
+
+/read1			% <file> read1 <int>
+ { read pop
+ } bind def
+/read2			% <file> read2 <int>
+ { dup read1 exch read1 8 bitshift add
+ } bind def
+
+/readGIFheader		% <file> readGIFheader <dict>
+ { 20 dict begin
+   dup 6 string readstring pop
+   dup (GIF87a) eq exch (GIF89a) eq or not
+    { (Not a GIF file.\n) print cleartomark stop
+    } if
+   dup read2 /Width exch def
+   dup read2 /Height exch def
+   dup read1
+   dup 128 ge /GlobalColor exch def
+   dup -4 bitshift 7 and 1 add /BitsPerPixel exch def	%***BOGUS?***
+   dup 8 and 0 ne /PaletteSorted exch def
+   7 and 1 add dup /BitsPerPixel exch def
+     1 exch bitshift /PaletteSize exch def
+   dup read1 /BackgroundIndex exch def
+   dup read1 15 add 64 div /AspectRatio exch def
+   GlobalColor
+    { PaletteSize 3 mul string readstring pop
+      /GlobalPalette exch def
+    } if
+   currentdict end
+ } bind def
+
+/readGIFimageHeader	% <file> readGIFimageHeader <dict>
+			% Note: GIF header must be on dict stack
+ { 10 dict begin
+    { dup read1
+      dup (!) 0 get ne { exit } if pop		% extension
+      dup read1 pop
+       { dup read1 dup 0 eq { pop exit } if { dup read1 pop } repeat
+       } loop
+    } loop
+   (,) 0 get ne
+    { (Not a GIF image.\n) print stop
+    } if
+   dup read2 /Left exch def
+   dup read2 /Top exch def
+   dup read2 /Width exch def
+   dup read2 /Height exch def
+   dup read1
+   dup 128 ge /LocalColor exch def
+   dup 64 and 0 ne /Interlaced exch def
+   LocalColor
+    { 7 and 1 add /BitsPerPixel exch def
+      1 BitsPerPixel bitshift 3 mul string readstring pop
+      /Palette exch def
+    }
+    { pop pop /Palette GlobalPalette def
+    }
+   ifelse
+   currentdict end
+ } bind def
+
+/imageGIF		% <imagedict> imageGIF
+ { /ImageOut where
+    { pop
+		% We know BitsPerComponent = 8, Decode = [0 255].
+		% and there is only a single data source which is
+		% either a filter or a string whose size is exactly
+		% the width of the row.
+      dup /DataSource get dup type /stringtype eq
+       { ImageOut exch writestring
+       }
+       { pop dup /Width get string
+	 1 index /Height get
+	  { 1 index /DataSource get 1 index readstring pop
+	    ImageOut exch writestring
+	  }
+	 repeat pop pop
+       }
+      ifelse 
+    }
+    { image
+    }
+   ifelse
+ } bind def
+
+/viewGIF		% <file|string> viewGIF -
+ { save 20 dict begin
+   /saved exch def
+   dup type /stringtype eq { (r) file } if
+   /F exch def
+   /ImageOutFile where { /ImageOut ImageOutFile (w) file def } if
+   F readGIFheader /Header exch def
+     currentdict Header end begin begin
+   VGIFDEBUG { Header { exch == == } forall (----------------\n) print flush } if
+   F readGIFimageHeader /ImageHeader exch def
+     currentdict ImageHeader end begin begin
+   VGIFDEBUG { ImageHeader { exch == == } forall (----------------\n) print flush } if
+   /D F
+   <<	/InitialCodeLength F read1
+	/FirstBitLowOrder true
+	/BlockData true
+	/EarlyChange 0
+   >> /LZWDecode filter def
+
+   [/Indexed /DeviceRGB 1 BitsPerPixel bitshift 1 sub Palette] setcolorspace
+   matrix currentmatrix
+   0 1 3 { 2 copy get dup 0 ne { dup abs div } if 3 copy put pop pop } for
+   setmatrix
+   
+   <<	/ImageType 1
+	/ImageMatrix [1 0 0 -1 0 Height]
+	/BitsPerComponent 8
+	/Decode [0 255]
+   Interlaced
+    {	/Width Width   /Height 1
+	/row Width string def
+	/DataSource row
+      >> /I exch def
+      /inter		% <num> <denom> inter -
+       { /denom exch def   /num exch def
+         gsave
+	 /lines Height denom 1 sub add num sub denom idiv def
+	 0 1 lines 1 sub {
+	   Height exch denom mul num add sub
+	   I /ImageMatrix get 5 3 -1 roll put
+	   D row readstring pop pop
+	   I imageGIF
+	 } for
+	 grestore
+       }
+      bind def
+      0 8 inter
+      4 8 inter
+      2 4 inter
+      1 2 inter
+    }
+    {	/Width Width   /Height Height
+     gif_params
+	/DataSource D
+      >> imageGIF
+    }
+   ifelse
+   saved end end end restore
+ } bind def
+  gsave

data/lib/rghost/ps/horizontal_line.ps

@@ -0,0 +1,3 @@
+/horizontal_line_top { exch gsave current_row row_height add moveto 0 rlineto stroke grestore } def
+/horizontal_line_middle { exch gsave current_row row_height sqrt add moveto 0 rlineto stroke grestore }def
+/horizontal_line_bottom { exch gsave current_row row_padding sub moveto 0 rlineto stroke grestore }def

data/lib/rghost/ps/i25.font

@@ -0,0 +1,103 @@
+%!PS-AdobeFont-1.0: Codei25JK 1.000
+%%CreationDate: Thu Feb 22 12:20:33 2001
+%%VMusage: 10488 6784
+%
+%   This Type 1 PostScript font implements the Code 39 bar code.
+%   Copyright (C) 2001 Jan Karrman. All rights reserved.
+%
+%   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 2 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, write to the Free Software
+%   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+%
+false
+17 dict begin
+/FontInfo 13 dict dup begin
+/version(001.000) readonly def
+/Notice(Copyright (C) 2001 Jan Karrman. All rights reserved.)readonly def
+/FullName(Interleaved 2 of 5)readonly def
+/FamilyName(Interleaved 2 of 5)readonly def
+/Weight(Normal)readonly def
+/isFixedPitch false def
+/ItalicAngle 0 def
+/UnderlinePosition -133 def
+/UnderlineThickness 20 def
+end readonly def
+/FontName /Codei25JK def
+/Encoding StandardEncoding def
+/PaintType 0 def
+/FontType 1 def
+/StrokeWidth 0 def
+/FontMatrix[0.001 0 0 0.001 0 0]readonly def
+/UniqueID 4345031 def
+/FontBBox{0 0 201 1003}readonly def
+currentdict end
+currentfile eexec
+d9d66f633b846a97b686a97e45a3d0aa0525392eecac163e584a9104d99ad0bc
+1b1f3f7121d1d0f2c60dd206b0d3c8c450620b47320ca0aeb8937511e456aade
+8e66b301b1e3e9dfe17e2f79ecfea709ff3dae19b4c169df6773eda414d02915
+a6f0faf8b24fbb0777c697be8a37d63a390ad9dae495bb7e626721ff2fd3fb14
+7c80d22beac37c2624d818d58c8df0209f5ce76acdde57a303d9042bf0a674d0
+95697f925f532d1814bea8f8a5b1fd0737f362c88e00acaed0fbd4a36e9c2a30
+8f53570cf2a0c2f3cacdcef9a65bc833ba02199166a964e544f4b7b7afeaac17
+f8e05601552604b40d45d9fa0ab5a091879bf8f22cfa7ada67b9cc14129ca45f
+a4c800e5c096889016e179a61c27f4e94f4f665fe0ffde7fa87eee002851e3da
+feb5b00e066377ebe43637036e54a7a96bffe3a5b9bb29d1139125a36291f767
+17d0083283a430a2842be99904f3160181d8007d412200a34824f478a098157d
+96002e8dea100b6b11ed62564d1084f84db72cf8246e1afc90613b4fc4857601
+a5dbf84543531f6c6b5d0843fb6f982f1a942c7fc9d041b3a1678d40e94f994c
+a2f2f27034fa69106f1adaa2dac46114af354e3143e0edd091a021eee4060880
+0bc8f236114a0a40eb6533819e15d3e4f2adacdb65329de3f7f57bc58432c12d
+3ffe9847c0797728c4d0dc106609cbcb7ec1df50872bede40f92c33b7ed57aa8
+05d58482571f8440d26d1e27d9b63bafa6d5d3a506238448dd4832d73d1ad4e1
+0656d6796a70de97442bc98689d002beb5a63e222bc8f3000d25873be21fd28c
+ddb4dfc11da7337bfbdb28714f5905c98798499a36e9bada0cdf82aefbbb9b7f
+88f5f0b5cd27b129da62afba21cc46bb3207676b96695aedbfe52b3d4e097418
+c1033dd020930229eb0888b285b72c0ef088a386cb77a060b529ff519061d665
+3e8df6c9c90f4c459352f8149cf30339daa54822c2d72a7938a76fe4bdd1becb
+4f085845d39491f9ac0256d2ea56c62cd14a0b49dedfa9b1da56c771eb30f6f3
+b26e479da0bbc92521b15ad68cad72849d651245c5ec4f62a6e5bf9897e75c31
+a1a6938f1bbf331d5432ba5eca376fd94ca1d82701e2f30aa14cef5c7609b7b8
+a5e1854cad98aa1eb4e769f964ba42ad48748fb6356a4f1b01317b3f7882b2a3
+69c6301f483dcf59ebcfcc2bd9d6fd09448d01ed1d5303950c46968954828189
+c1955f876e92acaff10ecd920b11bf0f1f75006e66fe5ff817f94ab879d80e76
+ff1cf788da1298bfb31b43aa1eb02b4ead48691c2a47df0576970140ceec8429
+a1acd7e32b7bbc152d967e4fd41cdd60d6643a6584fba4114608c6556b42a230
+7eedeaede6918d32153c448db337d539fcb0edd42cd26374e816bf38a498c651
+9e2dcf1de36ca654aa4124d577d7f47fd14be17d8c830a2bcafb0ccdfbe13d2e
+7c026ee679c3e7adab9939315238f16f7ba5a0de9a8171295c0deaa2bad1fb80
+d67f16b316cbb54d5da2b380bffaaff1d0bb3d19d19f2dab4becb387548d6d13
+326ed54154eb4040e6e7e797e18a75e5ac29d39a35490f03daf5a2da077f6f9d
+588054a06a923ebd689ff14fe3bbe917e4621145d1ddda773ec146cb259e4e72
+235d21f4b7d7fec81f27ff764f80221ce57d5b447026590da0fbd0ccba3a850e
+e76b6d6214ac21b1012afab0fd82aaf86bf0fbef01d92c7862418323581e7a6c
+96fe2ed6c5cc6aa7ee629d85ab55a9517579b847f0173eae4b5ebb54d5118af0
+9cde391674cc9ced53988dfa7c609e2eda8a7988c135c4aa9e6a41be39a192b8
+d5701ce678af5d99ad1e63d6cc276c10deb077e464bf8b8105b2c55f2ee5dbd1
+fd75d518841b85833cef602275d860
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+00000000000000000000000000000000
+cleartomark{restore}if

data/lib/rghost/ps/jpeg.ps

@@ -0,0 +1,122 @@
+% viewjpeg.ps   Copyright (C) 1994 Thomas Merz <tm@pdflib.com>
+% This software is provided AS-IS with no warranty, either express or
+% implied.
+% For more information about licensing, please refer to http://www.ghostscript.com/licensing/
+% Author's address:
+% ------------------------------+
+% {(pstack exec quit) = flush } |    Thomas Merz, Munich
+% pstack exec quit              |    voice +49/89/29160728
+% ------------------------------+    tm@muc.de  http://www.muc.de/~tm/
+%
+% Adaptation to ruby-ghost by Shairon Toledo shairon.toledo@gmail.com
+% zoom, translate and real size
+
+/languagelevel where {pop languagelevel 2 lt}{true} ifelse {
+  (JPEG needs PostScript Level 2!\n) print flush stop
+} if
+
+/JPEGdict 20 dict def
+JPEGdict begin
+
+/NoParamMarkers [	% JPEG markers without additional parameters
+    16#D0 16#D1 16#D2 16#D3 16#D4 16#D5 16#D6 16#D7 16#D8 16#01
+] def
+
+/NotSupportedMarkers [ 	% JPEG markers not supported by PostScript level 2
+    16#C3 16#C5 16#C6 16#C7 16#C8 16#C9 16#CA 16#CB 16#CD 16#CE 16#CF
+] def
+
+% Names of color spaces
+/ColorSpaceNames << /1 /DeviceGray /3 /DeviceRGB /4 /DeviceCMYK >> def
+
+% read one byte from file F
+% - ==> int --or-- stop context
+/NextByte { 
+    F read not { (Read error in ViewJPEG!\n) print flush stop } if
+} bind def
+
+/SkipSegment {	% read two bytes and skip that much data
+    NextByte 8 bitshift NextByte add 2 sub { NextByte pop } repeat
+} bind def
+
+% read width, height, and # of components from JPEG markers
+% and store in dict
+/readJPEGmarkers {	% - ==> dict --or-- stop context
+    5 dict begin
+
+    { % loop: read JPEG marker segments until we find SOFn marker or EOF
+	NextByte
+	16#FF eq {				% found marker
+	    /markertype NextByte def
+	    % Is it S0F0=baseline, SOF1=extended sequential, SOF2=progressive ?
+	    markertype dup 16#C0 ge exch 16#C2 le and {
+		NextByte pop NextByte pop	% segment length
+		% Ghostscript and Adobe PS accept only data precision 8
+		NextByte 8 ne {
+		    (Error: not 8 bits per component!\n) print flush stop 
+		} if
+
+		% Read crucial image parameters
+		/height NextByte 8 bitshift NextByte add def
+		/width NextByte 8 bitshift NextByte add def
+		/colors NextByte def
+
+		VJPGDEBUG { currentdict { exch == == } forall flush } if
+		exit
+	    } if
+
+	    % detect several segment types which are not compatible with PS
+	    NotSupportedMarkers {
+		markertype eq {
+		    (Marker ) print markertype == 
+		    (not supported!\n) print flush stop
+		} if 
+	    } forall 
+
+	    % Skip segment if marker has parameters associated with it
+	    true NoParamMarkers { markertype eq {pop false exit} if } forall 
+	    { SkipSegment } if
+	} if
+    } loop
+
+    currentdict dup /markertype undef
+    end
+} bind def
+
+end	% JPEGdict
+
+% read image parameters from JPEG file and display the image
+/viewJPEG {		% <file|string> ==> -
+   
+    save 
+    JPEGdict begin
+    /saved exch def
+    /scratch 1 string def
+    dup type /stringtype eq { (r) file } if
+    /F exch def
+
+    readJPEGmarkers begin
+    F 0 setfileposition		% reset file pointer
+    width zoom mul height zoom mul scale
+    
+    % use whole width or height, whichever is appropriate
+    ColorSpaceNames colors scratch cvs get setcolorspace
+
+    % prepare image dictionary
+    << /ImageType 1
+       /Width width
+       /Height height
+       /ImageMatrix [ width 0 0 height neg 0 height ]
+       /BitsPerComponent 8
+       % If 4-component (CMYK), assume data is inverted per Adobe Photoshop
+       colors 4 eq {
+         /Decode [ colors { 1 0 } repeat ]
+       } {
+         /Decode [ colors { 0 1 } repeat ]
+       } ifelse
+       /DataSource F /DCTDecode filter
+    >> image
+    end		% image parameter dictionary
+    saved end restore
+} bind def
+

data/lib/rghost/ps/paper.ps

@@ -0,0 +1,8 @@
+2 dict dup /PageSize pagesize put dup /ImagingBBox null put setpagedevice
+/limit_top { pagesize 1 get margin /top get sub } def
+/limit_right { pagesize 0 get margin /right get sub } def
+/limit_bottom { margin /bottom get } def
+/limit_left { margin /left get } def
+/area_x  pagesize 0 get margin /right get sub margin /left get sub def
+/area_y  pagesize 1 get margin /top get sub margin /bottom get sub def
+1 unit 1 unit moveto

data/lib/rghost/ps/rectangle.ps

@@ -0,0 +1,5 @@
+/background_row {
+	gsave dup type to_s (arraytype) eq { exec} if
+		current_row row_padding sub  exch row_height row_padding add 0.5 sub rectfill
+   grestore
+}def

data/lib/rghost/ps/row.ps

@@ -0,0 +1,4 @@
+/row_height 0.4 unit def 
+/row_padding 0.1 unit def 
+/row 1 def
+/current_row 0 def

data/lib/rghost/ps/show.ps

@@ -0,0 +1,20 @@
+/show_center{ dup stringwidth pop 2 div neg 0 rmoveto show } def
+/show_right{ dup stringwidth pop neg 0 rmoveto show } def
+/show_left{ show }def
+
+%%TODO: page_(center & left & right)
+
+/page_center{
+area_x 2 div margin /left get add current_row moveto
+dup stringwidth pop 2 div neg 0 rmoveto show
+} def
+
+/page_right{
+area_x margin /left get add current_row moveto
+dup stringwidth pop neg 0 rmoveto show
+} def
+
+/page_left{
+limit_left current_row moveto
+dup stringwidth pop neg 0 rmoveto show
+} def

data/lib/rghost/ps/table_callbacks.ps

@@ -0,0 +1,96 @@
+%%TABLE
+/before_table_create {} def
+/after_table_create{} def
+%%%%%%TABLE ROW---------------------
+
+/row_odd_or_even {
+	current_table_row odd? {odd_row}{even_row} ifelse
+}def
+/before_row_create 3 dict def before_row_create begin
+ 		/proc { } bind def
+ 		/except [ ] def
+ 		/only [  ] def
+end
+
+/odd_row 3 dict def odd_row begin
+ 		/proc {  } bind def
+ 		/except [  ] def
+ 		/only [   ] def
+end
+
+/even_row 3 dict def even_row begin
+ 		/proc { } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+%column
+/col_odd_or_even {
+	col odd? {odd_column}{even_column} ifelse
+}def
+
+/before_column 3 dict def before_column begin
+ 		/proc {  } bind def
+ 		/except [ ] def
+ 		/only [  ] def
+end
+
+/after_column 3 dict def 	after_column begin
+ 		/proc { } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+/odd_column 3 dict def 	odd_column begin
+ 		/proc {   } bind def
+ 		/except [  ] def
+ 		/only [ ] def
+end
+
+/even_column 3 dict def even_column begin
+ 		/proc {  } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+%%HEADER----------------------
+/before_header_create {} def
+/after_header_create {} def
+
+/before_column_header 3 dict def before_column_header begin
+ 		/proc { } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+/after_column_header 3 dict def 	after_column_header begin
+ 		/proc {  } bind def
+ 		/except [ ] def
+ 		/only [ ] def
+end
+
+%%ROW CALLBACKS
+/callback_row{
+dup dup
+ /except get length 0 ne { /except get current_table_row include? not}{
+     dup /only get length 0 ne { /only get current_table_row include?}{
+				pop true
+     }ifelse
+ }ifelse
+ { /proc get exec  }{
+   pop 
+ }ifelse
+} bind def
+
+%%COLUMN CALLBACKS
+/callback_col{
+dup dup
+ /except get length 0 ne { /except get col include? not}{
+     dup /only get length 0 ne { /only get col include?}{
+				pop true
+     }ifelse
+ }ifelse
+ { /proc get exec  }{
+   pop 
+ }ifelse
+} bind def