rghost 0.6.5

data/lib/rghost/ps/textarea.ps

@@ -0,0 +1,11 @@
+/textarea_defaults {
+  /space ( ) def
+  /spacecount { 0 exch ( ) { search { pop 3 -1 roll 1 add 3 1 roll } { pop exit } ifelse } loop } def
+  /ssp { space search pop } def
+  /dsp { dup stringwidth pop } def
+  /cpp { currentpoint pop } def
+  /S { dup spacecount {ssp dsp cpp add rm gt { L s s }{ s s } ifelse } repeat pop } def
+  /n { show newline } def /s { show } def /L { newline } def
+  /centre { dup stringwidth pop 2 div rm 2 div exch sub lm add tm moveto } def
+  /c{ centre n} def
+} def

data/lib/rghost/ps/type.ps

@@ -0,0 +1 @@
+%!

data/lib/rghost/ps/unit.ps

@@ -0,0 +1,3 @@
+/cm { 72 mul 	2.545 div } def
+/inch{ 72 mul } def
+/unit{ cm } def

data/lib/rghost/ps/vertical_line.ps

@@ -0,0 +1,14 @@
+/vertical_line{ exch gsave current_row moveto 0 exch neg rlineto stroke grestore } def
+/vlr {
+	gsave
+		0 row_height rlineto
+    stroke
+	grestore
+} def
+/vlrf { 
+	gsave
+	X Y row_padding sub moveto
+		0 row_height row_padding add rlineto
+    stroke
+	grestore
+} def

data/lib/rghost/ps_object.rb

@@ -0,0 +1,51 @@
+#Wrapper Postscript
+class PsObject
+   #PS_VERSION=3
+  #Nova inst�ncia de PsObject
+  #   PsObject.new("/my_proc { 33 45 2 10 sub mul div} bind def") 
+  #Por bloco
+  #   PsObject.new do
+  #     set PsObject.new("(A test) show")
+  #     raw "(Other Test in raw) show "
+  #   end
+  def initialize(body="",&block)
+    @body=if body.is_a? PsObject
+      body.ps
+    else
+      "#{body} "
+    end
+    
+    instance_eval(&block) if block
+    
+  end
+  #Idem ps
+  def to_s
+      ps
+  end
+  #Obtem os comandos em Postscript
+  def ps
+     @body.to_s
+  end
+  #Adiciona comando postscript diretamenta na pilha
+  def raw(value)
+    @body << "#{value} "
+  end 
+  #Seta um PsObject na pilha
+  def set(value)
+
+    raise TypeError.new("can't convert #{value.class} into PsObject") unless value.is_a? PsObject
+    @body << "#{value.ps} "
+    
+  end
+  #Idem de set, n�o funciona dentro de blocos
+  def <<(value)
+      set value
+   
+  end
+  
+  #chama um comando,fun��o ou valor internamento dentro da pilha Postscipt
+  def call(name)
+    set PsObject.new(name)
+  end  
+   
+end

data/lib/rghost/rectangle.rb

@@ -0,0 +1,39 @@
+require "ps_object"
+require "units"
+require "color"
+#Respons�vel pela cria��o de ret�ngulos
+class Rectangle < PsObject
+  DEFAULT_OPTIONS={:fill => false, :x => :limit_left, :y=> :current_row, :width => :area_x, :height => :row_height}
+  BACKGROUND_ROW_DEFAULT_OPTIONS={:start_in => :limit_left, :size => :area_x, :color => Gray.new(0.95)}
+  #Nova inst�ncia de Rectangle.
+  #  Retangle.new(:x => 1, :y => 5, :height => 5, :width => 5) #um quadrado
+  #O Rectangle desenha apenas as bordas(default) mas pode-se utilizar :fill => true para preenche-lo.
+  #  Retangle.new(:x => 1, :y => 5, :width => 3, :fill => true ) 
+  def initialize(options={})
+      @options=DEFAULT_OPTIONS.dup.merge(options)
+  end
+ 
+  def ps
+    x,y=@options[:x], @options[:y]
+    w,h,=@options[:width], @options[:height]
+    #with parse
+    x,y=Units::parse(x),Units::parse(y)
+    w,h=Units::parse(w),Units::parse(h)
+    cmd=@options[:fill] ? :fill : :stroke 
+    "#{x} #{y} #{w} #{h} rect#{cmd}"
+  end
+
+  #Desenha um ret�ngulo ao fundo da faixa corrente  
+  # Rectangle.background_row(:start_in => 2, :size => 10, :color => Color.create("FFAAFF"))
+  #Default 
+  # Rectangle.background_row(:start_in => :limit_left, :size => :area_x, :color => Gray.new(0.95))
+  #O mesmo que 
+  # Rectangle.background_row 
+  def Rectangle.background_row(options={})
+    opts=BACKGROUND_ROW_DEFAULT_OPTIONS.merge(options)
+    start_in,size=Units::parse(opts[:start_in]),Units::parse(opts[:size])
+    return PsObject.new("#{start_in} #{size} {#{opts[:color]}} background_row ")
+
+  end
+  
+end

data/lib/rghost/rghost.rb

@@ -0,0 +1,3 @@
+$LOAD_PATH << File.dirname(__FILE__)+File::SEPARATOR+"rghost"
+require 'document'
+require 'data_grid/data_grid'

data/lib/rghost/ruby_ghost_config.rb

@@ -0,0 +1,25 @@
+require "ps_object"
+
+
+module RubyGhostConfig
+  GS={
+      :mode => :gsparams,
+      :path => "/usr/bin/gs",
+      :tmpdir => ENV["TMP"] || ENV["TMPDIR"] || ENV["TEMPDIR"] || ENV["TEMP"] || "/tmp",
+      :pslibdir => File.dirname(__FILE__)+File::SEPARATOR+"ps",
+      :default_params=> %w(gs -dNOPAUSE -dBATCH -dQUIET -dNOPAGEPROMPT),
+      :stack_elements => 50,
+      :unit => Units::Cm
+  }
+  
+  
+  
+  def RubyGhostConfig.config_platform
+    
+    GS[:path]=case PLATFORM
+      when /linux|darwin|freebsd/: "/usr/bin/gs"
+      when /mswin/: "C:\\gs\\bin\\gswin32\\gswin32c.exe"
+    end
+  end
+
+end

data/lib/rghost/ruby_ghost_engine.rb

@@ -0,0 +1,175 @@
+require 'ruby_ghost_config'
+require "constants"
+#Motor do RubyGhost. Trata parametros e arquivos tempor�rios para a compila��o do Postscript.
+#
+class RubyGhostEngine
+	attr_reader :errors, :error, :output
+  DEFAULT_OPTIONS={:device => :pdf }
+  
+  include Constants::Devices
+  #Nova inst�ncia de RubyGhostEngine
+  # d=Document.new
+  # rge=RubyGhostEngine.new(d, :logfile => "/var/log/rgengine.log")
+  # img=rge.render(:gif)
+  # if rge.error 
+  #   puts rge.errors
+  # else
+  #   FileUtils.cp(img,"/local/my/dir/")
+  # end
+  def initialize(document,options={})
+    @document=document   
+		@options=DEFAULT_OPTIONS.merge(options)
+		@errors=[]
+		@error=false
+		@output=nil	
+    @delete_input=true
+
+  end 
+
+  #Renderiza o documento.
+  #Valores v�lidos para options.
+  #   
+  #   :logfile => "/var/log/rghost.log"    
+  #   :multipage=> true     # Para imagens em v�rios arquivos
+	#   :resolution => 72     # Resolu��o
+	#   :size => "200x180"    # Para crop da imagem de sa�da
+	#   :range =>2..3         # Range de p�ginas(PDF only)
+	#Array contendo um Hash para op��es em modo raw do Ghostscript :d ou :s
+	#   :s => [{:GenericResourceDir, :DEFAULTPAPERSIZE=> "a3"}]
+  #   :d => [ {:TextAlphaBits => 2}  ]
+  #
+  #Exemplo:
+  #  d=Document.new
+  #  #fa�a o documento ....
+  #  
+  #  d.render :pdf           # Sa�da em pdf    
+  #  d.render :jpeg          # Sa�da em jpeg   
+  #  d.render :png, :multipage => true  # Uma imagem por arquivo
+  #  d.render :tiff, :resolution => 300  # Imagem com resolu��o de 300 dpi
+	def render(device=nil)
+  puts @options.inspect
+    device||=@options[:device]
+    tmp_filename=@options[:filename]
+    unless tmp_filename
+      tmp_filename||="#{RubyGhostConfig::GS[:tmpdir]}#{File::SEPARATOR}#{self.object_id.abs}"
+  		file_out="#{tmp_filename}.#{device}"
+    else
+      file_out=tmp_filename
+    end
+    puts file_out
+    file_err="#{tmp_filename}.rgerr"
+	  
+	  multipage=@options[:multipage] 
+    file_out.gsub!(/\./,"_%04d.") if multipage
+    
+    params=RubyGhostConfig::GS[:default_params].dup #default parameters gs engine
+    params << "-I#{RubyGhostConfig::GS[:pslibdir]}"
+    params << "-sDEVICE=#{device_for(device)}"
+    params.concat format_params(@options[:d],"-d") if  @options[:d]
+    params.concat format_params(@options[:s],"-s") if  @options[:s]     
+    params << "-r#{@options[:resolution]}" if @options[:resolution]
+    params << "-g#{@options[:size]}" if @options[:size]
+    if @options[:range]
+      params << "-dFirstPage=#{@options[:range].first}"
+      params << "-dLastPage=#{@options[:range].last}"
+    end
+    params << "-sstdout=#{file_err}"
+    params << @options[:raw] if @options[:raw] 
+    params << "-sOutputFile=#{file_out}"
+     
+    
+    case @document 
+      when Document:
+        file_in="#{tmp_filename}.rgin"
+        params.concat @document.gs_paper
+        fi=File.open(file_in,'w')
+        fi.puts @document.ps
+        fi.close
+      when File:
+        file_in=@document.path
+        @delete_input=false
+      when String:
+        file_in=@document
+        @delete_input=false
+    end
+    
+  
+    
+    
+		params << file_in
+    
+    
+    puts params.inspect
+    
+    if RubyGhostConfig::GS[:mode] == :gslib
+      require "rgengine"
+      gs=RGEngine.new 
+      @error=!gs.render(params,params.size)
+    else
+      require 'gs_alone'
+      gs=GSAlone.new(params)
+      @error=!gs.run
+    end
+    
+    if @error # if error
+      @errors=File.open(file_err).readlines
+    else
+    	if multipage
+      	file_out.gsub!(/_%04d/,"_*")
+        @output=Dir.glob(file_out).map { |f| File.open(f) }
+      else
+				@output=File.open(file_out)
+      end
+		end
+		File.delete(file_err)
+		File.delete(file_in) if @delete_input 
+		
+		log(params) if @options[:logfile]
+		return @output
+	end
+
+  def clear_output
+    case @output
+      when File:  File.delete(@output.path)
+      when Array: @output.each {|f| File.delete(f.path)}
+    end
+  end
+
+  private
+	def log(gp)
+		id=self.object_id.abs
+		flog=File.open(@options[:logfile], File::WRONLY|File::APPEND|File::CREAT)
+    flog.puts "[ID #{id}] created on #{Time.now}"
+    flog.puts "[#{id}] RUBY GS OPTIONS: #{@options.inspect}"
+    flog.puts "[#{id}] GS OPTIONS: #{gp.join(" ")}"
+    if @error
+			flog.puts "[#{id}] EXIT STATUS: ERROR"
+      flog.puts @errors.uniq.map {|m| "[#{id}] #{m}" }.to_s;         
+    else
+			flog.puts "[#{id}] EXIT STATUS: OK"				
+    end
+  end
+	
+	
+	def format_params(v,pre="-d")
+		r=[]
+		case v
+			when Symbol:
+				r << "#{pre}#{v}"
+			when Array:
+				v.each do |av|
+					r << format_params(av,pre).to_s
+				end
+			when Hash:
+				v.each do |k,v|
+					r << "#{pre}#{k}=#{v.to_s.gsub(/ /,'')}"  	
+				end
+			else
+			return "" 
+		end
+		return r; 
+	end
+
+end
+
+

data/lib/rghost/ruby_to_ps.rb

@@ -0,0 +1,92 @@
+#Modulo de convers�o e tratamento de valores de Ruby para Postscript
+module RubyToPs
+
+  #Converte uma string Ruby para string Postscript
+	def to_string(value)
+		#ps escape
+		ps_str=ps_escape(value)
+		"(#{ps_str}) "
+
+	end
+	#Escapa ( e ) para string postscript
+	def ps_escape(value)
+	   value.to_s.gsub(/(\(|\))/,'\\\\\1')
+	end
+	#Converte para ps bool
+	def to_bool(value)
+     value ? "true":"false"
+	end
+  #Converte para um array de string ps
+	def to_string_array(arr)
+		
+		"[#{arr.map{|a| to_string(a.to_s) }}] "
+	end
+	#Converte para um array ps
+	def to_array(arr)
+	 return "[ ]" unless arr
+	 ps_arr=[]
+		arr.each do |a|
+			ps_arr << case a
+				when TrueClass,FalseClass: to_bool(a)
+				when Numeric: a
+				when Proc: a.to_s
+				when Array: to_array(a)
+				else
+					to_string(a.to_s)
+			end
+		end
+		"[#{ps_arr.join(' ')}] "
+	end
+  #Converte um hash para string array  ps
+	def hash_to_array(hash)
+			to_string_array(hash.values)
+	end
+  #'aload' converte um array para dados em pilha 
+  def array_to_stack(arr)
+    "#{arr.join(' ')} "
+  end
+  #Eval para dados internos de postscript.
+  # s=string_eval("Page: %current_page% of %count_pages%")
+  #As vari�veis s�o delimitadas por % 
+  def string_eval(str)
+    return "(#{ps_escape(str)}) show " unless str =~ /%/
+
+    s=str.scan(/([^%][a-z]*[^%]|\d+%?)|(%[^\s%]+%)/).flatten.compact
+    #puts s 
+    tudo=""
+    s.each do |v|
+      case v
+        when /^%/: tudo << "#{v.gsub(/%/,'')} to_s show "
+        else
+          tudo << "(#{ps_escape(v)}) show "
+       end
+    end
+     tudo
+  end
+end
+
+
+
+#class Teste 
+#	include RubyToPs
+
+#end
+#Teste.new.string_eval("diga %current_row oi")
+
+#
+#class Ligacoes < ActiveRecord::Base
+#
+#end
+#
+#ActiveRecord::Base.establish_connection(:adapter => "postgresql",:database => "fonip", :host => 'solaris', :username => 'fonip', :password=>'qwe123')
+#
+#t=Teste.new
+#liga=Ligacoes.find(:all, :limit => 50, :conditions => "id > 100")
+#
+#puts liga.class
+#
+#liga.each do |l|
+#
+#puts t.hash_to_array(l.attributes)
+#
+#end

data/lib/rghost/scale.rb

@@ -0,0 +1,14 @@
+require "ps_object"
+#Escala dos objetos
+
+class Scale < PsObject
+  #Nova inst�ncia de Scale
+  # Scale.new(1,1)      # default postscript
+  # Scale.new(0.5,0.5)  # zoom de 50%
+  # Scale.new(2,2)      # zoom de 200%
+  def initialize(sx,sy)
+    super("#{sx} #{sy} scale")
+  end
+
+
+end