rghost 0.7.4 → 0.8

data/lib/rghost/paper.rb

@@ -3,29 +3,54 @@ require "units"
 require "load"
 require "constants"
 require "ruby_to_ps"
-
-#Defini��o da m�dia utilizada
-class Paper < PsObject
+#Paper is the area where the Postscript elements/objects are drawn. 
+#The margin is the document's non-printable area (both by the cursors and by the page's internal controllers). 
+#The :area_x and :area_y are the printable section of the paper.
+#It's used to configure definitions of paper. It automatically defined into Document by :paper parameter.
+#
+#link:images/paper01.png
+#
+class RGhost::Paper < RGhost::PsObject
   
   
   DEFAULT_OPTIONS={ :landscape => false, 
-                    :margin_top => 1, 
-                    :margin_right => 1, 
-                    :margin_bottom => 1,
-                    :margin_left => 1, 
-                    :duplex => false, 
-                    :tumble => false
-                  }
-  include RubyToPs
-  #Nova inst�ncia de Paper
-  #   :paper => :A4             # Tamanho do papel, personalizavel com array width X height(em pontos). Exmp: :paper => [400,300]
-  #   :landscape => false       # Disposi��o do papel em 90�
-  #   :margin_top => 1,         # Margin de topo 
-  #   :margin_right => 1,       # Margin direita
-  #   :margin_bottom => 1,      # Margin da base
-  #   :margin_left => 1,        # Margin esquerda
-  #   :duplex => false,         # true - duas faces(para impress�o)
-  #   :tumble => false          # true - tipo do duplex(para impress�o)  
+    :margin_top => 1, 
+    :margin_right => 1, 
+    :margin_bottom => 1,
+    :margin_left => 1, 
+    :duplex => false, 
+    :tumble => false
+  }
+  
+  include RGhost::RubyToPs
+  #===Examples
+  #
+  #====Create paper by name 
+  # doc=Document.new :paper => :A4 
+  #====Create paper by name in landscape
+  # doc=Document.new :paper => :A4 , :landscape => true
+  #====Create custom paper 
+  # doc=Document.new :paper => [10,15] 
+  #====Defining all margins
+  # doc=Document.new :paper => :A5, :margin => 0.5
+  #====Defining custom margins
+  # doc=Document.new :paper => :A5, :margin => [0.5, 1, 0.5, 2]   #=>[top,right,bottom,left] clockwise 
+  #====Defining particular margin
+  # doc=Document.new :paper => :A5, :margin_top => 1, :margin_left => 0.3
+  #====Defining two faces document to printer
+  # doc=Document.new :paper => :A5, :duplex => true
+  #===Parameters
+  #* paper - The paper parameter can be either a Symbol or a Array. If paper parameter is a Symbol its value will search in RGhost::Constants::Papers .  If paper parameter is a Array(with two numeric elements) will be position [0] width and [1] height of page. Example:
+  #   doc=Document.new :paper => :A3   #=> Build new A3 paper
+  #   doc=Document.new :paper => [5,5] #=> Build new custom paper 5x5, using default unit defined in RGhost::Config::GS[:unit].
+  #
+  #====Configuration options:
+  #* <tt>:landscape</tt> -  If set to true will invert width to height and height to width.
+  #* <tt>:margin</tt> - Specifies margins non-printable area. It can be one Numeric for all margins or Array [top,right,bottom,left] margins.
+  #* <tt>:duplex</tt> - Specifies two faces(for print)
+  #* <tt>:tumble</tt> - Specifies kind of duplex
+  #
+  #
   def initialize(paper=:A4, options={})
     
     @options=DEFAULT_OPTIONS.merge(options)
@@ -37,44 +62,78 @@ class Paper < PsObject
     p=format_paper[:rg]
     m=format_margin
 
-    lib=Load.library :paper
+    lib=RGhost::Load.library :paper
     
     d<< p << m << lib.ps    
   end 
 
-  #Obtem o valor no formato esperado pelo GS.
-  def gs_paper
-    p=format_paper[:gs]
-    ["-dDEVICEWIDTHPOINTS=#{p[0]}", "-dDEVICEHEIGHTPOINTS=#{p[1]}"]
+  
+  def gs_paper #:nodoc:
+    fp=format_paper
+    p=fp[:gs]
+    #["-dDEVICEWIDTHPOINTS=#{p[0]}", "-dDEVICEHEIGHTPOINTS=#{p[1]}"]
+    if fp[:done]
+      ["-dDEVICEWIDTHPOINTS=#{p[0]}", "-dDEVICEHEIGHTPOINTS=#{p[1]}"]
+    else
+      ["-dDEVICEWIDTHPOINTS=#{to_pt(p[0])}", "-dDEVICEHEIGHTPOINTS=#{to_pt(p[1])}"]
+    end
   
   end
 
 
   private
-  def format_margin
-    if @options[:margin]
-      mt=mr=mb=ml=Units::parse(@options[:margin])
+  
+  def to_pt(value)
+    
+    
+    return case RGhost::Config::GS[:unit].new
+    when RGhost::Units::Cm: (value.to_f*72/2.545).to_i
+    when RGhost::Units::Inch: (value.to_f*72).to_i
     else
-      mt=Units::parse(@options[:margin_top])
-      mr=Units::parse(@options[:margin_right])
-      mb=Units::parse(@options[:margin_bottom])
-      ml=Units::parse(@options[:margin_left])
+      value
     end
+    
+  end
+  def format_margin
+    #if @options[:margin]
+    #  mt=mr=mb=ml=RGhost::Units::parse(@options[:margin])
+    #else
+    #  mt=RGhost::Units::parse(@options[:margin_top])
+    #  mr=RGhost::Units::parse(@options[:margin_right])
+    #  mb=RGhost::Units::parse(@options[:margin_bottom])
+    #  ml=RGhost::Units::parse(@options[:margin_left])
+    #end
      
-     "/margin 3 dict def margin begin /top #{mt} def /right #{mr} def /bottom #{mb} def /left	#{ml} def end\n"
+    case @options[:margin]
+    when Numeric: mt=mr=mb=ml=RGhost::Units::parse(@options[:margin])
+    when Array:
+        mt=RGhost::Units::parse(@options[:margin][0] || DEFAULT_OPTIONS[:margin_top] )
+      mr=RGhost::Units::parse(@options[:margin][1] || DEFAULT_OPTIONS[:margin_right])
+      mb=RGhost::Units::parse(@options[:margin][2] || DEFAULT_OPTIONS[:margin_bottom])
+      ml=RGhost::Units::parse(@options[:margin][3] || DEFAULT_OPTIONS[:margin_left] )
+    when Hash,NilClass
+      mt=RGhost::Units::parse(@options[:margin_top   ] || DEFAULT_OPTIONS[:margin_top] )
+      mr=RGhost::Units::parse(@options[:margin_right ] || DEFAULT_OPTIONS[:margin_right])
+      mb=RGhost::Units::parse(@options[:margin_bottom] || DEFAULT_OPTIONS[:margin_bottom])
+      ml=RGhost::Units::parse(@options[:margin_left  ] || DEFAULT_OPTIONS[:margin_left] )
+    end
+    
+    "/margin 3 dict def margin begin /top #{mt} def /right #{mr} def /bottom #{mb} def /left	#{ml} def end\n"
   end
   
   def format_paper
-    p=case @paper
-        when Symbol: Constants::Papers::STANDARD[@paper.to_s.downcase.to_sym]
-        when Array: @paper 
+
+    case @paper
+    when Symbol: 
+     
+        p=RGhost::Constants::Papers::STANDARD[@paper.to_s.downcase.to_sym]
+      p.reverse! if @options[:landscape] 
+      {:rg => "/pagesize #{to_array( p  ) } def\n", :gs => p, :done => true}
+    when Array: 
+        @paper.reverse! if @options[:landscape] 
+      {:rg => "/pagesize #{to_array( @paper.map{|v| to_pt(v) } ) } def\n", :gs => @paper, :done => false}
     end
     
-    p.reverse! if @options[:landscape] #Rotate paper
-    
-    #p.map!{|size| Units::parse(size)} #repack with unit default or no
-    #formated as rg and gs
-    {:rg => "/pagesize #{to_array(p)} def\n", :gs => p}
     
   end
   

data/lib/rghost/parse_text.rb

@@ -0,0 +1,53 @@
+
+module RGhost::ParseText #:nodoc:
+  
+  def text_to_ps
+    
+    unless @tag_parse
+      case @options[:text_align]
+      when :center, :right:
+        @text.split(/\n/).map{|l| "#{to_string(l)} :text_proc_cr :nbw " }.to_s  
+        jump_with=':nbw'
+      when :left,nil:
+        if self.class == RGhost::Text
+          return @text.split(/\n/).map{|l| " :text #{to_string(l)} :text_proc nrdp " }.to_s 
+
+        else
+          @text.split(/\n/).map{|l| " :text_area #{to_string(l)} :text_proc_cr :nbw " }.to_s        
+          jump_with='nrdp'
+        end
+      end
+    end
+    
+    
+    
+    jump_with=':nbw' if self.class == RGhost::TextArea        
+    
+    
+    ret=@text.split(/<br\/?>|\n/).map do |piece|
+      text_ok=""
+      piece.scan(/<([^>]+)>([^<]*.)<\/\1>|([^<>]+)/).each do |t|
+        t.compact!
+        if t && t.size == 1
+          text_ok << ta_entry(t.first.to_s)
+        else
+          text_ok << ta_entry(t[1],t.first)
+        end
+      end
+      text_ok
+    end
+    
+    ret.join(" #{jump_with || 'nrdp' } ").gsub(/&lt/,'<').gsub(/&gt/,'>')
+  end
+
+  def ta_entry(e,tag="default_font")
+    if self.class == RGhost::Text and  @options[:text_align] == :left
+      " :text _#{tag} #{to_string(e)} :text_proc "  
+    elsif self.class == RGhost::TextArea and @options[:text_align] == :left
+      " :text_area _#{tag} #{to_string(e)} :text_proc "  
+    else
+      "  _#{tag} #{to_string(e)} :text_proc_cr "  
+    end
+  end
+
+end

data/lib/rghost/point.rb

@@ -1,22 +1,23 @@
 require "ps_object"
 require "units"
 
-#Cria um ponto usando a Unit padr�o caso o valor seja Numeric.
-class Point < PsObject
+#Creates one point using default unit defined in RGhost::Config::GS[:unit]
+class RGhost::Point < RGhost::PsObject
   attr_accessor :x,:y
   
   def initialize(x,y)
-    
-    @x,@y=x,y
-    
+    if x.is_a? Hash
+      point=x
+      @x,@y=point[:x],point[:y]
+    else
+      @x,@y=x,y
+    end
   end
 
   def ps
-    "#{Units::parse(@x)} #{Units::parse(@y)} "
+    "#{RGhost::Units::parse(@x)} #{RGhost::Units::parse(@y)} "
   end
   
 
 end
 
-#p=Point.new(10,20,Cm,Cm)
-#puts p.ps

data/lib/rghost/point_with_command.rb

@@ -1,15 +1,15 @@
 require "ps_object"
 require "units"
 
-class PointWithCommand 
+class RGhost::PointWithCommand #:nodoc:
   DEFAULT_POINT={:x => :limit_left , :y => :current_row}
 
-  def PointWithCommand.to(command,point={})
-    #puts "PointWithCommand.to: #{command} > #{x} #{y}"
+  def self.to(command,point={})
+   
     p=DEFAULT_POINT.dup.merge(point)
    
-    p=Point.new(p[:x],p[:y])
-    PsObject.new "#{p.ps}#{command}"
+    p=RGhost::Point.new(p[:x],p[:y])
+    RGhost::PsObject.new "#{p.ps}#{command}"
   end
   
 end

data/lib/rghost/polygon.rb

@@ -0,0 +1,75 @@
+#Draw one shape based in relative node points.
+#===Options
+#
+#* <tt>:x and :y</tt> - Initial position.
+#* <tt>:content</tt> - Facade to ShapeContent with same parameters.
+#* <tt>:border</tt> - Facade to Border with same parameters.
+#===Examples
+# 
+# doc.polygon :x => 3.5, :y => 5.5 do
+#   node :x => 4,  :y => 0
+#   node :x => 0,  :y => -4
+#   node :x => -4, :y => 0
+#   node :x => 0,  :y => 4
+# end
+#
+#link:images/polygon01.png
+#
+# doc.polygon :x => 3.5, :y => 4.5 do
+#   node :x => 2,  :y => 2
+#   node :x => 2,  :y => -2
+#   node :x => -2, :y => -2
+# end
+#
+#link:images/polygon02.png
+#
+# doc.polygon :x => 1, :y => 5, :border => {:width => 2, :linejoin => 1} do
+#   node :x => 2,  :y => 2/2
+#   node :x => 2*2,:y => -2
+#   node :x => -1, :y => -3
+#   node :x => 2,  :y => 1
+#   node :x => 3,  :y => 2
+# end
+#
+#link:images/polygon03.png
+class RGhost::Polygon < RGhost::PsObject
+  attr_reader :points
+  
+  DEFAULT_OPTIONS={
+    :x => :limit_left,
+    :y => :current_row,
+    :content => RGhost::ShapeContent::DEFAULT_OPTIONS,
+    :border =>  RGhost::Border::DEFAULT_OPTIONS
+    
+    
+  }
+  def initialize(options={},&block)
+    super(''){}
+    
+    @options = DEFAULT_OPTIONS.dup.merge(options)
+    @points=[] 
+    instance_eval(&block) if block
+  end
+  #Creates new relative point by :x => 2 and :y => 4. Used as instance_eval
+  def node(point)
+    @points << point
+  end
+  
+  def ps
+    graph=RGhost::Graphic.new 
+    graph.set Cursor.moveto(@options)
+    graph.set RGhost::Border.new(@options[:border]) if @options[:border]
+    
+    @points.each{|p|  graph.set RGhost::Line.rlineto(p) }
+    
+    graph.raw :closepath
+    #graph.raw :gsave
+    graph.set RGhost::ShapeContent.new(@options[:content]) if @options[:content]
+    #graph.raw :grestore
+    graph.raw :stroke
+    graph
+        
+    
+  end
+  
+end

data/lib/rghost/ps/Fontmap

@@ -0,0 +1,5 @@
+/CodabarJK  (CodabarJK.pfa) ;
+/Code128JK (Code128JK.pfa) ;
+/Code39JK  (Code39JK.pfa) ;
+/Codei25JK (Codei25JK.pfa) ;
+/EANJK (EANJK.pfa) ;

data/lib/rghost/ps/__datagrid.ps

@@ -0,0 +1,52 @@
+/col_padding 0.1 cm def
+
+/st_center{  exch strlen 3 -1 roll sub -2 div dup 0 rmoveto exch show 0 rmoveto  } def
+/st_right{ exch strlen 3 -1 roll X add sub neg col_padding sub current_row moveto show col_padding 0 rmoveto  } def
+/st_left{ X add exch X col_padding add current_row moveto show  current_row moveto   }def
+
+/col 0 def
+/current_table_row 0 def %current row table
+/nextcol{ /col inc } def
+
+/headings? true def
+
+/header_proc {
+	new_page? {
+		%before_row_create callback_row
+		before_header_create
+		header_titles {
+			before_column_header callback_col
+			headings? {
+				table_header col get aload pop cvx  exec nextcol
+				
+			}{ pop } ifelse
+			after_column_header callback_col
+		} forall
+		after_header_create
+		after_row
+		/new_page? false def
+	 }if
+} def
+
+/after_row{
+	/current_table_row inc
+	/col 0 def
+	next_row
+	new_current_row_point
+	limit_left current_row moveto
+}def
+
+/table_proc {
+	{limit_left current_row moveto
+	  header_proc
+	 	before_row callback_row
+	 	row_odd_or_even callback_row
+		{
+			before_column callback_col
+			table_params col get aload pop cvx exec nextcol
+			after_column callback_col
+		} forall
+    after_row
+	} forall
+	after_table_create
+}bind def

data/lib/rghost/ps/_cusor.ps

@@ -0,0 +1,46 @@
+/current_page 1 def
+/X{  currentpoint pop } def
+/Y{ currentpoint exch pop} def
+/nrdp{ next_row  default_point } def
+/next_page{
+	after_page_create callback
+	/row 1 def
+	%(Page: ) print	current_page 8 string cvs print (\n) print
+ 
+	showpage
+	/new_page? true def
+  
+	/current_page inc
+	/current_row limit_top row row_height mul sub def
+	%before_page_create callback
+	%odd_or_even callback
+	current_page count_pages eq { last_page } if
+	new_current_row_point
+  default_point 
+	before_page_create callback
+	odd_or_even callback
+  
+} def
+/default_point { limit_left  current_row  moveto} def
+/new_current_row_point{ 	/current_row limit_top row row_height row_padding add mul sub def }def
+
+/next_row{
+  row rows_per_page lt current_row limit_bottom ge and {	/row inc
+			new_current_row_point
+	}{ next_page }ifelse
+} def
+
+/jump_rows{
+	%dup 1 le { {	next_row 	}repeat} if
+ {  next_row  }repeat 
+} def
+/jump_rows{
+  %dup 1 le { { next_row  }repeat} if
+ dup 0 ge {{  next_row  }repeat
+ }{  neg { /row dec  } repeat new_current_row_point } ifelse
+} def
+
+/goto_row{
+  /row exch def
+		new_current_row_point
+} def 

data/lib/rghost/ps/basic.ps

@@ -5,10 +5,21 @@
 /new_page? true def
 /strlen { dup stringwidth pop } def
 /current_page 1 def
-
+/puts { to_s print (\n) print } def
 /row 1 def
 %if include in array
 /include? { /_atual 1 def exch dup length  /_s exch def exch /_v exch def
  	{ _v eq {true exit}{ _atual _s eq {	false exit }{ /_atual inc	} ifelse 	} ifelse }forall
  	_s 0 eq {false} if
  }  def
+
+/beging{
+currentrgbcolor
+currentfont
+
+}bind def
+
+/endg{
+setfont
+setrgbcolor
+}bind def

data/lib/rghost/ps/begin_document.ps

@@ -5,3 +5,4 @@ before_document_create
 before_page_create callback
 first_page
 even_pages callback
+default_font

data/lib/rghost/ps/callbacks.ps

@@ -43,14 +43,27 @@ end
    pop 
  }ifelse
 } bind def
+%execute virtual page callbacks
+/vp_callback{
+	dup dup
+ /except get length 0 ne { /except get current_vp include? not}{
+     dup /only get length 0 ne { /only get current_vp include?}{
+				pop true
+     }ifelse
+ }ifelse
+ { /proc get exec  }{
+   pop 
+ }ifelse
+} bind def
 
 /odd? { 2 mod 0 eq {true}{false} ifelse } bind def
 /odd_or_even { current_page odd? {odd_pages}{even_pages}ifelse }def
 
-%%TABLE
+%TABLE
 /before_table_create {} def
 /after_table_create {} def
-%%%%%%TABLE ROW---------------------
+
+%TABLE ROW
 /row_odd_or_even {
 	current_table_row odd? {odd_row}{even_row} ifelse
 }def
@@ -59,6 +72,11 @@ end
  		/except [ ] def
  		/only [  ] def
 end
+/after_row 3 dict def after_row begin
+ 		/proc { } bind def
+ 		/except [ ] def
+ 		/only [  ] def
+end
 
 /odd_row 3 dict def odd_row begin
  		/proc {  } bind def
@@ -143,4 +161,15 @@ dup dup
  }ifelse
 } bind def
 
-
+/before_virtual_page_create 3 dict def
+	before_virtual_page_create begin 
+ 		/proc {} bind def
+ 		/except [ ] def
+ 		/only [  ] def
+end
+/after_virtual_page_create 3 dict def
+	after_virtual_page_create begin 
+ 		/proc {} bind def
+ 		/except [ ] def
+ 		/only [  ] def
+end