zaphire 0.0.18 → 0.0.36

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 04eabf77d33c1a421a393a1983bd07f6706a881a
-  data.tar.gz: 09d1adab1102d694c8c58104a8a199f9983aea5a
+  metadata.gz: 490649dca97a57ebd6112acb99f9a9c727eafd60
+  data.tar.gz: df8c16f18ae82d1f781f8e2502879dc744040aa7
 SHA512:
-  metadata.gz: cec493e72d388a2f326e827171a7704d33c80638a857a6e264fe6bd6625037f0af7c361ad58b466f5ed96546dad5ec42dbdcae19f6c39b228bd4dbbedac403ea
-  data.tar.gz: a89d8d7d72f8927e5df1a4352769eb6727a0823255cf61698288a2b0f454bbd2826ffc9295c36367df0cf0f96348968876476058bd501b346bd9a95b1337a148
+  metadata.gz: cb593e631383b0ad495e96b47c63a785a89640a9136a0e0ec1eb12584898c40816b04efb075802784a10431018b0e9d0c9a7747369cfa03f9aa4a1449c9a5daf
+  data.tar.gz: ceb6827ea60b4e404c3d378e11c85276dab09714ccc76ec6bb01a4c986cb11f54b16fe6dcf694450c8ca4ff5122dec8b1c2b1f69695046b09420b53c515f19c6

data/lib/zaphire.rb

@@ -1,507 +1,582 @@
-require 'roo'
-#require 'google-spreadsheet-ruby'
-require 'matrix'
-require 'google_drive'
-require 'csv'
-require 'open-uri'
-
-# short version for short commands that rely on global variable well set to get things
-
-module Z
-
-	def self.get(pack=@iivar)
-
-
-		key = m(pack,'key')
-		sheet = m(pack, 'sheet')
-		user = m(pack, 'user')
-		password = m(pack, 'password')
-		togetx = m(pack, 'x')
-		togety = m(pack, 'y')
-
-		
-	end
-
-	def self.v
-		return '18'
-	end
-
-end
-
-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.addvalue key,sheet,value,user,password
-		t = Roo::Google.new(key, user: user, password: password)
-		t.default_sheet = sheet
-
-		rowtosave = Zgdocs.nextemptyrow(key,sheet,user,password)
-
-		t.set(rowtosave, 1, value, sheet)
-
-	end
-
-	def self.addvaluenoaddrow key,sheet,value,user,password
-		t = Roo::Google.new(key, user: user, password: password)
-		t.default_sheet = sheet
-
-		rowtosave =  t.last_row + 1
-
-		t.set(rowtosave, 1, value, sheet)
-	end
-
-
-	def self.addvaluenoaddrowtoken key,sheet,value,user,password,token
-
-		session = GoogleDrive.login_with_oauth(token)
-		
-		ws = session.spreadsheet_by_key(key).worksheet_by_title(sheet)
-
-		row = ws[1,1]
-
-		ws[row, 1] = value
-		ws.save()
-
-	end
-
-	def self.nextemptyrow key,sheet,user,password
-		t = Roo::Google.new(key, user: user, password: password)
-		t.default_sheet = sheet
-
-		session = GoogleDrive.login(user, password)
-		ws = session.spreadsheet_by_key(key).worksheet_by_title(sheet)
-
-		rows = t.last_row
-
-		ws.max_rows = (rows + 1) if ws.max_rows == rows
-
-		rows = 0 if rows == nil
-
-
-		aa = rows + 1
-		aa
-	end
-
-	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 itext,i,xx,iadditional
-	if i == nil
-		puts a
-		return ''
-	else
-		iadditional = '' if iadditional == nil
-		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
-end
-
-def iSetMsgForTerm iterm,imessage
-	return ""
-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
-
-# Extending Ruby !!
-
-class String
-
-	def delete_lines(num_of_lines=1)
-		split(/\r\n|\r|\n/, num_of_lines+1).last
-	end
-
-	def delete_char(number=1, number2='')
-		if number2==''
-			self[number-1]=''
-			self
-		else
-			self[number-1..number2-1]=''
-			self
-		end
-	end
-
-	def char(number=1, number2='')
-		if number2==''
-			self[number-1]
-		else
-			self[number-1..number2-1]
-		end
-	end
-
-	def line(number=1, number2='')
-		if number2==''
-			self.split('\n')[number-1]
-		else
-			self.split('\n')[number-1..number2-1]
-		end
-	end
-
-	def contains(tofind)
-		self.include? tofind
-	end
-
-	def lastchar(a=1)
-		return '' if self == nil
-		self[-a..-1]
-	end
-
-	def number_of_lines
-		return 0 if self == nil or self == ''
-		self.lines.count
-	end
-
-end
-
-class Nil
-	def lastchar
-		return ''
-	end
-
-	def number_of_lines
-		return 0
-	end
-
-	def contains
-		return false
-	end
-
-	def line
-		return ''
-	end
-
-	def char
-		return ''
-	end
-
-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
-
-def offset (tofind, pack)
-	a = pack.index(tofind)
-	if a == nill
-		a = 0
-	else
-		a += 1
-	end
-	a
-end
-
-def length a
-	a.length
-end
-
-def icrash imessage
-	d "CRASH****:  " << imessage
- #	break
-end
-
-def m(ifld, ipack, icrashnow)
-	r = "\n"
-
-	get offset("ı" << ifld << ",",ipack)
-   if @it == 0   # multiline pck
-   	get offset("ı" << ifld << r,ipack)
-   	ifldend = "ıend" << ifld 
-   	iendc =  offset(ifldend, ipack) - 2
-   	if iendc == 0 or iendc <= @it 
-   		if icrashnow == true
-   			icrash "mExtFrmPck:fldNotFound:'" << ifld << "'"
-   			return "***CRASH"
-   		end
-   		if ipack == ''
-   			get m(ifld, fiivar(), true)
-   		else
-   			get m(ifld, mreformat(ipack), true)
-   		end
-   	else
-   		istart = @it + (ifld.length) + 2
-   		get ipack.char(istart, iendc)
-   	end
-   else
-   	ifldend = r
-   	istart = @it + length(ifld) + 2
-   	ilen = length(ipack)
-   	rrr = ipack.char(istart, ilen) << r
-   	iendc = offset(ifldend, rrr) - 2 + istart
-   	get ipack.char(istart, iendc)
-   end
-   return @it
-end
-
-
-def mreformat ipack
-	r = "\n"
-	until 1 == 2 do
-		break if ipack.lines.count == 0 
-		get ipack.lines.first
-		ipack = ipack.delete_lines(1)
-
-		if @it.char(1) == "ı"
-			aa = aa << it << r
-
-			next if @it.contains(",")
-			
-			@it = @it.delete_char(1)
-			iend = offset("ıend" << @it, ipack)
-			icrash "reformat:StartedButNoEnd" if iend == 0
-			aa = aa << ipack.char(1, iend)
-			ipack = ipack.delete_char(1, iend)
-			aa = aa << ipack.line(1) << r
-			ipack = ipack.delete_lines(1)
-
-			next
-		else
-			aa = aa << "ı" << it << r
-		end
-	end
-
-	aa = aa << "≤"
-	return aa
-end
-
-def ireplaceachar(aa)
-	a = aa[0]
-	b = aa[1]
-	aa = aa.delete_char(1, 2)
-	aa = aa.gsub(a, b)
-	aa
-end
-
-# need to check strange symbols on a Mac, since Window mixes up chars
-def ms(ipart, inewvalue, ipack)
-	r = "\n"
-
-	icrash "ms():part not defined" if ipart == nil
-	ipack = mreformat(ipack) if ipack.lastchar() != "≤"
-	ipart = ireplaceachar("≤Ì" << ipart) if ipart.contains("≤")
-	inewvalue = ireplaceachar("≤Ì" << inewvalue) if inewvalue.contains("≤") 
-
-	if inewvalue.number_of_lines < 2
-		inewpart = "" << ipart << "," << inewvalue 
-	else
-		inewpart = "" << ipart << r << inewvalue << r << "end" << ipart
-	end
-
-	get offset(r << "" << ipart << ",", r << ipack)
-	get offset(r << "" << ipart << r, r << ipack) if @it == 0  
-
-	if @it == 0
-		if ipack == ''
-			return inewpart << r << "≤"
-		else
-			ipack[-1] = inewpart << r << "≤"
-			return ipack
-		end
-	end
-	istartchar = it 
-	iendoffset = offset("end" << ipart << r, ipack << r)
-	ilastChar = iendoffset + length(ipart) + 3
-	if iendoffset == 0 
-		yyy = ipack << r
-		ilastChar = offset(r, yyy.char(istartchar, (length(ipack)+1))) - 2 + istartchar 
-	end 
-	ipack[istartchar-1..ilastchar-1] = inewpart
-	return ipack
-end 
-
-def fiivar(aa=nil)
-	@iivar = '' if @iivar == nil
-	@iivar = aa unless aa == nil
-	return @iivar
-end
+# enconding: utf-8
+require 'roo'
+# require 'google-spreadsheet-ruby'
+require 'matrix'
+require 'google_drive'
+require 'csv'
+require 'open-uri'
+
+# short version for short commands that rely on global variable well set to get things
+
+module Z
+  def self.get(p = @iivar, _isHash = false)
+   begin
+	  session = GoogleDrive.login_with_oauth(p['auth_token']) unless p['auth_token'].nil?
+      session = GoogleDrive.login(p['user'], p['password'])
+
+       ws = session.spreadsheet_by_key(p['key']).worksheet_by_title(p['sheet'])
+
+	    value = ws[p['y'], p['x']]
+	    p = eval(value)
+	    p = nil if p[p.length - 1][0] != '<gpackend>'
+	    p.delete_last_item
+	rescue
+		return nil
+	end
+  end
+
+  def self.v
+    '36'
+  end
+end
+
+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.addvalue(key, sheet, value, user, password)
+    t = Roo::Google.new(key, user: user, password: password)
+    t.default_sheet = sheet
+
+    rowtosave = Zgdocs.nextemptyrow(key, sheet, user, password)
+
+    t.set(rowtosave, 1, value, sheet)
+  end
+
+  def self.addvaluenoaddrow(key, sheet, value, user, password)
+    t = Roo::Google.new(key, user: user, password: password)
+    t.default_sheet = sheet
+
+    rowtosave =  t.last_row + 1
+
+    t.set(rowtosave, 1, value, sheet)
+  end
+
+  def self.addvaluenoaddrowtoken(key, sheet, value, _user, _password, token)
+    session = GoogleDrive.login_with_oauth(token)
+
+    ws = session.spreadsheet_by_key(key).worksheet_by_title(sheet)
+
+    row = ws[1, 1]
+
+    ws[row, 1] = value
+    ws.save
+  end
+
+  def self.nextemptyrow(key, sheet, user, password)
+    t = Roo::Google.new(key, user: user, password: password)
+    t.default_sheet = sheet
+
+    session = GoogleDrive.login(user, password)
+    ws = session.spreadsheet_by_key(key).worksheet_by_title(sheet)
+
+    rows = t.last_row
+
+    ws.max_rows = (rows + 1) if ws.max_rows == rows
+
+    rows = 0 if rows.nil?
+
+    aa = rows + 1
+    aa
+  end
+
+  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(itext, i = nil, xx = '', iadditional = '')
+  if i.nil?
+    puts itext
+    return ''
+  else
+    iadditional = '' if iadditional.nil?
+    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 || 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
+end
+
+def iSetMsgForTerm(_iterm, _imessage)
+  ''
+end
+
+def theticks
+  Time.now.to_i
+end
+
+# Extending Ruby !!
+
+class String
+  def delete_lines(num_of_lines = 1)
+    return '' if self == ''
+    split(/\r\n|\r|\n/, num_of_lines + 1).last
+  end
+
+  def delete_char(number = 1, number2 = '')
+    return '' if self == ''
+    if number2 == ''
+      self[number - 1] = ''
+      self
+    else
+      self[number - 1..number2 - 1] = ''
+      self
+    end
+  end
+
+  def char(number = 1, number2 = '')
+    return '' if self == ''
+    if number2 == ''
+      self[number - 1]
+    else
+      self[number - 1..number2 - 1]
+    end
+  end
+
+  def line(number = 1, number2 = '')
+    return '' if self == ''
+    if number2 == ''
+      ok.split("\n")[number - 1]
+    else
+      ok.split("\n")[number - 1..number2 - 1]
+    end
+  end
+
+  def contains(tofind)
+    return false if self == ''
+    self.include? tofind
+  end
+
+  def lastchar(a = 1)
+    return '' if self == ''
+    self[-a..-1]
+  end
+
+  def number_of_lines
+    return 0 if self == ''
+    lines.count
+  end
+
+  def ok
+    force_encoding('UTF-8')
+  end
+end
+
+class Array
+  def delete_last_item(n = 1)
+    take size - n
+  end
+
+  def lastitem
+    self[-1]
+  end
+end
+
+class NilClass
+  def lastchar
+    ''
+  end
+
+  def ok
+    ''.force_encoding('UTF-8')
+  end
+
+  def number_of_lines
+    0
+  end
+
+  def contains
+    false
+  end
+
+  def line
+    ''
+  end
+
+  def lines
+    ''
+  end
+
+  def char
+    ''
+  end
+
+  def delete_char(_number = 1, _number2 = '')
+    ''
+  end
+
+  def delete_lines(_num_of_lines = 1)
+    ''
+  end
+end
+
+class Matrix
+  def dump(firstLine = '')
+    str = ''
+    if firstLine != ''
+      str << firstLine << "\n"
+    end
+    for i in 0...row_size
+      space = ''
+      for j in 0...column_size
+        str << space << self[i, j].to_s
+        space = ' '
+      end
+      str << "\n"
+    end
+    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)
+    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
+
+def offset(tofind = '', pack = '')
+  a = pack.ok.index(tofind)
+  if a.nil?
+    a = 0
+  else
+    a += 1
+  end
+  a
+end
+
+def length(a = '')
+  a.length
+end
+
+def icrash(imessage = '')
+  d 'CRASH****:  ' << imessage
+  #	break
+end
+
+def m(ifld = '', ipack = '', icrashnow = '')
+  return '' if ipack == ''
+
+  if ifld == ''
+    if icrashnow == true
+      icrash "mExtFrmPck:fldNotFound:'" << ifld << "'"
+      return '***CRASH'
+    else
+      return ''
+    end
+  end
+
+  a = ipack[ifld]
+
+  a = '' if a.nil?
+
+  a
+ end
+
+# def m(ifld='', ipack='', icrashnow='')
+# 	r = "\n".ok
+# 	mchar = 245.chr.ok.to_s
+# 	rrr = mchar << ifld << ","
+# 	get offset(rrr, ipack)
+# 	if @it == 0   # multiline pck
+# 		rrr = mchar << ifld << r
+# 		get offset(rrr, ipack)
+# 		ifldend = mchar << "end" << ifld
+# 		iendc =  offset(ifldend, ipack) - 2
+# 		if iendc == 0 or iendc <= @it
+# 			if icrashnow == true
+# 				icrash "mExtFrmPck:fldNotFound:'" << ifld << "'"
+# 				return "***CRASH"
+# 			end
+# 			if ipack == ''
+# 				get m(ifld, fiivar(), true)
+# 			else
+# 				get m(ifld, mreformat(ipack), true)
+# 			end
+# 		else
+# 			istart = @it + (ifld.length) + 2
+# 			get ipack.char(istart, iendc)
+# 		end
+# 	else
+# 		ifldend = r
+# 		istart = @it + length(ifld) + 2
+# 		ilen = length(ipack)
+# 		rrr = ipack.char(istart, ilen) << r
+# 		iendc = offset(ifldend, rrr) - 2 + istart
+# 		get ipack.char(istart, iendc)
+# 	end
+# 	return @it
+# end
+
+# def mreformat(ipack='')
+# 	r = "\n".ok
+# 	aa = ''
+# 	mchar = 245.chr.to_s.ok
+# 	mend = 178.chr.to_s.ok
+# 	return '' if ipack == ''
+# 	until 1 == 2 do
+# 		break if ipack.number_of_lines == 0
+# 		get ipack.ok.line(1)
+# 		ipack = ipack.ok.delete_lines(1)
+
+# 		if @it.char(1) == mchar
+# 			aa = aa << it << r
+
+# 			next if @it.contains(",")
+
+# 			@it = @it.delete_char(1)
+# 			rrr = mchar.ok << "end".ok << @it.ok
+# 			iend = offset(rrr, ipack.ok)
+# 			icrash "reformat:StartedButNoEnd" if iend == 0
+# 			aa = aa.ok << ipack.char(1, iend)
+# 			ipack = ipack.delete_char(1, iend)
+# 			aa = aa << ipack.line(1) << r
+# 			ipack = ipack.delete_lines(1)
+
+# 			next
+# 		else
+# 			aa = aa << mchar << it << r
+# 		end
+# 	end
+
+# 	aa = aa << mend
+# 	return aa.to_s
+# end
+
+def ireplaceachar(aa)
+  a = aa[0]
+  b = aa[1]
+  aa = aa.delete_char(1, 2)
+  aa = aa.gsub(a, b)
+  aa
+end
+
+def ms(ipart = '', inewvalue = '', ipack = '')
+  ipack = {} if ipack == '' || ipack.nil?
+  return ipack if ipart == ''
+
+  b = {}
+  b[ipart] = inewvalue
+  ipack.update(b)
+end
+
+def md(ipack)
+  ipack.keys.join("\n")
+end
+
+# need to check strange symbols on a Mac, since Window mixes up chars
+# def ms(ipart='', inewvalue='', ipack='')
+
+# 	def clean
+# 		a = self
+# 		mend = 178.chr.to_s.ok
+# 		mOther = 237.chr.to_s.ok
+# 		if a.contains(mend) then
+# 			rrr = mend << mOther << a
+# 			a = ireplaceachar(rrr)
+# 		end
+# 		a
+# 	end
+
+# 	r = "\n".to_s.ok
+# 	rrr = ''.to_s.ok
+# 	mchar = 245.chr.to_s.ok
+# 	mend = 178.chr.to_s.ok
+
+# 	icrash "ms():part not defined" if ipart == ''
+# 	ipack = mreformat(ipack) if ipack.lastchar != mend and ipack != ''
+# 	ipart = ipart.clean
+# 	inewvalue = inewvalue.clean
+
+# 	if inewvalue.number_of_lines < 2
+# 		inewpart = mchar << ipart << ',' << inewvalue
+# 	else
+# 		inewpart = mchar << ipart << r << inewvalue << r << "end" << ipart
+# 	end
+
+# 	rrr = r << mchar << ipart << ','
+# 	rr2 = r << ipack
+# 	get offset(rrr, rr2)
+# 	if @it == 0
+# 		rrr = r << mchar << ipart << r
+# 		get offset(rrr, r << ipack) if @it == 0
+# 	end
+
+# 	if @it == 0
+# 		if ipack == ''
+# 			return inewpart << r << mend
+# 		else
+# 			ipack[-1] = inewpart << r << mend
+# 			return ipack
+# 		end
+# 	end
+# 	istartchar = it
+
+# 	d "rrr: " << rrr.to_s.ok
+# 	d "ipart: " << ipart.to_s.ok
+# 	d "r: " << r.to_s.ok
+
+# 	rrr = "end".ok << ipart.ok << r.ok
+# 	iendoffset = offset(rrr.ok, ipack.ok << r.ok)
+# 	ilastchar = iendoffset + length(ipart) + 3
+# 	if iendoffset == 0
+# 		yyy = ipack.ok << r.ok
+# 		ilastChar = offset(r, yyy.char(istartchar, (length(ipack.ok)+1))) - 2 + istartchar
+# 	end
+# 	ipack[istartchar-1..ilastchar-1].ok = inewpart
+# 	return ipack.ok
+# end
+
+def fiivar(aa = nil)
+  @iivar = '' if @iivar.nil?
+  @iivar = aa unless aa.nil?
+  @iivar
+end
+
+def t
+  a = ''
+  a = ms('first', 'a', a)
+  a = ms('second', 'b', a)
+
+  m('second', a)
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: zaphire
 version: !ruby/object:Gem::Version
-  version: 0.0.18
+  version: 0.0.36
 platform: ruby
 authors:
 - Lima90001
@@ -10,7 +10,7 @@ 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
+description: A library to make Ruby nicer to HyperCard users and Myself and ++
 email: lima90001@gmail.com
 executables: []
 extensions: []
@@ -28,17 +28,17 @@ 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
+rubygems_version: 2.0.14
 signing_key: 
 specification_version: 3
 summary: Zaphire!