rghost_barcode 0.8

data/lib/rghost_barcode/ps/upca.ps

@@ -0,0 +1,128 @@
+
+% --DESC: UPC-A
+% --EXAM: 78858101497
+% --EXOP: includetext
+% --RNDR: renlinear
+/upca {
+
+    0 begin
+
+    /options exch def
+    /useropts options def
+    /barcode exch def             % We are given a barcode string
+
+    /includetext false def         % Enable/disable text
+    /textfont /Helvetica def
+    /textsize 12 def
+    /textyoffset -4 def
+    /height 1 def
+    
+    % Parse the input options
+    options {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+    
+    /textfont textfont cvlit def
+    /textsize textsize cvr def
+    /textyoffset textyoffset cvr def
+    /height height cvr def
+    
+    /barlen barcode length def         % Length of the code
+
+    % Add checksum digit to barcode if length is odd
+    barlen 2 mod 0 ne {
+        /pad barlen 1 add string def   % Create pad one bigger than barcode
+        /checksum 0 def
+        0 1 barlen 1 sub {
+           /i exch def
+           /barchar barcode i get 48 sub def
+           i 2 mod 0 ne {
+               /checksum checksum barchar add def
+           } {
+               /checksum checksum barchar 3 mul add def
+           } ifelse
+        } for
+        /checksum 10 checksum 10 mod sub 10 mod def
+        pad 0 barcode putinterval       % Add barcode to the start of the pad
+        pad barlen checksum 48 add put  % Put ascii for checksum at end of pad
+        /barcode pad def                % barcode=pad
+        /barlen barlen 1 add def        % barlen++
+    } if
+
+    % Create an array containing the character mappings
+    /encs
+    [ (3211) (2221) (2122) (1411) (1132)
+      (1231) (1114) (1312) (1213) (3112)
+      (111) (11111) (111)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    /sbs barlen 4 mul 11 add string def
+    /txt barlen array def
+
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    % Left side
+    0 1 5 {
+        % Lookup the encoding for the each barcode character
+        /i exch def
+        barcode i 1 getinterval barchars exch search
+        pop                                % Discard true leaving pre
+        length /indx exch def              % indx is the length of pre
+        pop pop                            % Discard seek and post
+        /enc encs indx get def             % Get the indxth encoding
+        sbs i 4 mul 3 add enc putinterval  % Put encoded digit into sbs
+        i 0 eq {      % First digit is before the guard bars
+            txt 0 [barcode 0 1 getinterval -7 textyoffset textfont textsize 2 sub] put
+        } {
+            txt i [barcode i 1 getinterval i 7 mul 4 add textyoffset textfont textsize] put
+        } ifelse
+    } for
+
+    % Put the middle character
+    sbs 6 4 mul 3 add encs 11 get putinterval
+
+    % Right side
+    6 1 11 {
+        % Lookup the encoding for the each barcode character
+        /i exch def
+        barcode i 1 getinterval barchars exch search
+        pop                                % Discard true leaving pre
+        length /indx exch def              % indx is the length of pre
+        pop pop                            % Discard seek and post
+        /enc encs indx get def             % Get the indxth encoding
+        sbs i 4 mul 8 add enc putinterval  % Put encoded digit into sbs
+        i 11 eq {       % Last digit is after guard bars
+            txt 11 [barcode 11 1 getinterval 96 textyoffset textfont textsize 2 sub] put
+        } {
+            txt i [barcode i 1 getinterval i 7 mul 8 add textyoffset textfont textsize] put
+        } ifelse
+    } for
+
+    % Put the end character
+    sbs barlen 4 mul 8 add encs 12 get putinterval
+
+    % Return the arguments
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (sbs) [sbs {48 sub} forall] put
+    includetext {
+        retval (bhs) [4{height}repeat 10{height .075 sub}repeat height height 10{height .075 sub}repeat 5{height}repeat] put      
+        retval (bbs) [0 0 0 0 10{.075}repeat 0 0 10{.075}repeat 0 0 0 0 0] put
+        retval (txt) txt put
+    } {
+        retval (bhs) [31{height}repeat] put
+        retval (bbs) [31{0}repeat] put
+    } ifelse
+    retval (opt) useropts put
+    retval (borderbottom) 5 put
+    retval
+
+    end
+
+} bind def
+/upca load 0 1 dict put

data/lib/rghost_barcode/ps/upce.ps

@@ -0,0 +1,157 @@
+
+% --DESC: UPC-E
+% --EXAM: 0123456
+% --EXOP: includetext height=0.4
+% --RNDR: renlinear
+/upce {
+
+    0 begin
+
+    /options exch def                   % We are given an option string
+    /useropts options def
+    /barcode exch def                   % We are given a barcode string
+
+    /includetext false def               % Enable/disable text
+    /textfont /Helvetica def
+    /textsize 12 def
+    /textyoffset -4 def
+    /height 1 def
+    
+    % Parse the input options
+    options {
+        token false eq {exit} if dup length string cvs (=) search
+        true eq {cvlit exch pop exch def} {cvlit true def} ifelse
+    } loop
+    
+    /textfont textfont cvlit def
+    /textsize textsize cvr def
+    /textyoffset textyoffset cvr def
+    /height height cvr def
+    
+    /barlen barcode length def          % Length of the code
+
+    % Create an array containing the character mappings
+    /encs
+    [ (3211) (2221) (2122) (1411) (1132)
+      (1231) (1114) (1312) (1213) (3112)
+      (111) (1111111)
+    ] def
+
+    % Create a string of the available characters
+    /barchars (0123456789) def
+
+    /mirrormaps
+    [ (000111) (001011) (001101) (001110) (010011)
+      (011001) (011100) (010101) (010110) (011010)
+    ] def
+
+    % Add checksum digit to barcode if length is odd
+    barlen 2 mod 0 ne {
+        % Derive the equivalent UPC-A for its checksum
+        /upcacode (00000000000) 11 string copy def
+        barcode 6 get 48 sub 2 le {
+            upcacode 1 barcode 1 2 getinterval putinterval
+            upcacode 3 barcode 6 1 getinterval putinterval
+            upcacode 8 barcode 3 3 getinterval putinterval
+        } if
+        barcode 6 get 48 sub 3 eq {
+            upcacode 1 barcode 1 3 getinterval putinterval
+            upcacode 9 barcode 4 2 getinterval putinterval
+        } if
+        barcode 6 get 48 sub 4 eq {
+            upcacode 1 barcode 1 4 getinterval putinterval
+            upcacode 10 barcode 5 1 getinterval putinterval
+        } if
+        barcode 6 get 48 sub 5 ge {
+            upcacode 1 barcode 1 5 getinterval putinterval
+            upcacode 10 barcode 6 1 getinterval putinterval
+        } if
+        /checksum 0 def
+        0 1 10 {
+           /i exch def
+           /barchar upcacode i get 48 sub def
+           i 2 mod 0 ne {
+               /checksum checksum barchar add def
+           } {
+               /checksum checksum barchar 3 mul add def
+           } ifelse
+        } for
+        /checksum 10 checksum 10 mod sub 10 mod def
+        /pad barlen 1 add string def    % Create pad one bigger than barcode
+        pad 0 barcode putinterval       % Add barcode to the start of the pad
+        pad barlen checksum 48 add put  % Put ascii for checksum at end of pad
+        /barcode pad def                % barcode=pad
+        /barlen barlen 1 add def        % barlen++
+    } if
+    /txt barlen array def
+    txt 0 [barcode 0 1 getinterval -7 textyoffset textfont textsize 2 sub] put
+
+    % Determine the mirror map based on checksum
+    /mirrormap mirrormaps barcode barlen 1 sub get 48 sub get def
+
+    % Invert the mirrormap if we are using a non-zero number system
+    barcode 0 get 48 eq {
+        /invt mirrormap length string def
+        0 1 mirrormap length 1 sub {
+            /i exch def
+            mirrormap i get 48 eq {
+                invt i 49 put
+            } {
+                invt i 48 put
+            } ifelse
+        } for
+        /mirrormap invt def
+    } if
+
+    /sbs barlen 2 sub 4 mul 10 add string def
+
+    % Put the start character
+    sbs 0 encs 10 get putinterval
+
+    1 1 6 {
+        /i exch def
+        % Lookup the encoding for the each barcode character
+        barcode i 1 getinterval barchars exch search
+        pop                            % Discard true leaving pre
+        length /indx exch def          % indx is the length of pre
+        pop pop                        % Discard seek and post
+        /enc encs indx get def         % Get the indxth encoding
+        mirrormap i 1 sub get 49 eq {  % Reverse enc if 1 in this position in mirrormap        
+            /enclen enc length def
+            /revenc enclen string def
+            0 1 enclen 1 sub {
+                /j exch def
+                /char enc j get def
+                revenc enclen j sub 1 sub char put
+            } for
+            /enc revenc def
+        } if
+        sbs i 1 sub 4 mul 3 add enc putinterval   % Put encoded digit into sbs
+        txt i [barcode i 1 getinterval i 1 sub 7 mul 4 add textyoffset textfont textsize] put
+    } for
+
+    txt 7 [barcode 7 1 getinterval 6 7 mul 11 add textyoffset textfont textsize 2 sub] put
+
+    % Put the end character
+    sbs barlen 2 sub 4 mul 3 add encs 11 get putinterval
+
+    % Return the arguments
+    /retval 8 dict def
+    retval (ren) (renlinear) put
+    retval (sbs) [sbs {48 sub} forall] put
+    includetext {
+        retval (bhs) [height height 12{height .075 sub}repeat height height height] put      
+        retval (bbs) [0 0 12{.075}repeat 0 0 0] put    
+        retval (txt) txt put
+    } {
+        retval (bhs) [17{height}repeat] put      
+        retval (bbs) [17{0}repeat] put    
+    } ifelse
+    retval (opt) useropts put
+    retval (borderbottom) 5 put
+    retval
+
+    end
+
+} bind def
+/upce load 0 1 dict put

data/lib/rghost_barcode/rghost_barcode_adapter.rb

@@ -0,0 +1,249 @@
+
+
+RGhost::Config::GS[:extensions] << File.join(File.dirname(__FILE__),'ps')
+RGhost::Config::GS[:preload] << :render
+
+class RGhost::Document 
+  
+  #Facade for RGhost::Barcode::Isbn
+  def barcode_isbn(barcode_string,options={})
+    set RGhost::Load.library(:ean13)
+    set RGhost::Barcode::Isbn.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Code11
+  def barcode_code11(barcode_string,options={})
+    set RGhost::Barcode::Code11.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Code2of5
+  def barcode_code2of5(barcode_string,options={})
+    set RGhost::Barcode::Code2of5.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Ean8
+  def barcode_ean8(barcode_string,options={})
+    set RGhost::Barcode::Ean8.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Postnet
+  def barcode_postnet(barcode_string,options={})
+    set RGhost::Barcode::Postnet.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Rssexpanded
+  def barcode_rssexpanded(barcode_string,options={})
+    set RGhost::Barcode::Rssexpanded.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Auspost
+  def barcode_auspost(barcode_string,options={})
+    set RGhost::Barcode::Auspost.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Code39
+  def barcode_code39(barcode_string,options={})
+    set RGhost::Barcode::Code39.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Upce
+  def barcode_upce(barcode_string,options={})
+    set RGhost::Barcode::Upce.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Azteccode
+  def barcode_azteccode(barcode_string,options={})
+    set RGhost::Barcode::Azteccode.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Ean5
+  def barcode_ean5(barcode_string,options={})
+    set RGhost::Barcode::Ean5.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Plessey
+  def barcode_plessey(barcode_string,options={})
+    set RGhost::Barcode::Plessey.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Raw
+  def barcode_raw(barcode_string,options={})
+    set RGhost::Barcode::Raw.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Rss14
+  def barcode_rss14(barcode_string,options={})
+    set RGhost::Barcode::Rss14.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Royalmail
+  def barcode_royalmail(barcode_string,options={})
+    set RGhost::Barcode::Royalmail.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Datamatrix
+  def barcode_datamatrix(barcode_string,options={})
+    set RGhost::Barcode::Datamatrix.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Code128
+  def barcode_code128(barcode_string,options={})
+    set RGhost::Barcode::Code128.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Upca
+  def barcode_upca(barcode_string,options={})
+    set RGhost::Barcode::Upca.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Qrcode
+  def barcode_qrcode(barcode_string,options={})
+    set RGhost::Barcode::Qrcode.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Maxicode
+  def barcode_maxicode(barcode_string,options={})
+    set RGhost::Barcode::Maxicode.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Rationalizedcodabar
+  def barcode_rationalizedcodabar(barcode_string,options={})
+    set RGhost::Barcode::Rationalizedcodabar.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Code93
+  def barcode_code93(barcode_string,options={})
+    set RGhost::Barcode::Code93.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Msi
+  def barcode_msi(barcode_string,options={})
+    set RGhost::Barcode::Msi.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Rsslimited
+  def barcode_rsslimited(barcode_string,options={})
+    set RGhost::Barcode::Rsslimited.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Ean13
+  def barcode_ean13(barcode_string,options={})
+    set RGhost::Barcode::Ean13.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Onecode
+  def barcode_onecode(barcode_string,options={})
+    set RGhost::Barcode::Onecode.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Ean2
+  def barcode_ean2(barcode_string,options={})
+    set RGhost::Barcode::Ean2.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Interleaved2of5
+  def barcode_interleaved2of5(barcode_string,options={})
+    set RGhost::Barcode::Interleaved2of5.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Symbol
+  def barcode_symbol(barcode_string,options={})
+    set RGhost::Barcode::Symbol.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Pdf417
+  def barcode_pdf417(barcode_string,options={})
+    set RGhost::Barcode::Pdf417.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Kix
+  def barcode_kix(barcode_string,options={})
+    set RGhost::Barcode::Kix.new(barcode_string,options)
+  end
+
+  #Facade for RGhost::Barcode::Pharmacode
+  def barcode_pharmacode(barcode_string,options={})
+    set RGhost::Barcode::Pharmacode.new(barcode_string,options)
+  end
+
+  
+end
+
+module RGhost::Config
+  BARCODE_EXAMPLES={
+    'plessey' => ['01234ABCD',{ :text => {:size => 10}}],
+    'isbn' => ['978-1-56592-479',{:text => {:size => 10}, :guard=>{:whitespace => true }}],
+    'rsslimited' => ['00978186074271',{:height => 1 , :text => {:size => 10}}],
+    'pdf417' => ['^453^178^121^239',{:text => {:size => 10}, :columns => 2,  :rows=> 10}],
+    'royalmail' => ['LE28HS9Z',{:text => {:size => 10}}],
+    'ean13' => ['977147396801',{ :guard=>{:whitespace => true }}],
+    'code11' => ['0123456789',{:text => {:size => 10}}],
+    'symbol' => ['fima',{:text => {:size => 10}}],
+    'qrcode' => ['000100000010000000001100010101100110000110000',{:text => {:size => 10}}],
+    'msi' => ['0123456789',{:text => {:size => 10}}],
+    'upca' => ['78858101497',{:text => {:size => 10}}],
+    'pharmacode' => ['117480',{:text => {:size => 10}}],
+    'kix' => ['1231FZ13XHS',{:text => {:size => 10}}],
+    'datamatrix' => ['^142^164^186',{:columns => 32,  :rows=> 32}],
+    'rssexpanded' => ['000000010011001010100001000000010000',{:text => {:size => 10}}],
+    'ean2' => ['05',{:text => {:size => 10}}],
+    'rationalizedcodabar' => ['A0123456789B',{:text => {:size => 10}}],
+    'upce' => ['0123456',{:text => {:size => 10}}],
+    'ean5' => ['90200',{:text => {:size => 10}}],
+    'code2of5' => ['01234567',{:text => {:size => 10}}],
+    'code93' => ['THIS IS CODE 93',{:text => {:size => 10}}],
+    'postnet' => ['012345',{:text => {:size => 10}}],
+    'maxicode' => ['^059^042^041^059^040^03001^02996152382802^029840^029001^0291Z00004951^029UPSN^02906X610^029159^0291234567^0291^0471^029^029Y^029634 ALPHA DR^029PITTSBURGH^029PA^030^062^004^063', {:mode=> 2, :text => {:size => 10}}],
+    'raw' => ['331132131313411122131311333213114131131221323',{:text => {:size => 10}}],
+    'onecode' => ['0123456709498765432101234567891',{:text => {:size => 10}}],
+    'code39' => ['THIS IS CODE 39',{:text => {:size => 10}}],
+    'auspost' => ['5956439111ABA 9',{:text => {:size => 10}}],
+    'azteccode' => ['00100111001000000101001101111000010100111100101000000110',{:text => {:size => 10}, :format=> :compact}],
+    'ean8' => ['01335583',{:text => {:size => 10}}],
+    'interleaved2of5' => ['24012345678905',{
+        :text => {:size => 10, :offset => [0,-10], :enable => [:text, :check, :checkintext] }, 
+        :border => {:width => 4, :left => 15, :right => 15, :show => true}, 
+        :height => 2
+      }],
+    'code128' => ['^104^102Count^0990123456789^101!',{:text => {:size => 10}}],
+    'rss14' => ['24012345678905',{:text => {:size => 10}}]
+
+
+  }
+  #Generates catalog of barcodes.
+  #
+  # RGhost::Config.barcode_examples.render :pdf, :filename => "/tmp/barcode_catalog.pdf"
+  #
+  def self.barcode_examples() #(options={:text => {:size => 10}})
+    d=RGhost::Document.new :paper => [15,8], :margin_left => 2
+    #d.set RGhost::Barcode::Code39.new("ASDHAJSDF", :x => 1, :y => 5, :color => 'FF0000', :border =>{:color => '00FF00'}, :text =>{:size => 10, :color => '553297' }, :height => 1,  :width => 4.545)
+    #d.barcode_isbn("978-1-56592-479", :x => 1, :y => 5, :color => 'FF0000', :border =>{:color => '00FF00'}, :text =>{:size => 10, :color => '553297' }, :height => 1,  :width => 4.545)
+    #d.barcode_isbn("978-1-56592-479", :x => 1, :y => 10, :text =>{:size => 10})
+    d.define_template :barcode_template,  File.join(File.dirname(__FILE__),'ps',"barcode_template.eps")
+    d.before_page_create do
+      use_template :barcode_template
+    end
+    RGhost::Config::BARCODE_EXAMPLES.each do |k,v|
+      
+      d.show "Barcode Name: #{k}"
+      d.jump_rows 6
+      #opt=v[1][:text][:size]=10
+      opt=v[1]
+      d.send "barcode_#{k}".to_sym,v[0],opt.dup
+      d.jump_rows 2
+      d.show "Code String: #{v[0]}"
+      d.next_row
+      d.text("Options: #{opt.inspect}",false)
+      d.next_page
+    end
+    license=%Q{<big>Barcode Writer License</big><br/>Anybody is free to use and develop this code as they see fit, under the terms of the permissive MIT/X-Consortium license(http://postscriptbarcode.googlecode.com/svn/trunk/LICENSE), which requires that developers attribute any derivative code to this project in both the source code and documentation. As such I take no liability for its use or misuse.<br/><br/>Thanks a lot Terry!<br/> <i>Shairon Toledo</i>   }
+    d.text license
+    d.next_row
+    d.show "RGhost::VERSION #{RGhost::VERSION::STRING}" , :align => :page_right, :tag => :b
+    d.next_row
+    d.show "RGhost::Barcode::VERSION #{RGhost::Barcode::VERSION::STRING}" , :align => :page_right, :tag => :b
+    d
+  end
+  
+end
+