zaphire 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: e49d1f9039ea5aa6ebb13a4f62fb1ce77bf33be5
+  data.tar.gz: 137b249110869e5a3e209ee43bf1e954ea0fc5fc
+SHA512:
+  metadata.gz: 23e6f16c246d180b2572fdc9261190b1d592fac6b1b653ca9bf1bac62fda5571a6c39f7fc185cacc3af1460f1bdfe49114f5cf31938cb017e65c99b8a6f85911
+  data.tar.gz: 0c60b2b1722b916bbe5ffbeea643f9dab71cd9ecc1f9ffc52c0959f36d54a9db4bfc70f84230852a53ee33c565d49f809570b35bb51471013adf18ee5edc19ba

data/lib/zaphire.rb

@@ -0,0 +1,225 @@
+require 'roo'
+#require 'google-spreadsheet-ruby'
+require 'matrix'
+require 'google_drive'
+require 'csv'
+require 'open-uri'
+
+module Zsave
+
+	def self.csv(arr,file,mode="w",opts={})
+
+		arr = arr.to_a
+    	
+		File.open(file,mode){ |f| f << arr.map(&:to_csv).join("\n") }
+
+    	#open(path,mode,opts){ |csv| array.each{ |row| csv << row } }
+  	end
+
+  	def self.cvs(array,path,mode="w",opts={})
+ 	
+ 		arr = arr.to_a
+    
+    	File.open(file,mode){ |f| f << arr.map(&:to_csv).join("\n") }
+	
+		#open(path,mode,opts){ |csv| array.each{ |row| csv << row } }
+  	end
+
+end
+
+
+module Zgdocs
+
+	def self.save key,sheet,startcel,data,user,password
+
+		t = Roo::Google.new(key, user: user, password: password)
+		t.default_sheet = sheet
+
+		rowstart = startcel[0]
+		colstart = startcel[1]
+
+		curRow = rowstart
+
+		rowstosave = data.row_size
+		sheetrows = Zgdocs.makesurethereisrows(rowstosave,key,sheet,user,password) 
+
+		puts "Data to save: " << data.to_s
+		puts "Rows : " <<  rowstosave.to_s
+
+		xx = data.row_size - 1
+
+		0.upto(xx) do |therow|
+
+			curCol = colstart
+
+			m "ZgdocsSaving Row",therow,xx
+		
+			data.row(therow).each do |value|
+
+			#0.upto(row.column_count) do |col|
+
+				# puts "ZgdocsSaving row: " << curRow.to_s << " col: " << curCol.to_s << " Value: " << value.to_s
+
+				# value = data[rownum,colnum]
+
+				t.set(curRow, curCol, value, sheet)
+
+				curCol += 1
+			end
+
+			curRow += 1
+
+		end
+	end
+
+	def self.makesurethereisrows rows,key,sheet,user,password
+		t = Roo::Google.new(key, user: user, password: password)
+
+		session = GoogleDrive.login(user, password)
+
+		ws = session.spreadsheet_by_key(key).worksheet_by_title(sheet)
+	
+		ws.max_rows = (rows + 2) if ws.max_rows < rows
+
+	end
+
+	def self.makesurethereissheet sheet,key,user,password
+		t = Roo::Google.new(key, user: user, password: password)
+
+		unless t.sheets.include?(sheet)
+			session = GoogleDrive.login(user, password)
+			ws = session.spreadsheet_by_key(key)
+			worksheet = ws.add_worksheet(sheet)
+		end
+	end
+end
+
+def it
+	@it
+end
+
+def get a
+	@it = a
+end
+
+def trunc a, decimals = 0
+	if decimals == 0
+		a.to_i
+	else
+		b = '%.' << decimals << "f"
+		sprintf(b,a)
+	end
+end
+
+def put a
+	puts a.to_s
+end
+
+def d a
+	puts a
+end
+
+def m itext,i,xx,iadditional = ""
+	tt = xx.to_f + 1.00
+	aa =  trunc( (( (i.to_f+1) / tt) * 100) )
+	it = itext << ": (" << aa.to_s << "%)"
+
+	return "" if @mvar == it
+	@mvar = it 
+
+	texttodisp = @mvar << " " << iadditional
+
+	i += 1
+	xx += 1
+
+	@mstart = theticks() if i == 1
+	return "" if i == 1 or xx == 1
+	
+	it = trunc( (i.to_f / tt*10) )
+	
+	ee = ( (theticks.to_f - @mstart.to_f) / 60)  *  ( (tt - i)/i.to_f )
+	aa = trunc( ee )
+	bb = trunc( aa.to_f / 60 )
+	cc1 = aa.to_f / 60
+	cc2 = trunc( (aa.to_f / 60) )
+	cc = trunc( (cc1  - cc2 ) * 60 )
+
+	cc = "0" << cc.to_s if cc.to_s.size == 1
+
+	it = "[" << " XXXXXXXXXX"[1..it.to_i] << " __________"[1..(10-it.to_i)]  << "] " << texttodisp << " (" << bb.to_s << ":" << cc.to_s << " Min. left) " << i.to_i.to_s << " of " << tt.to_i.to_s
+  
+	d it
+
+	iSetMsgForTerm(@itermattended, it) unless @itermattended 
+end
+
+def iSetMsgForTerm iterm,imessage
+
+end
+
+# on m itext,i,xx
+#    global mvar,mtim,mstart,iTermAttended
+#    put trunc(i/xx*100) into aa
+#    get itext&": ("&aa&"%)"
+#    if mvar is it then exit m else put it into mvar
+#    if i is 1 then put the ticks into mstart
+#    if i is 0 or xx is 0 then exit m
+#    get trunc(i/xx*10)
+#    put trunc((the ticks-mstart)/(60)* ((xx-i)/i)) into aa
+#    put trunc(aa/60) into bb
+#    put trunc( (aa/60-trunc(aa/60))*60 ) into cc
+#    if length(cc) is 1 then put "0" before cc
+#    get "["&char 1 to it of " XXXXXXXXXX" & char 1 to (10-it) of "__________"&"]"&&mvar &&"("& bb&":"&cc&" Min. left)"  &&i&&"of"&&xx
+#    d it
+#    if iTermAttended is not empty then get iSetMsgForTerm(iTermAttended,unquote(it))
+# end m
+
+def theticks
+	Time.now().to_i
+end
+
+
+class Matrix
+    def dump(firstLine = "")
+        str = ""
+        if firstLine != ""
+            str << firstLine << "\n"
+        end
+        for i in 0...self.row_size
+            space = ""
+            for j in 0...self.column_size
+                str << space << self[i,j].to_s
+                space = " "
+            end
+            str << "\n"
+        end
+        return str
+    end
+    # La classe Matrix est immutable, or je veux pouvoir écrire :
+    #   m[i,j] = v
+    #
+    def []=(i, j, v)
+        @rows[i][j] = v
+    end
+    # Il n'y a même pas de constructeur pour une matrice rectangulaire : bouhhh
+    # Le prefixe "self." permet de déclarer une méthode de classe
+    def self.create(nbRows, nbCols, value)
+         return Matrix.rows(Array.new(nbRows, Array.new(nbCols,value)))
+    end
+end
+
+
+def left a,b
+	c = b-1
+	a.to_s[0..c]
+end
+
+def chars a,b,c
+	c.to_s[a-1..b-1]
+end
+
+# visiblematrix.each_with_index do |x, xi|
+#   x.each_with_index do |y, yi|
+#     puts "element [#{xi}, #{yi}] is #{y}"
+#   end
+# end

data/test/test_zaphire.rb

@@ -0,0 +1,10 @@
+require 'test/unit'
+require 'zaphire'
+
+class ZaphireTest < Test::Unit::TestCase
+
+
+  def test_put
+    put "Just Like Hypercard!  :) "
+  end
+end

metadata

@@ -0,0 +1,46 @@
+--- !ruby/object:Gem::Specification
+name: zaphire
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Lima90001
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-08-08 00:00:00.000000000 Z
+dependencies: []
+description: A library to make Ruby nicer to HyperCard users and Myself
+email: lima90001@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/zaphire.rb
+- test/test_zaphire.rb
+homepage: http://rubygems.org/gems/zaphire
+licenses:
+- AFL
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 3
+summary: Zaphire!
+test_files:
+- test/test_zaphire.rb