rghost 0.6.5

data/lib/rghost/convert.rb

@@ -0,0 +1,24 @@
+#Converte PDF para outro formato
+class Convert
+  attr_reader :error, :errors
+  #Nova inst�ncia de Convert
+  # filename - Arquivo de entrada em pdf
+  def initialize(filename)
+    @filename=filename
+    
+    
+  end
+  # Converte para o formato device usando as op��es do RubyGhostEngine.
+  # A op��o :range � v�lida para este m�todo
+  def to(device, options={})
+    rge=RubyGhostEngine.new(@filename,options)
+    
+    
+    out=rge.render(device)
+    @error=rge.error
+    @errors=rge.errors
+    out
+  end
+  
+  
+end

data/lib/rghost/cursor.rb

@@ -0,0 +1,82 @@
+require "point"
+require 'ps_object'
+require 'point_with_command'
+#Controla o posicionamento dos elementos na p�gina
+class Cursor < PsObject
+
+  #Vai para uma determinada faixa
+  # d=Document.new
+  # d.set Cursor.goto_row(15)
+  # d.set Show.new("Row 15")
+  def Cursor.goto_row(row)
+    g=PsObject.new(row.to_i)
+    g.call :goto_row
+    g.call :default_point
+    g
+  end
+  #Salta um n�mero de faixas
+  # d=Document.new
+  # d.set Cursor.jump_row(4)    #salta 4 faixas para baixo
+  # d.set Cursor.jump_row(-5)   #volta 5 faixas para cima
+  def Cursor.jump_rows(row)
+    j=PsObject.new(row.to_i)
+    j.call :jump_rows
+    j.call :default_point
+    j
+  end 
+  #Rotaciona objetos. Recomendado a utiliza��o dentro de um Newpath
+  # 
+  # d=Document.new
+  # d.newpath do
+  #   set Cursor.rotate(90)
+  #   #fa�a algo em 90� e retorne o cursor
+  #   set Cursor.rotate(-90)   
+  # end
+  def Cursor.rotate(angle)
+    r=PsObject.new(angle.to_i)
+    r.call :rotate
+    r 
+  end
+  #Move o cursor para uma determinada posi��o
+  # doc=Document.new
+  # doc.set Cursor.moveto(:x=> 10, :y=> 5)
+  # doc.set Show.new("Hello Girls!!!")
+  def Cursor.moveto(point={})
+    PointWithCommand.to(:moveto,point)
+  end
+  #Move o cursor para uma determinada posi��o relativa ao posi��o corrente
+  # doc=Document.new
+  # doc.set Cursor.moveto(:x=> 10, :y=> 5)
+  # doc.set Show.new("Hello Girls!!!")
+  # doc.set Cursor.rmoveto(:x => 5) #move para x=> 15 (10 mais 5) e mantem y => 5
+  def Cursor.rmoveto(point={})
+    PointWithCommand.to(:rmoveto,point)
+  end
+  #Desloca a refer�ncia padr�o(:x=> 0, :y => 0, esquerda inferior) da p�gina para uma nova
+  # doc=Document.new
+  # doc.set Cursor.translate(:x=> 2, :y=> 1)
+  # doc.set Cursor.moveto(:x => 0,:y => 0)  #Ponto :x=> 2, :y=> 1
+  # doc.set Cursor.translate(:x=> -2, :y=> -1)  #retorna ao ponto padr�o
+  def Cursor.translate(point={:x =>0 , :y => 0})
+    p={:x =>0 , :y => 0}.merge(point)
+    PointWithCommand.to(:translate,p)
+  end
+  #Salta para a pr�xima faixa com controle de p�gina
+  def Cursor.next_row
+    PsObject.new(:nrdp)
+    #ps.call :next_row
+    #ps.call :default_point
+    #
+    
+  end
+  #Vai para a pr�xima p�gina com controle de cursores e p�ginas
+  def next_page
+    PsObject.new :next_page
+  end
+  #Salta a p�gina sem controle de cursores
+  def showpage
+    PsObject.new :showpage
+  end
+  
+end
+

data/lib/rghost/data_grid/basic_grid.rb

@@ -0,0 +1,136 @@
+require 'enumerator'
+#Grid b�sica. Pr�totipo para objeto interno Grid em ps
+class DataGrid::BasicGrid < PsObject
+  attr_reader :header
+  attr_accessor :column_padding
+  include RubyToPs
+  
+  #Nova inst�ncia de DataGrid::BasicGrid
+  # Na constru��o do objeto segue as op��es
+  # :headings => true     #ou false para n�o apresentar o header
+  # :column_padding =>    #Espa�o entre o dado e o limite da coluna
+  #Op��es padr�o para todas as colunas. Facades para FataGridHeader
+  # :width => 2.5         #Largura da coluna
+  # :align => :left       #Alinhamento os dados em rela��o a coluna (:right, :center, :left )
+  # :title_align => :left #Alinhamento do t�tulo
+  # :format => "%0.2f"    #Formatador de dados onde o par�metro s�o.
+  #     Symbol - Procura o m�todo com o mesmo nome definido no m�dulo DataGrid::FieldFormat::method_name
+  #     String - Formata com os padr�es definidos em sprintf
+  #     Class  - Uma heran�a de DataGrid::FieldFormat::Custom com override no m�todo format. 
+  #     Proc   - Um bloco. No exemplo um texto limitado a 9 caracteres.
+  def initialize(options={})
+    h= (options[:headings] == false)?false:true
+    @header=DataGrid::Header.new(h)
+    @header.default_options(options)
+    @callbacks=PsObject.new
+    @column_padding=0.1 || options[:column_padding]
+    @record_count=1
+    @data=[]
+    @data[0]=[]
+    @data_index=0
+    @max_stack=RubyGhostConfig::GS[:stack_elements]
+  end
+  
+  #Trata os callbacks a n�vel de Grid definidos em DataGrid::DynamicCallback::ACCEPT e DataGrid::StaticCallback::ACCEPT
+  def method_missing(name,*args,&block)
+  
+    case name
+      when *DataGrid::DynamicCallback::ACCEPT:
+        @callbacks.set DataGrid::DynamicCallback.new(name,args.shift || {},&block)
+      when *DataGrid::StaticCallback::ACCEPT:
+        @callbacks.set DataGrid::StaticCallback.new(name,&block) 
+      else
+        raise NameError.new(name.to_s)
+    end
+  end 
+  #Adiciona uma coluna passando o t�tulo e op��es personalizadas. Um Hash com :title. Facade DataGrid::Header.col
+  def col(title="", options={})
+    if title.is_a? Hash
+      @header.col(title[:title],title)
+    else
+      @header.col(title,options)
+    end
+  end
+  #Alias col
+  def column(title="", options={})
+    col(title,options)
+    
+  end
+  #Converte o dado no formato sugerido
+  def format_field(value,type)
+    case type
+      when Symbol: DataGrid::FieldFormat.send(type,value)
+      when String: DataGrid::FieldFormat.string(type % value) 
+      when Class: type.new(value).gs_format
+      when Proc: DataGrid::FieldFormat.string(type.call(value))
+      
+      else raise TypeError.new("type=#{type}, value type=#{value.class}")
+    end        
+
+  end
+  #Processa as linhas no formato ps esperado
+  def proc_line(line)
+      h=@header.data_types
+      rec=[]
+      line.each_with_index do |v,i|
+        #puts "#{i} == #{h[i]} = #{v}, #{format_field(v,h[i])}"
+        rec << format_field(v,h[i])
+      end
+      @data[@data_index] <<  "[#{rec}]\n"
+      
+      
+      if @record_count == @max_stack
+        @record_count=0
+        @data_index+=1
+        @data[@data_index]=[]
+      end
+      @record_count+=1
+      
+      
+  end
+  #Informa os dados com as colunas da mesma quantidade de t�tulos
+  def data(data)
+  
+  end
+  public
+
+  def ps
+    
+    
+    grid_names=[]
+    p=PsObject.new 
+    @data.each do |ary|
+      r=(rand*99999).to_i
+      p.raw "/data#{r}[\n#{ary.join}\n] def"
+      grid_names << r
+    end
+    p.raw "#{@header.ps} #{@callbacks}"
+    
+    g=Graphic.new do 
+      raw :before_table_create 
+      raw grid_names.map{|m| " data#{m} table_proc\n" }.join
+      raw :after_table_create
+    end
+    p.set g
+    p
+    
+    
+  end
+  
+  #Informa o estilo predefinido da grid. Validados
+  #  :border_lines  #aponta para DataGrid::Style::BorderLines.new
+  #  :old_forms    #aponta para DataGrid::Style::OldForms.new
+  #  :bottom_lines #aponta para  DataGrid::Style::BottomLines.new
+  def style(type=:border_lines)
+    st=case type
+        when :border_lines: DataGrid::Style::BorderLines.new 
+        when :old_forms: DataGrid::Style::OldForms.new
+        when :bottom_lines: DataGrid::Style::BottomLines.new
+        else raise NameError.new("Why? #{type} ?")    
+    end
+    
+    st.set_style(self)
+    
+  end
+  
+end

data/lib/rghost/data_grid/csv_grid.rb

@@ -0,0 +1,27 @@
+require 'ps_object'
+#Carrega informa��es de um arquivo no formato CSV
+class DataGrid::CSVGrid < DataGrid::BasicGrid
+  #Informa os arquivo e o separador
+  #  _data - Caminho do arquivo 
+  #  col_sep - Separador em String ou String de Regexp, Ex: "\s{2}"
+  def data(_data,col_sep=',')
+    
+    first=true
+    _data=File.open(_data) if _data.is_a? String
+    _data.each do |line|
+      l=line.split(Regexp.new(col_sep))
+      if first 
+        @header.titles.size.times { l.shift}
+        l.each {|h| col(h)}
+        first=false
+        next  
+      else
+        proc_line(l)
+      end
+    end
+
+  end
+  
+    
+  
+end

data/lib/rghost/data_grid/data_grid.rb

@@ -0,0 +1,14 @@
+module DataGrid
+  require 'data_grid/header'
+  require 'data_grid/style/style'
+  require 'data_grid/basic_grid'
+  require 'data_grid/grid'
+  require 'data_grid/rails_grid'
+  require 'data_grid/csv_grid'
+  require 'data_grid/dynamic_callback'
+  require 'data_grid/static_callback'
+  require 'data_grid/field_format'
+end
+
+
+

data/lib/rghost/data_grid/dynamic_callback.rb

@@ -0,0 +1,12 @@
+require "callback" 
+#Callbacks Din�micos a n�vel de Grid
+class DataGrid::DynamicCallback < Callback
+  ACCEPT=[:before_row, :after_row, :even_row, 
+            :odd_row, :before_column, :after_column, :even_column, :odd_column]
+      
+  def initialize(name,options={},&block)
+    raise NameError.new("#{name} no accept in #{self.class}") unless ACCEPT.include? name
+    super(name,options,&block)
+  end
+  
+end

data/lib/rghost/data_grid/field_format.rb

@@ -0,0 +1,60 @@
+$LOAD_PATH << File.dirname(__FILE__)+File::SEPARATOR+"../"
+
+require 'ps_object'
+#require 'data_grid'
+require 'ruby_to_ps'
+#M�dulo para formata��o de dados
+module DataGrid 
+module FieldFormat 
+  extend RubyToPs
+  #Formata um Time/Date em %d/%m/%Y
+  def FieldFormat.eurodate(value)
+   
+      string(value.strftime("%d/%m/%Y"))
+  end
+  #Formata o dado retirando os espa�os
+  def FieldFormat.no_space(value)
+    string(value.to_s.gsub(/\s/,''))
+  end
+  #Formata para o dado ou - se '' ou nil
+  def FieldFormat.or_value(value,token='-')
+     new_value=if value.nil? || value == ''
+        token
+     else
+        value
+      end
+     string(new_value)
+   end
+   #Converte em String PS
+   def FieldFormat.string(value)
+      to_string(value)
+   end  
+   #Sugar para or_value substituindo X_or_value. Exemplo:
+   # yes_or_value #yes unless nil or '' 
+   def FieldFormat.method_missing(name,*args)
+      if name.to_s =~ /_or_value$/
+        s=name.to_s.gsub(/_or_value$/,'')
+        
+        FieldFormat.or_value(args.first,s)
+      end
+   end
+   
+end
+end
+#Prot�tipo de formata��o. Override retornando uma string no m�todo format para heran�as
+class DataGrid::FieldFormat::Custom 
+   
+  def initialize(value)
+    @value=value
+  end
+   
+  def gs_format
+    DataGrid::FieldFormat.string(self.format)
+  end 
+
+  def format
+    @value.to_s
+  end
+   
+end
+

data/lib/rghost/data_grid/grid.rb

@@ -0,0 +1,18 @@
+require 'ps_object'
+#Grid concreta para Matriz de dados
+class DataGrid::Grid < DataGrid::BasicGrid
+  #Recenbe um Array de Arrays(matriz)
+  def data(_data)
+      _data.each{|d| proc_line(d) }
+     
+  end
+  
+end
+
+
+
+  
+  
+  
+  
+  

data/lib/rghost/data_grid/header.rb

@@ -0,0 +1,111 @@
+$LOAD_PATH << File.dirname(__FILE__)+File::SEPARATOR+"../"
+require "ps_object"
+require "ruby_to_ps"
+require "variable"
+require "units"
+require "function"
+require "callback"
+#require 'data_grid'
+#Header da Grid
+class DataGrid::Header < PsObject
+  include RubyToPs
+     
+  DEFAULT_OPTIONS={:width => 4, :align => :center, :title_align => nil, :header_width => nil, :format => :string}
+    attr_reader :data_types, :titles, :size
+  #Nova inst�ncia de DataGrid::Header. Op��es padr�o para todas as colunas
+  # :width => 2.5         #Largura da coluna
+  # :align => :left       #Alinhamento os dados em rela��o a coluna (:right, :center, :left )
+  # :title_align => :left #Alinhamento do t�tulo
+  # :format => "%0.2f"    #Formatador de dados onde o par�metro s�o.
+  #     Symbol - Procura o m�todo com o mesmo nome definido no m�dulo DataGrid::FieldFormat::method_name
+  #     String - Formata com os padr�es definidos em sprintf
+  #     Class  - Uma heran�a de DataGrid::FieldFormat::Custom com override no m�todo format. 
+  #     Proc   - Um bloco. No exemplo um texto limitado a 9 caracteres.
+  #�ltimo parametro opcional &block para um instance_eval
+  def initialize(headings=true,options={},&block)
+    @header=PsObject.new
+    @data_types=[]
+    @options=[]
+    @titles=[]
+    @default_options=DEFAULT_OPTIONS.merge(options)
+    @header.set Variable.new(:headings?,headings)
+    @size=0      
+    instance_eval(&block) if block
+      
+  end
+    
+  def ps
+       
+    p,h=format_header
+    @header.set Variable.new(:header_titles,to_array(@titles))
+    @header.set Variable.new(:table_params," [\n #{p}] \n")
+    @header.set Variable.new(:table_header," [\n #{h}] \n") 
+      
+      
+    @header          
+  end
+  #Adiciona uma coluna
+  def col(name="", options={})
+      
+    opts=@default_options.merge(options)
+    @size+=opts[:width]
+    @data_types << opts[:format]
+    @options << opts
+    @titles <<  ps_escape(name.to_s)
+       
+  end
+  #Merge de op��es defaults e personalizadas
+  def default_options(opts)
+    @default_options.merge!(opts)
+      
+  end
+  #Alias col
+  def column(name,options={})
+      col(name,options)
+  end
+  #Alias col  
+  def next_column(name,options={})
+    col(name,options)
+  end
+  #Callback antes de criar o header  
+  def before_create(&block)
+    @header.set Function.new(:before_header_create, &block )
+  end
+  
+  #Callback depois de criar o header  
+  def after_create(&block)
+    @header.set Function.new(:after_header_create, &block )
+  end
+  #Callback antes de criar uma coluna header
+  def before_column(options={},&block)
+     @header.set Callback.new(:before_column_header, options,&block)
+    
+  end
+    #Callback depois de criar uma coluna header
+  def after_column(options={},&block)
+    @header.set Callback.new(:after_column_header,options,&block)
+     
+  end
+    
+  private
+  def format_header
+    p='' #params
+    h='' #params_head
+    o=@options.dup
+    o.each do |v|
+      v[:title_align]||=v[:align]
+      v[:header_width]||=v[:width]
+      p << "[ #{Units::parse(v[:width])} /st_#{v[:align]}]\n "      
+      h << "[ #{Units::parse(v[:header_width])} /st_#{v[:title_align]}]\n "
+    end
+    
+    return p,h
+    
+  end
+
+  
+end
+
+
+  
+