127 lines
3 KiB
Ruby
127 lines
3 KiB
Ruby
|
|
||
|
|
class String
|
||
|
|
def tsub! opts = nil, &e
|
||
|
|
unless e
|
||
|
|
opts ||= {}
|
||
|
|
e = lambda do |f, a|
|
||
|
|
if opts.has_key? f
|
||
|
|
case v = opts[ f]
|
||
|
|
when Method, Proc: v.call a
|
||
|
|
else v.to_s
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
self.gsub!( %r<(\\*)\$\{(.*?)\}>) do
|
||
|
|
b, k = $1, $2
|
||
|
|
m = if b.length%2 == 0
|
||
|
|
k =~ %r<^(\w+)(?:\((.*)\))?$>
|
||
|
|
e.call $1 + ($2 ? '()' : ''), $2
|
||
|
|
end || "${#{k}}"
|
||
|
|
( '\\' * (b.length/2) ) + m
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
def tsub opts = nil, &e
|
||
|
|
e ? self.dup.tsub!( opts, &e) : self.dup.tsub!( opts)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
class VDR::SearchAndRecord < Array
|
||
|
|
attr_reader :vdr
|
||
|
|
class AutoTimer
|
||
|
|
attr_reader :vdr, :type, :start, :stop, :earlier, :later
|
||
|
|
attr_accessor :channel, :file, :title
|
||
|
|
def initialize vdr, title, channel, type = nil, file = nil,
|
||
|
|
earlier = nil, later = nil
|
||
|
|
@vdr, self.title, self.channel = vdr, title.dup, channel
|
||
|
|
self.file, self.type = file || '${title}', type || :timer
|
||
|
|
self.earlier, self.later = earlier || 10, later || 10
|
||
|
|
end
|
||
|
|
|
||
|
|
def series() @type = :series; self end
|
||
|
|
def series?() @type == :series end
|
||
|
|
def movie() @type = :movie; self end
|
||
|
|
def movie?() @type == :movie end
|
||
|
|
def type=( x) @type = x.to_s.downcase.to_sym end
|
||
|
|
def earlier=( x) @earlier = x.to_i end
|
||
|
|
def later=( x) @later = x.to_i end
|
||
|
|
|
||
|
|
def test e
|
||
|
|
def eqon( a, v) a ? a === v : true end
|
||
|
|
eqon( @channel, e.channel) && eqon( @title, e.title)
|
||
|
|
end
|
||
|
|
alias =~ test
|
||
|
|
|
||
|
|
def testnrecord e
|
||
|
|
return false unless self =~ e
|
||
|
|
record e
|
||
|
|
end
|
||
|
|
alias test_and_record testnrecord
|
||
|
|
alias call testnrecord
|
||
|
|
alias run testnrecord
|
||
|
|
|
||
|
|
def record e
|
||
|
|
t = e.to_timer
|
||
|
|
t.file = @file
|
||
|
|
case @type
|
||
|
|
when :series: t.file += '~${start(%y-%m-%d)}'
|
||
|
|
end
|
||
|
|
t.stop_time += earlier*60
|
||
|
|
t.start_time -= later*60
|
||
|
|
title = @title.match e.title
|
||
|
|
t.file.tsub! do |f, a|
|
||
|
|
case f
|
||
|
|
when 'start': t.start_time.strftime '%y-%m-%d.%H:%M'
|
||
|
|
when 'start()': t.start_time.strftime a
|
||
|
|
when 'stop': t.stop_time.strftime '%y-%m-%d.%H:%M'
|
||
|
|
when 'stop()': t.stop_time.strftime a
|
||
|
|
when 'title': e.title
|
||
|
|
when 'title()': title[ a.to_i]
|
||
|
|
end
|
||
|
|
end
|
||
|
|
=begin
|
||
|
|
t.file.gsub!( /\$\{([A-Za-z][0-9A-Za-z]*)(?:|\[([0-9]+)\]|\{([^}]*)\})\}/) do |a|
|
||
|
|
var, index, key = $1, $2.to_i, $3 || ''
|
||
|
|
case var
|
||
|
|
when "title": index == 0 ? e.title.dup : title[ index]
|
||
|
|
when "start": t.start_time.strftime key || '%y-%m-%d.%H:%M'
|
||
|
|
when "stop": t.stop_time.strftime key || '%y-%m-%d.%H:%M'
|
||
|
|
when *%w{wday month day hour min sec}:
|
||
|
|
'%02i' % t.start_time.method( var).call
|
||
|
|
when "year": t.start_time.year
|
||
|
|
else a.to_s
|
||
|
|
end
|
||
|
|
end
|
||
|
|
=end
|
||
|
|
t
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
def testnrecord e
|
||
|
|
@vdr.lstc
|
||
|
|
@vdr.lstt
|
||
|
|
self.each do |a|
|
||
|
|
return a if a = a.call( e)
|
||
|
|
end
|
||
|
|
return nil
|
||
|
|
end
|
||
|
|
alias test_and_record testnrecord
|
||
|
|
alias call testnrecord
|
||
|
|
|
||
|
|
def initialize *a
|
||
|
|
@vdr = VDR.new :buffered => false
|
||
|
|
super *a
|
||
|
|
end
|
||
|
|
|
||
|
|
def run
|
||
|
|
@vdr.epg.parse &:testnrecord
|
||
|
|
end
|
||
|
|
|
||
|
|
def push *x
|
||
|
|
super x if x.length == 1 && x[0] === AutoTimer
|
||
|
|
super AutoTimer.new( @vdr, *x)
|
||
|
|
end
|
||
|
|
def []=( k, x) super k, x if x === AutoTimer end
|
||
|
|
end
|