YkLib 0.1.0

data/lib/YkLib/Yk/file_aux_old.rb

@@ -0,0 +1,160 @@
+# old style funcs
+def File.l_open (f, mode = "r")
+	fw = nil
+	begin
+		case mode
+		when "w"
+			fw = File.open f, File::WRONLY|File::CREAT|File::NONBLOCK
+			fw.flock File::LOCK_EX
+			fw.truncate 0
+		when "a"
+			fw = File.open f, File::WRONLY|File::CREAT|File::APPEND|File::NONBLOCK
+			fw.flock File::LOCK_EX
+		when "r"
+			fw = File.open f, File::RDONLY|File::NONBLOCK
+			fw.flock File::LOCK_SH
+		when "w+"
+			fw = File.open f, File::RDWR|File::CREAT|File::NONBLOCK
+			fw.flock File::LOCK_EX
+			fw.truncate 0
+		when "a+"
+			fw = File.open f, File::RDWR|File::CREAT|File::APPEND|File::NONBLOCK
+			fw.flock File::LOCK_EX
+		when "r+"
+			fw = File.open f, File::RDWR|File::NONBLOCK
+			fw.flock File::LOCK_EX
+		end
+		if block_given?
+			yield fw
+		end
+	ensure
+		if block_given?
+			if fw
+				fw.close
+			end
+		end
+	end
+	fw
+end
+def IO.pread (f)
+	IO.popen(f).read
+end
+def IO.write (f, *c)
+	File.open(f, "w") do |fw|
+		c.each do |e|
+			fw.write e
+		end
+	end
+end
+def IO.pwrite (f, *c)
+	IO.popen f, "w" do |fw|
+		c.each do |e|
+			fw.write e
+		end
+	end
+end
+def IO.pwriteln (f, *c)
+	IO.popen f, "w" do |fw|
+		fw.writeln *c
+	end
+end
+def IO.writeln (f, *args)
+	File.open(f, "w") do |fw|
+		fw.writeln *args
+	end
+end
+def IO.l_write (f, *c)
+	File.l_open(f, "w") do |fw|
+		c.each do |e|
+			fw.write e
+		end
+	end
+end
+def IO.l_read (f)
+	c = nil
+	File.l_open(f, "r") do |fr|
+		c= fr.read
+	end
+	return c
+end
+def File.rewrite_each_line (fName, lock = false)
+	File.open fName, File::RDWR|File::CREAT|File::NONBLOCK do |fw|
+		lock && fw.flock(File::LOCK_EX)
+		begin
+			newLines = []
+			modPos = nil
+			ln = nil
+			lnNew = nil
+			pushNewLine = Proc.new do
+				lnNew != "" && lnNew[-1] != ?\n && lnNew += "\n"
+				newLines.push lnNew
+			end
+			fw.each_line do |ln|
+				lnNew = yield ln
+				if newLines.size == 0
+					if lnNew != ln
+						modPos = fw.pos - ln.size
+						pushNewLine.call
+					end
+				else
+					pushNewLine.call
+				end
+			end
+			if (lnNew = yield("")) != ""
+				if modPos == nil
+					modPos = fw.pos
+				end
+				if ln != nil && ln[-1] != ?\n
+					lnNew = "\n" + lnNew
+				end
+				pushNewLine.call
+			end
+			if newLines.size > 0
+				fw.seek modPos
+				newLines.each do |e|
+					fw.write e
+				end
+				fw.truncate fw.pos
+			end
+		ensure
+			lock && fw.flock(File::LOCK_UN)
+		end
+	end
+end 
+class File
+	def File.nb_open (fName, flg = "r", &bl)
+		open fName, IO::FMode.new(flg).to_i | File::NONBLOCK, &bl
+	end
+end
+class IO
+	def IO.nb_popen (cmd, flg = "r", &bl)
+		IO.popen cmd, IO::FMode.new(flg).to_i | File::NONBLOCK, &bl
+	end
+end
+class Array
+	def nb_open (flg = "r", &bl)
+		IO.nb_open condSQuote, flg
+	end
+	def nb_popen (flg = "r", &bl)
+		IO.popen condSQuote, IO::FMode.new(flg).to_i | File::NONBLOCK, &bl
+	end
+end
+def nb_open (flg, &bl)
+	File.nb_open(flg, &bl)
+end
+class Tempfile
+	class TempFifo < String
+		def initialize
+			super "/var/tmp/#{File.basename($0)}.#{rand(10000000000).to_s}.#{$$}.fifo"
+			system "mkfifo /var/tmp/#{File.basename($0)}.#{rand(10000000000).to_s}.#{$$}.fifo"
+			at_exit do
+				rm_f
+			end
+		end
+	end
+	def self.mkfifo
+		TempFifo.new
+	end
+end
+
+

data/lib/YkLib/Yk/filemod.rb

@@ -0,0 +1,19 @@
+require 'Yk/auto_pstore'
+
+	class FileMod
+		AutoPstore.fileMod ||= {}
+		@@fList = {}
+		def FileMod.updated? (fName)
+			m = AutoPstore.fileMod[fName]
+			AutoPstore.setFinalizer(:fileMod, fName) do |obj|
+				if fName.exist?
+					obj[fName] = fName.mtime
+				else
+					obj.delete fName
+				end
+			end
+			m || m < fName.mtime
+		end
+	end
+
+

data/lib/YkLib/Yk/force_escseq.rb

@@ -0,0 +1,3 @@
+$__force_escseq__ = true
+require 'Yk/auto_escseq'
+

data/lib/YkLib/Yk/generator__.rb

@@ -0,0 +1,144 @@
+#!/usr/bin/env ruby
+
+
+class Object
+	class Generator_
+		def inc
+            @cnt += 1
+            if @nextIsEnd
+                @current = nil
+                @currentIsEnd = true
+			#	@block.call
+            else
+              @current = @next
+              begin
+                @next = @enum.next
+              rescue StopIteration
+                @next = nil
+                @nextIsEnd = true
+              end
+            end
+            if @currentIsEnd
+				if @fin
+					@fin.call
+				end
+            end
+			self
+		end
+		def next?
+			!@nextIsEnd
+		end
+		def next
+            if @nextIsEnd
+                raise StopIteration
+            end
+			@next
+		end
+		def +@
+            if @currentIsEnd
+                raise StopIteration
+            end
+			@current
+		end
+		def current?
+			!@currentIsEnd
+		end
+		def current
+            if @currentIsEnd
+              raise StopIteration
+            end
+			@current
+		end
+		def index
+			@cnt
+		end
+		def initialize (m, args, fin = nil, &block)
+			if !m.is_a? Method
+				m = m.method(:each)
+			end
+			@block = block
+            @cnt = 0
+			@fin = fin
+            @enum = m.receiver.to_enum #*args
+            begin
+              @current = @enum.next
+            rescue StopIteration
+              @currentIsEnd = true
+              @nextIsEnd = true
+              @fin.call if @fin
+              return nil
+            else
+              @currentIsEnd = false
+              begin
+                @next = @enum.next
+              rescue StopIteration
+                @nextIsEnd = true
+              else
+                @nextIsEnd = false
+              end
+            end
+            ret = nil
+			if block
+	            begin
+    	          begin
+            	    ret = block.call self
+	              rescue StopIteration
+    	            break
+        	      end
+            	  inc
+	            end until @currentIsEnd
+			end
+			@fin = fin
+            ret
+		end
+	end
+	def each__ (mName = :each)
+		m = self.method(mName)
+		Generator_.new m, [] do |g|
+			yield g
+		end
+	end
+	def Object.generateEach (m, *args)
+		Generator_.new m, args do |g|
+			yield g
+		end
+	end
+	def generator__ (mName = :each, &fin)
+		m = self.method(mName)
+		Generator_.new m, [], fin
+	end
+end
+
+
+def generateEach__ (m, *args)
+	Object.generateEach(m, *args) do |g|
+		yield g
+	end
+end
+
+
+#argv = []
+#subArgs = Hash.new
+
+
+#ARGV.each__ do |g|
+#	if (+g)[0..1] == "--"
+#		subArgNum = 0
+#		switch = +g
+#		case switch
+#		when "--with1SubArg"
+#			subArgNum = 2
+#		end
+#		subArgNum.times do
+#			(subArgs[switch] ||= Array.new).push +g.inc
+#		end
+#	else
+#		argv.push +g
+#	end
+#end
+
+
+#p argv
+#p subArgs
+
+

data/lib/YkLib/Yk/generator__.rb.org

@@ -0,0 +1,139 @@
+#!/usr/bin/env ruby
+
+
+#require 'continuation'
+
+
+class Object
+	class Generator_
+		def inc
+            if @currentIsEnd
+                raise StopIteration
+            end
+            @cnt += 1
+            if @nextIsEnd
+                @current = nil
+                @currentIsEnd = true
+            else
+              @current = @next
+              begin
+                @next = @enum.next
+              rescue StopIteration
+                @next = nil
+                @nextIsEnd = true
+              end
+            end
+			self
+		end
+		def next?
+			!@nextIsEnd
+		end
+		def next
+            if @nextIsEnd
+                raise StopIteration
+            end
+			@next
+		end
+		def +@
+            if @currentIsEnd
+                raise StopIteration
+            end
+			@current
+		end
+		def current?
+			!@currentIsEnd
+		end
+		def current
+            if @currentIsEnd
+              raise StopIteration
+            end
+			@current
+		end
+		def index
+			@cnt
+		end
+		def initialize (m, args, fin = nil, &block)
+			if !m.is_a? Method
+				m = m.method(:each)
+			end
+			@block = block
+            @cnt = 0
+            @enum = m.receiver.to_enum *args
+            begin
+              @current = @enum.next
+            rescue StopIteration
+              @currentIsEnd = true
+              @nextIsEnd = true
+              return nil
+            else
+              @currentIsEnd = false
+              begin
+                @next = @enum.next
+              rescue StopIteration
+                @nextIsEnd = true
+              else
+                @nextIsEnd = false
+              end
+            end
+            ret = nil
+            begin
+              begin
+                ret = block.call self
+              rescue StopIteration
+                break
+              end
+              inc
+            end until @currentIsEnd
+            ret
+		end
+	end
+	def each__ (mName = :each)
+		m = self.method(mName)
+		Generator_.new m, [] do |g|
+			yield g
+		end
+	end
+	def Object.generateEach (m, *args)
+		Generator_.new m, args do |g|
+			yield g
+		end
+	end
+	def generator__ (mName = :each, &fin)
+		m = self.method(mName)
+		Generator_.new m, [], fin
+	end
+end
+
+
+def generateEach__ (m, *args)
+	Object.generateEach(m, *args) do |g|
+		yield g
+	end
+end
+
+
+#argv = []
+#subArgs = Hash.new
+
+
+#ARGV.each__ do |g|
+#	if (+g)[0..1] == "--"
+#		subArgNum = 0
+#		switch = +g
+#		case switch
+#		when "--with1SubArg"
+#			subArgNum = 2
+#		end
+#		subArgNum.times do
+#			(subArgs[switch] ||= Array.new).push +g.inc
+#		end
+#	else
+#		argv.push +g
+#	end
+#end
+
+
+#p argv
+#p subArgs
+
+

data/lib/YkLib/Yk/indenter/argless_case.rb

@@ -0,0 +1,46 @@
+
+
+class Token
+	module ArglessCaseLower
+		attr_accessor :arglessCaseUpper
+
+		def addArglessCaseLower pi
+			(@arglessCaseLowers ||= []).push pi
+			pi.kind = :argless_case_lower
+			pi.arglessCaseUpper = self
+		end
+		def closeBeginner pi
+			if !lines
+				raise Error.new("empty line under argless case")
+			end
+			lines.each_with_index do |item, i|
+				Token.addMod item.first.first, "#{i == 0 ? "#{')&&(' if parent.kind == :argless_case_lower}(" : ') ||'}("
+			end
+			#	case  				
+			#		x 			    (	x
+			#		a 			) ||(	a
+			#			b  					)&&(       (  b
+			#			c 					       ) ||(  c
+			#			d 					       ) ||(  d  )
+			#		e           ) ||(	e
+			#		f           ) ||(	f                               )
+			")"
+		end
+	end
+	module ArglessCase
+		def closeBeginner pi
+			Token.addMod s.range, ""
+			""
+		end
+	end
+	module Case
+		MethodChain.override do
+			def onClassify
+				if [:on_nl, :on_semicolon].include? next.kind
+					kind = :argless_case
+				end
+				super
+			end
+		end
+	end
+end