rghost 0.7.4 → 0.8

data/lib/rghost/arc.rb

@@ -1,39 +0,0 @@
-require "ps_object"
-require "units"
-# Arc representa arcos, onde ang2 acende os pontos e ang2 apaga os pontos, ambos no sentido anti-hor�rio para valores positivos.
-# Para evitar surpresas no esbo�o do Arc recomenda-se o uso dentro de um bloco newpath. 
-#   
-#   doc=Document.new
-#   doc.newpath do
-#     set Arc.new(:x => 3, :y => 3, :radius => 70, :ang2 => 180)
-#   end
-class Arc < PsObject
-  DEFAULT_OPTIONS={:fill => false, :x => :limit_left, :y=> :current_row, :radius => 50, :ang1 => 0, :ang2 => 360 , :use => :arc }
-  #Nova inst�ncia de Arc
-  # Responde as op��es 
-  #   :x => :limit_left   # Posi��o X
-  #   :y => :current_row  # Posi��o Y
-  #   :fill => false      # false - N�o preenche o arco mas desenha a borda, true - Preenche o arco
-  #   :radius => 50       # O raio do arco, valor em pontos
-  #   :ang1 => 0          # Apaga os pontos
-  #   :ang2 => 360        # Acende os Pontos
-  #   :use => :arc        # Usa o comando :arc e :arcn
-  #   
-  #Postscript Command: x y r ang1 ang2 arc
-  def initialize(options={})
-      @options=DEFAULT_OPTIONS.dup.merge(options)
-  end
- 
-  def ps
-    x,y=@options[:x], @options[:y]
-    x,y=Units::parse(x),Units::parse(y) #with parse
-    
-        
-    cmd=@options[:fill] ? :fill : :stroke 
-    "#{x} #{y} #{@options[:radius]} #{@options[:ang1]} #{@options[:ang2]} #{@options[:use]} #{cmd}"
-  end
-
-  
-
-
-end

data/lib/rghost/barcode.rb

@@ -1,40 +0,0 @@
-require "ps_object"
-#Trata das fontes bin�rias dispon�veis na API(GNU Barcodes)
-class Barcode < PsObject
-  DEFAULT_BARCODES={
-    :ean => "EANJK",
-    :code128 => "Code128JK" ,
-    :code39 => "Code39JK",
-    :i25 => "Codei25JK",
-  }
-  #Nova inst�ncia de Barcode
-  def initialize(barcode_name)
-    @barcode=barcode_name
-  
-  end
-    
-  def ps
-    Load.library(name,:font)  
-  end
-  #Obtem o nome da real da fonte Postscript
-  def font_name
-    DEFAULT_BARCODES[@barcode]
-  
-  end
-  #Codifica a fonte em N,n,W e w. Formato esperado pela fonte i25. 
-  def Barcode.i25_encode(string_integers)
-    cd=%w(00110 10001 01001 11000 00101 10100 01100 00011 10010 01010) # binaries
-    hash={'00' => 'n' , '01' => 'N', '10' => 'w', '11' => 'W'}
-    cnv= ''
-    v=-1;
-    barcode=barcode.scan(/./).map {|c| c.to_i}
-    (barcode.size.div 2).times do
-      b1,b2=cd[barcode[v+=1]],cd[barcode[v+=1]] 
-      0.upto(4) { |i|  cnv << hash[ b1[i].chr+b2[i].chr] } 
-    end
-    "<#{cnv}>"
-  end
-end
-
-
-#puts Barcode.new(:EAN).binary_font

data/lib/rghost/data_grid/basic_grid.rb

@@ -1,136 +0,0 @@
-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

@@ -1,27 +0,0 @@
-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

@@ -1,14 +0,0 @@
-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/field_format.rb

@@ -1,60 +0,0 @@
-$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

@@ -1,18 +0,0 @@
-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

@@ -1,111 +0,0 @@
-$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
-
-
-  
-

data/lib/rghost/data_grid/rails_grid.rb

@@ -1,62 +0,0 @@
-require 'ps_object'
-#Cria uma Grid para ActiveRecord::Base obtendo o valor de @attributes atraves do nome.
-class DataGrid::RailsGrid < DataGrid::BasicGrid
-  #Adiciona um Array de objetos ActiveRecord::Base
-  def data(_data)
-    _data.collect do |d|
-      line=@rails_cols.collect do |c| 
-        case c[:field_name]
-          when Symbol: d[c[:field_name]]
-          when String: d.instance_eval c[:field_name]
-          when Proc: d.instance_eval(&c[:field_name])
-        end
-      end
-      proc_line(line)
-    end
-  end
-  #Adiciona colunas associando :field_name ao t�tulo da coluna
-  #Exemplo:
-  #Para o exemplo abaixo a classe Calls � uma heran�a de ActiveRecord::Base. Constru��o normal.
-  #  rails_grid=DataGrid::RailsGrid.new(:align => :center, :width => 3)
-  #Mapeamento, primeiro o nome do atributo, depois as op��es j� conhecidas
-  #
-  # rails_grid.col :mobile,   :title => "Mobile", :align => :right 
-  # rails_grid.col :duration, :title => "Dura��o",:width => 3
-  # rails_grid.col :start,    :title => "Inicio", :format => :eurodate 
-  # rails_grid.col :called,   :title => "N�mero", :align => :right, :title_align => :center
-  # Carregamento dos dados
-  # calls = Calls.find(:all, :limit => 5000)
-  # rails_grid.data(calls)
-  #Para relacionamentos use um Proc ou uma String no lugar do nome do atributo(Symbol). Exemplo
-  #   class Contas < ActiveRecord::Base
-  #     belongs_to :clientes
-  #   end
-  # 
-  #   class Clientes < ActiveRecord::Base
-  #     has_many :contas
-  #   end
-  # 
-  #   c=Clientes.find(:all, :include => :clientes )
-  #Usando um bloco 
-  #   g=DataGrid::RailsGrid.new :width => 4 
-  #   g.col :id, :title => "Clientes id"
-  #   g.col :created_on, :title => "Data ", :format => :eurodate
-  #   g.col :login, :title => "Login"
-  #   g.col lambda { pessoas.nome }, :title => "Nome do cliente"
-  #   g.data(c)
-  #ou uma String
-  #   g.col 'pessoas.nome', :title => "Nome do cliente"
-  def col(field_name, options={})
-    super(options[:title],options) 
-    @rails_cols||=[]
-    owf=options.dup #from options with field
-    owf[:field_name]||=field_name
-    @rails_cols << owf
-    
-  end
-  # Alias col 
-  def column(field_name, options={})
-    col(field_name,options)
-  end
-
-end

data/lib/rghost/data_grid/style/border_lines.rb

@@ -1,47 +0,0 @@
-
-
-class DataGrid::Style::BorderLines
-  
-  def set_style(grid)
-
-    grid.before_row do
-      
-      set HorizontalLine.new(:top, :size => grid.header.size)
-      set HorizontalLine.new(:bottom,:size => grid.header.size)
-    end
-
-    grid.before_column :only => 0 do
-      set VerticalLine.row
-    end
-    
-    grid.after_column do
-      set VerticalLine.row
-    end
-    
-    
-    grid.header.before_create do
-      set LineWidth.new(0)
-      call :font_bold
-      set HorizontalLine.new(:top, :size => grid.header.size)
-      set HorizontalLine.new(:bottom,:size => grid.header.size)
-    end
-    
-    grid.header.after_create { call :font_normal }
-      
-  
-
-    grid.header.before_column :only => 0 do
-      set VerticalLine.row
-    end
-    
-    grid.header.after_column do
-      set VerticalLine.row
-    end
-    
-    
-    
-    
-  end
-
-
-end

data/lib/rghost/data_grid/style/bottom_lines.rb

@@ -1,30 +0,0 @@
-
-
-class DataGrid::Style::BottomLines
-  
-  def set_style(grid)
-
-    size=grid.header.size
-    grid.before_row do
-       set HorizontalLine.new(:bottom,:size => grid.header.size)
-
-    end
-    
-    grid.header.before_create do
-      set LineWidth.new(0)
-      set HorizontalLine.new(:bottom,:size => grid.header.size)
-      call :font_bold
-    end
-    
-    grid.header.after_create { call :font_normal }
-      
-  
-
-    
-    
-    
-    
-  end
-
-
-end

data/lib/rghost/data_grid/style/old_forms.rb

@@ -1,30 +0,0 @@
-
-
-class DataGrid::Style::OldForms
-  
-  def set_style(grid)
-
-    size=grid.header.size
-    grid.odd_row do
-      set Rectangle.background_row(:size => size)
-
-    end
-    
-    grid.header.before_create do
-      set LineWidth.new(0)
-      set  Rectangle.background_row(:size => size, :color => Gray.new(0.9) )
-      call :font_bold
-    end
-    
-    grid.header.after_create { call :font_normal }
-      
-  
-
-    
-    
-    
-    
-  end
-
-
-end

data/lib/rghost/data_grid/style/style.rb

@@ -1,8 +0,0 @@
-
-module DataGrid 
-  module Style
-    require 'data_grid/style/border_lines'
-    require 'data_grid/style/old_forms'
-    require 'data_grid/style/bottom_lines'
-  end
-end