[scpubgit/DKit.git] / notes / sketches / 3.fs.pseudocode

is_directory D
  expr { $_{D}->is_directory }

make is_directory D
  where not exists_path D
  via Action::MakePath->new(path => $d->path)

make perms PS Mode
  where creating PS Action
  via derive Action { mode => $Mode }
Commit	Line	Data
96add15b	1	is_directory D
	2	expr { $_{D}->is_directory }
	3
	4	make is_directory D
	5	where not exists_path D
	6	via Action::MakePath->new(path => $d->path)
	7
	8	make perms PS Mode
	9	where creating PS Action
	10	via derive Action { mode => $Mode }