オリジナル言語を作る : Domain-Specific Languages #86

・16.3 データファイル？　いいえ、プログラムです！

EFROR-73

app/domains/design_pattern/dsl/backup.pr

@@ -1,5 +1,7 @@
+ex = DesignPattern::Interpreter::Expression.new
+
 backup 'spec/domains/dsl/data'
-backup 'spec/domains/dsl/data/music', file_name('*.mp3' & file_name('*.wav')
-backup 'spec/domains/dsl/data/images', except(file_name('*.tmp'))
+backup 'spec/domains/dsl/data/music', ex.name('*.mp3') & ex.name('*.wav')
+backup 'spec/domains/dsl/data/images', ex.except(ex.name('*.tmp'))
 to 'spec/domains/dsl/backup'
 interval 60

app/domains/design_pattern/dsl/packrat.rb

@@ -0,0 +1,22 @@
+require_relative '../../../../app/domains/design_pattern/interpreter/expression.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/all.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/and.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/bigger.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/file_name.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/not.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/or.rb'
+require_relative '../../../../app/domains/design_pattern/interpreter/writable.rb'
+
+def backup(dir, find_expression= DesignPattern::Interpreter::All.new)
+  puts "Backup called, source dir=#{dir} find expr=#{find_expression}"
+end
+
+def to(backup_directory)
+  puts "To called, backup dir=#{backup_directory}"
+end
+
+def interval(minutes)
+  puts "Interval called, interval = #{minutes} minutes"
+end
+
+eval(File.read('backup.pr'))

spec/domains/design_pattern/dsl/backup_spec.rb

@@ -0,0 +1,5 @@
+require 'rails_helper'
+
+describe DesignPattern::DSL::Backup do
+
+end