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

・16.9 内部DSLの実例

EFROR-73

lib/tasks/pack_rat.rake

@@ -0,0 +1,32 @@
+#
+# 私の音楽コレクション用ディレクトリ
+#
+OldiesDir = '/home/russ/oldies'
+NewiesDir = '/home/russ/newies'
+
+#
+# バックアップ用ディレクトリ
+#
+BackupDir = '/tmp/backup'
+
+#
+# コピー用の一意なディレクトリ名
+#
+timestamp=Time.new.to_s.tr(" :", "_")
+
+#
+# rakeタスク
+#
+task :default => [:backup_oldies, :backup_newies]
+
+task :backup_oldies do
+  backup_dir = File.join(BackupDir, timestamp, OldiesDir)
+  mkdir_p File.dirname(backup_dir)
+  cp_r OldiesDir, backup_dir
+end
+
+task :backup_newies do
+  backup_dir = File.join(BackupDir, timestamp, NewiesDir)
+  mkdir_p File.dirname(backup_dir)
+  cp_r NewiesDir, backup_dir
+end